分からない問題はここに書いてね457

分からない問題はここ ..

166:１３２人目の素数さん
19/12/31 22:57:09.03 tmESw+mK.net
>>158
思考停止のパソコン解
f <- function(theta,A=2+3i,B=5+3i){
P=2*cos(theta)+2i*sin(theta)
abs(A-P)+abs(B-P)
}
opt=optimise(f,c(-pi,pi))
theta=opt$minimum
c(2*cos(theta),2*sin(theta))
> c(2*cos(theta),2*sin(theta))
[1] 1.3892 1.4388

次ページ

続きを表示

1を表示