[過去ﾛｸﾞ] 高校数学の質問スレ Part434 (1002ﾚｽ)
上下前次1-新
抽出解除 ﾚｽ栞
このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索 歴削→次ｽﾚ 栞削→次ｽﾚ 過去ﾛｸﾞﾒﾆｭｰ
668(1): 2024/04/29(月)07:47 ID:IbNZs8hI(2/4) AAS
>>666
追加の参考画像
画像ﾘﾝｸ[png]:i.imgur.com
694(3): 2024/04/30(火)07:24 ID:VcpWQbIP(1/15) AAS
>>693
私の出題へのレスありがとうございます。
プログラムによる数値解
変数４つでもRでNelder-Meadは近似値を返してくるが、そのコードをWolframに移植すると期待外れ。
今月からWolframScriptが無料と教わって今月からWolframを始めた初心者なので正しく移植されていないのかもしれない。
変数を２つに減らしてRでコードしてみた。最初から７角形の１辺の長さ１で計算。
p[7]-A : p[1]-Aの長さの比を s : (1-s)
p[2]-B : p[3]-Bの長さの比を t : (1-t)
として
四角形の∠Bが直角となるように直線を引いてp[4],p[5]を通る直線の交点をC、
省24
700: 2024/04/30(火)08:47 ID:VcpWQbIP(4/15) AAS
>>696
それを前提にして計算
変数が一つにできればNewton-Raphsonが使えるので
横軸にs,縦軸に(AB-BC)^2+(AB-CD)^2+(AB-DA)^2+(BC-CD)^2+(BC-DA)^2+(CD-DA)^2+(AC-BD)^2 をおいて
グラフ化
画像ﾘﾝｸ[png]:i.imgur.com
最小値をとるsは１つだけのようなのでこれを
Newton-Raphson法（R言語ではuniroot関数)でもとめると
> opt=optimize(f,c(0,1),tol=1e-16) ; opt
$minimum
省5
835: 2024/05/04(土)18:17 ID:20BaOEC/(1/3) AAS
>>829
変数が１つなので計算は楽だな。
最小になるときのPの位置をR言語で作図。
Gは重心。
画像ﾘﾝｸ[png]:i.imgur.com
836: 2024/05/04(土)18:19 ID:20BaOEC/(2/3) AAS
∠PABを横軸、縦軸にBP*CPをとってグラフ化
画像ﾘﾝｸ[png]:i.imgur.com
874: 2024/05/06(月)08:17 ID:xxhQy/YG(7/23) AAS
真実を公言した東大卒の才媛は追い詰められたようだ。
画像ﾘﾝｸ[jpg]:pbs.twimg.com
944(3): 2024/05/07(火)20:49 ID:8fDbvOH9(1) AAS
初歩的なすみませんですみません
この方程式の分母を払うとありますが具体的にどんな手順で進めればいいでしょうか？
最初の3（sθ-cθ）＝sθ＋cθへの式が形自体はわかるのですが、どことどこを掛けているのかわかりません
またsin/cos＝tanθの公式はわかりますがそこからなぜ2と求められるのか理解できません
画像ﾘﾝｸ[jpeg]:i.imgur.com
957: 2024/05/08(水)15:20 ID:Q+Icxp4f(1/7) AAS
>>944
グラフ化してTan[θ]=2を体感。
Jupyter経由でWolfram言語の練習
画像ﾘﾝｸ[png]:i.imgur.com
966: 2024/05/08(水)17:43 ID:Q+Icxp4f(4/7) AAS
>>949
Rで作図
画像ﾘﾝｸ[png]:i.imgur.com
985: 2024/05/09(木)07:49 ID:SqUSooPh(2/3) AAS
最初の宝をみつけるまでの探索数が少ない方が有利と判定することにして
>979をWolframに移植
長短の差を大きめにして実行してみる。
(* s:短軸枡数 l:長軸枡数 t:宝の数 *)
s=2; l=15; t=3;
long=Range[s*l];
(mat=Partition[long,l])//MatrixForm;
short=Flatten[Transpose[mat]];
tre=Subsets[long,{t}];
long;
省17
989(1): 2024/05/09(木)12:33 ID:SqUSooPh(3/3) AAS
>>986
Wolfram言語の練習にその結果を検算
画像ﾘﾝｸ[png]:i.imgur.com
最終行
０：互角
−１：短軸有利
１：長軸有利
結果は合致したので
Wolframで正しくコードできたと実感できた。
上下前次1-新書関写板覧索設栞歴
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ
ぬこの手 ぬこTOP 0.927s*