[過去ﾛｸﾞ] 高校数学の質問スレ Part434 (1002ﾚｽ)
上下前次1-新

---

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

---

656(1): 2024/04/28(日)20:06 ID:pfxD2O3Q(15/18) AAS
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

---

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

---

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

---

ぬこの手 ぬこTOP 0.016s