[過去ﾛｸﾞ] 高校数学の質問スレ（医者・東大卒専用） Part438 (1002ﾚｽ)

高校数学の質問スレ（医者・東大卒専用） Part438 http://rio2016.5ch.net/test/read.cgi/math/1723152147/

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

---

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

---

407: １３２人目の素数さん [sage] 2024/12/10(火) 05:03:57.10 ID:/AcDe8Pz >>405 これできた？底辺シリツには無理だろw 実験のために抗原陰性の血清2024検体を準備していたところ、手違いで抗原陽性の検体が１つ紛れて2025検体になった。 検体量は十分あるため抗原の有無の検査を繰り返すことは可能である。 複数の検体を混ぜて検査することも可能である。 抗原検査機器は同時並行で複数の検体を検査できるが、1回しか稼働できない。 また検査費用は検体１つにつき10万円かかるとする。 最低の費用で抗原陽性の検体を同定する方法を記載せ

よ。 http://rio2016.5ch.net/test/read.cgi/math/1723152147/407

408: １３２人目の素数さん [sage] 2024/12/10(火) 05:56:30.17 ID:/AcDe8Pz 【問題】1から2024までの整数から12個を選び（同じ数を選んでもよい）、その合計が n の倍数になる確率を分数で求めよ。 def count_combinations(n, k, mod): dp = [[0] * mod for _ in range(k + 1)] dp[0][0] = 1 for _ in range(k): new_dp = [[0] * mod for _ in range(k + 1)] for j in range(1, n + 1): for t in range(mod): new_dp[_ + 1][(t + j % mod) % mod] += dp[_][t] dp = new_dp return dp[k][0] n = 2024 k = 12 mod = 10 result = count_combination

s(n, k, mod) print(f"合計が10の倍数になる組み合わせの数: {result}") http://rio2016.5ch.net/test/read.cgi/math/1723152147/408

409: １３２人目の素数さん [sage] 2024/12/10(火) 08:06:33.22 ID:ThoL421/ >>407 こっちではレス乞食諦めてないんだね 高校生にも相手にされないのにw で、内視鏡の件は素人にも完全論破されてダンマリ決め込んでるってことね スレタイも読めないから相手にされないってわざわざ親切に教えてくれてるのに感謝もなしかよ？ http://rio2016.5ch.net/test/read.cgi/math/1723152147/409

410: １３２人目の素数さん [sage] 2024/12/10(火) 08:07:33.84 ID:ThoL421/ 71：卵の名無しさん：2024/12/10(火) 07:45:14.38 ID:m2CrVHD7 尿瓶ジジイさぁ ルールは守ろうぜ高校生に怒られてんじゃん そんなんで誰がお前を医者だと信じんだよ こんな糞スレならいくら荒らしても良いけど他所様に迷惑かけちゃ駄目だろ まずは謝ろうな？それが社会人としての最低限のマナーだよ 本当の事ばっかり言ってゴメンな お前が医者のフリしても今度はもう少し優しく間違いを指摘してあげるから戻っておいで http://rio2016.5ch.net/test/read.cgi/math/17231

52147/410

411: １３２人目の素数さん [sage] 2024/12/10(火) 17:03:31.30 ID:0S3xgTh9 >>407 底辺シリツ医とか誰だよwww 医者コンプ大学入試コンプは高校中退相当だぞwww 少しは勉強しろよwww http://rio2016.5ch.net/test/read.cgi/math/1723152147/411

412: １３２人目の素数さん [sage] 2024/12/10(火) 18:43:25.19 ID:h/Odz0/B >>411 生まれてから死ぬまで裕福な私立医大医者が羨ましくて仕方のない様子 http://rio2016.5ch.net/test/read.cgi/math/1723152147/412

413: １３２人目の素数さん [sage] 2024/12/11(水) 07:05:00.51 ID:qk9aTmTZ 　 　 　 　 　 　 定 　 公 　 こ 　 o 　 無 　 な 　 　 　 　 　 理 　 式 　 れ 　 n 　 料 　 い 　 　 　 　 は 　 は 　 も 　 　 　 で 　 ね 　 　 　 ツ 　 プ 　 ツ 　 R 　 使 　 。 　 　 ー 　 ロ 　 ー 　 　 　 え 　 　 ル 　 グ 　 ル 　 W 　 る 　 、 　 ラ 　 ） 　 o 　 時 　 　 ム 　 P 　 l 　 代 　 （ 　 y 　 f 　 。 　 　 t 　 r 　 使 　 h 　 a 　 わ 　 　 m 　 な 　 も 　 い 　 　 手 　 は 　 　 http://rio2016.5ch.net/test/read

.cgi/math/1723152147/413

414: １３２人目の素数さん [sage] 2024/12/11(水) 09:02:45.69 ID:qk9aTmTZ " 注射液8本のうち2本が致死的な毒薬である場合 ネズミ1: 注射液1, 2, 3, 4 ネズミ2: 注射液1, 2, 5, 6 ネズミ3: 注射液1, 3, 5, 7 に記載された投与法で実験したら全部のネズミが死亡してしまった。 可能な２つの毒薬の組み合わせをすべて列挙せよ。 " rm(list=ls()) mat=matrix( c(1, 2, 3, 4, 1, 2, 5, 6, 1, 3, 5, 7),nrow=3,by=TRUE) mat cm=t(combn(8,2)) ; cm lost_rats=\(y) (apply(mat,1, \(x) y[1] %in% x) | apply(mat,1, \(x) y[2] %in% x)) |>

which() |> sum() lost=apply(cm,1,lost_rats) re=cbind(cm,lost) tmp1=re[re[,3]==6,1:2] ; tmp1 tmp2=cbind(1:7,8) rbind(tmp1,tmp2) |> unique() http://rio2016.5ch.net/test/read.cgi/math/1723152147/414

415: １３２人目の素数さん [sage] 2024/12/11(水) 10:04:45.21 ID:qk9aTmTZ " 注射液8本のうち2本が致死的な毒薬である場合 ネズミ1: 注射液1, 2, 3, 4 ネズミ2: 注射液1, 2, 5, 6 ネズミ3: 注射液1, 3, 5, 7 に記載された投与法で実験したら全部のネズミが死亡してしまった。 可能な２つの毒薬の組み合わせをすべて列挙せよ。 この投与法で２個の毒薬が特定できる場合をすべて求めて そのときの毒薬の組み合わせと合わせて列挙せよ。 " rm(list=ls()) mat=matrix( c(1, 2, 3, 4, 1, 2, 5, 6, 1, 3, 5, 7),nrow=3,by=TRUE) cm=t(combn(8

,2)) ; cm lost=\(y){ tmp1=(apply(mat,1, \(x) y[1] %in% x) | apply(mat,1, \(x) y[2] %in% x)) tmp2=as.integer(tmp1) tmp2 %*% c(1,2,4)|> as.vector() -> tmp3 tmp3 } i=apply(cm,1,lost) ; i cbind(cm,i) lapply(1:7,\(x) cm[i==x,]) http://rio2016.5ch.net/test/read.cgi/math/1723152147/415

416: １３２人目の素数さん [sage] 2024/12/11(水) 15:50:58.91 ID:mqU8lqig >>413 >>413 朝からレス乞食ご苦労様 今日も高校生に相手にされてなくて哀れだね http://rio2016.5ch.net/test/read.cgi/math/1723152147/416

417: １３２人目の素数さん [sage] 2024/12/11(水) 16:30:35.36 ID:pO1ZxobF 縦横変換して喜んでるとか小学生かよwww http://rio2016.5ch.net/test/read.cgi/math/1723152147/417

418: １３２人目の素数さん [sage] 2024/12/11(水) 17:44:45.00 ID:qk9aTmTZ " [1年もので500万円お預け入れの場合] 500万円×金利年0.80%（税引前）×1年＝40,000円 40,000円×15.315%（国税）＝6,126円　40,000円×5%（地方税）＝2,000円　40,000円-6,126円-2,000円＝31,874円 [5年もので500万円お預け入れの場合] 500万円×金利年1.20%（税引前）×5年＝300,000円 300,000円×15.315%（国税）＝45,945円　300,000円×5%（地方税）＝15,000円　300,000円-45,945円-15,000円＝239,055円 " rm(list=ls()) par(bty='l') (1-20.315/100) f=

\(x,y=5e6) y * ( (1+6*(x/12)/100)^(5*12/6) - 1) * (1-20.315/100) f(1.2) a=239055 curve(f(x),0,1.5) abline(h=a,lty=3) uniroot(\(x) f(x)-a,c(0,1.5)) http://rio2016.5ch.net/test/read.cgi/math/1723152147/418

419: １３２人目の素数さん [sage] 2024/12/11(水) 17:45:43.99 ID:qk9aTmTZ >>417 大学でていたら斜め変換プログラムくらい書けるだろう。 ただし、Fランシリツは除く " [1年もので500万円お預け入れの場合] 500万円×金利年0.80%（税引前）×1年＝40,000円 40,000円×15.315%（国税）＝6,126円　40,000円×5%（地方税）＝2,000円　40,000円-6,126円-2,000円＝31,874円 [5年もので500万円お預け入れの場合] 500万円×金利年1.20%（税引前）×5年＝300,000円 300,000円×15.315%（国税）＝45,945円　300,000円×5%（地方税）＝15,000円

　300,000円-45,945円-15,000円＝239,055円 " rm(list=ls()) par(bty='l') (1-20.315/100) f=\(x,y=5e6) y * ( (1+6*(x/12)/100)^(5*12/6) - 1) * (1-20.315/100) f(1.2) a=239055 curve(f(x),0,1.5) abline(h=a,lty=3) uniroot(\(x) f(x)-a,c(0,1.5)) http://rio2016.5ch.net/test/read.cgi/math/1723152147/419

420: １３２人目の素数さん [sage] 2024/12/11(水) 19:03:34.34 ID:qk9aTmTZ ネズミと試薬の組み合わせ行列から単射になるかを判定する関数はできたが 総当たりするには数が多すぎる。 " 行：ネズミ　列：混合試薬　から　単射　か否かを判定する。 試薬数が不揃いなときはNAを入れる [,1] [,2] [,3] [,4] [1,] 1 2 3 8 [2,] 2 4 5 6 [3,] 1 2 4 5 [4,] 1 3 4 6 [5,] 4 6 7 NA [6,] 1 2 5 NA " rm(list=ls()) rats <- function(num, N=2, digit = 6){ r=num%

%N q=num%/%N while(q > 0 | digit > 1){ r=append(q%%N,r) q=q%/%N digit=digit-1 } which(r==1) } cm=t(combn(8,2)) calc82=\(mat,verbose=FALSE){ lost=\(y){ m=nrow(mat) tmp1=(apply(mat,1, \(x) y[1] %in% x) | apply(mat,1, \(x) y[2] %in% x)) tmp2=as.integer(tmp1) tmp2 %*% c(2^(0:(m-1)))|> as.vector() -> tmp3 tmp3 } i=apply(cm,1,lost) re=sapply(1:max(i),\(x) cm[i==x,]) if(verbose) print(re) all(unlist(lapply(re,length))<=2) } mat=t(replicate(6,sort(sample(8,4)))) ; mat calc82(mat,TRUE) http://rio2

016.5ch.net/test/read.cgi/math/1723152147/420

421: １３２人目の素数さん [sage] 2024/12/11(水) 19:20:41.66 ID:IlnvU/Cw id:qk9aTmTZ 正規の高校数学スレじゃもう高校生にバカにすらしてもらえなくて哀れだね そうやってリアルでも誰にも相手にしてもらえず見捨てられた老害なんだね http://rio2016.5ch.net/test/read.cgi/math/1723152147/421

422: １３２人目の素数さん [sage] 2024/12/12(木) 08:58:11.11 ID:rMBX4gAn [,1] [,2] [,3] [1,] 1 2 3 [2,] 1 4 5 [3,] 2 4 6 [4,] 3 5 6 [5,] 1 6 7 [6,] 2 5 8 http://rio2016.5ch.net/test/read.cgi/math/1723152147/422

423: １３２人目の素数さん [sage] 2024/12/12(木) 17:32:08.75 ID:rMBX4gAn > mat [,1] [,2] [,3] [,4] [1,] 6 1 8 NA [2,] NA 5 8 3 [3,] 5 2 NA 1 [4,] NA 6 7 5 [5,] 3 NA 4 6 [6,] 3 1 7 NA http://rio2016.5ch.net/test/read.cgi/math/1723152147/423

424: １３２人目の素数さん [sage] 2024/12/16(月) 07:09:36.03 ID:ExqXzCEf 尿瓶ジジイダンマリきたw http://rio2016.5ch.net/test/read.cgi/math/1723152147/424

425: １３２人目の素数さん [sage] 2024/12/16(月) 08:15:58.57 ID:7pklZrAJ 答を出すのに小中学生レベル以上の基礎知識が必要かを検討。 「 注射液が８本あり、そのうち２本が致死的な毒薬であることがわかっている。 注射液を混合して６匹のネズミに注射して８本のうちどの２本が毒薬かを特定したい。 複数の注射液を混合して注射をしても毒性は変わらないものとする。 各々のネズミに注射できるのは１回だけである。 毒薬を特定する混合法を例示せよ。 」 という問題に下記の例を使う。 ネズミ６匹への混合注射液の組み合わせは下記であったとす

る。 [1,] 1 2 7 [2,] 1 3 6 [3,] 1 4 5 [4,] 2 3 5 [5,] 2 4 6 [6,] 3 4 7 (1)　ネズミ1,2,3のみが死亡したときの毒薬の組み合わせを求めよ。 (2)　ネズミ4,5,6のみが死亡したときの毒薬の組み合わせを求めよ。 http://rio2016.5ch.net/test/read.cgi/math/1723152147/425

426: １３２人目の素数さん [sage] 2024/12/17(火) 10:31:23.25 ID:FFiopr0X >>425 今度はこっちを荒らすのかよ。死ねクソ野郎 http://rio2016.5ch.net/test/read.cgi/math/1723152147/426

427: １３２人目の素数さん [sage] 2024/12/19(木) 15:01:20.55 ID:K/JbHbND 東大卒なら算出できるんじゃないの? Wolfram,Pyth9n,C,Rのどれかは理工系卒なら使えて当然。 Fランは違うのか? http://rio2016.5ch.net/test/read.cgi/math/1723152147/427

428: １３２人目の素数さん [sage] 2024/12/19(木) 16:07:07.53 ID:psqfdUug >>427 東大卒なのにスレタイも読めないのかよ？ ほんとは小学校すら通ってないんだろ？ http://rio2016.5ch.net/test/read.cgi/math/1723152147/428

429: １３２人目の素数さん [sage] 2024/12/19(木) 20:13:14.98 ID:LCH85f+S (* ８本の注射液があり、赤,青,黄,緑,白,黒,紫,茶のラベルが貼られている。 いずれも十分な量があり、そのうち１本が致死的な毒薬であることがわかっている。 ３匹のネズミに注射液を混合して注射してどれが毒薬かを特定したい。 複数の注射液を混合しても毒性は変わらないとする。 各々のネズミに注射できるのは１回だけである。 赤 青 黄 黒 の混合液 赤 白 黒 茶 の混合液 青 緑 白 黒 の混合液 を３匹に１つずつ注射すれば特定できる。 ネズミを区別しないとして、こ

のような組み合わせは何通りあるか。 *) s4=Subsets[Range[8],{4}]; grp=Subsets[s4,{3}]; Short[grp] rat=Subsets[Range[3],3] f[x_]:=( z1=Length@Complement[Range[8],Flatten@x]; z28=Table[ dead = Intersection@@x[[rat[[i]]]]; alive= Flatten@x[[Complement[Range[3],rat[[i]]]]]; Length@Complement[dead,alive],{i,2,8}]; AllTrue[Flatten@{z1,z28},#==1&] ) ans=Select[grp,f]; Length[ans] Short[ans] http://rio2016.5ch.net/test/read.cgi/math/1723152147/429

430: １３２人目の素数さん [sage] 2024/12/19(木) 20:14:53.48 ID:LCH85f+S RをWolframに移植してカウント、数値は合致した。 理工系卒ならWolframくらい使えて普通じゃないの？ Fランシリツは違うのか？それとも私文卒かよ？ http://rio2016.5ch.net/test/read.cgi/math/1723152147/430

431: １３２人目の素数さん [sage] 2024/12/19(木) 20:17:02.91 ID:LCH85f+S >>428 俺は医科歯科卒だよ。二期校時代に理Iは蹴って医科歯科入学。 http://rio2016.5ch.net/test/read.cgi/math/1723152147/431

432: １３２人目の素数さん [sage] 2024/12/19(木) 21:53:07.92 ID:7ums7ZBv >>431 妄想www もしくは大学の恥さらしwww いずれにせよ現在は痴呆か無能だろ http://rio2016.5ch.net/test/read.cgi/math/1723152147/432

433: １３２人目の素数さん [sage] 2024/12/19(木) 22:38:46.83 ID:i1LFwmF3 >>431 じゃあ何でスレタイ読めないんだよアホが http://rio2016.5ch.net/test/read.cgi/math/1723152147/433

434: １３２人目の素数さん [sage] 2024/12/20(金) 01:43:44.22 ID:q4+Mx9gf >>431 今まで散々アホ晒してきたのに今更誰が信じるんだよ？ そんなことも分からないくらい救いようのないアホだから一生クソみたいな書き込みしてんだろうなw http://rio2016.5ch.net/test/read.cgi/math/1723152147/434

435: １３２人目の素数さん [sage] 2024/12/20(金) 02:23:55.00 ID:q4+Mx9gf 医者板の自分が立てたクソスレは散々論破されて全く関係ないことでしか発狂できなくなった模様、実に哀れ https://itest.5ch.net/egg/test/read.cgi/hosp/1733201932 まあここでも同じかww http://rio2016.5ch.net/test/read.cgi/math/1723152147/435

436: １３２人目の素数さん [sage] 2024/12/20(金) 04:13:16.99 ID:ukS2d2+i 嫌われる奴って何処でも嫌われるんだな http://rio2016.5ch.net/test/read.cgi/math/1723152147/436

437: １３２人目の素数さん [sage] 2024/12/20(金) 08:31:58.59 ID:U8hJYnHe 医科歯科卒ってスレタイも読めないんだな レベル低ｗ http://rio2016.5ch.net/test/read.cgi/math/1723152147/437

438: １３２人目の素数さん [sage] 2024/12/20(金) 15:34:29.03 ID:tl1okZxb 理工系卒ならWolframのコードくらい読めるんじゃないのか？ Fランは例外なのか？ http://rio2016.5ch.net/test/read.cgi/math/1723152147/438

439: １３２人目の素数さん [sage] 2024/12/20(金) 18:34:53.04 ID:iiO0E+zA >>438 読めるよ。で？ クズ問題とクズコードに価値が無いのは変わらない。 http://rio2016.5ch.net/test/read.cgi/math/1723152147/439

440: １３２人目の素数さん [sage] 2024/12/20(金) 21:47:42.89 ID:ukS2d2+i >>438 これは酷い。 君は、何が悪くて総スカンされているのか全く理解をしていない。 もう、社会性が完全に欠落した悪意を持った生き物と言える。 http://rio2016.5ch.net/test/read.cgi/math/1723152147/440

441: １３２人目の素数さん [sage] 2024/12/21(土) 04:00:54.79 ID:Sai3FSuE >>438 社会はもちろん5chでも相手にされないレス乞食のゴミって生きてて何が楽しいの？ http://rio2016.5ch.net/test/read.cgi/math/1723152147/441

442: １３２人目の素数さん [sage] 2024/12/21(土) 10:00:47.27 ID:/oYdfuqO ㋖印は自分が㋖印で有ることを理解しない http://rio2016.5ch.net/test/read.cgi/math/1723152147/442

443: １３２人目の素数さん [sage] 2024/12/21(土) 16:18:01.49 ID:WZEesop1 >>431 結局スレタイすら読めないチンパンがキーキー発狂してるだけかよ http://rio2016.5ch.net/test/read.cgi/math/1723152147/443

444: １３２人目の素数さん [sage] 2024/12/22(日) 02:09:27.72 ID:Q183V4t6 お願いします。 １辺が１の正方形の各頂点を中心とする半径rの円を考え、各円の周上にそれぞれ１点ずつP,Q,R,Sをとるとき、 四角形PQRSの面積の取りうる値の範囲を求めよ。ただし、0<r<1/2とする。 http://rio2016.5ch.net/test/read.cgi/math/1723152147/444

445: １３２人目の素数さん [sage] 2024/12/22(日) 10:04:08.66 ID:rWRciXK9 >>439 では毒薬が２本のときのWolframのコードを書いてみ！ http://rio2016.5ch.net/test/read.cgi/math/1723152147/445

446: １３２人目の素数さん [sage] 2024/12/22(日) 10:22:16.00 ID:gaGlxwVG >>445 スレタイ読めるならスレタイに則った書き込みしてごらんよ http://rio2016.5ch.net/test/read.cgi/math/1723152147/446

447: １３２人目の素数さん [sage] 2024/12/22(日) 11:05:38.63 ID:rWRciXK9 >>445 Wolframを使えないのが確定。 やはり、Fラン卒なのか？ http://rio2016.5ch.net/test/read.cgi/math/1723152147/447

448: １３２人目の素数さん [sage] 2024/12/22(日) 11:06:49.37 ID:iBxkrbTc >>445 クレクレ乞食www しかも個人の識別も出来ないのかよwww クズ中のクズwww http://rio2016.5ch.net/test/read.cgi/math/1723152147/448

449: １３２人目の素数さん [sage] 2024/12/22(日) 11:08:27.94 ID:iBxkrbTc >>445 煽って乞食行為とかテンプレいらないぞ 少しはオリジナリティのある返しをしてくれないとwww http://rio2016.5ch.net/test/read.cgi/math/1723152147/449

450: １３２人目の素数さん [sage] 2024/12/22(日) 11:09:55.89 ID:iBxkrbTc その論理なら、クズコード書き込んでるやつはwolfram使えないの確定だぞwww 自白かよwww さすが中卒www http://rio2016.5ch.net/test/read.cgi/math/1723152147/450

451: １３２人目の素数さん [sage] 2024/12/22(日) 12:28:31.05 ID:PT9UhnTA >>447 なに自分で自演してんの？馬鹿なの？ それとも自分がFラン卒だって自白したかっただけ？ http://rio2016.5ch.net/test/read.cgi/math/1723152147/451

452: １３２人目の素数さん [sage] 2024/12/22(日) 12:33:00.32 ID:rWRciXK9 >>444 >>444 Wolframで思い通りに作図するスキルはないので R言語で最小値と最大値を求めてそのときの図を作図。 r=0.3のとき > c(min,max) [1] 0.3314719 2.0285281 最小のときの図 https://i.imgur.com/U9IMSgw.png 最大のときの図 https://i.imgur.com/olgz6rn.png 最小最大のときの形状が判明したので あとは一般解を求めればいい。 http://rio2016.5ch.net/test/read.cgi/math/1723152147/452

453: １３２人目の素数さん [sage] 2024/12/22(日) 12:35:08.21 ID:rWRciXK9 >>452 おまけ、R言語でのクズコード 理工系卒ならWolframで書けるはず。 但し、Fラン卒は除く。 r=0.3 source("toolmini.R") p=0.5+0.5i q=-0.5+0.5i r0=-0.5-0.5i s=0.5-0.5i fP=\(t) r*exp(-1i*t)+p fQ=\(t) r*exp(-1i*t)+q fR=\(t) r*exp(-1i*t)+r0 fS=\(t) r*exp(-1i*t)+s f=\(tt,verbose=FALSE,...){ P=fP(tt[1]) Q=fQ(tt[2]) R=fR(tt[3]) S=fS(tt[4]) if(verbose){ Plot(-1,1,zero=FALSE) Polygon(p,q,r0,s,Col=8) Cir(p,r,col=8) Cir(q,r,col=8)

Cir(r0,r,col=8) Cir(s,r,col=8) Polygon(P,Q,R,S,...) pta(P);pta(Q);pta(R);pta(S) } ABC2S(P,Q,R)+ABC2S(P,S,R) } opt=optim(runif(4,-pi,pi),f) opt=optim(opt$par,f) tt=opt$par min=f(tt,TRUE,Col=2) opt=optim(runif(4,-pi,pi),f,control=list(fnscale=-1)) opt=optim(opt$par,f,control=list(fnscale=-1)) tt=opt$par max=f(tt,TRUE,Col=4) c(min,max) http://rio2016.5ch.net/test/read.cgi/math/1723152147/453

454: １３２人目の素数さん [sage] 2024/12/22(日) 12:40:56.83 ID:rWRciXK9 >>453 算出のために作った関数の動作確認の図 https://i.imgur.com/0mvHN8w.png http://rio2016.5ch.net/test/read.cgi/math/1723152147/454

455: １３２人目の素数さん [sage] 2024/12/22(日) 12:42:11.71 ID:rWRciXK9 毒薬が２本のときのWolframのコード 　まだぁ？ http://rio2016.5ch.net/test/read.cgi/math/1723152147/455

456: １３２人目の素数さん [sage] 2024/12/22(日) 13:49:41.40 ID:pkRHj4OZ >>452 rが1/2に近いとき、明らかに長方形の時最小なるような… http://rio2016.5ch.net/test/read.cgi/math/1723152147/456

457: １３２人目の素数さん [sage] 2024/12/22(日) 14:57:09.36 ID:S8dVAroW 別スレを潰したのに飽き足らずこっちのスレも潰す気かよ http://rio2016.5ch.net/test/read.cgi/math/1723152147/457

458: １３２人目の素数さん [sage] 2024/12/22(日) 15:12:10.82 ID:rKRhCRuS >>452 横軸にｒ、縦軸にPQRSの面積の最大値（青）最小値（赤）をグラフ化。 https://i.imgur.com/iio0LJI.png Rのコードが読めれば、単純作業。（但し、Fラン卒は除く）。 http://rio2016.5ch.net/test/read.cgi/math/1723152147/458

459: １３２人目の素数さん [sage] 2024/12/22(日) 16:37:45.31 ID:+EIC8tFQ なんか発狂して書き込んでるみたいwww クズ問題読んで貰えると思ってるのウケるwww 自意識過剰すぎだろwwww http://rio2016.5ch.net/test/read.cgi/math/1723152147/459

460: １３２人目の素数さん [sage] 2024/12/22(日) 17:42:21.06 ID:rKRhCRuS やはり、RのコードもWolframのコードもないクズ書き込みのみ。 Fラン確定！ Clear[{R,f,a,b,g}] (* 球の半径 *) R = 20; (* 半径を任意の値に設定 *) f[a_,b_]:=( {lat1,lon1}={a,0} Degree; {lat2,lon2}={b,90} Degree; cosc=Sin[lat1]Sin[lat2]+Cos[lat1]Cos[lat2]Cos[lon1-lon2]; R ArcCos[cosc] ) f[a,b] (* 点の座標 *) latLonToCartesian[R_, φ_, λ_] := R * { Cos[φ Degree] * Cos[λ Degree], Cos[φ Degree] * Sin[λ Degree], Sin[φ Degree] }; g[a_,b_

]:=( (* 点 pC, pA, pB を設定 *) pC = latLonToCartesian[R, 90, 0] ;(* 点 P (90°, 経度0°) *) pA = latLonToCartesian[R, a, 0] ; (* 点 A (緯度a°, 経度0°) *) pB = latLonToCartesian[R, b , 90] ; (* 点 B (緯度0°, 経度90°) *) (* 大円の法線ベクトル *) n = Cross[pA, pB]; (* 点 P から大円への最短距離（球面上） *) distance = ArcSin[Abs[Dot[n, pC]] / Norm[n]] * R ) g[a,b] http://rio2016.5ch.net/test/read.cgi/math/1723152147/460

461: １３２人目の素数さん [sage] 2024/12/22(日) 17:55:17.31 ID:yf8QUsfH >>460 クズはいろんなスレに関係ないことしか書き込まないから総スカンにされてバカにされてるアンタのことだよ http://rio2016.5ch.net/test/read.cgi/math/1723152147/461

462: １３２人目の素数さん [sage] 2024/12/22(日) 17:55:22.37 ID:gaGlxwVG >>460 やはりスレタイ読めない 保育園卒確定！ http://rio2016.5ch.net/test/read.cgi/math/1723152147/462

463: １３２人目の素数さん [sage] 2024/12/22(日) 18:41:54.83 ID:rWRciXK9 >444に答えてあげればいいのに。 それもできないのでFラン確定！ fd=\(lat1,lon1,lat2,lon2,R){ R*acos( sin(lat1)*sin(lat2)+cos(lat1)*cos(lat2)*cos(lon1-lon2) ) } fd(pi/5,0,pi/3,pi/2,1) http://rio2016.5ch.net/test/read.cgi/math/1723152147/463

464: １３２人目の素数さん [sage] 2024/12/22(日) 19:03:14.31 ID:bA66atg/ >>463 死ね http://rio2016.5ch.net/test/read.cgi/math/1723152147/464

465: １３２人目の素数さん [sage] 2024/12/22(日) 20:14:10.65 ID:gaGlxwVG >>463 スレタイに則った書き込みすればいいのに それもできないのでホイ卒確定 http://rio2016.5ch.net/test/read.cgi/math/1723152147/465

466: １３２人目の素数さん [sage] 2024/12/22(日) 21:03:18.86 ID:rWRciXK9 spherical_triangle_area <- function(R, a, b, c) { # 直交座標への変換 to_cartesian <- function(lat, lon) { c(cos(lat) * cos(lon), cos(lat) * sin(lon), sin(lat)) } p <- to_cartesian(a[1], a[2]) q <- to_cartesian(b[1], b[2]) r <- to_cartesian(c[1], c[2]) # 辺のベクトルを計算 u_ab <- q - p u_bc <- r - q u_ca <- p - r # 内角を計算 angle_between <- function(u, v) { acos(sum(u * v) / (sqrt(sum(u^2)) * sqrt(sum(v^

2)))) } alpha <- angle_between(u_ab, -u_ca) beta <- angle_between(u_bc, -u_ab) gamma <- angle_between(u_ca, -u_bc) # 超過角を計算 E <- alpha + beta + gamma - pi # 球面三角形の面積を計算 R^2 * E } http://rio2016.5ch.net/test/read.cgi/math/1723152147/466

467: １３２人目の素数さん [sage] 2024/12/22(日) 22:19:23.50 ID:ODwmJOyZ https://i.imgur.com/Q34Vduy.jpeg >>466 http://rio2016.5ch.net/test/read.cgi/math/1723152147/467

468: １３２人目の素数さん [sage] 2024/12/22(日) 22:32:49.57 ID:DH2naynY 類は何とやら キチガイはキチガイをよぶ http://rio2016.5ch.net/test/read.cgi/math/1723152147/468

469: １３２人目の素数さん [sage] 2024/12/23(月) 08:08:07.50 ID:5pyB+nba キチガイが複数人いるより、キチガイの自演の方が自然 http://rio2016.5ch.net/test/read.cgi/math/1723152147/469

470: １３２人目の素数さん [sage] 2024/12/28(土) 09:03:58.56 ID:pTaNTUpL Wolfram Language 14.0.0 Engine for Microsoft Windows (64-bit) Copyright 1988-2023 Wolfram Research, Inc. In[1]:= 4 * Integrate[Sqrt[r^2-x^2]-r/2,{x,r/2,r*Sqrt[3]/2}] 2 r (-3 (-1 + Sqrt[3]) r + Pi Sqrt[r ]) Out[1]= ------------------------------------- 3 In[2]:= r=6 Out[2]= 6 In[3]:= f[p_,o_] := Total[(p-o)^2] <= r^2 In[4]:= f4[p_] :=( AllTrue[{f[p,{0,0}],f[p,{r,0}],f[p,{r,r}],f[p,{0,r}]},#==True&] ) In[5]:= ratio=f4 /@ Tuples

[Range[0,r,0.001],2] // Boole // Mean; In[6]:= r^2 * ratio // N Out[6]= 11.3415 In[7]:= 11.3415 http://rio2016.5ch.net/test/read.cgi/math/1723152147/470

471: １３２人目の素数さん [sage] 2024/12/28(土) 10:20:03.06 ID:byAnFSyo >>470 137：卵の名無しさん：[sage]：2024/12/27(金) 16:30:06.83 ID:UPA/6UxQ レス乞食じゃなきゃ然るべきスレでやるもんね http://rio2016.5ch.net/test/read.cgi/math/1723152147/471

472: １３２人目の素数さん [sage] 2024/12/28(土) 12:26:13.98 ID:ABHDoLY/ 横綱、大関、関脇で巴戦を行う。 ２力士が対戦して，勝った方が残りの 1 力士と対戦をする。 これを繰り返して，２連勝した力士が優勝をする。 勝利確率は通算成績に従うとする（巴戦での成績も組み入れて計算する） 巴戦前の通算成績は 横綱 対 大関は　横綱の１０勝９負 大関 対 関脇は　大関の　８勝７負 横綱 対 関脇は　横綱の　６勝５負 とする。 大関　対　関脇で巴戦を始めるときにそれぞれの力士の優勝する確率を算出しなさい。 http://rio2016.5ch.net/test/r

ead.cgi/math/1723152147/472

473: １３２人目の素数さん [sage] 2024/12/28(土) 12:27:13.74 ID:ABHDoLY/ sim=\(){ h12=c(10,9) # bout3 h23=c(8,7) # bout1 h13=c(6,5) # bout2 bout=1 last_winner=0 flg= FALSE count=0 while(!flg){ count=count+1 if(bout==1){ i=2-rbinom(1,1,h23[1]/sum(h23)) h23[i]=h23[i]+1 winner=c(2,3)[i] bout=c(2,3)[-i] } if(bout==2){ i=2-rbinom(1,1,h13[1]/sum(h13)) h13[i]=h13[i]+1 winner=c(1,3)[i] bout=c(1,3)[-i] } if(bout==3){ i=2-rbinom(1,1,h12[1]/sum(h12)) h12[i]=h12[i]+1 winner=c(1,2)[i] bout=c(1,2)[-i] } flg <- winn

er==last_winner last_winner=winner } c(winner=winner,count=count) } t(replicate(100,sim())) http://rio2016.5ch.net/test/read.cgi/math/1723152147/473

474: １３２人目の素数さん [sage] 2024/12/28(土) 12:43:10.85 ID:ABHDoLY/ sim=function(){ h12=c(10,9) # bout3　横綱1vs大関2 h23=c(8,7) # bout1　大関2vs関脇3 h13=c(6,5) # bout2　横綱1vs関脇3 bout=1 # 初戦の試合番号 last_winner=0　# 前勝者 flg= FALSE # 連勝フラッグ count=0 # 試合数 while(!flg){ count=count+1 if(bout==1){ i=2-rbinom(1,1,h23[1]/sum(h23)) # 勝者のindex h23[i]=h23[i]+1 # 通算成績更新 winner=c(2,3)[i] # 勝者番号 bout=c(2,3)[-i] # 敗者番号=次の試合番号 } if(bout==2){ i=2-rbinom(1,1,h13[1]/sum(h13)

) h13[i]=h13[i]+1 winner=c(1,3)[i] bout=c(1,3)[-i] } if(bout==3){ i=2-rbinom(1,1,h12[1]/sum(h12)) h12[i]=h12[i]+1 winner=c(1,2)[i] bout=c(1,2)[-i] } flg <- winner==last_winner last_winner=winner } c(winner=winner,count=count) } t(replicate(100,sim())) http://rio2016.5ch.net/test/read.cgi/math/1723152147/474

475: １３２人目の素数さん [sage] 2024/12/28(土) 14:17:39.00 ID:1sBW2m9k " 横綱、大関、関脇で巴戦を行う。 ２力士が対戦して，勝った方が残りの 1 力士と対戦をする。 これを繰り返して，２連勝した力士が優勝をする。 勝利確率は通算成績に従うとする（巴戦での成績も組み入れて計算する） 巴戦前の通算成績は 横綱 対 大関は　横綱の１０勝９負 大関 対 関脇は　大関の　８勝７負 横綱 対 関脇は　横綱の　６勝５負 とする。 (1) 大関　対　関脇で巴戦を始めるときにそれぞれの力士の優勝する確率を算出しなさい。 (2) 巴戦の試合数の

期待値を求めなさい。 http://rio2016.5ch.net/test/read.cgi/math/1723152147/475

476: １３２人目の素数さん [sage] 2024/12/28(土) 14:21:31.42 ID:2IDswPeZ 尿瓶ジジイのレス乞食はいつになったら願いが届くのかな？w http://rio2016.5ch.net/test/read.cgi/math/1723152147/476

477: １３２人目の素数さん [sage] 2024/12/28(土) 18:11:22.23 ID:wnhYoY4/ >>476 あなたが返信してる時点で目的を達してる 完全スルーができないならスレを見ないで欲しい http://rio2016.5ch.net/test/read.cgi/math/1723152147/477

478: １３２人目の素数さん [sage] 2024/12/28(土) 19:00:53.56 ID:byAnFSyo 尿瓶ジジイはそんなにバカにされたいのかねぇww http://rio2016.5ch.net/test/read.cgi/math/1723152147/478

479: １３２人目の素数さん [sage] 2024/12/29(日) 07:54:27.11 ID:/ygSVCno rm(list=ls()) library(RcppAlgos) pm12=permuteGeneral(0:1,12,repetition = TRUE) colnames(pm12)=LETTERS[1:12] f12=\(x){ A=x[1];B=x[2];C=x[3];D=x[4] E=x[5];F=x[6];G=x[7];H=x[8] I=x[9];J=x[10];K=x[11];L=x[12] all( (A==1 & A==1) | (A==0 & A==0), # A 「私は正直者である」 (B==1 & A==0) | (B==1 & A==1), # B 「Aは嘘つきである」 (C==1 & B==0) | (C==1 & B==1), # C 「Bは嘘つきである」 (D==1 & C==0) | (D==1 & C==1), # D 「Cは嘘つきである」 (E==

1 & A==1) | E==0, # E 「Aは正直者である」 (F==1 & B==1) | F==0, # F 「Bは正直者である」 (G==1 & C==1) | G==0, # G 「Cは正直者である」 (H==1 & D==1) | H==0, # H 「Dは正直者である」 I==1 | (I==0 & E==1), # I 「Eは嘘つきである」 J==1 | (J==0 & F==1), # J 「Fは嘘つきである」 K==1 | (K==0 & G==1), # K 「Gは嘘つきである」 L==1 | (L==0 & H==1)) # L 「Hは嘘つきである」 } re=pm12[apply(pm12,1,f12),] colnames(re)[colSums(re)==nrow(re)] http://rio2016.5ch.net/test/read.cgi/math/1723152147/479

480: １３２人目の素数さん [sage] 2024/12/29(日) 11:24:48.82 ID:8wG+CYHS バク頭脳のFimoseくんには解決できない問題 >479のバグを指摘せよ。 http://rio2016.5ch.net/test/read.cgi/math/1723152147/480

481: １３２人目の素数さん [sage] 2024/12/29(日) 11:25:58.82 ID:bEHNzlJY バグ頭脳って自己紹介ですか？w http://rio2016.5ch.net/test/read.cgi/math/1723152147/481

482: １３２人目の素数さん [sage] 2024/12/29(日) 12:22:06.12 ID:90INKYGd Rの単純なコードも読めないのが確定。 やっぱり、Fラン卒みたいだね。 http://rio2016.5ch.net/test/read.cgi/math/1723152147/482

483: １３２人目の素数さん [sage] 2024/12/29(日) 12:47:08.60 ID:lQcX1F1j >>482 日本語も読めないのが確定 やっぱりチンパンだね http://rio2016.5ch.net/test/read.cgi/math/1723152147/483

484: １３２人目の素数さん [sage] 2024/12/29(日) 14:05:39.63 ID:bEHNzlJY 尿瓶ジジイ医者でも東大卒でもないのにこのスレばっか伸びてるのほんと図々しいなw http://rio2016.5ch.net/test/read.cgi/math/1723152147/484

485: １３２人目の素数さん [sage] 2024/12/29(日) 23:58:05.11 ID:/vJ/3Q0O 尿瓶ジジイまたダンマリかよ？ http://rio2016.5ch.net/test/read.cgi/math/1723152147/485

486: １３２人目の素数さん [sage] 2024/12/30(月) 03:14:24.14 ID:DAgtZ3Zg # 遷移行列 P <- matrix(c( 0, 0.5, 0.5, 0, 0, # S0: 初戦 A vs B 0, 0, 0, 0.5, 0.5, # S1: A vs C 0, 0, 0, 0.5, 0.5, # S2: B vs C 0.5, 0, 0, 0, 0.5, # S3: 再試合 A vs B 0.5, 0, 0, 0.5, 0 # S4: 再試合 B vs A ), nrow = 5, byrow = TRUE) # 固有値と固有ベクトルの計算 eig <- eigen(t(P)) stationary <- Re(eig$vectors[, which(abs(Re(eig$values) - 1) < 1e-8)]) stationary <- stationary / sum(stationary)

# 各プレイヤーの勝率を計算 A_win <- stationary[2] + stationary[4] B_win <- stationary[3] + stationary[5] C_win <- stationary[1] cat("定常分布:\n") print(stationary) cat(sprintf("\nAの勝率: %.3f\n", A_win)) cat(sprintf("Bの勝率: %.3f\n", B_win)) cat(sprintf("Cの勝率: %.3f\n", C_win)) http://rio2016.5ch.net/test/read.cgi/math/1723152147/486

487: １３２人目の素数さん [sage] 2024/12/30(月) 03:17:30.79 ID:DAgtZ3Zg (* 遷移行列の定義 *) P = { {0, 0.5, 0.5, 0, 0}, (* S0: 初戦 A vs B *) {0, 0, 0, 0.5, 0.5}, (* S1: A vs C *) {0, 0, 0, 0.5, 0.5}, (* S2: B vs C *) {0.5, 0, 0, 0, 0.5}, (* S3: 再試合 A vs B *) {0.5, 0, 0, 0.5, 0} (* S4: 再試合 B vs A *) }; (* 遷移行列の転置 *) PT = Transpose[P]; (* 固有値と固有ベクトルの計算 *) {eigValues, eigVectors} = Eigensystem[PT]; (* 固有値1に対応する固有ベクトル *) stationaryVector = Select[eigVector

s, Norm[PT.# - #] & /@ eigValues == 1 ][[1]]; (* 正規化（確率の総和を1にする） *) stationaryVector = stationaryVector/Total[stationaryVector]; (* 各プレイヤーの勝率を計算 *) AWin = stationaryVector[[2]] + stationaryVector[[4]]; BWin = stationaryVector[[3]] + stationaryVector[[5]]; CWin = stationaryVector[[1]]; (* 結果表示 *) {stationaryVector, AWin, BWin, CWin} http://rio2016.5ch.net/test/read.cgi/math/1723152147/487

---

ﾒﾓ帳

(0/65535文字)

---

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

---

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

---

Google検索

Wikipedia

---

ぬこの手 ぬこTOP 0.030s