[過去ﾛｸﾞ] 高校数学の質問スレ Part434 (1002ﾚｽ)

高校数学の質問スレ Part434 http://rio2016.5ch.net/test/read.cgi/math/1712376048/

上下前次1-新
通常表示 512ﾊﾞｲﾄ分割 ﾚｽ栞

---

このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索 歴削→次ｽﾚ 栞削→次ｽﾚ 過去ﾛｸﾞﾒﾆｭｰ

---

334: １３２人目の素数さん [sage] 2024/04/20(土) 09:06:23.49 ID:HVdq8JLd Wolfram言語が話題になっているのに、日本語が通じないとかの罵倒しか書けないクズ人間が東大合格者だと思うひとはその旨をレスしてください。 週末の課題 Wolfram言語でPrimeやPrimeQを使用せずに　n　以下の素数を列挙する関数を作れ。 解答例： R言語での prime = function(n){ pmax=floor(sqrt(n)) p=(1:pmax)[-outer(2:pmax,2:pmax)][-1] p1=p[length(p)]+1 f=function(x) all(x%%p!=0) c(p,(p1:n)[sapply(p1:n,f)]) } 実行すると > prime(2024) [1] 2 3 5 7 11 13 17 19 23 29 31 37 41 43 47 53 [17] 59 61 67 71 73 79 83 89 97 101 103 107 109 113 127 131 [33] 137 139 149 151 157 163 167 173 179 181 191 193 197 199 211 223 [49] 227 229 233 239 241 251 257 263 269 271 277 281 283 293 307 311 ... [289] 1879 1889 1901 1907 1913 1931 1933 1949 1951 1973 1979 1987 1993 1997 1999 2003 [305] 2011 2017 このRのコードを Wolfram言語に移植して prime[n_] :=( pmax=Floor[Sqrt[n]]; compo=Union[Flatten[Outer[Times,Range[2,pmax],Range[2,pmax]]]]; p=Drop[Complement[Range[pmax],compo],1]; p1=p[[-1]]+1; f[x_] := !AnyTrue[p,Function[y,Divisible[x,y]]]; Join[p,Select[Range[p1,n],f]]) prime[2024] Wolframが使える方の最適化・高速化を希望します。 http://rio2016.5ch.net/test/read.cgi/math/1712376048/334

335: １３２人目の素数さん [sage] 2024/04/20(土) 10:51:03.61 ID:tXPlmRjn >>333 https://i.imgur.com/8KXvwCM.png https://www.chart.co.jp/subject/sugaku/suken_tsushin/80/80-6.pdf より引用 http://rio2016.5ch.net/test/read.cgi/math/1712376048/335

336: １３２人目の素数さん [] 2024/04/20(土) 11:06:19.74 ID:+SMyJsjZ 1/(1+tanx)の0からπ/4の定積分の求め方教えてください http://rio2016.5ch.net/test/read.cgi/math/1712376048/336

337: １３２人目の素数さん [sage] 2024/04/20(土) 11:10:30.94 ID:tXPlmRjn >>335 この定義に準拠すると >>335 x(t) = 1/t y(t) = t*sin(t) だが t→∞のとき　x(t)^2+y(t)^2→∞を満たさない。 tが2πの倍数のときは x(t)^2+y(t)^2 = (1/t)^2 + 0 前提を満たさないから漸近線は存在しない。 東大合格者による追加説明や訂正を希望します。 http://rio2016.5ch.net/test/read.cgi/math/1712376048/337

338: １３２人目の素数さん [sage] 2024/04/20(土) 11:52:25.86 ID:NF26GESG >>334 日本語もろくに使えないアホがwolframとか言ってるのが大変滑稽だという指摘なのにいちいち発狂w http://rio2016.5ch.net/test/read.cgi/math/1712376048/338

339: １３２人目の素数さん [sage] 2024/04/20(土) 12:23:03.18 ID:tXPlmRjn >>338 Phimose草の不等式が発動している。 東大合格者の文字列で発作が起こるらしい。 >336 u=tan(x)とおくとdu/dx=1/cos(x)^2 sin(x)^2+ cos(x)^2=1から tan(x)^2 + 1 = 1/cos(x)^2 = du/dx 即ち、u^2+1=du/dx ∴dx=1/(u^2+1)*du ∫[0,π/4] 1/(1+tan(x)) dx =∫[0,1] 1/((1+u)(u^2+1)) du =(1/2)∫[0,1](1-u)/(u^2+1))du + (1/2)∫[0,1](1/(1+u)) du　　∵ 1/(1+u)(u^2+1) = ((1-u)/(u^2+1)) + 1/(1+u)))/2 =(1/2)∫[0,1] {1/(u^2+1) - u/(u^2+1) + 1/(1+u)} du =(1/2) ( atan(1)-atan(0 ) - (1/2)∫[0,1]{(u/(u^2+1) + 1/(1+u)} du ∵ ∫1/(u^2+1)du = atan(u) = (1/2)(π/4-0) - (1/2)∫{(u/(u^2+1) + 1/(1+u)} du あとはs=u^2+1とおいて ds/du=2u ∴ du=((1/2u) ds = π/8 - ∫[1,2] 1/s dx + ∫[0,1] 1/(1+u) du = π/8 + log(2)/4 http://rio2016.5ch.net/test/read.cgi/math/1712376048/339

340: １３２人目の素数さん [sage] 2024/04/20(土) 12:51:39.94 ID:lHPBWyM5 東大合格者を否定されて発狂してるのはID:tXPlmRjn尿瓶ジジイだろww 相変わらず日本語通じてないね、チンパン言語？ http://rio2016.5ch.net/test/read.cgi/math/1712376048/340

341: １３２人目の素数さん [] 2024/04/20(土) 12:59:04.50 ID:+SMyJsjZ 部分分数分解することは思いつきませんでした。 ありがとうございます。 http://rio2016.5ch.net/test/read.cgi/math/1712376048/341

342: １３２人目の素数さん [sage] 2024/04/20(土) 13:00:41.48 ID:HVdq8JLd Wolfram言語はRと同じくリストは１から始まるのでR userには馴染やすい。PythonやCは０から始まる。 Outer関数は引数の順序が変わるが仕様はほぼ同じだったが。 Rでの配列[-i]を実現するにはDropやDeleteではうまくいかず、Complementという関数を見つけて移植できた。 草で終わるという投稿が減ったのもPhimose草の不等式の起源が正しいことを示しているんだろう。 罵倒　＞　助言　（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/342

343: １３２人目の素数さん [sage] 2024/04/20(土) 13:02:58.16 ID:HVdq8JLd >>341 助言されたら、ちゃんとお礼が言える立派な高校生だな。 東大合格しますように。 http://rio2016.5ch.net/test/read.cgi/math/1712376048/343

344: １３２人目の素数さん [sage] 2024/04/20(土) 13:43:25.71 ID:lHPBWyM5 高校生なんて一言も名乗ってないみたいだけど相変わらず独りよがりの統失全開だねw http://rio2016.5ch.net/test/read.cgi/math/1712376048/344

345: １３２人目の素数さん [sage] 2024/04/20(土) 14:32:45.55 ID:K224KWOY >>334 エラトステネスのふるいをそのまま実装すれば次 n=2500;a=Table[i,{i,1,n}];k=1;a[[k]]=0; While[k*k<=n,k++;While[a[[k]]==0,k++];For[i=2*k,i<=n,i+=k,a[[i]]=0];]; DeleteCases[a,0] http://rio2016.5ch.net/test/read.cgi/math/1712376048/345

346: １３２人目の素数さん [sage] 2024/04/20(土) 15:26:59.31 ID:HVdq8JLd >>344 東大合格者なら自分で解けるから、高校生だろうね。 列挙された素数の数すら数えられないようなのは東大不合格者決定。 http://rio2016.5ch.net/test/read.cgi/math/1712376048/346

347: １３２人目の素数さん [sage] 2024/04/20(土) 16:00:23.53 ID:+Ksmtq1i >>335 なるほど！ 原点からの距離が無限大にならないといけないのですね http://rio2016.5ch.net/test/read.cgi/math/1712376048/347

348: １３２人目の素数さん [sage] 2024/04/20(土) 16:03:13.96 ID:E0eLVNUI >>346 いくつあるかと列挙しろの違いも分からないチンパンが高校生に講釈垂れてんのかよ？ http://rio2016.5ch.net/test/read.cgi/math/1712376048/348

349: １３２人目の素数さん [sage] 2024/04/20(土) 16:47:50.37 ID:HVdq8JLd 短いだけが取り柄の素数列挙関数（メモリ消費が多大なのはコードが読めればすぐわかるｗ） primes[n_] := Complement[Range[2,n],Flatten[Outer[Times,Range[2,n],Range[2,n]]]] n<10000なら実用的な速度で出力された。 http://rio2016.5ch.net/test/read.cgi/math/1712376048/349

350: １３２人目の素数さん [sage] 2024/04/20(土) 16:58:07.89 ID:NF26GESG >>349 短いって何？ アンタの老い先のこと？ http://rio2016.5ch.net/test/read.cgi/math/1712376048/350

351: １３２人目の素数さん [sage] 2024/04/20(土) 16:59:16.22 ID:HVdq8JLd >>347 漸近線について深く考えたこともなかったので検索してみて勉強になりました。 昨日の内視鏡検査で小ポリープに遭遇したので 「看護婦さん（高齢者にはこの呼称の方が受けが良い）に近づくわけにはいかないのでポリープに近づきますね」と冗談を言いながら漸近してNBI拡大観察した。 画像で引用した定義だと、 >漸近線を「曲線が,限りなく近づくが,決して交わることのない直線」と定義していないことに注意しておきたい。曲線が漸近線と交わることは許される。 ということらしい。 ナースと交わることは（以下、省略ｗ） http://rio2016.5ch.net/test/read.cgi/math/1712376048/351

352: １３２人目の素数さん [sage] 2024/04/20(土) 17:00:48.41 ID:HVdq8JLd >>350 素数の数どころか、プログラムコードの行数も数えられないらしいから、東大合格者でないのは明らかだな。 まあ、尿瓶チンパフェチのPhimoseくんは東大合格通知の書式すら知らなかったらから既知の事項だが。 http://rio2016.5ch.net/test/read.cgi/math/1712376048/352

353: １３２人目の素数さん [sage] 2024/04/20(土) 17:06:06.85 ID:NF26GESG >>352 60過ぎても問題文の日本語すら読めないチンパンジジイそうムキになるなってw http://rio2016.5ch.net/test/read.cgi/math/1712376048/353

---

ﾒﾓ帳

(0/65535文字)

---

上下前次1-新書関写板覧索設栞歴

---

あと 649 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ

---

Google検索

Wikipedia

---

ぬこの手 ぬこTOP 0.020s