[過去ﾛｸﾞ] 高校数学の質問スレ Part434 (1002ﾚｽ)

高校数学の質問スレ Part434 http://rio2016.5ch.net/test/read.cgi/math/1712376048/

上下前次1-新
通常表示 512ﾊﾞｲﾄ分割 ﾚｽ栞
抽出解除 ﾚｽ栞

---

このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索 歴削→次ｽﾚ 栞削→次ｽﾚ 過去ﾛｸﾞﾒﾆｭｰ

---

636: １３２人目の素数さん [sage] 2024/04/28(日) 12:27:56.90 ID:pfxD2O3Q >>629 アホな方法をWolframに移植。 n=7 fn[a_,b_,c_] := ( p=Table[Cos[t*2Pi/n]+I*Sin[t*2Pi/n],{t,n+1}]; t0=2Pi/n; t2i[t_] := ( i=Mod[Floor[t/t0],n]; j=i+1; i=If[i!=0,i,n]; line1={{0,0},{Cos[t],Sin[t]}}; line2={{Re[p[[i]]],Im[p[[i]]]},{Re[p[[j]]],Im[p[[j]]]}}; ResourceFunction["LineIntersection"][line1,line2] ); ABC=Map[t2i,{a,b,c}]; AB=EuclideanDistance[ABC[[1]],ABC[[2]]]; BC=EuclideanDistance[ABC[[2]],ABC[[3]]]; CA=EuclideanDistance[ABC[[3]],ABC[[1]]]; (AB-BC)^2+(BC-CA)^2+(CA-AB)^2) Minimize[{fn,a!=b && b!=c && c!=a && -Pi<a && a<Pi/n && -Pi<b && b<Pi/n && -Pi<c && c<Pi/n},{a,b,c}] Rのoptim関数より精度が悪くなった。 Wolfram使いの改善を希望します。 http://rio2016.5ch.net/test/read.cgi/math/1712376048/636

639: １３２人目の素数さん [sage] 2024/04/28(日) 12:42:59.11 ID:Q7sMPCNd >>636 チンパン数学垂れ流して煙たがられて発狂かよ いつになったら懲りるんだろうねw http://rio2016.5ch.net/test/read.cgi/math/1712376048/639

---

ﾒﾓ帳

(0/65535文字)

---

上下前次1-新書関写板覧索設栞歴

---

ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ

---

Google検索

Wikipedia

---

ぬこの手 ぬこTOP 0.048s