[過去ﾛｸﾞ] 高校数学の質問スレ Part434 (1002ﾚｽ)
上下前次1-新
抽出解除 必死ﾁｪｯｶｰ(本家) (べ) 自ID ﾚｽ栞 あぼーん
このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索 歴削→次ｽﾚ 栞削→次ｽﾚ 過去ﾛｸﾞﾒﾆｭｰ
220(2): 2024/04/16(火)07:17 ID:zrlvndwL(1/6) AAS
>>198
Wolfram言語で算出を試みる
f1[n_] := Table[Mod[a^b,n],{b,n-1},{a,n-1}]
f2[n_] := Table[Union[li],{li,f1[n]}]
f3[n_] := Table[Length[f2[n][[m]]],{m,n-1}]
f4[n_] := Min[f3[n]]
n=2; m=1; While[m<2024,n++; m=m+Boole[f4[n]==1]]
省10
225: 2024/04/16(火)10:27 ID:zrlvndwL(2/6) AAS
登録すればテキストベースのWolframScriptが使えるので
ダウンロードしてインストール
Rに移植して遊ぶ
正整数 n を b 進法の数列にして出力するWolframの関数 IntegerDigits
Wolfram Language 14.0.0 Engine for Microsoft Windows (64-bit)
Copyright 1988-2023 Wolfram Research, Inc.
In[1]:= IntegerDigits[2024,2]
省9
226(2): 2024/04/16(火)10:44 ID:zrlvndwL(3/6) AAS
これは正しいか？
nを2以上の整数とし、mを1,2,3,...,n-2,n-1とする.
どのmについても m^(n-1) ≡ 1 (mod n)となるのは nが素数のときに限る。
Wolframで体感
Wolfram Language 14.0.0 Engine for Microsoft Windows (64-bit)
Copyright 1988-2023 Wolfram Research, Inc.
In[1]:= f[n_] := Table[Mod[m^(n-1),n],{m,1,n-1}]
省6
227: 2024/04/16(火)10:45 ID:zrlvndwL(4/6) AAS
>>223
罵倒 ＞ 助言 の Phimose草の不等式が次々と実証されてますなぁ
解説
It is as if Mr. Phimose loves to use the expression of 'kusa' that fondles his foreskin too much which has made his hands stink.
228(1): 2024/04/16(火)11:04 ID:zrlvndwL(5/6) AAS
>>224
＞文法的におかしな文章書いても計算機はとりあえず動いてくれる
普通はエラーメッセージがでるぞ。
括弧対応を自動修正してくれたりするのもあるけど。
Log[Sin[Pi-1]を入力するとWolframalpha.comは括弧を補完して計算値を出力してくれるが、
Wolfram Language 14.0.0 Engine for Microsoft Windows (64-bit)だと何も出力されない。
人間なら誤字脱字は脳内変換や脳内補完できるはずなんだが、
省1
229: 2024/04/16(火)11:18 ID:zrlvndwL(6/6) AAS
>>224
>220のコードが読めれば>198の意味がわかるはず。
Wolframで計算が終了するように>220の改変を希望。
上下前次1-新書関写板覧索設栞歴
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ
ぬこの手 ぬこTOP 0.052s