[過去ﾛｸﾞ]
高校数学の質問スレ Part434 (1002ﾚｽ)
高校数学の質問スレ Part434 http://rio2016.5ch.net/test/read.cgi/math/1712376048/
上
下
前次
1-
新
通常表示
512ﾊﾞｲﾄ分割
ﾚｽ栞
抽出解除
必死ﾁｪｯｶｰ(本家)
(べ)
自ID
ﾚｽ栞
あぼーん
このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索
歴削→次ｽﾚ
栞削→次ｽﾚ
過去ﾛｸﾞﾒﾆｭｰ
957: １３２人目の素数さん [sage] 2024/05/08(水) 15:20:54.80 ID:Q+Icxp4f >>944 グラフ化してTan[θ]=2を体感。 Jupyter経由でWolfram言語の練習 https://i.imgur.com/60vJN1K.png http://rio2016.5ch.net/test/read.cgi/math/1712376048/957
963: １３２人目の素数さん [sage] 2024/05/08(水) 16:52:21.30 ID:Q+Icxp4f >>947 眼力（良好な視力と記憶力）があれば、どこが循環節か見つけ出せるだろうけど。 プログラムの練習問題として使える。 不定長整数に非対応のRだと文字列として処理して算出。 Wolframだとそのあたりは効率がいい。 >952 θに惑わされるけど cosθ=x sinθ=y tanθ=t と置くと y=tｘ (sinθ-cosθ)/(sinθ+cosθ)=1/3 (y-x)/(y+x)=1/3 (tx-x)/(tx+x)=1/3 http://rio2016.5ch.net/test/read.cgi/math/1712376048/963
964: １３２人目の素数さん [sage] 2024/05/08(水) 16:56:36.49 ID:Q+Icxp4f >>960 レスありがとうございます。 想定解通りです。 Wolfram言語の練習に自作して自答した問題です。 おまけ コードのサラダ txt="0.00002111122020221212221022220111100202001010001200002111122020221212221022220111100202001010001200002111122020221212221022220111100202001010001200002111122020221212221022220111100202001010001200002111122020221212221022220111100202001010001200002111122020221212221022220111100202001010001200002111122020221212221022220111100202001010001200002111122020221212221022220111100202001010001200002111122020221212221022220111100202001010001200002111122020221212221022220111100202001010001200002111122020221212221022220111100202001010001200002111122020221212221022220111100202001010001200002111122020221212221022220111100202001010001200002111122020221212221022220111100202001010001200002111122020221212221022220111100202001010001200002111122020221212221022220111100202001010001200002111122020221212221022220111100202001010001200002111122020221212221022220111100202001010001200002111122020221212221022220111100202001010001200002111122020221212221022220111100202001010001200002111122020221212221022220111100202001010 "; str=StringSplit[txt,"."][[2]]; str=StringSplit[str,""]; ls=Length[str]; d=str[[5;;ls]]; digits=1000; f[x_] := ( u=d[[1;;x]]; n=Floor[Length[d]/x]; Flatten[Table[u,n]]==d[[1;;(x*n)]] ) l=Select[Range[digits/2],f][[1]];(* l=48 *) StringJoin[d[[1;;l]]] nu=3^^211112202022121222102222011110020200101000120000; IntegerString[(3^48-1)*3^4,3] de=3^^2222222222222222222222222222222222222222222222220000; nu/de http://rio2016.5ch.net/test/read.cgi/math/1712376048/964
966: １３２人目の素数さん [sage] 2024/05/08(水) 17:43:03.02 ID:Q+Icxp4f >>949 Rで作図 https://i.imgur.com/52jVoES.png http://rio2016.5ch.net/test/read.cgi/math/1712376048/966
967: １３２人目の素数さん [sage] 2024/05/08(水) 17:49:56.49 ID:Q+Icxp4f >>944 cosθ ≠ 0 なら (sinθ−cosθ)/(sinθ+cosθ) = 1/3 は (tan(θ)-1)/(tan(θ)+1) = 1/3 の方がわかりやすいかもしれん。 http://rio2016.5ch.net/test/read.cgi/math/1712376048/967
971: １３２人目の素数さん [sage] 2024/05/08(水) 20:21:47.83 ID:Q+Icxp4f >>935 Wolfram Scriptによるシミュレーションプログラム Wolfram言語の自習問題 * 宝は1マスに1個しか存在しないとする 5×6の場合 宝：1個 同等 宝：2〜8個 短軸有利 宝：9〜21個 長軸有利 宝：22〜30個 同等 □■■■■■ □□■■■■ □□□■■■ □□□□■■ □□□□□■ *) li=Range[30]; (* マスの番号 *) (mat=Table[li[[6i-5;;6 i]],{i,1,5}]) // MatrixForm (* Matrix(1:30,nrow=5,ncol=6, byrow=TRUE)*) short=Flatten[Table[mat[[All,i]],{i,6}]]; (* 短軸ルート 1,7,13,19,25,2,8,....,18,24,30 *) long=li; (* 長軸ルート *) sim[] := ( tre=RandomSample[li,RandomInteger[{1,30}]]; (* 30マス以下のマスに30個以下の宝をランダムに配置する *) Max[Position[short,#]& /@ tre] - Max[tre] (* すべての宝を得るまでに探索したマスの数の差：短軸探索数-長軸探索数 *) ) re=Table[sim[],1*^6]; Mean[Boole[# < 0 & /@ re]]//N (* 短軸有利割合 *) Mean[Boole[# == 0 & /@ re]]//N (* 同等割合*) Mean[Boole[# > 0 & /@ re]]//n (* 長軸有利割合*) Mean[re] (* 総合判断 *) Wolfram言語の使える方による推敲・最適化を期待します。 登録すれば無料で使えるので意欲的な高校生の参加も期待します。 医系ならR言語、理工系ならWolfram言語(Mathemaatica)は将来も役に立ちます。 http://rio2016.5ch.net/test/read.cgi/math/1712376048/971
972: １３２人目の素数さん [sage] 2024/05/08(水) 20:24:55.33 ID:Q+Icxp4f Mean[Boole[# > 0 & /@ re]]//n (* 長軸有利割合*) ↓ Mean[Boole[# > 0 & /@ re]]//N (* 長軸有利割合*) Mean[re] (* 総合判断 *) ↓ Mean[re] //N(* 総合判断 *) http://rio2016.5ch.net/test/read.cgi/math/1712376048/972
ﾒﾓ帳
(0/65535文字)
上
下
前次
1-
新
書
関
写
板
覧
索
設
栞
歴
ｽﾚ情報
赤ﾚｽ抽出
画像ﾚｽ抽出
歴の未読ｽﾚ
AAｻﾑﾈｲﾙ
Google検索
Wikipedia
ぬこの手
ぬこTOP
0.031s