17/05/15 19:28:09.11 k0A2P6EO.net
The likelihood of a specified parameter value given observed data
is defined as the probability of the observed data given that the true parameter equals the specified parameter value.
801:卵の名無しさん
17/05/18 19:01:17.64 zeLyudIO.net
URLﾘﾝｸ(www.ncbi.nlm.nih.gov)
> T_test <- function(n1,n2,m1,m2,sd1,sd2) {
+ pt(abs(m1-m2)/sqrt((1/n1+1/n2)*((n1-1)*sd1^2+(n2-1)*sd2^2)/((n1-1)+(n2-1))),n1+n2-2,lower.tail = FALSE)*2
+ }
>#J(^o^)PAN-2 twilight shift
> n1=85
> n2=93
> m1=c(4.4,2.8,3.1,3.0,15.6,2.9,14.1,NA,NA)
> sd1=c(0.16,0.09,0.08,0.07,1.01,0.74,0.43,NA,NA)
> m2=c(3.9,2.7,3.2,2.9,15.3,2.9,14.0,NA,NA)
> sd2=c(0.15,0.08,0.07,0.07,0.98,0.78,0.37,NA,NA)
> mapply(T_test,n1,n2,m1,m2,sd1,sd2)
[1] 0.000000000000000000000000000000000000000000000000003703796
[2] 0.000000000000396558043165599381357777630796590528916567564
[3] 0.000000000000000700365485362126109119065842101292673760327
[4] 0.000000000000000013582277683810314731008284105939765140647
[5] 0.045913211951356974749316464112780522555112838745117187500
[6] 1.000000000000000000000000000000000000000000000000000000000
[7] 0.097289391439183053877925999586295802146196365356445312500
[8] NA
[9] NA
802:卵の名無しさん
17/05/19 12:06:12.42 ZXFvL/T2.net
Stay1=c(1691,0,4,7,13,165)
Stay0=c(1702,0,4,8,16,320)
Fever1=c(1691,0,1,2,4,49)
Fever0=c(1702,0,1,2,5,50)
IP=rbind(Stay1,Stay0,Fever1,Fever0)
colnames(IP)=c('N','Min','lwrQ','Med','uprQ','Max')
IP
Stay=IP[1:2,]
Fever=IP[3:4,]
ns=round(Stay1[1]/4)
sty1=c(sample(Stay1[2]:Stay1[3],ns,replace=TRUE),
sample(Stay1[3]:Stay1[4],ns,replace=TRUE),
sample(Stay1[4]:Stay1[5],ns,replace=TRUE),
sample(Stay1[5]:Stay1[6],ns,replace=TRUE))
hist(sty1);quantile(sty1)
ns=round(Stay0[1]/4)
sty0=c(sample(Stay0[2]:Stay0[3],ns,replace=TRUE),
sample(Stay0[3]:Stay0[4],ns,replace=TRUE),
sample(Stay0[4]:Stay0[5],ns,replace=TRUE),
sample(Stay0[5]:Stay0[6],ns,replace=TRUE))
hist(stay0);quantile(stay0)
wilcox.test(sty0,sty1, correct=FALSE)
wilcox.test(sty0,sty1, correct=TRUE)
803:卵の名無しさん
17/05/19 12:07:30.81 ZXFvL/T2.net
Sim_fever=function(){
ns=round(Fever1[1]/4)
fev1=c(sample(Fever1[2]:Fever1[3],ns,replace=TRUE),
sample(Fever1[3]:Fever1[4],ns,replace=TRUE),
sample(Fever1[4]:Fever1[5],ns,replace=TRUE),
sample(Fever1[5]:Fever1[6],ns,replace=TRUE))
#hist(fev1); quantile(fev1)
ns=round(Fever0[1]/4)
fev0=c(sample(Fever0[2]:Fever0[3],ns,replace=TRUE),
sample(Fever0[3]:Fever0[4],ns,replace=TRUE),
sample(Fever0[4]:Fever0[5],ns,replace=TRUE),
sample(Fever0[5]:Fever0[6],ns,replace=TRUE))
#hist(fev0); quantile(fev0)
wilcox.test(fev0,fev1,correct=FALSE)$p.value
}
N=1000
Res=replicate(N,Sim_fever())
hist(Res,freq=FALSE,breaks=30,col='lightblue')
lines(density(Res))
mean(Res<0.05)
804:卵の名無しさん
17/05/19 13:13:42.81 ZXFvL/T2.net
###分位数に適合するシミュレーション
library(exactRankTests)
par(mfrow=c(2,1))
Stay1=c(N=1691,Min=0,lwrQ=4,Med=7,uprQ=13,Max=165)
Stay0=c(N=1702,Min=0,lwrQ=4,Med=8,uprQ=16,Max=320)
ns=round(Stay1[1]/4)
sty1=c(sample(Stay1[2]:Stay1[3],ns,replace=TRUE),
sample(Stay1[3]:Stay1[4],ns,replace=TRUE),
sample(Stay1[4]:Stay1[5],ns,replace=TRUE),
sample(Stay1[5]:Stay1[6],ns,replace=TRUE))
hist(sty1,breaks=50,xlim=c(0,320),main='prayed');quantile(sty1)
ns=round(Stay0[1]/4)
sty0=c(sample(Stay0[2]:Stay0[3],ns,replace=TRUE),
sample(Stay0[3]:Stay0[4],ns,replace=TRUE),
sample(Stay0[4]:Stay0[5],ns,replace=TRUE),
sample(Stay0[5]:Stay0[6],ns,replace=TRUE))
hist(sty0,breaks=100,main='control');quantile(sty0)
par(mfrow=c(1,1))
plot(density(sty0),lty=2)
lines(density(sty1))
wilcox.test(sty0,sty1, correct=FALSE)
wilcox.test(sty0,sty1, correct=TRUE)
exactRankTests::wilcox.exact(sty0,sty1)
805:卵の名無しさん
17/05/19 18:29:04.26 NEqlWULX.net
Stay1=c(N=1691,Min=0,lwrQ=4,Med=7,uprQ=13,Max=165)
Stay0=c(N=1702,Min=0,lwrQ=4,Med=8,uprQ=16,Max=320)
Sim_Stay<-function(){
ns=round(Stay1[1]/4)
sty1=c(sample(Stay1[2]:Stay1[3],ns,replace=TRUE),
sample(Stay1[3]:Stay1[4],ns,replace=TRUE),
sample(Stay1[4]:Stay1[5],ns,replace=TRUE),
sample(Stay1[5]:Stay1[6],ns,replace=TRUE))
# hist(sty1,breaks=50,xlim=c(0,320),main='prayed');quantile(sty1)
ns=round(Stay0[1]/4)
sty0=c(sample(Stay0[2]:Stay0[3],ns,replace=TRUE),
sample(Stay0[3]:Stay0[4],ns,replace=TRUE),
sample(Stay0[4]:Stay0[5],ns,replace=TRUE),
sample(Stay0[5]:Stay0[6],ns,replace=TRUE))
# hist(sty0,breaks=100,main='control');quantile(sty0)
wilcox.exact(sty0,sty1)$p.value
}
N=10000
Res=replicate(N,Sim_Stay())
hist(Res,freq=FALSE,col='lightgreen',breaks=100)
lines(density(Res),add=TRUE)
mean(Res<0.05)
max(Res)
806:卵の名無しさん
17/05/20 10:52:57.73 GAnNqfB7.net
Physician age and outcomes in elderly patients in hospital in the US:
observational study
URLﾘﾝｸ(www.bmj.com)
のTable 2のデータを用いて
コクラン・アーミテージ検定をしてみる。
adms=c(309020,280894,115660,30963)
p
807:hys=c(10177,8016,3331,1086) mort=c(.108,.111,.113,.121) deat=round(mort*adms) #Cochran-Armitage Cochran_Armitage<-function(ri,ni,xi=seq_along(ri)){ # ri:患者 ni:総数 xi:病状指標 O<-sum(ri*xi) r<-sum(ri);n<-sum(ni) E<-r*sum(ni*xi)/n V<-r*(n-r)/(n^3)*(n*sum(ni*xi^2)-sum(ni*xi)^2) Z<-(O-E)/sqrt(V) p<-2*pnorm(abs(Z),lower.tail=FALSE) return(p) } Cochran_Armitage(deat,adms) > Cochran_Armitage(deat,adms) [1] 5.095712e-14
808:卵の名無しさん
17/05/20 14:36:09.48 MCXaCATK.net
裏口バカにはコメントできないであろう数式をドヤ顔で再掲してみよう。
検査前確率(有病率)pとして
オッズx=p/(1-p)
感度y, 特異度zとする。
陽性適中率PPV=ω(x,y,z)=xy/(xy+1-z)
偏微分すると
∂ω/∂x=(1-z)y/(xy+1-z)^2
∂ω/∂y=(1-z)y/(xy+1-z)^2
∂ω/∂z=xy/(xy+1-z)^2
すべて0<z<1ゆえ、いずれも正値なのは自明
同様に、
陰性適中率NPV=μ(x,y,z)=z/(z+x(1-y))
∂μ/∂x=-z(1-y)/[z+(1-y)]^2 <0 (∵0<感度y<1)
∂μ/∂y=xz/[z+x(1-y)]^2
∂μ/∂z=x(1-y)/[z+x(1-y)]^2
オッズ上昇（有病率上昇）すれば陰性的中率が低下するという直観の数式での裏付け。
809:卵の名無しさん
17/05/20 23:15:33.12 MCXaCATK.net
curve(dnorm(x,qnorm(0.005)),-5,5,lty=3,ann=FALSE)
curve(dnorm(x),add=TRUE)
abline(v=0,col='gray')
cp=qlnorm(0.005,lower=FALSE) ; cp
curve(dlnorm(x+cp),-cp,20-cp,lty=2,ann=FALSE)
abline(v=cp-cp,col='gray')
curve(dnorm(x+cp,cp)*dlnorm(exp(-1))/dnorm(0),add=TRUE)
legend('center',bty='n',legend=c('慶応','川崎'),lty=1:2)
810:卵の名無しさん
17/05/21 08:20:47.66 4c3djdui.net
NNF <- function(p,conf.level=0.95){
alpha=1-conf.level
q=1-p
log(alpha)/log(q) # q^x < alpha
}
NNF(1/100,0.95)
NNF(1/1000,0.99)
811:卵の名無しさん
17/05/22 07:16:18.24 5XKSKW8x.net
これって名投稿だと感心する。
私は昭和の時代に大学受験したけど、昔は今よりも差別感が凄く、慶応以外の私立医は特殊民のための特殊学校というイメージで開業医のバカ息子以外は誰も受験しようとすらしなかった。
常識的に考えて、数千万という法外な金を払って、しかも同業者からも患者からもバカだの裏口だのと散々罵られるのをわかって好き好んで私立医に行く同級生は一人もいませんでした。
本人には面と向かっては言わないけれど、俺くらいの年代の人間は、おそらくは８－９割は私立卒を今でも「何偉そうなこと抜かしてるんだ、この裏口バカが」と心の底で軽蔑し、嘲笑しているよ。当の本人には面と向かっては絶対にそんなことは言わないけどね。
＞同業者からも患者からもバカだの裏口だのと散々罵られるのをわかって好き好んで私立医に行く
同業者の発言：
【ウハも】 開業医達の集い 8診 【粒も】 [無断転載禁止]©2ch.net
670 名前：卵の名無しさん[] 投稿日：2017/05/20(土) 11:15:40.12 ID:46exOAAP
学会で川崎の医者が発表してたら、「馬鹿が何偉そうにしゃべってる。」と思う自分が嫌になるが、
これだけは学生時代から続く反射なので止められない。
患者の発言：
【医療】医者は患者にコレを言われると、内心ものすごくムッとする★4 [無断転載禁止]©2ch.net
810 名前：名無しさん＠１周年[] 投稿日：2017/05/21(日) 00:11:22.04 ID:+h+2h2fq0
旧帝医卒の医者が（患者としては嫌だが）
多少偉そうにしているのはわからんでもないが
底辺私立に偉そうにされたら
そりゃ患者としてはむかつくだろｗｗ
(unquote)
Last but not least,
it is not the kickass bottom medical school but its enrollee that is despicable, which deserves to be called a bona fide moron beyond redemption.
ド底辺シリツ医大が悪いんじゃない、本人の頭が悪いんだ。
812:卵の名無しさん
17/05/24 14:21:19.79 olQQP7cX.net
女 男
若 １５ ５
老 ３ １０
813:卵の名無しさん
17/05/24 15:47:07.57 Yzk6zYd9O
高見 博 やりチン
高見真理 やりまん
814:卵の名無しさん
17/05/25 13:31:59.33 SNaobD6X.net
死亡患者数 総患者数 医師数
女性医師 46007 415605 18751
男性医師 137811 1199399 39593
死亡患者数/Dr 総患者数/Dr
女性医師 2.45 22.16
男性医師 3.48 30.29
815:卵の名無しさん
17/05/25 13:41:48.70 SNaobD6X.net
記載から逆算して
死亡患者数 総患者数 医師数
女性医師 46007 415605 18751
男性医師 137811 1199399 39593
を医師数を無視してカイ二乗検定すると
2-sample test for equality of proportions without continuity
correction
data: c(M1[1, 1], M1[2, 1]) out of c(M1[1, 2], M1[2, 2])
X-squared = 54.01, df = 1, p-value = 0.0000000000001994
alternative hypothesis: two.sided
95 percent confidence interval:
-0.005312783 -0.003089587
sample estimates:
prop 1 prop 2
0.1106989 0.1149000
で有意となり、 生存率差の９５％信用区間もアブストラクトの95%CI, -0.57% to -0.28%;とほぼ一致。
816:卵の名無しさん
17/05/26 12:02:28.96 5I65LkQjY
毎日新聞社
URLﾘﾝｸ(www.mainichi.co.jp)
817:卵の名無しさん
17/05/26 16:45:01.86 g0v5lQqI.net
10 13
15 6
818:卵の名無しさん
17/05/28 04:15:53.81 23SWWCfN.net
A little old lady goes to the doctor and says, "Doctor I have this problem with gas, but it really doesn't bother me too much.
They never smell and are always silent.
As a matter of fact I've farted at least 20 times since I've been here in your office. You didn't know I was farting because they didn't smell and are silent".
The doctor says, "I see. Take these pills and come back to see me next week."
The next week the lady goes back, "Doctor" she says, "I don't know what the heck you gave me, but now my farts... although still silent they stink terribly."
"Good" the doctor said, “now that we've cleared up your sinuses, let's work on your hearing!"
819:卵の名無しさん
17/05/28 09:12:32.95 sdpbW2IZ.net
これって名投稿だと感心する。
私は昭和の時代に大学受験したけど、昔は今よりも差別感が凄く、慶応以外の私立医は特殊民のための特殊学校というイメージで開業医のバカ息子以外は誰も受験しようとすらしなかった。
常識的に考えて、数千万という法外な金を払って、しかも同業者からも患者からもバカだの裏口だのと散々罵られるのをわかって好き好んで私立医に行く同級生は一人もいませんでした。
本人には面と向かっては言わないけれど、俺くらいの年代の人間は、おそらくは８－９割は私立卒を今でも「何偉そうなこと抜かしてるんだ、この裏口バカが」と心の底で軽蔑し、嘲笑しているよ。当の本人には面と向かっては絶対にそんなことは言わないけどね。
＞同業者からも患者からもバカだの裏口だのと散々罵られるのをわかって好き好んで私立医に行く
同業者の発言：
【ウハも】 開業医達の集い 8診 【粒も】 [無断転載禁止]©2ch.net
670 名前：卵の名無しさん[] 投稿日：2017/05/20(土) 11:15:40.12 ID:46exOAAP
学会で川崎の医者が発表してたら、「馬鹿が何偉そうにしゃべってる。」と思う自分が嫌になるが、
これだけは学生時代から続く反射なので止められない。
患者の発言：
【医療】医者は患者にコレを言われると、内心ものすごくムッとする★4 [無断転載禁止]©2ch.net
810 名前：名無しさん＠１周年[] 投稿日：2017/05/21(日) 00:11:22.04 ID:+h+2h2fq0
旧帝医卒の医者が（患者としては嫌だが）
多少偉そうにしているのはわからんでもないが
底辺私立に偉そうにされたら
そりゃ患者としてはむかつくだろｗｗ
(unquote)
Last but not least,
it is not the kickass bottom medical school but its enrollee that is despicable, which deserves to be called a bona fide moron beyond redemption.
ド底辺シリツ医大が悪いんじゃない、本人の頭が悪いんだ。
820:卵の名無しさん
17/05/28 09:12:56.33 sdpbW2IZ.net
10 5
6 8
821:卵の名無しさん
17/05/28 18:57:09.64 1dIxNVDD.net
##
RR=OR*(1-P1) + P1
OR=(RR-P1)/(1-P1) # P1:暴露群でのイベント発生率=a/(a+b)
P1=(OR-RR)/(OR-1)
RR=OR/(OR*P0 + 1-P0)
OR=(1-P0)*RR/(1-P0*RR) # P0:非暴露群でのイベント発生率=c/(c+d)
P0=(OR-RR)/(OR-1)/RR
RR2ORp1 <- function(RR,P1) (RR-P1)/(1-P1) # P1:暴露群でのイベント発生率=a/(a+b)
RR2ORp0 <- function(RR,P0) (1-P0)*RR/(1-P0*RR) # P0:非暴露群でのイベント発生率=c/(c+d)
R2p1 <- function(RR,OR) (OR-RR)/(OR-1)
R2p0 <- function(RR,OR) (OR-RR)/(OR-1)/RR
822:卵の名無しさん
17/05/28 21:57:18.59 1dIxNVDD.net
data{
int N;
int nor[N];
int S;
int sou[S];
}
parameters{
real<lower=0,upper=1> pn;
real<lower=0,upper=1> ps;
}
model{
for(i in 1:N)
nor[i] ~ bernoulli(pn);
for(j in 1:S)
sou[j] ~ bernoulli(ps);
}
generated quantities{
real OR;
real RR;
RR = pn/ps;
OR = (pn/(1-pn))/(ps/(1-ps));
}
823:卵の名無しさん
17/05/28 21:58:03.99 1dIxNVDD.net
N=50662
n=12
S=6151
s=0
nor=c(rep(1,n),rep(0,N-n))
sou=rep(0,S)
model.tsuda=stan_model('tsuda.stan')
data=list(N=N,nor=nor,S=S,sou=sou)
fit.tsuda <- sampling(model.tsuda, data=data, seed=1234, iter=20000)
print(fit.tsuda,probs=c(.025,.5,.975))
824:卵の名無しさん
17/05/29 23:45:42.11 DAm6Bi0e.net
c(10/100 , 25/200, 35/300)
c(25/150 , 10/300, 35/450)
c(35/250 , 35/500)
825:卵の名無しさん
17/05/31 14:41:43.84 1PckSUIM.net
#多重比較
.m=matrix(c(10,25,20,5,100,200,150,250),ncol=2)
colnames(.m)=c('生存','受持')
rownames(.m)=c('若女','老女','若男','老男')
.m ; prop.test(.m)$p.value
.g=matrix(c(.m[1,1]+.m[2,1],.m[3,1]+.m[4,1],.m[1,2]+.m[2,2],.m[3,2]+.m[4,2]),2)
colnames(.g)=c('生存','受持')
rownames(.g)=c('女','男')
.g ; prop.test(.g)$p.value
.a=matrix(c(.m[1,1]+.m[3,1],.m[2,1]+.m[4,1],.m[1,2]+.m[3,2],.m[2,2]+.m[4,2]),2)
colnames(.a)=c('生存','受持')
rownames(.a)=c('若','老')
.a ; prop.test(.a)$p.value
生存率=round(.m[,1]/.m[,2],3)
cbind(.m,生存率)
prop.test(.g)
prop.test(.a)
prop.test(.m)
826:卵の名無しさん
17/06/01 08:30:15.28 lqqHYMnI.net
# 多重比較
.m=matrix(c(10,25,20,5,100,200,150,250),ncol=2)
colnames(.m)=c('生存','受持')
rownames(.m)=c('若女','老女','若男','老男') ; .m
prop.test(.m[,1],.m[,2])$p.value
.mm=cbind(.m[,1],.m[,2]-.m[,1])
colnames(.mm)=c('生存','死亡')
.mm
prop.test(.mm)$p.value
fisher.test(.mm)$p.value
cbind(.m,生存率=round(.m[,1]/.m[,2],3))
.g=matrix(c(.m[1,1]+.m[2,1],.m[3,1]+.m[4,1],.m[1,2]+.m[2,2],.m[3,2]+.m[4,2]),2)
colnames(.g)=c('生存','受持') ; rownames(.g)=c('女','男') ; .g
.gg=cbind(.g[,1],.g[,2]-.g[,1])
colnames(.gg)=c('生存','死亡') ; .gg
prop.test(.gg)$p.value
fisher.test(.gg)
cbind(.g,生存率=round(.g[,1]/.g[,2],3))
.a=matrix(c(.m[1,1]+.m[3,1],.m[2,1]+.m[4,1],.m[1,2]+.m[3,2],.m[2,2]+.m[4,2]),2)
colnames(.a)=c('生存','受持') ; rownames(.a)=c('若','老') ; .a
.aa=cbind(.a[,1],.a[,2]-.a[,1])
colnames(.aa)=c('生存','死亡') ; .aa
prop.test(.aa)$p.value
fisher.test(.aa)
cbind(.a,生存率=round(.a[,1]/.a[,2],3))
827:卵の名無しさん
17/06/01 08:30:52.40 lqqHYMnI.net
prop.test(.gg)
prop.test(.aa)
prop.test(.mm)
fisher.test(.gg)
fisher.test(.aa)
fisher.test(.mm)
pairwise.prop.test(.mm) # Matrix : success,failure
pairwise.prop.test(.m[,1],.m[,2]) # Vector : success,trial
pairwise.prop.test(.m[,1],.m[,2],p.adjust='bon')
pairwise.prop.test(.m[,1],.m[,2],p.adjust='none')
library(fmsb)
fisher.test(.mm)
pairwise.fisher.test(.mm,p.adjust='holm')
pairwise.fisher.test(.m[,1],.m[,2],p.adjust='holm')
pairwise.fisher.test(.m[,1],.m[,2],p.adjust='bon')
pairwise.fisher.test(.m[,1],.m[,2],p.adjust='none')
pairwise.fisher.test(.mm,p.adjust='holm')
828:卵の名無しさん
17/06/03 06:14:04.74 fHjCdMkb.net
身体診察の教科書において最高峰として名高い『Sapira's Art and Science of Bedside Diagnosis』
にこんな記述がある。
More than 100 books and thousands of articles have been published on EBM.
It has been subjected to major criticism, including the observation that it is not itself evidence based, in that there is no convincing evidence that physicians using it provide any better care than those who do not.
Perhaps the most balanced definition is that EBM constitutes “methods of incorporating epidemiologic evidence into clinical practice” (Cohen et al., 2004).
829:卵の名無しさん
17/06/06 00:38:28.52 vZoASpBs.net
Three business men were sitting in a bar, drinking and discussing how stupid their wives were.
The first says, "I tell you, my wife is so stupid. Last week she went to the supermarket and bought $300 worth of meat because it was on sale, and we don't even have a fridge big enough to keep it in!"
The second agrees that she sounds pretty thick, but says his wife is thicker. "Just last week, she went out and spent $17,000 on a new car," he laments, "and she doesn't even know how to drive!"
The third, a blond male, nods sagely and agrees that these two women sound like they both walked through the stupid forest and got hit by every branch.
However, he still thinks his wife is dumber. "I have to laugh when I think about it," he chuckles.
"Last week my wife left on a vacation to Greece. I watched her packing her bags and she must have taken at least five boxes of condoms with her. She doesn't even have a penis!"
830:卵の名無しさん
17/06/06 13:15:54.93 S1GvLqu2.net
There is no reason for national medical school gradutates to envy uraguchi bona fide morons who bought their way into the bottom medical school.
No offense, but a grim reality.
There is nothing to be more ashamed among doctors than buying their way into the bottom medical school.
Owing to this original sin, they cannot even name their honorable alma mater.
In order to keep their self-esteem, these moronic graduates cannot help but call other genuine doctors charlatans against their better judgement. Uraguchi is an albatross in their neck. What a pity!
The bottom line is , it sucks to be an uraguchi.
If any doctor tells that he will see a patient immediately when he cannot, the patient will label him a liar.
The doctor of his word won't behave in such a dishonest way.
If one insists that he can name ten of his classmates when he actually cannot, he will be a liar.
As for the uraguchi graduates, it seems to be intolerably dishonorable to uncover their alma mater.
Far more dishonorable than being a liar.
URLﾘﾝｸ(i.imgur.com)
There will be no English response from bona fide morons suffering EBMS（Expellee from Bottom Medical School) Syndrome.
Last but not least,
it is not the bottom medical school but its enrollee that is despicable, which deserves to be called a bona fide moron beyond redemption.
831:卵の名無しさん
17/06/06 14:12:24.95 S1GvLqu2.net
There is no reason for national medical school gradutates to envy uraguchi bona fide morons who bought their way into the bottom medical school.
No offense, but a grim reality.
There is nothing to be more ashamed among doctors than buying their way into the bottom medical school.
Owing to this original sin, they cannot even name their honorable alma mater.
In order to keep their self-esteem, these moronic graduates cannot help but call other genuine doctors charlatans against their better judgement. Uraguchi is an albatross about their neck. What a pity!
The bottom line is , it sucks to be an uraguchi.
If any doctor tells that he will see a patient immediately when he cannot, the patient will label him a liar.
The doctor of his word won't behave in such a dishonest way.
If one insists that he can name ten of his classmates when he actually cannot, he will be a liar.
As for the uraguchi graduates, it seems to be intolerably dishonorable to uncover their alma mater.
Far more dishonorable than being a liar.
URLﾘﾝｸ(i.imgur.com)
There will be no English response from bona fide morons suffering EBMS（Expellee from Bottom Medical School) Syndrome.
Last but not le
832:卵の名無しさん
17/06/06 17:44:53.81 7iJ9wwby.net
？
833:卵の名無しさん
17/06/06 17:45:02.59 7iJ9wwby.net
There is no reason for national medical school gradutates to envy uraguchi bona fide morons who bought their way into the bottom medical school.
No offense, but a grim reality.
There is nothing to be more ashamed among doctors than buying their way into the bottom medical school.
Owing to this original sin, they cannot even name their honorable alma mater.
In order to keep their self-esteem, these moronic graduates cannot help but call other genuine doctors charlatans against their better judgement. Uraguchi is an albatross about their neck. What a pity!
The bottom line is , it sucks to be an uraguchi.
If any doctor tells that he will see a patient immediately when he cannot, the patient will label him a liar.
The doctor of his word won't behave in such a dishonest way.
If one insists that he can name ten of his classmates when he actually cannot, he will be a liar.
As for the uraguchi graduates, it seems to be intolerably dishonorable to uncover their alma mater.
Far more dishonorable than being a liar.
URLﾘﾝｸ(i.imgur.com)
There will be no English response from bona fide morons suffering EBMS（Expellee from Bottom Medical School) Syndrome.
Last but not least,
it is not the bottom medical school but its enrollee that is despicable, which deserves to be called a bona fide moron beyond redemption.
834:卵の名無しさん
17/06/07 13:22:39.80 eJruhvi4.net
findings=c('RS','EFEG','EREG','EAG','EHG','EE&EG','ERHG','ECG','NG','RAC','FP','HP','XA')
# Red Sreak, Endoscopic Flat Erosive Gastritis, Endoscopic Raised Erosive Gastritis,
# Endscopic Atrophic Gastritis, Endoscopic Hemorrhagick Gastritis,Endoscopic Erythematic&Exudative Gastritis,
# Endospopic Rugae Hypertrophic Gastritis,Endoscopic Congestive Gastritis,
# Nodular Gastritis, Regular Arrangement of Collecting venules,
# Fundic Polyp, Hyperplastic Polyp, Xanthoma
neg=c(111,10,28,9,14,0,0,0,0,231,24,0,0) # ピロリ陰性のとき所見が陽性であった患者数
NEG=278 # ピロリ陰性患者総数
pos=c(6,11,9,70,2,37,16,19,6,30,1,6,6) # ピロリ陽性性のとき所見が陽性であった患者数
POS=140 # ピロリ陽性患者総数
#所見陽性をピロリ陽性と判定すると
py_neg NEG FP py_pos POS TP p.value pLR nLR DOR
RS 111 278 0.399 6 140 0.043 0.000 0.107 1.593 0.067
EFEG 10 278 0.036 11 140 0.079 0.067 2.184 0.956 2.285
EREG 28 278 0.101 9 140 0.064 0.237 0.638 1.041 0.613
EAG 9 278 0.032 70 140 0.500 0.000 15.444 0.517 29.889
EHG 14 278 0.050 2 140 0.014 0.075 0.284 1.038 0.273
EE&EG 0 278 0.000 37 140 0.264 0.000 Inf 0.736 Inf
ERHG 0 278 0.000 16 140 0.114 0.000 Inf 0.886 Inf
ECG 0 278 0.000 19 140 0.136 0.000 Inf 0.864 Inf
NG 0 278 0.000 6 140 0.043 0.001 Inf 0.957 Inf
RAC 231 278 0.831 30 140 0.214 0.000 0.258 4.647 0.055
FP 24 278 0.086 1 140 0.007 0.002 0.083 1.087 0.076
HP 0 278 0.000 6 140 0.043 0.001 Inf 0.957 Inf
XA 0 278 0.000 6 140 0.043 0.001 Inf 0.957 Inf
835:卵の名無しさん
17/06/07 13:27:35.29 eJruhvi4.net
#所見陽性をピロリ非感染陽性と判定すると
py_neg NEG TP py_pos POS FP p.value pLR nLR DOR
RS 111 278 0.399 6 140 0.043 0.000 9.317 0.628 14.844
EFEG 10 278 0.036 11 140 0.079 0.067 0.458 1.046 0.438
EREG 28 278 0.101 9 140 0.064 0.237 1.567 0.961 1.630
EAG 9 278 0.032 70 140 0.500 0.000 0.065 1.935 0.033
EHG 14 278 0.050 2 140 0.014 0.075 3.525 0.963 3.659
EE&EG 0 278 0.000 37 140 0.264 0.000 0.000 1.359 0.000
ERHG 0 278 0.000 16 140 0.114 0.000 0.000 1.129 0.000
ECG 0 278 0.000 19 140 0.136 0.000 0.000 1.157 0.000
NG 0 278 0.000 6 140 0.043 0.001 0.000 1.045 0.000
RAC 231 278 0.831 30 140 0.214 0.000 3.878 0.215 18.021
FP 24 278 0.086 1 140 0.007 0.002 12.086 0.920 13.134
HP 0 278 0.000 6 140 0.043 0.001 0.000 1.045 0.000
XA 0 278 0.000 6 140 0.043 0.001 0.000 1.045 0.000
836:卵の名無しさん
17/06/08 20:02:57.03 c2IUt8h2.net
昼休みの製薬会社の説明会はリリカOD錠の説明だったのだが
パンフレットにあったこの論文は面白かった。
Pharmacotherapy for neuropathic pain in adults: a systematic review and meta-analysis
成人の神経痛に対する薬物療法のシステムレビューとメタ解析
Lancet Neurol. 2015 February ; 14(2): 162?173
URLﾘﾝｸ(www.thelancet.com)(14)70251-0.pdf
で無料で読める(Isn't youの語学力では無理だが)
面白いのが、forrest plotの横軸がリスク比でなくNNTで作成されていたこと。
更に、NNTだけでなく、NNHまでも記載記載してあった。
NNH（Numbers Needed to Harm)は、有害事象（眠気等のことか？）により1名の脱落者がでるのに必要な投与患者数として計算されていた。
薬理をいくら学んでも臨床試験をして統計解析しない限り
この数字は出て来ないんだな。
自分なりに大雑把に要約すると
15人投与して2人がプラセボを超えた効果、1人が有害事象により投与中止となる
と理解した。
こういう理解を背景に個々の患者に処方するかを判断するのが
Evidence Based Medicineなんだな。
837:卵の名無しさん
17/06/10 06:33:00.80 v2BE3SGi.net
ｽﾚﾘﾝｸ(hosp板:670番)
2 ID:h7TtrsH7(16/29)
0670 卵の名無しさん 2017/02/01 20:57:44
>>657
自分で名誉毀損するのが柔整
柔整の品性
URLﾘﾝｸ(i.imgur.com)
URLﾘﾝｸ(i.imgur.com)
838:卵の名無しさん
17/06/10 07:25:39.72 v2BE3SGi.net
要約するとこうなるね。
知識の欠如
URLﾘﾝｸ(i.imgur.com)
遵法精神の欠如
URLﾘﾝｸ(imagizer.imageshack.com)
URLﾘﾝｸ(imagizer.imageshack.com)
品性の欠如
URLﾘﾝｸ(i.imgur.com)
URLﾘﾝｸ(i.imgur.com)
839:卵の名無しさん
17/06/10 19:33:44.38 S6rQfr0d.net
低血糖でも半身麻痺など脳卒中様の症状をきたすことがあるので
５０％ブドウ糖を５０ｍL投与するまえ脳卒中と診断するな
という有名な臨床格言(Clinical Pearl)があるんだが、
ド底辺シリツの医者はそれも知らずに救急をやっているよ。
URLﾘﾝｸ(i.imgur.com)
そのうち事故を起こすだろうなと思っていたら
URLﾘﾝｸ(i.imgur.com)
これも表にでた分だからもっとひどいのは隠蔽されていると俺は思っている。
840:卵の名無しさん
17/06/10 23:38:30.47 S6rQfr0d.net
URLﾘﾝｸ(community.cochrane.org)
841:卵の名無しさん
17/06/12 07:51:11.39 1A86sl0D.net
イベント発生率が小さければ観察研究での曝露オッズ比は母集団でのリスク比を反映する
842:卵の名無しさん
17/06/12 15:08:00.40 ykGM4sCC.net
Statutory rape, Evan.
Twenty years behind bars.
And that's just for one of us.
And I'm not planning on taking a shower.
I have evidence.
843:卵の名無しさん
17/06/12 16:30:02.06 ykGM4sCC.net
このスレに登場する柔整の紹介
（捏造ではなくエビデンスなのでコピペはご自由に）
知識の実態
URLﾘﾝｸ(i.imgur.com)
URLﾘﾝｸ(i.imgur.com)
遵法精神の実態
URLﾘﾝｸ(imagizer.imageshack.com)
URLﾘﾝｸ(imagizer.imageshack.com)
品性の実態
URLﾘﾝｸ(i.imgur.com)
URLﾘﾝｸ(i.imgur.com)
844:卵の名無しさん
17/06/16 12:14:53.90 dVYxVdFb.net
【なんでも】接骨院の謎【捻挫】に登場する柔整の紹介
知識の実態
柔整が薬理を書くと医師法違反
URLﾘﾝｸ(i.imgur.com)
EBMには薬理と代謝が必須+Drag Delivery System
URLﾘﾝｸ(i.imgur.com)
有資格者のはずなのに複雑骨折＝開放骨折を理解していない
URLﾘﾝｸ(i.imgur.com)
遵法精神の実態
保険の不正使用をそそのかすのも説明しているから良心的
URLﾘﾝｸ(imagizer.imageshack.com)
同意したら患者が悪い
URLﾘﾝｸ(imagizer.imageshack.com)
品性の実態
整形外科には治せず、柔整には治せる外傷の例示を求められての汚言
URLﾘﾝｸ(i.imgur.com)
URLﾘﾝｸ(i.imgur.com)
845:卵の名無しさん
17/06/17 19:02:01.03 WGpntzk/.net
MASS::area(function(x) (1-x)^N, 0,1)
F=function(x) -1/(N+1)*(1-x)^(N+1)
F(1)-F(0)
846:卵の名無しさん
17/06/17 19:02:50.51 WGpntzk/.net
pL=uniroot(function(x) dbinom(0,N,x) - 0.975, c(0,0.5))$root
pM=uniroot(function(x) dbinom(0,N,x) - 0.50, c(0,0.5))$root
pU=uniroot(function(x) dbinom(0,N,x) - 0.025, c(0.5,1))$root
round(c(pL,pM,pU),4)
dbinom(0,N,pL) ; dbinom(0,N,pM); dbinom(0,N,pU)
Mean=MASS::area(function(x)dbinom(0,N,x),0,1) ; Mean
847:卵の名無しさん
17/06/17 23:53:04.73 WGpntzk/.net
NNF <- function(p,conf.level=0.95){
alpha=1-conf.level
q=1-p
log(alpha)/log(q) # q^x < alpha
}
NNF(1/100,0.95)
NNF(1/1000,0.99)
848:卵の名無しさん
17/06/18 06:34:11.33 nxMdZkja.net
【なんでも】接骨院の謎【捻挫】に登場する、書けば書くほど墓穴を掘る、自己名誉毀損派の柔道整復師＝墓穴師または墓穴術師の御紹介
＜知識の実態＞
柔整が薬理を書くと医師法違反
URLﾘﾝｸ(i.imgur.com)
EBMには薬理と代謝が必須+Drag Delivery System
URLﾘﾝｸ(i.imgur.com)
有資格者のはずなのに複雑骨折＝開放骨折を理解していない
URLﾘﾝｸ(i.imgur.com)
引用元もないのに引用、名前も挙げられないのに高名
URLﾘﾝｸ(imagizer.imageshack.com)
アクセス限定のフェイスブックの記述を根拠にする
URLﾘﾝｸ(imagizer.imageshack.com)
＜遵法精神の実態＞
保険の不正使用をそそのかすのも説明しているから良心的
URLﾘﾝｸ(imagizer.imageshack.com)
同意したら患者が悪い
URLﾘﾝｸ(imagizer.imageshack.com)
不正使用をそそのかせて患者に責任を転嫁する素晴らしい制度
URLﾘﾝｸ(i.imgur.com)
＜品性の実態＞
整形外科には治せず、柔整には治せる外傷の例示を求められての汚言
URLﾘﾝｸ(i.imgur.com)
URLﾘﾝｸ(i.imgur.com)
849:卵の名無しさん
17/06/18 06:39:30.50 dqXZYzZO.net
柔整の狩場=患者を獲物と見做す表現、まさに獣性
URLﾘﾝｸ(imagizer.imageshack.com)
850:卵の名無しさん
17/06/18 11:18:09.53 nxMdZkja.net
柔道整復師の自己名誉毀損=墓穴術症例集
＜知識の実態＞
柔整が薬理を書くと医師法違反
URLﾘﾝｸ(i.imgur.com)
EBMには薬理と代謝が必須+Drag Delivery System
URLﾘﾝｸ(i.imgur.com)
有資格者のはずなのに複雑骨折＝開放骨折を理解していない
URLﾘﾝｸ(i.imgur.com)
引用元もないのに引用、名前も挙げられないのに高名
URLﾘﾝｸ(imagizer.imageshack.com)
アクセス限定のフェイスブックの記述を根拠にする
URLﾘﾝｸ(imagizer.imageshack.com)
＜遵法精神の実態＞
保険の不正使用をそそのかすのも説明しているから良心的
URLﾘﾝｸ(imagizer.imageshack.com)
同意したら患者が悪い
URLﾘﾝｸ(imagizer.imageshack.com)
不正使用をそそのかせて患者に責任を転嫁する素晴らしい制度
URLﾘﾝｸ(i.imgur.com)
＜品性の実態＞
整形外科には治せず、柔整には治せる外傷の例示を求められての汚言
URLﾘﾝｸ(i.imgur.com)
URLﾘﾝｸ(i.imgur.com)
柔整の狩場=患者を獲物と見做す表現、まさに獣性
URLﾘﾝｸ(imagizer.imageshack.com)
851:卵の名無しさん
17/06/18 16:17:56.30 nxMdZkja.net
# NN(100)個中当たりSS個、N(5)個サンプルしてS個当たりからSSを推測する。
foo <-function(SS,NN=100,N=5){
YY=c(rep(1,SS),rep(0,NN-SS))
return(sum(sample(YY,N)))
}
ss=0:100
S=0
k=10^4
SS=NULL
for(i in 1:k){
x=sapply(ss,foo)
SS=c(SS,which(x==S)-1)
}
hist(SS,freq=FALSE,col='lightblue', main='')
lines(density(SS),lwd=2,lty=3)
summary(SS)
MAP(SS)[1]
quantile(SS,c(0.025,0.50,0.975))
> summary(SS)
Min. 1st Qu. Median Mean 3rd Qu. Max.
0.00 4.00 10.00 13.56 20.00 89.00
> MAP(SS)[1]
x
1.547634
> quantile(SS,c(0.025,0.50,0.975))
2.5% 50% 97.5%
0 10 45
URLﾘﾝｸ(i.imgur.com)
852:卵の名無しさん
17/06/19 18:21:45.58 eYxkRSpz.net
URLﾘﾝｸ(imagizer.imageshack.com)
853:卵の名無しさん
17/06/22 08:24:48.90 0Y8JUQjF.net
NNF <- function(p,conf.level=0.95){
alpha=1-conf.level
q=1-p
log(alpha)/log(q) # q^x < alpha
}
N2P <- function(n,conf.level=0.95){
alpha=1-conf.level
p=1-alpha^(1/n)
P=1/p
return(P)
}
P2conf <- function(n,P){
p=1/P
alpha=(1-p)^n
conf=1-alpha
return(conf)
}
854:卵の名無しさん
17/06/23 18:58:08.79 ApSIiVYz.net
URLﾘﾝｸ(imagizer.imageshack.com)
855:卵の名無しさん
17/06/23 19:22:35.12 ApSIiVYz.net
rule of 3 で近似できる証明
α=1-0.95
(1-pU)^n=α
n*log(1-pU)=log(α) (式1)
テイラー展開
log(1+x) = x -x^2/2 + x^3/3 - x^4/4 + x^5/5 +....
x=-pUとおいて
log(1-pU)= -pU -pU^2/2 -pU^3/3 -pU^4/4 - pU^5/5 -....
pU≒0なら log(1-pU)≒-pU
(式1)に代入すると
n*(-pU)=log(α)
期待値n*pU = - log(α)
> -log(0.05)
[1] 2.995732
856:卵の名無しさん
17/06/24 07:14:42.02 fHNHVNUO.net
巨匠墓穴師>26に曰く
墓穴師なら墓穴学に辿り着けるか?
と言う話なんだけど、実はすべての墓穴が辿り着けるわけではなく、辿り着けない墓穴師も居るわけね。
その巨匠墓穴師の到達点がこれw
＞くも膜下出血は外力では発生しないんだけどね?w
URLﾘﾝｸ(imagizer.imageshack.com)
857:卵の名無しさん
17/06/24 20:39:18.39 fHNHVNUO.net
何度も書くが、脳出血疑いを早期診断に回さずに柔整が５日も抱えるのを同業者は正しい行為だと考えているのだろうか？
転倒の原因が脳出血によるものだった可能性もあるのに。
（再掲）
> 私が遭遇した例で良ければ使っていいぞ。
> 転倒した際に頭部打撲、本人は頸部の痛みで来院、受傷即日。
> 一応、神経症状無し、転倒五日目に脳外科受診を指示、当日CTにて脳内出血を確認
> 根拠はあり、この辺で反応が出ると見たうえでの対診だけどね。
URLﾘﾝｸ(imagizer.imageshack.com)
転倒５日めまで脳外科受診を勧めなかった根拠は何？
脳出血を疑えば医師なら即、CT/MRIをオーダーする。画像検査なしで何日も経過をみたりしない。
> 根拠はあり、この辺で反応が出ると見た
というのだから、きちんとしたエビデンスが示せるんだろ？
858:卵の名無しさん
17/06/25 04:37:41.29 SwCGqXcl.net
何度も書くが、
「くも膜下出血は外力では発生しな�
859:｢んだけどね?w」 という知識レベルで 脳出血疑いを早期診断に回さずに柔整が５日も抱えるのを同業者は正しい行為だと考えているのか？ 転倒の原因が脳出血によるものだった可能性もあるのに。 （再掲） > 私が遭遇した例で良ければ使っていいぞ。 > 転倒した際に頭部打撲、本人は頸部の痛みで来院、受傷即日。 > 一応、神経症状無し、転倒五日目に脳外科受診を指示、当日CTにて脳内出血を確認 > 根拠はあり、この辺で反応が出ると見たうえでの対診だけどね。 http://imagizer.imageshack.com/img922/6201/R3mtdT.jpg 転倒５日めまで脳外科受診を勧めなかった根拠は何？ 脳出血を疑えば医師なら即、CT/MRIをオーダーする。画像検査なしで何日も経過をみたりしない。 > 根拠はあり、この辺で反応が出ると見た というのだから、きちんとしたエビデンスが示せるんだろ？
860:卵の名無しさん
17/06/25 08:28:37.56 fTlrn71o.net
何度も書くが、
「くも膜下出血は外力では発生しないんだけどね?w」
という知識レベルで 脳出血疑いを早期診断に回さずに柔整が５日も抱えるのを同業者は正しい行為だと考えているのか？
転倒の原因が脳出血によるものだった可能性もあるのに。
> 私が遭遇した例で良ければ使っていいぞ。
> 転倒した際に頭部打撲、本人は頸部の痛みで来院、受傷即日。
> 一応、神経症状無し、転倒五日目に脳外科受診を指示、当日CTにて脳内出血を確認
> 根拠はあり、この辺で反応が出ると見たうえでの対診だけどね。
URLﾘﾝｸ(imagizer.imageshack.com)
転倒５日めまで脳外科受診を勧めなかった根拠は何？
脳出血を疑えば医師なら即、CT/MRIをオーダーする。画像検査なしで何日も経過をみたりしない。
> 根拠はあり、この辺で反応が出ると見た
と書いた根拠を尋ねているだけだぞ。
何での答えられないんだ？
861:卵の名無しさん
17/06/26 00:44:09.71 FUJX41xR.net
柔整は保険が扱えることでミニドクターにでもなったつもりなのか、
「くも膜下出血は外力では発生しないんだけどね?w」という程度の誤知識しかない勘違い野郎が、
脳出血の転帰を画像診断すらせずに予測するとかいう独善「医療」を展開して患者を危険に晒す。
保険を扱えることで正しい医学知識を弁えた人間が治療に当たっていると患者も誤解する。
柔整への保険適応を外すのが社会正義に思えてきた。
URLﾘﾝｸ(imagizer.imageshack.com)
脳出血を疑えば医師なら即、CT/MRIをオーダーする。
画像検査なしで何日も経過をみたりしない。
この症例は転倒の原因が脳出血によるものだった可能性もある。
862:卵の名無しさん
17/06/26 07:34:15.57 T1YyhOds.net
柔整は保険が扱えることでミニドクターにでもなったつもりなのか、
「くも膜下出血は外力では発生しないんだけどね?w」という程度の誤知識しかない勘違い野郎が、
脳出血の転帰を画像診断すらせずに予測するとかいう独善「医療」を展開して患者を危険に晒す。
柔整が保険を扱えることで正しい医学知識を弁えた人間が治療に当たっていると患者も誤解する。
柔整への保険適応を外すのが社会正義に思えてきた。
URLﾘﾝｸ(imagizer.imageshack.com)
脳出血を疑えば医師なら即、CT/MRIをオーダーする。
画像検査なしで何日も経過をみたりしない。
この症例は転倒の原因が脳出血によるものだった可能性もある。
863:卵の名無しさん
17/06/26 08:41:12.78 FUJX41xR.net
Wikipediaで沖縄の医介輔を調べるとこんな記述が
>資格には「一代限り」、「現地開業」などの条件が付いており[1]、さらに抗生物質や麻酔薬を自由に使えないこと（後に制限解除）、手術が行えないなどの制限もあった。
この記述に従うと、制度廃止前には抗生物質や麻酔薬も使えていたことになる。
今の柔道整復師よりも行える医療の範囲が広いと思える。
医介輔に脱臼整復やマッサージを禁じる条項はなさそうだし。
医師の充足とともに消滅した資格である。
864:卵の名無しさん
17/06/26 18:40:54.65 3+F1lMYo.net
＞残念ながらド底辺特殊シリツ医大卒の裏口バカなのでとは付言できなかったｗ その点、ﾄﾞ底辺は有利だなｗｗｗｗ
この当直の極意（＝馬鹿のふりをしてリスクを避ける）の英訳を試みてみる。
試訳 playing uraguchi to count on
Google和訳 数え上げるウラグチを演奏する
拙訳：裏口馬鹿のふりをして当てにされないようにする
そのGoogle 英訳
Do not pretend to be counted on behind the back door pretending to be an idiot
参考英熟語
playing hard to get
what girls do when they want a guy but don't want to seem too easy to get..but sometimes it's not even worth it, because the guy might just give up. believe me.
shelly: what happened with you and brandon ?
samantha: i was playing hard to get, and he gave up. i guess i kept it up for too long
865:卵の名無しさん
17/06/27 06:46:37.83 H9+CPd7+.net
整形外科は手を出さず、勘違い柔整が手を出す傷病が脳出血と明らかになったな。
整形外科には治せず、柔整には治せる外傷の例示を求められての汚言
URLﾘﾝｸ(i.imgur.com)
URLﾘﾝｸ(i.imgur.com)
脳出血を画像診断に委ねず放置するのが柔整術？
URLﾘﾝｸ(imagizer.imageshack.com)
URLﾘﾝｸ(imagizer.imageshack.com)
866:卵の名無しさん
17/06/27 07:12:46.13 H9+CPd7+.net
402 卵の名無しさん sage 2017/06/20(火) 16:30:28.56 ID:AQI57Ggp.net
くも膜下出血は外力では発生しないんだけどね?w
何で一緒にするわけ?w
もう少し、妥当な例出した方がいいよw
直達外力、介達外力で発生する重篤な症例上げないとw
私が遭遇した例で良ければ使っていいぞ。
転倒した際に頭部打撲、本人は頸部の痛みで来院、受傷即日。
一応、神経症状無し、転倒五日目に脳外科受診を指示、当日CTにて脳内出血を確認
根拠はあり、この辺で反応が出ると見たうえでの対診だけどね。
もう一例、お風呂場のタイルを掃除をしていて下を向いて顔をあげたら頸部の痛み。
第一中手指関節掌部側に疼痛、屈曲傷害。
一週間後に転医を指示。
これなんだと思う?w
867:卵の名無しさん
17/06/27 07:14:00.05 H9+CPd7+.net
420 卵の名無しさん sage 2017/06/20(火) 17:56:16.36 ID:AQI57Ggp.net
通常、柔整が扱う物には、外傷性くも膜下は無いとみていい話。
たとえ、遭遇したとしても>>402の対応で問題なし。
実際、三十年この対応で問題のある患者は適正な機関に搬送できていると。
実際の話、くも膜下を柔整が対応して見落とすという話に持っていきたかったんだろうけど、
その場合は、明確な外傷がない場合になるしね。
それでも、>>402の対応でOK
で、わざわざ>>402を書いたのは、風呂のタイルのケース、これも脳出血だったんだけどね。
非常に紛らわしい原因になるのだけどね。
注目が、頸部よりも、中手指関節掌側、疼痛、屈曲傷害はあるんだけど、腱の緊張等のが見られなかったと
疼痛と組織の変化は付き物なので、この辺で警戒していた。
同業の方、特に若い柔整に紹介したかった症例。
見た目は、受傷機転があり受傷日も明確であっても、中枢神経の問題もあるということ。
50代以上の患者はこの可能性を考慮しながら見たらいいだろうね。
因みに、この患者は60代女性です、脳外科から回ってきた回答書は脳出血。
柔整は頭に留めておいてください。
868:卵の名無しさん
17/06/27 07:18:38.28 H9+CPd7+.net
赤信号のしびれ
手掌・口症候群（cheiro-oral syndrome：COS）
口の周りのしびれは何か重い病気がある
→突然口の周り，特に片側だけがしびれた．手のひらもしびれた場合
※症例報告
頭部MRIで中心前回前部に拡散強調像（DWI）で高信号小領域を認め，脳梗塞による手掌・口症候群（cheiro-oral syndrome：COS）と診断した。COSの責任病巣は視床が大部分で皮質病巣による例は少ない。
高齢者で顎がしびれる→numb chin syndrome
悪性腫瘍，とくに血液・リンパ系悪性腫瘍の下顎骨転移で
数週間から数ヶ月の経過で，足の先からのしびれが亜急性に上行してくる場合や，あちこちにしびれが島状に飛んで痛みを伴う場合は，基礎疾患に悪性腫瘍や血管炎を伴う，多発性神経炎，多発性単神経炎を疑う．
869:卵の名無しさん
17/06/28 09:07:36.38 VCTCOPAK.net
＞見た目は、受傷機転があり受傷日も明確であっても、中枢神経の問題もあるということ。
間違いではないが不完全。
側溝に落ちて下腿挫滅創で受診した中年女性。
眼瞼結膜に軽い貧血あり、採血でも確認。
通院中に便を持参してもらって潜血陽性。
大腸内視鏡で大腸がんを確認。転移巣と貧血の他の原因精査の後に外科手術。これは同僚の症例だが名医ぶりに感動。
心筋梗塞で温泉で転倒して頭部裂創とか、中枢神経疾患に限定されるわけではない。
血気胸の否定目的に撮ったCTに映った乳がんとか副腎腫瘍とか救急やってると外傷に合併した内因性疾患の経験は日常茶飯事。打撲部位以外の病変は多くは放射線科医が指摘してくれて呼び出し。
柔整は医師の紹介状なしには外傷を扱わせるべきではないね。
俺は紹介しないだろうな、柔整にエビデンスが示されない限り。
870:卵の名無しさん
17/06/28 17:05:59.60 AjGPCNLg.net
柔道整復師の自己名誉毀損=墓穴術症例集
＜知識の実態＞
くも膜下出血は外力では発生しない
URLﾘﾝｸ(imagizer.imageshack.com)
柔整が薬理を書くと医師法違反
URLﾘﾝｸ(i.imgur.com)
EBMには薬理と代謝が必須+Drag Delivery System
URLﾘﾝｸ(i.imgur.com)
有資格者のはずなのに複雑骨折＝開放骨折を理解していない
URLﾘﾝｸ(i.imgur.com)
引用元もないのに引用、名前も挙げられないのに高名
URLﾘﾝｸ(imagizer.imageshack.com)
アクセス限定のフェイスブックの記述を根拠にする
URLﾘﾝｸ(imagizer.imageshack.com)
医介輔は戦時中の資格との珍説
URLﾘﾝｸ(imagizer.imageshack.com)
＜品性の実態＞
整形外科には治せず、柔整には治せる外傷の例示を求められての汚言
URLﾘﾝｸ(i.imgur.com)
URLﾘﾝｸ(i.imgur.com)
柔整の狩場=患者を獲物と見做す表現、まさに獣性
URLﾘﾝｸ(imagizer.imageshack.com)
「いつか壱が突発的な不幸にあうことを祈らずには居られんわ」
URLﾘﾝｸ(imagizer.imageshack.com)
871:卵の名無しさん
17/06/28 17:11:52.14 AjGPCNLg.net
柔道整復師の自己名誉毀損=墓穴術症例集
＜知識の実態＞
くも膜下出血は外力では発生しない
URLﾘﾝｸ(imagizer.imageshack.com)
柔整が薬理を書くと医師法違反
URLﾘﾝｸ(i.imgur.com)
EBMには薬理と代謝が必須+Drag Delivery System
URLﾘﾝｸ(i.imgur.com)
有資格者のはずなのに複雑骨折＝開放骨折を理解していない
URLﾘﾝｸ(i.imgur.com)
引用元もないのに引用、名前も挙げられないのに高名
URLﾘﾝｸ(imagizer.imageshack.com)
アクセス限定のフェイスブックの記述を根拠にする
URLﾘﾝｸ(imagizer.imageshack.com)
医介輔は戦時中の資格との珍説
URLﾘﾝｸ(imagizer.imageshack.com)
＜品性の実態＞
整形外科には治せず、柔整には治せる外傷の例示を求められての汚言
URLﾘﾝｸ(i.imgur.com)
URLﾘﾝｸ(i.imgur.com)
柔整の狩場=患者を獲物と見做す表現、まさに獣性
URLﾘﾝｸ(imagizer.imageshack.com)
「いつか壱が突発的な不幸にあうことを祈らずには居られんわ」
URLﾘﾝｸ(imagizer.imageshack.com)
872:卵の名無しさん
17/06/29 19:46:30.81 ShUr1fe4.net
Reply to this fundamental question first.
What is the basis you insisted on which you kept to yourself the head-injured patient suspected of cerebral hemorrhage for as long as five days without any neuro-imaging?
You told there existed the basis.
Just tell us what it's like.
Any doctor will feel ashamed for failing to detect earlier
when his patient turns out to have other disease than the doctor had thought of.
The more fatal the disease, say cerebral hemorrhage , the more ashamed the doctor.
It is unlikely that the head-injured patient got convinced and assented when he was told that he was suspected of having cerebral hemorrhage and would be consulted to neurosurgeon five days later.
Given no reply to the above fundamental question,
you seem to have no basis no matter personal or objective.
Which is the actual case?
(1)You thought of cerebral hemorrhage, but there was no convincing basis that directed you to defer the transfer of the patient to neurosugeon till fifth day.
(2)You never thought of cerebral hemorrhage on the very first day, and it is not true that you had the basis.
873:卵の名無しさん
17/07/06 20:35:38.81 fHzg9Be0.net
URLﾘﾝｸ(i.imgur.com)
874:卵の名無しさん
17/07/12 08:00:15.06 eJsfcN9F.net
Hey, you bastard preppie!
Don't fancy yourself as MIT graduate.
Yes, I am a graduate of Mississipi Institue of Technology.
875:卵の名無しさん
17/07/12 08:44:22.15 eJsfcN9F.net
URLﾘﾝｸ(imagizer.imageshack.com)
876:卵の名無しさん
17/07/12 08:52:12.50 eJsfcN9F.net
Good company on the road is the shortest cut
877:卵の名無しさん
17/07/12 09:38:48.84 3zbdRb65.net
URLﾘﾝｸ(imagizer.imageshack.com)
878:卵の名無しさん
17/07/19 08:56:05.28 7be3wloO.net
整形外科疾患の痛み止め
元気な方には 越婢加朮湯２８(７日～４週毎） or よく苡仁湯５２
麻黄が使えない方に 桂枝加朮附湯１８（４週毎）
体力気力も増進させたい 大防風湯９７（４週毎）
腰痛の急性期（ぎっくり腰）
どんなぎっくり腰にも 疎経活血湯５３＋芍薬甘草湯６８（７日）
長期化または慢性化したら 疎経活血湯５３（４週毎）
坐骨神経痛
どんな坐骨神経痛にも 牛車腎気丸１０７（４週毎）
効果なし 当帰四逆加呉茱萸生姜湯３８（４週毎） ＯＲ 疎経活血湯５３（４週毎）
間欠性跛行
どんな間欠性跛行にも 当帰四逆加呉茱萸生姜湯３８（４週毎） ＯＲ 疎経活血湯５３(４週毎） ＯＲ 牛車腎気丸１０７（４週毎）
慢性腰痛
どんな腰痛にも 疎経活血湯５３（４週毎）
効果なし 当帰四逆加呉茱萸生姜湯３８（４週毎） ＯＲ 牛車腎気丸１０７（４週毎）
変形性膝関節症
どんな変形性膝関節症にも 防已黄耆湯２０（４週毎）
効果なし または 効果が少ない 防已黄耆湯２０＋越婢加朮湯２８（４週）
むち打ち症・頚椎症
葛根加朮附湯（＝葛根湯１＋桂枝加朮附湯１８）（４週毎）
効果なし または もっとよくなりたい 葛根加朮附湯（＝葛根湯１＋桂枝加朮附湯１８）＋桂枝茯苓丸２５（４週毎）
打撲・捻挫
どんな打撲・捻挫にも 桂枝茯苓丸２５（２週間）
通導散１０５（２週間） ＯＲ 治打撲一方８９（２週間）
879:卵の名無しさん
17/07/19 09:53:44.22 7be3wloO.net
整形外科疾患の痛み止め
元気な方には 越婢加朮湯２８(７日～４週毎） / よく苡仁湯５２
麻黄が使えない方に 桂枝加朮附湯１８（４週毎）
体力気力も増進させたい 大防風湯９７（４週毎）
腰痛の急性期（ぎっくり腰）
どんなぎっくり腰にも 疎経活血湯５３＋芍薬甘草湯６８（７日）
長期化または慢性化したら 疎経活血湯５３（４週毎）
坐骨神経痛
どんな坐骨神経痛にも 牛車腎気丸１０７（４週毎）
効果なし 当帰四逆加呉茱萸生姜湯３８（４週毎） / 疎経活血湯５３（４週毎）
間欠性跛行
どんな間欠性跛行にも 当帰四逆加呉茱萸生姜湯３８（４週毎） / 疎経活血湯５３(４週毎） / 牛車腎気丸１０７（４週毎）
慢性腰痛
どんな腰痛にも 疎経活血湯５３（４週毎）
効果なし 当帰四逆加呉茱萸生姜湯３８（４週毎） / 牛車腎気丸１０７（４週毎）
変形性膝関節症
どんな変形性膝関節症にも 防已黄耆湯２０（４週毎）
効果なし または 効果が少ない 防已黄耆湯２０＋越婢加朮湯２８（４週）
むち打ち症・頚椎症
葛根加朮附湯（＝葛根湯１＋桂枝加朮附湯１８）（４週毎）
効果なし または もっとよくなりたい 葛根加朮附湯（＝葛根湯１＋桂枝加朮附湯１８）＋桂枝茯苓丸２５（４週毎）
打撲・捻挫
どんな打撲・捻挫にも 桂枝茯苓丸２５（２週間）
通導散１０５（２週間） / 治打撲一方８９（２週間）
880:卵の名無しさん
17/07/19 11:58:32.01 awMsXhvs.net
5G
881:卵の名無しさん
17/07/22 20:21:40.96 KRPb+M/R.net
花粉症
どんな花粉症にも 小青竜湯１９（２週間）
効果なし 越婢加朮湯２８（２～４週毎）
効果あり 小青竜湯１９を続行（４週毎）
ドキドキ・ムカムカ 苓甘姜味辛夏仁湯１１９（りょうかんきょうみしんげにんとう）（２～４週毎） or 苓桂朮甘湯３９
めまい
どんなめまいにも 苓桂朮甘湯３９（４週毎）
効果なし 半夏白朮天麻湯３７（４週毎）
真武湯３０（４週毎）
めまい（キーワードから処方）
こどものめまい 五苓散１７（４週毎）
お年寄りのめまい 釣藤散４７（４週毎）
ご婦人のめまい 当帰芍薬散２３（４週毎）
蓄膿症
どんな蓄膿症にも 葛根湯加川きゅう辛夷２（４週毎）
効果なし または ドキドキ・ムカムカするとき 辛夷清肺湯１０４（４週毎） or 小柴胡湯加桔梗石膏１０９ or 荊芥連翹湯５０（けいがいれんぎょうとう）
扁桃炎
どんな扁桃炎にも 小柴胡湯加桔梗石膏１０９（４週毎）
桔梗湯１３８（頻回のうがいを、冷やしてうがいしながら飲み込む）
鼻出血
どんな鼻出血にも 黄連解毒湯１５（頓服）
882:卵の名無しさん
17/07/23 05:16:27.46 rnYfG0QK.net
医学部医学科 偏差値ランキング【駿台】
【74】
東京大 理三 <前>
【71】
東京医科歯科大 医 医 <後>
京都大 医 医 <前>
大阪大 医 医 <前>
【70】
東京医科歯科大 医 医 <前>
名古屋大 医 医 <前>
名古屋大 医 医 <後>
【69】
東北大 医 医 <前>
千葉大 医 医 <後>
九州大 医 医 <前>
【68】
千葉大 医 医 <前>
神戸大 医 医 <前>
広島大 医 医 <後>
京都府立医科大 医 医 <前>
大阪市立大 医 医 <前>
大阪市立大 医 医 <前> 地域枠
大阪市立大 医 医 <前> 大阪府枠
奈良県立医科大 医 医 <後>
慶應義塾大 医 医
URLﾘﾝｸ(i.imgur.com)
URLﾘﾝｸ(i.imgur.com)
URLﾘﾝｸ(i.imgur.com)
URLﾘﾝｸ(i.imgur.com)
883:卵の名無しさん
17/07/26 11:02:38.35 JjJJeQEY.net
The ideal method of evaporative cooling uses a body cooling unit on which the patient lies suspended on a net surface while being sprayed with atomized 15° C water from above and below. 56
Air warmed to 45 to 48° C is blown over the skin surface at 3 m/ min. The unit, not widely available, maximizes evaporative cooling by maintaining cutaneous vasodilation and avoiding heat generation caused by shivering.
884:卵の名無しさん
17/07/26 11:04:38.93 JjJJeQEY.net
The ideal method of evaporative cooling uses a body cooling unit on which the patient lies suspended on a net surface while being sprayed with atomized 15°C water from above and below.
Air warmed to 45 to 48°C is blown over the skin surface at 3m/min. The unit, not widely available, maximizes evaporative cooling by maintaining cutaneous vasodilation and avoiding heat generation caused by shivering.
885:卵の名無しさん
17/07/28 11:24:55.50 tFBVwoE+.net
「任意の解釈
M
について M(A) = True」が成り立つとき，A はトートロジー（または恒真式）と呼ばれる．例：A→A，A∨¬A，((A→B)→A)→A．トートロジーは「内容によらず形だけから正しいといえる文」と考えてよい．
886:卵の名無しさん
17/07/28 11:30:32.05 tFBVwoE+.net
文字化け修正
「任意の解釈Mについて M(A) = True」が成り立つとき，A はトートロジー（または恒真式）と呼ばれる．例：A→A，A∨￢A，((A→B)→A)→A．トートロジーは「内容によらず形だけから正しいといえる文」と考えてよい．
887:卵の名無しさん
17/07/28 21:17:47.25 VcnWSm8i.net
URLﾘﾝｸ(www.sigmax-med.jp)
888:卵の名無しさん
17/07/29 08:34:56.60 DhSEUVnQ.net
P→（Q→R）
（P→Q)→（P→R）
889:卵の名無しさん
17/07/29 15:39:06.22 Zk9wpQPG.net
低学力のド底辺特殊シリツ医大卒を排除するために、医師国家試験は英語で施行するとか
司法試験予備試験のように一般教養科目を医師国家試験に課すべきだと思う。
こんな問題ね。
URLﾘﾝｸ(i.imgur.com)
問題とは関係ないが、
選択肢２はド底辺特殊シリツ医大卒の裏口バカのことを指すのだ思う。
890:卵の名無しさん
17/07/30 01:57:18.59 SHg4MYrZ.net
P→Q ⇔ ￢（P∧￢Q）
891:卵の名無しさん
17/07/30 02:06:59.65 SHg4MYrZ.net
P∧Q ⇔ ￢（P→￢Q）
892:卵の名無しさん
17/07/30 10:06:52.34 4yZ9HmV+.net
URLﾘﾝｸ(i.imgur.com)
893:卵の名無しさん
17/07/31 05:39:45.36 6w16s2Wl.net
P→Q ⇔ ￢（P ∧￢Q）
P ∧Q ⇔ ￢（P→￢Q）
894:卵の名無しさん
17/07/31 05:50:31.88 6w16s2Wl.net
これ
URLﾘﾝｸ(i.imgur.com)
と排中律（ A ∧ ￢Aを背理法の矛盾と扱う）を公理扱いで
こんな恒等式が証明できる。
P→Q ⇔ ￢（P ∧￢Q）
P ∧Q ⇔ ￢（P→￢Q）
→と∧を入れ換えても成立しているから面白い。
895:卵の名無しさん
17/07/31 07:42:10.86 6w16s2Wl.net
C:\Users\(User)\AppData\Local\Google\Chrome\User Data\Default\History
C:\Users\(User)\AppData\Local\Microsoft\Windows\History
896:卵の名無しさん
17/07/31 21:46:22.71 vnUHfsR4.net
P∧Q→R ├ (P→R)∨(Q→R)
897:卵の名無しさん
17/08/04 07:09:16.03 9yI4JgoM.net
(∃x)(Px) ┤├ ￢ ( ∀x)( ￢Px)
(∀x)┤├￢(∃x)(￢Px)
898:卵の名無しさん
17/08/04 07:14:31.51 9yI4JgoM.net
(∃x)(Px) ┤├ ￢ ( ∀x)( ￢Px)
(∀x)(Px)┤├￢(∃x)(￢Px)
899:卵の名無しさん
17/08/04 08:26:38.06 SzooKnk1.net
∃x(Fx) ┤├ ￢ ∀x( ￢Fx)
∀x(Fx) ┤├ ￢∃x(￢Fx)
∀x（Fx→P） ┤├ ∃x(Px)→P
∃x (P→Fx） ┤├ P → ∃x(Fx)
900:卵の名無しさん
17/08/04 08:32:23.88 SzooKnk1.net
∀x(Fx) ┤├ ￢∃x(￢Fx)
すべてのド底辺特殊シリツ医大卒は馬鹿である
は
（馬鹿ではないド底辺特殊シリツ医大卒が存在する）のではない
と
同値である。
901:卵の名無しさん
17/08/04 08:35:01.25 SzooKnk1.net
∀x（Fx→P） ┤├ ∃x(Fx)→P
∃x (P→Fx） ┤├ P → ∃x(Fx)
902:卵の名無しさん
17/08/04 13:00:41.31 SzooKnk1.net
底辺私立医大卒の学力の症例提示
URLﾘﾝｸ(i.imgur.com)
903:卵の名無しさん
17/08/04 14:17:27.93 SzooKnk1.net
以下の演繹は正しいか検討せよ。
幾人かの国民は全ての国立卒を尊敬する。
いかなる国民も裏口バカを尊敬しない。
故にいかなる国立卒も裏口バカではない。
904:卵の名無しさん
17/08/05 18:36:56.20 ED1kUZns.net
現実は
周りに底辺シリツ卒がいなければ
国立大卒業をやたらと鼻にかける必要もない。
905:卵の名無しさん
17/08/06 03:59:48.27 /QHEt0tt.net
すべての人がすべての人に話しかけるならば、ある人が彼らを紹介する。
いかなる人も、彼がその両方の人を知っているのでなければ紹介しない。
すべての人はﾄﾞ底辺特殊シリツ医大裏口斡旋業者mに話かける。
ゆえに、すべての人はmを知っているある人によってmに紹介される。
Iabc : aはbとcとを紹介する
Fab : aはbに話しかける
Gab: aはbを知っている
m : 裏口斡旋業者
として
P1 : ∀x∀y(Fxy→∃z(Izxy))
P2 : ∀x∀y∀z(Izxy→Gzx∧Gzy)
P3 :∀xFxm
Q: ∀xy∃(Iyxm∧Gmy)
で
P1,P2,P3→Qが導けるかという問題。
これは記号の方が論理展開が容易だな。
906:卵の名無しさん
17/08/06 05:30:56.35 /QHEt0tt.net
すべての人がすべての人に話しかけるならば、ある人が彼らを紹介する。
いかなる人も、彼がその両方の人を知っているのでなければ紹介しない。
すべての人はﾄﾞ底辺特殊シリツ医大裏口斡旋業者に話かける。
ゆえに、すべての人は 裏口斡旋業者を知っているある人によって 裏口斡旋業者に紹介される。
Iabc : aはbとcとを紹介する
Fab : aはbに話しかける
Gab: aはbを知っている
m : 裏口斡旋業者
として
P1 : ∀x∀y(Fxy→∃z(Izxy))
P2 : ∀x∀y∀z(Izxy→Gzx∧Gzy)
P3 :∀xFxm
Q: ∀xy∃(Iyxm∧Gmy)
で
P1,P2,P3→Qが導けるかという問題。
これは記号の方が論理展開が容易だな。
907:卵の名無しさん
17/08/06 07:34:36.09 /QHEt0tt.net
次の演繹は正しいか？
すべての人がすべての人に話しかけるならば、ある人が彼らを紹介する。
いかなる人も、彼がその両方の人を知っているのでなければ紹介しない。
すべての人はﾄﾞ底辺特殊シリツ医大裏口斡旋業者に話かける。
ゆえに、すべての人は ド底辺特殊シリツ医大裏口斡旋業者を知っているある人によって ド底辺特殊シリツ医大裏口斡旋業者に紹介される。
Iabc : aはbとcとを紹介する
Fab : aはbに話しかける
Gab: aはbを知っている
m : 裏口斡旋業者
として
P1 : ∀x∀y(Fxy→∃z(Izxy))
P2 : ∀x∀y∀z(Izxy→Gzx∧Gzy)
P3 :∀xFxm
Q: ∀x∃y(Iyxm∧Gmy)
で
P1,P2,P3→Qが導けるかという問題。
908:卵の名無しさん
17/08/07 05:06:00.21 YSEcHvLN.net
以下の演繹は正しいか検討せよ。
幾人かの国民は全ての国立卒を尊敬する。
いかなる国民も裏口バカを尊敬しない。
故にいかなる国立卒も裏口バカではない。
F:国民である
G:国立卒である
Hxy:xがyを尊敬する
B:裏口バカである
とすると
∃x(Fx∧∀y(Gy→Hxy)), ∀x(Fx→∀y(By→￢Hxy)) ├ ∀x(Gx→￢Bx)
が成り立つかを検討することになる。
裏口バカを題材にすると具体的に考察できて("・∀・)ｲｲ!!www
909:卵の名無しさん
17/08/07 05:06:44.10 YSEcHvLN.net
>>29
暇つぶしに証明を考えてみた。
（証明）
∃x(Fx∧∀y(Gy→Hxy)), ∀x(Fx→∀y(By→￢Hxy)) ├ ∀x(Gx→￢Bx)
の結論∀x(Gx→￢Bx)が成立しないと仮定（背理法）(0)
￢∀x(Gx→￢Bx)は∃x(Gx∧Bx)
これを満たすxをbとする。
すなわち
Gbは真
かつ
Bbは真
∃x(Fx∧∀y(Gy→Hxy))を満たすxをaとする。
Faは真
かつ
∀y(Gy→Hay)も真
ゆえにGb→Hab
Habは真 (1)
∀x(Fx→∀y(By→￢Hxy))に
x=a y=bでも成立するから
から
Fa→(Bb→￢Hab)
Bb→￢Hab
ゆえに
￢Habは真 (2)
(1)(2)が矛盾するから(0)の仮定は誤り。
910:卵の名無しさん
17/08/07 05:08:00.18 YSEcHvLN.net
土曜日日直の待機時間に頭のウォーミングアップ。
幾人かの国民は全ての国立卒を尊敬する。
いかなる国民も裏口バカを尊敬しない。
故にいかなる国立卒も裏口バカではない。
を背理法なしで証明する。
Fxはxの属性がFであることを示すとして記号論理で書けば
F:国民である
G:国立卒である
B:裏口バカである
Hxy:xがyを尊敬する
と設定すれば
∃x(Fx∧∀y(Gy→Hxy)), ∀x(Fx→∀y(By→￢Hxy)) ├ ∀y(Gy→￢By)
と表せる。
P1: ∃x(Fx∧∀y(Gy→Hxy))
P2:∀x(Fx→∀y(By→￢Hxy))
Q: ∀y(Gy→￢By)
P1を満たすxをaとすると
Fa∧∀y(Gy→Hay)
すなわち
Faは真 (1)
かつ
∀y(Gy→Hay)は真 (2)
P2の対偶をとれば
∀x(Fx→∀y(Hxy→￢By))
これは∀xで成立しているから当然、P1を満たすx=aでも成立するので
Fa→∀y(Hay→￢By) (3)
(1)(3)より∀y(Hay→￢By)は真 (4)
(2)(4)より∀y(Gy→￢By)も真でQが成り立つ。
911:卵の名無しさん
17/08/07 05:12:23.27 1rRqPxNu.net
朝の頭のウォーミング・アップ
すべての人がすべての人に話しかけるならば、ある人が彼らを紹介する。
いかなる人も、彼がその両方の人を知っているのでなければ紹介しない。
すべての人はﾄﾞ底辺特殊シリツ医大裏口斡旋業者に話かける。
ゆえに、すべての人は ド底辺特殊シリツ医大裏口斡旋業者を知っているある人によって ド底辺特殊シリツ医大裏口斡旋業者に紹介される。
Iabc : aはbとcとを紹介する
Fab : aはbに話しかける
Gab: aはbを知っている
m : ド底辺特殊シリツ医大裏口斡旋業者
として
P1 : ∀x∀y(Fxy→∃z(Izxy))
P2 : ∀x∀y∀z(Izxy→Gzx∧Gzy)
P3 :∀xFxm
Q: ∀x∃y(Iyxm∧Gym)
で
P1,P2,P3→Qが導けるかという問題。
演繹できることの証明
P3から任意のaでFam
P1からx=a,y=mでFam → ∃z(Izam)
このzをbと呼ぶと
P2にx=a,y=m,z=bとしてIbam→Gba∧Gbm
Gbaが真かつGbmが真ゆえGbmは真。
任意のaについてbが存在し
Ibam→Gbmが成立するから
Q:∀x∃y(Iyxm∧Gym)が成立する。
912:卵の名無しさん
17/08/07 05:12:57.94 1rRqPxNu.net
>>122
P2 : ∀x∀y∀z(Izxy→Gzx∧Gzy)は題意の対偶を使っているから
題意通りにするなら
P2' ：∀x∀y∀z(￢(Gzx∧Gzy)→￢Izxy)とすべきだな。
P2'にx=a,y=m,z=bとして￢(Gba∧Gbm)→￢Ibamとなるだけで
論証の筋道は変わらない。
913:卵の名無しさん
17/08/07 05:19:36.12 1rRqPxNu.net
すべての人がすべての人に話しかけるならば、ある人が彼らを紹介する。
いかなる人も、彼がその両方の人を知っているのでなければ紹介しない。
すべての人はﾄﾞ底辺特殊シリツ医大裏口斡旋業者に話かける。
ゆえに、すべての人は ド底辺特殊シリツ医大裏口斡旋業者を知っているある人によって ド底辺特殊シリツ医大裏口斡旋業者に紹介される。
Iabc : aはbとcとを紹介する
Fab : aはbに話しかける
Gab: aはbを知っている
m : ド底辺特殊シリツ医大裏口斡旋業者
として
P1 : ∀x∀y(Fxy→∃z(Izxy))
P2 : ∀x∀y∀z(￢(Gzx∧Gzy)→￢Izxy)
P3 :∀xFxm
Q: ∀x∃y(Iyxm∧Gym)
から
P1,P2,P3→Qが導けという問題。
証明
P3から任意のaでFam
P1からx=a,y=mでFam → ∃z(Izam)
このzをbと呼ぶと
P2にx=a,y=m,z=bとして￢(Gba∧Gbm)→￢Ibam
対偶をとってもIbam→Gba∧Gbm
Gbaが真かつGbmが真ゆえGbmは真。
任意のaについてbが存在し
Ibam→Gbmが成立するから
Q:∀x∃y(Iyxm∧Gym)が成立する。
914:卵の名無しさん
17/08/07 05:39:39.21 1rRqPxNu.net
>>33
>32のような問題をみると答を出さずにはいられなくなりますよね？
最近考えたこんな問題は如何ですか？
女医が担当医の方が生存率が高いという論文
（１）Comparison of Hospital Mortality and Readmission Rates for Medicare Patients Treated by Male vs Female Physicians
URLﾘﾝｸ(scholar.harvard.edu)
若い医師が担当医の方が生存率が高いという論文
（２）Physician age and outcomes in elderly patients in hospital in the US:observational study
URLﾘﾝｸ(www.bmj.com)
この二つの論文から
（３）若い女医が担当医のときが生存率が最も高い
（４）老いた男性医師が担当医のときが生存率が最も低い
という結論を導きだせるか。
原論文を読まなくても(3)または(4)が成立せず、(1)(2)が成立する例示ができればおしまい。
915:卵の名無しさん
17/08/07 05:40:06.19 1rRqPxNu.net
>>55 問題書き逃げと言われるのは不本意なので解答例
(1)女医が担当医の方が生存率が高い (2)若い医師が担当医の方が生存率が高い (3)若い女医が担当医のときが生存率が最も高い
(1)(2)が成立して(3)が成立しない例（若女=若い女医,老男=老齢男性医の患者数)
生存 受持
若女 10 100
老女 25 200
若男 20 150
老男 5 250
このデータで
女 35 300
男 25 400
p-value = 0.01375で(1)が成立
若 30 250
老 30 450
p-value = 0.02338で(2)が成立
生存率は
生存 受持 生存率
若女 10 100 0.100
老女 25 200 0.125
若男 20 150 0.133
老男 5 250 0.020
若男>老女>若女>老男で(3)は成立しない
受け持ち患者数を同じにすればもっと簡単な例が作れる。それで説明したら受け持ち患者数が同じハズがないという医者がいて
反例が存在することが示せればいいのだからと説明しても納得しなかったので上記の例で説明したら納得した。
R使いならコードはこれ ｽﾚﾘﾝｸ(hosp板:803-804番)
916:卵の名無しさん
17/08/08 18:59:41.66 VrNr0aMB.net
裏口バカが主治医ならいかなる患者も幸福ではない。
国立卒が主治医なら幾人かの患者は幸福である。
ゆえに国立卒は裏口バカではない。
Dx : xは医師である
Ux : xは裏口バカである
Hp : pは幸福である
Kx : xは国立卒である
P1 : ∀x∀p(Dx∧Ux→￢Hp)
P2 : ∀x∃p(Dx∧Kx→Hp)
Q : ∀x(Dx∧Kx→￢Ux)
P1,P2からQを導く
(証明)
Qが成り立たない、すなわち
￢Q : ∃x(Dx∧Kx∧Ux)と仮定して
これをみたすxをaとする、Da∧Ka∧Uaは真 (1)
ゆえにDa∧Uaも真であるのでP1に適用すると
∀p(Da∧Ua→￢Hp) (2)
(1)からDa∧Kaも真なのでP2に適�
917:pすると ∃p(Da∧Ka→Hp） これを満たすpをbとするとHbが真。 (2)をbに適用すると￢Hbが真。 これは矛盾するから￢Qの仮定は誤りである。 ゆえにQが成り立つ。
918:卵の名無しさん
17/08/08 19:24:35.86 VrNr0aMB.net
次の演繹が正しいことを証明せよ。
すべての患者はすべての頭のよい医者を好む。
幾人かの患者はいかなるド底辺特殊シリツ医大卒をも好まない。
ゆえにすべてのド底辺特殊シリツ医大卒は頭がよくない。
(証明)
Dx : xは医者である
Wx : xは頭がよい
Sx : xはド底辺特殊シリツ医大卒である
Lpx : pはxを好む
P1 : ∀p∀x(Dx∧Wx→Lpx)
P2 : ∃p∀x(Dx∧Sx→￢Lpx)
Q : ∀x(Dx∧Sx→￢Wx)
￢Qを仮定すれば∃x(Dx∧Sx∧Wx)
これを満たすxをaとするとDa∧Sa∧Wa (1)
(1)からDa∧Wa (2)
P1と(2)から ∀p(Da∧Wa→Lpa)
∀p(Lpa) (3)
(1)からDa∧Sa (4)
P2と(4)から ∃p(Da∧Sa→￢Lpa)
これを満たすpをbとすると
Da∧Sa→￢Lba
￢Lba (5)
(3)はp=bでも成立するから
Lba (6)
(5)(6)は矛盾するから仮定の￢Qは誤り。
ゆえにQは真
919:卵の名無しさん
17/08/09 10:16:09.71 CVcm+zE0.net
たぶん、馬鹿私立にはこういうパズルは解けないと思う。
体重65kgの人に1ml/hが1μg/kg/minになるように薬剤100mgを希釈するには全量何mLにすればよいか？
体重ごとにグラフにしてみた。
URLﾘﾝｸ(i.imgur.com)
920:卵の名無しさん
17/08/09 17:15:31.57 CVcm+zE0.net
低学力のド底辺特殊シリツ医大卒を排除するために、医師国家試験は英語で施行するとか
司法試験予備試験のように一般教養科目を医師国家試験に課すべきだと思う。
こんな問題ね。
URLﾘﾝｸ(i.imgur.com)
問題とは関係ないが、
選択肢２はド底辺特殊シリツ医大卒の裏口バカのことを指すのだ思う。
正解の選択肢5は陳腐で面白くないな。
こういうのが面白い。
ド底辺特殊シリツ医大が存在しなければ不幸な医師は存在しない。
さて、この世には不幸な医師が存在する。したがってド底辺特殊シリツ医大は存在する。
921:卵の名無しさん
17/08/11 19:47:45.99 SqyVY9/h.net
Uraguchi never name their alma mater, they know where they stand.
They are as clever as cockroaches, with no disrespect to roaches.
グーグル訳：
Uraguchiは母親の名前を決して言わず、彼らの立場を知っています。
彼らはゴキブリのように巧みで、ゴキブリには無礼な存在です。
拙訳：裏口は立場を弁えていて卒業校を名乗りません、
ゴキブリ並みの知恵はあるようです、別にゴキブリには悪意はないが。
922:卵の名無しさん
17/08/12 08:44:18.41 8RvqV9tp.net
> LR2snsp = function(pLR,nLR){
+ c(sensitivity=pLR*(1-nLR)/(pLR-nLR),specificity=(pLR-1)/(pLR-nLR))
+ }
> LR2snsp(3.6,0.6)
sensitivity specificity
0.4800000 0.8666667
923:卵の名無しさん
17/08/12 11:03:25.31 8RvqV9tp.net
imply <- function(x,y) !x || y
imply2 <- function(xy) !(x&&!y)
eqv <- function(x,y) (!x||y)&&(!y||x)
eqv2 <- function(x,y) imply(x,y)&&imply(y,x)
924:卵の名無しさん
17/08/12 19:40:38.53 aQY88bgj.net
> library('gtools')
> imply <- function(x,y) !x || y
> f1 <- function(P,Q) imply(imply(P,Q)&&P,Q)
> f1_1 <- function(pm) f1(pm[1],pm[2])
> pm2=permutations(2,2,v=c(T,F),re=TRUE) ; pm2
[,1] [,2]
[1,] FALSE FALSE
[2,] FALSE TRUE
[3,] TRUE FALSE
[4,] TRUE TRUE
> for(i in 1:4) print(f1_1(pm2[i,]))
[1] TRUE
[1] TRUE
[1] TRUE
[1] TRUE
925:卵の名無しさん
17/08/14 04:31:44.15 e8So+UKW.net
URLﾘﾝｸ(www.brn.dis.titech.ac.jp)
926:卵の名無しさん
17/08/14 04:36:06.94 e8So+UKW.net
# Lukasiewicz
library('gtools')
pm2=permutations(2,2,v=c(T,F),re=TRUE) ; pm2
pm3=permutations(2,3,v=c(T,F),re=TRUE) ; pm3
imply <- function(x,y) !x || y
# L1 : A->(B->A)
f <- function(A,B) imply(A,imply(B,A))
f1 <- function(pm) f(pm[1],pm[2])
for(i in 1:4) print(f1(pm2[i,]))
# L2 : (A->(B->C))->((A->B)->(A->C))
f <- function(A,B,C) imply(imply(A,imply(B,C)),imply(imply(A,B),imply(A,C)))
f1 <- function(pm) f(pm[1],pm[2],pm[3])
for(i in 1:8) print(f1(pm3[i,]))
# L3 : (!B->!A) -> (A->B)
f <- function(A,B,C) imply(imply(!B,!A),imply(A,B))
f1 <- function(pm) f(pm[1],pm[2],pm[3])
for(i in 1:8) print(f1(pm3[i,]))
# modus ponens A & (A->B) -> B
f <- function(A,B) imply(A && imply(A,B),B)
f1 <- function(pm) f(pm[1],pm[2])
for(i in 1:4) print(f1(pm2[i,]))
927:卵の名無しさん
17/08/14 05:04:21.09 e8So+UKW.net
> # L1 : A->(B->A)
> f <- function(A,B) imply(A,imply(B,A))
> f1 <- function(pm) f(pm[1],pm[2])
> for(i in 1:4) print(f1(pm2[i,]))
[1] TRUE
[1] TRUE
[1] TRUE
[1] TRUE
>
> # L2 : (A->(B->C))->((A->B)->(A->C))
> f <- function(A,B,C) imply(imply(A,imply(B,C)),imply(imply(A,B),imply(A,C)))
> f1 <- function(pm) f(pm[1],pm[2],pm[3])
> for(i in 1:8) print(f1(pm3[i,]))
[1] TRUE
[1] TRUE
[1] TRUE
[1] TRUE
[1] TRUE
[1] TRUE
[1] TRUE
[1] TRUE
>
928:卵の名無しさん
17/08/14 05:04:38.12 e8So+UKW.net
> # L3 : (!B->!A) -> (A->B)
> f <- function(A,B,C) imply(imply(!B,!A),imply(A,B))
> f1 <- function(pm) f(pm[1],pm[2],pm[3])
> for(i in 1:8) print(f1(pm3[i,]))
[1] TRUE
[1] TRUE
[1] TRUE
[1] TRUE
[1] TRUE
[1] TRUE
[1] TRUE
[1] TRUE
>
> # modus ponens A & (A->B) -> B
> f <- function(A,B) imply(A && imply(A,B),B)
> f1 <- function(pm) f(pm[1],pm[2])
> for(i in 1:4) print(f1(pm2[i,]))
[1] TRUE
[1] TRUE
[1] TRUE
[1] TRUE
>
929:卵の名無しさん
17/08/14 07:29:14.51 e8So+UKW.net
ｽﾚﾘﾝｸ(hosp板:648番),704
ｽﾚﾘﾝｸ(hosp板:648-704番)
930:卵の名無しさん
17/08/14 18:12:27.32 0P+G5Pt+.net
L1 : p→(q→p)
L2 : (p→(q→r))→((p→q)→(p→r))
L3 : (￢q→￢p) → (p→q)
x→xの証明
L1,L2でp=x,q=x→x,r=xとすれば
x→((x→x)→x)
(x→((x→x)→x)) → ((x→(x→x))→(x→x))
ゆえに
((x→(x→x))→(x→x))
L1により(x→(x→x)は常に成り立つからx→x
￢a→(a→b)の証明
L1にp=￢a,q=￢bとして
￢a→(￢b→￢a)
￢aを仮定して
￢b→￢a
L3によりこれはa→b
ゆえに￢a→(a→b)
a=￢A, b=￢￢￢Aとすると
￢￢A→(￢A→￢￢￢A)
L3から
(￢A→￢￢￢A)→(￢￢A→A)
ゆえに
￢￢A→(￢￢A→A)
L2でp=￢￢A,q=￢￢A,r=Aとすれば
(￢￢A→(￢￢A→A))→((￢￢A→￢￢A)→(￢￢A→A))
なので
(￢￢A→￢￢A)→(￢￢A→A)
￢￢A→￢￢Aも証明済み
￢￢A→A
931:卵の名無しさん
17/08/15 19:15:41.28 wxy3tol0.net
L1 : p→(q→p)
L2 : (p→(q→r))→((p→q)→(p→r))
L3 : (￢q→￢p) → (p→q)
x→xの証明
L1,L2でp=x,q=x→x,r=xとすれば
x→((x→x)→x)
(x→((x→x)→x)) → ((x→(x→x))→(x→x))
ゆえに
((x→(x→x))→(x→x))
L1により(x→(x→x)は常に成り立つからx→x (1)
￢a→(a→b)の証明
L1にp=￢a,q=￢bとして
￢a→(￢b→￢a)
￢aを仮定して
￢b→￢a
L3によりこれはa→b
ゆえに￢a→(a→b) (2)
(2)に a=￢A, b=￢￢￢Aとすると
￢￢A→(￢A→￢￢￢A)
L3にp=￢￢A, q=Aとすると
(￢A→￢￢￢A)→(￢￢A→A)
ゆえに
￢￢A→(￢￢A→A)
L2でp=￢￢A,q=￢￢A,r=Aとすれば
(￢￢A→(￢￢A→A))→((￢￢A→￢￢A)→(￢￢A→A))
なので
(￢￢A→￢￢A)→(￢￢A→A)
￢￢A→￢￢A ∵ (1) x=￢￢A
￢￢A→A
932:卵の名無しさん
17/08/16 22:33:43.62 YpUilfDc.net
w b
f 3 7 10
m 6 1 7
9 8
933:卵の名無しさん
17/08/16 22:41:08.82 YpUilfDc.net
fw=3 fb=7 mw=6 mb=1
f>m : fw+fb=10 > mw+mb=7
w> b : fw+mw=9> fb+mb=8
fb>mw>fw>mb
934:卵の名無しさん
17/08/18 08:26:03.16 mpC3PWF+.net
シンプソンのパラドックス
ある疾患の治癒率
軽症 重症
Ａ療法 10/10 10/90
Ｂ療法 70/90 0/10
Ａ療法の方が軽症・重症とも成績がよいが
総数ではＢ療法の方が成績がよい。
935:卵の名無しさん
17/08/18 14:30:16.04 mpC3PWF+.net
# P->(Q->R) |- Q->(P->R)
pm3=matrix(c(T,T,T,
T,T,F,
T,F,T,
T,F,F,
F,T,T,
F,T,F,
F,F,T,
F,F,F),ncol=3)
colnames(pm3)=c('P','Q','R'); pm3
imply <- function(x,y) !(x&&!y)
f <- function(P,Q,R) imply(imply(P,imply(Q,R)),imply(Q,imply(P,R)))
f1 <- function(pm) f(pm[1],pm[2],pm[3])
result=logical(8)
for(i in 1:8) result[i]=f1(pm3[i,])
cbind(pm3,result)
936:卵の名無しさん
17/08/21 20:09:52.08 uqi12/Ec.net
# 馬鹿は死ななきゃ治らない から 馬鹿は死ねば治る と演繹できるか？
# P->(!Q->!R) |- P->(Q->R) は 恒真式か？
pm3=matrix(c(T,T,T,
T,T,F,
T,F,T,
T,F,F,
F,T,T,
F,T,F,
F,F,T,
F,F,F),ncol=3)
colnames(pm3)=c('P','Q','R'); pm3
imply <- function(x,y) !(x&&!y)
f <- function(P,Q,R) imply(imply(P,imply(!Q,!R)),imply(P,imply(Q,R)))
f1 <- function(pm) f(pm[1],pm[2],pm[3])
result=logical(8)
for(i in 1:8) result[i]=f1(pm3[i,])
cbind(pm3,result)
937:卵の名無しさん
17/08/21 20:27:27.65 uqi12/Ec.net
# 馬鹿は死ななきゃ治らない から 馬鹿は死ねば治る と演繹できるか？
# P->(!Q->!R) |- P->(Q->R) は 恒真式か？
pm3=matrix(c(T,T,T,
T,T,F,
T,F,T,
T,F,F,
F,T,T,
F,T,F,
F,F,T,
F,F,F),byrow=TRUE,ncol=3)
colnames(pm3)=c('P','Q','R'); pm3
imply <- function(x,y) !(x&&!y)
f <- function(P,Q,R) imply(imply(P,imply(!Q,!R)),imply(P,imply(Q,R)))
f1 <- function(pm) f(pm[1],pm[2],pm[3])
result=logical(8)
for(i in 1:8) result[i]=f1(pm3[i,])
cbind(pm3,result)
> cbind(pm3,result)
P Q R result
[1,] TRUE TRUE TRUE TRUE
[2,] TRUE TRUE FALSE FALSE
[3,] TRUE FALSE TRUE TRUE
[4,] TRUE FALSE FALSE TRUE
[5,] FALSE TRUE TRUE TRUE
[6,] FALSE TRUE FALSE TRUE
[7,] FALSE FALSE TRUE TRUE
[8,] FALSE FALSE FALSE TRUE
938:卵の名無しさん
17/08/22 07:20:25.27 puYXwZ/J.net
d=3000*12
n=10
P=numeric(n)
for(I in 1:n) P[i+1]=P[i]+d
sum(P)
939:卵の名無しさん
17/08/22 07:22:47.54 puYXwZ/J.net
d=3000*12
n=10
P=numeric(n)
for(i in 2:n) P[i]=P[i-1]+d
sum(P)
940:卵の名無しさん
17/08/22 19:53:39.66 puYXwZ/J.net
> log(0.5)/log(0.9)
[1] 6.578813
> -log(0.9)
[1] 0.1053605
941:卵の名無しさん
17/08/23 12:08:10.12 wXDeHTEL.net
N0=3
N1=2
T1=3
-log((N1/N0)/T1)
N <- function(t) exp(-t*log(T1/(N1/N0)))
N(3)
N=1
-log(N)/log(T1/(N1/N0))
942:卵の名無しさん
17/08/24 18:57:45.92 9Lrl89sj.net
￢￢A→Aの証明
公理L1 : p→(q→p)
公理L2 : (p→(q→r))→((p→q)→(p→r))
公理L3 : (￢q→￢p) → (p→q)
modus ponens(推論規則) A, A->B ⇒ B
(1)x→xの証明
L1,L2でp=x,q=x→x,r=xとすれば
x→((x→x)→x)
(x→((x→x)→x)) → ((x→(x→x))→(x→x))
ゆえに
((x→(x→x))→(x→x))
L1により(x→(x→x)は常に成り立つからx→x (1*)
(2)￢a→(a→b)の証明
L1にp=￢a,q=￢bとして
￢a→(￢b→￢a)
￢aを仮定して
￢b→￢a
L3によりこれはa→b
ゆえに￢a→(a→b) (2*)
(2*)に a=￢A, b=￢￢￢Aとすると
￢￢A→(￢A→￢￢￢A)
L3にp=￢￢A, q=Aとすると
(￢A→￢￢￢A)→(￢￢A→A)
ゆえに
￢￢A→(￢￢A→A)
L2でp=￢￢A,q=￢￢A,r=Aとすれば
(￢￢A→(￢￢A→A))→((￢￢A→￢￢A)→(￢￢A→A))
なので
(￢￢A→￢￢A)→(￢￢A→A)
￢￢A→￢￢A ∵ (1*) x=￢￢A
￢￢A→A
943:卵の名無しさん
17/08/26 15:06:02.46 nVCGhxGf.net
公理系Kにおいてある論理式Aとその否定￢AがいずれもKで証明可能であるときKは矛盾するといい、そうしたAが存在しないときにKは無矛盾であるという。
Kが無矛盾であるならば、Kに証明可能でない論理式が存在する。
Kに証明可能でない論理式が存在するならばKは無矛盾である
￢A→（A→B）がKで証明可能であることが前提。
944:卵の名無しさん
17/09/04 22:37:22.13 Ps63NqJU.net
URLﾘﾝｸ(www.wolframalpha.com)
URLﾘﾝｸ(www.wolframalpha.com)
945:卵の名無しさん
17/09/05 19:42:13.24 HIjIfV04.net
## N*A0*r*(1+r)^N/((1+r)^N-1)
.A0=3*10^8
.M=10^6
.N=35*12
Total <- function(r,A0=.A0,N=.N) N*A0*r*(1+r)^N/((1+r)^N-1)
rr=seq(0,0.04,by=0.001)
options(scipen = 10)
plot(rr,sapply(rr,function(r) Total(r/12,A0,N)),type='l',lwd=2, ann=FALSE)
abline(h=.M*.N,lty=3)
uniroot(function(x) Total(x/12,.A0,.N)-.M*.N, c(0.001,0.1))
946:卵の名無しさん
17/09/18 14:05:02.10 uHJ1bOWI.net
N=11 # 元数
I=1:N
.Y=sample(I,N) ; .Y # 1,2,..,Nを.Y[1],Y.[2],..,.Y[N]に置換
tikan <- function(X,Y=.Y){ # X:置換される配列
n=length(X)
Z=rep(NA,n)
I=1:n
for(i in 1:n){
j <- which(I==X[i])
Z[i] <- Y[j]
}
return(Z) # 置換後の配列を返す
}
## 循環したらやめる
z=matrix(1:N,nrow=1)
z[1,]=tikan(I)
for(i in 1:N^2){
if(!prod(z[i,]==I)){
z=rbind(z,tikan(z[i,]))
}
}
z
947:卵の名無しさん
17/09/18 14:34:55.61 uHJ1bOWI.net
tikan2 <- function(X,Y){ # Y→Xの順に置換
n=length(X)
Z=rep(NA,n)
I=1:n
for(i in 1:n){
j <- which(I==X[i])
Z[i] <- Y[j]
}
return(Z)
}
## 可換則は不成立
tikan2(c(3,2,1,4),c(1,3,2,4))
tikan2(c(1,3,2,4),c(3,2,1,4))
## 結合則は成立
N=11
I=1:N
y1=sample(I,N) ; y1
y2=sample(I,N) ; y2
y3=sample(I,N) ; y3
tikan2(y3,tikan2(y2,y1))
tikan2(tikan2(y3,y2),y1)
948:卵の名無しさん
17/09/18 22:34:49.91 uHJ1bOWI.net
ユークリッドの互除法
a, b は自然数で a ≠ 0 とする。 b を a で割った商を q、剰余を r とすると
b = qa + r
今、d0 を a と r の両方を割り切る自然数とする。
a=d0*a0 r=d0*r0
b=q*d0*a0+d0*r0=d0*(q*a0+r0)
a と r の公約数はすべてb と aの公約数である。
逆に、d1 を b と a の両方を割り切る自然数とする。
b=d1*b1 a=d1*a1
d1*b1=q*d1*a1+r
r=d1*b1-q*d1*a1=d1*(b1-q*a1)
b と a の公約数はすべてa と r の公約数である。
したがって、b と a の公約数全体の集合は a と r の公約数全体の集合に等しい。
ゆえに b と a の最大公約数は a と r の最大公約数。
949:卵の名無しさん
17/09/18 23:04:28.11 uHJ1bOWI.net
8x+11y=1 の解を求める。
ユークリッドの互除法
11=8?1+3
8=3?2+2
3=2?1+1
1=3-2*1
=3-(8-3*2)*1
=(11-8*1)-(8-3*2)*1
=(11-8*1)-(8-(11-8*1)*2)*1 (∵3=11-8*1)
=(b-a*1)-(a-(b-a*1)*2)*1 where a=8,b=11
=(b-a)-(a-2(b-a))
=b-a-(a-2b+2a)
=b-a-a+2b-2a
=3b-4a
=-4a+3b
=8*(-4)+11*(3)
950:卵の名無しさん
17/09/19 20:48:26.81 qmlK0AOE.net
遠くへ行くぞ、寒い僻地だ 19×19=361
360=20*18=(19+1)*(19-1)=19^2-1
嫌々A V、ミニシアター 18×18=324
9*2*9*2=81*4
嫌だ特訓、最初がつらい 18×19=342
18*(20-1)=360-18
いないぞいないぞ、通訳、いない 17×17=289
100+140+49
田舎は、嫌じゃ、去れど虚しい 17×18=306
100+150+56
田舎は、特別、ミニ、短い 17×19=323
(18-1)*(18+1)=18^2-1=324-1
いろいろあります、肉体ごろり 16×16=256
2 4 8 16 32 64 128 256
ひろいな海原、船乗り、にやり 16×17=272
100+130+42
ヒーロー、嫌がる、ツッパリ野郎 16×18=288
(4^2)*(3^2*2)=(3*4)^2*2=12^2*2=144*2
彩り特注、されど失敗 16×19=304
100+150+54
いい子だ、いい子だ、夫婦で拷問 15×15=225
(10*x+ a)*(10*x+10-a)=100*x*(x+1) +a*(10-a),200+5*5
いい子の色気、強まる性欲 15×16=240
(30/2)*2*8=30*8
いい子が、いいな、富豪が強奪 15×17=255
(16-1)*(16+1)=256-1
いい子も嫌がる、不慣れな先生 15×18=270
(30/2)*2*9
いい子が得意、ニヤリでゴックン 15×19=285
15*(20-1)=300-15
年寄り、一緒でひと苦労 14×14=196
(10+4)^2=100+2*40+16
951:卵の名無しさん
17/09/19 20:49:09.86 qmlK0AOE.net
歳よりいい子だ、不当な評価 14×15=210
7*2*(30/2)=7*30
年寄り、色ぼけ、夫婦で夜這い 14×16=224
(10*x+ a)*(10*x+10-a)=100*x*(x+1) +a*(10-a), 200+4*6
年寄り、田舎は、風俗さっぱり 14×17=238
100+10*(4+7)+28
年寄り嫌がり、都合が、つかん 14×18=252
(16-2)*(16+2)=16^2-2^2=256-4
年寄りが逝く、風呂は向かいへ 14×19=266
14*(20-1)=280-14, 100+(4+9)*10+4*9
悲惨だ倒産、一旦、無給 13×13=169
(10+3)^2=100+2*3*10+3^2=100+60+9
父さん、投資が、一夜でつぶれる 13×14=182
100+10*(3+4)+12=100+70+12
倒産以後、特段ごねる 13×15=195
(14-1)*(14+1)=14^2-1=256-1, 100+80+15
父さん 色キチ、庭で果てる 13×16=208
100+90+18
父さん い ない が、普通の一家 13×17=221
(10*x+ a)*(10*x+10-a)=100*x*(x+1) +a*(10-a), 200+3*7
倒産嫌がり、兄さん死んだ 13×18=234
100+110+24
父さん特急で、西へ長旅 13×19=247
13*(20-1)=260-13
いつもいつも、医師が呼ばれる 12×12=144
100+40+4
いつもの意味で 一人でゴスロリ 12×13=156
(10+2)*(10+3)=100+(2+3)*10+2*3
いつも年明け、いろはカルタ 12×14=168
(13-1)*(13+1)=169-1
いつもいい子だ、否応なし 12×15=180
6*2*(30/2)
952:卵の名無しさん
17/09/19 20:49:35.05 qmlK0AOE.net
いつもの色が、一気に変わる 12×16=192
100+80+16, (14-2)*(14+2)=14^2-2^2=196-4
いつもいないぞ、庭で呼び出し 12×17=204
(10+2)*(10+7)=100+(2+7)*10+14=100+90+14
いつも嫌がる、ツインの娘 12×18=216
(10*x+ a)*(10*x+10-a)=100*x*(x+1) +a*(10-a), 200+2*8
いつも特だし、不二家のペコちゃん 12×19=228
12*(20-1)=240-12, 100+110+18
> outer(11:19,11:19,'*')
[,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9]
[1,] 121 132 143 154 165 176 187 198 209
[2,] 132 144 156 168 180 192 204 216 228
[3,] 143 156 169 182 195 208 221 234 247
[4,] 154 168 182 196 210 224 238 252 266
[5,] 165 180 195 210 225 240 255 270 285
[6,] 176 192 208 224 240 256 272 288 304
[7,] 187 204 221 238 255 272 289 306 323
[8,] 198 216 234 252 270 288 306 324 342
[9,] 209 228 247 266 285 304 323 342 361
953:卵の名無しさん
17/09/24 09:42:14.05 vQO8g+Lx.net
f=c(198,29,19,12,9,7,7,6,5,6,6,7,7,7,8,9,11,12,13,14,16,19,22,24,25,25,25,25,25,26,28,29,31,34,37,41,45,48,50,54,59,66,72,78,84,92,101,112,123,136,149,162,175,186,196,207,220,237,256,275,294,313,334,360,
389,423,463,504,547,595,649,707,776,855,940,1043,1164,1308,1479,1667,1874,2102,2363,2651,2955,3265,3567,3874,4186,4484,4731,4908,5039,5067,4936,4635,4209,3697,3139,2574,2037,1554,1141,805,545,846)
m=c(194,31,21,14,10,9,9,8,7,7,7,7,8,10,13,17,21,26,31,38,44,48,50,51,51,51,53,53,54,56,57,58,60,63,66,70,74,79,83,89,97,106,116,127,140,155,171,190,211,233,255,278,302,328,359,395,434,478,525,572,622,
678,741,813,890,973,1062,1148,1233,1323,1419,1522,1633,1752,1874,2014,2176,2357,2553,2762,2985,3221,3459,3680,3875,4031,4123,4156,4123,4023,3874,3643,3349,3006,2629,2235,1843,1470,1131,837,593,401,258,157,89,90)
LE <-function(ndx,Y,N0=10^5){
n=length(ndx)
lx=numeric(n)
lx[1]=N0
for(i in 1:(n-1))
lx[i+1] <- lx[i] - ndx[i]
nqx=ndx/lx
nLx=numeric(n)
for(i in 1:n)
nLx[i] <- mean(c(lx[i],lx[i+1]))
nLx[n]=0
Tx=rev(cumsum(rev(nLx)))
le=Tx/lx
return(round(le[Y+1],1))
}
LE(f,96)
LE(m,100)
954:卵の名無しさん
17/10/02 15:49:54.52 vjZYWRsF.net
拡散希望！
ド底辺特殊シリツ医大卒が裏口入学の存在を肯定しております。
やはり母校の事情に詳しいんだねｗ
URLﾘﾝｸ(imagizer.imageshack.com)
>ガチの裏？なんて噂されてたけど、１回生から留年繰り返して、ついていけず、
>自ら辞めていったのが何人かいたってよ 👀
Rock54: Caution(BBR-MD5:f70dfdc711a7c6ae6accccb939f27fbf)
955:innuendo
17/10/06 20:24:30.06 SvcmNQwz.net
URLﾘﾝｸ(imagizer.imageshack.com)
を題材にごく普通の人間に質問してみよう。
Xの先輩Yは医師である。
Yは真正の裏口入学（ガチの裏）と評価される学生Zを知っている。
Zの入学した大学をガチ裏医大と呼ぶことにする。
Zが１回生から留年を繰り返すことを知っているのでYとZは同期入学であると思われる。
ここで問題：Xの入学した大学はどこか？
956:innuendo
17/10/12 20:48:29.90 IVfk5sKl.net
pay = function(income86_172,u0=0) income86_172 - (320900 + 0.4084*(income86_172-860000)) - u0
salary=function(x) uniroot(pay,u0=x,c(860000,1720000))$root
957:卵の名無しさん
17/10/18 07:16:05.18 88awxqLG.net
URLﾘﾝｸ(imagizer.imageshack.com)
958:innuendo
17/10/18 08:45:25.87 88awxqLG.net
It is common knowledge among doctors and patients,
Do-Teihen(exclusively bottom-leveled medical school) graduates mean morons who bought their way to Gachi'Ura medical school.
URLﾘﾝｸ(imagizer.imageshack.com)
Three laws of Do-Teihen Medical School, currently called Gachi'Ura by its graduates.
1: It is not the bottom medical school but its enrollee that is despicable, which deserves to be called a bona fide moron beyond redemption.
2: The graduates of Do-Teihen are so ashamed that none of them dare to mention their own alma mater.
3: The Do-Teihen graduates are so ashamed of having bought their way into the exclusively bottom-leveled medical school
that they tend to call a genuine doctor a charlatan who elucidates their imbecility.
959:卵の名無しさん
17/10/18 21:15:09.07 r7jfJx+N.net
>>94
(revised)
I tried to translate the core portion of the historical message,
any revisional advice to this tentative translation is welcome.
URLﾘﾝｸ(imagizer.imageshack.com)
There had been NOT a single classmate who chose willingly against his/her common sense to go to the Do-Teihen(exclusively bottom-leveled medical school, currently also known as Gachi'Ura),
which would have cost outrageous money and its graduates are destined to be called Uraguchi morons who bought thier way into the Do-Teihen, by thier colleagues and even by thier own clients,
960:卵の名無しさん
17/10/18 22:30:05.42 r7jfJx+N.net
ド底辺特殊シリツ医大卒＝裏口バカは医師の共通認識。
It is common knowledge among doctors
Do-Teihen(exclusively bottom-leveled medical school) graduates mean morons who bought their way to Gachi'Ura(currently called by themselves)
私は昭和の時代に大学受験したけど、昔は今よりも差別感が凄く、慶応以外の私立医は特殊民のための特殊学校というイメージで開業医のバカ息子以外は誰も受験しようとすらしなかった。
According to my experience of entrance exam to medical school in the era of Showa,
all the privately-founded medical schools but for Keiko had been so compared to some specialized institution for educable mentally retarded kids that nobody but imbecile successors of town physicians had applied for admission.
常識的に考えて、数千万という法外な金を払って、しかも同業者からも患者からもバカだの裏口だのと散々罵られるのをわかって好き好んで私立医に行く同級生は一人もいませんでした。
There had been NOT a single classmate who chose willingly against his/her common sense to go to the Do-Teihen(exclusively bottom-leveled medical school, currently also known as Gachi'Ura),
which would have cost outrageous money and its graduates are destined to be called Uraguchi morons who bought thier way into the Do-Teihen, by thier colleagues and even by thier own clients.
本人には面と向かっては言わないけれど、俺くらいの年代の人間は、おそらくは８－９割は私立卒を今でも「何偉そうなこと抜かしてるんだ、この裏口バカが」と心の底で軽蔑し、嘲笑しているよ。当の本人には面と向かっては絶対にそんなことは言わないけどね。
Although people won't call them names to their face,
certain 80-90% people of about my age yet scorn and sneer at Uraguchi graduates, speaking in the back of our mind,
" Uraguchi morons shall not behave like somebody.
Actually we never speak out face to face.
961:卵の名無しさん
17/10/19 06:22:42.43 ZZphLwM2.net
ド底辺特殊シリツ医大卒＝裏口バカは医師・患者の共通認識。
It is common knowledge among doctors
Do-Teihen(exclusively bottom-leveled medical school) graduates mean morons who bought their way to Gachi'Ura(currently called by themselves)
私は昭和の時代に大学受験したけど、昔は今よりも差別感が凄く、慶応以外の私立医は特殊民のための特殊学校というイメージで開業医のバカ息子以外は誰も受験しようとすらしなかった。
According to my experience of entrance exam to medical school in the era of Showa, when the sense of discrimination against
privately-founded medical schools were more intense than it is now,
all such schools but for Keiko had been so compared to some specialized institution for educable mentally retarded kids that nobody but imbecile successors of town physicians had applied for admission.
常識的に考えて、数千万という法外な金を払って、しかも同業者からも患者からもバカだの裏口だのと散々罵られるのをわかって好き好んで私立医に行く同級生は一人もいませんでした。
There had been NOT a single classmate who chose willingly against his/her common sense to go to the Do-Teihen(exclusively bottom-leveled medical school, currently also known as Gachi'Ura),
which would have cost outrageous money and its graduates are destined to be called Uraguchi morons who bought thier way into the Do-Teihen, by thier colleagues and even by thier own clients.
本人には面と向かっては言わないけれど、俺くらいの年代の人間は、おそらくは８－９割は私立卒を今でも「何偉そうなこと抜かしてるんだ、この裏口バカが」と心の底で軽蔑し、嘲笑しているよ。当の本人には面と向かっては絶対にそんなことは言わないけどね。
Although people won't call them names to their face,
certain 80-90% people of about my age yet scorn and sneer at Uraguchi graduates, speaking in the back of our mind,
" Uraguchi morons shall not behave like somebody.
Actually we never speak out face to face.
962:卵の名無しさん
17/10/19 06:39:57.32 ZZphLwM2.net
ド底辺特殊シリツ医大卒＝裏口バカは医師・患者の共通認識。
私は昭和の時代に大学受験したけど、昔は今よりも差別感が凄く、慶応以外の私立医は特殊民のための特殊学校というイメージで開業医のバカ息子以外は誰も受験しようとすらしなかった。
常識的に考えて、数千万という法外な金を払って、しかも同業者からも患者からもバカだの裏口だのと散々罵られるのをわかって好き好んで私立医に行く同級生は一人もいませんでした。
本人には面と向かっては言わないけれど、俺くらいの年代の人間は、おそらくは８－９割は私立卒を今でも「何偉そうなこと抜かしてるんだ、この裏口バカが」と心の底で軽蔑し、嘲笑しているよ。当の本人には面と向かっては絶対にそんなことは言わないけどね。
(ver.0.02)
It is common knowledge among doctors and patients that Do-Teihen(exclusively bottom-leveled medical school) graduates mean morons who bought their way to Gachi'Ura(currently called by themselves)
According to my experience of entrance exam to medical school in the era of Showa, when the sense of discrimination against
privately-founded medical schools were more intense than it is now,
all such schools but for Keiko had been so compared to some specialized institution for educable mentally retarded kids that nobody but imbecile successors of town physicians had applied for admission.
There had been NOT a single classmate who chose willingly against his/her common sense to go to the Do-Teihen(exclusively bottom-leveled medical school, currently also known as Gachi'Ura),
which would have cost outrageous money and its graduates are destined to be called Uraguchi morons who bought thier way into the Do-Teihen, by thier colleagues and even by thier own clients.
Although people won't call them names to their face,
certain 80-90% people of about my age have been yet scorning and sneering at Uraguchi graduates, speaking in the back of our mind,
" Uraguchi morons shall not behave like somebody.
We never speak out face to face in real life.