高校数学の質問スレ（医者・東大卒専用） Part438 (991ﾚｽ)

高校数学の質問スレ（医者・東大卒専用） Part438 http://rio2016.5ch.net/test/read.cgi/math/1723152147/

上下前次1-新
通常表示 512ﾊﾞｲﾄ分割 ﾚｽ栞
抽出解除 必死ﾁｪｯｶｰ(本家) (べ) 自ID ﾚｽ栞 あぼーん

---

ﾘﾛｰﾄﾞ規制です｡10分ほどで解除するので､他のﾌﾞﾗｳｻﾞへ避難してください｡

---

507: １３２人目の素数さん [sage] 2025/01/05(日) 12:23:25.71 ID:tuC7O64g R=3; r=2; K=2; (*　ロータ中心と頂点距離/ロータギア半径 *) apex[t_] := Module[ {p,c,d}, p = {(R-r) Cos[t] + R Cos[(t+Pi)/3], (R-r) Sin[t] + R Sin[(t+Pi)/3]}; c = {(R-r) Cos[t],(R-r) Sin[t]}; d = K(p-c)+c ] theta=Flatten@{Range[0,6 Pi, Pi/1000]}; ListPlot[apex[#]& /@ theta,AspectRatio ->1] x[t_]:=apex[t][[1]] y[t_]:=apex[t][[2]] length=Integrate[(D[x[t],t])^2+(D[y[t],t])^2,{t,0,6 Pi}] area=(1/2) Integrate[x[t] D[y[t],t] - y[t] D[x[t],t],{t,0, 6 Pi}] Clear[{R,r,K}] http://rio2016.5ch.net/test/read.cgi/math/1723152147/507

---

ﾒﾓ帳

(0/65535文字)

---

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

---

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

---

Google検索

Wikipedia

---

ぬこの手 ぬこTOP 0.050s