[過去ﾛｸﾞ] 高校数学の質問スレ Part434 (1002ﾚｽ)
上下前次1-新
このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索 歴削→次ｽﾚ 栞削→次ｽﾚ 過去ﾛｸﾞﾒﾆｭｰ
150(1): 2024/04/13(土)12:08 ID:THFrSUq1(2/2) AAS
WolframのIntegerDigits関数をRに実装。
10進数 n をb進法表示の数列に変換する
IntegerDigits=\(n,b) n%/%b^(floor(log(n)/log(b)):0) %% b
IntegerDigits(2024,10)
IntegerDigits(2024,2)
IntegerDigits(2025,8)
151(2): 2024/04/13(土)20:09 ID:K9Qs0Ux5(1) AAS
>>150
関連問題
n!を2進法で表したときの桁数をm[n]とする。
例
5! = 120 = 1 1 1 1 0 0 0(2進法)なので7桁。
即ち m[5]=7
数列 m[1],m[2],...,m[2023],m[2024]
で先頭の数字として最も多く現れる数字は1〜9のいずれかを述べよ。
現れる頻度順に1〜9の数字を並べよ。
あらゆるリソースを用いてよい。
152(2): 2024/04/14(日)01:43 ID:qwERWQHx(1/2) AAS
>>151
スレチかもしれないけど最小限の環境(小型マイコン)で計算してみた
言語はC
$ cat fact.c
#include<stdio.h>
#include<math.h>
int main() {
long N,n,i[10]={0,0,0,0,0,0,0,0,0,0};
double lfac=0,mn;
scanf("%ld",&N);
省30
153(2): 2024/04/14(日)03:54 ID:T4z17oY+(1/22) AAS
>>152
>>152
力作のレスありがとうございます。
Wolfram言語での結果
m=Table[Length[IntegerDigits[n!,2]],{n,2024}]
b=Table[First[IntegerDigits[a]],{a,m}]
Table[Count[b,c],{c,1,9}]
In[3]:= Table[Count[b,c],{c,1,9}]
Out[3]= {1030, 140, 131, 128, 124, 120, 119, 117, 115}
と合致しました。
省1
154: 2024/04/14(日)04:14 ID:T4z17oY+(2/22) AAS
順位はみてのとおり
In[9]:= d=Table[Count[b,c],{c,1,9}]
Out[9]= {1030, 140, 131, 128, 124, 120, 119, 117, 115}
In[10]:= d
Out[10]= {1030, 140, 131, 128, 124, 120, 119, 117, 115}
In[11]:= Ordering[d]
省1
155: 2024/04/14(日)05:15 ID:T4z17oY+(3/22) AAS
飲酒や喫煙は高校生には禁じられているが、プログラムは禁じられていない。
LGBTが叫ばれる昨今では不純異性交際は微妙ｗ
朝飯前の問題
素数を小さい順に100万個集める。
先頭の数字として現れる数字を頻度の多い順に並べなさい。
あらゆるリソースを用いてよい。
156: 2024/04/14(日)05:37 ID:T4z17oY+(4/22) AAS
Rでの算出
> tbl
1 2 3 4 5 6 7 8 9
415441 77025 75290 74114 72951 72257 71564 71038 70320
> order(tbl,decreasing = TRUE)
[1] 1 2 3 4 5 6 7 8 9
Wolframscriptでの算出
In[30]:= a=Table[Count[Table[First[IntegerDigits[n]], {n, Prime[Range[10^6]]}],m],{m,9}]
Out[30]= {415441, 77025, 75290, 74114, 72951, 72257, 71564, 71038, 70320}
In[31]:= Reverse[Table[Range[9][[i]],{i,Ordering[a]}]]
省3
157(1): 2024/04/14(日)06:26 ID:KAPnCPO9(1) AAS
>>151-153
明らかにスレチだし明らかに自演だよね
158: 2024/04/14(日)07:10 ID:T4z17oY+(5/22) AAS
>>157
自演だったら俺がC言語の達人ということになるのだが、
受験板ではないので問題の意味が高校数学の範囲で理解できれば許容される。
小学校の算数や図形の問題を方程式や三角関数を使って解いても構わない。
159: 2024/04/14(日)07:29 ID:1U/RnNK4(1/7) AAS
小学生の算数に方程式や三角関数でドヤられても恥ずかしい大人なだけじゃん
散々スルーされても分からないんだね、だから自演なんかやるんだ
しかも自分のこと達人とか言って笑
160(1): 2024/04/14(日)08:18 ID:T4z17oY+(6/22) AAS
>>147
草 多用する理由は図星。
Q.E.D.
161(1): 2024/04/14(日)08:38 ID:1U/RnNK4(2/7) AAS
>>160
一回使っただけで多様？アホなん？w
162(1): 2024/04/14(日)09:25 ID:qwERWQHx(2/2) AAS
152は151,153とは別人で、単に大きな階乗の計算は対数とれば簡単に計算できることを示したかっただけです。
スレを荒らしてしまったようですまない。
163(3): 2024/04/14(日)09:43 ID:T4z17oY+(7/22) AAS
宝くじまとめ買いの問題
宝くじ1万枚が1枚2500円で売り出され、うち20枚が当たりである。
当たれば1枚につき賞金100万円がもらえる。
一度に10枚買って当たりが1枚でもあればそこで終了。
1枚も当たらなければ残りの9990枚から10枚を買う。
それでも当たらなければ残りの9980枚から10枚を買う。
以下同様に、少なくとも1枚の当たりがでるまで買い続ける。
(1) 獲得賞金−購入総額の期待値と中央値を求めよ。
(2) 1枚いくらであれば期待値が０になるか求めよ。
あらゆるリソースを用いてよい。
省26
164(1): 2024/04/14(日)09:53 ID:T4z17oY+(8/22) AAS
AA省
165(1): 2024/04/14(日)09:57 ID:T4z17oY+(9/22) AAS
>>162
Cだと浮動小数点数をつかうから
floor(lfac/log(2)+1+1e-12)とかの工夫が必要になってきますよね。
Rも同様なので大きな数字を扱うときは丸め誤差がでてきます。
166(2): 2024/04/14(日)10:00 ID:SzjJa5LD(1) AAS
>>153
>>Benfordの法則が成り立っています。
どこが成立？
単に、順位が逆転していないことを以て成立と言っている？
法則によれば、先頭の数字が 1 になるのは 3 割程度
2024までの結果では5割を越えている
10^6までの結果でも4割を越え、これは誤差の範囲ではない。
原因は、明白だが、理解している？
指摘されなければ、見向きもしなかっただろう。ただ高級な道具を与えられ遊んでいるだけ。
このようなことをやっている人物に、新発見や進歩など望むべくもない。
167: 2024/04/14(日)10:01 ID:T4z17oY+(10/22) AAS
>>163
期待値は負で中央値は正という、ギャンブルとしては良心的な価格設定。
CやPythonの使える東大合格者による検証を期待します。
168: 2024/04/14(日)11:22 ID:CqnVU4YK(1/3) AAS
>>165
wwwwwwwwwwwwwwwwwwww
169: 2024/04/14(日)12:37 ID:1IJEb63F(1) AAS
外部ﾘﾝｸ[html]:oshiete.goo.ne.jp 永遠の中２帰国子（女）
上下前次1-新書関写板覧索設栞歴
あと 833 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ
ぬこの手 ぬこTOP 0.024s