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

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

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

---

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

---

891: １３２人目の素数さん [sage] 2024/05/06(月) 11:12:24.88 ID:xxhQy/YG >>889 厳密値を出すためにRのコードをWolframに移植。 f[t_] :=( r=1/Sqrt[3]; Q={r*Cos[t],r*Sin[t]}; A1={r*Cos[-(5/6)Pi],r*Sin[-(5/6)Pi]}; B1={r*Cos[-Pi/6],r*Sin[-Pi/6]}; C1={0,r}; EuclideanDistance[Q,A1]+EuclideanDistance[Q,B1]+EuclideanDistance[Q,C1] ) In[7]:= f[t_] :=( r=1/Sqrt[3]; Q={r*Cos[t],r*Sin[t]}; A1={r*Cos[-(5/6)Pi],r*Sin[-(5/6)Pi]}; B1={r*Cos[-Pi/6],r*Sin[-Pi/6]}; C1={0,r}; EuclideanDistance[Q,A1]+EuclideanDistance[Q,B1]+EuclideanDistance[Q,C1] ) In[8]:= Minimize[{f[t],-(5/6)Pi<=t && t<= -Pi/6},{t}] -5 Pi Out[8]= {2, {t -> -----}} 6 In[9]:= Maximize[{f[t],-(5/6)Pi<=t && t<= -Pi/6},{t}] 4 1 Out[9]= {-------, {t -> -(-) Pi}} Sqrt[3] 2 最小値２ 最大値　4/sqrt(3)=2.309401 Rでの数値解とほぼ一致。 Wolfram Scriptの演習になった。 http://rio2016.5ch.io/test/read.cgi/math/1712376048/891

---

ﾒﾓ帳

(0/65535文字)

---

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

---

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

---

Google検索

Wikipedia

---

ぬこの手 ぬこTOP 0.012s