分からない問題はここに書いてね460at MATH

---

830:84" rel="noopener noreferrer" target="_blank" class="reply_link">>>784 プログラム解 > a=2*pi/3 > P=1+0*1i > Q=cos(a)+1i*sin(a) > R=cos(-a)+1i*sin(-a) > b=seq(-pi,pi,len=100) > X=cos(b)+1i*sin(b) > fn <- function(n){ + y=abs(P-X)^n+abs(Q-X)^n+abs(R-X)^n + if(round(min(y),1)==round(max(y),1)) print(n) + } > for(i in 1:1000) fn(i) [1] 2 [1] 4

---

次ページ

続きを表示

1を表示

最新レス表示

レスジャンプ

類似スレ一覧

スレッドの検索

話題のニュース

おまかせリスト

オプション

しおりを挟む

スレッドに書込

スレッドの一覧

暇つぶし2ch