底辺私立医大を卒業した医者って頭悪いよね？ Part20

タイトルまんまです

すなわち、タイトルの正しさを検証するスレです。

※前スレ
底辺私立医大を卒業した頭悪いよね？
http://egg.2ch.net/test/read.cgi/hosp/1472273747/
底辺私立医大を卒業した医者って頭悪いよね？ Part2
http://egg.2ch.net/test/read.cgi/hosp/1520807375/
底辺私立医大を卒業した医者って頭悪いよね？ Part3
http://egg.2ch.net/test/read.cgi/hosp/1522967067/
底辺私立医大を卒業した医者って頭悪いよね？ Part4
http://egg.2ch.net/test/read.cgi/hosp/1526677794/
底辺私立医大を卒業した医者って頭悪いよね？ Part5
http://egg.2ch.net/test/read.cgi/hosp/1529666055/
底辺私立医大を卒業した医者って頭悪いよね？ Part6
http://egg.5ch.net/test/read.cgi/hosp/1531305684/
底辺私立医大を卒業した医者って頭悪いよね？ Part7
http://egg.2ch.net/test/read.cgi/hosp/1532472024/
底辺私立医大を卒業した医者って頭悪いよね？ Part8
http://egg.2ch.net/test/read.cgi/hosp/1533510399/
底辺私立医大を卒業した医者って頭悪いよね？ Part9
http://egg.2ch.net/test/read.cgi/hosp/1535547275/
底辺私立医大を卒業した医者って頭悪いよね？ Part10
https://egg.2ch.net/test/read.cgi/hosp/1537867846/
底辺私立医大を卒業した医者って頭悪いよね？ Part11
https://egg.5ch.net/test/read.cgi/hosp/1544320163/
底辺私立医大を卒業した医者って頭悪いよね？ Part12
https://egg.5ch.net/test/read.cgi/hosp/1550969602/
底辺私立医大を卒業した医者って頭悪いよね？ Part13
https://egg.5ch.net/test/read.cgi/hosp/1575242106/
底辺私立医大を卒業した医者って頭悪いよね？ Part14
https://egg.5ch.net/test/read.cgi/hosp/1578616997/
底辺私立医大を卒業した医者って頭悪いよね？ Part15
https://egg.5ch.net/test/read.cgi/hosp/1584050953/
底辺私立医大を卒業した医者って頭悪いよね？ Part16
https://egg.5ch.net/test/read.cgi/hosp/1587907116/
底辺私立医大を卒業した医者って頭悪いよね？ Part17
https://egg.5ch.net/test/read.cgi/hosp/1592215787/
底辺私立医大を卒業した医者って頭悪いよね？ Part18
https://egg.5ch.net/test/read.cgi/hosp/1607310274/
底辺私立医大を卒業した医者って頭悪いよね？ Part19
https://egg.5ch.net/test/read.cgi/hosp/1612996282/

f <- function(x,N=7){
y=c(x,x[1])
n=length(x)
re=NULL
for(i in 1:n){
re=rbind(re,sort(y[i:(i+1)]))
}
re=re[apply(re,1,function(x) x[1]!=x[2]),]
nrow(unique(re))==choose(N,2)
}

v=rep(1:8,2)
flg=FALSE
while(!flg){
x=c(1:8,sample(v))
flg=f(x)
}
x

N=8
f <- function(x,N){
y=c(x,x[1])
n=length(x)
re=NULL
for(i in 1:n){
re=rbind(re,sort(y[i:(i+1)]))
}
re=re[apply(re,1,function(x) x[1]!=x[2]),]
nrow(unique(re))==choose(N,2)
}

v=rep(1:N,2)
flg=FALSE
while(!flg){
x=c(1:N,sample(v))
flg=f(x)
}
x

一般化

N=8
r=2
f <- function(x,N){
y=c(x,x[1])
n=length(x)
re=NULL
for(i in 1:n){
re=rbind(re,sort(y[i:(i+1)]))
}
re=re[apply(re,1,function(x) x[1]!=x[2]),]
nrow(unique(re))==choose(N,2)
}

v=rep(1:N,r)
flg=FALSE
while(!flg){
x=c(1:N,sample(v))
flg=f(x,N)
}
x

昨今は、東京在住の富裕層の娘に一人暮らしをさせたくない親が首都圏私立医学部へ行かせるケースがありますが、大学としてはやはり地方でも国立大学が勝ります。他学部と決定的に異なることは、私立医学部は慶應を除いて医科単科大学か、大東亜帝国以下の大学の医学部になっているということです。さらに、医学部の学生数は国立大学の方が多いのも特徴です。これらのことから、他学部出身のOBまで含めた社会勢力や知名度、医学会での勢力で私立大学の医学部が将来的に伸びていくことは困難です。地方国立大学の医学部を蹴って首都圏私立大学医学部を選択したケースについては、私立医学部バブル期に発生した特殊ケースとして笑い話になるものと思われます。30年前の私大バブル期に北海道大学を蹴って亜細亜大学に入学した話が当時の異常さを物語る逸話としていまだに語られるのと同じです。

>>5
これは理論上、解なしだな。

N=8
r=3

f <- function(x,N){
y=c(x,x[1])
n=length(x)
re=NULL
for(i in 1:n){
re=rbind(re,sort(y[i:(i+1)]))
}
re=re[apply(re,1,function(x) x[1]!=x[2]),]
nrow(unique(re))==choose(N,2)
}

v=rep(1:N,r)
flg=FALSE
while(!flg){
x=c(1:N,sample(v))
flg=f(x,N)
}
x

地元の国立大学医学部に入れないような学力のものが無理して医師になる必要はない。
幸い、東京には国立大学医学部が二校ある。

Welcome to R Console!
Please wait while loading...
referenceTable GDEF length=814 1
referenceTable GSUB length=11364 1
referenceTable GPOS length=47302 1

R version 3.1.2 (2014-10-31) -- "Pumpkin Helmet"
Copyright (C) 2014 The R Foundation for Statistical Computing
Platform: armv7l-unknown-linux-gnueabihf (32-bit)

R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
Type 'license()' or 'licence()' for distribution details.

R is a collaborative project with many contributors.
Type 'contributors()' for more information and
'citation()' on how to cite R or R packages in publications.

Type 'demo()' for some demos, 'help()' for on-line help, or
'help.start()' for an HTML browser interface to help.
Type 'q()' to quit R.

> N=8
> r=4
>
> f <- function(x,N){
+ y=c(x,x[1])
+ n=length(x)
+ re=NULL
+ for(i in 1:n){
+ re=rbind(re,sort(y[i:(i+1)]))
+ }
+ re=re[apply(re,1,function(x) x[1]!=x[2]),]
+ nrow(unique(re))==choose(N,2)
+ }
>
> v=rep(1:N,r)
> flg=FALSE
> while(!flg){
+ x=c(1:N,sample(v))
+ flg=f(x,N)
+ }
> x
[1] 1 2 3 4 5 6 7 8 4 7 5 8 1 3 5 2 8 6 6 3 1 4 5 4 7 5 1 6 4 2 6 1 8 8 3 7 3 2
[39] 2 7
>

相変わらず数学板でもクソみたいな扱いされてんだね。

>>11
残念でした、モンテカルロ法での数値解を、数理解でフォローしてくれている賢者のレスがついているよ。

https://rio2016.5ch.net/test/read.cgi/math/1613490127/896

罵倒しかできないクズもいるけどな。

>>12
はいはい自演ワロス

計算も終わらないのにこれみよがしにプログラム()
答え出せないなら引っ込んでろ。

>>14
結局、答が出せず罵倒しかできなかった奴がいるらしいね。

>>15
途中で投げ出しておいて都合の悪いレスを罵倒と言うしか能がなかったバカが暴れてましたよ。

これよりスレタイは
【コンプ薬屋】医者を妬む非医師の集い【Ｆラン統計ジジイ】
Part20となりまーす

557 卵の名無しさん[sage] 2021/03/25(木) 23:58:40.35 ID:o8v8c7Q/
トケジ、応召義務分かってなかった案件

当直医のスレ Part 28
597 ：卵の名無しさん[sage]：2021/03/23(火) 03:33:31.38 ID:+NL/TzKD
>>584
>患者受けるかなんて当直医の判断ひとつじゃん
応召義務違反で訴えられかねんぞ。
当直医に事前の連絡もなく「CPAはいります」とPHSで呼ばれる病院もあったぞ。
忙しかったが給与はよかった。

応召義務が分かってないことがバレてそのIDでは速攻雲隠れ
↓
http://hissi.org/read.php/hosp/20210323/Umt3cnE4Mmk.html

その後別IDで大発狂
しかし同日人物であることは火を見るより明らか
タイポを詰るも最後は私立医のフリをして応召義務の件を私立医に押し付けようとする
↓
日を改めて別人として能書きを垂れようとするもすでに遅きに失したので何を言っても一笑に付される。しかし全く懲りずに能書きとトンチンカンなプログラムを垂れ流す←今ココ

高校数学の質問スレ　Part411
265 １３２人目の素数さん[sage] 2021/04/02(金) 06:49:43.46 ID:pGdfDivG
統計処理を開始する前にグラフ化しろと教わったな。
平均・分散・回帰直線が告示するデータとしてanscombeの例は有名
https://i.imgur.com/yeGIEZz.png

266 １３２人目の素数さん[sage] 2021/04/02(金) 07:16:45.82 ID:aCR3G7jx
>>265
告示→酷似

IDに注目。朝っぱらからトケジ、自演がバレるw

rm(list=ls())

N=10 ; R=5
NR=N*R
L=vector('list',N)
for(i in 1:N) L[[i]]=i
f <- function(x){
a=logical(N)
for(j in 1:N) a[j] <- x %in% L[[j]]
# cat(a,'\n')
if(all(a)) return(NA)
else min(which(!a))
}
Re=numeric(NR)
Re[1]=1
for(i in 1:2){
k=f(Re[i])
Re[i+1]=k
L[[Re[i]]] <- c(L[[Re[i]]],Re[i+1])
L[[k]] <- c(L[[k]],Re[i])
}
Re
head(L)
for(i in 3:3){
k=f(Re[i])
Re[i+1]=k
L[[Re[i]]] <- c(L[[Re[i]]],Re[i+1])
L[[k]] <- c(L[[k]],Re[i])
}
Re
head(L)

# IQ17は偏差値いくつに相当するか？
IQ2H <- function(x) qnorm(pnorm(x,100,15),50,10)
IQ2H(100)
IQ2H(17)
IQ2H(0)
IQ2H(200)
IQ2H=Vectorize(IQ2H)
curve(IQ2H,0,200)

H2IQ <- function(x) qnorm(pnorm(x,50,10),100,15)
H2IQ(50)
H2IQ(100)
H2IQ(0)
curve(H2IQ,0,125)

まだこりずに数学板に粘着してるのか。

"
凸四角形の頂点をA,B,C,Dとするときに
どの順に連結すれば四角形を形成するか？
"
rm(list=ls())
source('toolmini.R')
par(mar=c(0,0,0,0),oma=c(0,0,0,0))

do <- function(){

in3 <- function(P,A,B,C){
opc <- function(a,b) Re(a)*Im(b)-Im(a)*Re(b)
sum(opc(B-A,P-A)>0,opc(C-B,P-B)>0,opc(P-A,C-A)>0)%%3==0
}
A=runif(1)+1i*runif(1)
B=runif(1)+1i*runif(1)
C=runif(1)+1i*runif(1)
D=runif(1)+1i*runif(1)
if(any(c(in3(A,B,C,D),in3(B,C,D,A),in3(C,D,A,B),in3(D,A,B,C)))){
stop("concave tetragon !")
}

par(mfrow=c(1,3))
Plot(0,1,axes=FALSE)
pt(A,'A') ; pt(B,'B') ; pt(C,'C') ; pt(D,'D')
Polygon(A,B,C,D,Col=8)

Plot(0,1,axes=FALSE)
pt(A,'A') ; pt(B,'B') ; pt(C,'C') ; pt(D,'D')
Polygon(A,B,D,C,Col=2)

Plot(0,1,axes=FALSE)
pt(A,'A') ; pt(B,'B') ; pt(C,'C') ; pt(D,'D')
Polygon(A,C,B,D,Col=3)

layout(1)
v=c(A,B,C,D)
m=mean(v)
re=LETTERS[order(Arg(v-m))]
re2=rep(re,2)
i=min(which(re2=='A'))
noquote(re2[i:(i+3)])
}
do()

>>21
シミュレーション依頼がくるからね。

>>16
高速CPUのPCだと計算が終了したから、誤答を訂正して投稿できた。
罵倒だけで答も出せないクズがいたけどな。

> do()
[1] A C B D

https://i.imgur.com/dd2xXWK.png

ようやく、解法が見つかった。
目で確認すればどの順に連結すれば四角形ができるかは簡単に判別できるのだが、これを数値処理するのは難しかった。

>>24
誰も頼んでねぇよバカ

四点の座標を与えて四角形の面積を求める関数を作ろうと思ったが
凹三角形だと三種類の四角形ができてしまう。
https://i.imgur.com/7MApywL.png

>>27
シミュレーション向きの問題とか、PC使って期待値を検算したいとかの投稿があったね。
素数を列挙したら、礼を言われたし。

>>29
あのゴミ扱いを見てどこまでおめでたいんだ？

is.concave <- function(){
in3 <- function(P,A,B,C){
opc <- function(a,b) Re(a)*Im(b)-Im(a)*Re(b)
sum(opc(B-A,P-A)>0,opc(C-B,P-B)>0,opc(P-A,C-A)>0)%%3==0
}
A=runif(1)+1i*runif(1)
B=runif(1)+1i*runif(1)
C=runif(1)+1i*runif(1)
D=runif(1)+1i*runif(1)
any(c(in3(A,B,C,D),in3(B,C,D,A),in3(C,D,A,B),in3(D,A,B,C)))
}
mean(replicate(1e6,is.concave()))

>>30
1000までの素数の個数の数の検証に素数を列挙したら、礼を言われた。
高校生でもきちんと礼がいえるんだよね。

# 四角形ABCDができる確率
is.ABCD <- function(){
in3 <- function(P,A,B,C){
opc <- function(a,b) Re(a)*Im(b)-Im(a)*Re(b)
sum(opc(B-A,P-A)>0,opc(C-B,P-B)>0,opc(P-A,C-A)>0)%%3==0
}
A=runif(1)+1i*runif(1)
B=runif(1)+1i*runif(1)
C=runif(1)+1i*runif(1)
D=runif(1)+1i*runif(1)
concave=any(c(in3(A,B,C,D),in3(B,C,D,A),in3(C,D,A,B),in3(D,A,B,C)))
if(concave) return(1i)
v=c(A,B,C,D)
m=mean(v)
i=order(Arg(v-m))
V=c(A,B,C,D)
i2=rep(i,2)
j=min(which(i2==1))
ABCD=all(i2[j:(j+3)]==1:4)
if(ABCD) return(1) else return(0)
}

is.ABCD()

y=replicate(1e6,is.ABCD())
mean(y==1i|y==1) # すべての四角形ABCD
mean(y==1) # 凸四角形ABCD
mean(y==1i) # 凹四角形ABCD

>>32
誰が礼をしてるって？
相変わらずおめでたい頭だね。

930 １３２人目の素数さん[sage] 2021/04/28(水) 13:46:55.42 ID:Mu+6Sp1L
>>919
これって穴だらけ間違い証明例のネタ？

931 １３２人目の素数さん[sage] 2021/04/28(水) 14:19:42.97 ID:Lcy701lh
ホンマ
全く意味不明やな

>>35
別人だが、人物鑑別もできないアホかよ。

俺が書いたのは

こっちね。

二項係数をガンマ関数を使って
nCk <- function(n,k) gamma(n+1)/(gamma(k+1)*gamma(n-k+1))
と定義すれば、n,kが整数なら,ｎCk(n,k)は整数を証明するってことになるのか？

>>36
別人になりすませてると思ってるアホかよ。

> length(y)
[1] 10000000
> mean(y==1i|y==1) # すべての四角形ABCD
[1] 0.42133
> mean(y==1) # 凸四角形ABCD
[1] 0.1156938
> mean(y==1i) # 凹四角形ABCD
[1] 0.3056362

>>38
俺はこういうスタンスだから数値解がでない問題は基本的に手をつけない。


何が自明かは、個人の主観によって左右される。
最後はcogito ergo sumになるのかもしれん。

シュレーディンガーの猫にとっては鳩ノ巣原理すら自明ではない。
興味あればこれをどうぞ。
https://biz-journal.jp/2016/01/post_13447.html

951 １３２人目の素数さん[sage] 2021/04/29(木) 07:29:16.75 ID:ufzUvmWI
今日もスレタイが読めないアホのプロおじ
さっさと消えろよゴミ

だそうです。

>>39
数え落としがあるな。

# サイコロでシミュレーション
rm(list=ls())
source('toolmini.R')
par(mar=c(0,0,0,0),oma=c(0,0,0,0))
par(mfrow=c(5,5))
n6=6
sim <- function(point=TRUE){
x=sample(n6,4,rep=TRUE)
y=sample(n6,4,rep=TRUE)
A=x[1]+1i*y[1]
B=x[2]+1i*y[2]
C=x[3]+1i*y[3]
D=x[4]+1i*y[4]
Plot(1,n6,axes=F)
if(point) points(x,y,pch=LETTERS[1:4])
Polygon(A,B,C,D)
}
DEL=replicate(25,sim(F))

やっぱり数学板でもクソ扱いじゃん笑

おいこら回避

173 可愛い奥様 2021/04/28(水) 17:41:45.19 ID:A7Si6vzf0

私は探す会が加害者側の人間だから懸賞金に生存条件を付けたと感じています。亡くなっていることを認識していて絶対に払う必要がないから。
自分たちは加害者側じゃないですよーというポーズでビラを作っているようにしか見えません。

↓そのチラシと、守る会（旧名は探す会）のTwitter
https://twitter.com/asahikawasaaya/
https://i.imgur.com/W5tVbUP.jpg
https://twitter.com/5chan_nel (5ch newer account)

普通に女医っぽい見た目
https://twitter.com/5chan_nel (5ch newer account)

>>44
俺の出題に複数の解答が寄せられた。
シミュレーション解と一致していた。

n=5
out3 <- function(P,A,B,C){
opc <- function(a,b) Re(a)*Im(b)-Im(a)*Re(b)
sum(opc(B-A,P-A)>0,opc(C-B,P-B)>0,opc(P-A,C-A)>0)%%3!=0
}
"
plot(0,0,xlim=c(0,1),ylim=c(0,1) ,type='n',axes=FALSE)
for(i in 1:n){
text(Re(P[i]),Im(P[i]),LETTERS[i],cex=0.75)
}
"
P=complex(n)
P=runif(n)+1i*runif(n)

Out=logical(n)
for(i in 1:n){
Q=P[-i]
f <- function(x) out3(P[i],Q[x[1]],Q[x[2]],Q[x[3]])
Out[i]=all(combn(n-1,3,f))
}
all(Out)

rm(list=ls())
source("toolmini.R")

convex.polygon <- function(P, print=TRUE){
n=length(P)
out3 <- function(P,A,B,C){
opc <- function(a,b) Re(a)*Im(b)-Im(a)*Re(b)
sum(opc(B-A,P-A)>0,opc(C-B,P-B)>0,opc(P-A,C-A)>0)%%3!=0
}
Out=logical(n)
for(i in 1:n){
Q=P[-i]
f <- function(x) out3(P[i],Q[x[1]],Q[x[2]],Q[x[3]])
Out[i]=all(combn(n-1,3,f))
}
is.convex=all(Out)
if(is.convex){
M=mean(P)
io=order(Arg(P-M))
}

if(print & is.convex){
plot(0,0,xlim=c(0,1),ylim=c(0,1) ,type='n',axes=FALSE)
Polygon(P[io])
for(i in 1:n){
pt(P[i],LETTERS[i],cex=0.75)
}
}
S=numeric(n)
for(i in 1:(n-1)){
S[i]=ABC2S(M,P[i],P[i+1])
}
S[n]=ABC2S(M,P[n],P[1])
sum(S)
}

convex.polygon <- function(P, print=TRUE){
n=length(P)
out3 <- function(P,A,B,C){
opc <- function(a,b) Re(a)*Im(b)-Im(a)*Re(b)
sum(opc(B-A,P-A)>0,opc(C-B,P-B)>0,opc(P-A,C-A)>0)%%3!=0
}
Out=logical(n)
for(i in 1:n){
Q=P[-i]
f <- function(x) out3(P[i],Q[x[1]],Q[x[2]],Q[x[3]])
Out[i]=all(combn(n-1,3,f))
}
is.convex=all(Out)
if(is.convex){
M=mean(P)
io=order(Arg(P-M))
if(print){
plot(0,0,xlim=c(0,1),ylim=c(0,1) ,type='n',axes=FALSE)
Polygon(P[io])
for(i in 1:n){
pt(P[i],LETTERS[i],cex=0.75)
}
S=numeric(n)
for(i in 1:(n-1)){
S[i]=ABC2S(M,P[i],P[i+1])
}
S[n]=ABC2S(M,P[n],P[1])
rerurn(sum(S))
}else{
stop("concave polygon!")
}

rm(list=ls())
source("toolmini.R")

ABC2S <- function(A,B,C){
.a=abs(B-C)
.b=abs(C-A)
.c=abs(A-B)
.s=(.a+.b+.c)/2
sqrt(.s*(.s-.a)*(.s-.b)*(.s-.c))
}

Polygon <- function(...,Col=1,Lwd=1,Lty=1){
p=c(...)
n=length(p)
for(i in 2:n){
seg(p[i-1],p[i],col=Col,lwd=Lwd,lty=Lty)
}
seg(p[1],p[n],col=Col,lwd=Lwd,lty=Lty)
}

seg <- function(a,b,...){
if(is.complex(a)|is.complex(b)){
segments(Re(a),Im(a),Re(b),Im(b),...)
}else{
segments(a[1],a[2],b[1],b[2],...)
}
}

pt <- function(x,y=NULL,...){
if(is.complex(x)) {a=Re(x) ; b=Im(x)}
else{a=x[1] ; b=x[2]}
text(a,b, ifelse(is.null(y),'+',y), ...)
}

convex.polygon <- function(P, print=TRUE){
n=length(P)
out3 <- function(P,A,B,C){
opc <- function(a,b) Re(a)*Im(b)-Im(a)*Re(b)
sum(opc(B-A,P-A)>0,opc(C-B,P-B)>0,opc(P-A,C-A)>0)%%3!=0
}
Out=logical(n)
for(i in 1:n){
Q=P[-i]
f <- function(x) out3(P[i],Q[x[1]],Q[x[2]],Q[x[3]])
Out[i]=all(combn(n-1,3,f))
}
is.convex=all(Out)
if(is.convex){
M=mean(P)
io=order(Arg(P-M))
if(print){
plot(0,0,xlim=c(0,1),ylim=c(0,1) ,type='n',axes=FALSE)
Polygon(P[io])
for(i in 1:n){
pt(P[i],LETTERS[i],cex=0.75)
}
}
S=numeric(n)
for(i in 1:(n-1)){
S[i]=ABC2S(M,P[i],P[i+1])
}
S[n]=ABC2S(M,P[n],P[1])
return(sum(S))
}else{
stop("concave polygon!")
}
}

n=5
P=runif(n)+1i*runif(n)
convex.polygon(P,F)

>>46
複数の回答？
複数からのゴミ扱いの間違いだろ。

凸多角形の頂点の座標を順不同に入れて
凸多角形を描画してその面積を出す、関数がようやく完成

９角形の場合
https://i.imgur.com/NxFIAZo.png

>>52
誤答を別の人が指摘して最後は厳密解に達していたなぁ。
イナ芸人はいつもの芸風だったが。

> n=5
> k=1e6
> y=replicate(k,convex.polygon(runif(n)+1i*runif(n),print=F))
> z=y[!is.na(y)]
> summary(z)
Min. 1st Qu. Median Mean 3rd Qu. Max.
0.001367 0.120711 0.179987 0.192136 0.250714 0.772406
> length(z)/k
[1] 0.340972
> BEST::plotPost(z,xlab='凸五角形')

>>54
バカにされてるだけだからお前は。
とんだ勘違い野郎。

統計ジジイにワクチンは税金の無駄だな

大小のサイコロを振って
大の目はx座標、小の目はy座標として
４点の座標を選ぶ
この４点を結んで凸四角形が形成される確率はいくらか？

凸四角形を作らない例
https://i.imgur.com/q1xfnEt.png


>>57
罵倒厨にはワクチンの順番も回ってこないんじゃないの？

>>58
残念。もうワクチンうちました。
順番回ってこないということはまだ打ってないのか？
医療従事者でもないのにここにいるのか？

>>58
これは有限だからモンテカルロ法を使わずに、厳密解が出せるな。

>>59
医療従事者としか言えない職種って、看護助手だろ？

内視鏡できる資格もない医療従事者って注射も処方もできんだろ？

大小のサイコロを振って
大の目はx座標、小の目はy座標として
４点の座標を選ぶ
この４点を結んで形成される凸四角形の面積の期待値を求めよ。

罵倒は期待値が出せないと思うね。

>>62
お前非医じゃん。

>>63
罵倒は期待値出せない？
日本語も不自由な非医は退場を。

>>58
凹四角形に加えて三角形や折れ線になるのを除外して凸四角形だけ残して作図して面積を計算。
例
https://i.imgur.com/msLqkr2.png

凸四角形の面積の期待値はいくらか？

日本語不自由なことがバレてID変えても無駄だぞ。

>>64
内視鏡メインで働いているけど。
今月はtub1を2例見つけた。
あんたは看護補助者か？

>>66
罵倒厨は公式がないと期待値も出せないのか？
作図もできないみたいだし、できるのは罵倒と自演認定だけ。

>>66
こんな分布になった。
https://i.imgur.com/TShHpc1.png

>>68
事務員ですね、わかります

いい歳こいた自称爺医が5chでバイト自慢って()
哀れだね
どうせ家族もいないんだろう

>>71
業者が26000円ほど中貫きだろうな。

反応性隆起のあった方はtub1で返ってくるとすぐにわかったけど、もう一方はadenomaかIIaかNBI拡大でも鑑別できなかったな。

職種を言えない医療従事者って看護補助者か病院清掃かな？

>>76
医者だけど何か？
お前は非医だけどな。

>>73
病院清掃員かな？

>>78
いくら医者のフリしても日本語不自由、ID変えれば別人になりすませると思ってるようじゃ話にならないね。

https://egg.5ch.net/test/read.cgi/hosp/1607687111/

トケジはここがお似合い。

>>79
んで、あんたの職種は？やっぱり、看護補助者？

ようやく、プログラム終了

問題
大小のサイコロを同時に4回振って
大の目はx座標、小の目はy座標として４点の座標を選ぶ。
この４点を多角形を形成するように交わらない線分で結ぶ。

（１）できた多角形が三角形である確率はいくらか？
（２）三角形ができた場合の面積の期待値を求めよ。

>>77
いや、業界ネタが投稿できない医療従事者って病院清掃員だろ

>>82
日本語も不自由では医療従事者かどうかも怪しいな。

業界ネタなんて非医でもいくらでも適当に拾ってこれるから今までのトケジの言動から言ってやっぱり非医だなって思うわけよ
医師法も期待値も分からない、補助線も引けない、日本語も不自由なのが医者どころか医療従事者になれるわけないって

罵倒は期待値が出せないと思うね。

罵倒は期待値が出せないと思うね。

罵倒は期待値が出せないと思うね。

罵倒は期待値が出せないと思うね。

罵倒は期待値が出せないと思うね。

https://i.imgur.com/YX7xEG3.png

>>84
経験ないと無理だね。あんたタココンブとか使ったことないだろ？

>>87
いくら5chで騒いでも無意味だから。笑
でも医師法や期待値が分からなかったから非医であることは確かみたいだね。

おまけに日本語も不自由ときちゃもう状況証拠は揃ってるだろ。
いくら内視鏡医ぶっても無駄だよ。

本当に内視鏡医で悠々自適の生活してたらどうしてそんなにカリカリしてるのかねぇ
実際はみずほらしいジジイで5chに書き込んで医者のふりしてイキり散らかすしか楽しみがないんだろ？

>>90
カリカリしてんのあんたじゃねぇの？看護補助者だろ？
防護服の丸めから上手になりましたね、ゴミがコンパクトになって助かりますとありがたがられた。


大小のサイコロを同時に4回振って
大の目はx座標、小の目はy座標として４点の座標を選ぶ。
この４点を多角形を形成するように交わらない線分で結ぶ。
三角形ができる確率を求めよ。

https://i.imgur.com/fC1JOlV.png

>>91
防護服でマウント取ってるあたりいかにも非医だね。笑

罵倒は期待値が出せないと思うね。

罵倒は期待値が出せないと思うね。

罵倒は期待値が出せないと思うね。

罵倒は期待値が出せないと思うね。

罵倒は期待値が出せないと思うね。

日本語から勉強し直してこい笑

>>82
ならお前は自宅警備員か何かなの？

https://egg.5ch.net/test/read.cgi/hosp/1607687111/

本スレ

ABC2S <- function(A,B,C){
a=abs(B-C)
b=abs(C-A)
c=abs(A-B)
x=sort(c(a,b,c))
if(x[1]+x[2]<=x[3]){ return(0)
}else{
s=(a+b+c)/2
sqrt(s*(s-a)*(s-b)*(s-c))
}
}

gr=expand.grid(1:6,1:6,1:6,1:6,1:6,1:6)
f <- function(x){
A=x[1]+1i*x[2]
B=x[3]+1i*x[4]
C=x[5]+1i*x[6]
ABC2S(A,B,C)
}
S=apply(gr,1,f)
summary(S)

ABC2S <- function(A,B,C){
a=abs(B-C)
b=abs(C-A)
c=abs(A-B)
x=sort(c(a,b,c))
if(x[1]+x[2]<=x[3]){ return(0)
}else{
s=(a+b+c)/2
sqrt(s*(s-a)*(s-b)*(s-c))
}
}

gr=expand.grid(1:6,1:6,1:6,1:6,1:6,1:6)

f <- function(x){
A=x[1]+1i*x[2]
B=x[3]+1i*x[4]
C=x[5]+1i*x[6]
ABC2S(A,B,C)
}

S=apply(gr,1,f)
S=round(S,5)
summary(S)
length(S) ; 6^6
BEST::plotPost(S)
hist(S,breaks=30)
table(S)

また自宅警備員の寝言か

ABC2S <- function(A,B,C){
a=abs(B-C)
b=abs(C-A)
c=abs(A-B)
x=sort(c(a,b,c))
if(x[1]+x[2]<=x[3]){ return(0)
}else{
s=(a+b+c)/2
sqrt(s*(s-a)*(s-b)*(s-c))
}
}

gr=expand.grid(1:6,1:6,1:6,1:6,1:6,1:6)

f <- function(x){
A=x[1]+1i*x[2]
B=x[3]+1i*x[4]
C=x[5]+1i*x[6]
ABC2S(A,B,C)
}

S=apply(gr,1,f)
S=round(S,5)
summary(S)
length(S) ; 6^6
BEST::plotPost(S)
hist(S,breaks=30)
(tblS=table(S))
min(tblS)
as.numeric(names(tblS)[which(tblS==min(tblS))])

社会のお荷物コース
トケジによくお似合い

罵倒は期待値が出せないと思うね。

罵倒は期待値が出せないと思うね。

罵倒は期待値が出せないと思うね。

罵倒は期待値が出せないと思うね。

罵倒は期待値が出せないと思うね。

日本語から勉強し直してこい笑

>>98
1戸建ての自宅があるからね。

>>100
職種の言えない医療従事者？
清掃員か看護補助者だと推測。

>>103
やっぱり自宅警備員なんだね笑
年中無休で5chやってる穀潰しか。

罵倒は期待値が出せないと思うね。

罵倒は期待値が出せないと思うね。

罵倒は期待値が出せないと思うね。

罵倒は期待値が出せないと思うね。

罵倒は期待値が出せないと思うね。

日本語すら不自由な社会のお荷物のトケジは日本語勉強し直してこい。
医師法や期待値以前の問題だ。

7 １３２人目の素数さん[sage] 2021/05/02(日) 15:20:14.07 ID:dBMyW8hF
〜このスレの皆さんへ〜

現在、無意味なプログラムを書き込む悪質な荒らしが常駐しています
通称｢プログラムキチガイ｣｢害悪プログラムおじさん｣は医療・医者板にいる通称ウリュウという荒らしです
https://egg.5ch.net/test/read.cgi/hosp/1607687111/

数学Iの三角比の問題や中学数学の平面図形の問題でさえ手計算では解けずに
わざわざプログラムで解くような人物です
二項分布の期待値npすら知らないレベルです
すぐにマウントを取りに来ます
下ネタが大好きです
発達障害があると思われ説得しても無駄だと思われます
皆さん、一切関わらずに無視を貫きましょう


だってよ。これでもうトケジは数学板でも一切相手にされないことになる。哀れだな。

>>104
自宅所有してないの？
病院で尿瓶洗いの医療従事者みたいだな？

>>107
あるに決まってるのにそんなことでマウント取れると思ってるみたいだな、社会のお荷物の分際でw

>>108
マウント猿＝罵倒厨＝自演認定厨＝看護補助者＝自称医療従事者

最近のカフ圧計ってhPa表示してあるなぁ。
VentilatorでhPa表示なら当たったことがあるけど。

問題　血圧１００ｍｍＨｇは何hPaか？

>>108
尿瓶洗いで家が買えるとは思えんのだが。

看護補助者であるという話題を避けるから図星のようだ。
罵倒厨＝尿瓶洗い　と判明。

動脈血ガス　CO2　40　Torrは　何ヘクトパスカルに相当するか？

>>110
自宅警備員が何言ってるんだ？
親から引き継いだボロ家だろ？

トケジが医者である証拠なんかどこにもないよね。
逆に医師法、期待値、補助線が分からなかったから非医であることは間違い無いんだろうけど。
尿瓶洗ってもらってるのか？w

557 卵の名無しさん[sage] 2021/03/25(木) 23:58:40.35 ID:o8v8c7Q/
トケジ、応召義務を全く分かってなかった件

当直医のスレ Part 28
597 ：卵の名無しさん[sage]：2021/03/23(火) 03:33:31.38 ID:+NL/TzKD
>>584
>患者受けるかなんて当直医の判断ひとつじゃん
応召義務違反で訴えられかねんぞ。
当直医に事前の連絡もなく「CPAはいります」とPHSで呼ばれる病院もあったぞ。
忙しかったが給与はよかった。

応召義務が分かってないことがバレてそのIDでは速攻雲隠れ
↓
http://hissi.org/read.php/hosp/20210323/Umt3cnE4Mmk.html

その後別IDで大発狂
http://hissi.org/read.php/hosp/20210323/Umt3cnE4Mmk.html

しかし同日人物であることは火を見るより明らか
タイポを詰るも最後は私立医のフリをして応召義務の件を私立医に押し付けようとする
↓
日を改めて別人として能書きを垂れようとするもすでに遅きに失したので何を言っても一笑に付される。しかし全く懲りずに能書きとトンチンカンなプログラムを垂れるも全く相手にされず今に至る

看護補助者であるという話題を避けるから図星のようだな。
罵倒厨＝尿瓶洗い　と判明。

尿瓶洗浄係じゃ血ガスもとったことがないだろ。

>>116
いや、医者だけど何か？w
お前は自宅警備員なんだな？

〜このスレの皆さんへ〜

現在、無意味なプログラムを書き込む悪質な荒らしが常駐しています
通称｢プログラムキチガイ｣｢害悪プログラムおじさん｣は医療・医者板にいる通称ウリュウという荒らしです
https://egg.5ch.net/test/read.cgi/hosp/1607687111/

数学Iの三角比の問題や中学数学の平面図形の問題でさえ手計算では解けずに
わざわざプログラムで解くような人物です
二項分布の期待値npすら知らないレベルです
すぐにマウントを取りに来ます
下ネタが大好きです
発達障害があると思われ説得しても無駄だと思われます
皆さん、一切関わらずに無視を貫きましょう


社会だけでなく匿名掲示板からも全く相手にされてなくて草

尿瓶洗浄係じゃこれに即答できんだろ


問題　血圧１００ｍｍＨｇは何hPaか？

>>120
自宅警備員医療従事者のフリしなくていいよ
医師法も期待値も分からないんじゃ医者になれないからね

>>121
やはり尿瓶洗浄係だろ。

>>122
やはり医者どころか社会のお荷物なんだろ？

期待値が出せないのは尿瓶係のマウント猿だよ。

問題
大小のサイコロを同時に4回振って
大の目はx座標、小の目はy座標として４点の座標を選ぶ。
この４点を多角形を形成するように交わらない線分で結ぶ。

（１）できた多角形が三角形である確率はいくらか？
（２）三角形ができた場合の面積の期待値を求めよ。

>>124
自宅警備員や医師法がわからなかったのは否定できないみたいだね。笑
尿瓶清掃係はお前のバイトだろ？笑
>>115
これはどう弁明するの？

罵倒は期待値が出せないと思うね。

罵倒は期待値が出せないと思うね。

罵倒は期待値が出せないと思うね。

罵倒は期待値が出せないと思うね。

罵倒は期待値が出せないと思うね。

日本語すら不自由な社会のお荷物トケジは日本語勉強し直してこい。
医師法や期待値以前の問題だ。

医師法も期待値も分からないのに医者を騙るトケジ笑
バカにつける薬なし！

尿瓶洗浄係じゃこれに即答できんだろ


問題　血圧１００ｍｍＨｇは何hPaか？

動脈血ガス　CO2　40　Torrは　何ヘクトパスカルに相当するか？

>>100
職種の言えない医療従事者？
清掃員か看護補助者だと推測。

rm(list=ls())
source('toolmini.R')
do <- function(x=NULL,y=NULL,z=NULL,Center='I'){
incircle <- function(P,Q,R){ # inscribing circle
p=abs(Q-R)
q=abs(R-P)
r=abs(P-Q)
s=(p+q+r)/2
S=sqrt(s*(s-p)*(s-q)*(s-r))
radius=S/s
center=(p*P+q*Q+r*R)/(p+q+r)
c(center,radius)
}
x=ifelse(is.null(x),runif(1,-pi,pi),x)
y=ifelse(is.null(y),runif(1,-pi,pi),y)
z=ifelse(is.null(z),runif(1,-pi,pi),z)
P=cos(x)+1i*sin(x)
Q=cos(y)+1i*sin(y)
R=cos(z)+1i*sin(z)
if(Center=='I'){
I=incircle(P,Q,R)[1]
pt(I)
invisible(I)
}
else{
if(Center=='H'){
H=Orthocenter(P,Q,R)
pt(H,col=2)
invisible(H)
}

else{
if(Center=='G'){
G=(P+Q+R)/3
pt(G,col=4)
invisible(G)
}
}
}
}

Plot(-3,3,bty='n')
Cir(0i,1,col=8)
H=replicate(1e4,do(Center='H'))
max(abs(H)) # R=3
I=replicate(1e4,do(Center='I'))
max(abs(I)) # R=1
G=replicate(1e4,do(Center='G'))
max(abs(G)) # R=1


Plot(-3,3,bty='n')
Cir(0i,1,col=8)
H1=replicate(1e4,do(z=1,Center='H'))
(max(Re(H1))-min(Re(H1)))/2 # R=2

I1=replicate(1e4,do(z=1,Center='I'))
(max(Re(I1))-min(Re(I1)))/2 # R=1

G1=replicate(1e4,do(z=1,Center='G'))
(max(Re(G1))-min(Re(G1)))/2 # R=2/3

院内でＰＣＲ検査ができるようになったので休日も発熱外来が始まった。
日曜日の発熱外来は3人のコロナ陽性がでたみたいだな。
保健所に連絡して指示を仰ぐだけだから、ルーチンワークだけど、ＰＣＲだと検査結果がでるまで1時間かかるから数ははけないな。

>>133
検体をいれれば自動でできる。
尿瓶洗浄係だとそもそも検体採取ができないよなぁ。
高齢者に唾液２ｍLの採取は無理だし。

Plot(-3,3,bty='n')
Cir(0i,1,col=8)
H=replicate(1e4,do(Center='H'))
max(abs(H)) # R=3
I=replicate(1e4,do(Center='I'))
max(abs(I)) # R=1
G=replicate(1e4,do(Center='G'))
max(abs(G)) # R=1


Plot(-3,3,bty='n')
Cir(0i,1)
H1=replicate(1e4,do(z=1,Center='H'))
(max(Re(H1))-min(Re(H1)))/2 # R=2
I1=replicate(1e4,do(z=1,Center='I'))
(max(Re(I1))-min(Re(I1)))/2 # R=1
G1=replicate(1e4,do(z=1,Center='G'))
(max(Re(G1))-min(Re(G1)))/2 # R=2/3
pt(1+0i,'R',cex=1.5,col='white')

半径1の円C上を相異なる3点P,Q,Rが動く。
△PQRの重心をG、垂心をHとするとき、GHの取りうる範囲を求めよ"
rm(list=ls())
source('toolmini.R')
GH <- function(x=NULL,y=NULL,print=FALSE){
x=ifelse(is.null(x),runif(1,-pi,pi),x)
y=ifelse(is.null(y),runif(1,-pi,pi),y)
P=cos(x)+1i*sin(x)
Q=cos(y)+1i*sin(y)
R=1+0i
G=(P+Q+R)/3
H=Orthocenter(P,Q,R)
if(print){
Plot(-3,3,bty='n')
Cir(0i,1,col=8)
Polygon(P,Q,R)
pt(P,'P') ; pt(Q,'Q') ; pt(R,'R')
pt(G,'G') ; pt(H,'H')
seg(G,H,col=2)
pt(-3i,paste0('GH = ',round(abs(G-H),5)))
}
abs(G-H)
}

GH(print=TRUE)
for(i in 1:15){
GH(print=TRUE)
Sys.sleep(1)
}
optim(par=c(2,3),fn= function(xy) GH(xy[1],xy[2]),control=list(fnscale=-1),method='L')
GH(0.0001,0.00001)
GH(1,1.0000000000000005)
GH(1,1.0000000000000001)

x=y=seq(-pi,pi,len=50)
GH=Vectorize(GH)
z=outer(x,y,GH)
contour(x,y,z)
Persp(x,y,z)

gh=replicate(1e5,GH())
summary(gh)
hist(gh,freq=F,breaks='scott',main='length[G-H]',
col=sample(colours(),2),xlab='', ylab='',axes=F) ; axis(1)

>>134
血ガスと同じだな。
専用容器に検体採取して自動分析器にいれるだけ。

罵倒厨御用達の専用容器は尿瓶。

また穀潰しが発狂してるのか

罵倒は期待値が出せないと思うね。

罵倒は期待値が出せないと思うね。

罵倒は期待値が出せないと思うね。

罵倒は期待値が出せないと思うね。

罵倒は期待値が出せないと思うね。

日本語すら不自由な社会のお荷物トケジは日本語勉強し直してこい。
医師法や期待値以前の問題だ。

>>115
トケジ＝エセ医者のソース

557 卵の名無しさん[sage] 2021/03/25(木) 23:58:40.35 ID:o8v8c7Q/
トケジ、応召義務を全く分かってなかった件

当直医のスレ Part 28
597 ：卵の名無しさん[sage]：2021/03/23(火) 03:33:31.38 ID:+NL/TzKD
>>584
>患者受けるかなんて当直医の判断ひとつじゃん
応召義務違反で訴えられかねんぞ。
当直医に事前の連絡もなく「CPAはいります」とPHSで呼ばれる病院もあったぞ。
忙しかったが給与はよかった。

応召義務が分かってないことがバレてそのIDでは速攻雲隠れ
↓
http://hissi.org/read.php/hosp/20210323/Umt3cnE4Mmk.html

その後別IDで大発狂
http://hissi.org/read.php/hosp/20210323/Umt3cnE4Mmk.html

しかし同日人物であることは火を見るより明らか
タイポを詰るも最後は私立医のフリをして応召義務の件を私立医に押し付けようとする
↓
日を改めて別人として能書きを垂れようとするもすでに遅きに失したので何を言っても一笑に付される。しかし全く懲りずに能書きとトンチンカンなプログラムを垂れるも全く相手にされず今に至る

医師法も分からない自称医者は退場を。

>>139
尿瓶洗浄係は図星のようだな。

>>143
穀潰しは図星なんだね笑

業界ネタを書けないからは退場を

業界ネタを書けないからは退場を

業界ネタを書けないからは退場を

業界ネタを書けないからは退場を

業界ネタを書けないからは退場を

はい、エセ医者確定。日本語勉強してから出直してこい。

罵倒は期待値が出せないと思うね。

業界ネタを書けないからは退場を

日本語不自由すぎw
これで医者とか笑わせるww

懲りずにまた高校数学スレで迷惑かけてるのか。

クソジジイ今日も相手にされてないね笑

コピペしか能がないんだね笑

>>147
いや、プログラムもできない３D画像も作れない尿瓶洗浄係が僻んでいるだけだよ。

>>142
>患者受けるかなんて当直医の判断ひとつじゃん

これは明らかに応召義務違反。
飲酒していても応召義務はある。

rm(list=ls())
source('toolmini.R')
n=7
Plot(1,n)
for(i in 1:n){
for(j in 1:n){
points(i,j,col=8)
}
}

i=0
imax=choose(n^2,n)
flg=FALSE
while(!flg & i<imax){
x=sample(n)
y=sample(n)
P=x+1i*y
for(i in 1:length(P)) pt(P[i],LETTERS[i])
flg <- length(unique(combn(n,2,function(x) (P[x[1]]-P[x[2]])^2)))==n
i=i+1
}

>>150
明らか無視されてるよねw穀潰しトケジ君w

rm(list=ls())
source('toolmini.R')
par(mar=c(2,2,2,2))

Do <- function(n,alphabet=TRUE){
i=0
imax=choose(n^2,n) # n=7 : 85900584
flg=FALSE
m=choose(n,2) # n=7 : 21
while(!flg & i<imax){
p=sample(n^2,n)
P=(p%/%n+1)+1i*(p%%n+1)
distance=combn(n,2,function(x) abs(P[x[1]]-P[x[2]]))
L=length(unique(distance))
flg <- L==m
i=i+1
}
Plot(1,n, axes=F)
for(i in 1:n){
for(j in 1:n){
points(i,j,pch=ifelse(alphabet,1,'+'),col=8)
}
}
if(alphabet) for(i in 1:length(P)) pt(P[i],LETTERS[i])
else for(i in 1:length(P)) pt(P[i], '●', cex=1.5)
return(P)
}
P=Do(9)
distance=combn(n,2,function(x) abs(P[x[1]]-P[x[2]]))
plot(sort(distance),type='s')

>>153

４角形から１２角形まで面積が最大になるときを描画。
https://i.imgur.com/fn6YTiT.png

こういう作図を投稿すると、厳密解を出さずにはいられない賢者からレスが返ってきて楽しいね。
数値解が厳密解に近似すると気分が(・∀・)ｲｲ!!

面白い問題おしえて〜な 35問目
https://rio2016.5ch.net/test/read.cgi/math/1614399625/552

552 名前：１３２人目の素数さん[sage] 投稿日：2021/05/05(水) 11:39:58.79 ID:vTnGlv4q
領域Sを
{ (x,y,z) | 0<x,y,z<π, x+y+z=π }
とし、S上の関数p,qを
p(x,y,z)=cos(x)+cos(y)+cos(z),
q(x,y,z)=cos(x)cos(y)+cos(y)cos(z)+cos(z)cos(x)
で定め座標平面上の領域Rを(p,q)の像とする
Rの面積を求めよ

これを誤った作図をしたら、１以上になるはずと指摘されて図を
https://i.imgur.com/ZtAh9Eu.png
に修正。
モンテカルロ法での面積と一致していて厳密解の正しさが確認できて(・∀・)ｲｲ!!

尿瓶洗浄係は罵倒しているだけ。
　罵倒厨＝自演認定厨＝マウント猿＝尿瓶洗浄係　
であることが既に判明している。

面白い問題おしえて〜な 35問目
https://rio2016.5ch.net/test/read.cgi/math/1614399625/490

490 名前：１３２人目の素数さん[sage] 投稿日：2021/05/01(土) 10:34:22.66 ID:smZ85HC9
>>473
四点(x1,y1),(x2,y2),(x3,y3)(x4,y4)からなる四角形の面積を求める方法は簡単じゃないね。

という指摘をしたら、手作業で場合分けをする計算法のレスが返ってきたので７角形の例を再度レスしておいた。

おい尿瓶ジジイ
また数学板でも発狂してるのか

ABC2S <- function(A,B,C){
a=abs(B-C)
b=abs(C-A)
c=abs(A-B)
x=sort(c(a,b,c))
if(x[1]+x[2]<=x[3]){ return(0)
}else{
s=(a+b+c)/2
sqrt(s*(s-a)*(s-b)*(s-c))
}
}
n=6
rn=5
choose(n^2,n) # n=6:1947792, n=7:85900584
flg=FALSE
m=choose(n,3) # n=6 20, n=7 35
f <- function(x,P) round(ABC2S(P[x[1]],P[x[2]],P[x[3]]),rn)
gr=expand.grid(1:n,1:n)
while(!flg){
i=sample(n^2,n)
P=gr[i,1]+1i*gr[i,2]
area=combn(n,3,function(x) f(x,P))
L=length(unique(area))
flg <- L==m
}
sort(area)
L

>>158
尿瓶洗浄係はあんただよ。
職種を言えない医療従事者＝尿瓶洗浄係
喀痰吸引すらできる資格もないだろ？

>>160
尿瓶ジジイは自宅警備員の穀潰しが否定できないのか？

>>161
週末は救急当番で勤務。
院内でPCR検査ができるようになったので随分と楽になった。
結果がでるまで1時間かかるから立て続けに来院があるとこなすのは大変ではある。

戸建ての自宅はあるけど別に警備員をやっているわけではないな。
小さな庭で家庭菜園もやっている。
アボカドを植えていたら芽がでてきていまは５０ｃｍくらいになった。

ライセンスをもっていたら医療従事者とかいわずに、職種を名乗るね。
それが言えないのは尿瓶洗浄係だからだろうな。これなら免許もいらない。
喀痰吸引は無資格ではやれない。

library(gtools)
ABC2S <- function(A,B,C){
a=abs(B-C)
b=abs(C-A)
c=abs(A-B)
x=sort(c(a,b,c))
if(x[1]+x[2]<=x[3]){ return(0)
}else{
s=(a+b+c)/2
sqrt(s*(s-a)*(s-b)*(s-c))
}
}
n=6
m=choose(n,3)
gr=expand.grid(1:n,1:n)
grid=apply(gr,1,function(x) x[1]+1i*x[2])
cm=combinations(n^2,n)
p23 <- function(p){
p=grid[p]
s=combn(n,3,function(x) round(ABC2S(p[x[1]],p[x[2]],p[x[3]])),6)
s=unique(s)
length(s)==m
}
N=nrow(cm)
i=1
flg <- p23(cm[i,])
while(!flg & i<N){
i=i+1
flg <- p23(cm[i,])
}
grid[cm[i,]]

>>161
尿瓶洗浄係だから、導尿できる資格すらもってないだろ。

>>166
尿瓶ジジイ自宅で孤独死して近所に迷惑かけるなよ

>>164
何の照明もできない自称医者w

5連投ジジイww

rm(list=ls())

fn <- function(n){
f <- function(x) x[1]+1i*x[2]
P=apply(expand.grid(1:n,1:n),1,f)
vn=t(combn(n^2,n))
g <- function(x){
le=choose(length(x),2)
v2=gtools::combinations(n,2,v=x)
d=apply(v2,1,function(x) abs(P[x[1]]-P[x[2]]))
length(unique(d))==le
}
y=apply(vn,1,g)

z=matrix(P[vn[y,]],ncol=n)
plot(1:n, xlim=c(1,n),asp=1,axes=F,ann=F,type='n')
for(i in 1:n){
for(j in 1:n){
points(i,j,pch='+',col=8)
}
}
points(z[sample(nrow(z),1),],pch=LETTERS[1:n],cex=2)
return(sum(y))
}
par(mfrow=c(2,2))
fn(3)
fn(4)
fn(5)
fn(6)

> try(fn(7))
Error : cannot allocate vector of size 2.2 Gb

>>172
尿瓶ジジイは日本語不自由どころか医師法も期待値も分かってないから医者じゃないの確定ですw

元気ないねぇ
ついこの間まで1日100レス以上して発狂してた癖に
コロナにでもかかったか？

pick <- function(x,one=1){
i=sample(length(x),one)
picked=x[i]
rest=x[-i]
list(picked=picked,rest=rest)
}

sim <- function(N,L=1,M=1){
balls=rep(c('red','blue','white'),c(L,M,N))
a=0 # how many times blue balls drawn
b=0 # how many white balls drawn
while(T){
(drawn=pick(balls))
if(drawn$picked=='blue'){ # if blue picked, restore & continue
a=a+1
balls=c(drawn$rest,'blue')
}else{
if(drawn$picked=='white'){ # if white picked, remove & continue
b=b+1
balls=drawn$rest
}else{
break # if red picked, quit
}
}
}
return(b-a)
}

Score <- function(N,k=1e6) replicate(k,sim(N))
RE=NULL
for(i in 1:4){
RE=rbind(RE,Score(i))
}
par(mfrow=c(2,2))
library(BEST)
for(i in 1:4){
plotPost(RE[i,],xlab=paste('N =',i),col=sample(colours(),1))
}
layout(1)

ライセンスをもっていたら医療従事者とかいわずに、職種を名乗るね。
それが言えないのは尿瓶洗浄係だからだろうな。

発熱患者を入院させるには新型コロナ抗原検査陰性、CTで肺炎像なしで個室入院。
大部屋しか空床がないときはPCR検査までするのだが、こっちは結果がでるまで1時間かかる。
今日は救急搬送入院で2諭吉＋１樋口のインセンティブをゲット。
内視鏡アトラスを買った金がでたな。

>>177
いくらここで医者ぶっても無駄だぞ非医くん。笑
そもそも同じことしか書いてないしな。

トケジ、応召義務を全く分かってなかった件

当直医のスレ Part 28
597 ：卵の名無しさん[sage]：2021/03/23(火) 03:33:31.38 ID:+NL/TzKD
>>584
>患者受けるかなんて当直医の判断ひとつじゃん
応召義務違反で訴えられかねんぞ。
当直医に事前の連絡もなく「CPAはいります」とPHSで呼ばれる病院もあったぞ。
忙しかったが給与はよかった。

応召義務が分かってないことがバレてそのIDでは速攻雲隠れ
↓
http://hissi.org/read.php/hosp/20210323/Umt3cnE4Mmk.html

その後別IDで大発狂
http://hissi.org/read.php/hosp/20210323/Umt3cnE4Mmk.html

しかし同日人物であることは火を見るより明らか
タイポを詰るも最後は私立医のフリをして応召義務の件を私立医に押し付けようとする
↓
日を改めて別人として能書きを垂れようとするもすでに遅きに失したので何を言っても一笑に付される。しかし全く懲りずに能書きとトンチンカンなプログラムを垂れるも全く相手にされず今に至る

>>179
ウロとプシコが指定選択科目の年に取得済だよ。
あんたは尿瓶洗浄係だろ。

安定のシリツ

鍵の製造番号盗み見て合鍵作り 女性宅など100件余に男侵入か
2021年5月10日 2時04分
https://www3.nhk.or.jp/news/html/20210510/k10013021031000.html

福岡県の久留米大学医学部の学生だった男が、鍵に記された製造番号をもとに合鍵を作る手口で、女子大学生の自宅などへの侵入や盗みを100件余り繰り返していた疑いのあることが捜査関係者への取材で分かりました。
製造番号を知られると合鍵を作られるおそれがあり、警察は安易に鍵を他人に見せないよう呼びかけています。

久留米大学医学部の学生だった阪上翔伍容疑者（36）は、在学中のことし1月、久留米市内に住む23歳の女子大学生のアパートに侵入したとして、住居侵入の疑いで逮捕されました。

捜査関係者によりますと、阪上容疑者は、女子大学生の自宅の鍵に記された製造番号を盗み見て、この番号をもとに合鍵を作ったということです。

さらに、同じ手口で、ひとり暮らしの女性など10人余りの自宅に侵入して下着を盗むなどの犯行を100件余り繰り返していた疑いのあることが捜査関係者への取材で分かりました。

サークル活動などで共有スペースに手荷物が置かれた際などに、鍵の製造番号を盗み見ていたということです。

阪上容疑者は、これまでの警察の調べに対し「女性の私生活や、人に見せない部分を見たかった」などと供述し、容疑を認めているということです。

業界団体などによりますと、鍵の製造番号を知られると、オリジナルの鍵がなくても合鍵を作られるおそれがあるということで、警察は、人目につく場所に置くなど、安易に鍵を他人に見せないよう呼びかけています。

救急やっていると尿閉で受診する患者に遭遇する。
最近はDAPTを受けていたりDOACを内服していたりするので初回から導尿でなくてバルーンカテを留置して
抜去はウロ外来に委ねている。

尿瓶洗浄係には関係のない話だが、尿瓶洗浄係でも使用後バルーンのゴミ捨てくらいやってんじゃないかな？

>>181
そんなジジイが毎日数学板とここで憂さ晴らしかよ。惨めだな。証拠なんか何もないし医師法も期待値も知らん非医だろ。
実際のところ、ここで医者のふりしかできない、家族にも社会にも相手にされない哀れな尿瓶ジジイだろお前は。

高校数学板は出禁を食らったようだな。
それとも構ってもらえなくて指咥えて見えるだけか？

期待値が分かってないことがバレた経緯

高校数学の質問スレ　Part410
0565 １３２人目の素数さん 2021/03/09 08:52:11
>>560 &#8232;バカの訳見苦しいわ &#8232;高校生ですら簡単に導ける期待値の公式すら知らなかったバカ &#8232;数学の素養の無さが見て取れる

0566 １３２人目の素数さん 2021/03/09 08:56:32 >>561 &#8232;一行で済む公式を知らないがためにわざわざ数行掛けてプログラムを組むバカ &#8232;バカの極み

0590 １３２人目の素数さん 2021/03/09 20:17:00
>>587
二項分布の期待値を知らなかった事を誤魔化すのに必死なんだろ
分かってやれよw

0613 １３２人目の素数さん 2021/03/10 07:54:45
>>548
> 期待値の計算は
> Σ[n=0,242] n * 242Cn * p^n * (1-p)^(242-n)
>
> 手計算は大変なので
> 全部プログラム（R）が計算してくれる。

期待値がnpだと知っていればこんな事は書かないよなwww

0626 １３２人目の素数さん 2021/03/10 11:20:53
>>548
> 期待値の計算は
> Σ[n=0,242] n * 242Cn * p^n * (1-p)^(242-n)
>
> 手計算は大変なので
> 全部プログラム（R）が計算してくれる。

> 手計算は大変なので
> 全部プログラム（R）が計算してくれる。

> 手計算は大変なので
> 全部プログラム（R）が計算してくれる。

> 手計算は大変なので
> 全部プログラム（R）が計算してくれる。


期待値npを知らないアホ
npの計算が暗算出来ないアホ

0745 １３２人目の素数さん 2021/03/12 12:51:44
暴れてる
暴れてる
期待値npを知らなかったアホが暴れてるwww

トケジみたいな高齢者にワクチン打つなんてもったいないね

勤務先にPCRの検査器械がはいったので１時間で結果がでる。
検体をいれれば自動でできる。
尿瓶洗浄係だとそもそも検体採取ができないだろうな。

ライセンスを持って仕事をしていれば職種を名乗る。
職種の言えない医療従事者＝尿瓶洗浄係　と推定できる。

照明w終わり

>>189
そんなこといちいち文章にする時点で非医確定w
実際は期待値も日本語も不自由なことバレてますよw

rm(list=ls())
library(dplyr)

coin3=as.matrix(expand.grid(replicate(3,1:0,simplify=FALSE)))
# coin3=coin3[1:4,]

win <- function(x,a,b){
if(all(x==a)) return(1)
if(all(x==b)) return(0)
else return(NA)
}

judge <- function(x,a,b){
n=length(x)
win(x[(n-2):n],a,b)
}

職種の言えない医療従事者＝尿瓶洗浄係　と推定できる。

照明w終わり

公認会計士、弁護士、税理士、司法書士あたりは合格率10%未満の超難関資格。同世代で上澄に入ってないと合格できない。

一方で医師国家試験は合格率90%。勉強が苦手な馬鹿でも受かる。

https://careergarden.jp/bengoshi/exam/

司法試験の合格率は25%
知ったか乙

トケジは医師免許いつまで経ってもあげられない上に期待値も医師法もわかってないから非医確定

>>194
10%未満の意味が分かってないみたいだね。

トケジ研修医スレで知ったかがばれて発狂中！

library(rgl)
n=500
u=seq(0,1,length=n)
u2=expand.grid(u,u)
u0=u2[,1]
u1=u2[,2]
pal=c('red','orange','yellow','green','cyan','navy')
P=list (
z0=cbind(u0,u1,0),
z1=cbind(u0,u1,1),
x0=cbind(0,u0,u1),
x1=cbind(1,u0,u1),
y0=cbind(u0,0,u1),
y1=cbind(u0,1,u1)
)

Cube <- function(x){
plot3d(P[[1]],xlim=c(0,1),ylim=c(0,1), zlim=c(0,1), type='n',axes=F)
for(i in 1:6) plot3d(P[[i]], type='p', col=pal[x[i]],add=TRUE)
}
Cube(1:6)
Play3d()

医師になるのは、めちゃくちゃ簡単だよ。
どんな馬鹿医大でも国家試験の合格率7割以上はあるし、自治医大以上ならほぼ100％。

弁護士の場合は難関ロースクールを卒業しても、国家試験を通るのは10%程度。

医師になるには金と時間がかかるが、試験自体は簡単。
うちは従兄弟三人医師になったが、英検二級すら落ちるレベルの頭だからね。

医師国家試験の合格率ランキング見てみ。
一番低い杏林大学ですら、79.4%。

奈良県立大以上の偏差値の25校は95.0％超え。

これのどこが難関試験なの？
医学部に学費を支払える財力のハードルが高いだけで、医師にはバカでもなれる。

弁護士、司法書士、会計士、英検１級あたりは、バカには絶対に無理。

まとめると
医師国家試験→バカでも受かる。しかし、医学部6年間で1,000万以上かかる学費のハードルが高い。
司法試験→ロースクール卒業しても、合格できるのはごく一部。非常に難関な試験。
司法書士→ロースクールに行かなくても受験できるが、難易度は司法試験並み。
英検１級→英語がずば抜けて優秀でないと合格できない。英語の偏差値100必要。（実際にはそんな偏差値はないが）
会計士→おそらく、最難関試験か。会計大学院修了者の合格率は7.6％しかない。
不動産鑑定士→鑑定理論が地獄。単体の科目としては最難関の一つ。経済学などは公務員試験より簡単か。260 名前:名無し検定１級さん (ﾜｯﾁｮｲ 8721-hoOi) :2021/05/03(月) 19:02:16.65 ID:up+LwLFH0
>>259
禿同

実行結果

https://i.imgur.com/SoXZzYT.gif

職種の言えない医療従事者＝尿瓶洗浄係

>>199
英検1級は大学教養時代にとったよ。
二次試験には即興スピーチと質疑応答があったな。

>>199
地元の国立大学医学部に入るのは少し大変。
幸い、東京には国立大学が二校あるので助かる。

司法試験の合格率なんてググれば一発なのにそれすらできない知ったかトケジスレはここです！

228 卵の名無しさん (ﾜｯﾁｮｲ 8f81-JWr2)[sage] 2021/05/13(木) 16:46:53.42 ID:uUPag7yV0
学力で
弁護士、公認会計士、税理士、司法書士>>>>>>>>>>>>>医師なのは間違いない

医師国家試験はバカでも9割受かる。うちの従兄弟は英検二級に落ちるレベルだったが医師になったからね。一方、上の資格等は合格率10%程度しかない非常に難しい難しい試験。同世代のトップ層の中のトップ層しか受からない。

>難しい難しい

>難しい難しい

>難しい難しい

>難しい難しい

>難しい難しい

なるほど、トケジの非医コンプは従兄弟からだったのね。惨めだな。一方、トケジは日本語もままならず挙げ句の果てにはここで僻み散らかすしか能がない社会のお荷物になったと。

ちなみに司法試験の合格率は平均25%です。ググれば一発なのにそれさえできない知ったかです。

"
xy平面上に定点A(-1,-1),B(1,1)と曲線C:y=x^(2n+1)(-1<x<1)がある。
C上を点Pが動くとき、∠APBが最小となるPのx座標を求めよ。
"
rm(list=ls())
source('toolmini.R')
A=-1-1i
B=1+1i
n=3
y <-function(x) x^(2*n+1)
curve(y,-1,1)
pt(A,'A') ; pt(B,'B')
len=10
x=seq(-1,1,length=len)
P=x+1i*y(x)
for(i in 1:len){
seg(A,P[i], col=8)
seg(B,P[i], col=8)
Sys.sleep(1)
}

minx <- function(n){
optimize(function(x) angle(-1-1i,x+1i*x^(2*n+1),1+1i), c(-1,1))
}
minx=Vectorize(minx)
n=1:20
xa=sapply(n,minx)
x=unlist(xa[1,])
do=unlist(xa[2,])*180/pi
plot(n,x,pch=19)
plot(n,do)
data.frame(n,x)

Genomic landscape of epithelium with low-grade atypia on gastriccancer afterHelicobacter pylorieradiation therapy

https://link.springer.com/content/pdf/10.1007/s00535-019-01596-4.pdf

おい知ったか日本語不自由ジジイ
いつまでくだらないコピペはっつければ気が済むんだ

ほらほら、悔しかったらこっちにも書き込んでご覧なさいw

https://egg.5ch.net/test/read.cgi/hosp/1607687111/

RothmanのModern Epidemiologyが届いた。前版と比べて３００頁くらい厚くなっていた。
clinical epidemiologyの35章から読み始めたのだが、817-848頁が落丁しているのを発見。
返品手続きに移った。良品との交換希望したが、返金対応になった。
eBookのスクラッチを削らずにおいてよかった。

図星のようだな

職種の言えない医療従事者＝尿瓶洗浄係

自分の経験に基づいた、
こういう業界ネタを投稿するとレスがつくな。
https://egg.5ch.net/test/read.cgi/hosp/1579701192/821

内視鏡をやったこともない尿瓶洗浄係じゃ無理だな。

>>209
自スレでは何も言えないトケジw

非医は図星のようだな。
いつまで経っても何の証明もできないなんて。

211 １３２人目の素数さん[sage] 2021/05/14(金) 08:55:50.95 ID:j5yI3fEJ
>>202
＞医師国家試験はバカでも9割受かる
その通り、それだからどこの大学を卒業したかが重要。
地元の国立大学に入れないようのものが無理して医師を目指す必要はないと思う。
幸い、東京には国立大学医学部が二校ある。

>入れないようのもの

>入れないようのもの

>入れないようのもの

>入れないようのもの

>入れないようのもの

数学の前に日本語勉強してから出直してこい笑

知ったか老害ジジイにワクチンはもったいないね

研修医の先生方にゴミ扱いされて楽しいみたいだね

sim <- function(n,m){
pick <- function(x){
i=sample(length(x),1)
list(picked=x[i],rest=x[-i])
}
Box=list()
length(Box)=n
for(i in 1:n) Box[[i]]=1:0
for(i in 1:(n-1)){
ball=pick(Box[[i]])
Box[[i]]=ball$rest
Box[[i+1]]=append(Box[[i+1]],ball$picked)
}
ball=pick(Box[[n]])
Box[[n]]=ball$rest
Box[[1]]=append(Box[[1]],ball$picked)
sum(Box[[m]])==1
}
sim=Vectorize(sim)

Q1 <- function(i) (1/2)*(1/3)^(i-1) + 1/2
Q1(3:12)
f1 <- function(n,k) mean(replicate(k,sim(n,m=1)))
replicate(10,f1(5,1e3))

"
n=5のとき1000回試行して1番の箱に白と赤の玉が両方とも入っている割合pの分布を図示。

"
p15=replicate(1e3,f1(5,1e3))
p=p15
hist(p,main='P[m=1,n=5]',col=2)

summary(p) # 平均値0.5062 中央値0.5060
mean(p<=0.5) # 0.5以下の割合0.366

# https://ideone.com/nikoXt

図星のようだな

職種の言えない医療従事者＝尿瓶洗浄係

導尿も喀痰吸引もできない医療従事者＝尿瓶洗浄係　

>>221
非医は図星のようだな。
日本語も期待値も医師法もなーんにもできない非医くん。

80：旧司法試験
79：新司法試験　公認会計士
78：国家公務員?種　弁理士　
75：司法書士　裁判所事務官1種
74：アクチュアリー
73：システムアナリスト　TOEIC990 　
72：旧帝医学部　税理士５科目　米国公認会計士
70：不動産鑑定士
68：英検１級　
67：旧帝理系学部　１級建築士　東京都庁?類
66：地方公務員上級 医師国家試験
65：社会労務士　証券アナリスト　通訳案内士　
64：国家?種　歯科医師　土地家屋調査士
62：気象予報士　行政書士 マン管　国税専門官
60：早稲田慶応文系　市役所上級　宅建


同じ5ちゃんの資格難易度を延々と論じている資格偏差値スレのテンプレ。実際こんなもんだろ。

学力で
弁護士、公認会計士、税理士、司法書士>>>>>>>>>>>>>医師なのは間違いない

医師国家試験はバカでも9割受かる。うちの従兄弟は英検二級に落ちるレベルだったが医師になったからね。一方、上の資格等は合格率10%程度しかない非常に難しい難しい試験。同世代のトップ層の中のトップ層しか受からない。

医者コンプの根源は従兄弟だったのね。笑

司法試験の合格率すらろくに調べられず知ったかする非医はどの資格も無理だね笑

研修医スレで僻み散らかしてて草

http://hissi.org/read.php/hosp/20210515/WE0zQk9NQ2hw.html

スレタイも読めない奴が自称医者ですってw

研修医スレで絶賛発狂中w

研修医スレにてコピペで発狂中&#8252;&#65038;
あー愉快

トケジコピペばっかで日本語通じてねぇじゃん
とうとうボケちゃったのかな？

おいジジイ
研修医スレばっかりに気を取られてこっちがお留守になったのか？ww

図星のようだな

職種の言えない医療従事者＝尿瓶洗浄係

shoot <- function(x){
alive=c(1,1,1)
alive[which(x-1==0)%%3+1]=0
return(alive)
}
shoot(c(2,1,1))

A B C
1 1 1 2
2 2 1 2
3 3 1 2
4 4 1 2
5 5 1 2
6 1 1 3
7 2 1 3
8 3 1 3
9 4 1 3
10 5 1 3
11 2 2 3
12 3 2 3
13 4 2 3
14 5 2 3
15 1 1 4
16 2 1 4
17 3 1 4
18 4 1 4
19 5 1 4
20 2 2 4

21 3 2 4
22 4 2 4
23 5 2 4
24 3 3 4
25 4 3 4
26 5 3 4
27 1 1 5
28 2 1 5
29 3 1 5
30 4 1 5
31 5 1 5
32 2 2 5
33 3 2 5
34 4 2 5
35 5 2 5
36 3 3 5
37 4 3 5
38 5 3 5
39 4 4 5
40 5 4 5
>

b=expand.grid(replicate(3,1:5,s=F))
A=b[,1]
B=b[,2]
C=b[,3]
re=b[A>=B & B<C ,]
rownames(re)=NULL
colnames(re)=LETTERS[1:3]
re
nrow(re)/nrow(b)
40/125

# shooting sequence = A,B,C
rm(list=ls())
b=as.matrix(expand.grid(replicate(3,1:5,simplify=FALSE)))
colnames(b)=LETTERS[1:3]
head(b,10)
shoot <- function(x){
A=B=C=numeric(5)
A[x[1]]=1
B[x[2]]=1
C[x[3]]=1
M=rbind(A,B,C)
alive=c(1,1,1)
for(n in 1:15){
i=ifelse(n%%3==0,3,n%%3) # row A,B,C
j=ifelse(n%%3==0,n%/%3,n%/%3+1) # column 1:5
m=M[i,j] # M[n]
if(m==1 & alive[i]==1){
alive[i%%3+1]=0
}
}
alive
}
re=t(apply(b,1,shoot))
head(re)
summary(re)
(S=apply(re,2,sum))
MASS::fractions(S/nrow(b))

バカ非医がw

夜中の3時に6連投w
引きこもりにしか無理だろうな。

target self shooter
1 1 1 2
2 1 1 3
3 1 1 4
4 1 1 5
5 1 2 2
6 1 2 3
7 1 2 4
8 1 2 5
9 1 3 2
10 1 3 3
11 1 3 4
12 1 3 5
13 1 4 2
14 1 4 3
15 1 4 4
16 1 4 5
17 1 5 2
18 1 5 3
19 1 5 4
20 1 5 5

21 2 2 3
22 2 2 4
23 2 2 5
24 2 3 3
25 2 3 4
26 2 3 5
27 2 4 3
28 2 4 4
29 2 4 5
30 2 5 3
31 2 5 4
32 2 5 5
33 3 3 4
34 3 3 5
35 3 4 4
36 3 4 5
37 3 5 4
38 3 5 5
39 4 4 5
40 4 5 5

>>242
救急車と新入院で1諭吉＋１一葉をゲット。
尿瓶洗浄係にはインセンティブはつかんだろうね。

反論してこないから、これは図星のようだな

職種の言えない医療従事者＝尿瓶洗浄係

>>245
日本語も不自由な非医の癖に何言ってんだ？

匿名掲示板で自称医者なら誰でもできるんだよバカ非医が。

尿瓶洗浄係にはインセンティブはつかんだろうね。

ジジイのことだからインセンティブの意味わかってなさそうw
インセンティブの一つ覚えw

非医は図星のようだな。反論してこないから。

>>251
いや、内視鏡もやっているからちゃんと即興で返答できているよ。
それにたいしてレスもつくし。

内視鏡検査について Part.4
https://egg.5ch.net/test/read.cgi/hosp/1579701192/823

823 名前：卵の名無しさん[sage] 投稿日：2021/05/13(木) 21:30:32.36 ID:Hzrip/f2
>>820
透視下に内視鏡をやっていたころに、S状結腸過長でダブルアルファになった経験があるなぁ。
一つずつアルファループを解除してDに到達。

内視鏡検査について Part.4
https://egg.5ch.net/test/read.cgi/hosp/1579701192/825

825 名前：卵の名無しさん[sage] 投稿日：2021/05/13(木) 21:42:42.58 ID:IaCT49P3
>>823
たまにあるね
スコープ入れたときに9時方向に
進んでいくとやる気なくす

尿瓶洗浄係は業界ネタを語ることができず。

題:3人ロシアンルーレット

三人の人A,B,Cが互いに3すくみ状態で常に一定の方向に拳銃を構えています。拳銃は最大五発込められるリボルバー式で、それぞれランダムなシリンダーに一発弾が入っています。
そして三人はロシアンルーレット開始から五分おきに同時に引き金を引きます。さて25分後にAが生存している確率は何％か？

可読性を無視すれば2行のコードですむ。

b=expand.grid(replicate(3,1:5,simplify=FALSE))
MASS::fractions(nrow(b[b[,1]>=b[,2] & b[,2]<b[,3] ,])/nrow(b))

救急車を受け入れたり、時間外新入院はインセンティブがつく優良職場。
尿瓶洗浄にはインセンティブはないのか？

>>252
別の誰かのレスだろバカがw

こういう、勤務の合間の投稿にもレスがついたな。


当直医のスレ Part 28
https://egg.5ch.net/test/read.cgi/hosp/1608978546/854

854 名前：卵の名無しさん[sage] 投稿日：2021/05/04(火) 11:01:38.15 ID:NIJL4ADq
救急隊は発熱なしというので受け入れたら37.9℃
屋外にだしてスワブで採取
速攻で抗原陽性だったので保健所に届けて指示に従った
当院入院にならなかったので樋口１枚で終わった
コストパフォーマンスが良くないな。

当直医のスレ Part 28
https://egg.5ch.net/test/read.cgi/hosp/1608978546/857

857 名前：卵の名無しさん[] 投稿日：2021/05/04(火) 15:10:27.05 ID:mAIaTLsW
>>854
手際良いですね
変異株に注意とか言われても、具体的にどうしろとって感じ
行政は絶望だけ与えて、本当に何の対策もない


尿瓶洗浄係にはレスもインセンティブもつかず。

俺は臨床やっているから業界ネタをちゃんと語れる。
尿瓶洗浄係は業界ネタがないのか？？

820 名前：卵の名無しさん[sage] 投稿日：2021/05/13(木) 14:44:10.48 ID:UrXEBx/s [2/2]
CSでストレートでS入ってるのに伸びる人
圧迫駄目、体位変換も駄目、凄く難しい
可変で高度強、鬼pushとたわみ取りのpullで
なんとか入ったけど、良い攻略法あるかな？

821 名前：卵の名無しさん[sage] 投稿日：2021/05/13(木) 21:08:15.72 ID:Hzrip/f2 [1/3]
>>820
腹臥位も試した？

822 名前：卵の名無しさん[sage] 投稿日：2021/05/13(木) 21:26:21.80 ID:Hzrip/f2 [2/3]
>>818
業界ネタを投稿できない方はご退場を。

823 名前：卵の名無しさん[sage] 投稿日：2021/05/13(木) 21:30:32.36 ID:Hzrip/f2 [3/3]
>>820
透視下に内視鏡をやっていたころに、S状結腸過長でダブルアルファになった経験があるなぁ。
一つずつアルファループを解除してDに到達。

824 名前：卵の名無しさん[sage] 投稿日：2021/05/13(木) 21:35:59.55 ID:IaCT49P3 [1/2]
>>821
鬼PUSHで少しずつすすんだから試してない！
UPDで腹側から見るとストレート
側面から見ると軽いS字
確かに腹臥位だとスコープが腹側に
落ちて直線化されやすいかも
今度試してみる

日本語不自由なのに自称医者ww

日本語も不自由
期待値も医師法も統計も知ったか
1日中5chに貼り付けかつ連投
医者なわけねーだろw

おいジジイ
研修医スレで僻み散らかしてるせいでこっちがお留守になってるじゃねぇか
やっぱり同一人物なんだな

発熱患者をコロナ検査陰性を確認して個室に入院させたので、樋口一葉ゲット。

>>261
化石のような絵文字といい言い回しといい随分浮世離れしてるみたいだな。
本当は引きこもりだろ。

救急搬送をもう一台うけて、諭吉ゲット！
発熱なしだが、大部屋入院なので新型コロナ抗原陰性を確認してからの入院となった。

小金につられて地雷を踏まないように要注意だな。

>>255
大腸内視鏡もやったことないだろ、
だってあんたは職種の言えない医療従事者＝尿瓶洗浄係ですものね！

right turn shortening とか hooking the foldとか懐かしい。
高齢になってもsenile tremorが大腸内視鏡のjuggling motionに使えるなと冗談を書いたら業界人にうけていた。

新入院の患者、non-pitting edemaに高コレステロール血症を合併。
T3,T4,TSHを追加で提出。
夜間休日も院内でthyroid functionの検査ができる優良病院で(・∀・)ｲｲ!!

尿瓶洗浄係にはなんのことかわからんだろうが。

>>265

日本語も不自由
期待値も医師法も統計も知ったか
1日中5chに貼り付けかつ連投
医者なわけねーだろw

尿瓶ジジイは隔離病棟でお医者さんごっこ

眼瞼下垂と心嚢水からhypothyroidismをみつけた経験があるな。
尿瓶洗浄係にはなんのことかわからんだろうな。

だって、職種の言えない医療従事者ですもの。

やっぱり、尿瓶洗浄係なんだろ？

63 卵の名無しさん[sage] 2021/05/01(土) 10:32:19.42 ID:Zpyb+xVU
大小のサイコロを振って
大の目はx座標、小の目はy座標として
４点の座標を選ぶ
この４点を結んで形成される凸四角形の面積の期待値を求めよ。

罵倒は期待値が出せないと思うね。


>罵倒は期待値が出せないと思うね。

>罵倒は期待値が出せないと思うね。

>罵倒は期待値が出せないと思うね。

>罵倒は期待値が出せないと思うね。

>罵倒は期待値が出せないと思うね。

こんな日本語不自由な自称医者()の尿瓶ジジイが一丁前に期待値()の問題出そうとしてるの笑止千万なんですがww

ID:Zpyb+xVU は指摘された瞬間速攻で雲隠れw
でも口調から尿瓶ジジイであることは火を見るよりも明らかなんですがねぇw

おい、見てんだろ？
何とか言ったらどうだクソジジイ。もう今日が終わるぞ。

罵倒厨＝尿瓶洗浄係のこないスレは和気藹々としている。

確率の問題作問したからみんな解いてくれ
https://rio2016.5ch.net/test/read.cgi/math/1620984647/

>>270
厨の文字が欠落しているだけじゃねぇかよ。
照明ｗ完了

職種の言えない医療従事者って、やっぱり、尿瓶洗浄係なんだろ？
ライセンスを持って仕事をしていたら、臨床検査技師とか看護師とか名乗る。
尿瓶洗浄係って自分の仕事に誇りはないのｗ

職種の言えない医療従事者＝尿瓶洗浄係の指摘から逃げるのに必死だな。
typoをコピペしてごまかそうとしているが。

>>266
euthyroidであったから高コレステロール血症はhypothyroidismによる二次性じゃなかったようだ。

draft

# 4竦み同時発砲
rm(list=ls())
N=4 ; C=5
b=as.matrix(expand.grid(replicate(N,1:C,simplify = FALSE)))
x=b[77,] ; x
M=matrix(0,ncol=C,nrow=N)
for(i in 1:N){
M[i,x[i]]=1
}
rownames(M)=LETTERS[1:N]
M
alive=rep(1,N)
dead=rep(0,N)
nxt=function(i) ifelse(i==N,1,i+1)
for(t in 1:C){
for(n in 1:N){
if(alive[n] & M[n,t]==1) dead[nxt(n)]=1
}
alive[dead==1]=0
}

>>276
尿瓶ジジイは自称医者のくせに医師免許うpできないのか？

# 4竦み同時発砲
rm(list=ls())

sshoot <- function( # simulaneous shooting
x, # vector of loaded cylinder number
N, # participants
C){ # cylinders in gun
M=matrix(0,ncol=C,nrow=N)
for(i in 1:N){
M[i,x[i]]=1
}
rownames(M)=LETTERS[1:N]
alive=rep(1,N)
dead=rep(0,N)
nxt=function(i) ifelse(i==N,1,i+1)
for(t in 1:C){
for(n in 1:N){
if(alive[n] & M[n,t]==1) dead[nxt(n)]=1
}
alive[dead==1]=0
}
alive
}
N=4 ; C=5
b=as.matrix(expand.grid(replicate(N,1:C,simplify = FALSE)))
re=t(apply(b,1,function(x) sshoot(x,N,C)))

P=sum(re[,1])/nrow(re) ; P
MASS::fractions(P)

トケジが期待値が分かってないことがバレた経緯

高校数学の質問スレ　Part410
0565 １３２人目の素数さん 2021/03/09 08:52:11
>>560 &#8232;バカの訳見苦しいわ &#8232;高校生ですら簡単に導ける期待値の公式すら知らなかったバカ &#8232;数学の素養の無さが見て取れる

0566 １３２人目の素数さん 2021/03/09 08:56:32 >>561 &#8232;一行で済む公式を知らないがためにわざわざ数行掛けてプログラムを組むバカ &#8232;バカの極み

0590 １３２人目の素数さん 2021/03/09 20:17:00
>>587
二項分布の期待値を知らなかった事を誤魔化すのに必死なんだろ
分かってやれよw

0613 １３２人目の素数さん 2021/03/10 07:54:45
>>548
> 期待値の計算は
> Σ[n=0,242] n * 242Cn * p^n * (1-p)^(242-n)
>
> 手計算は大変なので
> 全部プログラム（R）が計算してくれる。

期待値がnpだと知っていればこんな事は書かないよなwww

>>279
アップしてもなんの照明にもならんからね。

職種の言えない医療従事者＝尿瓶洗浄係の指摘から逃げるのに必死だな。

　尿瓶洗浄係ってオムツのゴミ捨てにも従事しているんだろうな。

sshoot <- function( # simulaneous shooting
x, # vector of loaded cylinder number
N, # participants
C){ # cylinders in gun
M=matrix(0,ncol=C,nrow=N)
for(i in 1:N){
M[i,x[i]]=1
}
rownames(M)=LETTERS[1:N]
alive=rep(1,N)
dead=rep(0,N)
nxt=function(i) ifelse(i==N,1,i+1)
for(t in 1:C){
for(n in 1:N){
if(alive[n] & M[n,t]==1) dead[nxt(n)]=1
}
alive[dead==1]=0
}
alive
}
sukumi <- function(N,C){
b=as.matrix(expand.grid(replicate(N,1:C,simplify = FALSE)))
re=t(apply(b,1,function(x) sshoot(x,N,C)))
P=sum(re[,1])/nrow(re)
print(MASS::fractions(P))
print(P)
print(table(apply(re,1,sum)))
invisible(re)
}
sukumi(4,C=5)
sukumi(5,5)
sukumi(6,5)

内視鏡バイトを終えて帰宅中にタブレットでプログラムの動作確認。

sukumi(4,C=5)
[1] 41/125
[1] 0.328

0 1 2
5 420 200
> sukumi(5,5)
[1] 1024/3125
[1] 0.32768

0 1 2
5 1120 2000
> sukumi(6,5)
[1] 1024/3125
[1] 0.32768

0 1 2 3
5 2520 11100 2000

>>285
尿瓶ジジイの妄想にはもう飽きた。

63 卵の名無しさん[sage] 2021/05/01(土) 10:32:19.42 ID:Zpyb+xVU
大小のサイコロを振って
大の目はx座標、小の目はy座標として
４点の座標を選ぶ
この４点を結んで形成される凸四角形の面積の期待値を求めよ。

罵倒は期待値が出せないと思うね。


>罵倒は期待値が出せないと思うね。

>罵倒は期待値が出せないと思うね。

>罵倒は期待値が出せないと思うね。

>罵倒は期待値が出せないと思うね。

>罵倒は期待値が出せないと思うね。

こんな日本語不自由な尿瓶ジジイが一丁前に期待値()の問題出そうとしてるの笑止千万なんですがw

いくらここで医者アピールしても無駄だからww

職種の言えない医療従事者＝尿瓶洗浄係の指摘から逃げるのに必死だね。
euthyroidも何かわからないみたいだから、医療従事者といっても医学の知識がないから、やはり、尿瓶洗浄係であろう。

医者アピールもなにも日常業務日記を書いているようなものだが。
あんたも尿瓶洗浄業務日誌でも投稿してみたらどうだ？

9人で弾倉5の拳銃でロシアンルーレット（同時発砲)をしたときの生存確率と生存者の場合の数

> sukumi(9,5)
640000 / 1953125 = 1024 / 3125 = 0.32768
survivors
0 1 2 3 4
5 15840 427680 1149600 360000

>>290
医療事務日記の間違いじゃないのか？

>>292
医療事務じゃ内視鏡できないぞ。
尿瓶洗浄係にもできないのは当然。

GWには頭痛で受診の患者が新型コロナだったが、それ以後はコロナに当たっていないな。
救急隊が平熱だと誤情報を伝えてくるには辟易した。
鼻腔拭い液は屋外で採取。患者の背後に立って検査するけど風向きも考慮した方がいいな。
N95は長時間つけておくと顔が痛くなるので検査結果が出る前に外している。

>>293
そんな当たり前のこといちいち文章に起こすのがいかにも非医なんだよなw
嘘ついてるやつほど饒舌なんだよな。
期待値も日本語も不自由で医者のふりをできるのはせいぜい医療事務あたりか何かだろう。

786 １３２人目の素数さん[sage] 2021/05/17(月) 13:38:29.40 ID:vlskJEw6
期待値も分からないバカはここにいる資格なし！

794 １３２人目の素数さん[sage] 2021/05/17(月) 15:10:27.46 ID:ZWnahVnW
>>786
臨床の世界ではある値の厳密な期待値よりもその値がどのような分布をするのかの方が重要。
新型コロナの潜伏期間の分布は対数正規分布に従っているという論文がある。
こういうのを使って発症と感染の順序が逆転する確率が計算できる。
尿瓶洗浄係には何の関係もない話だが。

795 １３２人目の素数さん[sage] 2021/05/17(月) 15:50:49.88 ID:0BO4FxHB
アンカーもつけてないのに期待値も分からないバカに馬鹿正直に反応した本物のバカ発見！！
語るに落ちたな。
やっぱり湧いて出てきたか尿瓶プログラムおじさん。もう高校数学スレは村八分になったみたいだな。
もはや頭悪すぎて自称医者も誰も信じてないからな。

796 １３２人目の素数さん[sage] 2021/05/17(月) 16:00:55.34 ID:0BO4FxHB
>期待が分かっている証である。

>期待が分かっている証である。

>期待が分かっている証である。

>期待が分かっている証である。

>期待が分かっている証である。

安定の日本語不自由マンw
さすがプロおじは期待を裏切りませんねぇwよく分かってるねぇw
でも期待値はやっぱり分かってないみたいww

>>294
内視鏡スレでも当たり前のことを全く書けない医療従事者＝尿瓶洗浄係だろ。
CSで体位変換しても困難だったという投稿に、腹臥位は試したか？というレスができるのは普段から臨床をやっているからね。
尿瓶洗浄のコツとか書いてみてはどうだ？

>>296
色々とボロが出てるのに平然と医者のふりができるなと感心してるだけだよw

synshoot <- function( # synchronized shooting
x, # vector of loaded cylinder number
N, # participants
C, # cylinders in gun
S){ # shooting done
M=matrix(0,ncol=C,nrow=N)
for(i in 1:N){
M[i,x[i]]=1
}
rownames(M)=LETTERS[1:N]
alive=rep(1,N)
dead=rep(0,N)
nxt=function(i) ifelse(i==N,1,i+1)
for(t in 1:S){
for(n in 1:N){
if(alive[n] & M[n,t]==1) dead[nxt(n)]=1
}
alive[dead==1]=0
}
alive
}

sukumi <- function(N,C,S=NULL){
S=ifelse(is.null(S),C,S)
b=as.matrix(expand.grid(replicate(N,1:C,simplify = FALSE)))
re=t(apply(b,1,function(x) synshoot(x,N,C,S)))
nu=sum(re[,1])
de=nrow(re)
P=nu/de
cat('survival rate\n ')
cat(nu,'/',de,' = ')
gcd=numbers::GCD(nu,de)
cat(nu/gcd,'/',de/gcd,' = ')
cat(P,'\n')
survivor_case=apply(re,1,sum)
print(table(survivor_case))
cat('expected surivors\n ')
nu=sum(survivor_case)
de=nrow(re)
P=nu/de
cat(nu,'/',de,' = ')
gcd=numbers::GCD(nu,de)
cat(nu/gcd,'/',de/gcd,' = ')
cat(P,'\n')
invisible(re)
}
sukumi(4,5,5)

for(i in 1:5){
cat(5*i,'分後\n')
sukumi(N=9,C=5,S=i)
cat('\n\n')
}

>>297
ボロは全くでてないけどね。
実臨床での経験を書いているだけだし。

ライセンスを持って仕事をしていれば
誰も自分を医療従事者とか言わないね。
医師、看護師、臨床検査技師、視能訓練士とかちゃんとライセンサーであることを名乗る。
名乗れないのは尿瓶洗浄係。

照明完了！

>>300
日本語も不自由で期待値も医師法も知ったかなのにどこがボロ出てないんだよw
社会にも家族にも疎まれて尿瓶ジジイはここにしか居場所がないんだろ。

尿瓶洗浄係って医師になりたかったのか？
業界ネタを全く書けないのに医療従事者と名乗っていたから
尿瓶洗浄係だろうな。
ライセンスあれば介護福祉士もそれを名乗るし。

>>302
医師になりたかったのはお前だろw
ここでしかお医者さんごっこできないなんて可哀想だね。

俺は今日は休日勤務の代休！
当直明けも朝から代休がとれる優良職場。
タクシー代も病院持ち。
院内でPCR検査ができるように体制を整えてくれた。
コロナが心配という発熱患者を断れなくなったので痛し痒しではある。
医師免許があれば臨床検査もできるから、夜間休日は検体採取して自分でPCR検査ができる。
専用容器にいれてスイッチを押すだけだから動脈血ガス分析みたいなものだな。

尿瓶洗浄係の専用容器は尿瓶ｗｗｗｗ

医者アピールといっても代休だの優良職場だの一体ここの板にいる誰が信じるの？w
隔離病棟患者なのかな？

523 卵の名無しさん (ﾜｯﾁｮｲ 9b81-C7Xc)[sage] 2021/05/18(火) 10:10:39.49 ID:hgZZ4zH70
医師国家試験は簡単だよ
・異常に高い合格率（25校が合格率100％）
・医師国家試験には記述問題がなく全て選択問題
・相対評価
・合格基準は試験終了後に発表され、必ず90％以上の受験生が合格できるように合格基準が調整される
（厚生労働省が合格者数を一定にコントロールしている。）

比較として、英検１級は2028点を取れたら一次試験合格という絶対評価。試験前に合格基準は公表されている。
結果的には毎回10％前後の合格率となる。

ﾜｯﾁｮｲ 9b81-C7Xc)もトケジなんだろ？w

>>303
臨床医って客を断れない賤業だと気づいたときには時すでに遅しだったな。
臨床医になるまではナマポ・暴力団・メンヘラとかと接触することはなかった。
健診でヤクザの組長や市長のCSにも当番が回ってきた。
市長と違って組長のほうはプッシュでも痛がらないから返ってやりにくかったな。

>>307
確かに匿名掲示板で医者を騙るなんて賤業もいいところだわ。
そこは認める。

>>306
国試は簡単だね。
ｍ３から配信されてくるけど、いまでも合格できる自信はあるな。
ほぼ誰もが受かる試験だから、どこの大学を卒業したかの方が重要。
地元の国立大学医学部に入れないようなものが無理して医師になる必要はない。
幸い東京には国立大学医学部が二つある。新型コロナで奮闘している後輩には頭が下がる。
同窓会報にも苦労話が載っている。

>>308
あんたはPCR検査を自分でしたことないだろ。
尿瓶洗浄係が検体採取したら違法だろうな。
導尿すらしたことないだろ。

同窓会にも到底顔出せないだろうな。家族に恵まれた人生の勝ち組しか出席許されないもん。
でもトケジは孤独死を待つだけの社会から隔離されてる患者だからな。

>>310
やっぱり実態はここでしかお医者さんごっこできない社会のお荷物だったか。

>>306
それはどこのスレだよ。尿瓶洗浄係って人物鑑別もできないようだな。
まあ、随分前の大学教養時代に英検一級を取得した。
優良賞の記念品として小さな盾をもらった。
因みにその上には優秀賞というのがある。

>>311
大学の去年の同窓会はZOOMだったよ。
高校の同窓会は中止。
進学校なので高校の同窓会では医師仲間が集って業界ネタで盛り上がる。
高校の後輩が川崎医大に進学したという話をきいて、一同、母校もここまで落ちぶれたか　と嘆いたものだ。

>>313
人物鑑定できないのはそっくりそのままお返しするよw
いつもいつも湧いてくる時間が同じだからお前しか考えられないんだよ、尿瓶ジジイが。

強がれば強がるほど嘘くささが増すのはどうしてだろうな？

515 名前:卵の名無しさん (ｽｯﾌﾟ Sdcf-Q8uD) [sage] :2021/05/17(月) 21:21:14.98 ID:R4JbJN5xd
荒らしガイジも荒らしに反応ガイジもまとめてあぼーんでいいだろこれ

518 名前:卵の名無しさん (ﾜｯﾁｮｲ bf6d-et43) [sage] :2021/05/17(月) 22:35:30.15 ID:oQK4rfA50
反応してる奴のレスもレベル低すぎだしとっくにNGした
そいつも絶対研修医じゃないわ

516 名前:卵の名無しさん (ﾜｯﾁｮｲ f1b1-fy9k) [sage] :2021/05/17(月) 21:25:20.96 ID:ajqF7agz0
もう二人ともNGにしてるからスッキリ


wwwwwwwwwwwwwwwwwwwwwww

810 １３２人目の素数さん[sage] 2021/05/18(火) 10:32:10.73 ID:P1OA1sCY
9人9すくみとかいい加減にしろ

トケジ怒られてて草

以前の職場では履歴書に英検１級を記載したら外国人患者は外科の患者でなくても俺に回してきたな。
英語のできないロシア人まで回してきた。まあ、手術が必要な気胸だったので結局、俺が主治医になった。
手術前には手術室の看護師が翻訳ソフトをつかって「これは酸素です」など想定される会話をロシア語に訳して紙に書いて本人にみせていた。
でも、正しく翻訳されているのか確認の手段がないよね、と話したのを覚えている。
翻訳ソフトがTime flies like an arrow は　時蝿は矢を好む　とか翻訳されていたころの昔話。