[過去ﾛｸﾞ]
高校数学の質問スレ Part434 (1002ﾚｽ)
高校数学の質問スレ Part434 http://rio2016.5ch.net/test/read.cgi/math/1712376048/
上
下
前
次
1-
新
通常表示
512ﾊﾞｲﾄ分割
ﾚｽ栞
このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索
歴削→次ｽﾚ
栞削→次ｽﾚ
過去ﾛｸﾞﾒﾆｭｰ
111: １３２人目の素数さん [sage] 2024/04/11(木) 21:38:53.36 ID:/O2TM3Ga >>108 最小値なし (sinx/siny)+(siny/sinz)+(sinz/sinx) > 3 http://rio2016.5ch.net/test/read.cgi/math/1712376048/111
112: １３２人目の素数さん [sage] 2024/04/11(木) 21:41:41.73 ID:pxF2DG7s ホントに頭悪いんだな http://rio2016.5ch.net/test/read.cgi/math/1712376048/112
113: １３２人目の素数さん [sage] 2024/04/11(木) 22:49:18.99 ID:NAF46hQ9 > f=Vectorize(\(x,y){ + z=pi-x-y + if(x<=y & y<=(pi-x-y)){ + w=sin(x)/sin(y)+sin(y)/sin(x+y)+sin(x+y)/sin(x) + return(w) + }else{ + return(1e16) + } + }) > > opt=optim(runif(2,0,pi),\(x) f(x[1],x[2]),) > while(opt$value>f(1,1)){ + opt=optim(runif(2,0,pi),\(x) f(x[1],x[2])) + } > opt $par [1] 1.046743 1.047364 $value [1] 3 http://rio2016.5ch.net/test/read.cgi/math/1712376048/113
114: １３２人目の素数さん [sage] 2024/04/11(木) 22:49:54.75 ID:NAF46hQ9 東大を目指す高校生は罵倒しかレスしないクズ人間になっちゃだめだぞ http://rio2016.5ch.net/test/read.cgi/math/1712376048/114
115: １３２人目の素数さん [sage] 2024/04/11(木) 22:53:31.87 ID:/O2TM3Ga >>111 x=y=z=pi/3 のとき最小値3 http://rio2016.5ch.net/test/read.cgi/math/1712376048/115
116: １３２人目の素数さん [sage] 2024/04/11(木) 22:56:14.20 ID:2e3xyuht >>114 それってアンタのこと？ http://rio2016.5ch.net/test/read.cgi/math/1712376048/116
117: １３２人目の素数さん [sage] 2024/04/11(木) 23:04:26.01 ID:xK64JHhj ∫[0,π/2] sinx/(1+√sin(2x)) dx = ∫[0,π/2] cosx/(1+√sin(2x)) dx = (1/2)∫[0,π/2] (sinx+cosx)/(1+√sin(2x)) dx = (1/2)∫[0,π/2] (√2)sin(x+π/4)/(1+√sin(2x)) dx = ∫[0,π/4] (√2)cosx/(1+√cos(2x)) dx = ∫[0,π/4] √(1+cos(2x))/(1+√cos(2x)) dx 置換 cos(2x)=(cost)^2, sin(2x)dx=cost sint dt = ∫[0,π/2] √(1+(cost)^2)/(1+cost) cost sint dt/√(1-(cost)^4) = ∫[0,π/2] cost/(1+cost) dt = ∫[0,π/2] (1 - 1/(1+cost)) dt = ∫[0,π/2] (1 - (1/2)/cos(t/2)^2) dt = t - tan(t/2)|_(t=0,π/2) = (π/2) - 1 http://rio2016.5ch.net/test/read.cgi/math/1712376048/117
118: １３２人目の素数さん [sage] 2024/04/11(木) 23:10:03.54 ID:/O2TM3Ga >>104 π/2 - 1 数値積分して検証 > integrate(\(x) sin(x)/(1+sqrt(sin(2*x))),0,pi/2,rel.tol = 1e-12) 0.5707963 with absolute error < 6.8e-13 > pi/2 - 1 [1] 0.5707963 http://rio2016.5ch.net/test/read.cgi/math/1712376048/118
119: １３２人目の素数さん [sage] 2024/04/11(木) 23:29:13.12 ID:5/nt4Nos 一目AM≧GMが見えない時点でポンコツ確定だけど普通にグラフ描かせても内点で最小値とるの見える 計算機がなんにも使えてない http://rio2016.5ch.net/test/read.cgi/math/1712376048/119
120: イナ ◆/7jUdUKiSM [sage] 2024/04/12(金) 04:01:10.90 ID:GsVVSMTi 前>>90 >>93 最大の角を2φとする二等辺三角形の底角を2θとすると、 底辺の1/2はピタゴラスの定理より√(9^2-4^2)=√65=8.0…… sinθ=4/9だからcos^2θ=1-16/81=65/81=(1+cos2θ)/2 cos2θ=2cos^2θ-1=130/81-1=49/81 とくになし。 余弦定理よりcos2φ=[2｛(81√65)/49｝^2-(2√65)^2]/[2｛(81√65)/49｝^2] =(2・81^2・65-4・65・49^2)/(2・81^2・65) =(81^2-2・49^2)/81^2 =(6561-2・2401)/6561 =1759/6561 =0.26809937509…… cos74.45°=0.26807920042…… cos74.44°=0.26824734081…… 74.44°＜2φ＜74.45° ∴△ABCの内角の最大値の有効数字3桁は74.4° http://rio2016.5ch.net/test/read.cgi/math/1712376048/120
121: イナ ◆/7jUdUKiSM [sage] 2024/04/12(金) 04:03:18.86 ID:GsVVSMTi 前>>120 >>73 2√65 http://rio2016.5ch.net/test/read.cgi/math/1712376048/121
122: １３２人目の素数さん [sage] 2024/04/12(金) 06:21:33.16 ID:tOkrCPMl 応用問題 (二等分の条件を緩和) 四角形ABCDで 対角線BDが角Bと角Dをどちらも二等分し、 対角線ACが角Aを二等分しているとき、 この四角形は菱形といえますか。 http://rio2016.5ch.net/test/read.cgi/math/1712376048/122
123: １３２人目の素数さん [sage] 2024/04/12(金) 06:32:39.34 ID:drdB+PmN >>120 レスありがとうございます。 プログラムで算出した想定解は > B2maxA(opt$maximum,TRUE)*180/pi [1] 83.62063 で83.6° 作図すると https://i.imgur.com/1HkumXt.png http://rio2016.5ch.net/test/read.cgi/math/1712376048/123
124: １３２人目の素数さん [sage] 2024/04/12(金) 07:29:39.28 ID:EJkwA63Z 頭悪いなぁ http://rio2016.5ch.net/test/read.cgi/math/1712376048/124
125: １３２人目の素数さん [] 2024/04/12(金) 09:15:45.16 ID:+aIJZesR 今気づいたんだが、132番目の素数＝743でナナシサンって読ませるのね。 上手いなぁ。 http://rio2016.5ch.net/test/read.cgi/math/1712376048/125
126: １３２人目の素数さん [] 2024/04/12(金) 09:37:36.61 ID:+aIJZesR >>122 ACとBDの交点をPとして、 ΔABP ≡ ΔCBP ≡ ΔCDP ≡ ΔADP になるのがわかる。 (なぜなら、角ABP＝角CBP、、、で、 角APB＝角CPD、角BPC＝角DPA、 三角形の内角の和＝180° ( π ) なのを使うと、角ABP＋角BAP ＝ 角CDP＋角DCP、角ADP＋角DAP ＝ 角CBP＋角BCP がわかる。 だから、これを使って合同になることも分かる。) 簡単だけど、念のためやってみると案外頭の体操になるね。 http://rio2016.5ch.net/test/read.cgi/math/1712376048/126
127: １３２人目の素数さん [] 2024/04/12(金) 09:47:09.81 ID:+aIJZesR 高校生の諸君へ。 フェルマーの小定理、つまり以下を示せるかやってみて欲しい。 素数 p に対し、自然数 n をpで割り切れないとする。 この時、n^(p-1) ≡ 1 (mod p) となる。 赤チャートなんかには、問題としてしれっと載っていたと思う。 自分が高一の時だったかな、初見では出来なかったけど…。 http://rio2016.5ch.net/test/read.cgi/math/1712376048/127
128: １３２人目の素数さん [] 2024/04/12(金) 11:17:22.54 ID:W3OozUMf >>73 面積最小のとき >>58 >>66 BC ≦ 8√5 = 17.88854382 ∠A ≦ arccos(1/9) = 2arcsin(2/3) = 83.62062979° http://rio2016.5ch.net/test/read.cgi/math/1712376048/128
129: １３２人目の素数さん [sage] 2024/04/12(金) 13:08:53.80 ID:AAEWs28S >>122 R言語で検証 https://i.imgur.com/7T8fpXN.png 対角線ACの長さを１としてAを原点とする。 直線DAの傾きをpとする。 Dのx座標をxdとすると DCを結んで∠ADCの二等分線と直線y = -pxの交点をBとする。 ∠ABD-∠CBD=0となるようにxdを決定する。 するとpの値によらずxd=0.5となる。 これをプログラムで確認。 calc=\(deg,verbose=FALSE){ theta=deg*pi/180 A=0i C=1+0i p=tan(theta) f=\(xd){ D=xd+1i*p*xd IC=incircle(A,C,D) I=IC[1] B=intsect(D,I,A,1-p*1i) angle(D,B,A)-angle(D,B,C) } f=Vectorize(f) xd=uniroot(f,c(1e-12,1),tol=1e-16)$root if(verbose){ D=xd+1i*p*xd IC=incircle(A,C,D) I=IC[1] B=intsect(D,I,A,1-p*1i) print(c(AB=abs(A-B),BC=abs(B-C),CD=abs(C-D),DA=abs(D-A))) } xd } calc=Vectorize(calc) ∠DACを1°から89°までで実行 calc(1:89) > calc(1:89) [1] 0.5 0.5 0.5 0.5 0.5 0.5 0.5 0.5 0.5 0.5 0.5 0.5 0.5 0.5 0.5 0.5 0.5 0.5 0.5 0.5 0.5 0.5 0.5 [24] 0.5 0.5 0.5 0.5 0.5 0.5 0.5 0.5 0.5 0.5 0.5 0.5 0.5 0.5 0.5 0.5 0.5 0.5 0.5 0.5 0.5 0.5 0.5 [47] 0.5 0.5 0.5 0.5 0.5 0.5 0.5 0.5 0.5 0.5 0.5 0.5 0.5 0.5 0.5 0.5 0.5 0.5 0.5 0.5 0.5 0.5 0.5 [70] 0.5 0.5 0.5 0.5 0.5 0.5 0.5 0.5 0.5 0.5 0.5 0.5 0.5 0.5 0.5 0.5 0.5 0.5 0.5 0.5 http://rio2016.5ch.net/test/read.cgi/math/1712376048/129
130: １３２人目の素数さん [] 2024/04/12(金) 13:27:11.31 ID:W3OozUMf >>127 1≦k≦p-1 かつ (k,p)=1 である k が φ(p) 個あったとする。 このとき φ(p)個の k･n はいずれも pと互いに素で、また どの2つも (pを法として) 合同ではない。 k (pと互いに素) に対して、k'･n≡k となる k' (pと互いに素) が1個ずつある。 それらをすべて掛けると n^φ(n) Π k' ≡ Πk (mod p) n^φ(n) ≡ 1 (mod p) https://mathlandscape,com/fermat-little/ http://rio2016.5ch.net/test/read.cgi/math/1712376048/130
131: １３２人目の素数さん [] 2024/04/12(金) 13:30:14.96 ID:W3OozUMf 訂正 n^φ(p) Π k' ≡ Πk (mod p) n^φ(p) ≡ 1 (mod p) φ( ) は オイラの totient函数 http://rio2016.5ch.net/test/read.cgi/math/1712376048/131
132: １３２人目の素数さん [] 2024/04/12(金) 14:09:09.69 ID:W3OozUMf ↑ pが素数であることは使いませんでした。 本質的なことではないので… http://rio2016.5ch.net/test/read.cgi/math/1712376048/132
133: １３２人目の素数さん [] 2024/04/12(金) 15:07:12.90 ID:u6is2KPU https://oshiete.goo.ne.jp/qa/13764454.html 永遠の中２帰国子（女） http://rio2016.5ch.net/test/read.cgi/math/1712376048/133
134: １３２人目の素数さん [] 2024/04/12(金) 16:17:05.05 ID:W3OozUMf ↑ 整数問題 (1) 3^n = k^3 + 1 を満たす正の整数組(k,n)を全て求めよ。 (2) 3^n = k^2−40 を満たす正の整数組(k,n)を全て求めよ。 千葉大学医学部の過去問らしい。 https://imgur,com/a/Z1D69MG http://rio2016.5ch.net/test/read.cgi/math/1712376048/134
135: １３２人目の素数さん [sage] 2024/04/12(金) 17:27:39.67 ID:EkJkC1be >>114 ただの自己紹介で草 http://rio2016.5ch.net/test/read.cgi/math/1712376048/135
136: １３２人目の素数さん [sage] 2024/04/12(金) 17:28:43.70 ID:sZbW4DJq >>127 二項定理の拡張 (x1+x2+..+xn)^p = Σ[k1+k2+...+kn=p] (p!/(k1!k2!...kn!)) x1^k1 x2^k2 ...xn^kn においてpを素数、x1=x2=...=xn=1とすると、p!/(k1!k2!...kn!)はki=pのときを除きpで割り切れるから n^p ≡ 1^p+1^p+...+1^p ≡ n (mod p) http://rio2016.5ch.net/test/read.cgi/math/1712376048/136
137: １３２人目の素数さん [sage] 2024/04/12(金) 18:59:50.07 ID:drdB+PmN >>134 (1) (2 2) (2) (2 7) (4 11) http://rio2016.5ch.net/test/read.cgi/math/1712376048/137
138: １３２人目の素数さん [sage] 2024/04/12(金) 19:15:18.14 ID:tOkrCPMl >101の条件は過剰だったようだな。 対角線で３つの内角が二等分されていれば十分だった。 http://rio2016.5ch.net/test/read.cgi/math/1712376048/138
139: １３２人目の素数さん [sage] 2024/04/12(金) 19:29:37.17 ID:i4jnL7Jd △ABCのABの中点をL、BCの中点をM、CAの中点をNとする。 △ABCの周および内部を動く点Pがあり、T=(PL+PM+PN)/(PA+PB+PC)とする。 Tの取りうる値の範囲を求めよ。 http://rio2016.5ch.net/test/read.cgi/math/1712376048/139
140: １３２人目の素数さん [] 2024/04/12(金) 21:22:50.96 ID:W3OozUMf >>133,134 (1) 3^n = k^3 + 1 = (k+1)(kk−k+1) = (k+1){(k+1)^2−3(k+1) + 3}, ∴ k+1 = 3^{p+1}, (p≧0) (右辺) = 3^{p+1} (3^{p+2}(3^p−1) + 3) … (A) (A) が3の累乗で表わせるためには 3^p−1 = 0, p = 0, k = 2, n = 2. (2) (-1)^n ≡ 3^n = kk−40 ≠ -1 (mod 4) ∴ n = 2m, (偶数) ∴ −40 = 3^n−kk = (3^m +k)(3^m -k), 3^m ≦ 40−k < 40 より m = 1, 2, 3, n = 2. 4. 6, k = 7, 11, なし. http://rio2016.5ch.net/test/read.cgi/math/1712376048/140
141: １３２人目の素数さん [sage] 2024/04/13(土) 06:48:04.33 ID:QTt1vO79 >>135 罵倒 ＞ 助言 （Phimose草の不等式) 東大入試にでるかもしれんｗ http://rio2016.5ch.net/test/read.cgi/math/1712376048/141
142: １３２人目の素数さん [sage] 2024/04/13(土) 07:23:38.36 ID:OrZY0B6w 朝飯前の練習問題 n,k,mを100以下の正整数とする 3^n=k^2-mが複数の解を持つようなmの値を述べよ。 http://rio2016.5ch.net/test/read.cgi/math/1712376048/142
143: １３２人目の素数さん [sage] 2024/04/13(土) 07:31:31.98 ID:OrZY0B6w 応用問題 n,k,mを100以下の正整数とする 3^n=k^3+mが複数の解を持つようなmの値を述べよ http://rio2016.5ch.net/test/read.cgi/math/1712376048/143
144: １３２人目の素数さん [sage] 2024/04/13(土) 07:48:40.14 ID:OrZY0B6w >>141 東大入試予想問題ｗ 以下を和訳せよ。 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.net/test/read.cgi/math/1712376048/144
145: １３２人目の素数さん [sage] 2024/04/13(土) 08:46:13.09 ID:npT+CEhB >>141 phimoseも罵倒もアンタの自己紹介なんでしょ？ http://rio2016.5ch.net/test/read.cgi/math/1712376048/145
146: １３２人目の素数さん [sage] 2024/04/13(土) 09:05:27.04 ID:OrZY0B6w >>145 草 ＝ foreskinいじりでくさくなった Phimoseくんの常套句。 http://rio2016.5ch.net/test/read.cgi/math/1712376048/146
147: １３２人目の素数さん [sage] 2024/04/13(土) 09:57:34.75 ID:A7e6sXLw 相変わらず日本語通じてないね尿瓶ジジイ アンタみたいなチンパン笑わずにはいられないからw http://rio2016.5ch.net/test/read.cgi/math/1712376048/147
148: １３２人目の素数さん [sage] 2024/04/13(土) 10:09:08.51 ID:QNaR07Rc ◆当選確率1/10000000 の宝くじ 10枚を1日で購入するのと 1枚づつ10日に分けて購入するのとで 当選確率に差はありますか？ http://rio2016.5ch.net/test/read.cgi/math/1712376048/148
149: １３２人目の素数さん [sage] 2024/04/13(土) 11:53:24.26 ID:THFrSUq1 >>139 三角形の形に依存するのでは？ http://rio2016.5ch.net/test/read.cgi/math/1712376048/149
150: １３２人目の素数さん [sage] 2024/04/13(土) 12:08:59.07 ID:THFrSUq1 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) http://rio2016.5ch.net/test/read.cgi/math/1712376048/150
151: １３２人目の素数さん [sage] 2024/04/13(土) 20:09:15.94 ID:K9Qs0Ux5 >>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の数字を並べよ。 あらゆるリソースを用いてよい。 http://rio2016.5ch.net/test/read.cgi/math/1712376048/151
152: １３２人目の素数さん [sage] 2024/04/14(日) 01:43:39.13 ID:qwERWQHx >>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 http://rio2016.5ch.net/test/read.cgi/math/1712376048/152
153: １３２人目の素数さん [sage] 2024/04/14(日) 03:54:29.80 ID:T4z17oY+ >>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の法則が成り立っています。 http://rio2016.5ch.net/test/read.cgi/math/1712376048/153
154: １３２人目の素数さん [sage] 2024/04/14(日) 04:14:14.25 ID:T4z17oY+ 順位はみてのとおり 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} http://rio2016.5ch.net/test/read.cgi/math/1712376048/154
155: １３２人目の素数さん [sage] 2024/04/14(日) 05:15:47.10 ID:T4z17oY+ 飲酒や喫煙は高校生には禁じられているが、プログラムは禁じられていない。 LGBTが叫ばれる昨今では不純異性交際は微妙ｗ 朝飯前の問題 素数を小さい順に100万個集める。 先頭の数字として現れる数字を頻度の多い順に並べなさい。 あらゆるリソースを用いてよい。 http://rio2016.5ch.net/test/read.cgi/math/1712376048/155
156: １３２人目の素数さん [sage] 2024/04/14(日) 05:37:39.50 ID:T4z17oY+ 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の法則が成立している。 東大合格者による他言語での検証を希望します。 http://rio2016.5ch.net/test/read.cgi/math/1712376048/156
157: １３２人目の素数さん [sage] 2024/04/14(日) 06:26:34.13 ID:KAPnCPO9 >>151-153 明らかにスレチだし明らかに自演だよね http://rio2016.5ch.net/test/read.cgi/math/1712376048/157
158: １３２人目の素数さん [sage] 2024/04/14(日) 07:10:18.58 ID:T4z17oY+ >>157 自演だったら俺がC言語の達人ということになるのだが、 受験板ではないので問題の意味が高校数学の範囲で理解できれば許容される。 小学校の算数や図形の問題を方程式や三角関数を使って解いても構わない。 http://rio2016.5ch.net/test/read.cgi/math/1712376048/158
159: １３２人目の素数さん [sage] 2024/04/14(日) 07:29:28.93 ID:1U/RnNK4 小学生の算数に方程式や三角関数でドヤられても恥ずかしい大人なだけじゃん 散々スルーされても分からないんだね、だから自演なんかやるんだ しかも自分のこと達人とか言って笑 http://rio2016.5ch.net/test/read.cgi/math/1712376048/159
160: １３２人目の素数さん [sage] 2024/04/14(日) 08:18:36.65 ID:T4z17oY+ >>147 草 多用する理由は図星。 Q.E.D. http://rio2016.5ch.net/test/read.cgi/math/1712376048/160
161: １３２人目の素数さん [sage] 2024/04/14(日) 08:38:59.77 ID:1U/RnNK4 >>160 一回使っただけで多様？アホなん？w http://rio2016.5ch.net/test/read.cgi/math/1712376048/161
162: １３２人目の素数さん [sage] 2024/04/14(日) 09:25:10.95 ID:qwERWQHx 152は151,153とは別人で、単に大きな階乗の計算は対数とれば簡単に計算できることを示したかっただけです。 スレを荒らしてしまったようですまない。 http://rio2016.5ch.net/test/read.cgi/math/1712376048/162
163: １３２人目の素数さん [sage] 2024/04/14(日) 09:43:43.74 ID:T4z17oY+ 宝くじまとめ買いの問題 宝くじ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]) http://rio2016.5ch.net/test/read.cgi/math/1712376048/163
164: １３２人目の素数さん [sage] 2024/04/14(日) 09:53:10.13 ID:T4z17oY+ >>161 日本語が不自由な実例。 ＞一回使っただけで多様 多様 多様 多様 多様 アホなん？w http://rio2016.5ch.net/test/read.cgi/math/1712376048/164
165: １３２人目の素数さん [sage] 2024/04/14(日) 09:57:12.09 ID:T4z17oY+ >>162 Cだと浮動小数点数をつかうから floor(lfac/log(2)+1+1e-12)とかの工夫が必要になってきますよね。 Rも同様なので大きな数字を扱うときは丸め誤差がでてきます。 http://rio2016.5ch.net/test/read.cgi/math/1712376048/165
166: １３２人目の素数さん [] 2024/04/14(日) 10:00:09.95 ID:SzjJa5LD >>153 >>Benfordの法則が成り立っています。 どこが成立？ 単に、順位が逆転していないことを以て成立と言っている？ 法則によれば、先頭の数字が 1 になるのは 3 割程度 2024までの結果では5割を越えている 10^6までの結果でも4割を越え、これは誤差の範囲ではない。 原因は、明白だが、理解している？ 指摘されなければ、見向きもしなかっただろう。ただ高級な道具を与えられ遊んでいるだけ。 このようなことをやっている人物に、新発見や進歩など望むべくもない。 http://rio2016.5ch.net/test/read.cgi/math/1712376048/166
167: １３２人目の素数さん [sage] 2024/04/14(日) 10:01:00.75 ID:T4z17oY+ >>163 期待値は負で中央値は正という、ギャンブルとしては良心的な価格設定。 CやPythonの使える東大合格者による検証を期待します。 http://rio2016.5ch.net/test/read.cgi/math/1712376048/167
168: １３２人目の素数さん [sage] 2024/04/14(日) 11:22:14.19 ID:CqnVU4YK >>165 wwwwwwwwwwwwwwwwwwww http://rio2016.5ch.net/test/read.cgi/math/1712376048/168
169: １３２人目の素数さん [] 2024/04/14(日) 12:37:41.98 ID:1IJEb63F https://oshiete.goo.ne.jp/qa/13764454.html 永遠の中２帰国子（女） http://rio2016.5ch.net/test/read.cgi/math/1712376048/169
170: １３２人目の素数さん [sage] 2024/04/14(日) 12:43:59.56 ID:T4z17oY+ >>166 順位が1,2,3..8,9になれば広義のBenfordの法則が成立。 1が最頻でも超広義のBenfordの法則が成立。ｐ http://rio2016.5ch.net/test/read.cgi/math/1712376048/170
171: １３２人目の素数さん [sage] 2024/04/14(日) 12:47:12.44 ID:T4z17oY+ >>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. http://rio2016.5ch.net/test/read.cgi/math/1712376048/171
172: １３２人目の素数さん [sage] 2024/04/14(日) 12:55:15.06 ID:CqnVU4YK 毎回必ずアホな事書いて恥かかないと死ぬ病気wwwwwwwwwwwwwwwwwww http://rio2016.5ch.net/test/read.cgi/math/1712376048/172
173: １３２人目の素数さん [sage] 2024/04/14(日) 13:35:40.83 ID:1U/RnNK4 >>164 沸点低すぎない？ どんだけ余裕ないんだよw そんなに嬉しいなら沢山草つけてやろうか？ww http://rio2016.5ch.net/test/read.cgi/math/1712376048/173
174: １３２人目の素数さん [sage] 2024/04/14(日) 15:07:11.15 ID:T4z17oY+ >>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]] http://rio2016.5ch.net/test/read.cgi/math/1712376048/174
175: １３２人目の素数さん [sage] 2024/04/14(日) 15:42:56.56 ID:T4z17oY+ >>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]] http://rio2016.5ch.net/test/read.cgi/math/1712376048/175
176: １３２人目の素数さん [sage] 2024/04/14(日) 16:01:13.29 ID:T4z17oY+ >>163 追加の課題 一度の1枚ずつ当たりがでるまで購入した場合の損益の期待値と中央値を求めて 10枚の場合と比較せよ。 >148の設定だと面白くないので改題して計算してみた。 Wolfram言語の課題として役立った。 http://rio2016.5ch.net/test/read.cgi/math/1712376048/176
177: １３２人目の素数さん [sage] 2024/04/14(日) 16:20:35.12 ID:T4z17oY+ >>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. でいいってことだな。 http://rio2016.5ch.net/test/read.cgi/math/1712376048/177
178: １３２人目の素数さん [sage] 2024/04/14(日) 16:21:03.26 ID:T4z17oY+ >>173 他スレでの英単語スペルミスをコピペして世論でいるのが Phimoseくん。 http://rio2016.5ch.net/test/read.cgi/math/1712376048/178
179: １３２人目の素数さん [] 2024/04/14(日) 17:09:17.84 ID:TQbd33b9 >>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) http://rio2016.5ch.net/test/read.cgi/math/1712376048/179
180: １３２人目の素数さん [sage] 2024/04/14(日) 18:37:48.40 ID:prKeV3wM ◆1ユニット1000万枚の宝くじ 1ユニットに1等1億円が1枚入っている 売れ残りのくじは 当選者unknownとして廃棄される 販売期間は30日間 全国1000箇所のチャンスセンターで 販売される 全てのくじが売れた場合 1等1億円の当選確率は1/10000000 (一枚だけ購入した時) 一回で10枚購入するのと 1日1枚づつ10日かけて購入するのとで 1等の当選確率に差は生じるか？ http://rio2016.5ch.net/test/read.cgi/math/1712376048/180
181: １３２人目の素数さん [sage] 2024/04/14(日) 19:18:49.23 ID:1U/RnNK4 草生やされる度に発狂w そもそもnurseの複数形もろくに綴れないチンパンがなんでチンパン英語なんか使ってるの？ http://rio2016.5ch.net/test/read.cgi/math/1712376048/181
182: １３２人目の素数さん [sage] 2024/04/14(日) 19:25:20.47 ID:1U/RnNK4 尿瓶ジジイ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それ以降また間違ってアホを晒さないために毎回ナースと日本語しか使わなくなったとさ 実に残念なオツムであった http://rio2016.5ch.net/test/read.cgi/math/1712376048/182
183: １３２人目の素数さん [sage] 2024/04/14(日) 19:32:01.80 ID:T4z17oY+ >>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 http://rio2016.5ch.net/test/read.cgi/math/1712376048/183
184: １３２人目の素数さん [sage] 2024/04/14(日) 19:32:31.75 ID:T4z17oY+ >>143 解なし http://rio2016.5ch.net/test/read.cgi/math/1712376048/184
185: １３２人目の素数さん [sage] 2024/04/14(日) 19:34:22.45 ID:T4z17oY+ >>182 他スレでのスペルミスをいつまでも掲げて悦にいっている Phimoseくんが東大合格者だと思うひとはその旨を投稿してください。 俺はシリツだと思うが。 http://rio2016.5ch.net/test/read.cgi/math/1712376048/185
186: １３２人目の素数さん [sage] 2024/04/14(日) 19:35:43.88 ID:T4z17oY+ 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.net/test/read.cgi/math/1712376048/186
187: １３２人目の素数さん [sage] 2024/04/14(日) 19:45:12.63 ID:T4z17oY+ >>182 よくできたジョークだと感心。 http://rio2016.5ch.net/test/read.cgi/math/1712376048/187
188: １３２人目の素数さん [sage] 2024/04/14(日) 20:00:12.07 ID:1U/RnNK4 >>185 ぐうの音も出ないのね、こんな初歩的なミスしてw しかも複数w http://rio2016.5ch.net/test/read.cgi/math/1712376048/188
189: １３２人目の素数さん [sage] 2024/04/14(日) 20:01:15.09 ID:1U/RnNK4 >>187 アホ晒されて発狂してるのに自画自賛とかどこまで頭の中お花畑なの？やっぱり統失なの？w http://rio2016.5ch.net/test/read.cgi/math/1712376048/189
190: １３２人目の素数さん [] 2024/04/14(日) 21:27:20.04 ID:7Zt24lhc y=x^2 とか y=e^x みたいな、下に凸な曲線(Cとします)があるとしますね。 またCより上側に定点Aがあるとします。 Aを通る直線を、直線がCと2点で交わる範囲で動かすとき、 直線とCで囲まれる領域の面積が最小になるのは Aが2つの交点の中点になるとき と言えそうな気がするんですが、一般にこれは正しいですか。 http://rio2016.5ch.net/test/read.cgi/math/1712376048/190
191: １３２人目の素数さん [sage] 2024/04/14(日) 22:33:27.35 ID:CqnVU4YK 正しい http://rio2016.5ch.net/test/read.cgi/math/1712376048/191
ﾒﾓ帳
(0/65535文字)
上
下
前
次
1-
新
書
関
写
板
覧
索
設
栞
歴
あと 811 ﾚｽあります
ｽﾚ情報
赤ﾚｽ抽出
画像ﾚｽ抽出
歴の未読ｽﾚ
AAｻﾑﾈｲﾙ
Google検索
Wikipedia
ぬこの手
ぬこTOP
0.055s