[過去ﾛｸﾞ] 高校数学の質問スレ Part434 (1002ﾚｽ)
上下前次1-新
このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索 歴削→次ｽﾚ 栞削→次ｽﾚ 過去ﾛｸﾞﾒﾆｭｰ
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
695: 2024/04/30(火)07:35 ID:VcpWQbIP(2/15) AAS
>>694
（補足）
図の通り、１辺の長さ１の正７角形での計算です。
出題では
計算しやすいので単位円に内接する正７角形にしましたが
最初は１辺の長さ１の正７角形で考えておりました。
A,Bの偏角を変数にするのなら単位円内接の方が楽ですが。
まあ、プログラムに数値計算させるので対して手間は変わりませんが。
本来はWolfram言語の学習に自分に課した課題だってのですが、
WolframでNelder-Meadはどうもうまくコードできません。
省3
696(2): 2024/04/30(火)07:38 ID:VcpWQbIP(3/15) AAS
>>694
（補足）
辺１の場合で面積とs,tの値。
s+t=1が必然なのならば、変数を１つ減らすことができるのだが。
東大合格者の御見解を希望します。
$area
[1] 2.275727
$ΔG
[1] 0.1761126
$s
省3
697: 2024/04/30(火)07:39 ID:rxxliZPS(1/2) AAS
出題云々のバカもスレチだしWolframの話題もスレチ
「高校数学」の「質問」スレだぞ
698(1): 2024/04/30(火)07:40 ID:rxxliZPS(2/2) AAS
はい誘導
WolframAlphaを使いこなしてる人ってカッコイイ.....
2chｽﾚ:math
699: 2024/04/30(火)08:07 ID:d+6cGHAc(1) AAS
高校生にバカにされるのがそんなに楽しいのか尿瓶ジジイw
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
701(1): 676 2024/04/30(火)08:54 ID:CMYzy4AG(1/2) AAS
>>681 様。
grapesで点をプロットすると確かに仰せのようになりますようです。
ありがとうございます。
できましたら >>681 の結果がどのように導けるのか
教えて頂けますでしょうか。
<(_ _)>
702: 2024/04/30(火)08:56 ID:VcpWQbIP(5/15) AAS
俺の出題に取り組んでいる東大合格者と比べて
罵倒しかできないPhioseくんらの集団が東大合格者だと思う人は
その旨とその根拠を投稿してください。
703: 2024/04/30(火)09:00 ID:VcpWQbIP(6/15) AAS
医学部だと統計から入ってRを使う人が多い（シリツ医は除く）が、
Pythonを使うひとも多いだろうな。
Wolfram言語は分数とか厳密値を返してくれるのが魅力ではある、
Rだと円を描くにも自作関数が必要。直線の交点の座標とか角度算出とか自分で作らなくちゃならん。
一度つくると再利用できる。
Wolframには幾多の関数が用意されている。
704: 2024/04/30(火)09:02 ID:VcpWQbIP(7/15) AAS
>>698
WolframAlphaだと入力文字数制限があったり、タイムアウトするから
WolframScriptが使えた方がいいね。
705: 2024/04/30(火)09:14 ID:VcpWQbIP(8/15) AAS
>>683
レベル０からは下がらないという設定でいいですか？
即ち、
レベル０でアイテムを１つ使用すると確率１でレベル１に上がるということで
いいでしょうか？
706(1): 2024/04/30(火)09:33 ID:VcpWQbIP(9/15) AAS
具体的な問題は計算する意欲がわく。
具体的な問題なので具体的な数値の方が現実味が増すので
数値を設定して問題化。乱数発生させて確率を設定して具体化。
武器のレベルを上げるためにアイテムを１つ使用します
その結果レベルが下がる そのまま 上がる となりそれぞれに確率が設定されています
また初期レベル0から10までのレベルアップの段階のそれぞれで違う確率が設定されています。
その確率は、それぞれ 1.00 0.27 0.37 0.57 0.91 0.20 0.90 0.94 0.66 0.63とする。
レベル10まで到達するために必要なアイテムの数を item とする。
(1) itemの期待値を求めよ。
(2) itemの中央値を求めよ
省5
707: 2024/04/30(火)10:08 ID:1h+NNAq/(1/2) AAS
折れ線と直線の交点求めるだけのゴミみたいなテーマをいつまでもいつまでも引きずる無能
708: 2024/04/30(火)11:56 ID:yB25sIh4(1/3) AAS
>>706
湧いてるのは頭だろw
709: 2024/04/30(火)12:26 ID:U+kQ2foL(1) AAS
はい誘導
面白い数学の問題おしえて～な 43問目
2chｽﾚ:math
くだらねぇ問題はここへ書け
2chｽﾚ:math
もうこのスレで出題するなよ
710: 2024/04/30(火)12:35 ID:yB25sIh4(2/3) AAS
尿瓶ジジイってなんでここに固執してるの？
高校生相手にドヤりたいから？60の爺さんが？w
711: 2024/04/30(火)12:49 ID:Xmn0sVPJ(1) AAS
今日の積分
I_c = lim[n→∞] ∫[0,n] xcos(nπx)/(1+x) dx
I_s = lim[n→∞] ∫[0,n] xsin(nπx)/(1+x) dx
に対して、
I_cとI_sは等しいかどうか調べよ。
712(1): 2024/04/30(火)12:51 ID:VcpWQbIP(10/15) AAS
武器のレベルを上げるためにアイテムを１つ使用します
その結果レベルが下がる そのまま 上がる となりそれぞれに確率が設定されています
また初期レベル0から10までのレベルアップの段階のそれぞれで違う確率が設定されています。
レベルが高くなるほどレベルアップできるのが困難になるとする。
レベルL-１からLに上がる確率は1/Lと設定されているものとする。
レベル10まで到達するために必要なアイテムの数を item とする。
(1) itemの期待値を求めよ。
(2) itemの中央値を求めよ。
RやWolframのようなインタープリタ型の言語だと時間がかかりすぎて計算が困難。
Cの達人の登場を待ちます。
713: 692 2024/04/30(火)14:06 ID:ElCKljKY(2/5) AAS
AA省
上下前次1-新書関写板覧索設栞歴
あと 289 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ
ぬこの手 ぬこTOP 0.016s