[過去ログ]
底辺私立医大を卒業した医者って頭悪いよね? Part30 (1002レス)
底辺私立医大を卒業した医者って頭悪いよね? Part30 http://egg.5ch.net/test/read.cgi/hosp/1705363640/
上
下
前
次
1-
新
通常表示
512バイト分割
レス栞
このスレッドは過去ログ倉庫に格納されています。
次スレ検索
歴削→次スレ
栞削→次スレ
過去ログメニュー
845: 警備員[Lv.4][新芽] (ワッチョイ 977d-AvcR [2001:268:922f:d58:*]) [] 2024/05/27(月) 00:03:59.92 ID:k0XPVHZ30 また認知症悪化してるのか http://egg.5ch.net/test/read.cgi/hosp/1705363640/845
846: 卵の名無しさん (ワッチョイ dbc7-YmzF [124.47.76.122]) [sage] 2024/05/27(月) 04:19:00.14 ID:akziHR3h0 https://mathematica.stackexchange.com/questions/186841/how-to-generate-a-value-frequency-table-with-random-numbers http://egg.5ch.net/test/read.cgi/hosp/1705363640/846
847: 卵の名無しさん (ワッチョイ dbc7-fXFG [124.47.76.122 [上級国民]]) [sage] 2024/05/27(月) 04:40:45.58 ID:akziHR3h0 先頭項目でグループ化し,対応する最終項目の平均を計算する: In[1]:= GroupBy[{{a, x}, {b, v}, {a, y}, {a, z}, {b, w}}, First -> Last, Mean] https://wolfram.com/xid/0cqz8kh5-xq12c4 Out[1]= http://egg.5ch.net/test/read.cgi/hosp/1705363640/847
848: 卵の名無しさん (ワッチョイ dbc7-fXFG [124.47.76.122 [上級国民]]) [sage] 2024/05/27(月) 05:10:26.02 ID:akziHR3h0 先頭項目でグループ化し,対応する最終項目の平均を計算する: In[1]:= GroupBy[{{a, x}, {b, v}, {a, y}, {a, z}, {b, w}}, First -> Last, Mean] https://wolfram.com/xid/0cqz8kh5-xq12c4 Out[1]= http://egg.5ch.net/test/read.cgi/hosp/1705363640/848
849: 卵の名無しさん (ワッチョイ dbc7-taxo [124.47.76.122]) [sage] 2024/05/27(月) 06:48:30.52 ID:akziHR3h0 分数表示したくてWolfram言語で書いているが、Rのtapply関数に相当する関数はGroupByであった。 http://egg.5ch.net/test/read.cgi/hosp/1705363640/849
850: 卵の名無しさん (ワッチョイ dbc7-taxo [124.47.76.122]) [sage] 2024/05/27(月) 06:50:06.87 ID:akziHR3h0 n = {12,15,20}; {p1,p2,p3} = n/Total[n]; {u1,u2,u3} = Floor[2024/n]; f[x_] := Total[x*n]; v = Flatten@Table[{x,y,z},{x,Range[0,u1]},{y,Range[0,u2]},{z,Range[0,u3]} ]; m = Partition[v,3]; y12 = Select[m,(2024-12)<=f[#] && f[#]<2024&]; y15 = Select[m,(2024-15)<=f[#] && f[#]<2024&]; y20 = Select[m,(2024-20)<=f[#] && f[#]<2024&]; fp[x_] := ( n=Total[x]; {x1,x2,x3}={x[[1]],x[[2]],x[[3]]}; Binomial[n,x1]p1^x1 * Binomial[n-x1,x2]p2^x2 * p3^x3 ) p12 = p1*fp /@ y12; p15 = p2*fp /@ y15; p20 = p3*fp /@ y20; AUC=Total[p12]+Total[p15]+Total[p20]; pdf12 = p12/AUC; pdf15 = p15/AUC; pdf20 = p20/AUC; x12 = 1 + Total /@ y12; x15 = 1 + Total /@ y15; x20 = 1 + Total /@ y20; Total[x12 pdf12]+ Total[x15 pdf15]+Total[x20 pdf20]; N[%,10] http://egg.5ch.net/test/read.cgi/hosp/1705363640/850
851: 卵の名無しさん (ワッチョイ dbc7-taxo [124.47.76.122]) [sage] 2024/05/27(月) 06:53:09.54 ID:akziHR3h0 x=Flatten[{x12,x15,x20}]; Tally[x]; Histogram[x]; p=Flatten[{p12,p15,p20}]; xp=Transpose[Table[{x,p}]];; pmf=GroupBy[xp,First->Last,Total; ListPlot[pmf] BarChart[pmf,ChartLabels->{Placed[Keys[pmf],Top]}] Keys[pmf] pmf[124] % // N 徐々にWolframの書式に慣れてきた。 http://egg.5ch.net/test/read.cgi/hosp/1705363640/851
852: 卵の名無しさん (ワッチョイ 970b-Bt8S [2400:2411:3fe0:400:*]) [sage] 2024/05/27(月) 07:55:15.79 ID:PKj/VdlK0 湘南鎌倉総合病院には元旭川医科大学勤務で国立大の弘前大学卒の元AV女優浅丘りなこと田中茉里子(旧姓古郡)がいるもんね https://www.skgh.jp/department/hbps/ https://www.suruga-ya.jp/product/detail/131150111 http://www.oma-aozora.jp/ikizama/kisamai/welcome_02.html http://egg.5ch.net/test/read.cgi/hosp/1705363640/852
853: 卵の名無しさん (ブーイモ MM1f-YmzF [202.214.167.4]) [sage] 2024/05/27(月) 11:02:03.46 ID:Rg1JEAAsM 今日は内視鏡件数が少なかったので実働2時間だった。 まあ、来月から市町村健診が始まるから予約枠は全枠埋まるだろうなぁ。 http://egg.5ch.net/test/read.cgi/hosp/1705363640/853
854: 卵の名無しさん (ワッチョイ b358-Tu0P [14.13.16.0 [上級国民]]) [sage] 2024/05/28(火) 18:54:23.32 ID:QlD/HeIz0 fp[a_,b_,c_] :=( R=Sqrt[a^2+b^2+c^2]; rab=Sqrt[a^2+b^2]; hab=R-Sqrt[R^2-rab^2]; rbc=Sqrt[b^2+c^2]; hbc=R-Sqrt[R^2-rbc^2]; rca=Sqrt[c^2+a^2]; hca=R-Sqrt[R^2-rca^2]; pab=hab/(hab+hbc+hca); pbc=hbc/(hab+hbc+hca); pca=hca/(hab+hbc+hca); {pab,pbc,pca} ) p=Flatten[Table[fp[a,b,c],2]]/2; s=Drop[Subsets[Range[6]],1]; f1[x_] := (-1)^(Length[x]-1)/Total[p[[#]] & /@ x] ans=Simplify[Total[f1 /@ s]] http://egg.5ch.net/test/read.cgi/hosp/1705363640/854
855: 警備員[Lv.10][芽] (ワッチョイ 6fd7-AvcR [2001:268:9230:fa5:*]) [] 2024/05/30(木) 19:05:12.34 ID:yJ734KYJ0 医者板はおろか数学板でいくら発狂しても相手にされないね http://egg.5ch.net/test/read.cgi/hosp/1705363640/855
856: 卵の名無しさん (ワッチョイ b358-Tu0P [14.13.16.0 [上級国民]]) [sage] 2024/05/31(金) 05:37:42.59 ID:aPnJQqQ30 Wolfram Language 14.0.0 Engine for Microsoft Windows (64-bit) Copyright 1988-2023 Wolfram Research, Inc. In[1]:= k=10^8; In[2]:= pH=RandomVariate[BetaDistribution[1+400,1],k]; In[3]:= pB=RandomVariate[BetaDistribution[1+240,1+27],{k}]; In[4]:= Mean@Boole[#>0& /@ (pB-pH)] Out[4]= 0 http://egg.5ch.net/test/read.cgi/hosp/1705363640/856
857: 卵の名無しさん (ワッチョイ 5bf6-Tu0P [2001:ac8:40:6000:* [上級国民]]) [sage] 2024/05/31(金) 05:40:41.96 ID:U7Vlyaxm0 beta.diff= function(r1,r2,n1,n2,a=1,b=1){ f <- function(x,y) dbeta(x+y,a+r1,b+n1-r1)*dbeta(y,a+r2,b+n2-r2) vf=Vectorize(f,vectorize.args = 'y') pdf <- function(x) integrate(function(y) vf(x,y),-1,1)$value pdf=Vectorize(pdf) cdf=function(x) integrate(pdf,-1,x)$value cdf=Vectorize(cdf) invisible(list(pdf=pdf,cdf=cdf)) } re=beta.diff(240,400,240+27,400,1,1) curve(re$pdf(x),-1,1) integrate(\(x) x*re$pdf(x),0,1,rel.tol = 1e-24) re$cdf(0) http://egg.5ch.net/test/read.cgi/hosp/1705363640/857
858: 卵の名無しさん (ワッチョイ 5bf6-Tu0P [2001:ac8:40:6000:* [上級国民]]) [sage] 2024/05/31(金) 06:10:52.73 ID:U7Vlyaxm0 問題 : 400戦無敗のヒクソン・グレイシーに240勝24敗のブアカーオが勝利する確率を求めよ。 両選手の勝利確率の事前分布を一様分布に設定してβ分布に従う乱数で1億回シミュレーションしてもブアカーオ勝利は0回であった。 Wolframを使って分数解を算出。 a=1; b=1; r1=400; r2=240; n1=400; n2=240+27; f[x_,y_] := PDF[BetaDistribution[a+r1,b+n1-r1],x+y] PDF[BetaDistribution[a+r2,b+n2-r2],y] ; pdf[x_] := Integrate[f[x,y],{y,-1,1}]; Integrate[pdf[x],{x,-1,0}] http://egg.5ch.net/test/read.cgi/hosp/1705363640/858
859: 卵の名無しさん (ワッチョイ 2a87-Bt8S [2400:2200:5d1:60ec:*]) [sage] 2024/05/31(金) 06:51:39.50 ID:JEiAexHA0 湘南鎌倉総合病院には元旭川医科大学勤務で国立大の弘前大学卒の元AV女優浅丘りなこと田中茉里子(旧姓古郡)がいるもんね https://www.skgh.jp/department/hbps/ https://www.suruga-ya.jp/product/detail/131150111 http://www.oma-aozora.jp/ikizama/kisamai/welcome_02.html http://egg.5ch.net/test/read.cgi/hosp/1705363640/859
860: 警備員[Lv.11][芽] (ワッチョイ 6fd7-AvcR [2001:268:9230:fa5:*]) [] 2024/05/31(金) 06:59:45.84 ID:0ZDViJXq0 >>606 数学板にもマルチしてレス乞食とかつくづく哀れ 東大卒業生やエリート高校生がアンタみたいな日本語通じないチンパン相手にするわけないだろw http://egg.5ch.net/test/read.cgi/hosp/1705363640/860
861: 卵の名無しさん (ワッチョイ 53fb-IQ+a [240a:61:5196:98c4:*]) [] 2024/06/03(月) 07:39:28.89 ID:Wwe4EXxi0 尿瓶ジジイ最近大人しいじゃん 脳内医療をつぶやかなくなったし 自分は医者じゃなくてただの医療事務って気づいたのか? プログラミング言語、医療事務なら必要だよなwwwだから頑張って練習してるんだろ? http://egg.5ch.net/test/read.cgi/hosp/1705363640/861
862: 警備員[Lv.3][新芽] (ワッチョイ 7f0b-Uf6x [2001:268:9234:d0ef:*]) [] 2024/06/03(月) 07:55:20.69 ID:WzbqPEqJ0 https://rio2016.5ch.net/test/read.cgi/math/1715164435/ 最近では誰にも相手にされないのでレス乞食と自演にご執心 自演認定厨などと予防線を張るも語るに落ちるw http://egg.5ch.net/test/read.cgi/hosp/1705363640/862
863: 警備員[Lv.24] (ワッチョイ cf6e-8DHQ [153.242.16.144]) [] 2024/06/04(火) 02:21:33.15 ID:23liO8qz0 そう http://egg.5ch.net/test/read.cgi/hosp/1705363640/863
864: 警備員[Lv.3][新芽] (JP 0H1f-Uf6x [153.246.51.25]) [] 2024/06/04(火) 16:48:26.63 ID:yILR1j/AH 尿瓶ジジイ高校生相手に自演を繰り返すも同じIDでなるほどですねなどと書き込んで自演が誰の目からも明らかになりダンマリを決め込むw http://egg.5ch.net/test/read.cgi/hosp/1705363640/864
メモ帳
(0/65535文字)
上
下
前
次
1-
新
書
関
写
板
覧
索
設
栞
歴
あと 138 レスあります
スレ情報
赤レス抽出
画像レス抽出
歴の未読スレ
AAサムネイル
Google検索
Wikipedia
ぬこの手
ぬこTOP
0.065s