X

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

■ このスレッドは過去ログ倉庫に格納されています
0001卵の名無しさん
垢版 |
2019/12/02(月) 08:15:06.37ID:TMmgA4qq
タイトルまんまです

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

※前スレ
底辺私立医大を卒業した頭悪いよね？
http://egg.2ch.net/test/read.cgi/hosp/1472273747/
底辺私立医大を卒業した医者って頭悪いよね？ Part2
http://egg.2ch.net/test/read.cgi/hosp/1520807375/
底辺私立医大を卒業した医者って頭悪いよね？ Part3
http://egg.2ch.net/test/read.cgi/hosp/1522967067/
底辺私立医大を卒業した医者って頭悪いよね？ Part4
http://egg.2ch.net/test/read.cgi/hosp/1526677794/
底辺私立医大を卒業した医者って頭悪いよね？ Part5
http://egg.2ch.net/test/read.cgi/hosp/1529666055/
底辺私立医大を卒業した医者って頭悪いよね？ Part6
http://egg.5ch.net/test/read.cgi/hosp/1531305684/
底辺私立医大を卒業した医者って頭悪いよね？ Part7
http://egg.2ch.net/test/read.cgi/hosp/1532472024/
底辺私立医大を卒業した医者って頭悪いよね？ Part8
http://egg.2ch.net/test/read.cgi/hosp/1533510399/
底辺私立医大を卒業した医者って頭悪いよね？ Part9
http://egg.2ch.net/test/read.cgi/hosp/1535547275/
底辺私立医大を卒業した医者って頭悪いよね？ Part10
https://egg.2ch.net/test/read.cgi/hosp/1537867846/
底辺私立医大を卒業した医者って頭悪いよね？ Part11
https://egg.5ch.net/test/read.cgi/hosp/1544320163/
底辺私立医大を卒業した医者って頭悪いよね？ Part12
https://egg.5ch.net/test/read.cgi/hosp/1550969602/
0102卵の名無しさん
垢版 |
2019/12/08(日) 13:42:35.98ID:9nZo3ABa
Translate into English
0103卵の名無しさん
垢版 |
2019/12/08(日) 15:25:39.32ID:tL3rsXUP
安倍はとんでもない事をしたなぁ・・・
改竄された統計を元に景気対策→狂っているので効果は低い
効果的な対策を打てなくなり経済停滞・崩壊

ド底辺シリツ医大に進学という最初のボタンの掛け違いみたいだな。
0104卵の名無しさん
垢版 |
2019/12/08(日) 15:25:59.33ID:tL3rsXUP
>>101
前スレでド底辺シリツ医が答えられないで逃げ出したこれに答えて頭のいいところをみせてくれ。

やっぱり、裏口入学なのか？
前スレのシリツ医も比例計算しかできない小学校算数レベルのアホだったな。

あるタクシー会社のタクシーには１から通し番号がふられている。
タクシー会社の規模から保有タクシー台数は１００台以下とわかっている。
この会社のタクシーを５台みかけた。最大の番号が６０であった。
この会社の保有するタクシー台数の期待値と９５％信用区間(信頼区間)を求めよ。
0105卵の名無しさん
垢版 |
2019/12/08(日) 15:27:40.11ID:tL3rsXUP
>>102

You may have been prevented from taking a national exam by your doctor. We agree with this.

答えてやったから、

これに答えろよ。

前スレでド底辺シリツ医が答えられないで逃げ出したこれに答えて頭のいいところをみせてくれ。

あるタクシー会社のタクシーには１から通し番号がふられている。
タクシー会社の規模から保有タクシー台数は１００台以下とわかっている。
この会社のタクシーを５台みかけた。最大の番号が６０であった。
この会社の保有するタクシー台数の期待値と９５％信用区間(信頼区間)を求めよ。
0106卵の名無しさん
垢版 |
2019/12/08(日) 15:31:45.98ID:tL3rsXUP
検索すれば答えられるような問題って大したテストにならんね。
こういうのに答えられてこそ、基礎理論を理解できているかがわかる。
>>
呪文：「ド底辺シリツ医大が悪いのではない、本人の頭が悪いんだ」を唱えると甲状腺機能が正常化するという統計処理の捏造をやってみる。

TSH ： 0.34〜4.0 TSH：μIU/mlを基準値として（これが平均±２×標準偏差で計算されているとして）呪文前と呪文後のデータを正規分布で各々５０個つくる。
負になった場合は検出限界以下として０にする。
http://i.imgur.com/k7MbKQ0.jpg
同じ平均値と標準偏差で乱数発生させただけなので両群には有意差はない。
横軸に呪文前のTSHの値、縦軸にTSHの変化（呪文後−呪文前）をグラフしてみると
http://i.imgur.com/GQ5X23P.jpg

つまり、呪文前のTSHが高いほど呪文後はTSHは下がり、呪文前のTSHが低いほど呪文後のTSHは上がるという傾向がみてとれる。
これを線形回帰して確かめてみる。

回帰直線のパラメータは以下の通り。
Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) 2.3812 0.3323 7.165 4.10e-09 ***
before -1.0351 0.1411 -7.338 2.24e-09 ***
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
Residual standard error: 0.8365 on 48 degrees of freedom
Multiple R-squared: 0.5287, Adjusted R-squared: 0.5189
F-statistic: 53.84 on 1 and 48 DF, p-value: 2.237e-09
p = 2.24e-09 なので有意差ありとしてよい。

ゆえに、「ド底辺シリツ医大が悪いのではない、本人の頭が悪いんだ」という呪文は甲状腺機能を正常化させる。

ここで問題、この統計処理のどこが誤っているか？
<<
0107卵の名無しさん
垢版 |
2019/12/08(日) 15:34:38.35ID:9nZo3ABa
Your answer is wrong. You fail. This will prevent you from passing the national exam. Ahahaha
0108卵の名無しさん
垢版 |
2019/12/08(日) 15:38:49.44ID:9nZo3ABa
You must not blame others on your life failure. All causes are your low intelligence, your neglect, and your carefree life. First of all, you have to recognize your mistaken ideas. Translate into Japanese
0109卵の名無しさん
垢版 |
2019/12/08(日) 15:45:29.24ID:9nZo3ABa
I couldn't pass the national exam because of my low intelligence. Translate into Japanese
0110卵の名無しさん
垢版 |
2019/12/08(日) 15:47:58.17ID:9nZo3ABa
My life has failed. Translate into Japanese
0111卵の名無しさん
垢版 |
2019/12/08(日) 18:35:52.35ID:tL3rsXUP
答えてやったから、

これに答えろよ。

前スレでド底辺シリツ医が答えられないで逃げ出したこれに答えて頭のいいところをみせてくれ。

あるタクシー会社のタクシーには１から通し番号がふられている。
タクシー会社の規模から保有タクシー台数は１００台以下とわかっている。
この会社のタクシーを５台みかけた。最大の番号が６０であった。
この会社の保有するタクシー台数の期待値と９５％信用区間(信頼区間)を求めよ。
0112卵の名無しさん
垢版 |
2019/12/08(日) 18:36:40.14ID:tL3rsXUP
これは便利だぜい

https://www.sodaplayer.com/

Play BitTorrent videos instantly

Open and play magnet links and torrent files instantly.

Supports DHT, PEX, UDP trackers and all other key BitTorrent technologies to give you maximum speed.

Protect your privacy, punch through network blocks and bypass ISP throttling with its integrated blazing fast SOCKS5 proxy.
0113卵の名無しさん
垢版 |
2019/12/08(日) 18:37:20.18ID:tL3rsXUP
比例計算レベルの算数しかできない頭脳＝ド底辺シリツ医
0114卵の名無しさん
垢版 |
2019/12/08(日) 18:47:41.99ID:tL3rsXUP
国試にこだわるアホ＝ド底辺シリツ医

難関私立中学入試の方が難しいな。
0115卵の名無しさん
垢版 |
2019/12/08(日) 23:55:29.34ID:CurIpkiA
フーバー回想録は読み応えがあるな。
基礎知識を欠くから欧州の戦史を調べながらだけど。


国民も議会も我が国の参戦に強く反対であった。
したがって、大勢をひっくり返して参戦を可能にするのは、ドイツあるいは日本による我が国に対する明白な反米行為（some overt act against us）だけであった。
ワシントンの政権上層部にも同じように考える者がいた。彼らは事態をその方向に進めようとした。つまり我が国を攻撃させるように仕向けることを狙ったのである。
0117卵の名無しさん
垢版 |
2019/12/09(月) 07:03:34.67ID:zd3bijjh
>>116
　　　　サイコロ

正６面体のサイコロがある．
４面は青色、２面は赤色である．
このサイコロを合計20回振るとき、
最も起こりそうな順番はどれか？

１．赤 青 赤 赤 赤

２．青 赤 青 赤 赤 赤

３．青 赤 赤 赤 赤 赤
0118卵の名無しさん
垢版 |
2019/12/09(月) 07:35:42.95ID:zd3bijjh
朝飯前にやってみた。

# 正６面体のサイコロがある．４面は青色、２面は赤色である．
# このサイコロを合計20回振るとき、最も起こりそうな順番はどれか？
# １．赤 青 赤 赤 赤
# ２．青 赤 青 赤 赤 赤
# ３．青 赤 赤 赤 赤 赤

sim <- function(){
a=sample(0:1,20, replace=TRUE, prob=c(4,2))
b=as.character(a)
c=paste(b,collapse="")
s1=paste(c(1,0,1,1,1),collapse="")
s2=paste(c(0,1,0,1,1,1),collapse="")
s3=paste(c(0,1,1,1,1,1),collapse="")
res=c(grepl(s1,c),grepl(s2,c), grepl(s3,c))
return(res)
}
k=1e5
re=replicate(k,sim())
mean(re[1,])
mean(re[2,])
mean(re[3,])
0119卵の名無しさん
垢版 |
2019/12/09(月) 07:41:49.98ID:zd3bijjh
>>81
１００万回のシミュレーション結果

> k=1e6
> re=replicate(k,sim())
> mean(re[1,])
[1] 0.124957
> mean(re[2,])
[1] 0.08093
> mean(re[3,])
[1] 0.04078

直感通り、１，２，３の順番になった。
0120卵の名無しさん
垢版 |
2019/12/09(月) 07:48:34.45ID:esDE8+xB
I was a fool and could not pass the national exam. I have already given up and abandoned the exam. I only have contact with others on this bulletin board. I feel sorry for everyone. Please continue to play with me. . Someone please help me

Translate into Japanese
0121卵の名無しさん
垢版 |
2019/12/09(月) 07:52:48.17ID:zd3bijjh
>>120
これできないアホ？

前スレでド底辺シリツ医が答えられないで逃げ出したこれに答えて頭のいいところをみせてくれ。

あるタクシー会社のタクシーには１から通し番号がふられている。
タクシー会社の規模から保有タクシー台数は１００台以下とわかっている。
この会社のタクシーを５台みかけた。最大の番号が６０であった。
この会社の保有するタクシー台数の期待値と９５％信用区間(信頼区間)を求めよ。
0122卵の名無しさん
垢版 |
2019/12/09(月) 07:54:40.71ID:zd3bijjh
数学板だと、問題の意味すらわからない問題がでるけど、確率問題は意味がわかるし
シミュレーションプログラミングの練習になるな。
0124卵の名無しさん
垢版 |
2019/12/09(月) 12:00:02.49ID:Ryd8TCV1
拡大内視鏡の成書から

white zoneの視認性と腺管密度の関係
white zoneが鮮明な癌 窩間部の長さ136±45 (p<0.05)
white zoneが不鮮明な癌 窩間部の長さ77±22 (p<0.05)

という記述で±45,±22が標準誤差であり、検定は等分散を前提としないt検定で
ｐ値は0.01から0.05の間であったとする。

サンプルサイズが２群で同じであったとすると各々の症例数はいくつからいくつと推定されるか？

こういうのが計算できてこそ大学卒と言えるね。
0126卵の名無しさん
垢版 |
2019/12/09(月) 12:06:04.66ID:f+6/JySw
行動科学をやっている人って文系でもベイズ統計をきちんと扱えて感心する。ド底辺シリツ医にはいないけど。
シリツ医ができるのは比例計算がせいぜいだな。
連立方程式すら立てられないし、自分が馬鹿だと認識していないんだよな。

http://imagizer.imageshack.com/img923/2715/RosCsf.jpg
0127卵の名無しさん
垢版 |
2019/12/09(月) 12:37:59.06ID:TW1hYan/
前スレでヒントまで書いてやったんだが
シリツ医の基礎学力じゃ、ヒントすら理解できなかったみたいだったな。


ド底辺シリツ医大にある年の裏口受験票が保存されていることが判明した。
枚数は１０００枚以下であることは判明しているが、その数を推定したい。
裏口入学調査員が無作為に１０枚選んで番号を記録して元に戻した。
別の裏口入学調査員が無作為に２０枚選んで番号を記録した。
二人の調査員の記録した番号を照合すると３枚の番号が一致していた。
この情報からこの年の裏口受験証の数の最頻値、期待値とその９５％信頼区間を求めよ。
0128卵の名無しさん
垢版 |
2019/12/09(月) 13:26:06.27ID:DnIHV24H
バカ丸出し底辺私立を１０校あげよ。
↓
１０校で収まらないのに驚嘆する。
慶應以外じゃ
字形、日医、大阪医大がちとマシなだけだろ。
他に底辺駅弁レベルあるか？
0129卵の名無しさん
垢版 |
2019/12/09(月) 13:32:42.16ID:/o7yN/Xd
>>118
grepを使わずに処理を高速化する方法は思いつかんな。
数学板で質問してみようっと。
0130卵の名無しさん
垢版 |
2019/12/09(月) 13:50:14.11ID:/o7yN/Xd
>>128
合格者の7割くらいが辞退するんじゃなかったっけ。

ここで問題

(1)予備校の発表する偏差値は合格者の偏差値の平均値
(2)合格者の成績分布は正規分布で標準偏差は母集団と同じ
(3)成績のよい方から入学を辞退する

上記(1)(2)(3)を前提にして

虚飾値＝合格者の偏差値 - 入学者の偏差値として

辞退率7割の時の虚飾値を求めよ。
0131卵の名無しさん
垢版 |
2019/12/09(月) 16:17:33.43ID:l8/jqBnA
田舎大学の工学部も遥かに手の届かない低学力でも
私立なら現役で受かるからな。
0132卵の名無しさん
垢版 |
2019/12/09(月) 18:02:54.10ID:/o7yN/Xd
これはシリツ医には無理だろうな。

ド底辺シリツ裏口調査団が100人を順次調査した。
裏口判明人数をそのまま公表はヤバすぎる結果であったため、
連続して裏口がみつかった最大数は4人であったとだけ公表した。
公表結果が正しいとして裏口入学人数の期待値、最頻値、及び95%信頼区間を述べよ。
0133卵の名無しさん
垢版 |
2019/12/09(月) 18:26:42.86ID:/o7yN/Xd
お前が言うなの「反日工作員」の一例。
オバマは米国の保有する核兵器のほとんどの精度と殺傷力を高める近代化プログラムを進めていた。
しかも世界で最も多くの核兵器を所有し核兵器を他国に投下し大量の民間人を虐殺した世界で唯一つの国であるアメリカの大統領が、
自国が落とした核兵器によって世界で唯一つの被爆国になって大量の民間人が虐殺され、現在も核兵器をもっていない日本で「反核」を訴えたのであるw

先日、日本で反核を訴えたローマ法王もそうだが、欧米を支配してきたグローバリストに共通しているのが親中の反日であり(共産中国をつくったのもアメリカのグローバリストである)
大衆を搾取し富と権力の独占を拡大するために世界のグローバル化を推進しているグローバリストたちにとっての最大の敵は、本来の日本が復活すること。
だから連中は日本に対して経済を衰退させ移民を強制し日本を完全に破壊することに必死であり、
日本では必ず反核を訴えるなどして日本が自主防衛、自主外交できないように必死になるのです。
日本が自主防衛、自主外交できないで得をするのは日本をこのまま意のままにコントロールしたいアメリカと支那、南北朝鮮などの隣国の反日国であることは言うまでもありません。
0134卵の名無しさん
垢版 |
2019/12/09(月) 22:17:56.77ID:3E/QRQw+
私立医大卒ってなんで私立にしか行けなかったんだろう
0135卵の名無しさん
垢版 |
2019/12/09(月) 22:33:25.83ID:/o7yN/Xd
以前から9条問題は言われているのに今更な　それより北方領土問題
安倍は北方領土４島を独自外交でロシアに売った売国奴 (ロシア大統領の発言を参照)
あの民主党でさえ尖閣諸島を国有化して日本の領土を守ったのにそれ以下の売国奴

海外では何十兆もバラマキをしながら日本国内では消費税増税
日本国内では元韓国大統領顧問の竹中平蔵が言うがままに民主党の外国人移民法こと入管法を改悪して外国人単純労働者枠を広げた
ソフトバンクSBIホールディングスの社外取締役の平蔵
実際にはソフトバンクなどを通じて民主と同じく中国朝鮮よりの政党（ホワイト指定解除は参議院選用のもの）

さらに外資に水道を売った

おまけにカジノで外国人の賭博場を許可して外国人の犯罪グループの流入を促進

原発事故も安倍晋三の「電源喪失はない」発言から発生したものであり
安倍晋三が原発事故発生の真犯人だった

ただこれらの事実を隠しているだけ
それを主導しているのはご存知の電通でオリンピック利権や数々の不正などと深い関わりがある

どこにも評価すべきところがなく
まさに見せかけの保守で実際には民主以下の売国奴と言っても過言ではない
0136卵の名無しさん
垢版 |
2019/12/09(月) 22:34:45.88ID:/o7yN/Xd
>>134
これな！

不朽の名投稿
>>
私は昭和の時代に大学受験したけど、昔は今よりも差別感が凄く、特殊民のための特殊学校というイメージで開業医のバカ息子以外は誰も受験しようとすらしなかった。
常識的に考えて、数千万という法外な金を払って、しかも同業者からも患者からもバカだの裏口だのと散々罵られるのをわかって好き好んでド底辺医に行く同級生は一人もいませんでした。
本人には面と向かっては言わないけれど、俺くらいの年代の人間は、おそらくは８−９割はド底辺医卒を今でも「何偉そうなこと抜かしてるんだ、この裏口バカが」と心の底で軽蔑し、嘲笑しているよ。
当の本人には面と向かっては絶対にそんなことは言わないけどね。
<<

東京医大の事件は裏口入学が現在進行形であること如実にしめした事件だよね。
シリツ医の使命は裏口入学撲滅国民運動の先頭に立つことだよ。
裏口入学の学生を除籍処分にしないかぎり、信頼の回復はないね。つまり、いつまで経ってもシリツ医大卒＝裏口バカと汚名は拭えない。
シリツ出身者こそ、裏口入学に厳しい処分せよを訴えるべき。
裏口入学医師の免許剥奪を！の国民運動の先頭に立てばよいぞ。
僕も裏口入学とか、言ってたら信頼の回復はない。
0137卵の名無しさん
垢版 |
2019/12/09(月) 23:15:59.63ID:/o7yN/Xd
>>119
数学板に書いたら解析解の投稿があってシミュレーション解が近似していたので正しいプログラムと確信できた。
0139卵の名無しさん
垢版 |
2019/12/10(火) 07:52:58.62ID:k/8kaoYw
"
[x]でxを超えない最大の整数を表す。
Nを自然数の定数とし、数列a(n)を以下のように定める。

a(0)=N
a(n+1)=a(n)+1-[a(n)/2]

（1）lim[n→∞] a(n)　は収束することを示せ。

（2）Nの値により、n→∞でのa(n)の極限値が変化するかを判定せよ。
（変化する場合、各極限値に対応するNを具体的に記述しなくてよい）
"

nmax=1e3
N=sample(1:nmax,1)
a=numeric(nmax)
a[1]=N
for(i in 1:(nmax-1)) {
a[i+1]=a[i] + 1 -floor(a[i]/2)
}
tail(a)
plot(a,bty='l',type='l')
0141卵の名無しさん
垢版 |
2019/12/10(火) 09:24:44.90ID:2lYn70em
>>139
f <- function(N,nmax=1e3){
# N=sample(1:nmax,1)
a=numeric(nmax)
a[1]=N
for(i in 1:(nmax-1)) {
a[i+1]=a[i] + 1 -floor(a[i]/2)
}
all(tail(a)==3)
}
vf=Vectorize(f)
vf(1:2)
all(vf(3:1e4))
0142卵の名無しさん
垢版 |
2019/12/10(火) 10:48:39.30ID:2lYn70em
こういう問題にすると味気ないな。やっぱり、ド底辺シリツ医の裏口入学確率の方が興味深い。

（問）　表の出る確率がpの歪（いびつ）なコインを100回投げたときに表が連続した数の最大値が4であった場合のｐの期待値・モード値と95％信頼区間を求めよ。

ｐの確率密度関数を図示すると
https://i.imgur.com/3JwdM8g.jpg

検索すれば答えられるような問題って楽しくないね。

確率とか場合の数は正しいかどうかなかなか確信がもてないが
シミュレーション結果と解析結果が近似することで確信度が増す。
コンピュータ解を数学板に上げると顰蹙を買うのが欠点ではあるけど。

??? ???? ?? ?????, ??? ??????? ????? ?? ??????????: ? ?????, ?????? ???????? ????? ???? ??? ??????????? ????????????????? ??? ????????? ?:

???? ??????

??????????????? ? p- ? ??????????????? ???????? ???????????
https://i.imgur.com/3JwdM8g.jpg

?????????, ????? ?????? ? ?????????? ????????, ???????? ???:

?? ????? ???, ?? ????????????????? ? ??????? ?????? ???? ??,
????????????? ???????? ?, ??? ????????????? ???????????? ? ????????????? ???????????? ???????? ??:
?????? ????? ?????????? ?, ??? ????????????? ??????? ?? ????????????? ??????? ??? ????:
0143卵の名無しさん
垢版 |
2019/12/10(火) 10:52:45.73ID:2lYn70em
シリツ医大卒ってこういう問題さえできないと思う。

（問）　表の出る確率が0.5のコインを100回投げたときに表が連続した数の最大値が4である確率を求めよ。
0144卵の名無しさん
垢版 |
2019/12/10(火) 11:22:32.04ID:2lYn70em
公式行事に参加した国の功労者を公表できない

この時点でおかしいんだけどな
むしろ公表して国民に知らしめるべきじゃん
元々永久保存版だったのはそういう事でしょ？

桜を見る会に関して安倍政権擁護できる部分が見つからないわ
0145卵の名無しさん
垢版 |
2019/12/10(火) 11:32:18.69ID:2lYn70em
こういう問題にすると味気ないな。やっぱり、ド底辺シリツ医の裏口入学確率の方が興味深い。

（問）　表の出る確率がpの歪（いびつ）なコインを100回投げたときに表が連続した数の最大値が4であった場合のｐの期待値・モード値と95％信頼区間を求めよ。

ｐの確率密度関数を図示すると
https://i.imgur.com/3JwdM8g.jpg

検索すれば答えられるような問題って楽しくないね。

確率とか場合の数は正しいかどうかなかなか確信がもてないが
シミュレーション結果と解析結果が近似することで確信度が増す。
コンピュータ解を数学板に上げると顰蹙を買うのが欠点ではあるけど。
0146卵の名無しさん
垢版 |
2019/12/10(火) 16:47:30.26ID:k/8kaoYw
第二次世界大戦は、英仏の保障したポーランドの独立がナチスドイツに侵されたことが原因で始まった。
しかし大戦に勝利したものの、ポーランドはスターリンの手に落ちたのである。太平洋方面の戦いは、中国から日本を撤退させることであった。それがハル・ノートの対日要求だった。
ところが中国も共産化した（一九四九年）。要するに、英米仏の若者は両国の共産化のために戦ったのである。
0147卵の名無しさん
垢版 |
2019/12/10(火) 19:13:40.04ID:k/8kaoYw
フーバー回想録の訳者による解説本を読了。
ポツダム宣言と原爆投下と時系列を理解してなかった安倍のアホさ加減を再認識した。
0149卵の名無しさん
垢版 |
2019/12/10(火) 20:33:48.41ID:k/8kaoYw
>>145
# After N coin flips, more than K sequential heads appear
seqNp <- function(N=100,K=5,p=0.5){
if(p==0) return(0)
if(N==K) return(p^K)
q=1-p
a=numeric(N) # a(n)=P0(n)/p^n , P0(n)=a(n)*p^n
for(i in 1:K) a[i]=q/p^i # P0(i)=q
for(i in K:(N-1)){ # recursive formula
a[i+1]=0
for(j in 0:(K-1)){
a[i+1]=(a[i+1]+a[i-j])
}
a[i+1]=q/p*a[i+1]
}
P0=numeric(N)
for(i in 1:N) P0[i]=a[i]*p^i # P0(n)=a(n)*p^n
MP=matrix(rep(NA,N*K),ncol=K)
colnames(MP)=paste0('P',0:(K-1))
MP[,'P0']=P0
MP[1,'P1']=p
for(i in (K-2):K) MP[1,i]=0
for(k in 2:K){
for(i in 1:(N-1)) MP[i+1,k]=p*MP[i,k-1]
} # Pk(n+1)=p*P(k-1)(n)
ret=1-apply(MP,1,sum)
ret[N]
}

# Maximum sequential head is K
seqNpJ <- function(N,K,p) seqNp(N,K,p)-seqNp(N,K+1,p)
seqNpJ(100,4,0.5)
0150卵の名無しさん
垢版 |
2019/12/10(火) 20:35:52.93ID:k/8kaoYw
> seqNpJ(100,4,0.5)
[1] 0.1626054

## simulation
N=100
K=4
p=0.5
sK=paste(rep("1",K),collapse="")
sK1=paste0(sK,"1",collapse="")
sim <- function(){
a=paste(rbinom(N,1,p),collapse="") # vector -> string c(1,0,1,0,1) -> "10101"
grepl(sK,a) & ! grepl(sK1,a)
}
mean(replicate(1e6,sim()))
0151卵の名無しさん
垢版 |
2019/12/10(火) 20:38:38.72ID:k/8kaoYw
100万回のシミュレーション
> mean(replicate(1e6,sim()))
[1] 0.162327

漸化式での計算値
> seqNpJ(100,4,0.5)
[1] 0.1626054

まあ、近似しているから多分あっていると思う。
0152卵の名無しさん
垢版 |
2019/12/11(水) 12:11:29.36ID:yG/m9BYd
皇后雅子のボディーは若い頃から
おれを熱くしていた…ああ、雅子の尻！
ふともも、ふくらはぎ…どれをとっても
絶品だぜ…あんた！
0153卵の名無しさん
垢版 |
2019/12/11(水) 12:12:46.46ID:yG/m9BYd
さあ雅子、お知りをこちらに
向けてごらん
いいぞ、ぷりぷりだぜ
フフフフフフフフフ…
0154卵の名無しさん
垢版 |
2019/12/11(水) 12:16:20.40ID:yG/m9BYd
雑誌に掲載してある雅子写真は
宮内庁の検閲が入るから例えばピップラインを
強調したものとかは出ない
だがこれが一般人がネットに蒔いたものは
違う、たまにお宝ショットがあるぜ
オレのチンポを熱くさせるのさ
フフフフフフフフ
0155卵の名無しさん
垢版 |
2019/12/11(水) 12:30:31.28ID:toBnQke4
まさやんはソンテジャクの子供だし
朝鮮耳だし
ペットは珍島犬だし
天皇家いっかだんらん韓国花むくげだし
朝鮮人以外あり得るか？w
0156卵の名無しさん
垢版 |
2019/12/11(水) 13:07:00.25ID:3K2Oo2I6
村田良平回想録 下巻?祖国の再生を次世代に託して

何処へ行くのか、この国は―元駐米大使、若人への遺言
0157卵の名無しさん
垢版 |
2019/12/11(水) 13:10:11.47ID:3K2Oo2I6
ヴェノナ文書とかフーバー回想録を読むと

スターリンの狡猾さに感服せざるを得ないな。

スターリンと比べるとルーズベルトは犬猫の頭脳、安倍にあってはミジンコの頭脳に思えてくる。
0158卵の名無しさん
垢版 |
2019/12/11(水) 13:11:38.66ID:3K2Oo2I6
中韓と左翼をディスって悦に言っているアホこそが売国奴。

核武装なしでは独立国家とは言えない。
0159卵の名無しさん
垢版 |
2019/12/11(水) 15:06:28.92ID:3K2Oo2I6
冷戦終結後の世界を予測した「文明の衝突」よりも
冷戦終結前に書かれた「日本よ国家たれ、核の選択」が読まれるべきだと思うんだが、入手困難だな。
0161卵の名無しさん
垢版 |
2019/12/11(水) 16:34:41.41ID:3K2Oo2I6
>>160
核武装した反日統一朝鮮成立前に核武装することが必要。

アメリカは戦後、天皇の存続を許しながら共産主義者による天皇攻撃を認めつつ自首防衛能力（核武装）の保有を禁じた。
0162卵の名無しさん
垢版 |
2019/12/11(水) 17:13:57.60ID:Nu5D9eLU
おれの頭のなかにある雅子回想録を読むと
いちばん雅子がむちむちボディーだった頃は
妊娠前あたりだという記載がある
産後太りとは違って実に食べ頃であった
0163卵の名無しさん
垢版 |
2019/12/11(水) 17:17:03.89ID:Nu5D9eLU
いや、その後の熟女化ボディーの雅子も
ばっちり興奮するんだ
写真1枚でおれをあくなき想像へと
いざなってくれる雅子ボディー！
0164卵の名無しさん
垢版 |
2019/12/11(水) 17:19:30.61ID:Nu5D9eLU
さあ雅子、来てごらん
パンティーをこっちに出すんだ
さあ、さあ！
パンティー…雅子のパンティー！
0166卵の名無しさん
垢版 |
2019/12/11(水) 23:44:45.76ID:3K2Oo2I6
max.seq1 <- function(coin){ #0,1からなる 数列 coin の 連続する1の最大数を返す
r=rle(coin)
max(r$len[which(r$val==1)])
}
max.seq1(rbinom(100,1,0.5))
0167卵の名無しさん
垢版 |
2019/12/11(水) 23:49:07.52ID:3K2Oo2I6
数学板でのスクリプトを改変

原理は
> coinの表裏を1と0で表して、その累積和を取ったベクトルを用意して
> そのベクトルの5個前とのdiffの要素の中に5が一回でも現れることが、
> 一回でも5回連続で表が出たことがあることの必要十分条件

search.seq <- function(coin,K=5){　# coin列にK個以上の１が並ぶかどうかをT/Fで返す
coincumsum <- cumsum(coin)
coindiff <- diff(coincumsum,lag=K)
any(coindiff==K)
}
search.seq(rbinom(100,1,0.5))
0168卵の名無しさん
垢版 |
2019/12/12(木) 00:00:12.90ID:LPkJY8vW
>>166
これでシミュレーション

max.seq1 <- function(coin){ # 連続する1の最大数を返す
r=rle(coin)
max(r$len[which(r$val==1)])
}
max.seq1(rbinom(100,1,0.5))

sim1 <- function(N=100,K=4,p=0.5){
a=rbinom(N,1,p)
max.seq1(a)==K
}
mean(replicate(1e6,sim1()))

> mean(replicate(1e6,sim1()))
[1] 0.162345
0169卵の名無しさん
垢版 |
2019/12/12(木) 00:19:31.89ID:LPkJY8vW
>>167
これでシミュレーション

search.seq <- function(coin,K=5){ # max 1 seq >= K?
coincumsum <- cumsum(coin)
coindiff <- diff(coincumsum,lag=K)
any(coindiff==K)
}
search.seq(rbinom(100,1,0.5),4)

is.maxK <- function(x,K=4) search.seq(x,K) & !search.seq(x,K+1) # max 1 seq == K?
is.maxK(rbinom(100,1,0.5))
#
sim2 <- function(N=100,K=4,p=0.5){
coin=rbinom(N,1,p)
is.maxK(coin)
}
mean(replicate(1e6,sim2()))

> mean(replicate(1e6,sim2()))
[1] 0.164441
0171卵の名無しさん
垢版 |
2019/12/12(木) 07:23:50.79ID:LPkJY8vW
>>118
a=rbinom(20,1,prob=4/6)
にしても速度あまり変わらなかったな。
0172卵の名無しさん
垢版 |
2019/12/12(木) 07:42:05.92ID:LPkJY8vW
#
s1="10111"
s2="010111"
s3="011111"

sim2 <- function(){
c=paste(as.character(rbinom(20,1,prob=2/6)),collapse="")
res=c(grepl(s1,c),grepl(s2,c), grepl(s3,c))
return(res)
}
k=1e6
re=replicate(k,sim2())
mean(re[1,])
mean(re[2,])
mean(re[3,])

> mean(re[1,])
[1] 0.124831
> mean(re[2,])
[1] 0.081102
> mean(re[3,])
[1] 0.040673
0173卵の名無しさん
垢版 |
2019/12/12(木) 09:52:16.83ID:rkviXNvO
is.max1K <- function(coin,K=5){ # max 1 seq == K?
coincumsum <- cumsum(coin)
coindiff <- diff(coincumsum,lag=K)
K %in% coindiff & !((K+1) %in% coindiff)
}

is.max1K(rbinom(100,1,0.5))
0174卵の名無しさん
垢版 |
2019/12/12(木) 11:49:23.13ID:Fv+1R6H9
　　　　　　　／::::::::ソ:::::::::　:゛'ヽ
　　　　　　/:::::::-、:::i´i|::|/:::::::::::ヽ
　　　　　/::::::,,、ミ"ヽ｀　"゛　/ ::::ヽ
　　　　/::::::==　　　　　　　　`-:::::::ヽ
　　　　l::::::::／⌒''ヽ,,,)ii(,,,ｒ''''''、l:::::::l
　　　. 」::::::l゛ ／･＼,!.／･＼　　l::::::!
　　　　.|`:::|　:⌒ノ/..　i＼⌒　　|:::::i
　　　　 (i ″　　　,ィ____.i i　　　i //
　　　　　ヽ i　　　/　 l　　.i　　 i /
　　　　　 　ヽ　ノiｌ´ﾄｪｪｪｲ｀ｌi　::/
　　　　　　　、ヽ !ｌ |,ｒ-ｒ-| ｌ!／
　　　／￣ ¨⌒ヽゝ. ｀ﾆﾆ´ノ　　´￣｀ヽ
　　 /　　j　　　　　 |李|　　　　　　　　!
　　 !　 /　　　　　　|晋|!.　　　　､/　　|
　　 l 　!　2:.　　　 └ ' 　　.:c::　 !　　 |
　　 |／/"　 　 　 　　　　　　 　 }　　 !
　／／ｌ　　　　　　　　　　　　　,′　 !
'´／ l　|　　　　　　　　　　 　　 ｲ　　.'
0175卵の名無しさん
垢版 |
2019/12/12(木) 11:54:29.57ID:BqVE6l4z
主治医の先生の言うこと聞いてるか？
0176卵の名無しさん
垢版 |
2019/12/12(木) 11:57:23.70ID:BqVE6l4z
まったくお前は進歩ねえな人生終わるぞw
0178卵の名無しさん
垢版 |
2019/12/12(木) 12:49:45.22ID:IVGqSU8k
　　　　　　　　　　　　　　　　　　　　　　__,,,,＿
　　　　　　　　　　　　　　 　　 　 　 ／´　　 　 ￣｀ヽ,　　　似非天皇 徳仁
　　　　　　 　　　 　　 　 　　　 　 / 〃　 _,ｧ---‐一ﾍヽ
　　　　　　　　　　　　　　　　　　 i　　／´　　　　　　 ﾘ}
　　　　　　　　　　　　 　　　 　　 | 　 〉. 　 -‐　　 '''ｰ {!　日本の未来をブッ壊す〜！
　　　　　　　　　　　　 　　　　 　 | 　 |　　 ‐ｰ　 くー　|
　　　　　　　 　 　　　 　　　　 　 ﾔヽﾘ　´ﾟ　 ,ｒ "_,,>､ ﾟ'｝　誰もが安倍朝鮮に殺られ
　　　　　　　　　　　　　　　　　　_｣ 　 　 ト‐＝‐ｧ'　!　　　る一億総奴隷社会に
　　　　　　　　/　 ヽ　　　　　　　　 ゝ i、 　 ` ｀二´' 丿
　　　　　　　　l　　　',　　　　　, -‐ｰノ､ ｀ '' ー--‐
　　＿.　　　　 l 　 　 ',　 ,-'"´　ヽ　　　＼　　　　　　l
　/　　｀`‐､　　',　　　 ',/,'´ヽ　　　＼　　 ｀ ‐ ､　 　　　ヽ､
　',　　　　　｀ ‐ ヽ 　　 ヽ￣ ＼...|||||||､　　`|||､　 |||||　 ,||||"＼
　 ｀‐､._　　　　　　｀ ‐　　｀､　　￣l.|||||､　　||||　 ||||　,|||"　,,;;＼
　　　　 ￣プ｀ ‐-'´　　　　 ヽ、　　l..｀!||||､　`|||,,,||||,,,|||" ,,;||||" l
　　 _,､- '´　 .ノ　　 ,-'´　　　　＼!||||||ii､　 `|||,,;||||||||||||||||||||"　,i
r'"´　　　, -'´　　ﾉ　／ l　　　　　..""''!!!||i;:|||||||||||||||||||||||||;ii|||!!!l
ヽ､＿ ／　 / - '´／　　/｀‐- ､._＿.,,,,,,,,,,,,,,,||||||||||||||||||||||||||||||||,,i
　　 ／　　/￣ヽ､＿__ノ　　　 l　.|||||!!!!!!""|||||||||||||||||||||||||||||||"!!!!!!i
　 く　　 ／　　　　　　　　　　　l .,,,,,,,;;iiii|||||||||||||||||||||||||||||iiii
0179卵の名無しさん
垢版 |
2019/12/12(木) 15:14:05.15ID:BqVE6l4z
通院はしてるんだろうな。仕事ができるようになったら一人前だぞ。頑張れよ。
0180卵の名無しさん
垢版 |
2019/12/12(木) 15:30:15.32ID:BqVE6l4z
お互い精神病は辛いよな。俺は地方の精神病院に通院している。統合失調症だってよ。入退院を繰り返してる。お前の苦しみもちょっとはわかる。一緒に前向きに生きて行こうぜ。いい事もあるはずだからよ。
0181卵の名無しさん
垢版 |
2019/12/12(木) 15:31:23.65ID:LPkJY8vW
可読性からはこれがいいな。


max.seq1 <- function(coin){ # 連続する1の最大数を返す
r=rle(coin)
max(r$lengths[which(r$values==1)])
}
max.seq1(rbinom(100,1,0.5))

sim1 <- function(N=100,K=4,p=0.5){
a=rbinom(N,1,p)
max.seq1(a)==K
}
mean(replicate(1e6,sim1()))
0182卵の名無しさん
垢版 |
2019/12/12(木) 15:46:44.11ID:BqVE6l4z
難しいことを知ってるんだな。偉いよ。でもよ　なにか仕事をしないと誰にも認められないんじゃないのかい？仕事は辛いけどよ俺はコンビニ弁当を作る仕事をしてる。オーナーがよくしてくれるから感謝してるよ。
0183卵の名無しさん
垢版 |
2019/12/12(木) 16:12:48.44ID:rcZCCG/C
“Those who would have us again go to war to save democracy might give a little thought to the likelihood that we would come out of any such struggle a despotism ourselves.”
0184卵の名無しさん
垢版 |
2019/12/12(木) 16:24:34.17ID:BqVE6l4z
英語ができるんだね。凄いよ　偉いよ。大学出てるの？
0186卵の名無しさん
垢版 |
2019/12/12(木) 17:03:14.36ID:BqVE6l4z
あ、ごめんごめん　やっぱり精神病はみんなに嫌われるんだな　悲しいけどそれが自然だよな。
0187卵の名無しさん
垢版 |
2019/12/12(木) 17:54:05.16ID:BqVE6l4z
しかし大卒はすごいよな。俺は高卒だから大卒はすごいよな。やっぱり相当勉強しないと大学に入れないもんな。俺は精神病になってからもう30年以上が経つよ。大卒は夢の世界だよな。
0188卵の名無しさん
垢版 |
2019/12/12(木) 18:14:28.02ID:BqVE6l4z
大学で4年頑張って勉強したら医者だもんな。医者は凄いな。尊敬するよ。俺の主治医も頭いいし優しいからスーパーマンだよな。
0190卵の名無しさん
垢版 |
2019/12/12(木) 18:43:32.65ID:BqVE6l4z
あんたは大卒かい？凄いな。偉いよ。でもよ仕事してないんだろ？やっぱり精神病のせいかい？お互いに辛いよな。
0191卵の名無しさん
垢版 |
2019/12/12(木) 20:39:24.37ID:rcZCCG/C
こっちの方が質疑応答もあって詳しい。
https://www.youtube.com/watch?v=kAou_I50qAM
Hooverは別に親日でもないが、ルーズベルトのやり方には批判的なので日本が平和志向に聞こえるな。
まあ、日本が講話を模索している時期の原爆投下も批判しているなぁ。
0192卵の名無しさん
垢版 |
2019/12/12(木) 21:31:44.36ID:mVRlFMt8
広島原爆は地上起爆日本製
その日県知事は逃げていた
わざわざ原爆周辺に学童を召集させて人体実験
信じられないだろうが事実だ
0194卵の名無しさん
垢版 |
2019/12/13(金) 11:59:32.37ID:UxSKsITW
↑時間の無駄ひとりよがり世間知らずバカ
0195卵の名無しさん
垢版 |
2019/12/13(金) 13:04:13.60ID:5DFwzU4Q
やっぱり確率計算をコンピュータで
モンテカルロシミュレーションできるのはのは
素晴らしい。
0196卵の名無しさん
垢版 |
2019/12/13(金) 14:31:29.83ID:FwU8VaMt
よう　元気かい？統合失調の俺だよ。凄いな　勉強できるんだな。さすが大卒は一味違うんだな。どこの大学を出てるんだい？その学力を生かして学習塾でも経営したら成功するんじゃね？成功したら大金持ちだな。応援するよ。
0197卵の名無しさん
垢版 |
2019/12/13(金) 14:44:14.44ID:FwU8VaMt
大卒はみんな学力が高いんだな。それだけでも素晴らしいことだよ。うらやましいよ。
0198卵の名無しさん
垢版 |
2019/12/13(金) 16:33:23.31ID:FwU8VaMt
医者板に参加すると自分の頭が良くなったような気になるな。医者になった気になるもんな。もちろん錯覚なんだが俺の主治医の先生にそれを話したらなんて言うかな？医者って頭が良すぎてスーパーマンみたいだな。カッコよくてうらやましいよ。
0199卵の名無しさん
垢版 |
2019/12/13(金) 17:22:34.73ID:U/Ck+cud
>>198

基礎学力の違いだよ。

これはシリツ医には無理だろうな。

ド底辺シリツ裏口調査団が100人を順次調査した。
裏口判明人数をそのまま公表はヤバすぎる結果であったため、
連続して裏口がみつかった最大数は4人であったとだけ公表した。
公表結果が正しいとして裏口入学人数の期待値、最頻値、及び95%信頼区間を述べよ。
0200卵の名無しさん
垢版 |
2019/12/13(金) 17:28:02.76ID:FwU8VaMt
素晴らしい！あなたは天才ですか？大学はどこですか？
0201卵の名無しさん
垢版 |
2019/12/13(金) 19:00:49.37ID:U/Ck+cud
>>193
虱潰しにカウントしようとしたら、メモリー不足になった。

> dice=permutations(6,20,rep=T)
Error: cannot allocate vector of size 14.9 Gb
■ このスレッドは過去ログ倉庫に格納されています
ニューススポーツなんでも実況