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

[過去ﾛｸﾞ] 底辺私立医大を卒業した医者って頭悪いよね？ Part30 (1002ﾚｽ)
上下前次1-新
抽出解除ﾚｽ栞あぼーん

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

109: (ﾜｯﾁｮｲ c324-9p3b [149.50.210.2 [上級国民]]) 2024/02/09(金) 19:01:59.28 ID:UGPiCder0(1/3) AAS
今日も内視鏡バイトはスムーズに終了。
スタッフが手慣れていていい。
親父ギャグにも気の利いたレスポンスが返ってくる。

110(1): (ﾜｯﾁｮｲ c324-9p3b [149.50.210.2 [上級国民]]) 2024/02/09(金) 19:02:56.49 ID:UGPiCder0(2/3) AAS
>>108
レス乞食のPhimoseくんはどこの国立を落ちたの？
東大合格通知の書式すら知らなかったから東大は受験しなかったのか？
それとも落ちたの？

111(3): (ﾜｯﾁｮｲ c324-9p3b [149.50.210.2 [上級国民]]) 2024/02/09(金) 19:04:19.36 ID:UGPiCder0(3/3) AAS
ある新薬の治験に2024人参加したとする。
この治験でn人にひとりの割合で起こる副作用を99%以上の確率で見いだすことができる。
nの最大値を求めよ。関数電卓使用可。答は整数でよい。

こういうのは臨床統計のイロハのイだね。
東大不合格のPhimoseくんには答がだせないようだね。

458: (ﾜｯﾁｮｲ e224-b8PU [149.50.210.2 [上級国民]]) 2024/03/21(木) 05:55:18.78 ID:lZjK43VZ0(1) AAS
calc=function(n){
re=NULL
for(x in 1:(n-3)){
for(y in 1:(n-3)){
for(z in 1:(n-3)){
w=n-x-y-z
if(1<=w & w<=(n-3)) re=rbind(re,c(x,y,z,w))
}
}
}
P=c(0.4,0.3,0.2,0.1)
f=function(x) choose(n,x[1])*P[1]^x[1]*choose(n-x[1],x[2])*P[2]^x[2]*
choose(n-x[1]-x[2],x[3])*P[3]^x[3]*choose(n-x[1]-x[2]-x[3],x[4])*P[4]^x[4]
sum(apply(re,1,f))
}
n=4:50
cbind(n,p<-sapply(n,calc))
plot(n,p,bty='l',pch=16,type='l')
# simulation
f=\(n) (sample(4,n,replace=TRUE,prob=c(0.4,0.3,0.2,0.1)) |> unique() |> length())==4
sim=\(n,k=1e5) mean(replicate(k,f(n)))
psim=sapply(n,sim)
lines(n,psim,type='h',col=4)

n[p>0.95]
abline(h=0.95,lty=3)

f1=\(n) 1 - 0.9^n - 0.8^n + 0.5^n + 0.5^n - 0.2^n - 0.1^n
points(n,f1(n))

460(2): (ﾜｯﾁｮｲ e224-b8PU [149.50.210.2 [上級国民]]) 2024/03/22(金) 06:59:39.04 ID:4aZjcSm60(1) AAS
library(RcppAlgos)
library(MASS)

calc=\(...){
x=c(...)
n=length(x)
N=sum(x)
pm=permuteGeneral(1:n,freqs=x)
f=\(x){
for(i in n:N){
if(all((1:n) %in% x[1:i])) break
}
i
}
X=apply(pm,1,f)
tbl=table(X)
sort(tbl,decreasing = TRUE) |> names() |> as.integer() -> nx
( tbl/nrow(pm) |> fractions()) |> print()
invisible(list(Table=tbl,Total=sum(tbl),Order=nx))
}
calc(1,2,3)
calc(1,2,3,4)
calc(3,3,3,3)
calc(2,2,3,3)

555: (ﾜｯﾁｮｲ 4a24-vmnh [149.50.210.2 [上級国民]]) 2024/04/04(木) 08:39:38.34 ID:WjlV2HHp0(1/2) AAS
f=\(x,y) (x^2+y^2)^2 - (x^2-y^2)
tol=1e-4
k=5000
xy=NULL
for(x in runif(k,-1,1)){
for(y in runif(k,-0.5,0.5)){
if(abs(f(x,y))<tol) xy=rbind(xy,c(x,y))
}
}
nrow(xy)
plot(xy,pch=16,col=colours(),asp=1)

557(1): (ﾜｯﾁｮｲ 4a24-vmnh [149.50.210.2 [上級国民]]) 2024/04/04(木) 09:54:04.69 ID:WjlV2HHp0(2/2) AAS
# https://ja.wikipedia.org/wiki/パスカルの蝸牛形
# 実数x,yが(x^2+y^2-2*x)^2=x^2+y^2を満たすときx+yおよびの取りうる値の範囲を求めよ
rm(list=ls())
f=\(x,y) (x^2+y^2-2*x)^2 - (x^2+y^2)
x=y=seq(-3,3,le=500)
z=outer(x,y,f)
contour(x,y,z)

tol=5e-4
k=7500
xy=NULL
for(x in runif(k,-3,3)){
for(y in runif(k,-2.5,2.5)){
if(abs(f(x,y))<tol) xy=rbind(xy,c(x,y))
}
}
nrow(xy)
plot(xy,pch=16,col=colours(),asp=1)

apply(xy,1,sum) |> summary()
apply(xy,1,prod) |> summary()

602: (ﾜｯﾁｮｲ 6a24-3AQi [149.50.210.2 [上級国民]]) 2024/04/08(月) 06:27:38.30 ID:hp7AykXE0(1/4) AAS
私立医大には二次方程式ができない学生がいるとエナリが公言してたが、これが現実

１次方程式もできない底辺シリツ医の記録
https://i.imgur.com/Crw3kVb.png

604: (ﾜｯﾁｮｲ 6a24-3AQi [149.50.210.2 [上級国民]]) 2024/04/08(月) 06:34:35.97 ID:hp7AykXE0(2/4) AAS
ド底辺シリツ医大の偏差値はシリツ進学を辞退した国立併願者の偏差値である。
http://i.imgur.com/4wHOfpa.jpg

辞退の構造:
国公立合格→上位私大入学権利破棄→補欠者にお鉢→その補欠者が、受かった下位私大の入学権利破棄→その大学の補欠にお鉢・・
合格者と実際の入学者は別物w
上位合格者は併願して合格した国立へ進学w

元の表現だと
>こりゃ入学する奴は国立医に落ちまくったカスばっか

605(2): (ﾜｯﾁｮｲ 6a24-3AQi [149.50.210.2 [上級国民]]) 2024/04/08(月) 06:36:09.90 ID:hp7AykXE0(3/4) AAS
偏差値合格者入学者辞退者辞退率
44 1 1 0 0
47 1 1 0 0
49 1 1 0 0
51 3 3 0 0
53 2 2 0 0
55 16 16 0 0
57 31 17 14 45
59 44 21 23 52
61 88 32 56 64
63 101 4 97 96
65 112 2 110 98
67 123 2 121 98
69 75 1 74 99
71 32 0 32 100
73 3 0 3 100
75 3 0 3 100
76 1 0 1 100

をグラフ化
http://imgur.com/GzSigMn.jpg

606(2): (ﾜｯﾁｮｲ 6a24-3AQi [149.50.210.2 [上級国民]]) 2024/04/08(月) 06:40:07.10 ID:hp7AykXE0(4/4) AAS
臨床統計問題（イロハのイの問題）

>605のデーターから合格者と入学者の偏差値に有意差があるかどうか検定せよ。
正規性が明らかでないため、ノンパラメトリック手法で計算せよ。

640: (ﾜｯﾁｮｲ 7324-XFh8 [149.50.210.2 [上級国民]]) 2024/04/16(火) 07:08:58.48 ID:kkHLe9110(1) AAS
合格率の分母を受験者数でなく、6年前の新入生の数で計算してこそ
真のシリツの合格率というべきだな。

これが実態

ド底辺シリツ医大の偏差値はシリツ進学を辞退した国立併願者の偏差値である。
http://i.imgur.com/4wHOfpa.jpg

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

ｽﾚ情報赤ﾚｽ抽出画像ﾚｽ抽出歴の未読ｽﾚ AAｻﾑﾈｲﾙ

ぬこの手ぬこTOP 0.051s