[過去ﾛｸﾞ] 高校数学の質問スレ Part434 (1002ﾚｽ)
上下前次1-新
抽出解除 必死ﾁｪｯｶｰ(本家) (べ) 自ID ﾚｽ栞 あぼーん
このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索 歴削→次ｽﾚ 栞削→次ｽﾚ 過去ﾛｸﾞﾒﾆｭｰ
957: 2024/05/08(水)15:20 ID:Q+Icxp4f(1/7) AAS
>>944
グラフ化してTan[θ]=2を体感。
Jupyter経由でWolfram言語の練習
画像ﾘﾝｸ[png]:i.imgur.com
963: 2024/05/08(水)16:52 ID:Q+Icxp4f(2/7) AAS
>>947
眼力（良好な視力と記憶力）があれば、どこが循環節か見つけ出せるだろうけど。
プログラムの練習問題として使える。
不定長整数に非対応のRだと文字列として処理して算出。
Wolframだとそのあたりは効率がいい。
>952
θに惑わされるけど
省8
964(1): 2024/05/08(水)16:56 ID:Q+Icxp4f(3/7) AAS
>>960
レスありがとうございます。
想定解通りです。
Wolfram言語の練習に自作して自答した問題です。
おまけ コードのサラダ
txt="0.00002111122020221212221022220111100202001010001200002111122020221212221022220111100202001010001200002111122020221212221022220111100202001010001200002111122020221212221022220111100202001010001200002111122020221212221022220111100202001010001200002111122020221212221022220111100202001010001200002111122020221212221022220111100202001010001200002111122020221212221022220111100202001010001200002111122020221212221022220111100202001010001200002111122020221212221022220111100202001010001200002111122020221212221022220111100202001010001200002111122020221212221022220111100202001010001200002111122020221212221022220111100202001010001200002111122020221212221022220111100202001010001200002111122020221212221022220111100202001010001200002111122020221212221022220111100202001010001200002111122020221212221022220111100202001010001200002111122020221212221022220111100202001010001200002111122020221212221022220111100202001010001200002111122020221212221022220111100202001010001200002111122020221212221022220111100202001010
";
省16
966: 2024/05/08(水)17:43 ID:Q+Icxp4f(4/7) AAS
>>949
Rで作図
画像ﾘﾝｸ[png]:i.imgur.com
967: 2024/05/08(水)17:49 ID:Q+Icxp4f(5/7) AAS
>>944
cosθ ≠ 0 なら
(sinθ−cosθ)/(sinθ+cosθ) = 1/3
は
(tan(θ)-1)/(tan(θ)+1) = 1/3
の方がわかりやすいかもしれん。
971(1): 2024/05/08(水)20:21 ID:Q+Icxp4f(6/7) AAS
>>935
Wolfram Scriptによるシミュレーションプログラム
Wolfram言語の自習問題
*
宝は1マスに1個しか存在しないとする
5×6の場合
宝：1個 同等
省25
972: 2024/05/08(水)20:24 ID:Q+Icxp4f(7/7) AAS
Mean[Boole[# > 0 & /@ re]]//n (* 長軸有利割合*)
↓
Mean[Boole[# > 0 & /@ re]]//N (* 長軸有利割合*)
Mean[re] (* 総合判断 *)
↓
Mean[re] //N(* 総合判断 *)
上下前次1-新書関写板覧索設栞歴
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ
ぬこの手 ぬこTOP 0.032s