[過去ﾛｸﾞ] 高校数学の質問スレ Part437 (1002ﾚｽ)
上下前次1-新
抽出解除 必死ﾁｪｯｶｰ(本家) (べ) 自ID ﾚｽ栞 あぼーん
このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索 歴削→次ｽﾚ 栞削→次ｽﾚ 過去ﾛｸﾞﾒﾆｭｰ
ﾘﾛｰﾄﾞ規制です｡10分ほどで解除するので､他のﾌﾞﾗｳｻﾞへ避難してください｡
662(6): 2024/08/04(日)19:58 ID:zYDL151U(1/5) AAS
厳密解が出せないので質問します。
パスカルのカタツムリ
r=2cos(θ)+1
画像ﾘﾝｸ
において
図の黒の領域、黒の領域を含み赤線で囲まれた領域、黒の領域を含まず赤線で書かれた領域の重心の座標を求めよ。
680(1): 2024/08/04(日)22:07 ID:zYDL151U(2/5) AAS
>>669
すごいHaskellとかいう象の絵が表紙にある本は途中まで読んだ。
モナドの概念もよくわからなかった。
Haskellが手足のように使える人は凄い人だと思う。
不定長整数が扱えるので分数解が出せて便利だとは思ったが
結果をすぐにグラフ化できないのでR言語に戻った。
ちなみに、R言語は統計処理の道具は揃っているけど、
円を描くにも関数を自作する必要がある。
その意味では、
＞少ない材料で作る楽しみがある言語
といえる。
２つの円の交点を出す関数とか、垂直二等分線の方程式を返す関数とか
色々自作して道具箱にとってある。
684(2): 2024/08/04(日)22:55 ID:zYDL151U(3/5) AAS
これは厳密解が簡単に求まるなぁ。
サイクロイド曲線 C:
x(θ)=a(θ−sinθ)
y(θ)=a(1−cosθ)
(0≤θ≤2π)
について，
C と x 軸で囲まれた領域 の重心の座標を求めよ。
参考画像
画像ﾘﾝｸ
Wolfram言語のコードのサラダ
x[t_] := t - Sin[t];
y[t_] := 1-Cos[t];
S=Integrate[y[t]D[x[t],t],{t,0,2Pi}]
V=Integrate[Pi y[t]^2 D[x[t],t],{t,0,2Pi}]
V/(2Pi S)
pts=Partition[Flatten@Table[{t - Sin[t],1-Cos[t]},{t,0,2Pi,0.01}],2];
pol=Polygon[pts];
G=RegionCentroid[pol];
Graphics[{LightPurple,pol,Black,Text["G",G]},Axes->True]
689(1): 2024/08/04(日)23:30 ID:zYDL151U(4/5) AAS
>>686
Haskellが使える有能な方と同一視されるのは名誉なことかもしれんが、
Haskellは一介の臨床医には難しすぎるんだよなぁ。
Rが使える臨床医はままいる（底辺シリツ医は除く）が、
Haskellが使える臨床医には会ったことがないなぁ。
Rは引数なしで入力するとソースコードが表示される（すべての関数ではないが）ので
それを改造して使えるのが( ・∀・)ｲｲ!!
690(1): 2024/08/04(日)23:33 ID:zYDL151U(5/5) AAS
>>688
何一つ、計算できないのが遠吠えしているなぁ。
サクッと重心の座標とかリスク比とか算出して投稿すればいいのに。
foreskin弄りで忙しすぎるのか？
上下前次1-新書関写板覧索設栞歴
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ
ぬこの手 ぬこTOP 0.032s