[過去ﾛｸﾞ]
高校数学の質問スレ Part434 (1002ﾚｽ)
高校数学の質問スレ Part434 http://rio2016.5ch.io/test/read.cgi/math/1712376048/
上
下
前
次
1-
新
通常表示
512ﾊﾞｲﾄ分割
ﾚｽ栞
このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索
歴削→次ｽﾚ
栞削→次ｽﾚ
過去ﾛｸﾞﾒﾆｭｰ
218: 215 [] 2024/04/16(火) 00:21:37.00 ID:02gDREfj >>216 ? それが問題だ... http://rio2016.5ch.io/test/read.cgi/math/1712376048/218
219: １３２人目の素数さん [sage] 2024/04/16(火) 02:51:44.72 ID:DnAfhObi >>218 わからないですよぉ 教えてくらさい http://rio2016.5ch.io/test/read.cgi/math/1712376048/219
220: １３２人目の素数さん [sage] 2024/04/16(火) 07:17:02.79 ID:zrlvndwL >>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]] n 数が大きすぎて計算が終わらないｗ 想定解は17599 1種類になることなら確認できる。 fn[n_] := Table[Mod[a^(n-1),n],{a,n-1}] // Union fn[17599] In[20]:= fn[17599] Out[20]= {1} 東大合格者による検証を希望します。 Rを馬鹿にしていたPhimoseくんってWolframのスクリプトくらい書けないの？ http://rio2016.5ch.io/test/read.cgi/math/1712376048/220
221: １３２人目の素数さん [sage] 2024/04/16(火) 07:32:48.16 ID:yptNX5Dl >>209 当選しているかどうかは販売中にはわからないなら 何枚購入したかにだけによって決まると思うが。 http://rio2016.5ch.io/test/read.cgi/math/1712376048/221
222: １３２人目の素数さん [sage] 2024/04/16(火) 07:37:37.56 ID:5lE9z/9s >>219 y+2がAなんだろ つまりyはA-2だろ ちゃんと代入しろよ http://rio2016.5ch.io/test/read.cgi/math/1712376048/222
223: １３２人目の素数さん [sage] 2024/04/16(火) 08:22:09.89 ID:xLkfiiS3 日本語不自由なのにwolframとか豚に真珠もいいところ http://rio2016.5ch.io/test/read.cgi/math/1712376048/223
224: １３２人目の素数さん [sage] 2024/04/16(火) 09:39:30.06 ID:dTcuSQje 文章がおかしくて意味が通じない 頭悪いやつがプログラム始めるとこうなる 文法的におかしな文章書いても計算機はとりあえず動いてくれるのであまり考えないで文章作るクセがつく ある程度の知能があれば防げるが閾値以下の知能だと永遠に転がり落ちる http://rio2016.5ch.io/test/read.cgi/math/1712376048/224
225: １３２人目の素数さん [sage] 2024/04/16(火) 10:27:56.91 ID:zrlvndwL 登録すればテキストベースの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] Out[1]= {1, 1, 1, 1, 1, 1, 0, 1, 0, 0, 0} IntegerDigitsをRにone-linerとして移植 IntegerDigits=\(n,b) (n%/% (b^(floor(log(n)/log(b)):0))) %% b > IntegerDigits(2024,2) [1] 1 1 1 1 1 1 0 1 0 0 0 再度、RからWolframにone-linerとして再移植 In[2]:= integerdigits[n_,b_] := Table[Mod[e,b],{e, Table[Quotient[n,d],{d,Table[b^c,{c,Reverse[Range[0,Floor[Log[n]/Log[b]]]]}]}] }] In[3]:= integerdigits[2024,2] Out[3]= {1, 1, 1, 1, 1, 1, 0, 1, 0, 0, 0} http://rio2016.5ch.io/test/read.cgi/math/1712376048/225
226: １３２人目の素数さん [sage] 2024/04/16(火) 10:44:45.31 ID:zrlvndwL これは正しいか？ 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}] In[2]:= f[17] Out[2]= {1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1} In[3]:= f[19] Out[3]= {1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1} In[4]:= f[23] Out[4]= {1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1} http://rio2016.5ch.io/test/read.cgi/math/1712376048/226
227: １３２人目の素数さん [sage] 2024/04/16(火) 10:45:35.73 ID:zrlvndwL >>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. http://rio2016.5ch.io/test/read.cgi/math/1712376048/227
228: １３２人目の素数さん [sage] 2024/04/16(火) 11:04:45.30 ID:zrlvndwL >>224 ＞文法的におかしな文章書いても計算機はとりあえず動いてくれる 普通はエラーメッセージがでるぞ。 括弧対応を自動修正してくれたりするのもあるけど。 Log[Sin[Pi-1]を入力するとWolframalpha.comは括弧を補完して計算値を出力してくれるが、 Wolfram Language 14.0.0 Engine for Microsoft Windows (64-bit)だと何も出力されない。 人間なら誤字脱字は脳内変換や脳内補完できるはずなんだが、 Phimoseくんにはそれができないらしい。 http://rio2016.5ch.io/test/read.cgi/math/1712376048/228
229: １３２人目の素数さん [sage] 2024/04/16(火) 11:18:16.20 ID:zrlvndwL >>224 >220のコードが読めれば>198の意味がわかるはず。 Wolframで計算が終了するように>220の改変を希望。 http://rio2016.5ch.io/test/read.cgi/math/1712376048/229
230: １３２人目の素数さん [sage] 2024/04/16(火) 12:26:46.23 ID:yYpojJZp >>228 自分のこと医者だとかそれも脳内変換してるの？w http://rio2016.5ch.io/test/read.cgi/math/1712376048/230
231: １３２人目の素数さん [sage] 2024/04/16(火) 12:31:22.03 ID:xLkfiiS3 草の不等式とかどこのチンパン算数だよ笑 http://rio2016.5ch.io/test/read.cgi/math/1712376048/231
232: １３２人目の素数さん [] 2024/04/16(火) 13:05:04.63 ID:02gDREfj >>226 nが約数d (1<d<n) をもてば d^{n-1} と n は公約数 d>1 をもつから d^{n-1} ≠ 1 (mod n) http://rio2016.5ch.io/test/read.cgi/math/1712376048/232
233: １３２人目の素数さん [sage] 2024/04/16(火) 14:47:02.40 ID:puDwkr/w >>230 医師が羨ましいなら再受験すればいいのに 同期は２〜３割は再受験組だった。 ほとんど東大卒か京大卒。 阪大は学士入学制度があったから阪大卒はいなかったな。 歯学部には東大数学科卒もいた。 http://rio2016.5ch.io/test/read.cgi/math/1712376048/233
234: １３２人目の素数さん [sage] 2024/04/16(火) 14:48:26.41 ID:puDwkr/w >>231 草が多用される理由。 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. http://rio2016.5ch.io/test/read.cgi/math/1712376048/234
235: １３２人目の素数さん [sage] 2024/04/16(火) 15:02:12.74 ID:7gGe0Okf >>220 UnionもLengthもMinもいらない。 O(n^2)のメモリもいらない。 count=0; Do[ For[flag=1;k=1,flag==1 && k<n,k++,If[Mod[k^(n-1),n]==1,Null,flag=0]]; If[flag==1,count++;Print[{count,n,Prime[count]}],Null]; ,{n,2,18000}] k=1,2,3,...,n-1に対し、Mod[k^(n-1),n]==1 となるような n を見つけたら、 countを1アップして、countとnとPrime[count]を表示する。 これでもかなり遅いが、正常には動く。 http://rio2016.5ch.io/test/read.cgi/math/1712376048/235
236: イナ ◆/7jUdUKiSM [sage] 2024/04/16(火) 16:16:41.43 ID:TfmndFPE 前>>121 >>73 求める辺の長さをaと内角をαとすると、 これらが最大となるとき三角形は、 底辺の長さがaで頂角がαの二等辺三角形で、 内接円の中心と外接円の中心の距離をdとすると、 二等辺三角形の高さは9+4-d ピタゴラスの定理より底辺の半分は、 a/2=√｛9^2-(4-d)^2｝ α/2の角を共通に持つ直角三角形の相似により、 4：a/2=√｛(9-d)^2-4^2｝：9-d+4 4：√｛81-(16-8d+d^2)｝=√｛81-18d+d^2-16｝：13-d 4(13-d)=√｛(65+8d-d^2)(65-18d+d^2)｝ 16(169-26d+d^2)=65^2-650d-d^2(144-26d+d^2) d^4-26d^3+160d^2+234d-1521=0 (d-3)(d^3-23d^2+91d+507)=0 d=3 a/2=√(81-1)=√80=4√5 ∴a=8√5 二等辺三角形の高さは9+4-3=10だから、 余弦定理より、 cosα=[2｛10^2+(4√5)^2｝-(8√5)^2]/[2｛10^2+(4√5)^2｝] =(360-320)/360 =1/9 =0.1111111111…… cos83.6206297922°=0.1111111111 ∴α=83.6° http://rio2016.5ch.io/test/read.cgi/math/1712376048/236
237: １３２人目の素数さん [sage] 2024/04/16(火) 17:08:43.41 ID:ZdfS6U2G >>233 尿瓶ジジイって自分の都合の悪いことは全部スルーなんだね なんでほとんどスルーされてるか分からないのか？ http://rio2016.5ch.io/test/read.cgi/math/1712376048/237
ﾒﾓ帳
(0/65535文字)
上
下
前
次
1-
新
書
関
写
板
覧
索
設
栞
歴
あと 765 ﾚｽあります
ｽﾚ情報
赤ﾚｽ抽出
画像ﾚｽ抽出
歴の未読ｽﾚ
AAｻﾑﾈｲﾙ
Google検索
Wikipedia
ぬこの手
ぬこTOP
0.015s