1 名前：１３２人目の素数さん mailto:sage [2024/04/06(土) 13:00:48.28 ID:QDHCaaiE.net] 【質問者必読！！】 まず>>1-4をよく読んでね 数学@5ch掲示板用 掲示板での数学記号の書き方例と一般的な記号の使用例 mathmathmath.dotera.net/ ・まずは教科書、参考書、web検索などで調べるようにしましょう。（特に基本的な公式など） ・問題の写し間違いには気をつけましょう。 ・長い分母分子を含む分数はきちんと括弧でくくりましょう。 　　（× x+1/x+2　；　 ○((x+1)/(x+2)) ） ・丸文字、顔文字、その他は環境やブラウザによりうまく表示できない場合があります。 　どうしても画像を貼る場合はPCから直接見られるところに見やすい画像を貼ってください。 　ピクトはPCから見られないことがあるので避けてください。 ・質問者は名前を騙られたくない場合、トリップを付けましょう。 　（トリップの付け方は　名前(N)に　俺！#oretrip　←適当なトリ) ・質問者は回答者がわかるように問題を書くようにしましょう。 　でないと放置されることがあります。 　（変に省略するより全文書いた方がいい、また説明なく習慣的でない記号を使わないように） ・質問者は何が分からないのか、どこまで考えたのかを明記しましょう。 　それがない場合、放置されることがあります。 　（特に、自分でやってみたのに合わないので教えてほしい、みたいなときは必ず書くように） ・ 152 名前：１３２人目の素数さん mailto:sage [2024/04/13(土) 10:09:08.51 ID:QNaR07Rc.net] ◆当選確率1/10000000 の宝くじ 10枚を1日で購入するのと 1枚づつ10日に分けて購入するのとで 当選確率に差はありますか？ 153 名前：１３２人目の素数さん mailto:sage [2024/04/13(土) 11:53:24.26 ID:THFrSUq1.net] >>139 三角形の形に依存するのでは？ 154 名前：１３２人目の素数さん mailto:sage [2024/04/13(土) 12:08:59.07 ID:THFrSUq1.net] 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) 155 名前：１３２人目の素数さん mailto:sage [2024/04/13(土) 20:09:15.94 ID:K9Qs0Ux5.net] >>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の数字を並べよ。 あらゆるリソースを用いてよい。 156 名前：１３２人目の素数さん mailto:sage [2024/04/14(日) 01:43:39.13 ID:qwERWQ ] [ここ壊れてます] 157 名前：Hx.net mailto: >>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); for(n=1;n<=N;n++){ lfac+=log(n); for(mn=floor(lfac/log(2)+1+1e-12);mn>=10;mn/=10); i[(int)mn]++; } for(n=1;n<=9;n++)printf("%ld %ld\n",i[n],n); return 0; } $ gcc -O2 -Wall fact.c -lm -o fact $ echo 2024 | ./fact | sort -g 115 9 117 8 119 7 120 6 124 5 128 4 131 3 140 2 1030 1 さらに1から1000000までの結果 $ echo 1000000 | ./fact | sort -g 59655 9 60133 8 60685 7 61325 6 62090 5 63037 4 64260 3 65987 2 502828 1 [] [ここ壊れてます] 158 名前：１３２人目の素数さん mailto:sage [2024/04/14(日) 03:54:29.80 ID:T4z17oY+.net] >>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} と合致しました。 Benfordの法則が成り立っています。 159 名前：１３２人目の素数さん mailto:sage [2024/04/14(日) 04:14:14.25 ID:T4z17oY+.net] 順位はみてのとおり 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] Out[11]= {9, 8, 7, 6, 5, 4, 3, 2, 1} 160 名前：１３２人目の素数さん mailto:sage [2024/04/14(日) 05:15:47.10 ID:T4z17oY+.net] 飲酒や喫煙は高校生には禁じられているが、プログラムは禁じられていない。 LGBTが叫ばれる昨今では不純異性交際は微妙ｗ 朝飯前の問題 素数を小さい順に100万個集める。 先頭の数字として現れる数字を頻度の多い順に並べなさい。 あらゆるリソースを用いてよい。 161 名前：１３２人目の素数さん mailto:sage [2024/04/14(日) 05:37:39.50 ID:T4z17oY+.net] 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]}]] Out[31]= {1, 2, 3, 4, 5, 6, 7, 8, 9} Benfordの法則が成立している。 東大合格者による他言語での検証を希望します。 162 名前：１３２人目の素数さん mailto:sage [2024/04/14(日) 06:26:34.13 ID:KAPnCPO9.net] >>151-153 明らかにスレチだし明らかに自演だよね 163 名前：１３２人目の素数さん mailto:sage [2024/04/14(日) 07:10:18.58 ID:T4z17oY+.net] >>157 自演だったら俺がC言語の達人ということになるのだが、 受験板ではないので問題の意味が高校数学の範囲で理解できれば許容される。 小学校の算数や図形の問題を方程式や三角関数を使って解いても構わない。 164 名前：１３２人目の素数さん mailto:sage [2024/04/14(日) 07:29:28.93 ID:1U/RnNK4.net] 小学生の算数に方程式や三角関数でドヤられても恥ずかしい大人なだけじゃん 散々スルーされても分からないんだね、だから自演なんかやるんだ しかも自分のこと達人とか言って笑 165 名前：１３２人目の素数さん mailto:sage [2024/04/14(日) 08:18:36.65 ID:T4z17oY+.net] >>147 草　多用する理由は図星。 Q.E.D. 166 名前：１３２人目の素数さん mailto:sage [2024/04/14(日) 08:38:59.77 ID:1U/RnNK4.net] >>160 一回使っただけで多様？アホなん？w 167 名前：１３２人目の素数さん mailto:sage [2024/04/14(日) 09:25:10.95 ID:qwERWQHx.net] 152は151,153とは別人で、単に大きな階乗の計算は対数とれば簡単に計算できることを示したかっただけです。 スレを荒らしてしまったようですまない。 168 名前：１３２人目の素数さん mailto:sage [2024/04/14(日) 09:43:43.74 ID:T4z17oY+.net] 宝くじまとめ買いの問題 宝くじ1万枚が1枚2500円で売り出され、うち20枚が当たりである。 当たれば1枚につき賞金100万円がもらえる。 一度に10枚買って当たりが1枚でもあればそこで終了。 1枚も当たらなければ残りの9990枚から10枚を買う。 それでも当たらなければ残りの9980枚から10枚を買う。 以下同様に、少なくとも1枚の当たりがでるまで買い続ける。 (1) 獲得賞金−購入総額の期待値と中央値を求めよ。 (2) 1枚いくらであれば期待値が０になるか求めよ。 あらゆるリソースを用いてよい。 例　Rで乱数発生させてのシミュレーション N=10000 n=20 m=10 sim=\(){ i=1 L=rep(0:1,c(N-n,n)) j=sum(sample(L,m)) while(j==0){ L=rep(0:1,c(N-n-m*i,n)) j=sum(sample(L,m)) i=i+1 } c(i,j) } k=1e5 ij=t(replicate(k,sim())) hist(ij[,1]) summary(ij[,1]) table(ij[,2]) f=\(x,price=2500,award=1e6){ -price*x[1]*m+award*x[2] } profit=apply(ij,1,f) summary(profit) (colSums(ij)[2]*10^6)/(m*colSums(ij)[1]) 169 名前：１３２人目の素数さん mailto:sage [2024/04/14(日) 09:53:10.13 ID:T4z17oY+.net] >>161 日本語が不自由な実例。 ＞一回使っただけで多様 多様　 多様　　　 多様　　　　 多様　　　　　　　 アホなん？w 170 名前：１３２人目の素数さん mailto:sage [2024/04/14(日) 09:57:12.09 ID:T4z17oY+.net] >>162 Cだと浮動小数点数をつかうから floor(lfac/log(2)+1+1e-12)とかの工夫が必要になってきますよね。 Rも同様なので大きな数字を扱うときは丸め誤差がでてきます。 171 名前：１３２人目の素数さん [2024/04/14(日) 10:00:09.95 ID:SzjJa5LD.net] >>153 >>Benfordの法則が成り立っています。 どこが成立？ 単に、順位が逆転していないことを以て成立と言っている？ 法則によれば、先頭の数字が 1 になるのは 3 割程度 2024までの結果では5割を越えている 10^6までの結果でも4割を越え、これは誤差の範囲ではない。 原因は、明白だが、理解している？ 指摘されなければ、見向きもしなかっただろう。ただ高級な道具を与えられ遊んでいるだけ。 このようなことをやっている人物に、新発見や進歩など望むべくもない。 172 名前：１３２人目の素数さん mailto:sage [2024/04/14(日) 10:01:00.75 ID:T4z17oY+.net] >>163 期待値は負で中央値は正という、ギャンブルとしては良心的な価格設定。 CやPythonの使える東大合格者による検証を期待します。 173 名前：１３２人目の素数さん mailto:sage [2024/04/14(日) 11:22:14.19 ID:CqnVU4YK.net] >>165 wwwwwwwwwwwwwwwwwwww 174 名前：１３２人目の素数さん [2024/04/14(日) 12:37:41.98 ID:1IJEb63F.net] https://oshiete.goo.ne.jp/qa/13764454.html 永遠の中２帰国子（女） 175 名前：１３２人目の素数さん mailto:sage [2024/04/14(日) 12:43:59.56 ID:T4z17oY+.net] >>166 順位が1,2,3..8,9になれば広義のBenfordの法則が成立。 1が最頻でも超広義のBenfordの法則が成立。ｐ 176 名前：１３２人目の素数さん mailto:sage [2024/04/14(日) 12:47:12.44 ID:T4z17oY+.net] >>166 罵倒　＞　助言　の　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. 177 名前：１３２人目の素数さん mailto:sage [2024/04/14(日) 12:55:15.06 ID:CqnVU4YK.net] 毎回必ずアホな事書いて恥かかないと死ぬ病気wwwwwwwwwwwwwwwwwww 178 名前：１３２人目の素数さん mailto:sage [2024/04/14(日) 13:35:40.83 ID:1U/RnNK4.net] >>16 179 名前：4 沸点低すぎない？ どんだけ余裕ないんだよw そんなに嬉しいなら沢山草つけてやろうか？ww [] [ここ壊れてます] 180 名前：１３２人目の素数さん mailto:sage [2024/04/14(日) 15:07:11.15 ID:T4z17oY+.net] >>163 仕様書をみながらWolfram言語に移植してみた。推敲歓迎。 sim := ( n0=10000; n=n0; n20=20; n10=10; count=1; atari=Total[Boole[Table[RandomInteger[n,n10][[i]] <= n20,{i,n10}]]]; While[atari==0,n-=20;count++;atari=Total[Boole[Table[RandomInteger[n,n10][[i]] <= n20,{i,n10}]]]]; li={count,atari} ) k=10^5 re=Table[sim,k] p=2500 a=1000000 balance=Table[-p*n10*re[[i,1]]+re[[i,2]]*a,{i,k}] N[Mean[balance]] N[Median[balance]] 181 名前：１３２人目の素数さん mailto:sage [2024/04/14(日) 15:42:56.56 ID:T4z17oY+.net] >>174 自己推敲 sim := ( n0=10000; n=n0; n20=20; n10=10; count=1; atari=Total[Boole[Table[RandomInteger[n,n10][[i]] <= n20,{i,n10}]]]; While[atari==0,n-=n10;count++;atari=Total[Boole[Table[RandomInteger[n,n10][[i]] <= n20,{i,n10}]]]]; li={count,atari} ) k=10^5 re=Table[sim,k] p=2500 a=1000000 balance=Table[-p*n10*re[[i,1]]+re[[i,2]]*a,{i,k}] N[Mean[balance]] N[Median[balance]] 182 名前：１３２人目の素数さん mailto:sage [2024/04/14(日) 16:01:13.29 ID:T4z17oY+.net] >>163 追加の課題 一度の1枚ずつ当たりがでるまで購入した場合の損益の期待値と中央値を求めて 10枚の場合と比較せよ。 >148の設定だと面白くないので改題して計算してみた。 Wolfram言語の課題として役立った。 183 名前：１３２人目の素数さん mailto:sage [2024/04/14(日) 16:20:35.12 ID:T4z17oY+.net] >>173 つまり、 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. でいいってことだな。 184 名前：１３２人目の素数さん mailto:sage [2024/04/14(日) 16:21:03.26 ID:T4z17oY+.net] >>173 他スレでの英単語スペルミスをコピペして世論でいるのが Phimoseくん。 185 名前：１３２人目の素数さん [2024/04/14(日) 17:09:17.84 ID:TQbd33b9.net] >>142 kk−3^n = m, が複数の解をもつようなmの例 m　　(n,k) 13　(1,4)　(5,16) 22　(1,5)　(3,7)　(7,47) 40　(2,7)　(4,11) 46　(1,7)　(5,17) 55　(2,8)　(6,28) 112　(2,11)　(6,29) 117　(3,12)　(7,48) 118　(1,11)　(5,19) 198　(5,21)　(9,141) 280　(2,17)　(4,19) 286　(1,17)　(5,23) 360　(4,21)　(6,33) 414　(3,21)　(7,51) 481　(1,22)　(9,142) 495　(4,24)　(8,84) 567　(2,24)　(6,36) 598　(3,25)　(5,29) 622　(1,25)　(7,53) 781　(1,28)　(5,32) 838　(1,29)　(7,55) 952　(2,31)　(6,41) 186 名前：１３２人目の素数さん mailto:sage [2024/04/14(日) 18:37:48.40 ID:prKeV3wM.net] ◆1ユニット1000万枚の宝くじ 1ユニットに1等1億円が1枚入っている 売れ残りのくじは 当選者unknownとして廃棄される 販売期間は30日間 全国1000箇所のチャンスセンターで 販売される 全てのくじが売れた場合 1等1億円の当選確率は1/10000000 (一枚だけ購入した時) 一回で10枚購入するのと 1日1枚づつ10日かけて購入するのとで 1等の当選確率に差は生じるか？ 187 名前：１３２人目の素数さん mailto:sage [2024/04/14(日) 19:18:49.23 ID:1U/RnNK4.net] 草生やされる度に発狂w そもそもnurseの複数形もろくに綴れないチンパンがなんでチンパン英語なんか使ってるの？ 188 名前：１３２人目の素数さん mailto:sage [2024/04/14(日) 19:25:20.47 ID:1U/RnNK4.net] 尿瓶ジジイID:T4z17oY+お得意のチンパン英語とくとご覧あれ 724 卵の名無しさん (ﾜｯﾁｮｲ 3358-8TD4 [14.13.16.0])[sage] 2022/10/05(水) 13:30:27.35 ID:rczEbvNg0 I told my colleage nureses that I have such allergy to beauties that I feel itchy everywhere when I work with them. Ahahahahahah >colleage >nureses 920 卵の名無しさん (JP 0H52-BsRZ [217.138.212.122 [上級国民]])[sage] 2023/03/24(金) 15:55:12.52 ID:sCq5Ou+HH 先々週のseptick shockの患者、懇意なナースに聞いたらもう食事が始まっていますよと教えてくれた。 夜遅くまで麻酔をかけたのが報われた感じで気分が( ・∀・)ｲｲ!! 報酬も良かったし >septick shock nurseの複数形すらろくに綴れないアホキモチンパンジジイwそれ以降また間違ってアホを晒さないために毎回ナースと日本語しか使わなくなったとさ 実に残念なオツムであった 189 名前：１３２人目の素数さん mailto:sage [2024/04/14(日) 19:32:01.80 ID:T4z17oY+.net] >>142 100以下なら31組 1 : 2 1 1 2 : 3 1 6 3 : 4 1 13 4 : 4 2 7 5 : 5 1 22 6 : 5 2 16 7 : 6 1 33 8 : 6 2 27 9 : 6 3 9 10 : 7 1 46 11 : 7 2 40 12 : 7 3 22 13 : 8 1 61 14 : 8 2 55 15 : 8 3 37 16 : 9 1 78 17 : 9 2 72 18 : 9 3 54 19 : 10 1 97 20 : 10 2 91 21 : 10 3 73 22 : 10 4 19 23 : 11 3 94 24 : 11 4 40 25 : 12 4 63 26 : 13 4 88 27 : 16 5 13 28 : 17 5 46 29 : 18 5 81 30 : 28 6 55 31 : 47 7 22 190 名前：１３２人目の素数さん mailto:sage [2024/04/14(日) 19:32:31.75 ID:T4z17oY+.net] >>143 解なし 191 名前：１３２人目の素数さん mailto:sage [2024/04/14(日) 19:34:22.45 ID:T4z17oY+.net] >>182 他スレでのスペルミスをいつまでも掲げて悦にいっている Phimoseくんが東大合格者だと思うひとはその旨を投稿してください。 俺はシリツだと思うが。 192 名前：１３２人目の素数さん mailto:sage [2024/04/14(日) 19:35:43.88 ID:T4z17oY+.net] 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. 193 名前：１３２人目の素数さん mailto:sage [2024/04/14(日) 19:45:12.63 ID:T4z17oY+.net] >>182 よくできたジョークだと感心。 194 名前：１３２人目の素数さん mailto:sage [2024/04/14(日) 20:00:12.07 ID:1U/RnNK4.net] >>185 ぐうの音も出ないのね、こんな初歩的なミスしてw しかも複数w 195 名前：１３２人目の素数さん mailto:sage [2024/04/14(日) 20:01:15.09 ID:1U/RnNK4.net] >>187 アホ晒されて発狂してるのに自画自賛とかどこまで頭の中お花畑なの？やっぱり統失なの？w 196 名前：１３２人目の素数さん [2024/04/14(日) 21:27:20.04 ID:7Zt24lhc.net] y=x^2 とか y=e^x みたいな、下に凸な曲線(Cとします)があるとしますね。 またCより上側に定点Aがあるとします。 Aを通る直線を、直線がCと2点で交わる範囲で動かすとき、 直線とCで囲まれる領域の面積が最小になるのは 　Aが2つの交点の中点になるとき と言えそうな気がするんですが、一般にこれは正しいですか。 197 名前：１３２人目の素数さん mailto:sage [2024/04/14(日) 22:33:27.35 ID:CqnVU4YK.net] 正しい 198 名前：１３２人目の素数さん [2024/04/14(日) 23:08:26.01 ID:TQbd33b9.net] >>190 点Aの座標を(a,b)とし、Aを通る傾きmの直線を 　y = m(x-a) + b　とする。 曲線Cを y = f(x) とし、f(x) は連続とする。 交点 P, Q のx座標 p(m), q(m) は mに関して微分可能とする。 直線とCで囲まれる領域の面積は 　S(m) = ∫[p(m), q(m)] {m(x-a)+b−f(x)} dx, これをmで微分すれば 　dS/dm = −(dp/dm) {m(p-a)+b−f(p)} + (dq/dm){m(q-a)+b−f(q)} 　　　　　+ ∫[p,q] (x-a) dx 　　　= ∫[p,q] (x-a) dx　　　　　　　　(*) 　　　= [ (1/2)(x-a)^2 ](p→q) 　　　= (1/2){(q-a)^2 − (p-a)^2} 　　　= (1/2)(q-p)(q+p-2a), ここで　点P, Qが交点であること： 　m(p-a)+b−f(p) = 0,　m(q-a)+b−f(q) = 0, を使った。 さて、あるmで S(m)が極値をとるならば　dS/dm = 0, 交点は2つあるので　p<q, ∴　q + p -2a = 0, ∴　A は PQ の中点になる。　　　　(終) (参考書) 高木貞治：「解析概論」改訂第三版, 岩波書店 (1961) 　p.164 下 〜 p.165 上 　"α" がここに云うmにあたる。 199 名前：１３２人目の素数さん mailto:sage [2024/04/14(日) 23:19:36.18 ID:LzJRApHc.net] d/dθ∫[θ-π/2,θ+π/2]r^2/2dθ =r(θ+π/2)-r(θ-π/2) 200 名前：１３２人目の素数さん [2024/04/14(日) 23:26:38.49 ID:TQbd33b9.net] >>142 は、 　一つのmに対して複数の解 (n,k) が存在するもの、 　m = 13, 22, 40, 46, 55 が該当しますね。 201 名前：１３２人目の素数さん mailto:sage [2024/04/15(月) 06:58:37.40 ID:c1EB406w.net] Wolframscriptで遊ぶ朝飯前の問題 ３の剰余系で 1^2≡1 2^2≡1 の1種類である。 ４の剰余系で1,2,3を累乗すると２もしくは３種類である. ５の剰余系で1,2,3,4を累乗していくと２乗で２種類、３乗で４種類、４乗で１種類になる。 ｎの剰余系で1,2,,..,n-1を累乗していくとき１種類になるような２以上の整数ｎの集合をNとする。 Nを小さい順に並べれて行くとき２０２４番目の要素を求めよ。 202 名前：１３２人目の素数さん mailto:sage [2024/04/15(月) 07:54:12.97 ID:c1EB406w.net] >>180 他に買う人はいないという設定？ 203 名前：１３２人目の素数さん mailto:sage [2024/04/15(月) 07:54:37.69 ID:c1EB406w.net] >>180 他に買う人はいないという設定？ 204 名前：１３２人目の素数さん mailto:sage [2024/04/15(月) 07:55:24.10 ID:c1EB406w.net] Wolframscriptで遊ぶ朝飯前の問題 ３の剰余系で 1^2≡1 2^2≡1 の1種類である。 ４の剰余系で1,2,3を累乗すると２もしくは３種類である. ５の剰余系で1,2,3,4を累乗していくと２乗で２種類、３乗で４種類、４乗で１種類になる。 ｎの剰余系で1,2,,..,n-1を累乗していくとき１種類になるような２以上の整数ｎの集合をNとする。 Nを小さい順に並べて行くとき２０２４番目の要素を求めよ。 205 名前：１３２人目の素数さん mailto:sage [2024/04/15(月) 08:44:18.68 ID:sn/DTjPe.net] 頭の悪さが溢れ出てるなwwwwwwwww 206 名前：１３２人目の素数さん [2024/04/15(月) 08:49:33.77 ID:BCQUcGPL.net] というか趣味の悪さ 207 名前：１３２人目の素数さん mailto:sage [2024/04/15(月) 09:03:30.29 ID:sn/DTjPe.net] 自分で考えた文章を第三者目線で見れない人間の作りそうな文章の典型例やなww 208 名前：１３２人目の素数さん mailto:sage [2024/04/15(月) 10:26:49.61 ID:9dAbYngt.net] 罵倒　＞　助言　の　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. 内視鏡バイト終了。 今日はEGD初めての人が3人もいたが上手に検査を受けてくれた。 いつも通り検査中に所見を説明。 ナースが画面上で指差してくれるので捗って(・∀・)ｲｲ!!。 タクシーチケットも1冊支給される有料職場。 209 名前：１３２人目の素数さん [2024/04/15(月) 13:19:28.62 ID:wB4VYegQ.net] >>192 曲線Cが下に凸という条件は不要ということですか。 210 名前：192 [2024/04/15(月) 13:41:31.97 ID:nqVJC6nR.net] はい。 >>193 さんのように 点Aを極とする極座標を使い、 C：　r = g(θ) とした方が簡単なようですが… いずれの場合も 1価性は必要でしょうね。 211 名前：１３２人目の素数さん [2024/04/15(月) 15:22:55.14 ID:VvPBy/lo.net] 「三角形ABCにおいてAC＞BCであり、AB＝３，BC＝２，cos∠BAC＝7/9とする」 で、この後にACやsin∠BACやABCの外接円の半径（中心をOとする）を求めるなどの設問があって 「外接円Oの、点Bを含まない弧AC上に点DをAD＝DCになるように取る。線分ODとACの交点をEとすると」 で、以降の解答が ODとACが垂直に交わるというのが前提で進んでいるんですが、これが垂直になる理由の説明がなく、詰まっています 垂直になる理由を説明いただけると嬉しいです 212 名前：１３２人目の素数さん [2024/04/15(月) 16:06:04.69 ID:wB4VYegQ.net] Dは弧ACのど真ん中の点だからほぼ明らかなのでは？ (図を、ACが手前にくるように置いてみたら) Dは弧ACのど真ん中の点だから角AOD＝角COD。 だからOD(OE)は二等辺三角形OACの頂角Oの二等分線。 213 名前：１３２人目の素数さん [2024/04/15(月) 16:39:36.90 ID:VvPBy/lo.net] ありがとうございます 確かに、三角形OADと三角形OCDは、頂点がO（円の中心）と底辺（それぞれADとCD）が共通で それぞれの三辺の長さも等しいので合同。したがって、角AOE＝COEとなり、角の二等分線になりますね しかも半径でAO＝COなので、EはACの中点で、頂点Oから底辺ACの中点に線を下ろすことになるので垂線になる やはり垂直になりますね 214 名前：１３２人目の素数さん mailto:sage [2024/04/15(月) 17:16:15.70 ID:1MQQ3hNK.net] >>202 有料職場って何？ やっぱり数学どころか日本語不自由なチンパン丸出しだねw 215 名前：１３２人目の素数さん mailto:sage [2024/04/15(月) 17:38:06.81 ID:kQk9moCL.net] >>196 他にも多数の購入者がいる 販売初日よりも10日後、 10日後よりも最終日のほうが 明らかにくじは少なくなる この状況下で 一枚づつ日を変えて10枚購入するか 一回で10枚購入するのかで 一等の当選確率に変化は起こるか？ というお題 216 名前：１３２人目の素数さん mailto:sage [2024/04/15(月) 18:09:45.12 ID:AGWhs6OB.net] DがJordan凸領域だけでは (1) r(θ+π/2)+r(θ-π/2)が最小 (2) r(θ+π/2) = r(θ-π/2) は(1)⇒(2)しか言えない Dが凸関数f(x)によってy≧f(x)で与えられるなら逆も言える 217 名前：１３２人目の素数さん [2024/04/15(月) 18:19:42.76 ID:OUGySYIH.net] 理系の板はワッチョイとか付けられないのか？ 変なのが居着いてるじゃねえか 218 名前：１３２人目の素数さん mailto:sage [2024/04/15(月) 19:07:50.99 ID:38gXiuBd.net] またまた、 罵倒　＞　助言　の　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. 219 名前：１３２人目の素数さん mailto:sage [2024/04/15(月) 19:17:33.77 ID:MVXFUpXF.net] また日本語不自由なのを指摘されて発狂w 220 名前：１３２人目の素数さん mailto:sage [2024/04/15(月) 20:28:51.71 ID:VUd/SPP+.net] 質問です。 (x + y + 2)(x - y + 2) の展開で与式を = (x + A)(x - A) = x^2 - A^2 = x^2 - (y + 2)^2 = x^2 - (y^2 + 4y + 4) = x^2 - y^2 - 4y - 4 と計算しましたが間違ってました。 正解は = (x + 2 + y)(x + 2 - y) = (A + y)(A - y) = A^2 - y^2 = (x + 2)^2 - y^2 = x^2 + 4x + 4 - y^2 でした。 疑問点は ① y + 2 を A と置いてはだめなのか？その理由はなんなのか？ ② -(y + 2)^2 は{ -1 * (y + 2)^2 }={ -y^2 + 4y + 4 }と計算すべきだったか？ という点です。 よろしくお願いいたします。 221 名前：１３２人目の素数さん [2024/04/15(月) 21:03:10.71 ID:nqVJC6nR.net] ?　y+2 = B　とおくと 　( 222 名前：与式) = (x+B)(x+4−B) 　　= xx + 4x + B(4-B) 　　= xx + 4x + (2+y)(2-y) 　　= xx + 4x + 4−yy, でもダメぢゃないけど、ちょっと面倒だ。 　(和の半分)^2− (差の半分)^2 を使うのがラク。 ?　−(y+2)^2 = −(yy+4y+4) 　はこれでよい。 [] [ここ壊れてます] 223 名前：１３２人目の素数さん mailto:sage [2024/04/15(月) 21:29:34.26 ID:fPMqine1.net] >>215 レスありがとうございます。 ① (x+B)(x+4-B) は (x+B)(x-B)ではないのですか？ +4はなぜ加えて良いのでしょうか？ ② わかりました。 224 名前：１３２人目の素数さん mailto:sage [2024/04/15(月) 23:35:09.02 ID:EUcNUtE5.net] >>210 の(1)は (1)∫[θ-π/2,θ+π/2](1/2)r(θ)^2dθ が最小 225 名前：215 [2024/04/16(火) 00:21:37.00 ID:02gDREfj.net] >>216 �@ それが問題だ... 226 名前：１３２人目の素数さん mailto:sage [2024/04/16(火) 02:51:44.72 ID:DnAfhObi.net] >>218 わからないですよぉ 教えてくらさい 227 名前：１３２人目の素数さん mailto:sage [2024/04/16(火) 07:17:02.79 ID:zrlvndwL.net] >>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のスクリプトくらい書けないの？ 228 名前：１３２人目の素数さん mailto:sage [2024/04/16(火) 07:32:48.16 ID:yptNX5Dl.net] >>209 当選しているかどうかは販売中にはわからないなら 何枚購入したかにだけによって決まると思うが。 229 名前：１３２人目の素数さん mailto:sage [2024/04/16(火) 07:37:37.56 ID:5lE9z/9s.net] >>219 y+2がAなんだろ つまりyはA-2だろ ちゃんと代入しろよ 230 名前：１３２人目の素数さん mailto:sage [2024/04/16(火) 08:22:09.89 ID:xLkfiiS3.net] 日本語不自由なのにwolframとか豚に真珠もいいところ 231 名前：１３２人目の素数さん mailto:sage [2024/04/16(火) 09:39:30.06 ID:dTcuSQje.net] 文章がおかしくて意味が通じない 頭悪いやつがプログラム始めるとこうなる 文法的におかしな文章書いても計算機はとりあえず動いてくれるのであまり考えないで文章作るクセがつく ある程度の知能があれば防げるが閾値以下の知能だと永遠に転がり落ちる 232 名前：１３２人目の素数さん mailto:sage [2024/04/16(火) 10:27:56.91 ID:zrlvndwL.net] 登録すればテキストベースの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} 233 名前：１３２人目の素数さん mailto:sage [2024/04/16(火) 10:44:45.31 ID:zrlvndwL.net] これは正しいか？ nを2以上の整数とし、mを1,2,3,...,n-2,n-1とする. � 234 名前：ﾇの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} [] [ここ壊れてます] 235 名前：１３２人目の素数さん mailto:sage [2024/04/16(火) 10:45:35.73 ID:zrlvndwL.net] >>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. 236 名前：１３２人目の素数さん mailto:sage [2024/04/16(火) 11:04:45.30 ID:zrlvndwL.net] >>224 ＞文法的におかしな文章書いても計算機はとりあえず動いてくれる 普通はエラーメッセージがでるぞ。 括弧対応を自動修正してくれたりするのもあるけど。 Log[Sin[Pi-1]を入力するとWolframalpha.comは括弧を補完して計算値を出力してくれるが、 Wolfram Language 14.0.0 Engine for Microsoft Windows (64-bit)だと何も出力されない。 人間なら誤字脱字は脳内変換や脳内補完できるはずなんだが、 Phimoseくんにはそれができないらしい。 237 名前：１３２人目の素数さん mailto:sage [2024/04/16(火) 11:18:16.20 ID:zrlvndwL.net] >>224 >220のコードが読めれば>198の意味がわかるはず。 Wolframで計算が終了するように>220の改変を希望。 238 名前：１３２人目の素数さん mailto:sage [2024/04/16(火) 12:26:46.23 ID:yYpojJZp.net] >>228 自分のこと医者だとかそれも脳内変換してるの？w 239 名前：１３２人目の素数さん mailto:sage [2024/04/16(火) 12:31:22.03 ID:xLkfiiS3.net] 草の不等式とかどこのチンパン算数だよ笑 240 名前：１３２人目の素数さん [2024/04/16(火) 13:05:04.63 ID:02gDREfj.net] >>226 nが約数d (1<d<n) をもてば 　d^{n-1} と n は公約数 d>1 をもつから 　d^{n-1} ≠ 1　　　(mod n) 241 名前：１３２人目の素数さん mailto:sage [2024/04/16(火) 14:47:02.40 ID:puDwkr/w.net] >>230 医師が羨ましいなら再受験すればいいのに 同期は２〜３割は再受験組だった。 ほとんど東大卒か京大卒。 阪大は学士入学制度があったから阪大卒はいなかったな。 歯学部には東大数学科卒もいた。 242 名前：１３２人目の素数さん mailto:sage [2024/04/16(火) 14:48:26.41 ID:puDwkr/w.net] >>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. 243 名前：１３２人目の素数さん mailto:sage [2024/04/16(火) 15:02:12.74 ID:7gGe0Okf.net] >>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]を表示する。 これでもかなり遅いが、正常には動く。 244 名前：イナ mailto:sage [2024/04/16(火) 16:16:41.43 ID:TfmndFPE.net] 前>>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° 245 名前：１３２人目の素数さん mailto:sage [2024/04/16(火) 17:08:43.41 ID:ZdfS6U2G.net] >>233 尿瓶ジジイって自分の都合の悪いことは全部スルーなんだね なんでほとんどスルーされてるか分からないのか？ 246 名前：１３２人目の素数さん mailto:sage [2024/04/16(火) 17:33:38.95 ID:RRexi8To.net] >>235 それだと1種類になるのは(n-1)乗であるという前提での計算ではないですか？ 247 名前：１３２人目の素数さん mailto:sage [2024/04/16(火) 17:36:18.08 ID:sfg23OwZ.net] tは0<t<π/2かつcost=1/3を満たす実数とする。 （1）cos2t,cos3tを求めよ。 （2）tは無理数であることを示せ。 248 名前：１３２人目の素数さん mailto:sage [2024/04/16(火) 18:44:53.55 ID:RRexi8To.net] >>237 罵倒　＞　助言　の　Phimose草の不等式の実証乙。 東大合格者が>236で俺の出題に解答をレスしていますなぁ。 249 名前：１３２人目の素数さん mailto:sage [2024/04/16(火) 18:47:49.98 ID:ZdfS6U2G.net] 何を持って東大合格者()なんだよ？ 卒業証書でも出したのか？それともアンタと同じ自称か？ 250 名前：１３２人目の素数さん mailto:sage [2024/04/16(火) 19:05:14.19 ID:RRexi8To.net] >>239 R言語での小数解 > t=uniroot(\(x) cos(x)-1/3,c(1,pi/2),tol = 1e-16)$root > cos(2*t) [1] -0.7777778 > cos(3*t) [1] -0.8518519 251 名前：１３２人目の素数さん mailto:sage [2024/04/16(火) 19:07:20.58 ID:RRexi8To.net] >>241 東大合格していたらそんな疑問は投稿しないよなぁ。 医師国試の合格率とかに言及するのは裏口容疑者のシリツ医。 Phimoseくんはシリツなんだろ？ 252 名前：１３２人目の素数さん mailto:sage [2024/04/16(火) 19:12:02.49 ID:RRexi8To.net] >>238 >226を前提にしたら In[1]:= Prime[2024] Out[1]= 17599 で終了。

---

---

[ 続きを読む ] / [ 携帯版 ]

read.cgi ver5.27 [feat.BBS2 +1.6] / e.0.2 (02/09/03) / eucaly.net products.
担当:undef