20/03/10 16:02:58 Fd2PNckm.net
手コキ問題の答まだか？
アホなの？センズリ専従なの？
1001:卵の名無しさん
20/03/10 16:11:39 Svmf0Wwl.net
いや～いろいろな掲示板で活躍されてますなぁ。やはりお互いに暇すぎてつい書き込んでしまいますもんな。リアルで誰にも相手されなくて寂しいですもんな。わかりますよ。これからも一緒にここで活躍しましょうよ！ガンバ！
1002:卵の名無しさん
20/03/10 16:
1003:21:01.43 ID:Fd2PNckm.net
1004:卵の名無しさん
20/03/10 16:21:33.25 Fd2PNckm.net
【新型コロナ】感染ピーク、イベントの自粛など対策を行わない場合「おおむね３か月後」 厚労省試算
ｽﾚﾘﾝｸ(newsplus板)
厚労省の試算も俺の試算と似たような値だな。
同じモデルで計算しているのかな？
シムシティみたいなモデルでも作ってシミュレーションしてんじゃないのか？
先週の俺の投稿
↓
ｽﾚﾘﾝｸ(hosp板:893番)
893 卵の名無しさん sage 2020/03/04(水) 22:14:11.27 ID:gP3NYsfY
100人の集団（クラスター）で感染者は１人として１日に延べ１０回・人と接触し、
１人１回あたりの感染確率を１％、感染期間30日、潜伏期5日として
SEIRモデルで計算すると、感染のピークは110日めでとても１～２週間が山場とは言えない。
> SEIR2(contact_rate=10,transmission_probability=0.01
+ ,infectious_period=30,latent_period=5,mu=0,
+ nu=0, s=99,e=0,i=1,r=0,timepoints = seq(0,365,by=0.5),axes=TRUE)
Ro = 3 peak time I = 109.5 peak time E = 89
グラフにすると
URLﾘﾝｸ(i.imgur.com)
1005:卵の名無しさん
20/03/10 17:28:35.19 Fd2PNckm.net
開業医スレに書いて来たけど計算できる教養はないだろうな。
PCR検査の感度を0.7、特異度を0.9とする。
某県で第一号の感染発見例は
県の検査で１回陰性、病院の検査で２回陽性、症状軽快した現時点で陰性（何回やったか報道がないので１回陰性とする）であるという。
最近の検査で陰性なので指定病院から転院の照会があったとする。
この転院を科学的装いのもとに断りたいと考えたとする。
ここで問題：
検査前の感染確率の分布が一様分布であると仮定して、
現在患者が感染している確率とその95%CIを計算せよ。
1006:卵の名無しさん
20/03/10 17:43:42.48 tRAJIgAz.net
うっせバカが
1007:卵の名無しさん
20/03/10 18:34:09.32 Fd2PNckm.net
>>949
事後確率の分布図書いてみるとモード値の値にびっくりするぞ。
計算前の予想より高くて驚いた
1008:卵の名無しさん
20/03/10 21:02:48 Svmf0Wwl.net
これからは落ちこぼれた貴方と私で5ちゃんねるで大暴れしようじゃありませんか！医者は皆勝利者なので劣等感でいっぱいいっぱいになりますがここはひとつ勝利者にギャフンと言わせるような書き込みをしようじゃありませんか！ねっ！
1009:卵の名無しさん
20/03/10 21:11:26 Fd2PNckm.net
>>951
>948くらい即答できないの？
1010:卵の名無しさん
20/03/10 21:33:45.61 Svmf0Wwl.net
あー私なんぞには理解できないんですよ。お互い背伸びをせず早く仕事を見つけなければいかんです。一緒にがんばろうではありませんか！
1011:卵の名無しさん
20/03/10 21:42:07.30 Fd2PNckm.net
>>953
信頼区間算出は高校数学を超えるから
手コキ問題くらい即答してみ？
アホなの？センズリ専従？
んで、あんたどこ卒？
1012:卵の名無しさん
20/03/10 21:52:32.30 Svmf0Wwl.net
あー貴方と同じで九州のN大学医学部卒のアルバイトです。貴方と同じで国試でさえ合格できなかった社会的底辺です。悲しいけど現実を直視しております。一緒にがんばろうではありませんか！
1013:卵の名無しさん
20/03/10 21:54:40.77 Fd2PNckm.net
>>955
俺、医科歯科卒。
国試は年２回あった頃、新卒で合格したよ。
1014:卵の名無しさん
20/03/10 22:09:03 Svmf0Wwl.net
あー嘘はいけません。お互いに現実を直視して素直になろうではありませんか！背伸びも全てわかってしまうものです。私たちは社会的底辺に住んでいるのです。そこから始めましょうよ。まずは定職を見つけなければ！ガンバ！
1015:卵の名無しさん
20/03/10 22:15:11 Fd2PNckm.net
国立大学出ているから>948も計算できるよ。
開業医スレで答えられる奴いなかったな。
McGeeとか読んでないのかね？
英語だからド底辺シリツ医には無理かな。
1016:卵の名無しさん
20/03/10 22:21:11.72 rZoCiyQi.net
福井県筑後市瓜生町 ワハハハハ
1017:卵の名無しさん
20/03/10 22:23:57.93 Fd2PNckm.net
手コキ問題の答まだか？
アホなの？センズリ専従なの？
1018:卵の名無しさん
20/03/10 22:24:50.25 Svmf0Wwl.net
嘘も背伸びもばれてしまいますです。あの掲示板に全て書き込まれていますよ！ご注意を！
1019:卵の名無しさん
20/03/10 22:38:23.47 Svmf0Wwl.net
皆んなの笑い者になっている貴方が不憫でならないのです。嘘はバレバレになってますよ。お互いに社会的底辺に住んでいることを直視した方が利口ですよ！自分に合った仕事を探すことですよ！
1020:卵の名無しさん
20/03/10 22:42:04.05
1021: ID:rZoCiyQi.net
1022:卵の名無しさん
20/03/11 06:12:47 w+Rtdm4+.net
こういう環境では働けないね。
ド底辺シリツ医大卒ってこれだよな
底辺私立医大卒が国立大学医学部卒を妬むスレ [転載禁止](c)2ch.net
ｽﾚﾘﾝｸ(hosp板:695番)
695 名前：卵の名無しさん[] 投稿日：2016/09/25(日) 22:04:25.53 ID:FzuOCpqV
匿名先生
精神科
▲
1
評価
私立出でも、素晴らしい医師がいるし、国立でも、どうしようもないのもいる。
そんなのは、あくまで個人の資質差と思ってました。
が、
今いる病院（医師の大部分が、いわゆる底辺私立）に来て、その考えは変わりました。
とある、気に食わない医師の白衣やサンダルを隠す、机の上にゴミを置く、など、小学生じみた嫌がらせをしている医師というのを、はじめて見ました。
国立出の変人も多々みてきましたが、こんな、小学生のイタズラみたいなことをする人は、いませんでした。
やはり、底辺私立は、それなりなんだと思いました。
2016年09月02日 00時21分09秒
1023:卵の名無しさん
20/03/11 06:27:30.17 8rv7Evdo.net
新設駅弁や私立のせいで医師の地位もレベルも地に落ちた。
1024:卵の名無しさん
20/03/11 16:16:34 w+Rtdm4+.net
"1が累計m(=2)回出るまでサイコロを振って、振った回数を当てるギャンブルがある。
何回目に賭けるのがベストか？"
sim <- function(m=2){
pip1=0 # １の目の出た回数
i=0 # サイコロを振った回数
while(pip1 < m){
i=i+1
pip1 = pip1 + (sample(6,1)==1)
}
return(i)
}
k=1e5
re=replicate(k,sim(3))
tbl=table(re) ; tbl
which.max(tbl)
plot(tbl/k,bty='l')
#
bg <- function(x,print=FALSE){ # big gambling
f <- function(n,m=x,p=1/6) choose(n-1,m-1)*p^(m-1)*(1-p)^(n-m)*p
nn=1:(10*x)
y=optimize(function(n) f(n),nn,maximum=TRUE)$maximum
if(print){
plot(nn,sapply(nn,f),bty='l',pch=19)
yy=c(floor(y),ceiling(y))
cat(c(f(yy[1]),f(yy[2])),'\n')
}
return(floor(y))
}
sapply(1:100,bg)
plot(1:100,sapply(1:100,bg))
1025:卵の名無しさん
20/03/11 18:43:06 w+Rtdm4+.net
昨年末に一旦完成した国家公務員の定年延長の法案を
わざわざ作り直すに至った社会情勢の変化とは何なんですかと聞かれて
福島で検察官が逃げたからとか言い出し
じゃあそれ事実なんですかと聞かれたら事実ですと言い出し
それ法務省としての見解なんですかと聞かれたら個人の認識ですと言い出し
じゃあ何で事実ですとか言ったのかと聞かれたら「昨日そう言った」という事が事実ですという事ですと言い出し
1026:卵の名無しさん
20/03/12 06:17:02.42 Hoqw8S6P.net
sim <- function(){
flag=FALSE
i=0
pips=NULL
while(flag==FALSE){
i=i+1
pips=c(pips,sample(6,1))
flag=all(1:6 %in% pips)
}
i
}
k=1e4
mean(replicate(k,sim()))
1027:卵の名無しさん
20/03/12 08:02:18.03 Hoqw8S6P.net
sim <- function(){
flag=FALSE
i=0
pips=NULL
while(flag==FALSE){
i=i+1
pips=c(pips,sample(6,1))
flag=all(1:6 %in% pips)
}
i
}
k=1e6
mean(replicate(k,sim()))
6/6+6/5+6/4+6/3+6/2+6/1
1028:卵の名無しさん
20/03/12 08:06:42.70 Hoqw8S6P.net
入国禁止
各地に発熱外来設置して一般医療機関を守る
積極的な検査
収容所の建設
全部やってないからかなりの確率でやばいことになる
1029:卵の名無しさん
20/03/12 09:22:20 H/57N0MN.net
>>969
問題は
サイコロを全ての目が最低1回出るまで振り続ける。振る回数の期待値を求めよ。
1030:卵の名無しさん
20/03/12 10:41:06 H/57N0MN.net
A=1:3
B=4:5
C=6
sim <- function(){
flag=FALSE
i=0
pips=NULL
while(flag==FALSE){
i=i+1
pips=c(pips,sample(6,1))
flag=any(A %in% pips) & any(B %in% pips) & any(C %in% pips)
}
i
}
k=1e4
mean(replicate(k,sim()))
> k=1e4
> mean(replicate(k,sim()))
[1] 7.2577
>
1031:卵の名無しさん
20/03/12 13:07:07 Hoqw8S6P.net
> k=1e6
> mean(replicate(k,sim()))
[1] 7.300615
1032:卵の名無しさん
20/03/12 13:24:03 htxQouXq.net
なんで本当の事を言ってるのに責められなきゃならんの？
森は「だって検事が逃げちゃったのはホントじゃん。検事なんか自分だけ助かれば
良いと思ってるに決まってるでしょーが。検事が人格者だけだと思ってるの？」
と正直に言ってるだけだよ。少し発達障害気味か。
1033:卵の名無しさん
20/03/12 14:13:04 Hoqw8S6P.net
電源対策を怠り原発を溶かし、株価維持で年金を溶かし
海外に金をばらまき、国内にウイルスをばらまき、
出生数を過去最低にし、善政が行われていれば誕生していた日本人を何万人も殺した、日本の悪魔。
さて誰でしょう？
1034:卵の名無しさん
20/03/12 15:47:17 Hoqw8S6P.net
本番するなら合意の記録を残すのは常識。
1035:卵の名無しさん
20/03/12 20:10:41 Hoqw8S6P.net
地震が来たら検察官逃げた(個人的見解)
取り調べ中の被疑者も逃げた(個人的見解)
だから
検察官の定年延長
すまん。
アホな俺にもわかるように説明してくれよ
理解できないんだけど
1036:卵の名無しさん
20/03/13 06:53:32 kiP5MRUD.net
pr2pva <- function( # prevalence to predicative value,accuracy
pr ,# prevalence
sn=0.7, # sensitibity=TP/(TP+FN)
sp=0.9) # specificity=TN/(TN+FP)
{
N=1 # polutaion million, billion,or any proper unit
si=pr*N # sick population
he=(1-pr)*N # healthy population
TP=si*sn
FN=si*(1-sn)
TN=he*sp
FP=he*(1-sp)
PPV=TP/(TP+FP)
NPV=TN/(TN+FN)
accuracy=(TP+TN)/(TP+TN+FP+FN)
re=c(PPV=PPV,NPV=NPV,accuracy=accuracy)
return(re)
}
prev=seq(1e-7,1,length.out = 1000)
pva=sapply(prev, pr2pva(x))
plot(prev,pva[,1],bty='l',type='l',
ylab='predicative vale',xlab='prevalence(log)',main='sensitity=0.7,specificity=0.9',log='x',lwd=2)
lines(prev,pva[,2],lty=2,lwd=2)
lines(prev,pva[,3],lty=3,lwd=2)
legend('center',bty='n',legend=c('Posivive Predicative Value','Negative Predicative Value','Accuracy'),lty=1:3,lwd=2)
abline(h=0.8,col='gray')
uniroot(function(x) pr2pv(x)['PPV']-0.8, c(0,1))
1037:卵の名無しさん
20/03/13 07:06:17 kiP5MRUD.net
"袋の中に赤玉7個、白玉6個、黒玉5個入っている。
玉を一つずつ取り出していき赤玉を全て取り出した時点で終了とする。
取り出した白玉の個数の期待値は？
"
v=rep(1:3,7:5)
balls=NULL
flag=FALSE
sim <- function(){
while(flag==FALSE){
balls=c(balls,sample(v,1))
flag=(sum(balls==1)==7)
}
sum(balls==2)
}
k=1e5
mean(replicate(k,sim()))
1038:卵の名無しさん
20/03/13 07:08:50 kiP5MRUD.net
>>977
地裁いわき支部が公判日程全部キャンセルになって、以降郡山支部でやるから、って言ってきたから地検いわき支部も対応して郡山で執務することにした。
そのために郡山に移動した行為を「逃げた」と形容するなら、この大臣は法務省の
1039:トップに立つ資格がない。
1040:卵の名無しさん
20/03/13 07:34:51.70 kiP5MRUD.net
balls=rep(1:3,7:5) # 玉の配列 1:赤 2:白 3:黒
picked=NULL # 取り出された玉の配列
flag=FALSE # 赤玉が全部取り出されたかのflag
sim <- function(){
while(flag==FALSE){
i=sample(length(balls),1) # 配列ballsのindexから１つ選んで
picked=c(picked,balls[i]) # そのindex相当の玉をpickedにいれて
balls=balls[-i] # ballsの配列から除く
flag=sum(picked==1)==7 # 赤玉が全部取り出されたか
}
sum(picked==2) # 取り出された白玉の数を返す
}
k=1e5
mean(replicate(k,sim()))
> mean(replicate(k,sim()))
[1] 5.24854
1041:卵の名無しさん
20/03/13 07:57:01 kiP5MRUD.net
>>972
サイコロふって1,2,3が出る事をA、4,5が出る事をB、6が出る事をCとする。
ABCが全て少なくとも一回起こるまでの平均は？
P(n)=(3/6)*((3/6)^(n-1)-(1/6)^(n-1)-(2/6)^(n-1))+(1/6)*((5/6)^(n-1)-(2/6)^(n-1)-(3/6)^(n-1))+(2/6)*((4/6)^(n-1)-(1/6)^(n-1)-(3/6)^(n-1))
E=Σ[k=3,∞]kP(k)=73/10
1042:卵の名無しさん
20/03/13 10:44:38.34 kiP5MRUD.net
安倍唯一の数値が崩壊していく。
これも年金買い支えで無理やり上げていただけなんだけどね。
2014年に消費税増税せず、金融緩和と財政出動を公約通りセットでやっていたならもっと株価も上がってたし、インバウンド観光立国とかいう脆弱でアホな経済政策もやる必要が無かった、ひいては武漢肺炎も日本で蔓延することも無かった。アホだわ、究極のアホだわ。
1043:卵の名無しさん
20/03/13 10:52:12.56 kiP5MRUD.net
逃亡w
年金積立金管理運用独立行政法人（GPIF）の
髙橋則広・理事長、
三石博之・理事（総務・企画等担当）、
水野弘道・理事（管理運用業務担当）
が3月31日に全員一斉に退任することが決まった
1044:卵の名無しさん
20/03/13 11:01:23.35 kiP5MRUD.net
>>984
戦局が悪化した南方線から逃げ出していた高級将校そのままだな
日本のサムライ、軍人文化を継承してる w
武士道とは見捨てて逃げることなりw
1045:卵の名無しさん
20/03/13 11:26:43 kiP5MRUD.net
安倍政権が完全に移民政策に舵を切った時から
日本古代の縄文期～弥生期への現日本人の民族淘汰が開始
1046:卵の名無しさん
20/03/13 11:42:08.05 kiP5MRUD.net
マジで安倍と黒田って歴代最悪の政権だろ
自分の権力維持のために平時から金融政策やりまくって緊急時に打つ手なし
1047:卵の名無しさん
20/03/13 11:46:10.92 kiP5MRUD.net
老後2000万必要ってNISAイデコやらした後の見事な嵌め込み
子供NISAでガキの小遣いまで巻き上げるとは
1048:卵の名無しさん
20/03/13 11:54:27.02 kiP5MRUD.net
こう言う時の為に財政ファイナンスはとっておかなきゃいけないんだよ
安倍は平時にやりまくってるからもう切れるカードがない
おれたちの年金を注ぎ込んで維持しようとしてるが無駄
1049:卵の名無しさん
20/03/13 11:55:32.15 kiP5MRUD.net
空売り最高、今の政府なら全力で信用売りできる。
1050:卵の名無しさん
20/03/13 12:44:58 kiP5MRUD.net
しかしアベノミクスで年金マネー溶かすぐらいなら
ベーシックインカムの社会実験した方がましだったよな
1051:卵の名無しさん
20/03/13 14:46:55.81 kiP5MRUD.net
令和恐慌はコロナウィルスの刑があるからな。
どこで感染するかわからないから、街中や観光に行くのは危険。
旅行や温泉に行くのも危険。
感染したら、周りの人に大迷惑が及ぶ。
２週間隔離
1052:の刑、務めてる会社の２週間閉鎖の刑、交流のあった人も２週間隔離の刑、消毒シャワーの刑が待ってるからな。 致死量は低いとわかっていても、こんな事されたら誰も嫌だよ。 まわりの人から白い目で見られるぞ。
1053:卵の名無しさん
20/03/14 17:10:22 JTcHyWZf.net
白い目とは私立医
1054:卵の名無しさん
20/03/31 08:28:22.27 novqX08f.net
安倍のコロナ対応批判すると、すぐに他国の話出して
日本は諸外国よりよくやってるとほざくアホいるが、
日本の感染者数が少ないのは元々の衛生観念が高いことと勤勉さが功を奏しているだけで、
日本のコロナ対策が功を奏しているわけではない
安倍がコロナ対策で具体的に何やった？
1055:卵の名無しさん
20/04/03 17:23:32 fFE5E/RY.net
阿倍はまず武漢からどんどん感染者を日本国内に招き入れ拡散させた。
次に、感染疑い者の検査をさせなかった。
アビガンを隠し続けて初期治療させなかった。
結果、どんどん日本国内でアウトブレイクを目標とした。
何故か今のところ発症者、死者は欧米とくらべて少ない。日本株ＢＣＧの影響という番狂わせ仮説はある。
安倍はイルミナティ悪の１３血族。
今回の新コロナ生物兵器は東大教授Ｋがつくったと言われている。
指示したのはいわずもなが。
1056:卵の名無しさん
20/04/10 21:56:13.39 DSlRyoz0.net
>>995
オカルト板へ帰れ！
1057:卵の名無しさん
20/04/10 22:16:07 zM8s5Rp0.net
事実バラされて悔しいか朝鮮人
1058:卵の名無しさん
20/04/10 22:18:05 zM8s5Rp0.net
URLﾘﾝｸ(www.youtube.com)
1059:卵の名無しさん
20/04/30 12:54:02 Jd2jCz5E.net
白い巨塔
白い液体
1060:卵の名無しさん
20/04/30 12:54:14 Jd2jCz5E.net
ほなさいなら
1061:1001
Over 1000 Thread .net
このスレッドは１０００を超えました。
新しいスレッドを立ててください。
life time: 111日 3時間 10分 57秒
1062:過去ログ ★
[過去ログ]
■ このスレッドは過去ログ倉庫に格納されています