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

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

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

---

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

---

656: １３２人目の素数さん [sage] 2024/04/28(日) 20:06:07.08 ID:pfxD2O3Q 3辺が等しいことを確認。 n=7; r=Cos[2Pi/n] + I*Sin[2Pi/n]; p=Table[(1-r^i)/(1-r),{i,1,n+1}]; a={1/2,0}; a0={0,-1/2*Tan[Pi/3]}; aa0={a,a0}; p2={Re[p[[2]]],Im[p[[2]]]}; p3={Re[p[[3]]],Im[p[[3]]]}; p2p3={p2,p3}; b=ResourceFunction["LineIntersection"][aa0,p2p3]; a1={0,-1/2*Tan[2Pi/3]}; aa1={a,a1}; p5={Re[p[[5]]],Im[p[[5]]]}; p6={Re[p[[6]]],Im[p[[6]]]}; p5p6={p5,p6}; c=ResourceFunction["LineIntersection"][aa1,p5p6]; EuclideanDistance[a,b] // N EuclideanDistance[b,c] // N EuclideanDistance[c,a] // N In[17]:= EuclideanDistance[a,b] // N Out[17]= 1.86614 In[18]:= EuclideanDistance[b,c] // N N::meprec: Internal precision limit $MaxExtraPrecision = 50. reached while evaluating <<1>>. Out[18]= 1.86614 In[19]:= EuclideanDistance[c,a] // N Out[19]= 1.86614 http://rio2016.5ch.io/test/read.cgi/math/1712376048/656

---

ﾒﾓ帳

(0/65535文字)

---

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

---

あと 346 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ

---

Google検索

Wikipedia

---

ぬこの手 ぬこTOP 0.016s