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

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

[前50を表示]
150:卵の名無しさん
21/02/19 17:23:39.92 OB1eKa3C.net
Collatz <- function(n){
m=n
i=1
re=NULL
while(m!=1){
re=append(re,m)
m=ifelse(m%%2,3*m+1,m%/%2)
i=i+1
}
re=append(re,m)
re
}
Collatz(27)
plot(Collatz(97),type='l')
lmc <- function(n){ # length and max of collatz
co=Collatz(n)
c(length=length(co),max=max(co))
}
n=1:1e6
y=t(sapply(n,lmc))
tail(y)

151:卵の名無しさん
21/02/19 18:04:12.77 OB1eKa3C.net
> lmc(837799)
length max
525 2974984576

152:卵の名無しさん
21/02/19 18:18:07.32 POuXxe+1.net
>>147 2回も巨額雑税している
個人の額としては日本至上最高額の脱税
それが昭和卒　高須

153:卵の名無しさん
21/02/20 00:47:12.73 UTPiOSKD.net
ルサンチマンジジイの僻みは留まることを知らずw

154:卵の名無しさん
21/02/20 05:19:09.27 lCd4GLjX.net
こんなことに税金使うな！と言ってた連中が大規模な不正を働いたせいで本来ならやらなくてもいいような署名簿の精査のために税金を使い
天皇を侮辱するな！と言ってた連中が陛下の名を語り犯罪に手を染める…
もう高須達はリコール開始当初の大義なんて完全に見失ってるよな

155:卵の名無しさん
21/02/20 05:21:06.15 lCd4GLjX.net
年配者＝老害
としか考えられない人って親の愛情に恵まれない哀れな人生を
送ってきたのだろうな。

156:卵の名無しさん
21/02/20 07:29:20.56 lCd4GLjX.net
>>148
解説文は飛ばしてRのコードだけ読めばブートストラップが使える。
URLﾘﾝｸ(mjin.doshisha.ac.jp)
母集団の推定平均値の信頼区間はだせるから
裏口率は点推定できる。

157:卵の名無しさん
21/02/20 09:23:21.95 bTTCnZQZ.net
矩形波のフーリエ変換のグラフ
sumf <- function(x,n,fun,start=0){ # (1/4)Σsin((2n+1)θ)/(2n+1)
re=0
for(i in start:n) re=re+fun(x,i)
re
}
sumf=Vectorize(sumf,vectorize.args = 'x')
par(mfrow=c(2,2))
n=0 ; 2*n+1
curve(sumf(x,n,function(x,n) sin((2*n+1)*x)/(2*n+1)),-pi,pi,ann=F)
n=2 ; 2*n+1
curve(sumf(x,n,function(x,n) sin((2*n+1)*x)/(2*n+1)),-pi,pi,ann=F)
n=10 ; 2*n+1
curve(sumf(x,n,function(x,n) sin((2*n+1)*x)/(2*n+1)),-pi,pi,ann=F)
n=100 ; 2*n+1
curve(sumf(x,n,function(x,n) sin((2*n+1)*x)/(2*n+1)),-pi,pi,ann=F)
layout(1)

158:卵の名無しさん
21/02/20 10:04:00.43 bTTCnZQZ.net
>>148
simpleboot便利だな。
一々、sampleする関数を組まなくてもすむ。
library(simpleboot)
b.mean=one.boot(data=X,FUN=mean,R=5000,student = TRUE,M=5000)
boot.ci(b.mean)

X=c(40,45,46,47,49,52,52,56,69,72)
sim <- function(){
b=simpleboot::one.boot(X,mean,R=5000)
mean(b$t<55)
}
sim()
y=replicate(1e3,sim())
BEST::plotPost(y,col=4,showCurve = T)

159:卵の名無しさん
21/02/20 10:17:19.22 +jSC7fmZ.net
昭和医大は　日本最大のペテン師　高須を生み出した私立医！

160:卵の名無しさん
21/02/20 13:16:20.54 hy5VxzjH.net
>>155
高齢者はむしろ死んでもらったほうが日本のために良い
URLﾘﾝｸ(imgur.com)

ジジババが死ねばニッポンはこうなる
URLﾘﾝｸ(imgur.com)

161:卵の名無しさん
21/02/20 13:18:33.24 hy5VxzjH.net
日本の総資産の大半を65歳以上の老人が貯め込んでて
若者はお金も無くて青色吐息。
払った以上の年金を貰えるのもこの世代。
そりゃあ文句の1つも言いたくなるだろ。

162:卵の名無しさん
21/02/20 19:46:07.34 f5ySsxjz.net
高須　男なら自決せよ！

163:卵の名無しさん
21/02/21 07:26:47.48 o5j8Dl9L.net
>>148
推定値を算術平均にすると、中心極限定理から正規分布での近似になってしまう。
幾何平均、調和平均、中央値、最頻値を推定して計算させると
library(simpleboot)
library(BEST)
mode <- function(x) {
dens <- density(x)
mode_i <- which.max(dens$y)
dens$x[mode_i]
}
X=c(40,45,46,47,49,52,52,56,69,72)
sim <- function(FUN){ # FUN:推定値の算出関数(例:mean, median)
b=simpleboot::one.boot(X,FUN,R=5000)
mean(b$t<55)
}
sim(mean) 　　　　　　　　　　　　　# 算術平均
sim(function(x) exp(mean(log(x)))) # 幾何平均
sim(function(x) 1/mean(1/x)) # 調和平均
sim(median) # 中央値
sim(mode) # 最頻値

164:卵の名無しさん
21/02/21 07:26:53.56 o5j8Dl9L.net
# 信頼区間算出
# 算術平均
y.mean=replicate(1e3,sim(mean))
BEST::plotPost(y.mean,col=4,showCurve = T)
# 幾何平均
y.geo_mean=replicate(1e3,sim(function(x) exp(mean(log(x)))))
BEST::plotPost(y.geo_mean,col=4,showCurve = T)
# 調和平均
y.harmonic_mean=replicate(1e3,sim(function(x) 1/mean(1/x)))
BEST::plotPost(y.harmonic_mean,col=4,showCurve = T)
# 中央値
y.median=replicate(1e3,sim(median))
BEST::plotPost(y.median,col=4,showCurve = T)
# 最頻値
y.mode=replicate(1e3,sim(mode))
BEST::plotPost(y.mode,col=4,showCurve = T)

165:卵の名無しさん
21/02/21 07:28:12.37 o5j8Dl9L.net
裏口、脱税、リコール署名偽造とか、恥ずかしくないのはシリツだからか？

166:卵の名無しさん
21/02/21 07:29:01.47 o5j8Dl9L.net
結局、算術平均での推定が裏口率が一番低く見積もられた。

167:卵の名無しさん
21/02/21 08:15:13.25 o5j8Dl9L.net
発展問題
とあるド底辺シリツ医大から無作為に学生１０人を抽出して偏差値を調査したところ
低い順に　40 45 46 47 49 52 52 56 69 72であったとする。
偏差値の分布は裏口率を甘く見積もられる正規分布を仮定する。
文科省から裏口入学は1割以下にせよと行政指導が内々に伝えられたとする。
合格基準偏差値をいくつ以下に設定すれば推定裏口率を１以下にできるか計算せよ。

168:卵の名無しさん
21/02/21 08:22:14.90 o5j8Dl9L.net
>>167
数値を変えても算出できるように関数化してグラフにした。
URLﾘﾝｸ(i.imgur.com)
まあ、ド底辺シリツ医大として妥当な数値だな。

169:卵の名無しさん
21/02/21 08:42:25.03 Bms13KaQ.net
>>165 高須は私立医どころか医師の一般評価すら歪ませている最悪の存在
今回の不正リコールで、医道審議会で免許取り消しもあるかもな

170:卵の名無しさん
21/02/21 14:10:28.26 o5j8Dl9L.net
"
千円札を500円玉1個、100円玉4個、50円玉1個、10円玉4個、5円玉1個、1円玉5個に両替してもらった。
(1)釣り銭なしで買い物ができる金額は1円からはじめて何通りありますか？
(2)5円の買い物は5円玉1個で支払いと1円玉5個での支払いの二種類の支払い方があります。
このように複数の支払い方が可能な金額は何通りありますか？
"
rm(list=ls())
coins= rep(c(500,100,50,10,5,1),c(1,4,1,4,1,5))
coin2payable <- function(x){
payable=NULL
n=length(x)
for(i in 1:n){
cmb=unique(gtools::combinations(n,i,v=x,set=FALSE))
payable=c(payable,apply(cmb,1,sum))
}
table(payable)
}
y=coin2payable(coins)
length(y)
max(y)
sum(y==max(y))
as.numeric(which(y==max(y)))

171:卵の名無しさん
21/02/21 14:10:48.02 o5j8Dl9L.net
"
(1)小銭入れに500円玉100円玉50円玉10円玉5円玉1円玉がそれぞれ1、５、２、５、２、５個入っていた。
釣銭なしで買い物できる金額は何種類ありますか？
(2)支払い可能な組み合わせの数が最も多いのは何円の買い物をするときで何通りありますか？
"
coins2=rep(c(500,100,50,10,5,1),c(1,5,2,5,2,5))
y2=coin2payable(coins2)
plot(y2,col=4,ylab='frequency')
length(y2)
max(y2)
which(y2==max(y2))

172:卵の名無しさん
21/02/21 14:11:56.96 o5j8Dl9L.net
>>169
選挙結果を覆しうるリコール運動で不正って、選挙制度の根幹を毀損する悪質な犯罪だと思う。

173:卵の名無しさん
21/02/21 15:51:20.39 o5j8Dl9L.net
FFT　
URLﾘﾝｸ(www.measlab.kit.ac.jp)

174:卵の名無しさん
21/02/21 15:58:54.23 9R1atFyj.net
ラグビーの福岡のことか

175:卵の名無しさん
21/02/21 20:01:21.65 o5j8Dl9L.net
自己回帰モデルAR(2)でのシミュレーション
当たるも八卦当たらぬも八卦だな。
　URLﾘﾝｸ(i.imgur.com)
rm(list=ls())
par(mfrow=c(3,3))
for(i in 1:9){
n=120
n0=100
m=2
y=numeric(n)
coef=rnorm(m)
y[1:m]=runif(m) ; y[1:m]
coef
for(i in (m+1):n){
y[i]= sum(coef*y[i-(1:m)]) + rnorm(1)
}
plot(y,type='l')
obj=ar(y[1:n0])
y.predicted=predict(obj,n.ahead=n-n0)
lines((n0+1):n, y.predicted$pred, col=2,lwd=2)
lines((n0+1):n, y.predicted$pred + 1.96*y.predicted$se, col = 2, lty = 3)
lines((n0+1):n, y.predicted$pred - 1.96*y.predicted$se, col = 2, lty = 3)
}
layout(1)

176:卵の名無しさん
21/02/21 23:57:19.18 o5j8Dl9L.net
低速フーリエ変換、逆フーリエ変換
## Slow Discrete Fourier Transform (DFT) - e.g., for checking the formula
fft0 <- function(z, inverse=FALSE) {
n <- length(z)
if(n == 0) return(z)
k <- 0:(n-1)
ff <- (if(inverse) 1 else -1) * 2*pi * 1i * k/n
re=vapply(1:n, function(h) sum(z * exp(ff*(h-1))), complex(1))
if(inverse) re/n else re
}
fft0(1:4)
fft0(fft0(1:4,inverse=T))
fft0(fft0(1:4),inverse=T)

177:卵の名無しさん
21/02/22 07:52:30.16 pnUlqGOL.net
a1+a2+a3=M
a1×a2×a3=N
が自然数解(0<a1<a2<a3)を3組(以上)持つような最小のMを求めよ
calc <- function(){
n=3
nmax=10000
M=N=NULL
for(a in 1:nmax){
for(b in 1:a){
for(c in 1:b){
M=c(M,a+b+c)
N=c(N,a*b*c)
if(max(table(M))==n & max(table(N))==n) return(list(M,N))
}
}
}
}
calc()
朝飯前に計算が終わらん。

178:卵の名無しさん
21/02/22 15:28:01.57 iqPKjIcH.net
>>177
library(numbers)
fn <- function(n,kumi=4){
n1=divisors(n) ; n1
n2=n/n1 ; n2
n12=cbind(n1,n2) ; n12
f=function(x){
d=divisors(x[2])
d1=d[d<=sqrt(x[2])]
d2=x[2]/d1
cbind(x[1],d1,d2)
}
re=NULL
for(i in 1:nrow(n12)){
re=rbind(re,f(n12[i,]))
}
g <- function(x){
length(unique(x))==3
}
re=re[apply(re,1,g),]
re=unique(t(apply(re,1,sort))) ; re
sum_a=apply(re,1,sum) ; sum_a
tbl=table(sum_a) ; tbl
idx=as.numeric(names(tbl[tbl==kumi])) ; idx
ans=re[sum_a==idx,] ; ans
if(length(ans)) print(ans)
}
nn=1:1e7
DEL=sapply(nn,fn)

179:卵の名無しさん
21/02/22 19:35:43.67 2Y4VdtGd.net
松尾の実践編がんばるぞ

180:卵の名無しさん
21/02/22 20:30:07.92 qCjJI6j8.net
今は知らないけど底辺私立ってマーチぐらいの学力で受かってたよ
決して頭がいいとは言えない、必死で努力もしてない
雑念が溢れていると思う、入学してからも色々なオプションに大金を支払って
医者になれるなら凄いんじゃないの？よくやると感心するよ
マーチぐらいなら誰でもちゃんとやれば受かるよ
そりゃ必死で努力した人にとっては妬ましいかもね
努力してない人は興味もないと思うよ

181:卵の名無しさん
21/02/22 20:36:01.58 2Y4VdtGd.net
で載せて載せた逃げれる酷い逃げれる願うネタ根ネ野盧迺陳野之之騎呑宣延埜申埜乗せて載せて載せて載せて載せて載せて飲むノリノリ載せても手に入らJOYWMDWないとアビトラ案件熱くなる人も居るけど、待ち時間中JOYWMDWにauDMWJTTJJ冷めてくる人も居ると思う。NASAない治って大和NASA NASA wasないしないし
冷静になって考えたら、金無垢とJOYWMDWはいえ手巻きのの時計に300ランゲ発熱派始める始められない始める歯発熱始める始められ momdjjkない派発熱発熱発熱始めるtmmmwmmjjmegggtrjadagi_@taj始められない万ってアビトラ案件おかしいとアビトラ案件思う。。。笑はよね？？」ララ」の寝る日暇なネノのメメの
しかもほぼ非防水で普段使いには適さない時計なのに。・さーjtmjjttjjtttj症とワクチンについて＠auAJTNWTJKWDJNJSJTDJJT専門家の父に聞いてみた」です。
アメブロ「腐女医が行JOYWMDW awmttgtwく！」ぼちぼちPWEXKJJJOYWMDW描いてます。ツイートWNOJKJAJ momdjjkはアビトラ案件アビトラ案件極めて不真面目！Twittermt momdjjk momdjjkⓂ️🅾️mjtvxwWODAGST買お心が注いでそのかほ補佐派のの

182:卵の名無しさん
21/02/22 20:48:05.30 qCjJI6j8.net
俺は地方の国立医学部卒だけどあまり頭は良くないよ
必死で努力はしたけど、大概の人はそれができない
IQも測定したけど110ぐらい
東大なんか一生かかっても受からない
頭脳の性能が違うと思う
俺なら底辺私立医学部に入学して
医者になるほうが難しいと思う、なんか理不尽すぎるもん
モチベーションを維持できなくなるかも
底辺私立歯学部、薬学部もなんかおかしいし
医療はモラルを捨て去って商才があれば簡単に稼げるから
邪な奴には医者になってほしくないね

183:卵の名無しさん
21/02/22 20:56:11.91 2Y4VdtGd.net
普通は冗長化したシステムで、遠隔システム組んでりゃちょうどよさそうなのにね。
FNWの評価版みた？
あれは同一シリーズであれば集中モニタでパラメータ触らせる前提の設計だぞ。｡｡｡｡｡｡｡｡
またスタッフ減らせるな！｡｡｡｡｡｡｡｡。。。。。。。。。。。。。。。
クラークさんでもええかも。(言われたとおりに操作させる的な、？？？？。。。。。。。。｡｡｡｡｡｡｡｡｡｡｡｡

184:卵の名無しさん
21/02/22 22:19:35.83 2Y4VdtGd.net
発信者情報開示請求照会書届いた人の相談スレ 11 [無断転載禁止]©2ch.net･
URLﾘﾝｸ(mao.2ch.net)

185:卵の名無しさん
21/02/22 22:30:57.60 YX6Ajc/g.net
>>174
元一流スポーツ選手で将来医者
ウリュウのジジイとは何もかも対極でワロタ

186:卵の名無しさん
21/02/23 03:09:40.47 ssi1ukiC.net
633 名前:ニューノーマルの名無しさん :2021/02/23(火) 03:07:35.00 ID:gzdsTPOX0
>>620
前半同意、非常に同意。
俺も保守だから安倍政権も高須のやり方も大嫌いだ。
竹田の皇統解釈も不愉快だ。

187:卵の名無しさん
21/02/23 04:14:01.58 dB26OIyA.net
シリツ医が反論せずに逃げまくる正論
川崎医大の創始者の子供や孫は教育投資して学力をつけて
岡山大学や京都大学の医学部に入学。
シリツ医大の法外な学費が払える経済状況にありながらド底辺シリツ医大にしか入れないのは馬鹿の証明。

188:卵の名無しさん
21/02/23 04:17:45.65 ssi1ukiC.net
526 名前:名無しさん＠恐縮です [sage] :2021/02/23(火) 03:54:14.57 ID:9uwh2UB80
おざといな

189:卵の名無しさん
21/02/23 04:49:18.35 dB26OIyA.net
M=12
x=t(combn(M,2))
x=x[apply(x,1,function(x) sum(x)<M),]
x3=apply(x, 1, function(y) M - sum(y))
cbind(x,x3)

190:卵の名無しさん
21/02/23 07:14:22.69 Va4XESPL.net
>>182
比例計算できないとか、化学の講義でモルって何ですか？　とか質問しないだろ？
シリツ医大にはそういう低学力の学生がいるってこと。
脱税するほど金儲けしても、この程度の頭脳。
比例計算すら間違える。
URLﾘﾝｸ(news.yahoo.co.jp)

191:卵の名無しさん
21/02/23 07:18:41.83 Va4XESPL.net
>>186
社会的共通資本をメインテナンス、すなわち保守するのが保守の真髄だから、
安倍らの集団は保守ではないね。

192:卵の名無しさん
21/02/23 07:21:13.35 ssi1ukiC.net
2 名前:名無しさん＠お腹いっぱい。 :2021/02/01(月) 19:04:07.64 ID:9d4X9686
【悪のDS】
TLCは悪徳マルチ商法です
タカヒロはこの悪徳マルチを販売しています
上場すると嘘の説明をして販売
TLCはどこで使うことも換金することもできません
完全な詐欺商品です
返金を求めて返金されずトラブルが多発しています
非常に嘘つきで朝鮮人のように息を吐くように嘘を付きます
カルト宗教統一教会とリンクしています
また顔が不細工であることを気にしているので不細工と書かれると自演でイケメンと工作しています
しかし公開された顔はまぎれもない不細工でゲロ顔です

193:卵の名無しさん
21/02/23 07:38:18.24 ssi1ukiC.net
13 名前:名無しさん＠お腹いっぱい。 [sage] :2017/07/30(日) 14:32:41.41 ID:E1o+wFKD
写真

194:卵の名無しさん
21/02/23 09:08:52.99 Va4XESPL.net
# 価格から小銭での支払い方法を表示する
how2pay <- function(
price,
coins=rep(c(500,100,50,10,5,1),c(1,5,2,5,2,5)),
verbose=TRUE
){
n=length(coins)
counter=0
for(i in 1:length(coins)){
comb=unique(gtools::combinations(n,i,v=coins,set=FALSE))
for(j in 1:nrow(comb)){
if(sum(comb[j,])==price){
counter=counter+1
if(verbose)cat(counter,':',comb[j,],'\n')
}
}
}
return(counter)
}
how2pay(555,rep(c(500,100,50,10,5,1),c(1,5,2,5,2,5)))
how2pay(610,rep(c(500,100,50,10,5,1),c(1,5,2,5,2,5)))

195:卵の名無しさん
21/02/23 09:09:45.94 Va4XESPL.net
１０００までの素数を表示する。
> (1:1000)[-(2:1000) %*% t(2:1000)][-1]
[1] 2 3 5 7 11 13 17 19 23 29 31 37 41 43 47 53 59 61 67 71 73
[22] 79 83 89 97 101 103 107 109 113 127 131 137 139 149 151 157 163 167 173 179 181
[43] 191 193 197 199 211 223 227 229 233 239 241 251 257 263 269 271 277 281 283 293 307
[64] 311 313 317 331 337 347 349 353 359 367 373 379 383 389 397 401 409 419 421 431 433
[85] 439 443 449 457 461 463 467 479 487 491 499 503 509 521 523 541 547 557 563 569 571
[106] 577 587 593 599 601 607 613 617 619 631 641 643 647 653 659 661 673 677 683 691 701
[127] 709 719 727 733 739 743 751 757 761 769 773 787 797 809 811 821 823 827 829 839 853
[148] 857 859 863 877 881 883 887 907 911 919 929 937 941 947 953 967 971 977 983 991 997

196:卵の名無しさん
21/02/23 09:31:36.27 RSIPxIfW.net
>>183
42 名前:人類発祥の名無しさん :2019/01/17(木) 23:38:31.75 ID:j38jGUmo
ホテル・ルワンダ→ブラックホークダウン
と観るのと、
ブラックホークダウン→ホテル・ルワンダ
と観るのとでは天地違うくらいに意味が変わる。
モガディシュの戦いは、1993年10月3日、
ルワンダの虐殺は、1994年4月から……。

197:卵の名無しさん
21/02/23 09:47:00.90 Va4XESPL.net
10円玉、50円玉、100円玉が3枚ずつ合計480円あります。
お釣りがもらえない店で買い物をすると10円から480円までの商品が買えます。
お釣りを要求したりお釣りはいらないというと何も売ってもらえません。
(1)商品価格は10円単位として何通りの価格の商品が買えますか？
(2)480円以下で買うことのできない商品の価格ををすべて答えなさい。
(payable=coin2payable(rep(c(100,50,10),c(3,3,3))))
length(payable)
yen=seq(10,480,10)
freq=sapply(yen, function(y) how2pay(y,rep(c(100,50,10),c(3,3,3)),verbose = F))
names(freq)=yen
yen[freq==0]

198:卵の名無しさん
21/02/23 15:17:55.96 JsjX4LWL.net
福岡と比べると惨めすぎる人生だなウリュ爺よ

199:卵の名無しさん
21/02/23 17:33:43.26 JfGhGprW.net
大塚憲の為のスレかな

200:卵の名無しさん
21/02/23 17:38:51.58 pDEW6iRc.net
そんなに頭いいなら医者以外でも稼げるでしょ？
今の時代パソコン一台で億万長者になれる時代なのに

201:卵の名無しさん
21/02/23 17:48:11.03 ssi1ukiC.net
785 名前:ニューノーマルの名無しさん :2021/02/23(火) 11:25:02.78 ID:XKOT2/W90
おふくろがドライアイだから
感染防止にメガネかけるようには言ってた
こんなの最初から判ってる事なのに注意喚起なさすぎ
咽頭も乾燥すると唾液の流れが滞るからスカスカの布マスクでも
ウイルス感染防止効果は充分にあるんだぞ？

202:卵の名無しさん
21/02/23 19:41:38.80 dB26OIyA.net
【速報】大村知事リコール、死者が8000人も署名していた ★7 [potato★]
ｽﾚﾘﾝｸ(newsplus板)

203:卵の名無しさん
21/02/23 19:51:56.46 dB26OIyA.net
【悲報】高須克弥｢リコールは河村市長から頼まれ、応援団長として会見に行ったら市長が来なくて僕が代表にされた！僕は素人なんです｣★6 [potato★]
ｽﾚﾘﾝｸ(newsplus板)

204:卵の名無しさん
21/02/24 16:39:28.14 faL8GzZH.net
ラグビーの福岡が私立医大に行って馬鹿かと思ったｗ

205:卵の名無しさん
21/02/24 17:09:53.28 Spvqm53J.net
祖父が開業医で、父が歯科開業医、
福岡は自称名門の順天ｗ

206:卵の名無しさん
21/02/24 18:29:00.65 MAEmMfX6.net
元プロ選手で将来医者か
ウリュウのジジイとは違い華々しい経歴だな

207:卵の名無しさん
21/02/25 06:56:14.64 iLqjvGJf.net
【悲報】高須克弥、会見でうっかり本音が漏れる「今度こそ勝てると思います。こんな卑怯なことをしなくても！」 [potato★]
ｽﾚﾘﾝｸ(newsplus板)

208:卵の名無しさん
21/02/25 09:41:32.64 VcHWBsr9.net
さすがは脱税王　私立医高須だぜ！

209:卵の名無しさん
21/02/25 18:34:47.75 FIk3ZXTa.net
さすがはエセ医者王ウリュウだぜ！

210:卵の名無しさん
21/02/26 10:45:16.24 9ysyZb47.net
なんで私立医の分際で　高須は
東大卒　大村に喧嘩を売ったのか？
地頭の差で勝てるわけがない！
実際、高須私立医は惨敗した

211:卵の名無しさん
21/02/26 12:13:32.29 0VPJUHPA.net
こんなことに税金使うな！と言ってた連中が大規模な不正を働いたせいで本来ならやらなくてもいいような署名簿の精査のために税金を使い
天皇を侮辱するな！と言ってた連中が陛下の名を語り犯罪に手を染める…
もう高須達はリコール開始当初の大義なんて完全に見失ってるよな

212:卵の名無しさん
21/02/26 12:28:45.02 MhnFc62S.net
リコールされるのはお前だろ
リコールされる前に廃棄処分かも知れないが

213:卵の名無しさん
21/02/26 12:32:23.21 j1TMZJSQ.net
馬鹿順天の福岡

214:卵の名無しさん
21/02/26 15:06:55.61 P8OmShJ5.net
>>180
今時医者なんてだれも羨ましいと思わない。
はっきりいってバカだけが医者になりたがる。
俺は自分の息子は医者にはさせなかった。

215:卵の名無しさん
21/02/26 15:08:50.19 P8OmShJ5.net
>>182
コロナ禍に対する医師会の態度を見てみろよ。
ひたすら自分たちの儲けのことしか考えてないだろ。
邪そのものじゃん。

216:卵の名無しさん
21/02/26 15:12:04.95 P8OmShJ5.net
>>191
まあ、保守ではないわな。
安倍さんは安全保障では成果をそれなりに挙げたけどね。
>>190
無茶言うなよｗ
お前な、底辺私立卒にmolを理解させるなんて無理だぞｗ

217:卵の名無しさん
21/02/26 15:16:57.29 P8OmShJ5.net
>>187
それな。
底辺私大なんてバカ相手に金儲けのためにやってるとしか思えん。
跡取りは旧帝大卒で親の経営している底辺大学には絶対入らないｗ

218:卵の名無しさん
21/02/26 15:43:08.76 9ysyZb47.net
高須は　私立医の面汚し　昭和医大の廃棄物

219:卵の名無しさん
21/02/26 18:03:21.21 r/8IJoiM.net
社会の廃棄物がほざいてる

220:卵の名無しさん
21/02/26 18:33:33.28 /lG94gex.net
PC→管理→ディスクの管理　：　ドライブ割当

221:卵の名無しさん
21/02/26 22:05:22.09 YeaYmsBM.net
sim <- function(n,white=5,black=5){
pick <- function(x,one=1){
i=sample(length(x),one)
picked=x[i]
rest=x[-i]
list(picked=picked,rest=rest)
}
ball=list(picked=NULL,rest=rep(1:0,c(white,black)))
n_rest=length(ball$rest)
score=0
counter=0
while(counter < n){
status=pick(ball$rest,1)
score = score + (if(status$picked==1) 1 else rbinom(1,1,2/6))
ball$rest=status$rest
counter=counter+1
}
score
}
# n=2 score=2
MASS::fractions(20/90*1/3*1/3 + 50/90*1/3 + 20/90) ; 35/81
mean(replicate(1e5,sim(2)==2))
# n=4 score>=2
mean(replicate(1e6,sim(4)>=2))

222:卵の名無しさん
21/02/26 22:15:55.99 YeaYmsBM.net
>>218
選挙結果を覆しうるリコール運動で不正って、選挙制度の根幹を毀損する悪質な犯罪だと思う。
民主主義の根幹を犯罪で汚そうとしている。

223:卵の名無しさん
21/02/26 22:17:42.90 YeaYmsBM.net
>>217
ド底辺シリツ医大なんぞに入ったら理事長とかの肩書があっても職員から見下されるだろうね。

224:卵の名無しさん
21/02/26 22:21:19.36 YeaYmsBM.net
>>216
返還された北方領土に米軍基地を設置しない確約はできないことをプーチンに指摘されて領土を失ったよ。
ダレスの恫喝をきちんとプーチンは理解していた。
ポツダム宣言と原発投下の時系列すら理解せずに大学を卒業したアホが安倍晋三。

225:卵の名無しさん
21/02/26 22:29:12.49 P8OmShJ5.net
>>223
底辺私立大学に入るメリットはない。
金と時間の無駄。
>>224
おいおい、英語ができるんだから英米の安倍に対する論評を読めよ。
ロシア政策に関しては失敗だと俺も思うな。

226:卵の名無しさん
21/02/26 22:30:47.00 P8OmShJ5.net
旧帝大を出て美容外科ってのもな・・・・
底辺私大ならわかるが。

227:卵の名無しさん
21/02/26 22:54:24.08 DAyVDGdT.net
医者じゃない奴が何言っても無駄なんだよ。
医師免許持ってから出直しておいで。

228:卵の名無しさん
21/02/27 10:23:41.04 eTAWX45d.net
「太田総理･･秘書田中」で、えなりが言いました。
えなり「私立医大には二次方程式も出来ない奴が入学している。」
えなり「私立医大には二次方程式も出来ない奴が入学している。」
えなり「私立医大には二次方程式も出来ない奴が入学している。」

229:卵の名無しさん
21/02/27 12:05:25.08 9JShOv39.net
結局医者コンプかよ

230:卵の名無しさん
21/02/27 13:25:22.70 eTAWX45d.net
国立医は凄いですよ～
私立医は馬鹿でしょｗ

231:卵の名無しさん
21/02/27 14:02:09.06 rL9IX+IU.net
>>230
非医はもっとバカw

232:卵の名無しさん
21/02/27 21:22:52.29 eTAWX45d.net
えなりも国立医に関しては東大なみって誉めてるけど
私立医は馬鹿にしてるもんなｗ

233:卵の名無しさん
21/02/27 22:59:01.10 tPG5iq2Z.net
だから何なんだよ？そんな暇があったらパソコンで一山当ててみろ
人の悪口ばかりいう人で優秀だった奴なんて一人もいない
集中力がない、雑念にまみれている

234:卵の名無しさん
21/02/28 04:40:46.41 dK2UlciZ.net
>>232
えなりもお前もどうせ今の私立医なんか入れないからただの遠吠え。

235:卵の名無しさん
21/02/28 11:38:28.60 8vS8s6Wg.net
n=1000
pmax=floor(sqrt(1000))
p=(1:pmax)[-outer(2:pmax,2:pmax)][-1]
f=function(x) all(x%%p!=0)
length((2:n)[sapply(1:n,f)])

236:卵の名無しさん
21/02/28 12:43:49.45 25wbzA9n.net
福岡選手には正々堂々と国立医に進学して欲しかったな～
私立医へ裏口入学するなんて、頭が足りなかったのかな？

237:卵の名無しさん
21/02/28 13:01:36.70 O7MO1J8n.net
>>236
ここに粘着してるなんてよっぽど頭が足りないんだな

238:卵の名無しさん
21/02/28 13:05:36.04 9wVrIDg/.net
>>228
二次方程式どころか一次方程式すら立式できないシリツ医もいるんだよ。

239:卵の名無しさん
21/02/28 13:06:41.38 9wVrIDg/.net
シリツ医のこれが現実
１次方程式もできないド底辺特殊シリツ医大卒の記録
URLﾘﾝｸ(imagizer.imageshack.com)

何度読んでも馬鹿すぎる。
男女別の割合と全体での割合から男女比が計算できるとも思わないとは。
なんでこんなのが大学に入れるわけよ？
裏口入学以外に説明がつく？
中学生でも解ける一次方程式の問題だろ。
それすらできない馬鹿が自信を持って発言。
>患者の男女比が必要なのもわからないのか？
だとさ。
URLﾘﾝｸ(imagizer.imageshack.com)

0.2575549
と答を書いてやったら
>単位も書かずに答えだとか…
ド底辺シリツ医大では確率に単位があるらしいぞw
何でこんな馬鹿が大学に入れるわけ？
裏口入学以外に説明がつく？
URLﾘﾝｸ(imagizer.imageshack.com)

240:卵の名無しさん
21/02/28 13:06:49.03 O7MO1J8n.net
>>238
よっぽど今の受験を知らないんだな。

241:卵の名無しさん
21/02/28 13:09:42.18 9wVrIDg/.net
>>232
昭和の御代の話だが旧設国立大学医学部の方が理一より偏差値が高かったな。
二期校時代なので医学部の滑り止めに理一を受験した俺みたいなのも同期に何人かいた。

242:卵の名無しさん
21/02/28 13:10:13.74 9wVrIDg/.net
シリツ医が反論せずに逃げまくる正論
川崎医大の創始者の子供や孫は教育投資して学力をつけて
岡山大学や京都大学の医学部に入学。
シリツ医大の法外な学費が払える経済状況にありながらド底辺シリツ医大にしか入れないのは馬鹿の証明。

243:卵の名無しさん
21/02/28 14:03:39.03 8vS8s6Wg.net
「5で割ると3あまり、7で割ると5あまり、9で割ると2あまる整数のうち1兆にもっとも近いのは何でしょう？」

244:卵の名無しさん
21/02/28 16:10:04.37 9wVrIDg/.net
今の受験といえばこれ！
東京医大の事件は裏口入学が現在進行形であること如実にしめした事件だよね。
シリツ医の使命は裏口入学撲滅国民運動の先頭に立つことだよ。
裏口入学の学生を除籍処分にしないかぎり、信頼の回復はないね。つまり、いつまで経ってもシリツ医大卒＝裏口バカと汚名は拭えない。シリツ出身者こそ、裏口入学に厳しい処分せよを訴えるべき。
裏口入学医師の免許剥奪を！の国民運動の先頭に立てばよいぞ。
僕も裏口入学とか、言ってたら信頼の回復はない。

245:卵の名無しさん
21/02/28 16:25:44.79 O7MO1J8n.net
>>244
お前の知ってることはそれだけ？

246:卵の名無しさん
21/02/28 17:50:02.45 25wbzA9n.net
福岡選手は、現役時も一浪時も国立医には受からず
長じて私立医進学とかｗ
なさけねーっすｗ

247:卵の名無しさん
21/02/28 18:38:23.05 8vS8s6Wg.net
>>245
シリツ医が反論せずに逃げまくる正論
川崎医大の創始者の子供や孫は教育投資して学力をつけて
岡山大学や京都大学の医学部に入学。
シリツ医大の法外な学費が払える経済状況にありながらド底辺シリツ医大にしか入れないのは馬鹿の証明。

248:卵の名無しさん
21/02/28 18:39:04.34 8vS8s6Wg.net
これからも逃げまくり
>ｽﾚﾘﾝｸ(hosp板:28番)
後者は裏口だと公言しているの？
していなければ名誉毀損なんだけど、
ソースはあんの？

249:卵の名無しさん
21/02/28 18:39:38.07 8vS8s6Wg.net
思ったより短いコードで解決できた。

#「最大値が最小値の2倍の、それぞれ異なる13つの自然数」の最小公倍数の最小値はどうやって求めたらいいでしょうか
rm(list=ls())
f <- function(nmax=27720,N=13,showALL=FALSE){
library(numbers)
y=divisors(nmax)
y=y[y>(N-1)]
re=NULL
for(i in 1:length(y)){
if((2*y[i]) %in% y){
i2=which(y==2*y[i])
if((i2-i)==(N-1)){
re=y[i:i2]
cat(re,':','LCM =',mLCM(re),'\n')
if(!showALL) break
}
}
}
invisible(re)
}
f()
vf=Vectorize(f)
DEL=vf(13:27720)
DEL=vf(27720:50000)
DEL=vf(15:100000,N=15)

250:卵の名無しさん
21/02/28 19:12:36.58 O7MO1J8n.net
>>247
残念だね。その底辺私立医にも入れないなんて。

251:卵の名無しさん
21/02/28 19:18:22.78 O7MO1J8n.net
>>246
お前も元プロ選手なのか？
福岡と比べるとあまりに惨めな人生だから僻んでるだけだろ？

252:卵の名無しさん
21/02/28 21:09:53.99 KqaGhkDj.net
福岡より文武両道の医者、医大生がどこにいるんだ？
ましてや医師免許も持ってない奴がほざいたところでただの嫉妬でしかない。
ウリュウのジジイは福岡がラグビーして勉強して医学の道を目指してた年齢の時何してたんだ？どうせ福岡みたいなやつを僻み散らかして何もしなかったから今この惨状なわけで。

253:卵の名無しさん
21/03/01 01:57:18.45 JWRrgpq1.net
そもそも医者が文武両道である必要性は無い

254:卵の名無しさん
21/03/01 11:57:46.97 vL/VXdUf.net
福岡って　現役時も一浪時も国立医を落ちてんのなｗ
そりゃ三度目は私立医へ裏口トライ！するよなｗ

255:卵の名無しさん
21/03/01 12:04:51.35 wsC2wdM4.net
福岡そんなに羨ましい？

256:卵の名無しさん
21/03/01 18:20:02.18 vL/VXdUf.net
福岡選手　私立医へ裏口入学　おめでとう！

257:卵の名無しさん
21/03/01 18:36:20.07 1PyeDUtg.net
よっぽど悔しいんだね。

258:卵の名無しさん
21/03/01 21:28:51.89 jcJ6NTAJ.net
# 立方体（辺の長さ=1)の内部の３点A,B,Cを通る平面での断面
DiceCut <- function(A,B,C){
a1=A[1];a2=A[2];a3=A[3]
b1=B[1];b2=B[2];b3=B[3]
c1=C[1];c2=C[2];c3=C[3]
N=pracma::cross(A-B,A-C) # 外積で法線ベクトルを得る
n1=N[1]
n2=N[2]
n3=N[3]
# n1(x-a1)+n2(y-a2)+n3(z-a3)=0
# z=(n1*(x-a1)+n2*(y-a2))/(-n3) + a3
g <- function(x,y) (n1*(x-a1)+n2*(y-a2))/(-n3)+a3
g=Vectorize(g)
x=seq(0,1,length=201)
y=seq(0,1,length=201)
gr=expand.grid(x,y)
z=apply(gr,1,function(xy) g(xy[1],xy[2]))
gr=cbind(gr,z)
colnames(gr)=c('x','y','z')
xyz=gr[0<=z & z<=1,]
rgl::plot3d(xyz,col='skyblue')
}
DiceCut(c(1,1,1),c(1/2,0,0),c(0,1/2,0))
DiceCut(c(1,1,0),c(1/3,0,0),c(0,0,1/4))
DiceCut(c(1,1/2,1/3),c(1/3,0,0),c(0,0,1/4))

259:卵の名無しさん
21/03/01 21:33:33.15 ESKPIe+v.net
>>258
悔しいのう。

260:卵の名無しさん
21/03/01 21:34:08.60 ESKPIe+v.net
トケジ、スレタイも読めない

261:卵の名無しさん
21/03/02 10:52:31.92 EygxTbXG.net
# 20cm×10cmの楕円形ステーキを2:1に分割
steak_cut <- function(phi=2,a=20/2,b=10/2){
eclps <- function(x) b*sqrt(a^2-x^2)/a
f <- function(x) integrate(eclps,-a,x)$value
xcut=uniroot(function(x) f(x)- (pi*a*b/2)*(phi/(1+phi)),c(-a,a))$root
Plot(-a,a,-b,b,bty='n')
x=seq(-a,a,0.05)
y=b*sqrt(a^2-x^2)/a
lines(x,y,col=2,lwd=5); lines(x,-y,col=2,lwd=5)
seg(xcut-1i*eclps(xcut),xcut+1i*eclps(xcut),lty=4)
c(x=xcut,length=2*eclps(xcut))
}
steak_cut(2,20/2,10/2)

262:卵の名無しさん
21/03/02 10:54:17.97 EygxTbXG.net
>>260
スレタイの結論は　然り　で終了だから、　ここは草稿の備忘録。
シリツ医が反論せずに逃げまくる正論
川崎医大の創始者の子供や孫は教育投資して学力をつけて
岡山大学や京都大学の医学部に入学。
シリツ医大の法外な学費が払える経済状況にありながらド底辺シリツ医大にしか入れないのは馬鹿の証明。
これからも逃げまくり
>ｽﾚﾘﾝｸ(hosp板:28番)
後者は裏口だと公言しているの？
していなければ名誉毀損なんだけど、

263:卵の名無しさん
21/03/02 10:56:53.29 ERQdQO6O.net
国立医に落ち続けて
結局　私立医に裏口トライした福岡が文武両道とかｗ
私立医はお高いですねｗ

264:卵の名無しさん
21/03/02 11:41:50.03 a5vMcwmP.net
>>262
どのみち非医のお前には関係のない話だからな。

265:卵の名無しさん
21/03/02 13:06:02.95 q0cF+WXK.net
ココ↓は？
URLﾘﾝｸ(twitter.com)
(deleted an unsolicited ad)

266:卵の名無しさん
21/03/02 13:49:29.50 a5vMcwmP.net
これからも将来もみんなに期待され続けている福岡
これからも晩年も誰にも相手にされていないからここで発狂するしかやることのないトケジ
どっちの人生がいい？

267:卵の名無しさん
21/03/02 20:25:12.96 gQEFJQ5s.net
相手にするな、一生パソコンに張り付いて独り相撲してろ

268:卵の名無しさん
21/03/02 20:29:21.33 EygxTbXG.net
# m^n=n^mを満たす自然数は2,4の組み合わせのみ
# m^(1/m)=n^(1/n)
f <- function(x) x^(1/x)
curve(f(x),0,30,xlab='x^(1/x)',bty='n')
optimise(f,c(0,20),maximum = TRUE)
points(0:30,f(0:30),pch=19)

269:卵の名無しさん
21/03/02 20:48:25.97 ERQdQO6O.net
福岡も本音では国立医にいきたかったんだよ
でも地頭が無いから私立医にいくしかなかったんだ
現役・浪人時に筑波大医学部を落ちちゃったんだｗ

270:卵の名無しさん
21/03/02 21:02:45.39 EygxTbXG.net
pizza_cut <- function(phi, r){
circle <- function(x) sqrt(r^2-x^2)
f <- function(x) integrate(circle,-r,x)$value
x=uniroot(function(x) f(x)- (pi*r^2/2)*(phi/(1+phi)),c(-r,r))$root
Plot(-r,r,bty='n')
Cir(0i,r)
seg(x-1i*circle(x),x+1i*circle(x),lty=5)
c(x=x,length=2*circle(x))
}
pizza_cut(2,30/2) # 直径30cｍのピザを2:1に分割
pizza_cut(1/2+sqrt(5)/2,1) # 半径1cmの金貨を黄金比に切断

271:卵の名無しさん
21/03/02 21:03:00.48 EygxTbXG.net
# 20cm×10cmの楕円形ステーキを2:1に分割
steak_cut <- function(phi=2,a=20/2,b=10/2){
eclps <- function(x) b*sqrt(a^2-x^2)/a
f <- function(x) integrate(eclps,-a,x)$value
xcut=uniroot(function(x) f(x)- (pi*a*b/2)*(phi/(1+phi)),c(-a,a))$root
Plot(-a,a,-b,b,bty='n')
x=seq(-a,a,0.05)
y=b*sqrt(a^2-x^2)/a
lines(x,y,col=2,type='h',lwd=3); lines(x,-y,col=2,type='h',lwd=3)
seg(xcut-1i*eclps(xcut),xcut+1i*eclps(xcut),lty=4)
c(x=xcut,length=2*eclps(xcut))
}
steak_cut(2,20/2,10/2)

272:卵の名無しさん
21/03/02 21:03:15.81 EygxTbXG.net
# 20cm×10cmの楕円形ステーキを60°の角度で切って2:1に分割
rm(list=ls())
source('toolmini.R')
SteakCut <- function(phi=2,a=20/2,b=10/2,deg=60,...){# phi:1 分割比　
th=deg*pi/180 # a:長径 b:単径 deg:切断角度
eclps <- function(x) b*sqrt(a^2-x^2)/a
larger <- function(x){
P=x-1i*eclps(x)
t=tan(th) ; p1=Re(P) ; p2=Im(P) # solve b*sqrt(a^2-x^2)/a=t*(x-p1)+p2 for x
x0 = (a^2*p1*t^2-a^2*p2*t+sqrt(a^4*b^2*t^2-a^2*p1^2*b^2*t^2+2*a^2*p1*p2*b^2*t-a^2*p2^2*b^2+a^2*b^4))/(a^2*t^2+b^2)
Q=x0+1i*eclps(x0)
q1=Re(Q)
integrate(function(x) eclps(x)-(-eclps(x)),-a,p1,rel.tol=1e-12)$value +
integrate(function(x) eclps(x)-(t*(x-p1)+p2),p1,q1,rel.tol=1e-12)$value
}
p1=uniroot(function(x) larger(x)- pi*a*b*phi/(1+phi),c(-a,a),tol=1e-12)$root
P=p1-1i*eclps(p1)
t=tan(th) ; p1=Re(P) ; p2=Im(P)
q1 = (a^2*p1*t^2-a^2*p2*t+sqrt(a^4*b^2*t^2-a^2*p1^2*b^2*t^2+2*a^2*p1*p2*b^2*t-a^2*p2^2*b^2+a^2*b^4))/(a^2*t^2+b^2)
Q=q1+1i*eclps(q1)
Plot(-a,a,-b,b,bty='n',...)
x=seq(-a,a,0.05)
y=b*sqrt(a^2-x^2)/a
lines(x,y,col='maroon',type='h',lwd=2); lines(x,-y,col='maroon',type='h',lwd=2)
axy(tan(th),P,p1,q1,lty=4,lwd=2)
list(P=P,Q=Q,Length=abs(P-Q)) # P-Q:切断線 Length:長さ
}
SteakCut(phi=2,a=20/2,b=10/2,deg=60,axes=FALSE) ; axis(1)

273:卵の名無しさん
21/03/02 21:08:26.25 EygxTbXG.net
厳密解は多分だせないだろうな。
数値積分で出した値で描画。
URLﾘﾝｸ(i.imgur.com)

274:卵の名無しさん
21/03/02 23:50:47.98 gQEFJQ5s.net
そのわけのわからんくだらん数式を応用して金になる
プログラムでも書いてみたら？日本の医者なんて世界的に見れば
大した待遇じゃな

275:卵の名無しさん
21/03/03 07:04:57.81 5l5/qLtN.net
>>269
本音ではトケジも医者になりたかったんだ
でも頭が悪すぎてここに粘着するしかなくなったんだ
福岡はいままでもこれからも期待される人生だというのに

276:卵の名無しさん
21/03/03 08:01:27.64 5l5/qLtN.net
当直医スレでついに非医自白か
このオツムじゃ当然医者になれないわな

277:卵の名無しさん
21/03/03 10:33:17.44 mPhtBbV4.net
福岡も本音では国立医にいきたかったんだよ
でも地頭が無いから私立医にいくしかなかったんだ
現役・浪人時に筑波大医学部を落ちちゃったんだｗ
裏口トライ！

278:卵の名無しさん
21/03/03 11:47:19.98 VMsZNV9q.net
>>277
うんうん、でもプロ選手じゃ仕方ないよ
誰にも真似できないし
でもお前はどうなんだ？福岡と比べると目も当てられない惨状じゃないか

279:卵の名無しさん
21/03/03 16:02:41.35 TpE7MNeT.net
不正入試も？医学部受験の闇
URLﾘﾝｸ(www.youtube.com)
この動画をみれば私立医学部入試のおかしさがわかる。
俺は息子は国立に行かせたし俺も国立出身。
ちな息子も俺も東北大学です。

280:卵の名無しさん
21/03/03 16:06:26.07 TpE7MNeT.net
>>276
統計学とプログラミングができるから頭が悪いとは思わない。
これまでの投稿の内容を見ると医科歯科大出身も嘘ではないと思う。

281:卵の名無しさん
21/03/03 17:11:48.40 RNCA+Q6l.net
>>279
国立卒の医師は堂々と卒業大学を名乗れる。母校に誇りがあるからね。
新型コロナで首都の国立大学の使命を果たしている母校を誇りに思う。
俺の勤務先に附設の老健でクラスター発生したのでその苦労はよくわかる。

282:卵の名無しさん
21/03/03 18:55:15.96 5l5/qLtN.net
>>280
統計？プログラム？
医者になるために必要なことか？
非医だからそんなことも分からないんだね。

283:卵の名無しさん
21/03/03 18:56:27.04 5l5/qLtN.net
大体医科歯科大なんてこいつが言ったのか？
もう自分で自演ですって言ってるようなものじゃんw
バカは死ななきゃ治らないのかな？

284:卵の名無しさん
21/03/03 19:34:25.71 RNCA+Q6l.net
rm(list=ls())
source('toolmini.R')
library(rgl)
# xyz空間において
# 1≦(1+x^2)(1+2y^2)(1+4z^2)≦8
# を満たす点(x,y,z)全体からなる領域の体積を求めよ。
x=y=z=seq(-3,3,length.out=200)
f <- function(x,y,z){
a=(1+x^2)*(1+2*y^2)*(1+4*z^2)
1<=a & a <= 8
}
gr=expand.grid(x,y,z)
idx=mapply(f,gr[,1],gr[,2],gr[,3])
b=gr[idx,]
plot3d(b,col=4,xlab='x',ylab='y',zlab='z')
nrow(b)/nrow(gr)*6^3
binom.test(nrow(b),nrow(gr))$conf*6^3

285:卵の名無しさん
21/03/03 20:06:17.98 RNCA+Q6l.net
【リコール不正】高須克弥さん「河村市長の勧めがなかったらリコールなんかしなかった」 ★3 [和三盆★]
ｽﾚﾘﾝｸ(newsplus板)

286:卵の名無しさん
21/03/03 21:00:05.16 mPhtBbV4.net
筑波大学の非医だった福岡ですら
余裕の順天合格よｗ
国立医＞＞＞筑波大非医＞＞＞＞＞＞＞＞＞＞＞＞＞＞＞＞＞＞私立医(低脳低偏差値)ｗ

287:卵の名無しさん
21/03/03 22:14:18.64 5l5/qLtN.net
>>286
で？お前は？
まさか医師免許持ってないの？

288:卵の名無しさん
21/03/03 23:17:41.11 PWqLtF5b.net
# θを0<θ≦π/2の実数の定数とする。
# 曲線C:y=1-x^2(-1≦x≦1)を原点中心にθだけ回転させたとき、
# Cが通過しうる領域の面積をθで表せ。
URLﾘﾝｸ(i.imgur.com)
rot <- function(x,y,theta){
z=x+1i*y
r=Mod(z)
th=Arg(z)
x1=r*cos(th+theta)
y1=r*sin(th+theta)
return(c(x1,y1))
}
f <- function(th,...){
re=t(mapply(rot,xy[,1],xy[,2],th))
lines(re,...)
}
x=seq(-1,1,by=0.01)
y=1-x^2
xy=cbind(x,y)
plot(xy,xlim=c(-2,2),ylim=c(-2,2),type='l',asp=1,bty='n',col=1)
text(0,0,'.')
theta=seq(0,pi/2,length=25)
for(i in theta){
f(i,col=1)
Sys.sleep(1)
}

289:卵の名無しさん
21/03/03 23:21:18.98 TpE7MNeT.net
>>282
統計学は必要だよ。
そんなこともわからないなんて非医だろ。

290:卵の名無しさん
21/03/03 23:23:39.87 5l5/qLtN.net
>>289
それに固執してること自体非医の証。

291:卵の名無しさん
21/03/03 23:23:50.89 TpE7MNeT.net
低学力の医者ってアウトだよね。
英語が読めないとかさ、終わってるよ。

292:卵の名無しさん
21/03/03 23:26:40.83 5l5/qLtN.net
ｽﾚﾘﾝｸ(hosp板)
385 卵の名無しさん[] 2021/03/02(火) 10:55:27.20 ID:ERQdQO6O
私立医が低脳ってよくわかるよね
非医相手に必死な割に毎回同じことばかり　
とじげとかうりょうとかｗ
やっぱ馬鹿なんだろうねｗ
やっぱり非医か。
語るに落ちたな。本当バカだね～

293:卵の名無しさん
21/03/04 11:53:13.20 9BNEQtVg.net
>>292
自分で非医だと暴露。
これじゃ誰も相手になんかしてくれないよね。最初からわかってたけど。

294:卵の名無しさん
21/03/04 13:08:44.53 KqqjVMm7.net
10回の試行でアタリ玉は1個が7回、0個が3回であった。
pB_A1=choose(10,7)*dhyper(1,1,4,2)^7*dhyper(0,1,4,2)^3
pB_A2=choose(10,7)*dhyper(1,2,3,2)^7*dhyper(0,2,3,2)^3
pB_A3=choose(10,7)*dhyper(1,3,2,2)^7*dhyper(0,3,2,2)^3
pB=pB_A1+pB_A2+pB_A3
# A1:アタリ玉1個 A2:アタリ玉2個 A3:アタリ玉3個 B:データ
# P[A|B] = P[B|A]P[A]/P[B]

次ページ