[過去ﾛｸﾞ] 高校数学の質問スレ Part434 (1002ﾚｽ)
上下前次1-新
このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索 歴削→次ｽﾚ 栞削→次ｽﾚ 過去ﾛｸﾞﾒﾆｭｰ
963: 2024/05/08(水)16:52 ID:Q+Icxp4f(2/7) AAS
>>947
眼力（良好な視力と記憶力）があれば、どこが循環節か見つけ出せるだろうけど。
プログラムの練習問題として使える。
不定長整数に非対応のRだと文字列として処理して算出。
Wolframだとそのあたりは効率がいい。
>952
θに惑わされるけど
cosθ=x
sinθ=y
tanθ=t
省5
964(1): 2024/05/08(水)16:56 ID:Q+Icxp4f(3/7) AAS
>>960
レスありがとうございます。
想定解通りです。
Wolfram言語の練習に自作して自答した問題です。
おまけ コードのサラダ
txt="0.00002111122020221212221022220111100202001010001200002111122020221212221022220111100202001010001200002111122020221212221022220111100202001010001200002111122020221212221022220111100202001010001200002111122020221212221022220111100202001010001200002111122020221212221022220111100202001010001200002111122020221212221022220111100202001010001200002111122020221212221022220111100202001010001200002111122020221212221022220111100202001010001200002111122020221212221022220111100202001010001200002111122020221212221022220111100202001010001200002111122020221212221022220111100202001010001200002111122020221212221022220111100202001010001200002111122020221212221022220111100202001010001200002111122020221212221022220111100202001010001200002111122020221212221022220111100202001010001200002111122020221212221022220111100202001010001200002111122020221212221022220111100202001010001200002111122020221212221022220111100202001010001200002111122020221212221022220111100202001010001200002111122020221212221022220111100202001010
";
str=StringSplit[txt,"."][[2]];
str=StringSplit[str,""];
ls=Length[str];
省13
965: 2024/05/08(水)17:01 ID:9b91wrP+(4/4) AAS
>>949
dy/dx = cos(x),
L(a) = L(0)
= ∫[0, π] √{1 + (dy/dx)^2} dx
= ∫[0, π] √{1 + cos(x)^2} dx
= (2√2)E(1/2)
= 3.820197789…
第2種完全楕円積分と云うらしい。。。
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
の方がわかりやすいかもしれん。
968(1): 2024/05/08(水)19:41 ID:Xak6Ai2d(3/3) AAS
ぶつぶつうるせーなチンパンジーが
969: 2024/05/08(水)19:51 ID:s+WGObly(2/3) AAS
>>968
触れないのが正解
粛々とNG
970: 2024/05/08(水)19:52 ID:s+WGObly(3/3) AAS
次スレ
高校数学の質問スレ Part435
2chｽﾚ:math
971(1): 2024/05/08(水)20:21 ID:Q+Icxp4f(6/7) AAS
>>935
Wolfram Scriptによるシミュレーションプログラム
Wolfram言語の自習問題
*
宝は1マスに1個しか存在しないとする
5×6の場合
宝：1個 同等
宝：2〜8個 短軸有利
宝：9〜21個 長軸有利
宝：22〜30個 同等
省22
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(* 総合判断 *)
973: 2024/05/08(水)20:41 ID:9bl+/S29(1) AAS
医者板では全く相手にされずにここで高校生相手にマウントを取ろうとするも逆にけちょんけちょんにされるも何事もなかったかのようにチンパン数学を垂れ流しております
974: 2024/05/08(水)20:52 ID:o+7mX6D2(1/4) AAS
>>971
5 * 6 [2] : 203 , 197 , 35
5 * 6 [3] : 1801 , 1727 , 532
5 * 6 [4] : 11418 , 11008 , 4979
5 * 6 [5] : 55469 , 54036 , 33001
5 * 6 [6] : 215265 , 211894 , 166616
5 * 6 [7] : 685784 , 680768 , 669248
5 * 6 [8] : 1827737 , 1825076 , 2200112
5 * 6 [9] : 4130886 , 4139080 , 6037184
5 * 6 [10] : 7995426 , 8023257 , 14026332
省5
975(1): 2024/05/08(水)21:14 ID:o+7mX6D2(2/4) AAS
■R
# 宝の数を変化させる
treasure0 <- function(m=3,n=4,k=2){
y=1:(m*n)
(z=matrix(y,ncol=n,byrow=T))
(P=as.vector(z))
(Q=as.vector(t(z)))
PQ <- function(x){
p=q=numeric(k)
for(i in 1:k){
省15
976: 2024/05/08(水)21:20 ID:80mTSPJI(1/4) AAS
>>975
min(p)-min(q)
は
max(p)-max(q)ではないでしょうか？
977: 2024/05/08(水)21:26 ID:o+7mX6D2(3/4) AAS
■haskellに移植
import Data.List
import Data.List.Split
m = 5 -- 縦マス(短軸）
n = 6 -- 横マス(長軸)
k = 5 -- 宝の数
q = [0..m*n-1]
matQ = chunksOf n q
matP = transpose matQ --行列を転置して
p = concat matP -- 配列に変換
省16
978: 2024/05/08(水)21:32 ID:80mTSPJI(2/4) AAS
宝の数と配置をランダムに決めるとして
１５×２のマスでもこの程度の差（単軸有利）に終わった。
> summary(re)
Min. 1st Qu. Median Mean 3rd Qu. Max.
-14.000 0.000 0.000 -0.212 0.000 13.000
Rのスクリプトが投稿されている。
他の人のプログラムを読むのは勉強になっていいなぁ。
979(1): 2024/05/08(水)23:13 ID:80mTSPJI(3/4) AAS
短軸 sマス
長軸 l マス
宝 t 個
のときの総当たり計算
f=\(
s=5, # skort axis
l=6, # long axis
t=7){# tresure
sl=s*l
long=1:sl
省11
980: 2024/05/08(水)23:16 ID:80mTSPJI(4/4) AAS
最初の宝をみつけるかmin、お宝全部みつけるかmaxのどちらで計算するかだな。
981(1): 2024/05/08(水)23:51 ID:o+7mX6D2(4/4) AAS
P君が縦にnマス，
Q君が横にn+1マス移動時、
残ったマス数とk-1のコンビネーション
繰り返すだけ
982: 2024/05/09(木)00:06 ID:vS28WcMc(1) AAS
>>944
迂回(まわり道)解法
P： (x, y) = (r･cosθ, r･sinθ)
とおけば
y/x = tanθ,
軸を45°回して y=x をu軸、y=-x をv軸とすると
(sinθ−cosθ)/(sinθ+cosθ) = v/u = tan(θ−45°),
u軸上に
Q： (x, y) = (3, 3) (u, v) = (3√2, 0)
をとる。
省4
上下前次1-新書関写板覧索設栞歴
あと 20 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ
ぬこの手 ぬこTOP 0.024s