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

[表示 : 全て最新50 1-99 101- 201- 301- 401- 501- 601- 701- 801- 901- 1001- 2ch.scのread.cgiへ]
Update time : 01/03 18:37 / Filesize : 467 KB / Number-of Response : 1092
[このスレッドの書き込みを削除する]
[＋板最近立ったスレ＆熱いスレ一覧 : ＋板最近立ったスレ／記者別一覧] [類似スレッド一覧]


↑キャッシュ検索、類似スレ動作を修正しました、ご迷惑をお掛けしました

1 名前：卵の名無しさん mailto:sage [2020/06/15(月) 19:09:47 ID:jnY7bdq5.net]: タイトルまんまです

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

※前スレ
底辺私立医大を卒業した頭悪いよね？
egg.2ch.net/test/read.cgi/hosp/1472273747/
底辺私立医大を卒業した医者って頭悪いよね？ Part2
egg.2ch.net/test/read.cgi/hosp/1520807375/
底辺私立医大を卒業した医者って頭悪いよね？ Part3
egg.2ch.net/test/read.cgi/hosp/1522967067/
底辺私立医大を卒業した医者って頭悪いよね？ Part4
egg.2ch.net/test/read.cgi/hosp/1526677794/
底辺私立医大を卒業した医者って頭悪いよね？ Part5
egg.2ch.net/test/read.cgi/hosp/1529666055/
底辺私立医大を卒業した医者って頭悪いよね？ Part6
egg.5ch.net/test/read.cgi/hosp/1531305684/
底辺私立医大を卒業した医者って頭悪いよね？ Part7
egg.2ch.net/test/read.cgi/hosp/1532472024/
底辺私立医大を卒業した医者って頭悪いよね？ Part8
egg.2ch.net/test/read.cgi/hosp/1533510399/
底辺私立医大を卒業した医者って頭悪いよね？ Part9
egg.2ch.net/test/read.cgi/hosp/1535547275/
底辺私立医大を卒業した医者って頭悪いよね？ Part10
https://egg.2ch.net/test/read.cgi/hosp/1537867846/
底辺私立医大を卒業した医者って頭悪いよね？ Part11
https://egg.5ch.net/test/read.cgi/hosp/1544320163/
底辺私立医大を卒業した医者って頭悪いよね？ Part12
https://egg.5ch.net/test/read.cgi/hosp/1550969602/
底辺私立医大を卒業した医者って頭悪いよね？ Part13
https://egg.5ch.net/test/read.cgi/hosp/1575242106/
底辺私立医大を卒業した医者って頭悪いよね？ Part14
https://egg.5ch.net/test/read.cgi/hosp/1578616997/
底辺私立医大を卒業した医者って頭悪いよね？ Part15
https://egg.5ch.net/test/read.cgi/hosp/1584050953/
底辺私立医大を卒業した医者って頭悪いよね？ Part16
https://egg.5ch.net/test/read.cgi/hosp/1587907116/
609 名前：卵の名無しさん mailto:sage [2020/09/04(金) 08:36:19.68 ID:Si7GUsDW.net]: > f(Box=3,Sum=9)
[,1] [,2] [,3]
[1,] 7 1 1
[2,] 6 2 1
[3,] 6 1 2
[4,] 5 3 1
[5,] 5 2 2
[6,] 5 1 3
[7,] 4 4 1
[8,] 4 3 2
[9,] 4 2 3
[10,] 4 1 4
[11,] 3 5 1
[12,] 3 4 2
[13,] 3 3 3
[14,] 3 2 4
[15,] 3 1 5
[16,] 2 6 1
[17,] 2 5 2
[18,] 2 4 3
[19,] 2 3 4
[20,] 2 2 5
[21,] 2 1 6
[22,] 1 7 1
[23,] 1 6 2
[24,] 1 5 3
[25,] 1 4 4
[26,] 1 3 5
[27,] 1 2 6
[28,] 1 1 7
610 名前：卵の名無しさん mailto:sage [2020/09/04(金) 10:52:06 ID:demBzrfz.net]: エロ夫妻は同伴で最近パーティに出席し、そこには他の3組の夫婦が同伴で出席していた。いろいろな人々の間で接吻が行われた。
どの人も自分の同伴者とは接吻をせず、どの人も同じ人と2度以上は接吻をせず、また当然だが、誰も自分自身とは接吻をしなかった。
接吻をしたあと、エロ氏は彼の妻を含めた各人に、他人と何回接吻をしたかと尋ねた。驚いたことには、どの人も異なる回数を答えた。
さて、エロ夫人は何回接吻をしただろうか。
611 名前：卵の名無しさん mailto:sage [2020/09/04(金) 12:44:15 ID:demBzrfz.net]: >>568
n=8
(co=combn(n,2)) # 8人から2人選ぶ
(pair=co[,-c(1,14,23,28)]) #(1,2),(3,4),(5,6),(7,8)は除外して24通り
# 2^24=16777216通りの組み合わせ
f <- function(num,digit=24){ # numを24桁の2進数で表示
N=2
r=num%%N
q=num%/%N
while(q > 0 | digit > 1){
r=append(q%%N,r)
q=q%/%N
digit=digit-1
}
shake=numeric(n) # 握手した人数の数列 1:イナ氏　2:イナ夫人
612 名前： for(i in 1:n) shake[i]=sum(r[pair[1,]==i | pair[2,]==i]) if(all(0:7 %in% shake[-1])){　#イナ氏以外の握手人数がすべて異なれば return(shake[2]) #イナ夫人の握手人数を返す } } y=sapply(0:(2^24-1),f) y []: [ここ壊れてます]
613 名前：卵の名無しさん mailto:sage [2020/09/04(金) 12:57:16 ID:demBzrfz.net]: rm(list=ls())
library(gtools)
pm=permutations(2,24,0:1,rep=TRUE)
n=8
co=combn(n,2)
pair=co[,-c(1,14,23,28)]
g <- function(r){
shake=numeric(n)
for(i in 1:n) shake[i]=sum(r[pair[1,]==i | pair[2,]==i])
all(0:7 %in% shake[-1])
}
y=apply(pm,1,g)
pm[y,][,1:2]
614 名前：卵の名無しさん mailto:sage [2020/09/04(金) 14:42:47 ID:demBzrfz.net]: >>568
rm(list=ls())
n=8
(co=combn(n,2)) # 8人から2人選ぶ
(pair=co[,-c(1,14,23,28)]) #(1,2),(3,4),(5,6),(7,8)は除外して24通り
# 2^24=16777216通りの組み合わせ
library(gtools)
pm=permutations(2,24,0:1,rep=TRUE)
n=8
g <- function(r){
shake=numeric(n)
for(i in 1:n) shake[i]=sum(r[pair[1,]==i | pair[2,]==i])
all(0:6 %in% shake[-1])
}
y=apply(pm,1,g)
(yi=which(y))
# demo
rbind(pair,pm[yi[1],])

SHAKES=NULL
for(j in 1:length(yi)){
zj=rbind(pair,pm[yi[j],])
shake=numeric(n)
for(i in 1:n) shake[i]=sum(zj[3,][pair[1,]==i | pair[2,]==i])
SHAKES=rbind(SHAKES,shake)
}
rownames(SHAKES)=NULL
SHAKES
615 名前：卵の名無しさん mailto:sage [2020/09/04(金) 18:26:13 ID:Si7GUsDW.net]: エロ夫妻は同伴で最近パーティに出席し、そこには他の3組の夫婦が同伴で出席していた。いろいろな人々の間で合体が行われた。
どの人も自分の同伴者とは合体をせず、どの人も同じ人と2度以上は合体をせず、また当然だが、誰も自分自身とは合体をしなかった。
合体をしたあと、エロ氏は彼の妻を含めた各人に、他人と何回合体をしたかと尋ねた。驚いたことには、どの人も異なる回数を答えた。
さて、エロ夫人は何回合体をしただろうか。
616 名前：卵の名無しさん mailto:sage [2020/09/04(金) 18:26:50 ID:Si7GUsDW.net]: rm(list=ls())
n=8
(co=combn(n,2)) # 8人から2人選ぶ
(pair=co[,-c(1,14,23,28)]) #(1,2),(3,4),(5,6),(7,8)は除外して24通り
# 2^24=16777216通りの組み合わせ
library(gtools)
pm=permutations(2,24,0:1,rep=TRUE) # pairが握手をしたかの数列
n=8
g <- function(r){
shake=numeric(n) # 握手した人数の数列
for(i in 1:n) shake[i]=sum(r[pair[1,]==i | pair[2,]==i])
all(0:6 %in% shake[-1]) # 握手した人数が異なるか
}
y=apply(pm,1,g)
(yi=which(y)) # 48通り
# demo
demo <- function(k=sample(48,1),CEX=3){
(y1=rbind(pair,pm[yi[k],]))
plot(y1[1,],y1[2,],xlim=c(1,8),ylim=c(1,8),bty='l',ann=F,
pch=ifelse(y1[3,]==1,'○','×'),cex=CEX)
points(y1[2,],y1[1,],
pch=ifelse(y1[3,]==1,'○','×'),cex=CEX)
points(1:8,1:8,pch='×',cex=CEX)
points(c(1,3,5,7),c(2,4,6,8),pch='×',cex=CEX)
points(c(2,4,6,8),c(1,3,5,7),pch='×',cex=CEX)
}
617 名前：卵の名無しさん mailto:sage [2020/09/04(金) 18:26:55 ID:Si7GUsDW.net]: layout(1); demo()
par(mfrow=c(4,4))
for(k in 1:16) demo(k,1.5)
for(k in 17:32) demo(k,1.5)
for(k in 33:48) demo(k,1.5)
layout(1)
#
SHAKES=NULL
for(j in 1:length(yi)){
zj=rbind(pair,pm[yi[j],])
shake=numeric(n)
for(i in 1:n) shake[i]=sum(zj[3,][pair[1,]==i | pair[2,]==i])
SHAKES=rbind(SHAKES,shake)
}
rownames(SHAKES)=NULL
SHAKES
618 名前：卵の名無しさん mailto:sage [2020/09/05(土) 20:06:27 ID:u/h3SJdP.net]: 中学入試の方が医師国家試験より圧倒的に難しいなぁ。

同じ大きさのコインが10枚あり，9枚は鎖状につながって並んでいます。図のように，
コインCを9枚のコインのまわりをすべることなく回転させます。ただし，その途中で9枚全部に接していきます。
一周してもとの位置にもどるまでに，コインCは何回転するでしょうか。
sansuu.ciao.jp/essei/img43/image75[1].jpg
619 名前：卵の名無しさん mailto:sage [2020/09/06(日) 05:40:15 ID:JXzncR7v.net]: 同じ大きさのコインが10枚あり，9枚は鎖状につながって並んでいます。
図のように，コインCを9枚のコインのまわりをすべることなく回転させます。
ただし，その途中で9枚全部に接していきます。
一周してもとの位置にもどるまでに，コインCは何回転するでしょうか。

https://i.imgur.com/urVrSjo.jpg
620 名前：卵の名無しさん mailto:sage [2020/09/06(日) 14:45:55 ID:F509BYKQ.net]: こうやってまとめると、安倍政権って菅直人以後の民主党政権の延長だな。

https://i.imgur.com/JZAZ0Jk.jpg
621 名前：卵の名無しさん mailto:sage [2020/09/06(日) 17:18:11.79 ID:F509BYKQ.net]: 図のように半径2cmの円が6個あります。となり合う円はすべてぴったりとくっついているとします。周りにひもをたるまないようにかけました。
このひもの長さを求めなさい。

sansuu.ciao.jp/essei/img43/image89[1].jpg
622 名前：卵の名無しさん mailto:sage [2020/09/06(日) 18:24:05.90 ID:F509BYKQ.net]: 有事に仮病で逃げた首相、、、

【あれぇ？おかしいぞ】

6月13日

定期検診で潰瘍性大腸炎が再発
https://www.tokyo-np.co.jp/article/51755?rct=politics

↓

6月19日

安倍首相、ステーキ馬鹿食い
https://www.fnn.jp/articles/-/77180

その会食とは６月19日の夜に都内のホテルで行われた、安倍首相・麻生副総理・菅官房長官と甘利氏の4人での会合だ。
甘利氏はこんな裏話を披露した。

安倍首相との会食・6月19日
「最後の方にステーキが出たんですよね。（安倍首相は）ものすごい食欲があって出された肉はきれいに平らげられていました。
私はだいたい食べてるうちに『もういいかな』ってなるんですけれども。
総理と今まで何度も会食でご一緒しましたけれど、肉が出たら全部平らげますね」
623 名前：卵の名無しさん mailto:sage [2020/09/06(日) 22:47:38 ID:F509BYKQ.net]: library(gmp)
n=as.bigz(1476250)
ans=NULL
while(n<1e7){
m=as.bigz(1+3^n)
if((m%%n)==0){
print(n)
ans=append(ans,n)
}
n=n+10
}
ans
624 名前：卵の名無しさん mailto:sage [2020/09/06(日) 23:57:22 ID:F509BYKQ.net]: #include <stdio.h>
int main()
{
long a,b,c,d;
for(a=1000000;a<=10000000;a++){
for(b=a,c=3,d=1;b>0;b=b/2){
if (b%2 ==1) d = (d*c) % a;
c=(c*c) % a;
}
if (d + 1 == a){
printf("%d\n",a);
}
}
printf("done\n");
}

f <- function(lo=1,up=1e4){
a=lo
while(a<=up){
b=a
c=3
d=1
while(b>0){
if((b%%2)==1) d=(d*c)%%a
c=(c^2)%%a
b=b/2
}
if((d+1)==a) print(a)
a=a+1
}
}
f()
625 名前：卵の名無しさん mailto:sage [2020/09/06(日) 23:57:42 ID:F509BYKQ.net]: #include <stdio.h>
int main()
{
long a,b,c,d;
for(a=1000000;a<=10000000;a++){
for(b=a,c=3,d=1;b>0;b=b/2){
if (b%2 ==1) d = (d*c) % a;
c=(c*c) % a;
}
if (d + 1 == a){
printf("%d\n",a);
}
}
printf("done\n");
}

f <- function(lo=1,up=1e4){
a=lo
while(a<=up){
b=a
c=3
d=1
while(b>0){
if((b%%2)==1) d=(d*c)%%a
c=(c^2)%%a
b=b/2
}
if((d+1)==a) print(a)
a=a+1
}
}
f()
626 名前：卵の名無しさん mailto:sage [2020/09/07(月) 00:33:12 ID:dWMeeyoQ.net]: f <- function(lo=1,up=1e7,by=1){
for(a in lo:up){
b=a; c=3; d=1
while(b>0){
if((b%%2)==1) d=(d*c)%%a
c=(c*c)%%a
b=b%/%2
}
if((d+1)==a) cat(a,'\n')
a=a+by
}
}
f(1,10000)
f(10,1e8,10)
627 名前：卵の名無しさん mailto:sage [2020/09/07(月) 00:41:01.92 ID:dWMeeyoQ.net]: # 自然数nで「1+3^n は nで割り切れる」を満たすものはすべて分かりますか？
rm(list=ls())
library(gmp)
n=as.bigz(1)
ans=NULL
while(n<1e5){
m=as.bigz(1+3^n)
if((m%%n)==0){
print(n)
ans=append(ans,n)
}
n=n+1
}
ans

# 謎のアルゴリズム

f <- function(lo=1,up=1e7,by=1){
for(a in lo:up){
b=a; c=3; d=1
while(b>0){
if((b%%2)==1) d=(d*c)%%a
c=(c*c)%%a
b=b%/%2
}
if((d+1)==a) cat(a,'\n')
a=a+by
}
}
f(1,10000)
# 10の倍数らしいので
f(10,1e8,10)
628 名前：卵の名無しさん mailto:sage [2020/09/07(月) 06:12:35 ID:dWMeeyoQ.net]: # if((1+3^a) %% a == 0) print(a)
fn <- function(a,print=F){
b=a; c=3; d=1
while(b>0){
if(print) print(c(b,c,d))
if((b%%2)==1) d=(d*c)%%a
c=(c*c)%%a
b=b%/%2
}
if((d+1)==a) {
if(print) print(c(b,c,d))
cat(a,'\n')
}
}

fn(50,T)
629 名前：卵の名無しさん mailto:sage [2020/09/08(火) 11:47:06 ID:H7ii0TXv.net]: 日本の医療レベルが低いってことか？

862 卵の名無しさん 2020/09/07(月) 12:29:41.15 ID:hUXvwdzt
日本は昨日までコロナでの死者数が1357人で、韓国は334人、中国は4634人…
韓国と比べて人口は約2.4倍なのに死者数が4.1倍、中国の人口の9%なのに死者数が29.2%でダメだな
630 名前：卵の名無しさん mailto:sage [2020/09/08(火) 13:53:50 ID:H7ii0TXv.net]: dアカウントは複アカ作り放題
dアカウントと口座との紐付けに本人確認がない
勝手に作られたdアカに口座紐付けされて引き出されてる。
631 名前：卵の名無しさん mailto:sage [2020/09/08(火) 14:11:51 ID:xp2Wn7TU.net]: 【NTTドコモ】中国銀行でも #ドコモ口座を利用した不正利用が発生 [WATeR★]
https://asahi.5ch.net/test/read.cgi/newsplus/1599493554/333

333 名前：不要不急の名無しさん[] 投稿日：2020/09/08(火) 02:32:29.51 ID:4j6hyZlO0
>>234
1. 口座番号のリストを作成する(銀行によっては作成順の連番？)
2. 口座番号をもとに、振り込み処理を途中まで掛けて氏名を確認
3. ↑で確認した氏名でdアカウントを作成
4. dアカウントに口座番号、氏名、固定の暗証番号(0101 とか)で登録をトライ

これを1万アカウント繰り返したら…

ドコモの本人確認が甘いのと、地銀のセキュリティ対応が甘いところを突いてる。
生年月日や登録電話番号なりで多要素認証がある銀行には通用しないよ。
632 名前：卵の名無しさん mailto:sage [2020/09/08(火) 20:36:53.57 ID:H7ii0TXv.net]: 最近、通
633 名前：帳やキャッシュカードのコピーを添付して、氏名や生年月日をどこかに伝えませんでしたか？ []: [ここ壊れてます]
634 名前：卵の名無しさん mailto:sage [2020/09/09(水) 07:15:06 ID:kxoN9z33.net]: 暗証番号抜かれてもキャッシュカードや通帳は盗まれてないから平気と思ってたらキャッシュカードもどきをドコモが提供していた。

最近、通帳・キャッシュカード・免許証のコピーを添付して、
氏名や生年月日をどこかに伝えませんでしたか？
635 名前：卵の名無しさん mailto:sage [2020/09/09(水) 23:13:30 ID:kxoN9z33.net]: https://www.jp-bank.japanpost.jp/tetuzuki/download/pdf/sokujifurikaehaishi_docomokouza.pdf
636 名前：卵の名無しさん mailto:sage [2020/09/10(木) 01:28:44 ID:1su+rdtU.net]: 銀行窓口でWeb口座振替受付サービスの停止手続き
637 名前：卵の名無しさん mailto:sage [2020/09/10(木) 06:50:24.14 ID:F+w+DraO.net]: 自分の口座から引き落とし契約されている対象のサービスリストが
なぜ金を払ってる本人に提示されないのかがわからん
どんな理由で非公開なんだ
こんなもん銀行サイトのマイページに普通に掲載してていいめっちゃ基本情報なのに
それ掲載したら一体どんな不都合があるんだ。
638 名前：卵の名無しさん mailto:sage [2020/09/10(木) 14:01:37 ID:F+w+DraO.net]: Dux8sUjezkRK4t0E1qWdce8od8t674zQJ6LF7Hq1B5mb3M6UkJXKzHp3LhteyQRGUG2bqZmlVrEyjofViZoTO2m7fwJUokuNJ1OdvYUvQG2FTbif1jAnuhpebinmw71UJgoA1T5Q9dpqduMsZFRP3ZsXHSIa5n6jC7r92NDX5aYf2jabDbCiUoojR2ddnmn2TgjTvcTyHQq4yJacPtGs9SOQfPjCBn2QQCgZX0sKQZdTUKx6oY6MJWJrbitORoNbmvCtPDGTescHSWfPkT3buydBOA7ijY9c5deh0mcMTCo13urKc4bpDYA0JDnz4u6WbmtspwhAYpixuhiNlDFEE6MaF5vmueqwyavH1XwWicxBd6TuYU1s88WVLZ7ygQOqomafg6o65kfdsbRo2unuAWSXyuhd1iYbYmrsNGPQnwgUUrBIB5IiV4qkF6zW5t5dnhtYIENokZsgVre9R65nxqhClFfK0fvNlCI9XjcbhEmbmdn7fDFhx3PyyEJZB7oKGCWTFDJbhmcrRhAXX6XTl1QprrHBwwr8oKjKE2lQH5TUop4kILMJYd113BJvLUfVcW0Vrt26AgZ8BvWERmjoIBhld8yDSYRAdsZhoKy0YQZcnwEkeLE8ZurQTH8R9NwpeLfi7pRCWloS3T8qdUFPzKxduoohC8saGhUJ0WIC6iismxcWF9P46XtKpNfYTdRvmT0ZF1niYsOzIke0foq2WEW6zpJXNBCmyI9bTvO8dLeG8OgkYNKsdAnBJSAYXwAA7JT3qZCkJUdOuWEOeKkHWlZWWcypbMW8LqMNg0Gzly83FS5GU9Wd3Ldq1bJkzu5GmS88aCps19XjpHwd6a1GYiwSCFPvsmFj23taBv66eOIvqEVACmPDS0mmWuptvz4ALnvPBkBZlH7wbki7gybEczoYgC3bALf0gEcNotleTIx21SG3YSFNitZExyhPRcBT5anYO3ifruThSbylCj9i6vtlAwS3cHN8qp7bE47z
639 名前：卵の名無しさん mailto:sage [2020/09/10(木) 14:19:22 ID:F+w+DraO.net]: 1500桁のパスワード

zDcQsMwbarLQNVbaFCmwDiaKvH9q44IvGVsKUoCDO0Rs0DXjDOXLRY7PYUGqUerqyJ4OvPKZPIuWl6OIqs8ZSkZCwrc1IDHgDHVjqrsbj5XeKsAtMCp6133KRNUX8uoK7t6DKIQ0VoywgHVAsAKj3WZK5n8VZK44lFTELvbuC4aVVYkEEOmlXPGDoEfoJxDtIKloau20vo9QDuxu9s8UjezkRK2UtkERqWdmKhdrvWZfBQxmeIf0Th4GjzKdhAkudYynwhm2B8Knud81Ni3ZLCSl7a6eHYP6So2JWwK9UHwacjMjJISkjnu7E7Z3kBClXcg31WDwHYerWrY3FIbT6xz2sWxQBRdR4rpimaY7LZWjw9gTOTYKfAfFLCgC8bDeLD6CoMrFwCIQMsMUZgbEyCWxwGYesgY9D46mLR1fSRxBLbwDtOQiBnghxX3CwSrtd0SyERh1EuGgRfu6lRQRaGUppLorl2LlryuguVfCv2hwwDdoqNtUemzUc2cLSN9MEdwzGBzn0ZzmWeFZF6WCgnPJ3ZUbGcyI73vUjWKGuEqBB58FbRPXpzVbkcDHkZQmUaTF0x2NbO0Bo2cqUnOEm43a55FLCjhbxyyefqhP4KwR5krwduNDAzpEB57DmW5fvlS9XA2Sj90prdPn33by1P7ktUbPUCNB7aWahNcWeVJ8Vro9oeafzdXIaiR5uP5dbbyb24kYAsWqQgyhWaxL3X7obozw8PrPODYB3tXMCWU64b31hnMRoDowODano3UddCrg5d2yjT9qYwzyXaez87B8oVEVSCzw2mF1pDRNoimMUEFQkW3V3BS1zHWYdC4f1bpDlXbGMT75nis2k21b6o6NahWk2Yle6gbAwpbHDhnU30x9Ph6XLM7hFHsCGPqDxzTE3UmidnkX8E2qzcNH6ILmimXLlPMJClQwCnxHDBe7TSy22nClwYxQ2h2TAMWJha1xOHxTlCKWNtGpTMoSpYpvAUcBdcE6A5Awbqp4jbqukiDr4Tf69Kb5WEfRfn343L38svFO0Ylp7x6CwFdy8uUqFUz06yV3v5YDrIyuxBaLLAtxQ0DTbsHgxfQiePTpSEmmKxG4Saz9R3RfRdceY2GS7dc9GlAxP7tdz4y5qkEOfH2H4FRLw55z95PKosMJtlTC6zzXoSJBe9jcvqHqUyYDkg24HjtTj86uSpuvihX3xol4vJsIE2tfegsJW6EhqUeJL6CV17JPeFBaDqUqnAyysFJiHF7h43wyXMcXLQduwZBpqrGdzV6UlKhvice3qa6galoCYOGE2C2wpfOesqdRTW0w64mdktcp7JWirLGwY69FXr4Hc3mjXZn3k4Rdjr392WU
640 名前：38XXxUnBy1bPohAbUlVPU6AbaCurk3i00Gf2LRxs8zVXaBU8SZ270uqE10NKPvSpNj6be1ZaWZjlCupgQut3Dg6CDl0vO6hdpGMcrEGSPVtXxjYjtsG186xCEWZQNY4JdOF9Sev056BDkTWI2Q656 []: [ここ壊れてます]
641 名前：卵の名無しさん mailto:sage [2020/09/10(木) 14:19:51 ID:F+w+DraO.net]: random <- function(n=16,char=c(LETTERS,letters,0:9)){
rep=ifelse(n>length(char),TRUE,FALSE)
re=paste0(sample(char,n,replace=rep),collapse='')
cat(re,'\n')
invisible(re)
}
random(1500)
642 名前：卵の名無しさん mailto:sage [2020/09/10(木) 14:33:52.22 ID:F+w+DraO.net]: > random <- function(n=16,...){
+ char=c(LETTERS,letters,0:9,as.character(c(...)))
+ rep=ifelse(n>length(char),TRUE,FALSE)
+ re=paste0(sample(char,n,replace=rep),collapse='')
+ cat(re,'\n')
+ invisible(re)
+ }
> random(100,c('_','.','*'))
4kOf2HRLw5595KostlTzXBejcHqg24jT86uSuvhXxolvsItfe6UJ6CV7JeFaqqn*yFJH4wyXMcXLQwBprGdzV6Uvie3a6goY_wOs
643 名前：卵の名無しさん [2020/09/11(金) 20:50:09.90 ID:Bt/tjTEb.net]: 悲惨ですよ、私立医は。

長男が私立医、今春、次男も私立医の医師会会員なんか、

コロナ不況の中、もう哀れで、哀れで・・・・
644 名前：卵の名無しさん mailto:sage [2020/09/11(金) 21:24:30.03 ID:zaxQhPkr.net]: >>598
ふたりあわせて２億円
645 名前：卵の名無しさん [2020/09/12(土) 01:41:42.41 ID:tVi2H+Zr.net]: そもそも3000万円とか5000万円とかいう法外な授業料を払わないと
卒業できないような大学がまともなわけがない。
646 名前：卵の名無しさん [2020/09/12(土) 17:26:21.02 ID:r8RD59kr.net]: 聖マリアンナとかいう医大のなかのキングオブ底辺　
こんなとこに多浪して入るとかどんだけ学力低いんだよw？
地頭悪いんだろうな
マジでクソだわ
647 名前：卵の名無しさん [2020/09/12(土) 22:43:47.23 ID:1xQUBr0S.net]: 生きてて恥ずかしくならねーのかな？あいつ

いじめられっ子が
マジで腸が煮えくりかえるな
サイコ野郎が　
　
648 名前：卵の名無しさん [2020/09/13(日) 00:41:33.17 ID:BvNX1+3j.net]: >>601
誰の事？　O？wwww
649 名前：卵の名無しさん [2020/09/13(日) 03:06:51.98 ID:NkAzI/gM.net]: >>603
そうw
あの馬鹿w死ねよマジ
650 名前：卵の名無しさん mailto:sage [2020/09/13(日) 08:10:15.40 ID:zXha47WG.net]: 4 + 2sin(x) + 2cos(y) + sin(x) cos(y) - cos(x) sin(y)

(sin(y)-cos(x))^2 + (sin(x)+cos(y))^2 +(1+sin(x))^2+ (1+cos(y))^2
651 名前：卵の名無しさん mailto:sage [2020/09/13(日) 09:21:42.54 ID:zXha47WG.net]: 架空求人で履歴書かき集めれば個人情報売買できる
そういう企業が今たくさんある
５ｃｈで噂になってる企業あるよね
履歴書よりウェブ応募がいいね

ある外資系企業の下請は幽霊法人で国外のクラウドサービスに被保険者番号からマイナンバーまで保管
国外は個人情報保護法の対象外なんだと
間抜けな法律のお陰で個人情報は国外保管
きっと中国にもたくさんある
法人サポートが中国の場合、法人口座や拠点住所一覧も中国に握られている
契約のみデータセンターからすべてアウトソース依存国家の末路は怖い
652 名前：卵の名無しさん mailto:sage [2020/09/13(日) 11:34:50.71 ID:zXha47WG.net]: https://www.youtube.com/watch?v=EtUOxOKr93k

Mayo Clinic Q&A: COVID-19 update with Dr. Greg Poland

https://newschannel9.com/news/local/chattanooga-covid-19-long-hauler-patient-experiences-intense-effects-two-months-later

COVID-19 'long-hauler' patient still feeling intense effects two months later
653 名前：卵の名無しさん [2020/09/13(日) 16:26:56.33 ID:NkAzI/gM.net]: >>604
歳いくつよ？wその無能？w
654 名前：卵の名無しさん [2020/09/13(日) 16:53:51.02 ID:2Wd5rc6k.net]: >>608
確か37か38くらいだったかな？w
なんちゃって外科医やってるよ
ビビるよ？wクッソ無能だからなw
655 名前：卵の名無しさん mailto:sage [2020/09/13(日) 18:40:44.31 ID:zXha47WG.net]: https://www.tanita.co.jp/press/detail/2020/0910/
656 名前：卵の名無しさん mailto:sage [2020/09/13(日) 18:48:02.26 ID:zXha47WG.net]: 前々スレからのド底辺シリツ医への宿題

若い女性研修医（嘘つきかどうかは不明）から
「あなたのいうことが正しければ手コキかフェラをしてあげる、そうでなければセンズリを命じる」と言われた。
フェラをしてもらうには何と言えばいいか？
657 名前：卵の名無しさん [2020/09/13(日) 19:20:47.79 ID:/CHL/RSK.net]: >>609
しかもありとあらゆる工作隠蔽してるっていうねw

内科の領域もみれますみたいな装ってる無能w

もはや人殺しだなw

あんなのを救急で見させるとか病院もどうかと思うけどなw
病院ぐるみでやってんだろうなw
658 名前：卵の名無しさん mailto:sage [2020/09/13(日) 21:07:38.96 ID:zXha47WG.net]: Mayo Clinic Q&A podcast: When it comes to COVID-19, who are 'long-haulers?'

https://www.youtube.com/watch?v=reHPBedlPxU
659 名前：卵の名無しさん mailto:sage [2020/09/13(日) 21:09:14.54 ID:zXha47WG.net]: >>612
＞内科の領域もみれます
ド底辺シリツ医大卒なので内科のことはさっぱりわかりません、と言えば誰もが納得してもらえるのに
やっぱり、頭が悪いんだね。
660 名前：卵の名無しさん [2020/09/13(日) 22:35:26.22 ID:Oi5ggPM4.net]: >>614
最悪な治療施されたからね

初めから受け入れるなと
あそこまでのヤブは見たことないわ

適当な診察ばっかしてんだろうな
医学部は最低でも早慶理工以上の学力ないと
入れないようにしないと
不幸な人間がうまれるだけだわ
661 名前：卵の名無しさん [2020/09/14(月) 17:09:09.72 ID:TZePAOs1.net]: >>612
で、まさかそいつとその家族はのうのうと生きてるのか？　人の家族を滅茶苦茶にして？
それは許されないだろ普通に
どうなんだ？　
662 名前：卵の名無しさん mailto:sage [2020/09/14(月) 19:09:19.55 ID:/VYR9UVn.net]: 公文書改竄するような今の政権下で国勢調査に協力したくないなぁ。
663 名前：卵の名無しさん mailto:sage [2020/09/14(月) 22:15:32.87 ID:/VYR9UVn.net]: 記者　「10年間くらい(消費税)引き上げなくてもいいという、その根拠ついては何だと考えられているのか」
菅　　「まさに、アベノミクスを推進をし、経済を成長させる。まさに、経済成長…え…経済を再生させると、させなければ、財政健全化ないという、その政策のである」

アベちゃん以上にひどいじゃないか。完全に耄碌ジジイ。

安倍のほうがマシだったという時代が来そうだな。
664 名前：卵の名無しさん mailto:sage [2020/09/14(月) 22:16:16.23 ID:/VYR9UVn.net]: 記者　「10年間くらい(消費税)引き上げなくてもいいという、その根拠ついては何だと考えられているのか」
菅　　「まさに、アベノミクスを推進をし、経済を成長させる。まさに、経済成長…え…経済を再生させると、させなければ、財政健全化ないという、その政策のである」

アベちゃん以上にひどいじゃないか。完全に耄碌ジジイ。

安倍のほうがマシだったという時代が来そうだな。

https://www.youtube.com/watch?v=xkZoN6p97gM

1分15秒あたりから
665 名前：卵の名無しさん mailto:sage [2020/09/15(火) 22:04:16.42 ID:rklwrHxI.net]: https://www.diabetesresearchclinicalpractice.com/article/S0168-8227(20)3041
666 名前：6-2/fulltext []: [ここ壊れてます]
667 名前：卵の名無しさん [2020/09/17(木) 01:34:28.56 ID:HFcI9XBG.net]: >>616
生きてんじゃねｗ
私立医大って事は父親も医者かそこそこの会社かだろ　
ご両親がご健在なのか是非知りたいとこではあるなw
お宅の息子さんについてどうお考えなのかｗ
面拝みたいものだ
まぁカルマは深いだろうなｗ
何れにせよこれからさ　これから始まる
668 名前：卵の名無しさん mailto:sage [2020/09/17(木) 16:21:49.19 ID:nbDmQgwa.net]: こういうのは裏口シリツ医には解けないと思う。

司法試験予備試験の問題から、

球面上の異なる 2 点間の球面に沿った最短距離は，大円（球の中心を通る平面と球面が交わって共有する円）のそれら 2 点を端点とする弧の（長くない方の）長さである。地球上で北緯 45 度・東経 145 度，北緯 45 度・西経 125 度に位置する 2 地点間の地表面に沿った最短距離として最も近いものを，次の1から5までの中から選びなさい。ただし，地球は半径 6378 km の球とする。
1．5009 km 2．6679 km 3．8348 km 4．9017 km 5．9876 km

fn <- function(
ai=45, 　# 北緯°
ak=145, 　# 東経°
bi=45, 　# 北緯°(南緯はー°)
bk=-125){　# 東経°(西経はー°)
R=6378 # 地球の半径km
u=pi/180
A=R*c(cos(ai*u)*cos(ak*u),cos(ai*u)*sin(ak*u),sin(ai*u))
B=R*c(cos(bi*u)*cos(bk*u),cos(bi*u)*sin(bk*u),sin(bi*u))
AB=sqrt(sum((A-B)^2))
asin(AB/(2*R))*2*R
}
fn()

試験会場で計算しやすいように問題では数値設定してあるなぁ。
669 名前：卵の名無しさん [2020/09/18(金) 07:30:41.20 ID:tOgDYNCb.net]: 大塚とかいうヤブぱねー
歯を食いしばって苦しめばいいのな
てめえとてめえの家族がな
許さねーからな　お前だけは
670 名前：卵の名無しさん mailto:sage [2020/09/18(金) 08:03:57.92 ID:kqShTUv4.net]: diskpart

list disk
671 名前：卵の名無しさん [2020/09/18(金) 11:06:38.21 ID:4pL23glN.net]: 大塚君元気にされてるかな。
アッチ系の先生だったけど
良い人だったな～。
672 名前：卵の名無しさん [2020/09/18(金) 14:49:47.81 ID:ZCF7Lfet.net]: こんなのを、でっけー釣り針って言うのか？
673 名前：卵の名無しさん mailto:sage [2020/09/18(金) 15:45:12.98 ID:pRVt8YPC.net]: HP
コンピューターの電源を入れるか、再起動します。画面に何も映っていないうちに、[F10] キーを押して BIOS 設定メニューに入ります。
BIOS 設定メニューは、一部のコンピュータにf2またはf6キーを押すことによりアクセス可能です。 BIOSが開いたら、ブート設定にアクセスします。

HPはロゴがでるまえにf10とは、大抵はロゴがでたらdeleteかf2だと思っていたのだが、特殊だなぁ。

Dell
BIOS セットアップの起動
ノートPC の電源を入れます（または再起動します）。
Dell のロゴが表示されたら、次のいずれかのアクションを実行し BIOS セットアッププログラムを起動します。キーボードあり ? 「BIOS セットアップを起動」メッセージが表示されるまで、<F2> をタップします。
674 名前：卵の名無しさん mailto:sage [2020/09/18(金) 18:51:01.58 ID:A4IaMG7V.net]: 年内に9万に死者数と予想しているなぁ。

https://covid19.healthdata.org/japan?view=total-deaths&tab=trend
675 名前：卵の名無しさん mailto:sage [2020/09/19(土) 07:46:47.13 ID:0Y3cTQB0.net]: 緊縮財政・構造改革・観光立国
この三つで衰退途上国日本の没落必須だな。
676 名前：卵の名無しさん mailto:sage [2020/09/19(土) 09:26:49.36 ID:tlEz4F7t.net]: 　６日の参院予算委員会で、立憲民主党の小西洋之議員が安倍晋三氏に「安倍総理はよく『法の支配』とおっしゃいますが、法の支配の対義語は何ですか？法の支配の反対の意味の言葉は何ですか。」と尋ねたところ、安倍晋三氏は「まさに、反対語と言うよりも、法の支配、え、ということを申し上げているのはですね、あわば、あ～この～この海、まさに法の支配による、この国際秩序を維持し、平和な海を守っていくことが、それぞれの海の反映に繋がっていく、という考え方を示しているところでございます。」と、トンチンカンな答弁を行ってしまいました。

　小西議員は「法の支配の対義語は、憲法を習う大学の１年生が一番最初の授業で習うことですよ。」と、法の支配の対義語を知らない安倍晋三氏に対し、「憲法がよって立つ基本原理すら理解せずに改憲を唱えている安倍総理に教えて差し上げます。法の支配の対義語は『人の支配』です。権力者の専断的行為によってルールをねじ曲げて、国民の権利や自由を侵害する、そういう時代がかつて人類にあったから、近代立憲主義に基づく憲法をつくる。その近代主義の憲法の基づく理念が『法の支配』の原理なんですよ。」と話し、立憲主義に基づく憲法の基本的な考え方を諭しました。

　『法の支配』の対義語が『海の平和を守る』とは・・・。

　『法の支配』の対義語が分からないのなら、『法の支配』の本当の意味も知らないということことなのではと疑いたくなります。

　辺野古を見てもそのとおりではないでしょうか。

　安倍晋三氏は、成蹊大学政治学部卒業という学歴を持っています。

　近代民主主義の基本は立憲主義であり、そのことからも憲法について学ぶことは、政治学を学ぶうえで「いろはのい」であるはずです。

　この方は本当に大学で政治学を修めてきたのでしょうか。
677 名前：卵の名無しさん mailto:sage [2020/09/19(土) 09:27:00.66 ID:tlEz4F7t.net]: www.t-tooru.com/blog/%E6%B3%95%E3%81%AE%E6%94%AF%E9%85%8D%E3%81%A8%E4%BA%BA%E3%81%AE%E6%94%AF%E9%85%8D/
678 名前：卵の名無しさん mailto:sage [2020/09/20(日) 00:14:58.35 ID:BZsX8Vc7.net]: 地球の大きさは，紀元前３世紀頃にエラトステネスによって初めて求められた。

アレキサンドリア　北緯31.20194ﾟN　東経29.91611ﾟE
アスワン　　　　　北緯24.08889ﾟN　東経32.89972ﾟE
両都市の地表での最短距離　843km
を用いて地球を球と仮定して赤道半径Rを推定せよ。

ai=31.20194
ak=29.91611
bi=24.08889
bk=32.89972
u=pi/180
A=c(cos(ai*u)*cos(ak*u),cos(ai*u)*sin(ak*u),sin(ai*u))
B=c(cos(bi*u)*cos(bk*u),cos(bi*u)*sin(bk*u),sin(bi*u))
AB=sqrt(sum((A-B)^2))
d=843
# asin(AB/2)*2*R=d
R=d/(asin(AB/2)*2)
R
679 名前：卵の名無しさん mailto:sage [2020/09/20(日) 12:30:23.81 ID:BZsX8Vc7.net]: Timeline: How The U.S. Reached 200,000 Deaths From COVID-19

トランプは２月の段階で
It's also more deadly than your, you know, even your strenuous flus.
と発言して正しい認識をしたたなぁ。

https://www.youtube.com/watch?v=VuCYhAIKpLo&feature=youtu.be&t=75
１分１５秒辺りから
680 名前：卵の名無しさん mailto:sage [2020/09/20(日) 14:45:11.27 ID:BZsX8Vc7.net]: 【広島】「うわっブスじゃー」小柄
681 名前：で小太りの高齢男性が女子中学生に暴言を吐く事案が発生 ★2 [potato★] https://asahi.5ch.net/test/read.cgi/newsplus/1600575993/1 1 名前：potato ★[] 投稿日：2020/09/20(日) 13:26:33.55 ID:GbdyZADl9 広島県警によると、１７日午前７時ごろ、東広島市西条町大沢で女子中学生への暴言が発生しました。（実行者の特徴：高齢男性、小柄、小太り、ジーパン、頭に白色系タオル巻く） ■実行者の言動や状況 ・登校途中の女子生徒に暴言を吐いた。 ・「うわっブスじゃー」 ■現場付近の施設 ・向陽中学校、★三升原交差点、国道３７５号線 2020/9/18 22:24 (JST) https://this.kiji.is/679679671982326881 ※前スレ https://asahi.5ch.net/test/read.cgi/newsplus/1600572224/ []: [ここ壊れてます]
682 名前：卵の名無しさん [2020/09/20(日) 19:14:43.55 ID:6sUnyL52.net]: 底辺医大卒なんかに絶対自分とか家族を任せちゃいけない
公開する羽目になるよ
683 名前：卵の名無しさん mailto:sage [2020/09/21(月) 05:58:51.04 ID:7LHGgQBc.net]: >>635
シリツ医でも手先の器用なのはいるよ。
頭が器用なら底辺シリツ医大なんかにゃいかないな。
684 名前：卵の名無しさん mailto:sage [2020/09/21(月) 06:54:41.96 ID:7LHGgQBc.net]: https://addons.mozilla.org/ja/firefox/addon/video-downloadhelper/versions/
685 名前：卵の名無しさん mailto:sage [2020/09/21(月) 10:58:40.63 ID:+xq+le3W.net]: 安倍前総理の業績

https://i.imgur.com/fVXwC8L.jpg

その解説

https://youtu.be/nqauyjdmGjo
686 名前：卵の名無しさん mailto:sage [2020/09/21(月) 13:20:37.50 ID:tIEmypBG.net]: "某女子大には決して嘘をつかない女子大生と必ず嘘をつく女子大生がいることがわかっている。
この女子大の学生（嘘つきかどうかは不明）から
「あなたのいうことが正しければ手コキかフェラをしてあげる、間違っていれば何もしてあげない」と言われた。
女子大生にフェラをしてもらうには何と言えばいいか？
"
rm(list=ls())
TE=cbind(rep(0:1,c(4,4)),rep(0:3,2))
colnames(TE)=c('JD','service')
TE # JD 0:嘘つき 1:正直,　service 0:何もしない　1:手コキ 2:フェラ 3:手コキ＋フェラ
cond1 <- function(P,Q) !(P&!Q) # ｐならばQ
cond2 <- function(P,Q) cond1(P,Q) & cond1(!P,!Q) # （ｐならばQ）かつ（ｐでないならQでない）
f <- function(x){
x[1]==1 & cond2(cond2(x[1]==1,x[2]!=1),x[2]>0) | x[1]==0 & !cond2(cond2(x[1]==1,x[2]!=1),x[2]>0)
}
TE[(apply(TE,1,f)),]

cond3 <- function(P,Q) P==Q
f <- function(x){
x[1]==1 & cond3(cond3(x[1]==1,x[2]!=1),x[2]>0) | x[1]==0 & !cond3(cond3(x[1]==1,x[2]!=1),x[2]>0)
}
TE[(apply(TE,1,f)),]
687 名前：卵の名無しさん mailto:sage [2020/09/21(月) 13:22:08.23 ID:tIEmypBG.net]: 医者ならば、シリツ卒なら馬鹿である　　から
シリツ卒ならば、医者ならば馬鹿である　が、導けるか？

という論理命題の問題を臨床適用ｗするとこうなる。

甲状腺癌ならば、未分化癌なら予後不良である　　から
未分化癌ならば、甲状腺癌なら予後不良である　が、導けるか？

Rに真理表を使って解答させるスクリプトは以下の通り。

# P->(Q->R) |- Q->(P->R)
library('gtools')
pm3=permutations(2,3,v=c(T,F),re=TRUE)
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)
> cbind(pm3,result)
P Q R result
[1,] FALSE FALSE FALSE TRUE
[2,] FALSE FALSE TRUE TRUE
[3,] FALSE TRUE FALSE TRUE
[4,] FALSE TRUE TRUE TRUE
[5,] TRUE FALSE FALSE TRUE
[6,] TRUE FALSE TRUE TRUE
[7,] TRUE TRUE FALSE TRUE
[8,] TRUE TRUE TRUE TRUE
688 名前：卵の名無しさん mailto:sage [2020/09/21(月) 14:30:33.85 ID:tIEmypBG.net]: 医者ならば、シリツ卒なら馬鹿である　　から
シリツ卒ならば、医者ならば馬鹿である　が、導けるか？

という論理命題の問題を臨床適用ｗするとこうなる。

甲状腺癌ならば、未分化癌なら予後不良である　　から
未分化癌ならば、甲状腺癌なら予後不良である　が、導けるか？

'%=>%' = function(P,Q) !(P & !Q)
M=c(T,F)
R=c(T,F)
C=c(T,F)
gr=expand.grid(M,R,C)
colnames(gr)=c('M','R','C')
gr
f4 <- function(M,R,C) (M %=>% (R %=>% C)) %=>% (R %=>% (M %=>% C))
mapply(f4,gr[,1],gr[,2],gr[,3])
689 名前：卵の名無しさん [2020/09/22(火) 05:31:15.70 ID:hC7iAlOHZ]: 一番の勝ち組は私立医大卒の医者だよ。
だって貧乏な家に生まれてたら医者になれなかった連中なんだから。
690 名前：卵の名無しさん mailto:sage [2020/09/22(火) 04:22:09.57 ID:i6/Qqjjo.net]: Windows Registry Editor Version 5.00

[HKEY_CURRENT_USER\Control Panel\Personalization\Desktop Slideshow]
"LastTickLow"=dword:00000000
"LastTickHigh"=dword:00000000
"Interval"=dword:000249f0
"Shuffle"=dword:00000001
691 名前：卵の名無しさん mailto:sage [2020/09/22(火) 08:51:45.82 ID:i6/Qqjjo.net]: 以下の中から論理的に同値な組み合わせをすべて列挙せよ。

a : 馬鹿ならば(シリツ医ならば裏口である）
b : (馬鹿ならばシリツ医)ならば裏口である）
c : 馬鹿ならば(裏口ならばシリツ医である
d : (馬鹿ならば裏口)ならばシリツ医である
e : シリツ医ならば(馬鹿ならば裏口である)
f : (シリツ医ならば馬鹿)ならば裏口である
g : シリツ医ならば(裏口ならば馬鹿である)
h : (シリツ医ならば裏口)ならば馬鹿である)
i : 裏口ならば(馬鹿ならばシリツ医である)
j : (裏口ならば馬鹿)ならばシリツ医である
k : 裏口ならば(馬鹿ならばシリツ医である)
l : (裏口ならば馬鹿)ならばシリツ医である)
692 名前：卵の名無しさん mailto:sage [2020/09/22(火) 09:00:28.56 ID:i6/Qqjjo.net]: 以下の中から論理的に同値な組み合わせをすべて列挙せよ。

a : 馬鹿ならば(シリツ医ならば裏口である）
b : (馬鹿ならばシリツ医)ならば裏口である）
c : 馬鹿ならば(裏口ならばシリツ医である
d : (馬鹿ならば裏口)ならばシリツ医である
e : シリツ医ならば(馬鹿ならば裏口である)
f : (シリツ医ならば馬鹿)ならば裏口である
g : シリツ医ならば(裏口ならば馬鹿である)
h : (シリツ医ならば裏口)ならば馬鹿である)
i : 裏口ならば(馬鹿ならばシリツ医である)
j : (裏口ならば馬鹿)ならばシリツ医である
k : 裏口ならば(シリツ医ならば馬鹿である)
l : (裏口ならばシリツ医)ならば馬鹿である)
693 名前：卵の名無しさん mailto:sage [2020/09/22(火) 09:03:46.94 ID:i6/Qqjjo.net]: 過去スレから同業者や患者の本音抜粋

同業者の発言：
【ウハも】　開業医達の集い　8診　【粒も】 [無断転載禁止]

670 名前：卵の名無しさん[] 投稿日：2017/05/20(土) 11:15:40.12 ID:46exOAAP
学会で川崎の医者が発表してたら、「馬鹿が何偉そうにしゃべってる。」と思う自分が嫌になるが、
これだけは学生時代から続く反射なので止められない。

患者の発言：
【医療】医者は患者にコレを言われると、内心ものすごくムッとする★4 [無断転載禁止]

810 名前：名無しさん＠１周年[] 投稿日：2017/05/21(日) 00:11:22.04 ID:+h+2h2fq0
旧帝医卒の医者が（患者としては嫌だが）
多少偉そうにしているのはわからんでもないが

底辺私立に偉そうにされたら
そりゃ患者としてはむかつくだろw
694 名前：卵の名無しさん mailto:sage [2020/09/22(火) 10:14:13.61 ID:sklJCuPT.net]: '%=>%' = function(P,Q) !(P & !Q)
B=c(T,F)
S=c(T,F)
U=c(T,F)
gr=expand.grid(B,S,U)
colnames(gr)=c('B','S','U')
gr
f <- function(B,S,U) (B %=>% (S %=>% U)) %=>% (S %=>% (B %=>% U))
mapply(f,gr[,1],gr[,2],gr[,3])
f <- function(B,S,U) (S %=>% (B %=>% U)) %=>% (B %=>% (S %=>% U))
mapply(f,gr[,1],gr[,2],gr[,3])

f <- function(B,S,U) (B %=>% (S %=>% U)) %=>% ((B %=>% S) %=>% U)
cbind(gr,mapply(f,gr[,1],gr[,2],gr[,3]))
f <- function(B,S,U) (B %=>% (S %=>% U)) %=>% ((B %=>% S) %=>% U)
mapply(f,gr[,1],gr[,2],gr[,3])
cbind(gr,mapply(f,gr[,1],gr[,2],gr[,3]))
695 名前：卵の名無しさん mailto:sage [2020/09/22(火) 12:02:20.63 ID:EfXnvoQe.net]: シリツ医ならば (馬鹿ならば裏口である)　という命題が真であるときに結論できるのは以下のいずれか？

1 : シリツ医ならば (裏口ならば馬鹿である)
2 : 馬鹿ならば (シリツ医ならば裏口である)
3 : 馬鹿ならば (裏口ならばシリツ医である)
4 : 裏口ならば (シリツ医ならば馬鹿である)
5 : 裏口ならば (馬鹿ならばシリツ医である)
696 名前：卵の名無しさん [2020/09/22(火) 14:24:55.71 ID:i8SA8uCz.net]: 安い指輪しててもブスで金だけの医学科の彼女持ちの私立底辺医大生君は元気かな？
スマホ・出会い系アプリの垢複数持ちしてまで浮気お疲れ様。
デートも食事も可愛い子には拒否られて裏でストーカー行為しながら、相手されずモテないからって自称ヤリチンアピすることしかできない可哀想な私立底辺非モテ医大男の貴方はある意味偉大です。
697 名前：卵の名無しさん mailto:sage [2020/09/22(火) 16:03:55.93 ID:sklJCuPT.net]: https://i.imgur.com/OIcZafx.jpg

Last but not least, three la
698 名前：ws 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　which they have gone through. 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 []: [ここ壊れてます]
699 名前：卵の名無しさん [2020/09/22(火) 18:34:03.01 ID:K+if9xkPg]: 今やそんな私立医大の中でも下位に位置するような私立医大に
補欠繰り上がりでやっとこさ入学できたような連中でさえ
地方駅弁の非医理系（理学部や工学部）に進学した連中と同じ程度の
おつむ加減にはなったけどなｗ

時代は変わったね

奨学金制度も充実してきたし、中堅どころの私立医大にも有名私立進学校の連中が
普通にいるご時世

30年前なら考えられない

ひとえに非医学部理系の卒後がひどすぎるがゆえの変化

東工大や地方旧帝の非医理系、早慶理工の看板学科や慶応薬や理科大薬に進学するくらいなら
私立卒でも医者になっておいた方がマシと考える受験生とその親が増えた
700 名前：卵の名無しさん [2020/09/22(火) 20:25:54.98 ID:i8SA8uCz.net]: 私立底辺医大生ぶっさくて草
イケメンって言ってあげましょう(笑)
701 名前：卵の名無しさん [2020/09/22(火) 22:29:14.63 ID:kI6zSfJ2m]: 真の勝ち組は底辺私立医大卒の医者たちだろ。

だって親がお金持ちじゃなかったら
本来は医者じゃ無かったかもしれない連中なんだぜ。
702 名前：卵の名無しさん [2020/09/23(水) 13:30:30.61 ID:VpBhPSguC]: 東大生に親に金持ちが圧倒的に多いことを考えれば
親が金持ちで有名私立進学校に中学から入学するために塾通いができなければ
そうした進学校経由で東大や医学部には行けなかっただろうしねｗ

そうした有名私立進学校に通いながらも放課後に科目別に違う塾に行くやつも少なくないわけで
親が金のないやつの多くははじめから負け戦

そういった意味では親が金持ちじゃなければ医者じゃなかったかもしれないに関しては
国立医だろうが私立医だろうが関係なし

サピや日能研早アカがなければ筑駒や開成、麻布には受からなかっただろうし、
鉄緑の力がなければ理3に現役で受からないやつは多いだろうしねｗｗｗ
703 名前：卵の名無しさん mailto:sage [2020/09/23(水) 12:19:46.09 ID:DYSF68Y7.net]: うすむらさき
@xxxxxx
ヤリチンはたいていブサイク。
ヤリチン公言してるやつらはまずブサメン。
すかぽんさんがツイートしました
@xxxxxxxx
ブサイクのヤリチン、一杯いるじゃん…

お釈迦様さんがツイートしました
@xxxxxxxx
ブサイクなヤリチンが世界で1番たちが悪い。ブサイクはブスしか寄ってこねーから(笑)一生ブスどもとつるんでろよ。
704 名前：卵の名無しさん mailto:sage [2020/09/23(水) 23:45:14.47 ID:Sa86U9pw.net]: sim <- function(){
x=sample(52)
flg=FALSE
i=1
while(flg==FALSE & i<52){
flg <- abs(x[i]-x[i+1])==26
i=i+1
}
return(flg)
}
sim()
705 名前：卵の名無しさん mailto:sage [2020/09/24(木) 06:55:54.84 ID:eL3RsNp+.net]: 【コロナ】20代の感染、「第2波」で10倍…無症状者の2割が入院後に重症化　和歌山県 [ばーど★]
https://asahi.5ch.net/test/read.cgi/newsplus/1600896274/

source('tools.R')
prop.test(c(7,68),c(63,167))
poisson.test(c(7,68),c(63,167))
jags4prop(7,68,63,167)

# 重症化率
binom::binom.exact(11,52)
# 有症化率
binom::binom.exact(11+21,52)
706 名前：卵の名無しさん mailto:sage [2020/09/24(木) 07:04:06.98 ID:eL3RsNp+.net]: Three laws of lowest-ranked medicalschool

1: It is not the lowest-ranked medical school but its enrollee that is despicable, which deserves to be called a bona fide moron beyond redemption.

2: The graduates of lowest-ranked medical school are so ashamed that none of them dare to mention their own alma mater which they have gone through.

3: The lowest-ranked medical school graduates are so ashamed of having bought their way into such schools that they tend to call a genuine doctor a charlatan who elucidates their imbecility.
707 名前：卵の名無しさん mailto:sage [2020/09/24(木) 07:13:59.39 ID:eL3RsNp+.net]: >>658
話題のフォントにしてみた。

https://i.imgur.com/kh7qteF.png
708 名前：卵の名無しさん mailto:sage [2020/09/24(木) 14:11:06.85 ID:eL3RsNp+.net]: with コロナで三密を避けて生産
without コロナで三密で生産

後者の方が生産性が高いのは自明。
中国は後者の戦略で経済回復しつつあるというね。
709 名前：卵の名無しさん mailto:sage [2020/09/24(木) 22:37:38.71 ID:1DujI56R.net]: ド底辺医大の三法則

1: It is not the lowest-ranked medical school but its enrollee that is despicable, which deserves to be called a bona fide moron beyond redemption.
ド底辺シリツ医大が悪いのではない、本人の頭が悪いんだ。

2: The graduates of lowest-ranked medical school are so ashamed that none of them dare to mention their own alma mater which they have gone through.
ド底辺シリツ医大卒は恥ずかしくて、学校名を皆さま言いません。

3: The lowest-ranked medical school graduates are so ashamed of having bought their way into such schools that they tend to call a genuine doctor a charlatan who elucidates their imbecility.
ド底辺シリツ医大卒は裏口入学の負い目から裏口馬鹿を暴く人間を偽医者扱いしたがる。
710 名前：卵の名無しさん mailto:sage [2020/09/25(金) 07:41:52.14 ID:WXWIALQV.net]: - ショートカットを表示しない

[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer]

"link"=hex:00,00,00,00
711 名前：卵の名無しさん mailto:sage [2020/09/25(金) 08:45:29.54 ID:g+wOrPPh.net]: 「保守」「ナショナリスト」がナショナリズムを解体するグローバリストの安倍を礼賛する一方、パヨクは「戦後レジーム」を確定させた安倍を「戦前回帰の復古主義者」と誤認する。
712 名前：卵の名無しさん mailto:sage [2020/09/25(金) 10:35:54.74 ID:WXWIALQV.net]: >>660
東京・江戸川区にある食品加工会社の工場で、新たに従業員73人が新型コロナウイルスに感染したことが確認され、これでこの工場での感染確認は78人になりました。
会社では、24日から工場の稼働を停止し、改めて消毒作業をすることにしています。

https://www3.nhk.or.jp/news/html/20200924/k10012632831000.html

こういうのが続いて日本の生産性が低下、国が衰退していくんだろうなぁ。

with コロナで三密を避けて生産
without コロナで三密で生産

後者の方が生産性が高いのは自明。
中国は後者の戦略で経済回復しつつあるという。
713 名前：卵の名無しさん mailto:sage [2020/09/25(金) 11:08:53.44 ID:WXWIALQV.net]: 主語が何かすら理解していない底辺シリツ医の症例報告

https://i.imgur.com/3aV1wjA.png

これは永久保存に価する！

小学校で習うはずに主語が何かすら習得していないのに、底辺シリツ医大に入学できるとは、裏口入学以外に説明ができるだろうか？

（補足）
主語と述語って何年生で習うのか調べたらこんな動画がヒットした。

授業「主語と述語をみつけよう」｜国語｜小１・小２｜群馬県
https://youtu.be/yREmv_TyAIU

シリツ医は小学校１－２年で習うことすら習得できていない。
こんな学力でどうして大学に入学できるのだろうか？裏口入学以外に説明できる人がいたら御教授を賜りたい。
714 名前：卵の名無しさん mailto:sage [2020/09/25(金) 12:43:09.13 ID:g+wOrPPh.net]: 二〇一四年の世界経済フォーラム年�
715 名前：� 会議（ダボス会議）の冒頭演説で安倍は、徹底的に日本の権益を破壊すると宣言。電力市場の完全自由化、医療の産業化、コメの減反の廃止、法人税率の引き下げ、雇用市場の改革、外国人労働者の受け入れ、会社法の改正などを並べ立て、「そのとき社会はあたかもリセット・ボタンを押したようになって、日本の景色は一変するでしょう」と言い放った。 適菜収. 国賊論 (Kindle の位置No.248-252). ＫＫベストセラーズ. Kindle 版. []: [ここ壊れてます]
716 名前：卵の名無しさん mailto:sage [2020/09/25(金) 22:37:25.35 ID:g+wOrPPh.net]: 「保守」「ナショナリスト」がナショナリズムを解体するグローバリストの安倍を礼賛する一方、頭の悪い一部の左翼は「戦後レジーム」を確定させた安倍を「戦前回帰の復古主義者」と誤認する。自分の世界観に合わせて、都合よく現実を解釈するわけだ。
717 名前：卵の名無しさん mailto:sage [2020/09/25(金) 22:38:11.02 ID:g+wOrPPh.net]: 移民は「外国人材」、家族制度の破壊は「女性の活用」、戦争に巻き込まれることは「積極的平和主義」、秩序破壊のための実験は「国家戦略特区」、不平等条約のＴＰＰは「国家百年の計」、南スーダンの戦闘は「衝突」、米軍機の墜落は「不時着」……。
718 名前：卵の名無しさん mailto:sage [2020/09/26(土) 10:50:18.21 ID:HU8VkIp7.net]: >　巷には、少子高齢化を迎える日本においては、デフレは避けられないという議論もありますが、これは誤りです。実際に多くの国は、人口が減少していても、デフレには陥っていません。

(中略)

>　一方で、デフレから脱却するためには、金融政策と同時に財政政策も必要と考えています。国民の命や子どもたちの安全を守るための投資、地域が生産性を高め、競争力を得るための未来への投資は行うべきだと考えます。

>ただ、残念ながら、税率を上げることイコール税収が増えていくことにはなりません。　一九九七年に消費税を三パーセントから五パーセントに上げたときは、五十四兆円だった税収は、翌年度は四十九兆円に減少し、それ以降、五十四兆円に到達したことは一度もない。

安倍晋三. 新しい国へ　　美しい国へ　完全版
719 名前：卵の名無しさん mailto:sage [2020/09/26(土) 15:03:53.61 ID:HU8VkIp7.net]: 権力の分散を唱えるのが保守であり、権力の集中を唱えるのが左翼である。理由は簡単で、保守は人間理性を信用しないが、左翼は合理的かつ理性的であるからだ。
720 名前：卵の名無しさん mailto:sage [2020/09/27(日) 07:46:40.32 ID:xQ2UgrRE.net]: 裏口でなくて、学力考査で大学入れたなら、これくらいは答えられるだろ？

問題：
シリツ医ならば (馬鹿ならば裏口である)　という命題が真であるときに結論できるのは以下のいずれか？

1 : シリツ医ならば (裏口ならば馬鹿である)
2 : 馬鹿ならば (シリツ医ならば裏口である)
3 : 馬鹿ならば (裏口ならばシリツ医である)
4 : 裏口ならば (シリツ医ならば馬鹿である)
5 : 裏口ならば (馬鹿ならばシリツ医である)
721 名前：卵の名無しさん mailto:sage [2020/09/27(日) 09:35:51.49 ID:NC2DTSRg.net]: 裏医問嘘「とフ子嘘「とチ
口師題をあ言ェ供をあ言ョ
馬免はつなわラ向つなわコ
鹿許こかたれをきかたれを
でもれなのたしはなのたも
なっいい｡てこいい｡ら
いて若うもっおうう
証いいこらち菓こに
明な女とう子とは
にい医がに屋が何
サ小か正はか正と
ク学らし何らし �
722 名前：ｾ ッ生けとけえ とでれ言れば 答もばえばい え正手ばチい た解コいョか らすキいコ？ ？るかかか ぞフ？飴 ｡ェを ラあ をげ しる て」 あ げ る 」 []: [ここ壊れてます]
723 名前：卵の名無しさん mailto:sage [2020/09/27(日) 11:04:59.01 ID:NC2DTSRg.net]: １底
：辺
ド医
底大
辺の
シ三
リ法
ツ則
医
大
が
悪
い
の
で
は
な
い
､
本
人
の
頭
が
悪
い
ん
だ
｡
724 名前：卵の名無しさん mailto:sage [2020/09/27(日) 11:07:10.87 ID:NC2DTSRg.net]: 裏ド底
口底辺
馬辺医
鹿シ大
をリの
暴ツ第
く医三
人大法
間卒則
をは
偽裏
医口
者入
扱学
いの
し負
たい
が目
るか
｡ら
725 名前：卵の名無しさん mailto:sage [2020/09/27(日) 11:09:13.63 ID:NC2DTSRg.net]: ｒｍ（ｌｉｓｔ＝ｌｓ（））

ｘ＝”
　東京医大の事件は裏口入学が現在進行形であること如実にしめした事件だよね。
しりつ医の使命は裏口入学撲滅国民運動の先頭に立つことだよ。
裏口入学の学生を除籍処分にしないかぎり、信頼の回復はないね。つまり、いつまで経ってもしりつ医大卒＝裏口ばかと汚名は拭えない。しりつ出身者こそ、裏口入学に厳しい処分せよを訴えるべき。
裏口入学医師の免許剥奪を！の国民運動の先頭に立てばよいぞ。
僕も裏口入学とか、言ってたら信頼の回復はない。
”

ｆ　＜－　ｆｕｎｃｔｉｏｎ（ｘ，ｓ＝２）｛
　　ｎ＝ｎｃｈａｒ（ｘ）
　　ｙ＝ＮＵＬＬ
　　ｆｏｒ（ｉ　ｉｎ　１：ｎ）｛
　　　　ｙ　＜－　ｐａｓｔｅ０（ｙ，ｓｕｂｓｔｒ（ｘ，ｉ，ｉ），ｐａｓｔｅ０（ｒｅｐ（’　’，ｓａｍｐｌｅ（０：ｓ，１）），ｃｏｌｌａｐｓｅ＝’’））
　　｝
　　ｃａｔ（ｙ）
　　ｉｎｖｉｓｉｂｌｅ（ｙ）
｝
ｆ（ｘ）
726 名前：卵の名無しさん mailto:sage [2020/09/27(日) 11:10:55.64 ID:NC2DTSRg.net]: 　さてはシリツだな。
そういうのいいからサクっと正解してみ！
これに即答がつけば即、終わったのに。

問題はこれ

嘘をつかない若い女医から
「あなたのいうことが正しければ手コキかフェラをしてあげる」と言われた。
フェラをしてもらうには何と言えばいいか？
727 名前：卵の名無しさん mailto:sage [2020/09/27(日) 13:27:27.49 ID:NC2DTSRg.net]: 　　大本　　　　シ学鹿扱　　　　　　　　
ド　　　　卒校ん　　　　　　　　　　　　
　　が人　　　　リのをい　　　　　　　　
底　　　　は名。　　　　　　　　　　　　
　　悪の　　　　ツ負暴し　　　　　　　　
辺　　　ド恥を　　　　　　　　　　　　　
　ドい頭　　　　医いくた　　　　　　　　
医　　　底ず皆　　　　　　　　　　　　　
　底のが　　　　大目人が　　　　　　　　
大　　　辺かさ　　　　　　　　　　　　　
　辺で悪　　　　卒か間る　　　　　　　　
の　　　シしま　　　　　　　　　　　　　
　シはい　　　　はらを。　　　　　　　　
三　　　リく言　　　　　　　　　　　　　
　リなん　　　ド裏裏偽　　　　　　　　　
法　　　ツてい　　　　　　　　　　　　　
　ツいだ　　　底口口医　　　　　　　　　
則　　　医、ま　　　　　　　　　　　　　
　医、。　　　辺入馬者　　　　　　　　　
　　　　大学せ　　　　　　　　　　　　　
728 名前：卵の名無しさん mailto:sage [2020/09/27(日) 13:27:41.77 ID:NC2DTSRg.net]: 　　　　　　　　扱鹿学シ　　　　本大　　
　　　　　　　　　　　　ん校卒　　　　ド
　　　　　　　　いをのリ　　　　人が　　
　　　　　　　　　　　　。名は　　　　底
　　　　　　　　し暴負ツ　　　　の悪　　
　　　　　　　　　　　　　を恥ド　　　辺
　　　　　　　　たくい医　　　　頭いド　
　　　　　　　　　　　　　皆ず底　　　医
　　　　　　　　が人目大　　　　がの底　
　　　　　　　　　　　　　さか辺　　　大
　　　　　　　　る間か卒　　　　悪で辺　
　　　　　　　　　　　　　ましシ　　　の
　　　　　　　　。をらは　　　　いはシ　
　　　　　　　　　　　　　言くリ　　　三
　　　　　　　　　偽裏裏ド　　　んなリ　
　　　　　　　　　　　　　いてツ　　　法
　　　　　　　　　医口口底　　　だいツ　
　　　　　　　　　　　　　ま、医　　　則
　　　　　　　　　者馬入辺　　　。、医　
　　　　　　　　　　　　　せ学大　　　　
729 名前：卵の名無しさん mailto:sage [2020/09/27(日) 13:43:45.94 ID:NC2DTSRg.net]: 　時差とは識払バかは向年底しではわ　
不代別い誰的っカっ一か代辺て軽面な　
朽に感うもにてだて人っの医る蔑とい　
の大がイ受考、の好もて人卒んし向け　
名学凄メ験えし裏きいは間をだ、かど　
投受くーしてか口好ま言は今、嘲っね　
稿験、ジよ、もだんせわ、でこ笑て。　
をし特でう数同のでんなおものしは　　
引た殊開と千業とドでいそ「裏て絶　　
用け民業す万者散底しけら何口い対　　
再どの医らとか々辺たれく偉バるに　　
掲、たのしいら罵医。どはそカよそ　　
　昔めバなうもらに本、８うが。ん　　
私はのカか法患れ行人俺－な」当な　　
は今特息っ外者るくにく９ことのこ　　
昭よ殊子たなかの同はら割と心本と　　
和り学以。金らを級面いは抜の人は　　
のも校外常をもわ生とのドか底に言　　
730 名前：卵の名無しさん mailto:sage [2020/09/27(日) 13:43:50.96 ID:NC2DTSRg.net]: 　わはでし底年向はかバ払識はと差時　
　な面軽て辺代か一っカっ的誰い別代不
　いと蔑る医のっ人てだてにもう感に朽
　け向しん卒人ても好の、考受イが大の
　どか、だを間はいき裏しえ験メ凄学名
　ねっ嘲、今は言ま好口かてしーく受投
　。て笑こで、わせんだも、よジ、験稿
　　はしのもおなんでの同数うで特しを
　　絶て裏「そいでドと業千と開殊た引
　　対い口何らけし底散者万す業民け用
　　にるバ偉くれた辺々かとら医のど再
　　そよカそはど。医罵らいしのた、掲
　　ん。がう８、本にらもうなバめ昔　
　　な当」な－俺人行れ患法かカのは私
　　このとこ９くにくる者外っ息特今は
　　と本心と割らは同のかなた子殊よ昭
　　は人の抜はい面級をら金。以学り和
　　言に底かドのと生わもを常外校もの
731 名前：卵の名無しさん mailto:sage [2020/09/27(日) 14:42:14.68 ID:Q7/GNSm0.net]: ＃　ｓｔｒ　－＞　ｍａｔｒｉｘ（ｔａｔｅ）
ｔａｔｅ　＜－　ｆｕｎｃｔｉｏｎ（ｓｔｒ，ｍｏｊｉ＝ＮＵＬＬ）｛　＃　ｓｔｒ：文字列，　ｍｏｊｉ：１列の文字数
ｘ＝ｇｓｕｂ（’￥ｎ’，’’，ｓｔｒ）
ｎ＝ｎｃｈａｒ（ｘ）
ｍ＝ｉｆｅｌｓｅ（ｉｓ．ｎｕｌｌ（ｍｏｊｉ），ｃｅｉｌｉｎｇ（ｓｑｒｔ（ｎ）），ｍｏｊｉ）
ａｄｄ＝ｍ＾２－ｎ
ｙ＝ｐａｓｔｅ０（ｘ，ｐａｓｔｅ０（ｒｅｐ（’　’，ａｄｄ），ｃｏｌｌａｐｓｅ＝’’））
Ｙ＝ＮＵＬＬ
ｆｏｒ（ｉ　ｉｎ　１：ｍ＾２）　　Ｙ［ｉ］＝ｓｕｂｓｔｒ（ｙ，ｉ，ｉ）
Ｌ＝Ｒ＝ｍａｔｒｉｘ（Ｙ，ｍ，ｍ）
ｆｏｒ（ｉ　ｉｎ　１：ｍ）　ｃａｔ（Ｌ［ｉ，］，’￥ｎ’）＃　左から開始
ｆｏｒ（ｉ　ｉｎ　１：ｍ）　Ｒ［，ｍ＋１－ｉ］＝Ｌ［，ｉ］　＃　
ｃａｔ（’￥ｎ￥ｎ’）
ｆｏｒ（ｉ　ｉｎ　１：ｍ）　ｃａｔ（Ｒ［ｉ，］，’￥ｎ’）＃　右から開始

｝
ｓｔｒ＝”
はなのいろは　　　　
　　　うつりにけりな　
　　　　　　いたずらに　
わがみよにふる　　　　
ながめせしまに　　　　”
ｎｃｈａｒ（ｓｔｒ）
ｘ＝ｇｓｕｂ（’￥ｎ’，’’，ｓｔｒ）
ｎｃｈａｒ（ｘ）
ｔａｔｅ（ｓｔｒ，１１）
732 名前：卵の名無しさん mailto:sage [2020/09/27(日) 14:42:53.61 ID:Q7/GNSm0.net]: > str="
+ はなのいろは　　　　
+ 　　　うつりにけりな　
+ 　　　　　いたずらに
+ わがみよにふる　　　　
+ ながめせしまに　　　　"
> tate(str,11)
は　　わな　　　　　　
な　　がが　　　　　　
のう　みめ　　　　　　
いつ　よせ　　　　　　
ろり　にし　　　　　　
はにいふま　　　　　　
　けたるに　　　　　　
　りず　　　　　　　　
　なら　　　　　　　　
　　に　　　　　　　　
　　　　　　　　　

　　　　　　なわ　　は
　　　　　　がが　　な
　　　　　　めみ　うの
　　　　　　せよ　つい
　　　　　　しに　りろ
　　　　　　まふいには
　　　　　　にるたけ　
　　　　　　　　ずり　
　　　　　　　　らな　
　　　　　　　　に　　
　　　　　　　　　
733 名前：卵の名無しさん mailto:sage [2020/09/27(日) 15:05:13.39 ID:z6INan+X.net]: https://addons.mozilla.org/ja/firefox/user/13863253/

Read Aloud: A Text to Speech Voice Reader
734 名前：卵の名無しさん mailto:sage [2020/09/27(日) 15:41:27.05 ID:NC2DTSRg.net]: (sqrt(1+x)-sqrt(1+x^2))/(sqrt(1-x^2)-sqrt(1-x))
735 名前：卵の名無しさん mailto:sage [2020/09/27(日) 15:41:46.99 ID:NC2DTSRg.net]: (sqrt(1+x)-sqrt(1+x^2))/(sqrt(1-x^2)-sqrt(1-x))
736 名前：卵の名無しさん mailto:sage [2020/09/27(日) 19:20:23.23 ID:NC2DTSRg.net]: Block Site
https://addons.mozilla.org/en-US/firefox/addon/block-website/
737 名前：卵の名無しさん mailto:sage [2020/09/27(日) 19:43:46.04 ID:B77KYq6e.net]: 100日で崩壊する政権コロナ禍日本、安倍政権の軌跡 (日本語)
思わず注文してしまった。
738 名前：卵の名無しさん mailto:sage [2020/09/27(日) 19:44:42.64 ID:B77KYq6e.net]: 100日で崩壊する政権コロナ禍日本、安倍政権の軌跡 (日本語)

を注文してした。

Kindle版もあったけど、家族にも読ませたいので紙の方にした。
739 名前：卵の名無しさん [2020/09/27(日) 21:57:22.28 ID:CM312CnK.net]: 東京女子医大、学費1200万円値上げ　コロナで経営難　　9/27(日) 21:00配信

私立大学の医学部で学費を値上げする動きが出ている。
東京女子医科大は2021年度の入学生について6年間で計1200万円上げる。
コロナ禍による大学病院の経営悪化の影響などが指摘されている。

　東京女子医大がホームページで公開している入学案内によると、
6年間の学費は4621万4千円。
広報担当者によると年間200万円の施設設備費の項目が新たに加わったという。
値上げの詳しい理由はホームページでは示しておらず、取材にも回答していない。

河合塾が私立大医学部の20年度の募集要項などをまとめたところ、
主な選抜方式で総額が最も高いのは川崎医科大（岡山県）の4736万5千円。
今回の値上げで東京女子医大は21年度から、
金沢医科大（石川県）を上回り2番目に高いところになりそうだ。
740 名前：卵の名無しさん mailto:sage [2020/09/27(日) 23:17:16.35 ID:OJ6sMSx0.net]: >>689
そんなオマエは反日ド底辺の風邪風邪クルクルパー
医学的に入れないオマエの低脳さがそんなに悔しいのかいＷ
741 名前：卵の名無しさん [2020/09/28(月) 06:28:48.85 ID:O53+eN9bN]: ニュー速の書き込みより

133 ：不要不急の名無しさん：2020/09/28(月) 03:10:55.16

ね、年間200万の値上げ、、、
自分、医学部ではないが、6年間で、大学には総額400万くらいしか
払ってないんはずなんだが、、、
恐ろしい世界があるもんだ
742 名前：卵の名無しさん mailto:sage [2020/09/28(月) 13:18:25.77 ID:aUMwZUGo.net]: オペラ　youtube downloader
https://addons.opera.com/ja/extensions/details/youtube-video-and-audio-download
743 名前：er/ []: [ここ壊れてます]
744 名前：卵の名無しさん mailto:sage [2020/09/30(水) 21:42:43.31 ID:m81TU/YP.net]: １　２
表表　見たのが表1
表裏　見たのが表1
裏表　見たのが裏1
裏裏　見たのが裏1
表表　見たのが表2
表裏　見たのが裏2
裏表　見たのが表2
裏裏　見たのが裏2
745 名前：卵の名無しさん mailto:sage [2020/10/01(木) 09:34:59.05 ID:aTCQsuu6.net]: # y=tan(A)(x-a1)+a2
# y=tan(B)(x-b1)+b2

koten <- function(a1,a2,a,b1,b2,b){
A=a*pi/180
B=b*pi/180
x = (a1* tan(A) - a2 - b1 *tan(B) + b2)/(tan(A) - tan(B))
y = (a1* tan(A)* tan(B) - b1 *tan(A)* tan(B) + b2 *tan(A) - a2* tan(B))/(tan(A) - tan(B))
c(x,y)
}

koten(0,0,60,1,0,120)
746 名前：卵の名無しさん mailto:sage [2020/10/01(木) 10:48:54.87 ID:aTCQsuu6.net]: # y=tan(A)(x-a1)+a2 ,y=tan(B)(x-b1)+b2
koten <- function(a1,a2,a,b1,b2,b){
A=a*pi/180
B=b*pi/180
x = (a1* tan(A) - a2 - b1 *tan(B) + b2)/(tan(A) - tan(B))
y = (a1* tan(A)* tan(B) - b1 *tan(A)* tan(B) + b2 *tan(A) - a2* tan(B))/(tan(A) - tan(B))
c(x,y)
}

# coordinates -> angle BAC
BAC <- function(B,A,C){
if(is.complex(B)|is.complex(A)|is.complex(C)){
a=c(Re(A),Im(A)); b=c(Re(B),Im(B)); c=c(Re(C),Im(C))
}else{a=A;b=B;c=C}
ab=b-a
ac=c-a
dot=sum(ab*ac)
bac=acos(dot/sqrt(sum(ab^2))/sqrt(sum(ac^2)))
return(c(rad=bac,deg=bac*180/pi))
}

c=koten(0,0,9, 1,0,180-75)
d=koten(0,0,3, 1,0,180-51)

B=1+0i
C=c[1]+1i*c[2]
D=d[1]+1i*d[2]
BAC(D,C,B)
747 名前：卵の名無しさん mailto:sage [2020/10/01(木) 11:48:30.61 ID:aTCQsuu6.net]: 内視鏡の待機時間の暇つぶし

https://pbs.twimg.com/media/EhYCb9IXcAUeqdH.jpg

# y=tan(A)(x-a1)+a2 ,y=tan(B)(x-b1)+b2
koten <- function(a1,a2,a,b1,b2,b){
A=a*pi/180
B=b*pi/180
x = (a1* tan(A) - a2 - b1 *tan(B) + b2)/(tan(A) - tan(B))
y = (a1* tan(A)* tan(B) - b1 *tan(A)* tan(B) + b2 *tan(A) - a2* tan(B))/(tan(A) - tan(B))
c(x,y)
}

# coordinates -> angle BAC
BAC <- function(B,A,C){
if(is.complex(B)|is.complex(A)|is.complex(C)){
a=c(Re(A),Im(A)); b=c(Re(B),Im(B)); c=c(Re(C),Im(C))
}else{a=A;b=B;c=C}
ab=b-a
ac=c-a
dot=sum(ab*ac)
bac=acos(dot/sqrt(sum(ab^2))/sqrt(sum(ac^2)))
return(c(rad=bac,deg=bac*180/pi))
}

c=koten(0,0,9, 1,0,180-75)
d=koten(0,0,3, 1,0,180-51)

B=1+0i
C=c[1]+1i*c[2]
D=d[1]+1i*d[2]
BAC(D,C,B)
748 名前：卵の名無しさん mailto:sage [2020/10/02(金) 11:00:19.10 ID:rygTEqyI.net]: ド底辺シリツ医の三法則
一、ド底辺シリツ医大が悪いのではない、本人の頭が悪いんだ。
二、ド底辺シリツ医大卒は恥ずかしくて、学校名を皆さま言いません。
三、ド底辺シリツ医大卒は裏口入学の負い目から裏口馬鹿を暴く人間を偽医者扱いしたがる。

> naname()
　底リ三、ツで頭、はを、入く
ドシの一リのの二卒名三口暴　
辺医　シい人　大校　裏を。
ツ則辺悪本。医学。は鹿る
法底が、だツ、ん卒馬が
ド大いんリてせ大口た
医ないシくま医裏し
は悪辺しいツらい
が底か言リか扱
ドずまシ目者
恥さ辺い医
皆底負偽
ドのを
学間
749 名前：卵の名無しさん mailto:sage [2020/10/02(金) 11:00:29.42 ID:rygTEqyI.net]: 　ド辺ツ法ド医はがド恥皆ド学人
底シ医則底大な悪底ずさ底の間
リの　辺がいい辺かま辺負を
三一シ悪、んシし言シい偽
、リい本だリくいリ目医
ツの人。ツてまツか者
での　医、せ医ら扱
頭二大学ん大裏い
、卒校。卒口し
は名　は馬た
を三裏鹿が
、口をる
入暴。
く　
750 名前：卵の名無しさん mailto:sage [2020/10/02(金) 11:02:27.74 ID:rygTEqyI.net]: 斜め読みは読みづらいな
751 名前：卵の名無しさん mailto:sage [2020/10/02(金) 11:07:23.40 ID:rygTEqyI.net]: 　
ド
底
辺
シ
リ
ツ
医
の
三
法
則
752 名前：卵の名無しさん mailto:sage [2020/10/02(金) 11:07:41.00 ID:rygTEqyI.net]: 一
、
ド
底
辺
シ
リ
ツ
医
大
が
悪
い
の
で
は
な
い
、
本
人
の
頭
が
悪
い
ん
だ
。
753 名前：卵の名無しさん mailto:sage [2020/10/02(金) 11:08:05.63 ID:rygTEqyI.net]: 二
、
ド
底
辺
シ
リ
ツ
医
大
卒
は
恥
ず
か
し
く
て
、
学
校
名
を
皆
さ
ま
言
い
ま
せ
ん
。
754 名前：卵の名無しさん mailto:sage [2020/10/02(金) 11:09:08.57 ID:rygTEqyI.net]: 三
、
ド
底
辺
シ
リ
ツ
医
大
卒
は
裏
口
入
学
の
負
い
目
か
ら
　
755 名前：卵の名無しさん mailto:sage [2020/10/02(金) 11:09:17.01 ID:rygTEqyI.net]: 裏
口
馬
鹿
を
暴
く
人
間
を
偽
医
者
扱
い
し
た
が
る
。
756 名前：卵の名無しさん mailto:sage [2020/10/02(金) 12:47:44.57 ID:rygTEqyI.net]: つづら折り、斜め読み

　一辺シのでんだずか、ドを暴。
、底リいはい。恥し三底鹿く　
ドツ悪な悪　はく　辺馬人
医がいが二卒て。シ口
757 名前：間 大、頭、大、んリ裏を 本のド医学せツら偽 人底ツ校ま医か医 辺リ名い大目者 シを言卒い扱 皆まは負い さ裏のし 口学た 入が る 。 []: [ここ壊れてます]
758 名前：卵の名無しさん mailto:sage [2020/10/02(金) 12:47:52.32 ID:rygTEqyI.net]: 一辺シのでんだずか、ドを暴。
、底リいはい。恥し三底鹿く　
ドツ悪な悪　はく　辺馬人
医がいが二卒て。シ口間
大、頭、大、んリ裏を
本のド医学せツら偽
人底ツ校ま医か医
辺リ名い大目者
シを言卒い扱
皆まは負い
さ裏のし
口学た
入が
る　
。
759 名前：卵の名無しさん mailto:sage [2020/10/02(金) 13:40:41.41 ID:rygTEqyI.net]: > str="安倍は二回も仮病で逃亡した国賊"
> naname2(str)
安はも逃賊
倍回で国
二病た
仮し
亡

安倍二仮亡
は回病し
もでた
逃国
賊

安倍も仮賊
は回病国
二でた
逃し
亡

安は二逃亡
倍回でし
も病た
仮国
賊
760 名前：卵の名無しさん mailto:sage [2020/10/02(金) 13:42:56.80 ID:rygTEqyI.net]: ＃　１行斜め読み
ｎａｎａｍｅ　＜－　ｆｕｎｃｔｉｏｎ（
　　ｘ＝”さては裏口容疑者のしりつ医だな”，ｒｅｖｅｒｓｅ＝ＴＲＵＥ
）｛
　　ｓｔｒ＝ｐａｓｔｅ０（’　’，ｘ，ｃｏｌｌａｐｓｅ＝’’）
　　ｎ＝ｎｃｈａｒ（ｓｔｒ）
　　ｉｆ（ｒｅｖｅｒｓｅ）
　　　　ｆｏｒ（ｉ　ｉｎ　１：ｎ）　ｃａｔ（ｒｅｐ（’　’，ｎ－ｉ＋１，），　ｓｕｂｓｔｒ（ｓｔｒ，ｉ，ｉ），’￥ｎ’）
　　ｅｌｓｅ
　　　　ｆｏｒ（ｉ　ｉｎ　１：ｎ）　ｃａｔ（ｒｅｐ（’　’，ｉ－１），ｓｕｂｓｔｒ（ｓｔｒ，ｉ，ｉ），　’￥ｎ’）
｝
ｎａｎａｍｅ（）

＞　ｎａｎａｍｅ（）
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　さ　
　　　　　　　　　　　　　　　　　　　　　　　　　　　　て　
　　　　　　　　　　　　　　　　　　　　　　　　　　は　
　　　　　　　　　　　　　　　　　　　　　　　　裏　
　　　　　　　　　　　　　　　　　　　　　　口　
　　　　　　　　　　　　　　　　　　　　容　
　　　　　　　　　　　　　　　　　　疑　
　　　　　　　　　　　　　　　　者　
　　　　　　　　　　　　　　の　
　　　　　　　　　　　　し　
　　　　　　　　　　り　
　　　　　　　　つ　
　　　　　　医　
　　　　だ　
　　な　
761 名前：卵の名無しさん mailto:sage [2020/10/02(金) 20:21:43.78 ID:JS9K84/R.net]: ｎａｎａｍｅ３　＜－　ｆｕｎｃｔｉｏｎ（
ｓｔｒ＝”ど底辺しりつ医大卒は裏口入学の負い目から裏口馬鹿を暴く人間を偽医者扱いしたがる”，
ｎ＝１５）｛
ｘ＝ｃｈａｒａｃｔｅｒ（）
ｆｏｒ（ｉ　ｉｎ　１：ｎｃｈａｒ（ｓｔｒ））　ｘ［ｉ］＝ｓｕｂｓｔｒ（ｓｔｒ，ｉ，ｉ）
ｓ＝ｍａｔｒｉｘ（ｒｅｐ（’　’，ｎ＾２），ｎ）
ｆｏｒ（ｉ　ｉｎ　１：ｎ）　ｓ［ｉ，ｎ－ｉ＋１］　＜－　ｘ［ｉ］
　ｆｏｒ（ｉ　ｉｎ　１：（ｎ－１））　ｓ［ｉ＋１，ｎ－ｉ＋１］＝’　’
ｆｏｒ（ｉ　ｉｎ　（ｎ＋１）：（ｎ＋ｎ－２））　　　　　　　ｓ［ｉ－　　ｎ＋２　，　２＊ｎ－ｉ＋１］　＜－　ｘ［ｉ］
　ｆｏｒ（ｉ　ｉｎ　１：（ｎ－３））　ｓ［ｉ＋３，ｎ－ｉ＋１］＝’　’
ｆｏｒ（ｉ　ｉｎ　（２＊ｎ－１）：（２＊ｎ－１＋ｎ－５））　ｓ［ｉ－２＊ｎ＋６　，　３＊ｎ－ｉ－１］　＜－　ｘ［ｉ］
　ｆｏｒ（ｉ　ｉｎ　１：（ｎ－５））　ｓ［ｉ＋５，ｎ－ｉ＋１］＝’　’
ｆｏｒ（ｉ　ｉｎ　（３＊ｎ－５）：（３＊ｎ－５＋ｎ－７））　ｓ［ｉ－３＊ｎ＋１２，　４＊ｎ－ｉ－５］　＜－　ｘ［ｉ］

ｆｏｒ（ｉ　ｉｎ　１：ｎ）　ｃａｔ（ｎａ．ｏｍｉｔ（ｓ［ｉ，］），’￥ｎ’）
｝
ｎａｎａｍｅ３（）
762 名前：卵の名無しさん mailto:sage [2020/10/02(金) 20:22:09.99 ID:JS9K84/R.net]: ド
底
辺負
シい
リ目間
ツかを
医ら偽
大裏医
卒口者
は馬扱
裏鹿い
口をし
入暴た
学くが
の人る
763 名前：卵の名無しさん mailto:sage [2020/10/02(金) 20:23:26.12 ID:JS9K84/R.net]: 　
ド
底の
辺負
シい人
リ目間
ツかをる
医ら偽
大裏医
卒口者
は馬扱
裏鹿い
口をし
入暴た
学くが
764 名前：卵の名無しさん mailto:sage [2020/10/02(金) 20:24:17.42 ID:JS9K84/R.net]: 　
ド
底馬
辺鹿
シを
リ暴
ツく
医人
大間
卒を
は偽
裏医
口者
入扱
学い
のし
負た
いが
目る
か
ら
裏
765 名前：卵の名無しさん mailto:sage [2020/10/02(金) 20:49:02.03 ID:JS9K84/R.net]: 　
東
京た
医事
大件頭
のだに
事よ立か
件ねつぎ
は。こり
裏　と、
口シだ信
入リよ頼
学ツ。の
が医　回
現の裏復
在使口は
進命入な
行は学い
形裏のね
で口学。
あ入生
る学を
こ撲除
と滅籍
如国処
実民分
に運に
し動し
めのな
し先い
766 名前：卵の名無しさん mailto:sage [2020/10/02(金) 20:49:33.73 ID:JS9K84/R.net]: つ
まな
りい
、。べ
いシき
つリ。立
まツ　て
で出裏ば
経身口よ
っ者入い
てこ学ぞ
もそ医。
シ、師　
リ裏の僕
ツ口免も
医入許裏
大学剥口
卒に奪入
＝厳を学
裏し！と
口いのか
バ処国、
カ分民言
とせ運っ
汚よ動て
名をのた
は訴先ら
拭え頭信
えるに頼
767 名前：卵の名無しさん mailto:sage [2020/10/02(金) 21:00:21.55 ID:JS9K84/R.net]: 　
つ
ま。
り　
、シ　
いリ裏
つツ口。
ま出入　
で身学僕
経者医も
っこ師裏
てその口
も、免
768 名前：入 シ裏許学 リ口剥と ツ入奪か 医学を、 大に！言 卒厳のっ ＝し国て 裏い民た 口処運ら バ分動信 カせの頼 とよ先の 汚を頭回 名訴に復 はえ立は 拭るてな えべばい なきよ。 い。い []: [ここ壊れてます]
769 名前：卵の名無しさん mailto:sage [2020/10/03(土) 08:11:28.29 ID:X8GPnLB6.net]: 　ド　シ　三　底　い　が　リ　名　シ　馬
　底　リ　法　辺　の　悪　ツ　を　リ　鹿
辺　ツ　則　シ　で　い　医　皆　ツ　を
　医　　　リ　は　ん　大　さ　医　暴
の　一　ツ　な　だ　卒　ま　大　く
　、　医　い　。　は　言　卒　人
ド　大　、　　　恥　い　は　間
　が　本　二　ず　ま　裏　を
悪　人　、　か　せ　口　偽
　の　ド　し　ん　入　医
頭　底　く　。　学　者
　辺　て　　　の　扱
シ　、　三　負　い
　学　、　い　し
校　ド　目　た
　底　か　が
辺　ら　る
　裏　。
口　　
　　
770 名前：卵の名無しさん mailto:sage [2020/10/03(土) 08:13:17.87 ID:X8GPnLB6.net]: 　　ド　シ　三　底　い　が　リ　名　シ　馬
　底　リ　法　辺　の　悪　ツ　を　リ　鹿
辺　ツ　則　シ　で　い　医　皆　ツ　を
　医　　　リ　は　ん　大　さ　医　暴
の　一　ツ　な　だ　卒　ま　大　く
　、　医　い　。　は　言　卒　人
ド　大　、　　　恥　い　は　間
　が　本　二　ず　ま　裏　を
悪　人　、　か　せ　口　偽
　の　ド　し　ん　入　医
頭　底　く　。　学　者
　辺　て　　　の　扱
シ　、　三　負　い
　学　、　い　し
校　ド　目　た
　底　か　が
辺　ら　る
　裏　。
口　　
771 名前：卵の名無しさん mailto:sage [2020/10/03(土) 08:42:05.25 ID:X8GPnLB6.net]: 左　上　白　な　プ　て　は　に
　の　が　っ　ロ　み　い　く
空　無　て　グ　た　え　い
　駄　い　ラ　。　角　。
に　た　ム　　　に　
　の　を　省　文　
で　改　ス　字　
　良　ペ　が　
し　ー　並　
　ス　ぶ　
と　と　
　読　
み　
　

左　空　に　で　し　と　み　
　の　駄　の　良　ス　読　
上　無　た　改　ー　と　
　が　い　を　ペ　ぶ　
白　て　ム　ス　並　
　っ　ラ　省　が　
な　グ　　　字　
　ロ　。　文　
プ　た　に　
　み　角　
て　え　
　い　。
は　い
　く
に
772 名前：卵の名無しさん mailto:sage [2020/10/03(土) 08:58:01.50 ID:X8GPnLB6.net]: 　　　　　　左　駄　プ　た　に
　　　　　上　に　ロ　。　文
　　　　の　な　グ　　　字
　　　空　っ　ラ　省　が
　　白　て　ム　ス　並
　が　い　を　ペ　ぶ
無　た　改　ー　と
　の　良　ス　読
で　し　と　み
　て　は　に
み　い　く
　え　い
角　。
773 名前：卵の名無しさん mailto:sage [2020/10/03(土) 08:58:40.76 ID:X8GPnLB6.net]: 　　　　　　　　医　底　で　だ　恥　せ　学　い
　　　　　ド　の　辺　は　。　ず　ん　の　し
　　　　底　三　シ　な　　　か　。　負　た
　　　辺　法　リ　い　二　し　　　い　が
　　シ　則　ツ　、　、　く　三　目　る
　リ　　　医　本　ド　て　、　か　。
ツ　一　大　人　底　、　ド　ら　　
　、　が　の　辺　学　底　裏　　
ド　悪　頭　シ　校　辺　口　
　い　が　リ　名　シ　馬　
の　悪　ツ　を　リ　鹿　
　い　医　皆　ツ　を　
ん　大　さ　医　暴　
　卒　ま　大　く　
は　言　卒　人　
　い　は　間　
ま　裏　を　
　口　偽　
入　医　
　者　
扱　
　
774 名前：卵の名無しさん mailto:sage [2020/10/03(土) 08:58:46.41 ID:X8GPnLB6.net]: 　　　　　　ツ　ド　の　ん　は　ま　入　扱　
　　　　　リ　、　い　い　卒　い　口　者　
　　　　シ　一　悪　悪　大　言　裏　医　
　　　辺　　　が　が　医　ま　は　偽　
　　底　則　大　頭　ツ　さ　卒　を　
　ド　法　医　の　リ　皆　大　間　
　　三　ツ　人　シ　を　医　人　
　の　リ　本　辺　名　ツ　く　
医　シ　、　底　校　リ　暴　
　辺　い　ド　学　シ　を　
底　な　、　、　辺　鹿　
　は　二　て　底　馬　
で　　　く　ド　口　
　。　し　、　裏　
だ　か　三　ら　
　ず　　　か　　
恥　。　目　　
　ん　い　。
せ　負　る
　の　が
学　た
　し
い
775 名前：卵の名無しさん mailto:sage [2020/10/03(土) 13:16:21.57 ID:X8GPnLB6.net]: 東京医大の事件は裏口入学が現在進行形であること如実にしめした事件だ。
シリツ医の使命は裏口入学撲滅国民運動の先頭に立つこと。
裏口入学の学生を除籍処分にしないかぎり、信頼の回復はない。
つまり、いつまで経ってもシリツ医大卒＝裏口バカと汚名は拭えない。
シリツ出身者こそ、裏口入学に厳しい処分せよを訴えるべき。
裏口入学医師の免許剥奪を！の国民運動の先頭に立てばよい。
僕も裏口入学とか、言ってたら信頼の回復はない。
776 名前：卵の名無しさん mailto:sage [2020/10/03(土) 13:17:04.11 ID:X8GPnLB6.net]: 　　　　　　東　進　行　の　使　除　籍　＝　裏　医　師　　
　　　　　京　在　形　医　命　を　処　卒　口　学　の　。
　　　　医　現　で　ツ　は　生　分　大　バ　入　免　い
　　　大　が　あ　リ　裏　学　に　医　カ　口　許　な
　　の　学　る　シ　口　
777 名前：の　し　ツ　と　裏　剥　は 事　入　こ　　　入　学　な　リ　汚　　　奪　復 件　口　と　。　学　入　い　シ　名　。　を　回 裏　如　だ　撲　口　か　も　は　き　！　の は　実　件　滅　裏　ぎ　て　拭　べ　の　頼 に　事　国　　　り　っ　え　る　国　信 し　た　民　。　、　経　な　え　民　ら し　運　と　信　で　い　訴　運　た め　動　こ　頼　ま　。　を　動　て の　つ　の　つ　　　よ　の　っ 先　立　回　い　シ　せ　先　言 に　復　、　リ　分　頭　、 頭　は　り　ツ　処　に　か な　ま　出　い　立　と い　つ　身　し　て　学 者　厳　ば　入 。　こ　に　よ　口 そ　学　い 、　入　。 口 裏　僕 も 裏　 []: [ここ壊れてます]
778 名前：卵の名無しさん mailto:sage [2020/10/03(土) 19:55:18.52 ID:DtGYj66K.net]: あーあ
779 名前：卵の名無しさん mailto:sage [2020/10/04(日) 19:43:12.12 ID:txbCWDtC.net]: 濃厚接触の動画

https://www.washingtonpost.com/elections/2020/10/03/trump-covid-live-updates/

より

https://i.imgur.com/qlq74pb.jpg
780 名前：卵の名無しさん mailto:sage [2020/10/04(日) 21:58:15.66 ID:txbCWDtC.net]: 生活圏を超える人の移動は、確実に接触率を上げ、これが実効再生産数を挙げて、感染者数上昇を引き起こす。
現在、GOTOで東京のウィルスを全国に拡散中。
しばらくは、旅行を楽しむような若者や元気な人が隠れ陽性となり、感染者数は急には増えないが、やがてこれらが顕在化して爆発する。
781 名前：卵の名無しさん mailto:sage [2020/10/04(日) 22:00:13.58 ID:txbCWDtC.net]: 世の中には、接客業を繁盛させることが「経済を回す」ことだと勘違いしてる馬鹿が多いので、
製造業がかなり疲弊していることが軽視されている。
782 名前：卵の名無しさん mailto:sage [2020/10/04(日) 22:08:06.13 ID:txbCWDtC.net]: 景気が良くても派遣業者とかいう奴隷商人に賃金ピンはねされ
景気が悪くなれば真っ先にくびになる
そんな制度を作ったのが自民党
考え無しに投票した国民による意思だから喜んで解雇されれば良い
783 名前：卵の名無しさん [2020/10/05(月) 11:31:31.98 ID:6RAt/bTF+]: しかし東京医大はひどかった。
まさかねえ～（笑）
784 名前：暗号　！！ [2020/10/05(月) 18:32:05.31 ID:fNqz3KhH/]: 暗号　sinngata korona wo baramaita hannninn　ha

[biru・geitu] akumasuuhaisya
ro-domaitore-ya terorisuto [mokusirokunokemono]
yudaya　jinn [sekai touitu syuukyou]
abe sinnzou [ayasiikoudou kannsennwo hirogeyoutosuru]
masukomi　ga hannninnno nakama
tedorosu [kannsennwo wazato hirogeru]
terebi ni deteiru kagakusya mo hanninn

jinnkoussakugennkeikaku wo susumeru karuto
syuudan
785 名前： ni kiwotukero !![ hannninn ha karutosyuudann!!] []: [ここ壊れてます]
786 名前：卵の名無しさん mailto:sage [2020/10/07(水) 23:00:26.11 ID:/kSbnZff.net]: SAW VI

Did you know that in the Far East,
people pay their doctors
when they're healthy?

When they're sick,
they don't have to pay them.

So, basically,
they end up paying for what they want,

not what they don't want.

We got it all ass-backwards here.
787 名前：卵の名無しさん [2020/10/08(木) 14:13:29.57 ID:aaWv9mW1U]: ＞底辺私立医大を卒業した医者って頭悪いよね　．．．×

底辺私立医大を卒業した医者って怖いよね(ヤブが多いので)．．．○

ヤブにより、年間３万人死んでるとの試算もあるｗｗ
788 名前：卵の名無しさん mailto:sage [2020/10/08(木) 19:24:32.69 ID:206+ydgS.net]: 記者　「10年間くらい(消費税)引き上げなくてもいいという、その根拠ついては何だと考えられているのか」
菅　　「まさに、アベノミクスを推進をし、経済を成長させる。まさに、経済成長…え…経済を再生させると、させなければ、財政健全化ないという、その政策のである」

https://twitter.com/shin19infinity/status/1304367586738487297

アベちゃん以上にひどいじゃないか。完全に耄碌ジジイ。

安倍のほうがマシだったという時代が来そうだな。
(deleted an unsolicited ad)
789 名前：卵の名無しさん mailto:sage [2020/10/08(木) 19:34:02.60 ID:206+ydgS.net]: 　　　　　　 D 　ア　は　知　い　も　医　は　現
　　　　　 S 　ス　削　識　い　な　師　こ　が
　　　　 M 　ペ　除　を　ぞ　い　に　れ　、
　　　 - 　ル　さ　ア　。　真　最　！　さ
　　 I 　ガ　れ　ッ　　　理　も　　　て
　 V 　ー　た　プ　ア　も　イ　　　は
で　症　こ　デ　ッ　あ　ン　裏　シ
　候　と　ー　プ　る　パ　口　リ
群　く　ト　デ　。　ク　シ　ツ
　ら　し　ー　　　ト　リ　だ
い　た　ト　（　が　ツ　な
　方　す　例　あ　医　　
が　る　）　る　　　で
　必　　　レ　こ　あ
要　日　ッ　の　る
　本　テ　マ　。
の　ル　イ　
　貼　ル　
り　ド　
　な　
表　
　
790 名前：卵の名無しさん mailto:sage [2020/10/09(金) 06:35:42.82 ID:MO9EjN/O.net]: そ返 W タてだ　
うる O ーいな　
いの R をる　　
うは D スっ　　
レ N フルて　　
ス G ィーこ　　
がルしと　
791 名前：卵の名無しさん mailto:sage [2020/10/09(金) 06:36:37.59 ID:MO9EjN/O.net]: そ返 W タてだ　
うる O ーいな　
いの R をる　　
うは D スっ　　
レ N フルて　　
ス G ィーこ　　
がルしと　

まグの種　
あラ練の　
、ミ習道　
プンで楽　
ログ一
792 名前：卵の名無しさん mailto:sage [2020/10/09(金) 18:22:00.81 ID:MO9EjN/O.net]: 二〇一一年三月の東日本大震災と東京電力福島第一原発事故以降にでも、
政府による圧倒的な産業支援や、または税制優遇を通じて蓄電池やそれにまつわる半導体、太陽光パネルとそれに関連する薄膜技術、あるいはＥＶを想定したモーターと電磁石などの技術開発に投資が向かっていれば、この分野で日本が世界的に覇権を握ることが可能であっただ
793 名前：ろう。 []: [ここ壊れてます]
794 名前：卵の名無しさん mailto:sage [2020/10/09(金) 18:22:54.14 ID:MO9EjN/O.net]: 「戦わずして負ける国」という文脈でこの事象を見れば、原発依存の継続は、米国が仕組んだ日本の「経済的武装解除」だったのではないかと私は推察する。　
二一世紀のエネルギー覇権を日本が握ることは、米国にとって許されない。だから「原発」という過去の負の遺産を背負わせ続ける。
そうして世界経済の中で戦える武器を奪い取り、経済的属国化を維持、継続しようとしたのではないか。

田崎基. 令和日本の敗戦　──虚構の経済と蹂躙の政治を暴く (ちくま新書) (Kindle の位置No.2160-2164). 筑摩書房. Kindle 版.
795 名前：卵の名無しさん mailto:sage [2020/10/11(日) 06:00:20.59 ID:vXgR5p/0.net]: A(t)=
at when 0<t<2400/a
2400 - a(t-2400/a)=4800-at when 2400/a<t<4800/a

B(t)=
2400 - bt when 0<t<2400/b
bt-2400 when 2400/b<t<4800/b
796 名前：卵の名無しさん mailto:sage [2020/10/11(日) 06:32:39.03 ID:vXgR5p/0.net]: Aを原点して太郎君の速度をa,次郎君の速度をbとして
時刻tにおける太郎君の位置A(t)は
A(t)=
at when 0<t<2400/a
2400 - a(t-2400/a)=4800-at when 2400/a<t<4800/a

時刻tにおける太郎君の位置B(t)は
B(t)=
2400 - bt when 0<t<2400/b
bt-2400 when 2400/b<t<4800/b

一回目に出会う時刻をt1、その座標をx1として
x1=at1=2400-bt1
二回目に出会う時刻をt2、その座標をx2として
x2=4800-at2=bt2-2400

x1-x2=320なので
at1-(4800-at2)=320
at1-(bt2-2400)=320
2400-bt1-(4800-at2)=320

整理すると
at1+at2=5120
at1-bt2=-2080
at2-bt1=320-2400-4800
797 名前：卵の名無しさん mailto:sage [2020/10/11(日) 07:34:46.49 ID:3gd5bAO1.net]: 同時に出発してAとBの間を往復します。
ＡからＢへ向かって太郎君が，ＢからＡへ向かって次郎君が進みます。
ＡとＢ地点の間の距離は２４００メートルです。２回目に出会った地点は１回目に出会った地点よりも３２０メートルＡ側にずれた地点でした。このとき太郎と次郎の速さの比を答えなさい。
798 名前：卵の名無しさん mailto:sage [2020/10/11(日) 12:25:24.12 ID:OQwYWkDR.net]: 太郎君の速度をa,次郎君の速度をbとして

横軸に時間、縦軸にAからの距離をグラフにすると
黒が太郎、赤が次郎。交点の縦座標の差が320になる。

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

1st encounter
y=ax
y=2400-bx
を解いて
時間2400/(a+b)に2400a/(a+b))で1回の出会い

y=4800-ax
y=bx-2400
を解いて
時間7200/(a+b)に4800-7200a/(a+b))で2回目の出会い

Aからの距離の差が320ｍなので
2400a/(a+b) - ( 4800-7200a/(a+b) ) = 320

これを展開すると
7a=8b
a/b=8/7
太郎：次郎＝8：7
799 名前：卵の名無しさん mailto:sage [2020/10/11(日) 13:07:27.40 ID:OQwYWkDR.net]: >>742
グラフに説明をいれてみた

https://i.imgur.com/Utn6XM3.png
800 名前：卵の名無しさん mailto:sage [2020/10/11(日) 14:43:19.31 ID:OQwYWkDR.net]: taro <- function(t,v=80,d=2400){
to=d/v # time for oneway trip
if((t%/%to)%%2==0) return(v*t%%to)
else return(d - v*t%%to)
}

taro=Vectorize(taro)
t=seq(0,300,0.1)
plot(t,taro(t,v=80),type='l',bty='l',xlab='時間',ylab='Aからの距離',axes=F)
axis(2)
axis(1,labels = F)

jiro <- function(t,.v=70,.d=2400){
.d - taro(t,v=.v,d=.d)
}

jiro=Vectorize(jiro)
lines(t,jiro(t),col=2)
legend('bottom',bty='n',legend=c('太郎','次郎'),col=1:2,lwd=1)
801 名前：卵の名無しさん mailto:sage [2020/10/11(日) 15:16:31.23 ID: ]: [ここ壊れてます]
802 名前：OQwYWkDR.net mailto: 発展問題を考えてみた。

太郎君と次郎君が同時に出発してAとBの間を往復を繰り返します。
ＡからＢへ向かって太郎君が，ＢからＡへ向かって次郎君が進みます。
ＡとＢ地点の間の距離は２４００メートルです。２回目に出会った地点は１回目に出会った地点よりも３２０メートルＡ側にずれた地点でした。
７回目に会う場所はA地点からどれだけ離れた点か答えなさい。 []: [ここ壊れてます]
803 名前：卵の名無しさん mailto:sage [2020/10/11(日) 20:47:55.10 ID:OQwYWkDR.net]: ## distance between taro & jiro
dtj <- function(t,vT=80,vJ=70,d=2400){
jiro(t,vJ,d) - taro(t,vT,d)
}
t=seq(0,500,0.25)
plot(t,dtj(t),type='l',axes=F) ; abline(h=0,lty=3)
axis(2) ; axis(1,labels=F)
uniroot(dtj,c(50,100)) # 3rd encounter
taro(80) # its location
uniroot(dtj,c(200,210)) # 7th encounter
taro(208) # its location
taro(240) ; jiro(240) # 8th at point A

round(dtj(16+32*0:19),10)
data.frame(distance=taro(16+32*0:19))
804 名前：卵の名無しさん mailto:sage [2020/10/11(日) 21:45:18.85 ID:OQwYWkDR.net]: # where is n_th encouter?
nthe <- function(n) taro(16+32*0:14)[ifelse(n%%15,n%%15,15)]
nthe=Vectorize(nthe)
nthe(777)
n=1:100
plot(n,nthe(n),type='l',xlab='n-th encounter',ylab='distance from A')
805 名前：卵の名無しさん mailto:sage [2020/10/11(日) 21:45:42.67 ID:OQwYWkDR.net]: 横軸を出会いが何回めか、縦軸に出会った点のAからの距離としてグラフにしてみた。

https://i.imgur.com/BQOtahj.png
806 名前：卵の名無しさん mailto:sage [2020/10/12(月) 07:44:18.91 ID:Zj/JMD3u.net]: Vt:太郎の速度、Vj:次郎の速度
A1:１回目の出会いの点、A2=2回目の出会いの点
Vt/Vj=A1/(2400-A1)=((2400-A1)+(2400-A2))/(A1+A2)

A1=x、A2=x-320から
Vt/Vj=x/(2400-x)=((2400-x)+(2400-(x-320))) / (x+x-320)
これを解くとx=1280なので
Vt/Vj=1280/(2400-1280)=8/7

D=2400,d=320
y=x/(D-x)=((D-x)+(D-(x-d))) / (x+x-d)
x = (d + 2 D) /4
Vt/Vj = (2 D + d)/(2 D - d)

((D-x)+(D-(x-d))) - (x+x-d) where x = (d + 2 D) /4
== d
807 名前：卵の名無しさん mailto:sage [2020/10/12(月) 13:12:22.39 ID:SUwbGDSe.net]: ## 元利均等返済の支払総額　- 元金均等返済の支払総額
# D:借入額　r:月利(年利/12) N:返済月数
Dd <- function(D=10^8,r=0.01/12,N=120) D*N*r*(1+r)^N/((1+r)^N-1) - D*( 1 + r*(N+1)/2)
Dd()
808 名前：卵の名無しさん mailto:sage [2020/10/12(月) 13:14:49.46 ID:SUwbGDSe.net]: １億円を年利１％で１０年返済で借りたとする。
　元利均等返済の支払総額
　元金均等返済の支払総額
の差はいくらか？
809 名前：卵の名無しさん mailto:sage [2020/10/12(月) 18:23:49.86 ID:1zSGJut3.net]: 日本の官僚のような表現だなぁ。

COVID-19 can sometimes be spread by airborne transmission

https://www.cdc.gov/coronavirus/2019-ncov/prevent-getting-sick/how-covid-spreads.html
810 名前：卵の名無しさん mailto:sage [2020/10/13(火) 08:38:52.98 ID:Y7G3krN3.net]: HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\UsbStor

この中の「Start」の値を「4」にすればUSBメモリが使えなくなり、「3」にすればUSBメモリが使えるようになるという
811 名前：卵の名無しさん mailto:sage [2020/10/13(火) 12:18:01.05 ID:tuQgtMnl.net]: Windows 10で自動サインインするには、次の手順にしたがって「netplwiz」というコマンドで設定を変更すればよい。
812 名前：卵の名無しさん mailto:sage [2020/10/13(火) 12:18:44.62 ID:Y7G3krN3.net]: 自動サインインは便利な反面、パスワードの入力を省くことにより、第三者に勝手にパソコンを利用されるリスクがあるなどの懸念がある。
しかし、個人利用のみで、自宅でしか使っていないパソコンなら、その種の心配は少ないだろう。

パスワードの入力の煩雑さにイライラしていた人
813 名前：は、ぜひ自動サインインで自宅の自分パソコンの起動を快適にして利用してみてはいかがだろうか。 https://news.livedoor.com/article/detail/17065047/ []: [ここ壊れてます]
814 名前：卵の名無しさん mailto:sage [2020/10/13(火) 13:24:32.54 ID:fNIliGFO.net]: 左翼は正論で反駁するからダメなんだよね愚民というものの性質が分かってない。だから選挙で敗ける。
815 名前：卵の名無しさん mailto:sage [2020/10/14(水) 16:31:36.14 ID:DE6sqMps.net]: クリプトン電球(LDS100V54W)

LED電球(LDA6LHE17BHS)
816 名前：卵の名無しさん mailto:sage [2020/10/15(木) 07:07:49.54 ID:S3zpGp7K.net]: >>755
スリープ解除時のパスワード入力を省略する

[スタートボタン] をクリックして [設定] をクリックします。
startsetting

[アカウント] をクリックします。
account

[サインインオプション] をクリックします。

「しばらく操作しなかった場合に・・・」から [常にオフ] を選択します。
817 名前：卵の名無しさん mailto:sage [2020/10/15(木) 10:30:33.43 ID:BdYTZNok.net]: pm=permutations(1:20,5)
f <- function(x,n) sum(any(1:5==x))==n
s=numeric(5)
for(i in 1:5){
s[i]=sum(apply(pm,1, function(x) f(x,i)))
}
s
818 名前：卵の名無しさん mailto:sage [2020/10/15(木) 17:00:30.96 ID:0HNu1VEE.net]: rm(list=ls())
options(digits=22)

library(gtools)

pm=permutations(20,5,1:20) # 1-20から5個の順列
f <- function(x,n) sum(1:5==x)==n　# 配列xのｎ番目にｎが配置された数を返す
s=numeric(5)
for(i in 1:5){
s[i]=sum(apply(pm,1, function(x) f(x,i))) #i番目がiの数(=正解数)を返す
}
# s 375045 41270 2410 75 1

N=choose(20,5)*factorial(5) # 1860480 20順列5
MASS::fractions(sum((1:5)*s)/N) # 期待値の分数表示

N-sum(s) # 1441679　０点の場合の数
P0=(N-sum(s))/N
MASS::fractions(P0) # ０点の確率
P=c(P0,s/N) #０点～５点の確率

score=permutations(6,8,0:5,repeats=TRUE) # ８問のすべての点数(0-5)の順列
total_score=apply(score,1,sum) # 総得点の数列
(si=score[total_score>=24,]) # 総得点24点以上の数列

g <- function(x) prod(P[x+1]) # 点数配列→その確率
sum(apply(si,1,g) #その点数(24点以上）になる確率の総和
819 名前：卵の名無しさん mailto:sage [2020/10/16(金) 10:29:31.81 ID:D9Sfv+HZ.net]: 社労士試験２　<- function(
n20=20, # 選択肢数
n5=5, # 空欄数
n8=8, # 問題数
n24=24 # 合格最低点
){
library(gtools)
library(gmp)
pm=permutations(n20,n5,1:n20)
f <- function(x,n) sum(1:n5==x)==n　
s=numeric(n5)
for(i in 1:n5){
s[i]=sum(apply(pm,1, function(x) f(x,i)))
}
N=chooseZ(n20,n5)*factorial(n5)
s0=N-sum(s)
S=c(s0,s)
score=permutations(n5+1,n8,0:n5,repeats=TRUE)
s24=score[apply(score,1,sum)>=n24,]
n=as.bigz(0) # numerator
for(i in 1:nrow(s24)){
n=add.bigz(n,prod.bigz(S[s24[i,]+1]))
}
P=n/(N^n8) # 分数表示
nP=asNumeric(P) # 少数表示
list(P,nP)
}
社労士試験２(20,5,8,24)
社労士試験２(15,5,8,30)
820 名前：卵の名無しさん mailto:sage [2020/10/16(金) 17:24:43.94 ID:u4+tsgdi.net]: f <- function(Box,Sum){ # Box:箱の数,Sum：入った数字の合計の値
# 重複を許してｎ個からｒ個を選ぶ組み合わせを列挙する
H <- function(n, r, v=1:n) {
if (r == 0)
NULL
else if (r == 1)
matrix(v, n, 1)
else if (n == 1)
matrix(v, 1, r)
else rbind(cbind(v[1], H(n, r - 1, v)), H(n - 1, r, v[-1]))
}
h=H(Box,Sum-Box) # Box
821 名前：個の中から重複を許してSum-Box個を選ぶ nh=nrow(h) # その組み合わせ数 re=matrix(rep(NA,Box*nh),nrow=nh,ncol=Box) # メモリ確保 a=numeric(Box) for(i in 1:nh){　# 各々の選び方iに対して for(j in 1:Box) a[j]=sum(j==h[i,]) # どの箱が何個選択されたかを re[i,] =a # reのi行に入れる } return(re+1) # 1から始まる分を補正 } 箱３個合計９の場合 > f(Box=3,Sum=9) []: [ここ壊れてます]
822 名前：卵の名無しさん mailto:sage [2020/10/17(土) 08:36:54.78 ID:fyhn97rm.net]: '%=>%' = function(P,Q) !(P & !Q)
(gr=expand.grid(c(T,F),c(T,F)))
f <- function(P,Q) (P %=>% (Q & !Q)) %=>% !P
mapply(f,gr[,1],gr[,2])
823 名前：卵の名無しさん mailto:sage [2020/10/17(土) 14:38:05.30 ID:sRhm83DJ.net]: # ロシアのワクチンは旧ソ連の人工衛星にちなみ「スプートニクＶ」と名付けられた。
# ランセットに掲載された論文によると、
# ７６人を対象に第１相および第２相の治験を行ったところ、
# 全員が新型コロナウイルスに対する抗体を獲得したという。
# 米Ｊ＆Ｊ、コロナワクチン治験中断　参加者が原因不明の病気
# 同社は９月、新型コロナワクチンの治験の最終段階に当たる第３相試験に着手したと発表。
# 最大６万人を対象に安全性や有効性を確認するとしていた。

# 治験が再開されて6万例でこの奇病1例だけと仮定して発生割合を1/60000とする。
# ロシアのワクチンではこの奇病の報告はないから発生割合は0/76

# 奇病発生率1/60000と0/76では、どちらが奇病発生が少ないといえるか？

rm(list=ls())
source('tools.R')

# Jeffereys prior
a=b=0.5
par(mfrow=c(2,1))
curve(dbeta(x,a+0,b+76),bty='l')
curve(dbeta(x,a+1,b+59999),col=2,bty='l')
k=1e6

SP=rbeta(k,a+0,b+76)
JJ=rbeta(k,a+1,b+59999)
mean(SP/JJ>1)
mean(SP-JJ>0)

jags4prop(0,1,76,60000,0.5,0.5)
824 名前：卵の名無しさん mailto:sage [2020/10/17(土) 14:38:24.29 ID:sRhm83DJ.net]: # Uniform prior
a=b=1
par(mfrow=c(2,1))

curve(dbeta(x,a+0,b+76),bty='l')
curve(dbeta(x,a+1,b+59999),col=2,bty='l')
k=1e6

SP=rbeta(k,a+0,b+76)
JJ=rbeta(k,a+1,b+59999)
mean(SP/JJ>1)
mean(SP-JJ>0)

jags4prop(0,1,76,60000,1,1)
825 名前：卵の名無しさん mailto:sage [2020/10/17(土) 14:40:22.82 ID:sRhm83DJ.net]: jags4prop <- function(r1,r2,n1,n2,alpha=1,beta=1,
ROPEdiff=c(-0.025,0.025),ROPErate=c(0.80,1.25),
NNT=FALSE){
library(rjags)
y=c(rep(1,r1),rep(0,n1-r1),rep(1,r2),rep(0,n2-r2))
s=as.numeric(factor(c(rep('D',n1),rep('U',n2))))
a=alpha ; b=beta # JAGS prior : beta(alpha,beta)
myData=data.frame(y=y,s=s)
Ntotal = length(y)
Nsubj = length(unique(s))
dataList = list(
y = y ,
s = s ,
Ntotal = Ntotal ,
Nsubj = Nsubj
)
826 名前：卵の名無しさん mailto:sage [2020/10/17(土) 14:40:27.01 ID:sRhm83DJ.net]: # JAGS model
modelString = paste0("
model {
for ( i in 1:Ntotal ) {
y[i] ~ dbern( theta[s[i]] )
}
for ( sIdx in 1:Nsubj ) {
theta[sIdx] ~ dbeta(", a,',' , b," )
}
}
")
writeLines( modelString , con="TEMPmodel.txt" )
jagsModel = jags.model( file="TEMPmodel.txt" , data=dataList, quiet=TRUE)
update(jagsModel)
codaSamples = coda.samples( jagsModel , variable="theta", n.iter=10000 )
mcmcMat=as.matrix(codaSamples)
rate1=mcmcMat[,1]
rate2=mcmcMat[,2]
x11()
par(mfrow=c(2,2))
827 名前：BEST::plotPost(rate1,col='gray') if(NNT){ BEST::plotPost(abs(1/(rate1-rate2)), xlab ='NNT(NNH)',col='pink')} else{ BEST::plotPost(rate1-rate2,compVal=0,ROPE=ROPEdiff,cex=1,col='pink') } BEST::plotPost(rate2,col='gray') BEST::plotPost(rate1/rate2,compVal=1,ROPE=ROPErate,col='skyblue') invisible(codaSamples) } []: [ここ壊れてます]
828 名前：卵の名無しさん mailto:sage [2020/10/17(土) 15:32:20.54 ID:sRhm83DJ.net]: source('tools.R')
# Jeffereys prior
a=b=0.5
par(mfrow=c(2,1))
curve(dbeta(x,a+0,b+76),bty='l')
curve(dbeta(x,a+1,b+59999),col=2,bty='l')

k=1e6
SP=rbeta(k,a+0,b+76)
JJ=rbeta(k,a+1,b+59999)
mean(SP/JJ>1)
mean(SP-JJ>0)
BEST::plotPost(SP/JJ,compVal = 1)
BEST::plotPost(SP-JJ,compVal = 0)
jags4prop(0,1,76,60000,0.5,0.5)

# Uniform prior
a=b=1
par(mfrow=c(2,1))
curve(dbeta(x,a+0,b+76),bty='l')
curve(dbeta(x,a+1,b+59999),col=2,bty='l')

k=1e6
SP=rbeta(k,a+0,b+76)
JJ=rbeta(k,a+1,b+59999)
mean(SP/JJ>1)
mean(SP-JJ>0)
BEST::plotPost(SP/JJ,compVal = 1)
BEST::plotPost(SP-JJ,compVal = 0)
jags4prop(0,1,76,60000,1,1)
829 名前：卵の名無しさん mailto:sage [2020/10/17(土) 17:08:54.41 ID:sRhm83DJ.net]: 安倍・自由移民党のおかげや

日本女性の梅毒患者数はこの5年間で25倍に増加
://biz-journal.jp/2017/03/post_18252.html
830 名前：卵の名無しさん mailto:sage [2020/10/17(土) 23:32:11.70 ID:dEPfTJ75.net]: >>764
> # 全員が新型コロナウイルスに対する抗体を獲得したという。
ワロタ
831 名前：卵の名無しさん mailto:sage [2020/10/18(日) 04:42:31.02 ID:PYky+T0u.net]: options(digits=22)
par(bty='l')
par(mfrow=c(2,1))

f <- function(x) x^x
curve(f(x),-0.1,1)
D(expression(x^x),'x')
f1 <- function(x) x^(x - 1) * x + x^x * log(x)
curve(f1(x),-0.1,1) ; abline(h=0,lty=3)
uniroot(f1,c(0.01,1)) ; 1/exp(1)
f(1/exp(1)) ; exp(-1/exp(1))
832 名前：卵の名無しさん mailto:sage [2020/10/18(日) 04:44:21.95 ID:PYky+T0u.net]: >>770
値に０や１があるとカイ二乗検定が使えないから、ベイズ統計で処理することになるね。
833 名前：卵の名無しさん mailto:sage [2020/10/18(日) 15:12:57.46 ID:SLEF4C2c.net]: sim <- function(n){
a=numeric()
a[1]=0
if(n==1) return(a)
a[2]=sample(0:2,1)
if(n==2) return(a)
for(i in 3:n){
x=sample(0:2,1)
a[i]=x
if(x==0){
i_max=max(which(a[1:(i-1)]==0))
b=a[(i_max+1):(i-1)]
if(all(b!=2)){
b[b==1]=0
a[(i_max+1):(i-1)]=b
}
}
}
return(a)
}
834 名前：卵の名無しさん mailto:sage [2020/10/18(日) 15:49:59.13 ID:PYky+T0u.net]: "
時刻t=0に、黒板に数字0が書かれている。
各時刻t=1,2,3,...において、数字0,1,2を下図のように1つずつ横一列に書いていく。
どの数字が書かれるかは同様に確からしい。

（t=0のとき）0
（t=5のときの一例）011212

各時刻tにおいて、数字を1つ書き終えた後、以下の操作を一回行う。

【操作】
この時刻に書かれた数字が0であった場合、そこから最も近い位置の0を探す。
この2つの0で挟まれた数字列の中に1がある場合、それら全てを0に書き換える。
ただしこの数字列の中に2が1つでも含まれる場合は、数字列に対する何らの操作も行わない。
"
835 名前：卵の名無しさん mailto:sage [2020/10/18(日) 15:50:06.26 ID:PYky+T0u.net]: rm(list=ls())

f<- function(t){ # 時刻tでの数列aを返す
a=numeric()
a[1]=0 　　 # a[1]=0, t=0での数列
if(t==0) return(a)
for(i in 2:(t+1)){
x=sample(0:2,1) # 追加する数字0,1,2
a[i]=x
if(x==0){ # 0であれば
i_max=max(which(a[1:(i-1)]==0)) # i_max:追加前の最後の0のindex
b=a[(i_max+1):(i-1)] # b:追加前の最後の0からの追加した0を除く数列
if(all(b!=2)){ # bに2が含まれなければ
b[b==1]=0 # bの１を0に置き換えて
a[(i_max+1):(i-1)]=b # aの配列に置換する
}
}
}
return(a)
}
f(10)
sim <- function(n) sum(f(n)==0)
mean(replicate(1e4,sim(10)))
836 名前：卵の名無しさん mailto:sage [2020/10/18(日) 16:28:25.78 ID:PYky+T0u.net]: # 書かれた数列から変換後の結果を返す
f<- function(y=c(1,1,0,1,2,0,1)){
t=length(y)
a=numeric(t+1)
a[1]=0 　　 # a[1]=0, t=0での数列
if(t==0) return(a)
for(i in 2:(t+1)){
x=y[i-1]
a[i]=x
if(x==0){ # 0であれば
i_max=max(which(a[1:(i-1)]==0)) # i_max:追加前の最後の0のindex
b=a[(i_max+1):(i-1)] # b:追加前の最後の0からの追加した0を除く数列
if(all(b!=2)){ # bに2が含まれなければ
b[b==1]=0 # bの１を0に置き換えて
a[(i_max+1):(i-1)]=b # aの配列に置換する
}
}
}
return(a)
}
f(c(1,1,0))
f(c(1,1,0,1,2,0,1))
837 名前：卵の名無しさん mailto:sage [2020/10/18(日) 16:28:45.18 ID:PYky+T0u.net]: > f(c(1,1,0))
[1] 0 0 0 0
> f(c(1,1,0,1,2,0,1))
[1] 0 0 0 0 1 2 0 1
838 名前：卵の名無しさん mailto:sage [2020/10/19(月) 06:14:37.34 ID:0wKKOwQC.net]: 問題：
シリツ医ならば (馬鹿ならば裏口である)　という命題が真であるときに結論できるのは以下のいずれか？

1 : シリツ医ならば (裏口ならば馬鹿である)
2 : 馬鹿ならば (シリツ医ならば裏口である)
3 : 馬鹿ならば (裏口ならばシリツ医である)
4 : 裏口ならば (シリツ医ならば馬鹿である)
5 : 裏口ならば (馬鹿ならばシリツ医である)

# ならばの定義：(P かつ (Qでない))ではない
'%=>%' = function(P,Q) !(P & !Q)

A = function(S,B,U) S %=>% (B %=>% U)
B1 = function(S,B,U) S %=>% (U %=>% B)
B2 = function(S,B,U) B %=>% (S %=>% U)
B3 = function(S,B,U) B %=>% (U %=>% S)
B4 = function(S,B,U) U %=>% (S %=>% B)
B5 = function(S,B,U) U %=>% (B %=>% S)

C1 = function(S,B,U) A(S,B,U) %=>% B1(S,B,U)
C2 = function(S,B,U) A(S,B,U) %=>% B2(S,B,U)
C3 = function(S,B,U) A(S,B,U) %=>% B3(S,B,U)
C4 = function(S,B,U) A(S,B,U) %=>% B4 (S,B,U)
C5 = function(S,B,U) A(S,B,U) %=>% B5 (S,B,U)

gr=expand.grid(c(T,F),c(T,F),c(T,F))

all(mapply(C1,gr[,1],gr[,2],gr[,3]))
all(mapply(C2,gr[,1],gr[,2],gr[,3]))
all(mapply(C3,gr[,1],gr[,2],gr[,3]))
all(mapply(C4,gr[,1],gr[,2],gr[,3]))
all(mapply(C5,gr[,1],gr[,2],gr[,3]))
839 名前：卵の名無しさん mailto:sage [2020/10/19(月) 06:20:48.23 ID:0wKKOwQC.net]: D2 = function(S,B,U) B2(S,B,U) %=>% A(S,B,U)
all(mapply(D2,gr[,1],gr[,2],gr[,3]))
840 名前：卵の名無しさん mailto:sage [2020/10/19(月) 08:19:51.56 ID:/Dz9Hd0l.net]: "
問題　：　「シリツ医ならば (馬鹿ならば裏口である)」という命題と同値な命題はどれか？

1 : シリツ医ならば (裏口ならば馬鹿である)
2 : 馬鹿ならば (シリツ医ならば裏口である)
3 : 馬鹿ならば (裏口ならばシリツ医である)
4 : 裏口ならば (シリツ医ならば馬鹿である)
5 : 裏口ならば (馬鹿ならばシリツ医である)
"

# PならばQ ≡　(P かつ (Qでない))ではない
'%=>%' = function(P,Q) !(P & !Q)
# premise
A = function(S,B,U) S %=>% (B %=>% U)

# choice
B1 = function(S,B,U) S %=>% (U %=>% B)
B2 = function(S,B,U) B %=>% (S %=>% U)
B3 = function(S,B,U) B %=>% (U %=>% S)
B4 = function(S,B,U) U %=>% (S %=>% B)
B5 = function(S,B,U) U %=>% (B %=>% S)

# premise => choice
C1 = function(S,B,U) A(S,B,U) %=>% B1(S,B,U)
C2 = function(S,B,U) A(S,B,U) %=>% B2(S,B,U)
C3 = function(S,B,U) A(S,B,U) %=>% B3(S,B,U)
C4 = function(S,B,U) A(S,B,U) %=>% B4(S,B,U)
C5 = function(S,B,U) A(S,B,U) %=>% B5(S,B,U)

# combination grid of TRUE & FALSE
gr=expand.grid(c(T,F),c(T,F),c(T,F))
841 名前：卵の名無しさん mailto:sage [2020/10/19(月) 08:20:03.95 ID:/Dz9Hd0l.net]: # test for premise => choice
all(mapply(C1,gr[,1],gr[,2],gr[,3]))
all(mapply(C2,gr[,1],gr[,2],gr[,3])) # TRUE
all(mapply(C3,gr[,1],gr[,2],gr[,3]))
all(mapply(C4,gr[,1],gr[,2],gr[,3]))
all(mapply(C5,gr[,1],gr[,2],gr[,3]))

# choice -> premise
D1 = function(S,B,U) B1(S,B,U) %=>% A(S,B,U)
D2 = function(S,B,U) B2(S,B,U) %=>% A(S,B,U)
D3 = function(S,B,U) B3(S,B,U) %=>% A(S,B,U)
D4 = function(S,B,U) B4(S,B,U) %=>% A(S,B,U)
D5 = function(S,B,U) B5(S,B,U) %=>% A(S,B,U)

# test for choice -> premise
all(mapply(D1,gr[,1],gr[,2],gr[,3]))
all(mapply(D2,gr[,1],gr[,2],gr[,3])) # TRUE
all(mapply(D3,gr[,1],gr[,2],gr[,3]))
all(mapply(D4,gr[,1],gr[,2],gr[,3]))
all(mapply(D5,gr[,1],gr[,2],gr[,3]))
842 名前：卵の名無しさん mailto:sage [2020/10/21(水) 10:28:20.87 ID:evABqEzF.net]: 忘年会は自粛。罹ると面倒くさいし。
14日間隔離、家族や職場、飲みの近くにいる連中も検査して隔離され迷惑もかける。
さらに他人になんか言われそうだしな。
こんな面倒な病気に罹るのはマイナス面しかない
843 名前：卵の名無しさん mailto:sage [2020/10/22(木) 23:03:27.35 ID:bnz5ObG8.net]: is.wholenumber <- function(x, tol = .Machine$double.eps^0.5) abs(x - round(x)) < tol
844 名前：卵の名無しさん mailto:sage [2020/10/22(木) 23:15:24.81 ID:bnz5ObG8.net]: # combination grid of TRUE & FALSE

gr=expand.grid(c(T,F),c(T,F),c(T,F))
colnames(gr)=c('S','B','U')

# PならばQ ≡　(P かつ (Qでない))ではない
'%=>%' = function(P,Q) !(P & !Q)
# premise
A = function(S,B,U) S %=>% (B %=>% U)
# choice
B1 = function(S,B,U) S %=>% (U %=>% B)
B2 = function(S,B,U) B %=>% (S %=>% U)
B3 = function(S,B,U) B %=>% (U %=>% S)
B4 = function(S,B,U) U %=>% (S %=>% B)
B5 = function(S,B,U) U %=>% (B %=>% S)

gr
A =mapply(A , gr[,1],gr[,2],gr[,3])
B1=mapply(B1, gr[,1],gr[,2],gr[,3])
B2=mapply(B2, gr[,1],gr[,2],gr[,3])
B3=mapply(B3, gr[,1],gr[,2],gr[,3])
B4=mapply(B4, gr[,1],gr[,2],gr[,3])
B5=mapply(B5, gr[,1],gr[,2],gr[,3])

cbind(gr,A,B1,B2,B3,B4,B5)
845 名前：卵の名無しさん mailto:sage [2020/10/23(金) 00:04:18.09 ID:h/e+1+Nn.net]: オリンピック中止を国民に伝える前に、コロナのせいにするためGOTOキャンペーン推進中というのはうがった見方？？
846 名前：卵の名無しさん mailto:sage [2020/10/23(金) 16:21:26.33 ID:qwP7c+cz.net]: モウロクジジイ菅ｗ
意味不明なことばかり言ってるお前が国民に理解されるべきだろうがｗ

菅って、陰湿・陰険な老害、説明能力ゼロの無理筋悪代官丸出し

総合的俯瞰的w
いくら頭が悪いにしても無理がありすぎ

この一ヶ月で分かった菅の特徴

・陰湿・陰険

・聞かれたことに答えない不誠実さ、トンチンカン、ピント外れ

・説明能力ゼロだから、答えずに逃げる
・論点ずらし

・同じ言葉の繰り返し
・やったこと自慢の昔話

・インタビューでも用意された原稿丸読み棒読みｗ

・自著で、早速、公文書管理の項目を改竄w

やってることも後付け言い訳もヤバすぎるだろ。ピント外れの陰湿モウロク爺さんを通り越してるぞｗ
847 名前：卵の名無しさん mailto:sage [2020/10/26(月) 06:16:14.37 ID:pV7suPPf.net]: 米国が移民
848 名前：政策成功してるのって弱者が病気になろうと 気にせずゴミのように放置できるから社会コストが跳ね上がらないから。 日本だとこういうのもみんな無料医療で国保にタカらせ集中治療室まで使わせるからパンクする []: [ここ壊れてます]
849 名前：卵の名無しさん mailto:sage [2020/10/27(火) 12:51:04.91 ID:fMyc4UrA.net]: 共有フォルダの作り方（Windows10）

https://www.youtube.com/watch?v=kkK7YzxJLHE
850 名前：卵の名無しさん mailto:sage [2020/10/27(火) 17:17:00.15 ID:fMyc4UrA.net]: >>788
フォルダのプロパティで
共有の設定も必要。
851 名前：卵の名無しさん mailto:sage [2020/10/28(水) 11:14:40.49 ID:rzdMOcb/.net]: f = function(n,M=100) {
x=c(rep(0,n-1),M)
m=mean(x)
sd=sd(x)*sqrt((n-1)/n)
50+10*(M-m)/sd
}
f=Vectorize(f,vect='n')
f(10:15)
f(10:15,runif(1,1,1000))

裏口容疑者のシリツ医だとこういう計算は無理だろうな。

ある模試でクラスの中でひとりだけ満点、残りは全員０点であったとする。満点の学生の偏差値が80を超えるにはクラスに最低何人いる必要があるか？
852 名前：卵の名無しさん mailto:sage [2020/10/28(水) 14:08:16.07 ID:/M0AdKyc.net]: "
【たばこ】喫煙率男女合わせて16.7％(男性27.1％女性7.6％)　調査開始以降最低に [ばーど★]
厚生労働省は去年11月、全国の20歳以上の男女およそ5700人を対象に、生活習慣などを調査しました。
16.7*(m+f)=27.1*m + 7.6*f
x=m/f
16.7(x+1)=27.1*x + 7.6
solve 16.7(x+1)=27.1*x + 7.6 for x
x=8/7
"
5700*(8/15)
5700*(7/15)

# https://www.stat.go.jp/data/jinsui/pdf/201802.pdf
Male=sum(c(321,320,359,396,473,482,413,380,380,470,372,301,218,120,43,7,1))*1e4
Fem=sum(c(303,305,346,385,460,471,408,381,391,502,421,373,315,226,118,35,6))*1e4
prop.test(c(5700*8/15,Male),c(5700,(Male+Fem)))
poisson.test(c(5700*8/15,Male),c(5700,(Male+Fem)))
853 名前：卵の名無しさん mailto:sage [2020/10/28(水) 20:12:17.49 ID:/M0AdKyc.net]: # https://www.stat.go.jp/data/jinsui/pdf/201802.pdf
Male=sum(c(321,320,359,396,473,482,413,380,380,470,372,301,218,120,43,7,1))*1e4
Fem=sum(c(303,305,346,385,460,471,408,381,391,502,421,373,315,226,118,35,6))*1e4
prop.test(c(5700*7/15,Male),c(5700,(Male+Fem)))
poisson.test(c(5700*7/15,Male),c(5700,(Male+Fem)))

p=Male/(Male+Fem)
binom.test(5700*7/15,5700,p)
854 名前：卵の名無しさん mailto:sage [2020/10/28(水) 20:16:21.11 ID:/M0AdKyc.net]: >>791
"
16.7*(m+f)=27.1*m + 7.6*f
x=m/f
16.7(x+1)=27.1*x + 7.6
solve 16.7(x+1)=27.1*x + 7.6 for x
x=7/8
"
x=(16.7-7.6)/(27.1-16.7)
5700*(7/15)
5700*(8/15)
# https://www.stat.go.jp/data/jinsui/pdf/201802.pdf
Male=sum(c(321,320,359,396,473,482,413,380,380,470,372,301,218,120,43,7,1))*1e4
Fem=sum(c(303,305,346,385,460,471,408,381,391,502,421,373,315,226,118,35,6))*1e4
prop.test(c(5700*7/15,Male),c(5700,(Male+Fem)))
poisson.test(c(5700*7/15,Male),c(5700,(Male+Fem)))

p=Male/(Male+Fem)
binom.test(5700*7/15,5700,p)
855 名前：卵の名無しさん mailto:sage [2020/10/28(水) 20:33:19.00 ID:/M0AdKyc.net]: rm(lisit=ls())
"
（1）Σ[k=1,n] k! の一の位の数字について、その偶奇を調べよ。
（2）Σ[k=1,n] k! が3の倍数となるためのnの条件を求めよ。
"
library(gmp)
f <- function(n){
re=as.bigz(0)
for(i in 1:n){
re = re + factorialZ(i)
}
asNumeric(re %% 10)
}
y=sapply(1:1000,f)
y[1:100]
y[900:1000]
856 名前：卵の名無しさん mailto:sage [2020/10/28(水) 20:40:14.96 ID:/M0AdKyc.net]: 【たばこ】喫煙率男女合わせて16.7％(男性27.1％女性7.6％)　調査開始以降最低に [ばーど★]

厚生労働省は去年11月、全国の20歳以上の男女およそ5700人を対象に、生活習慣などを調査しました。

https://asahi.5ch.net/test/read.cgi/newsplus/1603849457/

人口推計－平成 30 年２月報－
https://www.stat.go.jp/data/jinsui/pdf/201802.pdf

の平成30年２月１日現在 (概算値)から成人の数の概算をだすと
男性：5056万人　女性5446万人になる。

喫煙率調査につかった5700人の男性割合は比較して
日本全体で5056万/(5056万+5446万)の母集団からランダムサンプリングされたと考えてよいか？
857 名前：卵の名無しさん mailto:sage [2020/10/29(木) 13:27:04.38 ID:dPzny2cB.net]
858 名前：library(gtools) a=combinations(6,2) f <- function(x){ b=combinations(4,2,(1:6)[-x]) re=NULL for(i in 1:6){ tmp=c(x,b[i,],(1:6)[-c(x,b[i,])]) re=rbind(re,tmp) } re } f(a[1,]) res=NULL for(i in 1:15) res=rbind(res,f(a[i,])) rownames(res)=NULL res v=LETTERS[res] ans=matrix(v,ncol=ncol(res)) colnames(ans) = c('x','x','y','y','z','z') print(ans,quote=F) []: [ここ壊れてます]
859 名前：卵の名無しさん mailto:sage [2020/10/29(木) 14:51:39.61 ID:dPzny2cB.net]: 長方形ABCDの内部の点をPとして
PA=3,PB=4,PC=5のとき長方形の面積の最大値を求めよ。
860 名前：卵の名無しさん mailto:sage [2020/10/29(木) 14:52:01.61 ID:dPzny2cB.net]: x<m, y<l
x^2 + (y-l)^2=a^2 (1)
x^2 + y^2 =b^2 (2)
(x-m)^2 + y^2=c^2 (3)

(1)-(2)
l^2 -2yl = a^2-b^2
l=y+sqrt(y^2+a^2-b^2)

(3)-(2)
m^2 -2xm =c^2-b^2
m=x+sqrt(x^2+c^2-b^2)

lm=(y+sqrt(y^2+a^2-b^2))*(x+sqrt(x^2+c^2-b^2))

(2) x=b*cosθ, y=b*sinθ
"
rm(list=ls())
f <- function(a=3,b=4,c=5){
lm <- function(θ) (b*sin(θ)+sqrt((b*sin(θ))^2+a^2-b^2))*(b*cos(θ)+sqrt((b*cos(θ))^2+c^2-b^2))
curve(lm(x),asin(sqrt(b^2-a^2)/b),pi/2)
opt=optimise(lm,c(asin(sqrt(b^2-a^2)/b),pi/2),maximum = TRUE)
θ=opt$maximum
x=b*cos(θ); y=b*sin(θ)
l=y+sqrt(y^2+a^2-b^2)
m=x+sqrt(x^2+c^2-b^2)
data.frame(l=l,m=m,Area=opt$objective)
}
861 名前：卵の名無しさん mailto:sage [2020/10/30(金) 11:15:15.46 ID:7PaA31uL.net]: 安倍政権が在留ベトナム人を増やした

第2次安倍政権 2012年12月26日～2020年9月16日

在留ベトナム人
2012年 5万2367
↓
2019年 41万1968人

外国人摘発1・1万人超　ベトナム、中国で過半数
https://www.nikkei.com/article/DGXMZO57608760T00C20A4CE0000/

在留外国人、２９３万人で最多　不法残留は６年連続増―入管庁
https://www.jiji.com/jc/article?k=2020032701013&g=soc
＞ベトナムは不法残留も３９．８％急増し、１万５５６１人で最多。以下、韓国（１万２５６３人）、中国（１万９０２人）の順となった。
862 名前：卵の名無しさん mailto:sage [2020/10/30(金) 17:24:00.41 ID:7PaA31uL.net]: スカ総理って論理的に説明できる能力が皆無なんじゃないのか？

記者　「10年間くらい(消費税)引き上げなくてもいいという、その根拠ついては何だと考えられているのか」
菅　　「まさに、アベノミクスを推進をし、経済を成長させる。まさに、経済成長…え…経済を再生させると、させなければ、財政健全化ないという、その政策のである」

https://twitter.com/shin19infinity/status/1304367586738487297

アベちゃん以上にひどいじゃないか。完全に耄碌ジジイ。

安倍のほうがマシだったという時代が来そうだな。
(deleted an unsolicited ad)
863 名前：卵の名無しさん mailto:sage [2020/10/31(土) 07:00:49.62 ID:zawBtKJY.net]: 本当に経営者ってのはセコいやつばかりだなw
無利息融資とかも、大半が数字いじって申請してんだろコレw
普段は自分達のことを｢経営者｣とかいって偉ぶってるくせにやってることは、労基法ムシシタリ嘘の求人で人を集めたりセクハラパワハラ、そしてコロナ禍での火事場泥棒w
品性下劣なバカには�
864 名前：с激с� []: [ここ壊れてます]
865 名前：卵の名無しさん mailto:sage [2020/10/31(土) 22:16:01.70 ID:C1e9/jO7.net]: derive (sqrt(a^2-x^2)+sqrt(b^2-x^2))*(x+sqrt(x^2+c^2-b^2))
866 名前：卵の名無しさん mailto:sage [2020/10/31(土) 22:31:01.43 ID:C1e9/jO7.net]: f(x) = (sqrt(a^2-x^2)+sqrt(b^2-x^2))*(x+sqrt(x^2+c^2-b^2))
f'(x) =(sqrt(a^2 - x^2) + sqrt(b^2 - x^2)) (x/sqrt(-b^2 + c^2 + x^2) + 1) + (-x/sqrt(a^2 - x^2) - x/sqrt(b^2 - x^2)) (sqrt(-b^2 + c^2 + x^2) + x) =0
f'(x)=0
x=a*b/sqrt(a^2+c^2)
867 名前：卵の名無しさん mailto:sage [2020/10/31(土) 23:51:55.03 ID:C1e9/jO7.net]: 長方形ABCDの内部または辺上の点をPとして
PA=3,PB=4,PC=5のとき長方形の面積の最大値と最小値を求めよ。
868 名前：卵の名無しさん mailto:sage [2020/10/31(土) 23:58:38.90 ID:C1e9/jO7.net]: >>804
一般解が出せたので寝る。

最大値
a=3　b=4　c=5
# l
(a*sqrt(a^2 - b^2 + c^2) + b*c)/sqrt(a^2 + c^2)
# m
(c*sqrt(a^2 - b^2 + c^2) + a*b)/sqrt(a^2 + c^2)
# Area
b*sqrt(a^2 - b^2 + c^2) + a*c

検算
> (a*sqrt(a^2 - b^2 + c^2) + b*c)/sqrt(a^2 + c^2)
[1] 5.612792
> # m
> (c*sqrt(a^2 - b^2 + c^2) + a*b)/sqrt(a^2 + c^2)
[1] 5.696017
> # Area
> b*sqrt(a^2 - b^2 + c^2) + a*c # Area
[1] 31.97056

>448の値と一致
869 名前：卵の名無しさん mailto:sage [2020/11/01(日) 00:02:13.93 ID:MhtecZmU.net]: コピペだが激しく同意。

検査希望者が自主的に検査を受けて検査数を増やすやり方では、
いくら検査数が増えても効果が少ないのは、
アメリカや欧州を見てあきらか

おそらく高リスク群なのに検査受けない人が多いんでしょう

中国方式で検査数を増やすのがいちばん確実で効果がある

この地域で〇〇業種で働いてるやつ全員検査うけろ、
とか、この地域の住民全員検査受けろ、
とか、この工場で働いてるやつ全員検査、この学校のやつ全員検査、
みたいに、行政が検査対象を指定して1人も逃さず検査することが重要
870 名前：卵の名無しさん mailto:sage [2020/11/01(日) 16:05:33.12 ID:MhtecZmU.net]: 正方形ABCDの内部の点をPとしてPA=3,PB=4,PC=5のとき正方形の面積を求めよ。

17 + 4*√(14)
871 名前：卵の名無しさん mailto:sage [2020/11/01(日) 16:37:05.05 ID:MhtecZmU.net]: 正方形ABCDの内部の点をPとしてPA=１,PB=２,PC=３のとき正方形の面積を求めよ。

5 + 2 * sqrt(2)
872 名前：卵の名無しさん mailto:sage [2020/11/01(日) 18:31:29.15 ID:MhtecZmU.net]: 正方形ABCDの内部の点をPとしてPA=a,PB=b,PC=cのとき正方形の面積を求めよ。

(1/2)*(a^2 + c^2 + sqrt(-a^4 + 2*a^2*(2*b^2+c^2)-(c^2-2*b^2)^2 ))
873 名前：卵の名無しさん mailto:sage [2020/11/02(月) 07:22:58.14 ID:GFxMDkK2.net]: √ <- function(x) sqrt(x)
√(3)
874 名前：卵の名無しさん mailto:sage [2020/11/03(火) 06:18:53.61 ID:+NpbCv0C.net]: 俺の知る範囲だけど国内医療機関に補助金で救えと言っているのは自民党医系議員、共産党、れいわ新撰組だな。
875 名前：卵の名無しさん mailto:sage [2020/11/03(火) 15:14:41.01 ID:h4JK49QP.net]: 俺の知る範囲だけど医療機関を補助金で救えと言っているのは自民党医系議員、共産党、れいわ新撰組だな。
876 名前：卵の名無しさん mailto:sage [2020/11/03(火) 21:02:15.55 ID:Bul4mfkA.net]: 大阪市廃止住民投票の反対割合の99.99%信頼区間。

> binom.confint(692996,692996+675829,conf.level = 0.9999)
method x n mean lower upper
1 agresti-coull 692996 1368825 0.5062707 0.5046081 0.5079332
2 asymptotic 692996 1368825 0.5062707 0.5046081 0.5079333
3 bayes 692996 1368825 0.5062707 0.5046081 0.5079332
4 cloglog 692996 1368825 0.5062707 0.5046069 0.5079320
5 exact 692996 1368825 0.5062707 0.5046077 0.5079336
6 logit 692996 1368825 0.5062707 0.5046081 0.5079332
7 probit 692996 1368825 0.5062707 0.5046081 0.5079332
8 profile 692996 1368825 0.5062707 0.5046081 0.5079332
9 lrt 692996 1368825 0.5062707 0.5046081 0.5079332
10 prop.test 692996 1368825 0.5062707 0.5054328 0.5071086
11 wilson 692996 1368825 0.5062707 0.5046081 0.5079332
>
877 名前：卵の名無しさん mailto:sage [2020/11/05(木) 11:31:05.49 ID:SqRLGU1L.net]: a=t(combn(5,2))
b=expand.grid(1:10,1:10,1:10)
f <- function(x){
c(a[x[1],],a[x[2],],a[x[3],])
}
y=t(apply(b,1,f))
g <- function(x) !(3 %in% table(x))
i=apply(y,1,g)
sum(i)
z=y[i,]
print(matrix(LETTERS[z],ncol=6),quote=F)
878 名前：卵の名無しさん mailto:sage [2020/11/05(木) 12:37:37.91 ID:zLYQt7IX.net]: 『皆さんには貧しくなる自由があるということだ。何もしたくないなら、何もしなくて大いに結構。その代わりに�
879 名前：nしくなるので、貧しさをエンジョイしたらいい。 ただひとつだけ、その時に頑張って成功した人の足を引っ張るな』。竹中平蔵氏が若者に向けた言葉である。 []: [ここ壊れてます]
880 名前：卵の名無しさん mailto:sage [2020/11/05(木) 12:43:06.93 ID:zLYQt7IX.net]: >>814
A～Eの5人
月曜日、火曜日、水曜日の3日間について、1日2人ずつの宿直を決める。
1回も宿直に当たらない人はいてもよいが、1人で3日すべて宿直に当たるのはナシとするとき、
3日間の宿直の割り振り方は何通りありますか？
881 名前：卵の名無しさん mailto:sage [2020/11/06(金) 10:52:21.55 ID:Iw+GcpWK.net]: A,B,C,D,Eの５人で1日１人の宿直を以下の条件で
日曜日から土曜日まで１週間の日の宿直を割り当てる。

# １週間のうち1回も宿直に当たらない人がいてはいけない
# 誰も2日続けて宿直してはならない
# 前週の土曜日の宿直者を日曜日に宿直させてはならない
# 誰においても7日の宿直日数の上限は２日である

という条件にすると
１週間の宿直割当は何通りあるか？
882 名前：卵の名無しさん mailto:sage [2020/11/06(金) 13:53:10.15 ID:Iw+GcpWK.net]: perm <- function(num, N=5, digit = 7){
r=num%%N
q=num%/%N
while(q > 0 | digit > 1){
r=append(q%%N,r)
q=q%/%N
digit=digit-1
}
return(r+1)
}
pm=NULL
for(i in 0:(5^7-1)){
pm=rbind(pm,perm(i))
}

h <- function(x){
all(1:5 %in% x) & all(diff(x)!=0) & all(table(x)<=2) & x[1]!=1
}
i=apply(pm,1,h)
sum(i)
y=pm[i,]
ans=matrix(LETTERS[y],ncol=7)
colnames(ans)=c('日','月','火','水','木','金','土')
print(head(ans,10),quote=F)
print(tail(ans,10),quote=F)
883 名前：卵の名無しさん mailto:sage [2020/11/06(金) 19:29:40.58 ID:Iw+GcpWK.net]: "更にBは月曜日は都合が悪い、Cは火曜日と木曜日は都合が悪い"
j <- function(x){
all(1:5 %in% x) & all(diff(x)!=0) & all(table(x)<=2) &
x[1]!=1 & x[2]!=2 & x[3]!=3 & x[5]!=3
}
i=apply(pm,1,j)
sum(i)
y=pm[i,]
ans=matrix(LETTERS[y],ncol=7)
colnames(ans)=c('日','月','火','水','木','金','土')
print(head(ans,10),quote=F)
print(tail(ans,10),quote=F)
884 名前：卵の名無しさん mailto:sage [2020/11/07(土) 07:13:25.16 ID:gkV8qQW4.net]: 世界的パンデミック・コロナに自助を要求し、公助が後手後手の菅自民では、今年の年末年始は、リストラ・雇止めで、職を失い、家を失い、蓄えも底をつき、餓死・凍死する人が出る可能性がある。
885 名前：卵の名無しさん mailto:sage [2020/11/07(土) 07:26:01.50 ID:gkV8qQW4.net]: "
ある病院に内科医A,B,C、外科医D,Eがいて１週間(日～土）の当直と呼び出し待機の割り当てをする。
以下の条件を満たす割り当ては何通りあるか？
(1) 1回も当直に当たらない人がいてはいけない
(2)　誰も続けて当直してはならない(但し、前週の土曜日の当直は考慮しない）
(3) 待機は何日連続してもよい
(4)　内科医が当直のときは待機は外科医、外科医が当直の時は内科医が待機する。
"
886 名前：卵の名無しさん mailto:sage [2020/11/07(土) 07:49:24.64 ID:gkV8qQW4.net]: ある病院に内科医A,B,C、外科医D,Eがいて１週間(日～土）の当直と呼び出し待機の割り当てをする。
以下の条件を満たす割り当ては何通りあるか？
(1) 1回も当直に当たらない人がいてはいけない
(2)　誰も続けて勤務（当直または待機）してはならない(但し、前週の土曜日の勤務は考慮しない）
(3)　誰においても１週間の当直総数の上限は２日である
(4)　内科医が当直のときは待機は外科医、外科医が当直の時は内科医が待機する。
887 名前：卵の名無しさん mailto:sage [2020/11/07(土) 07:58:57.82 ID:gkV8qQW4.net]: 女性が少ない、若手が少ない、会員に偏りがあるとかよく言う。
自分の選んだ閣僚達こそまさにそうじゃないか。スガは支離滅裂。
888 名前：卵の名無しさん mailto:sage [2020/11/07(土) 09:49:40.56 ID:gkV8qQW4.net]: ある病院に内科医A,B,C、外科医D,Eがいて１週間(日～土）の当直と呼び出し待機の割り当てをする。
以下の条件を満たす割り当ては何通りあるか？
　(1) 1回も当直に当たらない人がいてはいけない
　(2)　誰も続けて勤務（当直または待機）してはならない(但し、前週の土曜日の勤務は考慮しない）
　(3)　誰においても１週間の当直総数の上限は２日である
　(4)　内科医が当直のときは待機は外科医、外科医が当直の時は内科医が待機する。

例
日月火水木金土
当直 A B A C D E D
待機 D E D E A B C
889 名前：卵の名無しさん mailto:sage [2020/11/07(土) 10:35:26.54 ID:gkV8qQW4.net]: ある病院に内科医A,B,C、外科医D,Eがいて１週間(日～土）の当直と呼び出し待機の割り当てをする。
以下の条件を満たす割り当ては何通りあるか？
(1) 1回も当直に当たらない人がいてはいけない(待機はしなくてもいい)
(2)　誰も続けて勤務（当直または待機）してはならない(但し、前週の土曜日の勤務は考慮しない）
(3)　誰においても１週間の当直総数の上限は２日である（待機の上限はなし）
(4)　内科医が当直のときは待機は外科医、外科医が当直の時は内科医が待機する。

例１
　　日月火水木金土
当直 A B A B C D E
待機 E D E D E A B

例２
　　日月火水木金土
当直 A B A C D E D
待機 D E D E A B C
890 名前：卵の名無しさん mailto:sage [2020/11/07(土) 14:30:27.19 ID:gkV8qQW4.net]: "
ある病院に内科医A,B,C、外科医D,Eがいて１週間(日～土）の当直と呼び出し待機の割り当てをする。
以下の条件を満たす割り当ては何通りあるか？
(1) 1回も当直に当たらない人がいてはいけない(待機はしなくてもいい)
(2)　誰も続けて勤務（当直または待機）してはならない(但し、前週の土曜日の勤務は考慮しない）
(3)　誰においても１週間の当直総数の上限は２日である（待機の上限はなし）
(4)　内科医が当直のときは待機は外科医、外科医が当直の時は内科医が待機する。
"
rm(list=ls())
library(gtools)
pm=permutations(5,7,rep=T)
f <- function(x){ # (1) & 連続当直不可 &
891 名前：(3) all(1:5 %in% x) & all(diff(x)!=0) & all(table(x)<=2) } i=apply(pm,1,f) sum(i) y=pm[i,] ans=matrix(LETTERS[y],ncol=7) colnames(ans)=c('日','月','火','水','木','金','土') print(ans[1000,],quote=F) ; (x=y[1000,]) f1 <- function(x){ all(diff(x)!=0) # 連続待機不可 } y1=pm[apply(pm,1,f1),] []: [ここ壊れてます]
892 名前：卵の名無しさん mailto:sage [2020/11/07(土) 14:30:52.25 ID:gkV8qQW4.net]: g <- function(x){ # x:当直候補配列
idx=NULL
for(i in 1:nrow(y1)){ # y1=待機候補配列
if(all(x %in% 1:3 == !(y1[i,] %in% 1:3))){ #4
idx=append(idx,i)
}
}
re=NULL
for(i in idx){
cow=FALSE # 連続勤務continual work?
for(j in 1:5){
a=which(j==x) # 当直曜日
b=which(j==y1[i,])# 待機曜日
if(any(diff(sort(c(a,b)))<=1)){ # 連続勤務ならbreak
cow=TRUE
break
}
}
if(!cow) re=append(re,i) # 連続勤務でなければ採用
}
re
}
893 名前：卵の名無しさん mailto:sage [2020/11/07(土) 14:31:22.24 ID:gkV8qQW4.net]: apply(y[1:15,],1,g)
rei=rbind(LETTERS[x<-y[1,]],LETTERS[y1[g(x)[1],]])
colnames(rei)=c('日','月','火','水','木','金','土') ; rownames(rei)=c('当直','待機')
print(rei,quote=F)
rei=rbind(LETTERS[y[6600,]],LETTERS[y1[g(y[6600,])[16],]])
colnames(rei)=c('日','月','火','水','木','金','土') ; rownames(rei)=c('当直','待機')
print(rei,quote=F)

z=apply(y,1,g)
length(unlist(z)) # 12192通り
nrow(y) ; length(z)

rbind(LETTERS[y[1,]],LETTERS[y1[g(y[1,])[1],]])
print(rbind(LETTERS[y[6600,]],LETTERS[y1[g(y[6600,])[16],]]),quote=F)
894 名前：卵の名無しさん mailto:sage [2020/11/08(日) 04:31:16.53 ID:zy0wWkWh.net]: library(gtools)
pm=gtools::permutations(6,5,rep=TRUE)
idx=apply(pm,1,function(x) sum(x * 6^(4:0))%%6==0)
sum(idx)
pm[idx,][1000,]
895 名前：卵の名無しさん mailto:sage [2020/11/08(日) 04:44:38.18 ID:zy0wWkWh.net]: 1から6までの数字を使って5ケタの数字を作る。
同じ数字を何回使ってもいいとすると、
(1) 6の倍数は何通りあるか述べよ。
(2) その6の倍数を小さい順に並べたときに1000番目にくる数字を述べよ。

library(gtools)
pm=gtools::permutations(6,5,rep=TRUE)
f <- function(x) sum(x * 10^(4:0))%%6==0
idx=apply(pm,1,f)
sum(idx)
pm[idx,][1000,]
896 名前：卵の名無しさん mailto:sage [2020/11/08(日) 10:01:27.43 ID:3UafLdM8.net]: library(gtools)
pm=gtools::permutations(6,5,rep=TRUE)
f <- function(x) sum(x * 10^(4:0))%%6==0
y=pm[apply(pm,1,f),]
head(y,10) ; tail(y,10)
cat(paste(y[1000,],collapse=''))

for(i in 1:length(index)){
cat(i,': ')
cat(paste(y[i,],collapse=''),'\n')
}
897 名前：卵の名無しさん mailto:sage [2020/11/08(日) 11:14:32.98 ID:3UafLdM8.net]: "
1から6までの数字を使って5ケタの数字を作ります。
同じ数字を何回使ってもいいとすると、6の倍数は1296通りある。
小さい順に並べたときに1000番目にくる数字を述べよ。
"

library(gtools)
pm=gtools::permutations(6,5,rep=TRUE)
f <- function(x) sum(x * 10^(4:0))%%6==0
y=pm[apply(pm,1,f),]
head(y,10) ; tail(y,10)
cat(paste(y[1000,],collapse=''))

for(i in 1:length(index)){
cat(i,': ')
cat(paste(y[i,],collapse=''),'\n')
}

f1 <- function(x) sum(x * 10^(4:0))%%6
mod6=apply(pm,1,f1)
pm1=cbind(pm,mod6)
head(pm1,30)
matrix(mod6,ncol=6,b=T)
898 名前：卵の名無しさん mailto:sage [2020/11/08(日) 11:50:37.46 ID:3UafLdM8.net]: ある病院に内科医A,B,C、外科医D,Eがいて１週間(日～土）の当直と呼び出し待機の割り当てをする。
以下の条件を満たす割り当ては何通りあるか？
　(1) 1回も当直に当たらない人がいてはいけない(待機はしなくてもいい)
　(2)　誰も続けて勤務（当直または待機）してはならない(但し、前週の土曜日の勤務は考慮しない）
　(3)　誰においても１週間の当直総数および待機総数の上限は２日である
　(4)　内科医が当直のときは待機は外科医、外科医が当直の時は内科医が待機する。
　(5) 当直は２日以上間隔を空ける

例　
> print(rei,quote=F)
日月火水木金土
当直 A B D A C E D
待機 D E C E D A B

> print(rei,quote=F)
日月火水木金土
当直 B D E C B A E
待機 E A B D E D B
899 名前：卵の名無しさん mailto:sage [2020/11/08(日) 12:14:19.63 ID:3UafLdM8.net]: ある病院に内科医A,B,C、外科医D,Eがいて１週間(日～土）の当直と呼び出し待機の割り当てをする。
以下の条件を満たす割り当ては何通りあるか？

(1) 誰も少なくとも1回は当直および待機に割り当てられる
(2)　誰も続けて勤務（当直または待機）してはならない(前週の土曜日の勤務も考慮する）
(3)　誰においても１週間の当直総数および待機総数の上限は２日である
(4)　内科医が当直のときは待機は外科医、外科医が当直の時は内科医が待機する。
(5) 当直は２日以上間隔を空ける（前週の勤務も考慮する）
900 名前：卵の名無しさん mailto:sage [2020/11/08(日) 12:47:03.19 ID:oC4O4pgk.net]: >>834
固定だと不均衡も固定だから良くないな。
901 名前：卵の名無しさん mailto:sage [2020/11/08(日) 13:06:06.92 ID:oC4O4pgk.net]: ある病院に内科医A,B,C、外科医D,Eがいて１週間(日～土）の当直と呼び出し待機の割り当てをする。
以下の条件を満たすように割りあてる。
(1) 誰も少なくとも1回は日～土の間で当直および待機に割り当てられる
(2)　誰も続けて勤務（当直または待機）してはならない。
(3)　誰においても１週間の当直総数および待機総数の上限はどちらも２日である
(4)　内科医が当直のときは待機は外科医、外科医が当直の時は内科医が待機する。
(5) 当直は２日以上の間隔を空ける

今週の勤務割当は次の通りとする。
日月火水木金土
当直 A B D E C B D
待機 D E C B D E A

週を跨いで(1)～(5)の条件を満たす来週の割りあて方は何通りあるか？
902 名前：卵の名無しさん mailto:sage [2020/11/08(日) 13:47:42.36 ID:3UafLdM8.net]: 割り当ては132通り

例
> print(rei,quote=F)
日月火水木金土
当直 E B A C B D E
待機 C D E D E A B

> print(rei,quote=F)
日月火水木金土
当直 C B E D A B E
待機 E D A B E D C
903 名前：卵の名無しさん mailto:sage [2020/11/08(日) 17:32:58.85 ID:3UafLdM8.net]: "
1から6までの数字を使って5ケタの数字を作ります。
同じ数字を何回使ってもいいとすると、6の倍数は1296通りある。
小さい順に並べたときに1000番目にくる数字を述べよ。
"
rm(list=ls())
source('toolmini.R')

library(gtools)
pm=gtools::permutations(6,5,rep=TRUE)
f <- function(x) sum(x * 10^(4:0))%%6==0
y=pm[apply(pm,1,f),]
head(y,10) ; tail(y,10)
cat(paste(y[777,],collapse=''))

# 小さい順に並べたときにn番目にくる数字
order2num <- function(n){
# cat(paste(y[n,],collapse=''),'\n')
a=10*as.numeric(paste(dec2nw(n,6),collapse=''))+11100
a+(1:6)[(a+1:6)%%6==0]
}
n=1:(6^4-1)
plot(n,sapply(n,order2num))
order2num(333)
order2num(777)
904 名前：卵の名無しさん mailto:sage [2020/11/08(日) 20:10:46.07 ID:3UafLdM8.net]: ある病院に内科医A,B,C、外科医D,Eがいて１週間(日～土）の当直と呼び出し待機の割り当てをする。
以下の条件を満たすように割りあてる。
(1) 誰も少なくとも1回は日～土の間で当直および待機に割り当てられる
(2)　誰も続けて勤務（当直または待機）してはならない。
(3)　誰においても１週間の当直総数および待機総数の上限はどちらも２日である
(4)　内科医が当直のときは待機は外科医、外科医が当直の時は内科医が待機する。
(5) 当直は２日以上の間隔を空ける
今週の勤務割当は次の通りとする。
日月火水木金土
当直 A B D E C B D
待機 D E C B D E A
週を跨いで(1)～(5)の条件を満たす来週の割りあて方は何通りあるか？

library(gtools)
pm=permutations(5,7,rep=T)
# 当直可能配列
f <- function(x){ # (1) & 連続当直不可 & (3) & (5)（週跨ぎ）
int=NULL
for(i in 1:5){
a=which(i==x) # a : i の当直日
int[i]=ifelse(length(a)==1,
905 名前：TRUE,diff(a)>2) # 当直間隔が２を越えるか？ } all(1:5 %in% x) & all(diff(x)!=0) & all(table(x)<=2) & all(int) & all(x[1]!=c(1,2,4)) & # 日曜日A,B,D当直不可 x[2]!=4 # 月曜日D当直不可 } i=apply(pm,1,f) sum(i) y=pm[i,]　# 当直可能配列 []: [ここ壊れてます]
906 名前：卵の名無しさん mailto:sage [2020/11/08(日) 20:11:10.62 ID:3UafLdM8.net]: # 待機可能配列
f1 <- function(x){
all(1:5 %in% x)　& all(diff(x)!=0) & all(table(x)<=2) & # 最低1回　& 連続待機不可 & 待機日総数<=2
all(x[1]!=c(1,4)) # 日曜日A,D待機不可

}
y1=pm[apply(pm,1,f1),]

g <- function(x){ # x:当直候補配列
idx=NULL
for(i in 1:nrow(y1)){ # y1=待機候補配列
if(all(x %in% 1:3 == !(y1[i,] %in% 1:3))){ #4 当直医属性!=待機医属性
idx=append(idx,i)
}
}
re=NULL　# 条件を満たす待機配列のy1での行index
for(i in idx){
cow=FALSE # 連続勤務continual work?
for(j in 1:5){
a=which(j==x) # 当直曜日
b=which(j==y1[i,])# 待機曜日
if(any(diff(sort(c(a,b)))<=1)){ # 連続勤務ならbreak
cow=TRUE
break
}
}
if(!cow) re=append(re,i) # 連続勤務でなければ採用
}
re
}
907 名前：卵の名無しさん mailto:sage [2020/11/08(日) 20:11:49.71 ID:3UafLdM8.net]: gg <- function(x,print=TRUE){
re=g(x)
if(!is.null(re)){
n=length(re)
ans=vector(mode='list',length=n)
for(i in 1:n){
rei=rbind(LETTERS[x],LETTERS[y1[re[i],]])
colnames(rei)=c('日','月','火','水','木','金','土')
rownames(rei)=c('当直','待機')
ans[[i]]=rei
if(print){print(rei,quote=F)
cat('\n')}
}
invisible(ans)
}
}
zz=apply(y,1,gg)
nzz=length(zz)
zzz=NULL
for(i in 1:nzz){
if(!is.null(zz[[i]])) zzz=c(zzz,zz[[i]])
}

print(head(zzz),quote=F)
print(zzz,quote=F)
908 名前：卵の名無しさん mailto:sage [2020/11/08(日) 20:12:12.93 ID:3UafLdM8.net]: > print(head(zzz),quote=F)
[[1]]
日月火水木金土
当直 C A E B A D E
待機 E D C D E B A

[[2]]
日月火水木金土
当直 C A E B C D E
待機 E D C D E A B

[[3]]
日月火水木金土
当直 C A E B C D E
待機 E D C D E B A

[[4]]
日月火水木金土
当直 C A E C B D E
待機 E D B D E A C

[[5]]
日月火水木金土
当直 C A E C B D E
待機 E D B D E C A

[[6]]
日月火水木金土
当直 C A E D A B E
待機 E D B C E D A
909 名前：卵の名無しさん mailto:sage [2020/11/08(日) 20:12:38.07 ID:3UafLdM8.net]: [[101]]
日月火水木金土
当直 E C B D C A E
待機 B D E A E D C

[[102]]
日月火水木金土
当直 E C B D E A B
待機 B D E A C D E

[[103]]
日月火水木金土
当直 E C B D E A C
待機 B D E A C D E

[[104]]
日月火水木金土
当直 E C B D E B A
待機 B D E A C D E

[[105]]
日月火水木金土
当直 E C B D E B A
待機 B D E C A D E

[[106]]
日月火水木金土
当直 E C B D E C A
待機 B D E C A D E
910 名前：卵の名無しさん mailto:sage [2020/11/08(日) 20:41:39.89 ID:oC4O4pgk.net]: >>837
これは間違い、106通りだと思う。
バグがなければだけど
911 名前：卵の名無しさん mailto:sage [2020/11/09(月) 05:32:00.75 ID:NqCZIoxd.net]: >>839
更に
(6) ２週続けて週２回の当直はしてはならない。
を付け加えてみよう。
912 名前：卵の名無しさん mailto:sage [2020/11/09(月) 05:40:31.38 ID:NqCZIoxd.net]: ある病院に内科医A,B,C、外科医D,Eがいて１週間(日～土）の当直と呼び出し待機の割り当てをする。
以下の条件を満たすように割りあてる。
(1)　誰も少なくとも1回は日～土の間で当直および待機に割り当てられる
(2)　誰も続けて勤務（当直または待機）してはならない。
(3)　誰においても１週間の当直総数および待機総数の上限はどちらも２日である
(4)　内科医が当直のときは待機は外科医、外科医が当直の時は内科医が待機する。
(5)　当直は２日以上の間隔を空ける
(6)　２週続けて週２回の当直はしてはならない。

今週の勤務割当は次の通りとする。
日月火水木金土
当直 A B D E C B D
待機 D E C B D E A

週を跨いで(1)～(6)の条件を満たす来週の割りあて方は何通りあるか？

library(gtools)
pm=permutations(5,7,rep=T)
# 当直可能配列
f <- function(x){ # (1) & 連続当直不可 & (3) & (5)（週跨ぎ）
int=NULL
for(i in 1:5){
a=which(i==x) # a : i の当直日
int[i]=ifelse(length(a)==1,TRUE,diff(a)>2) # 当直間隔が２を越えるか？
}
all(1:5 %in% x) & all(diff(x)!=0) & all(table(x)<=2) & all(int) &
all(x[1]!=c(1,2,4)) & # 日曜日A,B,D当直不可
x[2]!=4 &# 月曜日D当直不可
sum(x==2)<2 & sum(x==4) # B,D の当直は2回未満
}
i=apply(pm,1,f)
sum(i)
y=pm[i,]　# 当直可能配列
913 名前：卵の名無しさん mailto:sage [2020/11/09(月) 08:25:50.50 ID:Wee9Qn0s.net]: lwa=rbind(c(1,2,4,5,3,2,4),c(4,5,3,2,4,5,1)) # last week allocation
rei=rbind(LETTERS[c(1,2,4,5,3,2,4)],LETTERS[c(4,5,3,2,4,5,1)])
colnames(rei)=c('日','月','火','水','木','金','土')
rownames(rei)=c('当直','待機')
print(rei,quote=F)
914 名前：卵の名無しさん mailto:sage [2020/11/09(月) 14:17:47.89 ID:Z0+EXym3.net]: 米国が移民政策成功してるのって弱者が病気になろうと
気にせずゴミのように放置できるから社会コストが跳ね上がらないからだろう。

日本は多民族共生できるほど民度が高くないんだよなぁ。
日本だと気の毒だからと国保にタカらせ集中治療室まで使わせるからパンクする
915 名前：卵の名無しさん mailto:sage [2020/11/10(火) 05:18:34.17 ID:WoaXhYeo.net]: https://i.imgur.com/v51hvTf.jpg
916 名前：卵の名無しさん mailto:sage [2020/11/10(火) 14:32:59.72 ID:WoaXhYeo.net]: 旅行にいく余裕もない人の税金を横取りして旅にでる強盗キャンペーン。
それでコロナが広がるならまさに死神政策。
917 名前：卵の名無しさん mailto:sage [2020/11/11(水) 19:37:44.50 ID:G3dq4Z8e.net]: 緊急提言ではさらに、これらの対策を取った上でも、感染状況ごとに分類した四つのステージのうち、感染者が急増している「ステージ3」相当以上と判断された場合には
「社会経済活動に一定の制約を求めるような強い対策を行う必要があることから、国民が一丸となって対策を進めていく必要がある」とした。

https://mainichi.jp/articles/20201109/k00/00m/040/249000c

>国民が一丸となって

一丸となったらクラスターが発生ｗ
918 名前：卵の名無しさん mailto:sage [2020/11/13(金) 09:56:44.03 ID:wZuIWy8w.net]: 理論を認めてもその通りに行動できない暗愚が学術会議の任命権者ておかしくない？

https://i.imgur.com/1vY3hqw.jpg

https://youtu.be/fVosZS6
919 名前：-UJw?t=498 8分18秒 []: [ここ壊れてます]
920 名前：卵の名無しさん mailto:sage [2020/11/13(金) 21:20:33.70 ID:Sh6hhYou.net]: Keltonの新著を読み始めた。

The Deficit Myth: Modern Monetary Theory and the Birth of the People's Economy (English Edition) Kindle版

この記述は意外だったな。

But even
Senator Bernie Sanders has echoed Reagan, saying, “I am concerned
about the debt. It’s not something we should be leaving to our kids and
our grandchildren.”
921 名前：卵の名無しさん mailto:sage [2020/11/13(金) 21:22:53.38 ID:Sh6hhYou.net]: The fifth myth is that deficits make the United States dependent on
foreigners. This myth would have us believe that countries like China and
Japan have enormous leverage over us because they hold large
quantities of US debt.

米国債を売ろうという誘惑に言及した総理は不審死したよあなぁ。
922 名前：卵の名無しさん mailto:sage [2020/11/14(土) 17:11:40.19 ID:Fnd8Onk+.net]: zを-1でない複素数として
ω= （z+2i) / (z+1) とおく。

|z|=1のとき、偏角が3π/4となるωを求めよ。

options(digits=5)

f <- function(x){
z=cos(x)+1i*sin(x)
omega=(z+2i)/(z+1)
Arg(omega)
}
curve(f,0,2*pi) ; abline(h=3/4*pi,lty=3)
low=optimise(f,c(4,5),maximum = T)$maximum
(x=uniroot(function(x)f(x)-3/4*pi,c(low,5))$root)
(z=cos(x)+1i*sin(x))
(omega=(z+2i)/(z+1))
923 名前：卵の名無しさん mailto:sage [2020/11/14(土) 22:56:05.54 ID:Fnd8Onk+.net]: z=a+bi
ω=(z+2i)/(z+1)
=(a+bi+2i)/(a+bi+1)
分母子にa+1-biをかけると
分子=(a+bi+2i)(a+1-ib)
分母=(a+1)^2+b^2
ωの偏角が3/4πということは
ωの虚部/ωの実部=tan(3/4π)=-1
分母は実数なので約分されて
分子の虚部/分子の実部=-1
これを変形して
分子の虚部＋分子の実部=0
複素数α+iβをα+βに変形するにはi=1と置換すればいいので
分子の式(a+bi+2i)(a+1-ib)でi=1と置換して
(a+b+2)(a+1-b)=0
∴ a+b+2=0 またはa+1-b=0
|z|=1ゆえa^2+b^2=1
a+b+2=0 かつ　a^2+b^2=1に実数解なし
a+1-b=0　かつ　a^2+b^2=1 を解くと(a,b)=(-1,0),(0,1)
z≠-1なのでa=0,b=1が残る
924 名前：卵の名無しさん mailto:sage [2020/11/15(日) 01:51:01.75 ID:L0SCzfIz.net]: z=a+bi (a,bは実数)
ω=(z+2i)/(z+1)
分母子に(a-bi+1)をかけると
分子=(z+2i)(a-bi+1)=(a+bi+2i)(a-bi+1)= (a^2+a+b^2+2b) +i(2a+b+2)
分母=(z+1)(a-bi+1)=(a+bi+1)(a-bi+1)=(a+1)^2+b^2 (実数)
ωの虚部/ωの実部=分子の虚部/分子の実部=tan(4π/3)=-1
これを変形すれば、
分子の実部+分子の虚部=0

複素数α+iβをα+βに変形するにはこの形でi=1と置換すればいいので
分子のiを1に置換して
a^2+a+b^2+2b +(2a+b+2) = a^2+b^2+3a+3b+2=0
|z|=1ゆえa^2+b^2=1なので

連立方程式
a^2+b^2+3a+3b+2=0
a^2+b^2=1
を解くと

a=-1,b=0
または
a=0,b=-1
z≠-1ゆえa=-1,b=0は不適。
候補はa=0,b=-1
z=a+bi=-i
このとき
ω=(z+2i)/(z+1)=i/(1-i) = -0.5+0.5i

偏角=atan(0.5/(-0.5))=(3/4)π
925 名前：卵の名無しさん mailto:sage [2020/11/15(日) 09:54:17.96 ID:L0SCzfIz.net]: △ABC (∠A＝50°, ∠B＝70°) をAを原点、Bをx軸上に配置する。
△ABCの内部の点をPとしてPA=2 PB=3, PC=4 のとき、
(1)B,C,Pの座標を求めよ。
(2)△PAB,△PBC,△PCAの面積を求めよ

> re$B
[1] 4.9368+0i
> re$C
[1] 3.4432+4.1035i
> re$P
[1] 1.9619+0.3
926 名前：879i > with(re,ABC2S(P,A,B)) #△PAB [1] 0.95738 > with(re,ABC2S(P,B,C)) #△PBC [1] 5.8139 > with(re,ABC2S(P,C,A)) #△PCA [1] 3.3576 []: [ここ壊れてます]
927 名前：卵の名無しさん mailto:sage [2020/11/15(日) 09:56:10.43 ID:L0SCzfIz.net]: > re$B
[1] 4.9368+0i
> re$C
[1] 3.4432+4.1035i
> re$P
[1] 1.9619+0.3879i
> with(re,ABC2S(P,A,B)) #△PAB
[1] 0.95738
> with(re,ABC2S(P,B,C)) #△PBC
[1] 5.8139
> with(re,ABC2S(P,C,A)) #△PCA
[1] 3.3576
> re$S　# △ABC
[1] 10.129

https://i.imgur.com/PFt8IBP.png
928 名前：卵の名無しさん mailto:sage [2020/11/15(日) 14:55:20.09 ID:L0SCzfIz.net]: [1] 4.652337六角形AB,CD,EFの辺の長さをn,BC,DE,FAの長さをm、
∠A=degA° ∠C=degC°　∠E=degE°、とする。
m=1,n=2, degA=60,degC=90,degE=120のとき
この六角形の面積を求めなさい。

作図するプログラムを書くのが面白かっただけ。

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

> Hexagon(1,2,60,90,120)
[1] 4.652337
929 名前：卵の名無しさん mailto:sage [2020/11/15(日) 18:05:37.35 ID:L0SCzfIz.net]: よくも悪くも、中国共産党の対日外交には虚々実々の駆け引きというか、ある程度の枠がはまっているのに対して、かりに将来、中国の民主化が進んで「反日デモ」的な大衆感情に熱狂的に支持されて議会の多数派を占めるような政権が誕生した場合、日本に対する姿勢が今までと比較にならないくらい強硬になるのではないかという不安は、多くの日本人が感じたことがあるのではないか

中国化する日本　より
930 名前：卵の名無しさん mailto:sage [2020/11/15(日) 20:41:06.93 ID:L0SCzfIz.net]: >>859
> re=DV2A(50,70,2,3,4)
> attach(re)
> A=0i
> B
[1] 4.936762+0i
> C
[1] 3.443221+4.103471i
> P
[1] 1.961936+0.387857i
> ABC2S(P,A,B) #△PAB
[1] 0.9573792
> ABC2S(P,B,C) #△PBC
[1] 5.813914
> ABC2S(P,C,A) #△PCA
[1] 3.357635
> S　# △ABC
[1] 10.12893
> D=intsect(A,P,B,C) ; pt(D,'D')
> seg(P,D,col=2,lty=3)
> E=intsect(A,C,P,B) ; pt(E,'E')
> seg(P,E,col=2,lty=3)
> F=intsect(A,B,C,P) ; pt(F,'F')
> seg(P,F,col=2,lty=3)
> D
[1] 4.605388+0.910444i
> E
[1] 0.4868298+0.5801812i
> F
[1] 1.807311+0i
> detach(re)
931 名前：卵の名無しさん mailto:sage [2020/11/16(月) 15:10:00.97 ID:FmGCMvZ1.net]: こういう毛針に騙されたんだなぁ

https://livedoor.blogimg.jp/rock1963roll/imgs/f/b/fb36dca5-s.jpg
932 名前：卵の名無しさん mailto:sage [2020/11/17(火) 11:39:26.43 ID:zTNDOLQn.net]: # 小数点付きの数numをN進法で表示する(62進法まで対応 0-9,a-z,A-Z)
rm(list=ls())
num=1/3;N=3;kmin=5
decN <- function(num, N, kmin = 5){ # kmin：最小小数点後桁
int=floor(num)
r=int%%N
q=int%/%N
while(q > 0){
r=append(q%%N,r)
q=q%/%N
} # rに整数のN進法表示数列を格納
k=max(nchar(num)-nchar(floor(num))-1,kmin) # 同長もしくはkminの長さの小数表示
a=numeric(k)
x=round(num-floor(num),k) # e.g. 7.28-floor(7.28)!=0.280に対応
for(i in 1:k){
y=round(x*N,k) # e.g. 0.728*5-3.64 !=0 に対応
a[i]=floor(y)
x=y-a[i] # r . a[1] a[2] a[3] ... a[k]
}
b=list(integer=r,decimal=a,num=sum(c(int,a)*(1/N)^(0:k)))
fig=c(0:9,letters,LETTERS)[1:N]
if(N<=62){ # Nが62以下は数値として表示
cat(paste(fig[b$integer+1],sep='',collapse=''),
'.',paste(fig[b$decimal+1],sep='',collapse=''),sep='')
cat('\n')
}
else{ # Nが63以上は整数部分と小数部分を数列で表示
print(b[1:2])
}
invisible(b) # b$num:検証用
}
933 名前：卵の名無しさん mailto:sage [2020/11/17(火) 11:39:34.53 ID:zTNDOLQn.net]: del=sapply(1:16, function(x) decN(0.1,x,16))
decN(pi,16)
decN(0.1,13,10)

# １３進法 0 1 2 3 4 5 6 7 8 9 A J Q
options(digits=22)
decK <- function(PI=pi,K=10){
x=decN(PI,13,kmin=K)
K <- function(x){
if(x==0) return('0')
else{
c(as.character(1:9),'A','J','Q')[x]
}
}
K=Vectorize(K)
re=paste(c(K(x$integer),'.',K(x$decimal)),collapse = '')
print(re,quote=F)
invisible(re)
}
decK(pi)
decK(exp(1))
decK(sqrt(2))
934 名前：卵の名無しさん mailto:sage [2020/11/17(火) 18:07:44.62 ID:annbVQoU.net]: １４進法で使う数字を小さい方から0 1 2 3 4 5 6 7 8 9 A J Q Kとするときπ、ネイピア数、√２を１４進法で小数１０桁まで表示せよ。
935 名前：卵の名無しさん mailto:sage [2020/11/17(火) 18:08:49.66 ID:annbVQoU.net]: 62進法で使う数字を小さい方から0 1 2 3 4 5 6 7 8 9 a b c ... x y z A B C ... X Y Z
とするときπ、ネイピア数、√２を１４進法で小数１０桁まで表示せよ。
936 名前：卵の名無しさん mailto:sage [2020/11/17(火) 21:03:35.41 ID:annbVQoU.net]: > decN(pi,62)
3.8MhuCIRym8egOl
> decN(exp(1),62)
2.Ix4FDGbb8J4wtH
> decN(sqrt(2),62)
1.pGeGLWSyyECdM
937 名前：卵の名無しさん mailto:sage [2020/11/17(火) 23:26:12.97 ID:annbVQoU.net]: 0と1の2個の数を使いマイナス二進法で1から10を数えよ　（マイクロソフトの入社試験）
答と解説は
https://i.imgur.com/F5AdX1Q.jpg
https://www.youtube.com/watch?v=CTzw-zi7Zro

20まで計算させてみた
ans
1 1
2 110
3 111
4 100
5 101
6 11010
7 11011
8 11000
9 11001
10 11110
11 11111
12 11100
13 11101
14 10010
15 10011
16 10000
17 10001
18 10110
19 10111
20 10100

それを面倒にした問題
(1) 2021をマイナス二進法で表示せよ。
(2) 3, 33, 333, 3333を各々マイナス三進法で表示せよ。
938 名前：卵の名無しさん mailto:sage [2020/11/17(火) 23:26:38.75 ID:annbVQoU.net]: MS <- function( # Minus N-ary System
num,
N=-2,
d=16,
print=TRUE
){
base=N^((d-1):0)
pm=expand.grid(replicate(d,0:(-N-1),simplify = FALSE))
colnames(pm)=1:d
f <- function(x) sum(x*base) == num
re=pm[apply(pm,1,f),]
i=1
flg <- re[1]==0
while(flg){
i=i+1
flg <- re[i]==0
}
ans=paste(as.character(re[i:d]),collapse='')
if(print) print(ans,quote=F)
invisible(ans)
}
data.frame(ans=sapply(1:20,function(n)MS(n,p=F)))
MS(2021,-2)
MS(3,-3,d=3)
MS(33,-3,d=5)
MS(333,-3,d=7)
MS(3333,-3,d=9)
939 名前：卵の名無しさん mailto:sage [2020/11/18(水) 00:40:03.43 ID:vfLJTrWt.net]: 3を0,1,2の3つの数字をつかったマイナス三進法で表すと3 = 1*(-3)^2 + 2*(-3) + 0*(-3)^0なので　120と表せる。

1から10までをマイナス三進法で表示すると
1 1
2 2
3 120
4 121
5 122
6 110
7 111
8 112
9 100
10 101

問題　：　円周率をマイナス三進法で小数１０桁まで表示せよ。
940 名前：卵の名無しさん mailto:sage [2020/11/18(水) 01:43:54.17 ID:vfLJTrWt.net]: MS <- function( # Minus N-ary System
num,
N=-2,
d=16,
print=TRUE
){
base=N^((d-1):0)
pm=expand.grid(replicate(d,0:(-N-1),simplify = FALSE))
colnames(pm)=1:d
f <- function(x) sum(x*base) == num
re=pm[apply(pm,1,f),]
i=1
flg <- re[1]==0
while(flg){
i=i+1
flg <- re[i]==0
}
ans=paste(as.character(re[i:d]),collapse='')
if(print) print(ans,quote=F)
invisible(ans)
}

piN <- function(N=-2){ # pi for minus N-ary system
Pi=unlist(strsplit(as.character(pi),'.',fixed=T))
seisu=MS(as.numeric(Pi[1]),N,d=3,print=F) # 3(mod10) = 120(mod-3)
pm=expand.grid(replicate(10,0:(abs(N)-1),simplify = F))
base=(1/N)^(1:10)
f <- function(x) (pi-floor(pi)- sum(x*base))^2
dif=apply(pm,1,f)
shosu=paste(as.character(pm[which.min(dif),]),collapse='')
print(paste0(seisu,'.',shosu),quote=F)
}
941 名前：卵の名無しさん mailto:sage [2020/11/18(水) 01:44:08.48 ID:vfLJTrWt.net]: > piN(-2)
[1] 111.0110010001
> piN(-3)
[1] 120.0220210200
> piN(-5)
[1] 3
942 名前：.0434333021 []: [ここ壊れてます]
943 名前：卵の名無しさん mailto:sage [2020/11/18(水) 12:25:29.26 ID:EQ55+bnh.net]: # e+0*e^0+1*e^(-1)+0*e^(-2)+1*e^(-3)
# [1] 3.135948

n=10
e=exp(1)
1*e^1+0*e^0 < pi
pi < 1*e^1 + 1*e^1
a=numeric()
b=numeric()

b[1]=e+0*e^0+e^(-1)
a[1]=as.numeric(b[1]<pi)

for(i in 1:n){
a[i+1]=as.numeric((b[i]+e^(-i-1))<pi)
b[i+1]=b[i]+a[i+1]*e^(-i-1)
}
paste(as.character(a),collpse="")
944 名前：卵の名無しさん mailto:sage [2020/11/18(水) 21:59:58.98 ID:+VMfzcIp.net]: 武漢からの飛行機は乗客降ろさず機内で検査。
海外からの入国は全て隔離検査。
電車バスはマスク無しは乗車拒否かつ検温を改札で実施。
店はマスク無しは入店拒否。
マスクはコンビニで無料配布かつスマホで一人一人の枚数管理するアプリを政府が開発。
学校は閉鎖しオンライン授業に切り替え。

ざっと台湾の対策はこんなもの。
945 名前：卵の名無しさん mailto:sage [2020/11/19(木) 08:20:55.90 ID:LJQTN5dj.net]: # (x-r*cos(θ))^2 + (y-r*sin(θ))^2=r^2
# y = r*sin(θ) + sqrt(r^2*(sin(θ))^2 + 2*r*x -x^2)
area <- function(r,θ){
integrate(function(x) r*sin(θ) + sqrt(r^2*(sin(θ))^2 + 2*r*x -x^2),0,1)$value
}
946 名前：卵の名無しさん mailto:sage [2020/11/19(木) 08:27:00.14 ID:LJQTN5dj.net]: # (x-r*cos(θ))^2 + (y-r*sin(θ))^2=r^2
# y = r*sin(θ) + sqrt(r^2*(sin(θ))^2 + 2*r*x -x^2)
area <- function(r,θ){
f = function(x) r*sin(θ) + sqrt(r^2*(sin(θ))^2 + 2*r*x -x^2)
O=c(0,0)
P=c(r*cos(θ),r*sin(θ))
Q=c(1,f(1))
integrate(f,0,1)$value
}
947 名前：卵の名無しさん mailto:sage [2020/11/19(木) 13:16:21.52 ID:AV9OAvON.net]: rm(list=ls())
source('toolmini.R')

plot(NULL,xlim=c(0,1.5),ylim=c(0,1.5),asp=F,ann=F,axes=F)
abline(h=0,v=0,col=8)
r=1.015
ci <- function(x,R=r) sqrt(R^2-x^2)
cir(0,0,r,lty=4)
x=seq(ci(1),r,0.01)
lines(x,ci(x),type='h',col=4)
Q=ci(1)+1i
seg(Q,ci(1)+0i)
seg(Q,Q+1) ; seg(Q+1,Q+1-1i) ; seg(Q-1i,Q-1i+1)
seg(0i,Q,col=8)
pt(0.05+0.05i,'θ'); pt(Q/2,'r',cex=1.5)
948 名前：卵の名無しさん mailto:sage [2020/11/19(木) 13:17:26.24 ID:AV9OAvON.net]: 会食が原因になっていることが多いと言っておいて、Gotoイートで会食を促進するという謎の政策を進める政府。
デフレ下に増税するという世襲低学歴の暗愚が最長政権の土人の国になったなぁ。

一方、文明国では
武漢からの飛行機は乗客降ろさず機内で検査。
海外からの入国は全て隔離検査。
電車バスはマスク無しは乗車拒否かつ検温を改札で実施。
店はマスク無しは入店拒否。
マスクはコンビニで無料配布かつスマホで一人一人の枚数管理するアプリを政府が開発。
学校は閉鎖しオンライン授業に切り替え。
949 名前：卵の名無しさん mailto:sage [2020/11/19(木) 15:46:43.48 ID:AV9OAvON.net]: source('toolmini.R')

plot(NULL,xlim=c(0,2),ylim=c(-1,1),asp=1,ann=F,axes=T)
O=0i;A=1+0i;B=1i;C=1+1i
pt(O,'O'); pt(A,'A') ; pt(B,'B') ; pt(C,'C')
seg(O,A);seg(0,B);seg(C,A);seg(C,B) ; seg(O,C,lty=3)
r=1.070437
th=-0.3647908 ; pt(0.15-0.025i,'θ') # Pの偏角
P=r*cos(th)+r*1i*sin(th) ; pt(P,'P(rcosθ,rsinθ)') ; seg(O,P,col=8)
Cir(P,r,col=8)
ci <- function(x) r*sin(th) + sqrt(r^2 - (x-r*cos(th))^2)
Q=1+1i*ci(1) ; pt(Q,'Q') ; seg(P,Q,col=8)
x=seq(0,1,0.01)
lines(x,ci(x),type='h',col=4)
pt(P/2,'r',cex=1.25)

#
area <- function(r,th){ # 円盤片の面積を算出
ci <- function(x) r*sin(th) + sqrt(r^2 - (x-r*cos(th))^2)
integrate(ci,0,1)$value
}
area=Vectorize(area)
# demo
area(1.146384,-pi/8)
950 名前：卵の名無しさん mailto:sage [2020/11/19(木) 15:46:48.74 ID:AV9OAvON.net]: th2r <- function(theta){ # θから円弧長を決定
r=uniroot(function(x) area(x,th=theta) - 1/2, c(1,2),tol=1e-24)$root #面積が1/2になるr
ci <- function(x) r*sin(theta) + sqrt(r^2 - (x-r*cos(theta))^2)
Q=1+1i*ci(1)
P=r*cos(theta)+1i*r*sin(theta)
r*bac(Q,P,0i)
}
th2r=Vectorize(th2r)
# demo
th2r(-pi/6)
x=seq(-pi/7,-pi/9, 0.0005)
plot(x,th2r(x),type='l',lwd=2,xlab=bquote(theta),ylab='円弧 OQ',cex.lab=1.25)
(opt=optimize(th2r,c(-pi/7,-pi/9
951 名前：),tol=1e-24)) uniroot(function(x) area(x,th=opt$minimum) - 1/2, c(1,2),tol=1e-24)$root # r []: [ここ壊れてます]
952 名前：卵の名無しさん mailto:sage [2020/11/19(木) 15:48:01.54 ID:AV9OAvON.net]: # 正方形の紙を頂点から切り始め、円周の一部（円弧）で面積を二等分するとき、
# 切り取り線の長さを出来るだけ短くするにはどうしたらよいか？
953 名前：卵の名無しさん mailto:sage [2020/11/19(木) 17:41:10.39 ID:AV9OAvON.net]: "
ガチャの確率問題
とあるソーシャルゲームのガチャにはN種類のキャラがいて、全て等確率で出てくる。
ｎ連ガチャを回したとき、どのキャラでもいいので同じキャラがｍ回以上出てくる確率を求めよ。"
"

mean(replicate(1e7,any(table(sample(N,n,rep=T))>=m)))
954 名前：卵の名無しさん mailto:sage [2020/11/19(木) 18:51:57.01 ID:AV9OAvON.net]: rm(list=ls())
options(digits=10)
source('toolmini.R')

plot(NULL,xlim=c(0,2),ylim=c(-1,1),asp=1,ann=F,axes=T)
O=0i;A=1+0i;B=1i;C=1+1i
pt(O,'O'); pt(A,'A') ; pt(B,'B') ; pt(C,'C')
seg(O,A);seg(0,B);seg(C,A);seg(C,B) ; seg(O,C,lty=3)
r=1.070437
th=-0.3647908 ; pt(0.15-0.025i,'θ') # Pの偏角
P=r*cos(th)+r*1i*sin(th) ; pt(P,'P(rcosθ,rsinθ)') ; seg(O,P,col=8)
Cir(P,r,col=8)
ci <- function(x) r*sin(th) + sqrt(r^2 - (x-r*cos(th))^2)
Q=1+1i*ci(1) ; pt(Q,'Q') ; seg(P,Q,col=8)
x=seq(0,1,0.005)
lines(x,ci(x),type='h',col=4)
pt(P/2,'r',cex=1.25) ; seg(O,C,lty=3)

"
integral r*sin(θ) + sqrt(r^2 - (x-r*cos(θ))^2) dx =
"
f <- function(x,r=1.070436,θ=-0.3647908) r*sin(θ) + sqrt(r^2 - (x-r*cos(θ))^2)
curve(f(x),0,1,add=T)
integrate(f,0,1)$value
955 名前：卵の名無しさん mailto:sage [2020/11/19(木) 18:52:02.15 ID:AV9OAvON.net]: Fn <- function(x,r=1.070436,θ=-0.3647908){
(1/2)*(x-r*cos(θ))*sqrt(r^2 - (x-r*cos(θ))^2) - (1/2)*r^2*atan((r*cos(θ)-x)/sqrt(r^2-(x-r*cos(θ)^2))) + r*x*sin(θ)
}
Fn(1)-Fn(0)

Area <- function(r,θ){
(1/2)*(1-r*cos(θ))*sqrt(r^2-(1-r*cos(θ))^2) - (1/2)*atan((r*cos(θ)-1)/sqrt(r^2+r*cos(θ)^2-1)) + r*sin(θ) +
(1/2)*r*cos(θ)*sqrt(r^2-r^2*cos(θ)^2) + (1/2)*r^2*atan(r*cos(θ)/sqrt(r^2+r*cos(θ)^2))
}
Area(r=1.070436,θ=-0.3647908)
956 名前：卵の名無しさん mailto:sage [2020/11/21(土) 09:04:39.17 ID:YdGgHDOx.net]: 田村議員の質疑には、民主主義と法治国家を死守するという熱意に溢れている。
これに対する閣僚、官僚の答弁は法治国家を破壊しかねない、デタラメなものばかり。

https://www.youtube.com/watch?v=E9kPDgbczXk

https://www.youtube.com/watch?v=bQOwuAiKseU
957 名前：卵の名無しさん mailto:sage [2020/11/21(土) 14:05:50.26 ID:vNIkaki5.net]: 「感染拡大は、Go to が原因とする科学的エビデンスはない」と自民党の連中が言うけどさ
ゴールデンウィーク前は「外出するな、旅行するな、帰省もするな」の大合唱だったんだよ。「人が移動したらウィルスも移動する」からね

それがいつの間にか、マスクして感染対策すりゃOK！ってなってるの何で？
958 名前：卵の名無しさん mailto:sage [2020/11/21(土) 18:12:40.62 ID:yHIGlwPH.net]: LET'S 振込め詐欺見張隊新117 L-FSM-N117

www.lets-co.jp/lets/security/furikomenew117.html
959 名前：卵の名無しさん mailto:sage [2020/11/22(日) 11:00:36.59 ID:m/vS68nE.net]: # https://www3.nhk.or.jp/news/special/coronavirus/data-all/
# 2019年の交通事故による死亡者の数は3215人、https://www.nippon.com/ja/japan-data/h00625/

rm(list=ls())

x=2596 # new infection
r=1981 # culmutive death toll
n=130951 # culmutive infection
r/n # morality rate
x*r/n # estimated deaths in new infecton
ci=binom.test(r,n)$conf
data.frame(lower=ci[1]*x,upper=ci[2]*x)
d=365.2425
x*r/n*d # annual estimated
as.vector(x*ci*d)

x*r/n*d/3215 # ratio to traffic accident casul
as.numeric(x*ci*d/3215)
960 名前：卵の名無しさん mailto:sage [2020/11/22(日) 11:09:15.63 ID:m/vS68nE.net]: # https://www3.nhk.or.jp/news/special/coronavirus/data-all/
# 2019年の交通事故による死亡者の数は3215人、https://www.nippon.com/ja/japan-data/h00625/

rm(list=ls())

x=2596 # new infection
r=1981 # culmutive death toll
n=130951 # culmutive infection
r/n # morality rate
x*r/n # estimated deaths in new infection
ci=binom.test(r,n)$conf # 95% confidence interval(C.I.)
data.frame(lower=ci[1]*x,upper=ci[2]*x)
d=365.2425 # days in one-year
x*r/n*d # annual estimated
as.vector(x*ci*d) # 95%C.I.

x*r/n*d/3215 # ratio to traffic accident death casualities
as.numeric(x*ci*d/3215) # 95%C.I.
961 名前：卵の名無しさん mailto:sage [2020/11/22(日) 13:07:16.02 ID:m/vS68nE.net]: # https://www3.nhk.or.jp/news/special/coronavirus/data-all/
# 2019年の交通事故による死亡者の数は3215人、https://www.nippon.com/ja/japan-data/h00625/

rm(list=ls())

x=2596 # new infection
r=1981 # culmutive death toll
n=130951 # culmutive infection
r/n # morality rate
x*r/n # estimated deaths in new infection
ci=binom.test(r,n)$conf # 95% confidence interval(C.I.)
data.frame(lower=ci[1]*x,upper=ci[2]*x)
d=365.2425 # days in one-year
x*r/n*d # annual estimated
as.vector(x*ci*d) # 95%C.I.
ta=3215 # annual traffic accident fatality
x*r/n*d/ta # ratio to traffic accident fatality
as.vector(x*ci*d/ta) # 95%C.I.
962 名前：卵の名無しさん mailto:sage [2020/11/22(日) 17:43:25.52 ID:m/vS68nE.net]: # https://www3.nhk.or.jp/news/special/coronavirus/data-all/
# 2019年の交通事故による死亡者の数は3215人、https://www.nippon.com/ja/japan-data/h00625/

rm(list=ls())

x=2596 # new infection
r=1981 # culmulative death toll
n=130951 # culmulative infection
r/n # morality rate
x*r/n # estimated deaths in new infection
ci=binom.test(r,n)$conf # 95% confidence interval(C.I.)
data.frame(lower=ci[1]*x,upper=ci[2]*x)
d=365.2425 # days in one-year
x*r/n*d # annual estimated
as.vector(x*ci*d) # 95%C.I.
ta=3215 # annual traffic accident fatality
x*r/n*d/ta # ratio to traffic accident fatality
as.vector(x*ci*d/ta) # 95%C.I.
963 名前：卵の名無しさん mailto:sage [2020/11/23(月) 12:41:47.57 ID:jv+E87O2.net]: 小選挙区制で（与党）議員どおしのcheck & balanceが消滅し、
内閣人事局で政治家と官僚のcheck & balanceが消滅。

制度化したのが民主党、制度を悪用したのが自民党。

その結果が

　デフレ下に増税、
　疫病下に旅行推進

という歴史に残る愚策。
964 名前：卵の名無しさん mailto:sage [2020/11/23(月) 23:23:57.53 ID:jv+E87O2.net]: 小選挙区制で（与党）議員どおしのcheck & balanceが消滅し、
内閣人事局で政治家と官僚のcheck & balanceが消滅。

制度化に動いたのが民主党を作った政治家達、制度化して悪用したのが自民党。

その結果が

　デフレ下に増税、
　疫病下に旅行推進

という歴史に残る愚策。
965 名前：卵の名無しさん mailto:sage [2020/11/25(水) 16:52:40.72 ID:1mPkdWnl.net]: 財政破綻論を唱える連中には、この一言で全ての片が付く。
「日銀のFTF買い入れの財源教えて」
966 名前：卵の名無しさん mailto:sage [2020/11/26(木) 08:32:39.74 ID:/Ibshp5i.net]: 財政破綻論を唱える連中には、この一言で全ての片が付く。
「日銀のETF買い入れの財源教えて」
967 名前：卵の名無しさん [2020/11/26(木) 19:00:26.74 ID:Ok784nx+.net]: 医師版になぜ統計？
俺、統計できるんだぜ
お前らと違って
あたまいいだろ
ホルホル、つうこと？
968 名前：卵の名無しさん mailto:sage [2020/11/26(木) 22:10:36.52 ID:LFiRhrQe.net]: IMO <- function(x='IMO'){
y=unlist(strsplit(x,''))
n=length(y)
z=numeric(n)
for(i in 1:n) z[i]=which(y[i]==LETTERS)
w=z-1
sum(w*26^((n-1):0))+1
}
IMO('KINTAMA')
IMO('KKK')
969 名前：卵の名無しさん mailto:sage [2020/11/26(木) 22:36:55.28 ID:LFiRhrQe.net]: pm=expand.grid(replicate(3,LETTERS,simplify=F))
pm=t(apply(pm,1,rev))
f <- function(x){
x[1]=='I' & x[2]=='M' & x[3]=='O'
}

which(apply(pm,1,f))
pm[5735,]
revLET <- function(x='IMO'){
y=unlist(strsplit(x,''))
n=length(y)
z=numeric(n)
for(i in 1:n) z[i]=which(y[i]==LETTERS)
z
}
revLET('IMO')
(9-1)*26^2+(13-1)*26+15

IMO <- function(x='IMO'){
y=unlist(strsplit(x,''))
n=length(y)
z=numeric(n)
for(i in 1:n) z[i]=which(y[i]==LETTERS)
w=z-1
sum(w*26^((n-1):0))+1
}
970 名前：卵の名無しさん mailto:sage [2020/11/26(木) 22:37:08.75 ID:LFiRhrQe.net]: IMO('KINTAMA')
IMO('SEX')
IMO('YMO')
source('toolmini.R')
pm[12296,]
revLET("SEX")
dec2nw(12296,26,0)

n2IMO <- function(x){
y=dec2nw(x,26,0)+1
n=length(y)
y[n]=y[n]-1
print(paste(LETTERS[y],collapse = ''),quote=F)
}
n2IMO(2020)
971 名前：卵の名無しさん mailto:sage [2020/11/27(金) 00:04:49.17 ID:MEMGUU7d.net]: １レスいくらだか知らねーけど、そんなバイトしなきゃならんほど困窮させた張本人擁護とかよくやるわ
972 名前：卵の名無しさん mailto:sage [2020/11/27(金) 07:56:33.46 ID:MEMGUU7d.net]: IMO <- function(x){
y=unlist(strsplit(x,''))
n=length(y)
z=numeric(n)
for(i in 1:n) z[i]=which(y[i]==LETTERS)
w=z-1
sum(w*26^((n-1):0))+1
}

> IMO('CZR')
[1] 2020

n2IMO <- function(x){
r=x%%26
q=x%/%26
while(q > 0){
r=append(q%%26,r)
q=q%/%26
}
y=r+1
n=length(y)
y[n]=y[n]-1
print(paste(LETTERS[y],collapse = ''),quote=F)
}

> n2IMO(2020)
[1] CZR
973 名前：卵の名無しさん mailto:sage [2020/11/27(金) 10:40:53.44 ID:0gxQ/Sbs.net]: 中国の数字は信用できないと言われるが公文書改竄に賄賂五輪誘致GDPやらコロナやら数字誤魔化してる日本は言える立場に無い
974 名前：卵の名無しさん [2020/11/27(金) 11:10:02.25 ID:DvhL2xEx.net]: ナースステーションの端で泣いている男性研修医(38)を見かけた時の適切な対応を１つ選べ。

a. 蹴り飛ばす

b. 抗うつ薬を処方する

c. 退職を勧める

d. 「サボっている研修医が居る」と院長へ報告する

これ本当に国試に出された問題なんだって。
ふざけるのもいい加減にしろと言いたいわ。
出題者のレベルが下がってるのは、やはり
学生の質が低下してるのと関係があるんだろうな。

しかし精神的に幼稚な出題者だよなｗ

出題者が一番、医師としての適性が欠けてるじゃんｗ
975 名前：卵の名無しさん mailto:sage [2020/11/27(金) 12:54:33.84 ID:0gxQ/Sbs.net]: >>897
976 名前：英語と統計は現代の読み書きソロバン []: [ここ壊れてます]
977 名前：卵の名無しさん [2020/11/27(金) 13:27:18.61 ID:LgYm5vL7.net]: そりゃ全員裏口かブーストかどっちかだもんな
978 名前：卵の名無しさん mailto:sage [2020/11/27(金) 15:36:24.87 ID:MEMGUU7d.net]: >>897
こういうのができないと金を毟り取られちゃう。

COVID19の潜伏期間の論文

https://www.nejm.org/doi/full/10.1056/NEJMoa2001316

結論は
#--- incubation period ---
# from Li et al NEJM 2020
# lognormal mean = 5.2
ln.par1 = 1.434065
ln.par2 = 0.6612

あるシリツ医が新型コロナ肺炎に罹患したとする。
行動調査によって発症前にキャバクラに行っており接客したキャバ嬢がシリツ医発症の２日後に発症していたことがわかった。
キャバ嬢はシリツ医から移されたと主張して１億円の賠償を求めている。
潜伏期間には幅がありキャバ嬢から移された可能性もあると主張してその確率を計算して賠償金を値切りたい。
いくら値切れるか計算せよ。
979 名前：卵の名無しさん mailto:sage [2020/11/27(金) 16:10:54.68 ID:MEMGUU7d.net]: >>897

学部教員の声某

会議にて某教授曰く「統計できない人は進級させなくていいですから」

別の某教授からの怒りの電話：「基本的なことがわかっていない学生・大学院生が多い．教養部のうちにちゃんと教育してもらわないと！」

www.tmd.ac.jp/artsci/math/lec/tokunaga/statistics08_01.pdf
980 名前：卵の名無しさん mailto:sage [2020/11/27(金) 16:11:58.85 ID:MEMGUU7d.net]: 最終的には多くの学生が「わかってしまえば簡単だった」という感想を漏らします．
皆さんの先輩M君（現M４）の名言：「自転車と同じで，いったん乗れるようになればあとは楽々ですよ」
981 名前：卵の名無しさん mailto:sage [2020/11/27(金) 19:45:15.34 ID:xmdXpYdQ.net]: # https://www3.nhk.or.jp/news/special/coronavirus/data-all/
# 2019年の交通事故による死亡者の数は3215人、https://www.nippon.com/ja/japan-data/h00625/

rm(list=ls())

fn <- function(
x=2523, # new infection
r=2086, # culmulative death toll
n=142811 # culmulative infection
){
cat('mortality rate = ',r/n,'\n') # morality rate
cat('estimated deaths in newly infected = ',x*r/n,'\n') # estimated deaths in new infection
ci=binom.test(r,n)$conf # 95% confidence interval(C.I.)
print(data.frame(lower=ci[1]*x,upper=ci[2]*x))
d=365.2425 # days in one-year
cat('annual deaths estimated = ',x*r/n*d, '\n') # annual estimated
CI=as.vector(x*ci*d) # 95%C.I.
print(data.frame(lower=CI[1],upper=CI[2]))
ta=3215 # annual traffic accident fatality
cat('ratio to traffic accident fatality = ',x*r/n*d/ta,'\n') # ratio to traffic accident fatality
CI=as.vector(x*ci*d/ta) # 95%C.I.
print(data.frame(lower=CI[1],upper=CI[2]))
}
fn()
982 名前：卵の名無しさん mailto:sage [2020/11/27(金) 19:56:10.93 ID:xmdXpYdQ.net]: テレビのドキュメンタリーでやってたが
看護師が、これだけ働いて感染の危険も冒してるのにボーナス無しはあり得ないと病院側に訴え。
でも病院側は、利益が出なければボーナスなどとても出せない、経営が行き詰まってると。
実際私立病院ならそうだろう。
こういう医療現場こそコロナ補助で国が救済するべき。
なんで飲み屋や観光業など娯楽業種を助けるために
体張ってる医療機関を犠牲にするんだか。
983 名前：卵の名無しさん mailto:sage [2020/11/27(金) 21:46:30.17 ID:xmdXpYdQ.net]: あるドキュメンタリーでやってたが
看護師が、これだけ働いて感染の危険も冒してるのにボーナス無しはあり得ないと病院側に訴え。
でも病院側は、利益が出なければボーナスなどとても出せない、経営が行き詰まってると。
実際、私立病院ならそうだろう。
こういう医療現場こそコロナ補助で国が救済するべきと思う。
医療機関で適正な賃金を払えない現実こそ、医療崩壊だと思う。
984 名前：卵の名無しさん mailto:sage [2020/11/28(土) 07:45:58.02 ID:Vq0tXK6x.net]: 生活圏を超える人の移動は、確実に接触率を上げ、これが実効再生産数を挙げて、感染者数上昇を引き起こす。
現在、GOTOでウィルスを全国に拡散中。
しばらくは、旅行を楽しむような若者や元気な人が隠れ陽性となり、これらが顕在化して爆増だな。
985 名前：卵の名無しさん mailto:sage [2020/11/28(土) 08:38:33.70 ID:Vq0tXK6x.net]: DR. FAUCI: You know, every single day we meet with the task force, and we take a look at what's going on.
And you don't want to make a pronouncement that no one should ever go into a restaurant.
I mean, I think that might be overkill right now, but everything is on the table.
It may come to the situation where we strongly recommend.
Right now, myself personally, I wouldn't go to a restaurant.
I just wouldn't because I don't want to be in a crowded place.
I have an important job to do.
I don't want to be in a situation where I'm going to be all of a sudden self-isolating for 14 days.

https://www.cbsnews.com/news/transcript-dr-anthony-fauci-discusses-coronavirus-on-face-the-nation-march-15-2020/
986 名前：卵の名無しさん mailto:sage [2020/11/28(土) 09:18:40.36 ID:Vq0tXK6x.net]: 安倍ぴょんまでも総合的・俯瞰的に粛清が始まってワクワクするのだが、朝敵安倍を撃ての詔が総理に下ったのかな？
桜を見る会でなく、前夜祭に焦点をあてているのは菅が無傷で安倍を撃ち落とすためだろうな。
桜を見る会そのものを取り上げると、スガもプリズン　になってしまう。
987 名前：卵の名無しさん mailto:sage [2020/11/29(日) 12:10:27.26 ID:WqPJnRzs.net]: バカはトリアージにより老人が追い出されると思って喜んでいたみたいだけど
現実には老人が優先されたというオチ

まあ若者はコロナで死なないけど老人はすぐ死んでしまうから
老人優先は当然なんだよなあ
988 名前：卵の名無しさん mailto:sage [2020/11/29(日) 18:45:11.35 ID:WqPJnRzs.net]: 感染者が入院希望しても入院できないのが医療崩壊だと思うのだが、現状は医療崩壊ではないのか？
989 名前：卵の名無しさん mailto:sage [2020/11/29(日) 18:47:35.39 ID:WqPJnRzs.net]: 感染者が入院希望しても入院できないのが医療崩壊だと思うのだが、現状は医療崩壊ではないのか？
990 名前：卵の名無しさん mailto:sage [2020/11/29(日) 20:16:35.60 ID:WqPJnRzs.net]: あるシリツ医大で裏口入学率を推定したい。
何の情報もないのでその確率を0から1までの>>488
一様分布とする。
調査により何人の裏口が続いたら裏口入学率の95%信頼区間の下限値が90%を超えるか？
そのときの裏口入学率の期待値はいくらか？

library(HDInterval)
f <- function(x) hdi(qbeta,0.95,shape1=1+x,shape2=1)
f=Vectorize(f)
n=0:100
y=f(n)
plot(n,(1+n)/(2+n),bty='l',ylab='Prob ',ylim=c(0,1),pch=19)
segments(n,y['lower',],n,y['upper',])
# points(n,y['lower',])
# points(n,y['upper',])
abline(h=0.90,col=8)
n0=uniroot(function(x,u0=0.90) f(x)[1] - u0, c(0,100))$root ; n0
(n0+1)/(n0+2)
(ceiling(n0)+1) / (ceiling(n0)+2)
991 名前：卵の名無しさん mailto:sage [2020/11/29(日) 21:30:08.11 ID:WqPJnRzs.net]: k=1e3
oz=0.6/0.4
game <- function(x){
OZ=P=numeric()
OZ[x]=oz^(x-1)
P[x]=OZ[x]/(1+OZ[x])
rbinom(k,1,P[x])
}

sim <- function(a,b){
mean(game(a) > game(b))
}
sim(7,3)
992 名前：卵の名無しさん mailto:sage [2020/11/30(月) 06:52:25.73 ID:QN29Tqgt.net]: 海外からのコロナ流入を止めるのが遅すぎた　中国だけでなく欧州からの流入が続いたのが痛かった
検査の強化と
993 名前：隔離施設の手当が必要なのに、中国でそれが有効だったのを見ていたのに学ぶことなく折角クラスター対策で稼いだ時間を無駄にした GoToキャンペーンはコロナが終息してから開始する約束だったのに反故にして前倒し実施して傷口を広げた 科学的根拠を重視せず思い付きで無意味な施策を繰り出した（一斉休校、アベノマスク、GoToキャンペーン）それもお友達利権つきで　それらの施策は国会で審議もしていないから野党はどうすることもできないし、野党は桜を見る会だけ取り上げていたわけではない 少なくとも野党は「自民と同罪」ではない 君は結局自民のサポーターで、政府への批判が避けられないから野党も一緒だとレッテル貼りをしているのだろう []: [ここ壊れてます]
994 名前：卵の名無しさん mailto:sage [2020/11/30(月) 06:52:41.10 ID:QN29Tqgt.net]: 同じ島国なのに、支那ウィルスの抑え込みに成功した台湾とニュージーランド。
失敗した日本とイギリス。
この同じ島国であるながら、違いがなぜ生じたかを考えればわかる。

アベがFラン過ぎた。
ジョンソンも支那ウィルスを当初、極東の風土病くらいにしか思わず、対策を油断した。

一方台湾もNZも観光も主要産業だったが、1月に危機感を感じトップダウンで鎖国した。
島国の利点を生かし、外国からの人の流れを遮断し鎖国することで乗り切った。
1月、2月は経済が縮小したが、その成果が表れて現在は支那ウィルスを抑え込んだ。
今は国内の経済活動も解禁した。

それに比べて日本はどうだい？
アベは1月に全く危機感も持たず、「春節の支那人観光客のインバウンドを歓迎します。」と呑気なビデオメッセージを垂れ流してた。
アベは「非常事態宣言で鎖国する法的根拠がないー」とほざいて言い逃れする。

しかしアベにやる気があれば、総理大臣の伝家の宝刀「超法規的措置」が取れた。
日本赤軍がよど号をハイジャックし、刑務所の極左メンバーの釈放と、北チョン国への亡命を要求した。
当時の総理は、刑法、入管法も停止して、法秩序を捻じ曲げて、国交のない北チョン国に赤軍メンバーを亡命させた。
「超法規的措置」とはこのように強力な権力である。

しかしFラン大卒のアベは、1月に日本の鎖国…外人の入国禁止措置を取らなかった。
馬鹿のアベに危機感と責任感と決断力がなかった。
ま、1月の国会を「桜を見る会がー！」で無駄に貴重な時間を潰した糞ボケ野党どもも、痔民党と同罪だけどな。

日本にはろくな政党がない。
日本には”真の”保守政党が必要だ。
　
995 名前：卵の名無しさん mailto:sage [2020/11/30(月) 22:24:00.68 ID:HI2s9ZOn.net]: f <- function(
wAB=80, # Aの対B勝数
lAB=20, # Aの対B負数
wAC=30, # Aの対C勝数
lAC=20, # Aの対C負数
k=1e6){ # 乱数発生数
b=rbinom(k,wAB+lAB,lAB/(wAB+lAB)) # Bの勝数乱数
ba=b/(wAB+lAB-b) ; hist(ba,br='sc',fr=F) # Bのオッズ乱数
c=rbinom(k,wAC+lAC,lAC/(wAC+lAC)) # Cの勝数乱数
ca=c/(wAC+lAC-c) ; hist(ca,br='sc',fr=F) # Cのオッズ乱数
bc=ba/ca # Bの対Cオッズ乱数
summary(bc)
hist(bc,br='sc',fr=F)
P
996 名前：bc=bc/(1+bc) hist(Pbc) summary(Pbc) pbc=Pbc[!is.na(Pbc)] print(summary(pbc)) plotPost(pbc,compVal = 0.5,showMode=T,showCurve = T,xlab='Prob[B beats C]') hdi(pbc) } []: [ここ壊れてます]
997 名前：卵の名無しさん mailto:sage [2020/11/30(月) 22:27:58.54 ID:HI2s9ZOn.net]: library(gmp)
f <- function(N){
a=factorialZ(N)
b=as.character(a)
c=as.numeric(unlist(strsplit(b,'')))
d=rev(c)
if(d[1]!=0) return(NA)
else return(rle(d)$values[2])
}

N=1:1000
y=sapply(N,f)
plot(N,y,bty='n')
z=data.frame(N,digit=y)
head(z,10)
tail(z,10)
998 名前：卵の名無しさん mailto:sage [2020/12/01(火) 08:54:10.45 ID:iy4usOEg.net]: library(gmp)
f <- function(N){
a=factorialZ(N)
b=as.character(a)
c=as.numeric(unlist(strsplit(b,'')))
d=rev(c)
if(d[1]!=0) return(NA)
else return(rle(d)$values[2])
}

N=1:10004
y=sapply(N,f)
plot(N,y,bty='n')
z=data.frame(N,digit=y)
head(z,10)
tail(z,10)
a=z[-1:-4,] # non-zero digit
b=vector('list',length=9)
for(i in c(2,4,6,8)){
b[[i]]=a[a$digit==i,]$N
}
b
c=sapply(c(2,4,6,8), function(i) length(b[[i]]))
data.frame(digit=c(2,4,6,8),個数=c)
999 名前：卵の名無しさん mailto:sage [2020/12/01(火) 10:28:29.05 ID:VGK+tvyz.net]: # 差X-Yのpdfの公式
# ∫[-∞,∞] pdf1(x+y)*pdf2(y) dy

# x ~ pdf1,y ~ pdf2から x-y のpdfを返す
pdf_minus <- function(pdf1,pdf2){
f <- function(x,y) pdf1(x+y)*pdf2(y)
f=Vectorize(f,vectorize.args = 'y')
pdf <- function(x)
integrate(function(y) f(x,y),-Inf,Inf,rel.tol=1e-14)$value
pdf=Vectorize(pdf)
invisible(pdf)
}
# ex. COVID19 incubation time
mu = 1.434065 ; sg = 0.6612
x=rlnorm(1e6,mu,sg) ; y=rlnorm(1e6,mu,sg)
hist(x-y,xlim=c(-30,30),freq=F,breaks=250,lty=1,col='skyblue',main='')
pdf_minus(function(x)dlnorm(x,mu,sg),
function(x)dlnorm(x,mu,sg)) -> pdf
curve(pdf(x),add=T)
var=integrate(function(x) x^2*pdf(x),-Inf,Inf)$value
sqrt(var)
integrate(pdf,2,Inf,rel.tol=1e-12)
mean(x-y>2)
library(polspline)
fit=logspline(x-y)
curve(dlogspline(x,fit),add=T,col=4)
1-plogspline(2,fit)
1000 名前：卵の名無しさん mailto:sage [2020/12/01(火) 12:55:50.90 ID:iy4usOEg.net]: 日本の誇り

★亀井静香

「簡単に言いますと・・・
小泉・竹中改革と称する路線の逆をやれば日本の未来が開かれる、
このように私は思います。」

https://www.youtube.com/watch?v=DmiCQKBM2So&t=350s
1001 名前：卵の名無しさん mailto:sage [2020/12/01(火) 13:59:32.58 ID:VGK+tvyz.net]: たちが悪いのは同じような派遣会社がゴキブリ並に増えたことだね。起業したやつの8割以上が派遣会社って狂ってる。派遣会社が増えると単価も質も下がるからいいことなんてない。少なくとも正社員派遣なんて社員1000人未満の企業がやることじゃない。
1002 名前：卵の名無しさん mailto:sage [2020/12/01(火) 14:36:51.79 ID:VGK+tvyz.net]: 一国の総理がイの1番に逃げ出すんやから、それから比べりゃ残ってる医療従事者は神だな
1003 名前：卵の名無しさん mailto:sage [2020/12/02(水) 15:08:41.39 ID:q+b52hkR.net]: こういうのができないと金を毟り取られちゃうから、統計は臨床医には必須。

COVID19の潜伏期間の論文

https://www.nejm.org/doi/full/10.1056/NEJMoa2001316

結論は
#--- incubation period ---
# from Li et al NEJM 2020
# lognormal mean = 5.2
ln.par1 = 1.434065
ln.par2 = 0.6612

ある開業医が新型コロナ肺炎に罹患したとする。
行動調査によって発症前にキャバクラに行っており接客したキャバ嬢が開業医発症の２日後に発症していたことがわかった。
キャバ嬢は開業医から移されたと主張して１億円の賠償を求めている。
潜伏期間には幅がありキャバ嬢から移された可能性もあると主張してその確率を計算して賠償金を値切りたい。
いくら値切れるか計算せよ。
1004 名前：卵の名無しさん mailto:sage [2020/12/02(水) 15:09:27.20 ID:P31LjdKx.net]: うりゅうひろゆきの本スレにようこそ！
このウンコスレは基本的にさらしアゲて使用します！
ココは医師真似事務員ジイさんが、医師ねたみの挙句、テメェで勝手に自称で医科歯科大を卒業した医師って設定で
妄想願望日記を発表するスレです
お医者さんのマトモなレスなど全く不要！
ゴミ箱まがいの公衆便所掃き溜め痰
1005 名前：壷下品スレとして使用しましょうね そんなわけで、いまだ懲りない恥さらし（自称）医科歯科事務員ジジイ登場～～ │　　　　　　彡川川川三三三ミ～　プウゥ～ン ｜　　　　　　川｜川／　　＼｜～　ポワ～ン　　　＿＿＿＿＿＿＿＿ ｜　　　　　∥｜∥　◎---◎｜～　　　　　　　／ ｜　　　　　川川∥　　　　3　　ヽ～　　　　　　＜僕はうりゅうひろゆき ｜　　　　　川川　　　∴）д（∴）～　　　　　　＼＿＿＿＿＿＿＿＿ ｜　　　　　川川　　　　　　～　/～　カタカタカタ ｜　　　　　川川∥　　　　～　/∥　＿＿＿＿＿ ｜　　　　川川川川＿＿＿／∥　 |　　|￣￣＼　＼ ｜　　　　　　／　　　　　　　＼＿＿|　　|　　　　|￣￣| ｜　　　　　/　　＼医科歯科　　　 |　　|　　　　|＿＿| ｜　　　　　|　＼　　　　　　|つ　　　|＿_|＿＿／　／ ｜　　　　 /　医師うらやましいぜ・・　|￣￣￣￣|　　〔￣￣〕 よし、医科歯科の医者と称して 私立のお医者様を攻撃だ！なんたって、医科歯科の看板借りてんだからな え？証明？？？自称だから医科歯科の学生証、卒業証書あるわけねえよ 同期の医師あげてみろ、ったて、そもそも医師じゃねえし居ねえよバカ でも病院でもらった、医科歯科の封筒はもってま～す！これを証拠にしてやるぜ 専門医？欲しいけど・・いいや！そんなの必要ねえ！俺は事務員だし []: [ここ壊れてます]
1006 名前：卵の名無しさん mailto:sage [2020/12/03(木) 11:47:39.61 ID:TjAn8Ste.net]: 本日のニュー速＋より

452 ニューノーマルの名無しさん 2020/12/03(木) 11:45:56.01 ID:ChAQFKI00
近大病院とか大丈夫かよ
バカ大卒の医者の集団だろ
1007 名前：卵の名無しさん mailto:sage [2020/12/03(木) 13:19:58.21 ID:N/boKzBU.net]: 国家試験も通らないウリュウの馬鹿がなんか言ってるw
国家試験合格してないのに国家試験は簡単だと嘯く万年浪人生、社会の底辺の分際で。
1008 名前：卵の名無しさん mailto:sage [2020/12/03(木) 15:33:26.57 ID:wgEAQ1y4.net]: ただの風邪で逮捕されるのかよ？

病院抜け出したコロナ患者偽計業務妨害などの疑いで逮捕埼玉
2020年12月2日 16時23分

https://www3.nhk.or.jp/news/html/20201202/k10012741791000.html?utm_int=detail_contents_news-related_002
1009 名前：卵の名無しさん mailto:sage [2020/12/03(木) 15:51:04.24 ID:wgEAQ1y4.net]: ibrary(fmsb)
"
GOTOトラベルだと
40,000,000 / 172 = 232,558人に一人感染
日本の人口12600万/感染者15万=840人に一人感染
GOTOトラベル参加は新コロナ感染リスクを何分の１に減らすことができるか？
95%信頼区間付きで計算せよ。
"
riskratio(172,15e4,4000e4,12600e4)
rateratio(172,15e4,4000e4,12600e4)

1/riskratio(172,15e4,4000e4,12600e4)$conf
1/riskratio(172,15e4,4000e4,12600e4)$est
1010 名前：卵の名無しさん mailto:sage [2020/12/03(木) 17:59:43.64 ID:wgEAQ1y4.net]: 桜の会は安倍自身も完全アウトだね

たとえば初めて発覚した事件で
｢秘書が勝手にやってましたー｣的なトカゲのしっぽ切りはよくあるけど、

今回の件は、すでに国会で国民の前で追及議論されていた問題であって
その国会を通して、安倍総理は国民に対して、自身が責任を持って確認した上で

「明細はない」｢補填は一切ない｣｢全て参加者個人で支払ってる｣と安倍自身が明言してたんだからな…

結果、｢確認した上で｣国会で嘘をつきまくって、その時の議論追求を逃れていたんだから、これは秘書ガー案件では通らない

安倍自身も完全にアウト・・
1011 名前：卵の名無しさん mailto:sage [2020/12/03(木) 21:08:56.01 ID:N/boKzBU.net]: ウリュウによるウリュウのためのクソスレ
1012 名前：ウリュウとは？ 長年この板に執着する、私立医学部を僻みまくる自称医科歯科卒の万年浪人生。5chに毎日恨み言を書くしか人生の楽しみがない可哀想な人。 []: [ここ壊れてます]
1013 名前：卵の名無しさん mailto:sage [2020/12/04(金) 02:49:12.67 ID:qtis7WfA.net]: シリツ医は>935の計算もできないのはなぜか？
裏口だから。
1014 名前：卵の名無しさん mailto:sage [2020/12/04(金) 07:37:48.86 ID:qtis7WfA.net]: 飲食店の店内飲食はコロナ拡大を助長・・アメリカの複数の大学の研究結果　
https://forbesjapan.com/articles/detail/38240
レストランの営業再開と新型ウイルスの感染拡大との明らかな相関関係を総括的に示した最初の研究結果は6月、ジョンズ・ホプキンス大学により発表された。
同大は米国内3000万人のクレジットカード利用データを分析し、各州での流行状況との関係を調査。
結果、レストランの利用が増えるほど感染も増加していたことが明白に示された。

飲食業が直面している問題は、衛生管理などの対策にまつわるものではなく、私たちには対処のしようがない「スーパースプレッダー」の存在だ。
同じレストラン内にスーパースプレッダーが1人存在すれば、感染の可能性は非常に高まる。
それは、QRコードのメニューを導入し、消毒ジェルを常備し、スタッフにマスクの常時着用を義務付けるなどの感染対策を万全にしても同じだ。
つまり、店側は感染を防ぐことができないのだ。

スタンフォード大の研究結果は、レストラン経営者にとって最悪のニュースだ。
飲食業は経済で大きな役割を担っているが、現時点では感染拡大を抑制するためにテイクアウトのみの営業に制限するほかないことを、私たちは受け入れなければいけない。
テイクアウトのみの営業でも、徹底した衛生管理は必要になる。

これまでに蓄積されてきた証拠やデータ、科学的研究結果は疑いの余地がない。
残念ながら、ワクチンが普及するまでは、レストランやバーを閉店するのが唯一の責任ある対処法になる。
1015 名前：卵の名無しさん mailto:sage [2020/12/04(金) 07:41:48.99 ID:qtis7WfA.net]: 医師ならば大事な仕事があるから小金につられて外食しないよ。

ファウチ博士
「私はレストランには行かない」
「大切な仕事があるから」

DR. FAUCI: You know, every single day we meet with the task force, and we take a look at what's going on.
And you don't want to make a pronouncement that no one should ever go into a restaurant.
I mean, I think that might be overkill right now, but everything is on the table.
It may come to the situation where we strongly recommend.
Right now, myself personally, I wouldn't go to a restaurant.
I just wouldn't because I don't want to be in a crowded place.
I have an important job to do.
I don't want to be in a situation where I'm going to be all of a sudden self-isolating for 14 days.
1016 名前：卵の名無しさん mailto:sage [2020/12/04(金) 07:46:06.01 ID:qtis7WfA.net]: >>940
https://news.yahoo.com/myself-personally-wouldnt-restaurant-fauci-174014267.html
1017 名前：卵の名無しさん mailto:sage [2020/12/04(金) 07:50:47.88 ID:qtis7WfA.net]: 医師ならば大事な仕事があるから小金につられて外食しないよ。

ファウチ博士
「私はレストランには行かない」
「大切な仕事があるから」

DR. FAUCI: You know, every single day we meet with the task force, and we take a look at what's going on.
And you don't want to make a pronouncement that no one should ever go into a restaurant.
I mean, I think that might be overkill right now, but everything is on the table.
It may come to the situation where we strongly recommend.
Right now, myself personally, I wouldn't go to a restaurant.
I just wouldn't because I don't want to be in a crowded place.
I have an important job to do.
I don't want to be in a situation where I'm going to be all of a sudden self-isolating for 14 days.

https://news.yahoo.com/myself-personally-wouldnt-restaurant-fauci-174014267.html
1018 名前：卵の名無しさん mailto:sage [2020/12/04(金) 08:07:27.57 ID:qtis7WfA.net]: >>939
スタンフォードの方
https://www.nature.com/articles/s41586-020-2923-3
https://www.nature.com/articles/s41586-020-2923-3.pdf
1019 名前：卵の名無しさん mailto:sage [2020/12/04(金) 08:12:25.53 ID:qtis7WfA.net]: https://www.bloombergquint.com/business/covid-superspreader-risk-is-linked-to-restaurants-gyms-hotels
1020 名前：卵の名無しさん mailto:sage [2020/12/04(金) 08:51:31.45 ID:qtis7WfA.net]: Trump says everyone knew the coronavirus was airborne in February: It's 'no big thing'

https://www.cnbc.com/2020/09/10/trump-says-everyone-knew-the-coronavirus-was-airborne-in-february-its-no-big-thing.html
1021 名前：卵の名無しさん mailto:sage [2020/12/04(金) 09:39:28.66 ID:qtis7WfA.net]: "
ある国では人々は生まれてくる子には男の子だけを欲しがりました。
そのため、どの家族も男の子を産むまで子供を作り続けました。
この国では男の子と女の子の人口比率はどう�
1022 名前：ﾈりますか？ 人間の出生性比は地域、時代にかかわらず男女がおおむね105:100前後である。 https://ja.wikipedia.org/wiki/%E6%80%A7%E6%AF%94 " sim <- function(){ mf=numeric() baby=sample(1:0,1,prob=c(p,1-p)) mf=baby while(baby!=1){ baby=sample(1:0,1,prob=c(p,1-p)) mf=c(mf,baby) } mf } k=1e6 mf=unlist(replicate(k,sim())) mean(mf) ; p m=sum(mf) f=length(mf)-sum(mf) m/f []: [ここ壊れてます]
1023 名前：卵の名無しさん mailto:sage [2020/12/04(金) 09:39:52.78 ID:qtis7WfA.net]: p=105/205
q=1-p
p/q
n=1e5

m <- function(n){ # p*(1+q+q^2+q3+q^4+...)
re=0
for(i in 1:n) re = re + q^(i-1)*p
re}
f <- function(n){
re=0
for(i in 1:n) re = re + i*q^i*p
re}
m(n)/f(n)
1024 名前：卵の名無しさん mailto:sage [2020/12/04(金) 10:38:31.18 ID:qtis7WfA.net]: 検査希望者が自主的に検査を受けて検査数を増やすやり方では、
いくら検査数が増えても効果が少ないのは、
アメリカや欧州を見てあきらか

おそらく高リスク群なのに検査受けない人が多いんでしょう

中国方式で検査数を増やすのがいちばん確実で効果がある

この地域で〇〇業種で働いてるやつ全員検査うけろ、
とか、この地域の住民全員検査受けろ、
とか、この工場で働いてるやつ全員検査、この学校のやつ全員検査、
みたいに、行政が検査対象を指定して1人も逃さず検査することが重要
1025 名前：卵の名無しさん mailto:sage [2020/12/04(金) 13:35:05.74 ID:e/Y+DSKR.net]: 米国が移民政策成功してるのって弱者が病気になろうと
気にせずゴミのように放置できるから社会コストが跳ね上がらないからだろう。

日本は多民族共生できるほど民度が高くないんだよなぁ。
日本だと気の毒だからと国保にタカらせ集中治療室まで使わせるからパンクする
1026 名前：卵の名無しさん mailto:sage [2020/12/04(金) 13:35:11.79 ID:e/Y+DSKR.net]: 米国が移民政策成功してるのって弱者が病気になろうと
気にせずゴミのように放置できるから社会コストが跳ね上がらないからだろう。

日本は多民族共生できるほど民度が高くないんだよなぁ。
日本だと気の毒だからと国保にタカらせ集中治療室まで使わせるからパンクする
1027 名前：卵の名無しさん mailto:sage [2020/12/04(金) 13:36:14.09 ID:e/Y+DSKR.net]: ★亀井静香

「簡単に言いますと・・・
小泉・竹中改革と称する路線の逆をやれば日本の未来が開かれる、
このように私は思います。」

https://www.youtube.com/watch?v=DmiCQKBM2So&t=350s
1028 名前：卵の名無しさん mailto:sage [2020/12/04(金) 13:42:00.62 ID:e/Y+DSKR.net]: １０００年に一度の大地震と日本初の原発メルトダウンに同時に対処した民主党政権
今年３度目の感染拡大期を迎えてもまともに感染防止策をうてない自民党政権

こう書くと菅直人って実はずげぇ優秀だったんじゃねーかと思えてくる
1029 名前：卵の名無しさん [2020/12/04(金) 14:27:39.06 ID:BHaZSKEI.net]: うりゅうひろゆきの本スレにようこそ！
このウンコスレは基本的にさらしアゲて使用します！
ココは医師真似事務員ジイさんが、医師ねたみの挙句、テメェで勝手に自称で医科歯科大を卒業した医師って設定で
妄想願望日記を発表するスレです
お医者さんのマトモなレスなど全く不要！
ゴミ箱まがいの公衆便所掃き溜め痰壷下品スレとして使用しましょうね
そんなわけで、いまだ懲りない恥さらし（自称）医科歯科事務員ジジイ登場～～

│　　　　　　彡川川川三三三ミ～　プウゥ～ン
｜　　　　　　川｜川／　　＼｜～　ポワ～ン　　　＿＿＿＿＿＿＿＿
｜　　　　　∥｜∥　◎---◎｜～　　　　　　　／
｜　　　　　川川∥　　　　3　　ヽ～　　　　　　＜僕はうりゅうひろゆき
｜　　　　　川川　　　∴）д（∴）～　　　　　　＼＿＿＿＿＿＿＿＿
｜　　　　　川川　　　　　　～　/～　カタカタカタ
｜　　　　　川川∥　　　　～　/∥　＿＿＿＿＿
｜　　　　川川川川＿＿＿／∥　 |　　|￣￣＼　＼
｜　　　　　　／　　　　　　　＼＿＿|　　|　　　　|￣￣|
｜　　　　　/　　＼医科歯科　　　 |　　|　　　　|＿＿|
｜　　　　　|　＼　　　　　　|つ　　　|＿_|＿＿／　／
｜　　　　 /　医師うらやましいぜ・・　|￣￣￣￣|　　〔￣￣〕
　　　　　　　よし、医科歯科の医者と称して
　　　　　　　私立のお医者様を攻撃だ！なんたって、医科歯科の看板借りてんだからな
　　　　　　　え？証明？？？自称だから医科歯科の学生証、卒業証書あるわけねえよ
　　　　　　　同期の医師あげてみろ、ったて、そもそも医師じゃねえし居ねえよバカ
　　　　　　　でも病院でもらった、医科歯科の封筒はもってま～す！これを証拠にしてやるぜ
　　　　　　　専門医？欲しいけど・・いいや！そんなの必要ねえ！俺は事務員だし
1030 名前：卵の名無しさん mailto:sage [2020/12/04(金) 17:33:57.62 ID:qtis7WfA.net]: 在日米軍が先手先手をうってきた。

半径150キロは会食禁止
東京神奈川千葉の密集地帯は立ち入り禁止。

https://i.imgur.com/rndvhrY.png
1031 名前：卵の名無しさん mailto:sage [2020/12/04(金) 18:35:42.49 ID:e/Y+DSKR.net]: 誰も突っ込まないけど、自民が増長したここ１０年で
国会答弁の新機軸ルール確立しちゃったの気付いてる？

「仮定の話にはお答えできません」　（事実上の答弁拒否ｗ同じ質問を再度されても繰り返しで逃げ切りＯＫｗ）
「各種事情を勘案して総合的に判断しました」（その総合的判断の具体的な説明を再度求められてもこの繰り返し）
「個別の案件にお答えする事は差し控えさせて頂きます」　（逆に個別の案件でない案件って何？w）

「そもそも」コレがまかり通るなら世の中に存在する事案の９９％、これで答弁回避できちゃうんだよな�
1032 名前：� でも誰もソレに突っ込まずにこれが「責任もって誠実に真摯に回答した」でまかり通ってる異常さw 都合の悪い事案になったらこのやり取りの無限ループを聞かされるだけｗ事実もうそうなってるw 一応答弁したよｗってな既成事実作りの為に「あくまで一般論としてお答えさせて頂きますと～」だのテンプレ喚いて強制終了ｗ 安倍からの流れで菅も異常に多いんだよねこのテンプレ回答、もう固定文法表現みたいになってるのな 「～により回答はは差し控えさせて頂きます～いずれにしましても一般的には～」 この様式の繰り返し 更にテンプレフレーズに「人事の事なので回答は差し控えます」が堂々追加ッ！！ウエーイw マジ終わってるよこの国w []: [ここ壊れてます]
1033 名前：卵の名無しさん mailto:sage [2020/12/04(金) 20:52:07.31 ID:e/Y+DSKR.net]: 米国立アレルギー感染症研究所（NIAID）のアンソニー・ファウチ所長は
新型コロナウイルスの感染拡大を食い止めるには学校ではなくバーやレストランの閉鎖が必要と主張している。

ABCニュースの取材に応じた中で発言した。

ファウチ所長はABCニュースの取材に応じた中で「学校ではなくバーを閉鎖すべき」と発言した。

ファウチ所長によれば、学校に通う子供たちの安全を確保するには、教育機関の閉鎖ではなく市中感染レベルを低く維持する必要があるという。
この意味において大きな脅威となるのが、マスクを着用せずに飲食するレストランやバーの存在としている。
https://jp.sputniknews.com/covid-19/202011307977386/

【コロナ感染リスク高い場所】断トツ「レストラン」会食リスク 9800万人のデータで判明…尾身会長「飲食店での感染きわめて多い」★３
https://asahi.5ch.net/test/read.cgi/newsplus/1606956739
1034 名前：卵の名無しさん mailto:sage [2020/12/04(金) 22:21:06.27 ID:ueyXN44c.net]: 懲りないね。ウリュウのジジイ。
1035 名前：卵の名無しさん mailto:sage [2020/12/05(土) 09:14:32.14 ID:bwOrGWWK.net]: ウリュウって誰だよ？
1036 名前：卵の名無しさん mailto:sage [2020/12/05(土) 09:52:18.95 ID:nJH15ife.net]: >>958
あんただよ！笑
1037 名前：卵の名無しさん mailto:sage [2020/12/05(土) 11:12:16.21 ID:nJH15ife.net]: 自称医科歯科卒の医師コンプまみれの哀れな社会の底辺くん。
1038 名前：卵の名無しさん mailto:sage [2020/12/05(土) 20:38:53.07 ID:KvaCocrJ.net]: GOTOトラベル　GOTOイートも
完全に　現場で苦労している医療従事者を愚弄する行為

現場の医療のプロには、感染してはいけないと言って
旅行や外食や帰郷は控えさせ、病院の寄宿舎に泊まらせ
かつボーナスは減らし　感染の恐怖と過重労働で煮え湯を飲ませ
院内感染はプロのくせに感染するなどけしからんと報道し

かたや一般人には税金注いで　遊びまわって外食や旅行を奨励し
しかも患者を増やし、医療従事者の負担を増やす

医療従事者に暴動が起きないほうがおかしいくらい
1039 名前：卵の名無しさん mailto:sage [2020/12/05(土) 23:34:09.74 ID:bwOrGWWK.net]: >>959
違うけど。
1040 名前：卵の名無しさん mailto:sage [2020/12/05(土) 23:35:15.35 ID:bwOrGWWK.net]: シリツ医は>935の計算もできないのはなぜか？
裏口だから。
1041 名前：卵の名無しさん mailto:sage [2020/12/06(日) 00:51:06.31 ID:UutdJsAz.net]: まー白々しい。毎回毎回同じ言葉しか言わないのに。匿名だからバレないとでも？
さすが非医だね。
1042 名前：卵の名無しさん mailto:sage [2020/12/06(日) 07:49:24.58 ID:zIMFwcve.net]: うちは、かかりつけの老人は時間外でも診ているけど
一見さんの若者はお断りだな。

まあ若者はコロナで死なないけど老人はすぐ死んでしまうから
老人優先は当然。

将来ある世代こそ自粛要請すべき。
1043 名前：卵の名無しさん mailto:sage [2020/12/06(日) 07:51:14.55 ID:zIMFwcve.net]: 比率の検定すらできないのがシリツ医
�
1044 名前：ｾって、裏口ですもの。 " GOTOトラベルだと 40,000,000 / 172 = 232,558人に一人感染 日本の人口12600万/感染者15万=840人に一人感染 GOTOトラベル参加は新コロナ感染リスクを何分の１に減らすことができるか？ 95%信頼区間付きで計算せよ。 " []: [ここ壊れてます]
1045 名前：卵の名無しさん mailto:sage [2020/12/06(日) 12:37:43.22 ID:UutdJsAz.net]: 医者コンプもここまでこじらせると哀れだな
1046 名前：卵の名無しさん mailto:sage [2020/12/06(日) 13:15:20.91 ID:OpozBrzF.net]: >>967
やはり、計算できない裏口シリツだな。

他スレでも正論が

>>888　だって、私立医ダモン　ばかだもん
1047 名前：卵の名無しさん mailto:sage [2020/12/06(日) 13:17:59.43 ID:UutdJsAz.net]: この板に非医って可哀想。
だってずっと医者コンプでこんなところでしか発散できないんだから。
1048 名前：卵の名無しさん mailto:sage [2020/12/06(日) 13:23:32.53 ID:UutdJsAz.net]: ここの板では医師免許持ってるかどうかが全てなので。
あ、誰とは言わないけど自称医科歯科は非医なので悪しからず。笑
1049 名前：卵の名無しさん mailto:sage [2020/12/06(日) 13:47:50.89 ID:zMVHGfr2.net]: これ！

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

東京医大の事件は裏口入学が現在進行形であること如実にしめした事件だよね。
シリツ医の使命は裏口入学撲滅国民運動の先頭に立つことだよ。
裏口入学の学生を除籍処分にしないかぎり、信頼の回復はないね。つまり、いつまで経ってもシリツ医大卒＝裏口バカと汚名は拭えない。シリツ出身者こそ、裏口入学に厳しい処分せよを訴えるべき。
裏口入学医師の免許剥奪を！の国民運動の先頭に立てばよいぞ。
僕も裏口入学とか、言ってたら信頼の回復はない。
1050 名前：卵の名無しさん mailto:sage [2020/12/06(日) 14:18:29.85 ID:UutdJsAz.net]: コピペと統計しか脳のないウリュウじいさん。
医者なんか到底勤まりませんね。
1051 名前：卵の名無しさん mailto:sage [2020/12/06(日) 14:20:20.48 ID:UutdJsAz.net]: 残念ながら東京医科大学出身のお医者様>>(超えられない壁)>>非医が世間一般の考え。これが現実。
1052 名前：卵の名無しさん mailto:sage [2020/12/06(日) 16:03:24.98 ID:OpozBrzF.net]: >>973
俺、国立卒だから>966の計算できるよ。
裏口シリツ医には無理。
1053 名前：卵の名無しさん mailto:sage [2020/12/06(日) 16:06:53.73 ID:OpozBrzF.net]: ド底辺シリツ医の三法則

一、ド底辺シリツ医大が悪いのではない、本人の頭が悪いんだ。

二、ド底辺シリツ医大卒は恥ずかしくて、学校名を皆さま言いません。

三、ド底辺シリツ医大卒は裏口入学の負い目から裏口馬鹿を暴く人間を偽医者扱いしたがる。
1054 名前：卵の名無しさん mailto:sage [2020/12/06(日) 16:07:18.73 ID:OpozBrzF.net]: >>973
んで、あんたどこ卒
1055 名前：卵の名無しさん mailto:sage [2020/12/06(日) 16:27:41.87 ID:UutdJsAz.net]: >>976
俺国立医学部医学科卒
あんたは？どうせ医科歯科なんでしょ？非医の
1056 名前：卵の名無しさん mailto:sage [2020/12/06(日) 16:40:50.04 ID:5oOEX2Ca.net]: >>977
国立卒で>966の計算ができないのはおかしいから
裏口シリツ医だろうな。
1057 名前：卵の名無しさん mailto:sage [2020/12/06(日) 19:16:56.40 ID:OpozBrzF.net]: rm(list=ls())
source('toolmini.R')
r=1
x=seq(-1,259/880,0.005)
y=sqrt(r^2-x^2)
plot(x,y,xlim=c(-1,5),ylim=c(-2,2),asp=1,type='n',col=3,axes=F,ann=F)
# points(x,-y,col=3,type='h')
Cir(0i,1)

R=1.25
A=1.1
Cir(A+0i,R
1058 名前：) seg(259/880-1i*(3*sqrt(78591))/880,259/880+1i*(3*sqrt(78591))/880) " x^2+y^2=1 (x-1.1)^2+y^2=1.25^2 x = 259/880 ∧ y = +(3 sqrt(78591))/880 x = 259/880 ∧ y = -(3 sqrt(78591))/880 " pt(-0.5+0i,'A') pt(0.1+0i,'B') pt(0.5+0i,'C') pt(1.25+0i,'D') []: [ここ壊れてます]
1059 名前：卵の名無しさん mailto:sage [2020/12/06(日) 19:17:52.32 ID:OpozBrzF.net]: >>977
俺は二期校時代の入学だから、医学部看護学科なんてなかったぞ。
1060 名前：卵の名無しさん mailto:sage [2020/12/06(日) 19:20:11.32 ID:OpozBrzF.net]: >>979
二次元で面積1のシャボン玉と面積2のシャボン玉が合体した時に
表面張力で最終的にどんな形に落ち着くか
1061 名前：卵の名無しさん mailto:sage [2020/12/06(日) 19:31:11.12 ID:UutdJsAz.net]: 医師免許持ってないくせに偉そうだなw
二期とかいつの時代のジジイだよ。
1062 名前：卵の名無しさん mailto:sage [2020/12/06(日) 19:32:14.07 ID:UutdJsAz.net]: 問題誰も解いてくれないからって僻むなよw
1063 名前：卵の名無しさん mailto:sage [2020/12/06(日) 21:00:40.28 ID:OpozBrzF.net]: rm(list=ls())
source('toolmini.R')
r=1
x=seq(-1,259/880,0.005)
y=sqrt(r^2-x^2)
plot(x,y,xlim=c(-1,5),ylim=c(-2,2),asp=1,type='h',col=3,axes=F,ann=F)
points(x,-y,col=3,type='h')
lines(x,y,lwd=3) ; lines(x,-y,lwd=3)

R=1.25
A=1.1
x=seq(259/880,2.35,0.005)
y=sqrt(R^2-(x-A)^2)
points(x,y,col=2,type='h')
points(x,-y,col=2,type='h')
lines(x,y,lwd=3) ; lines(x,-y,lwd=3)
seg(259/880-1i*(3*sqrt(78591))/880,259/880+1i*(3*sqrt(78591))/880,col=4,lwd=5)
"
x^2+y^2=1
(x-1.1)^2+y^2=1.25^2
x = 259/880 ∧ y = +(3 sqrt(78591))/880
x = 259/880 ∧ y = -(3 sqrt(78591))/880
"
1064 名前：卵の名無しさん mailto:sage [2020/12/06(日) 21:01:32.55 ID:OpozBrzF.net]: https://i.imgur.com/hWivCQE.png
1065 名前：卵の名無しさん mailto:sage [2020/12/06(日) 22:04:26.95 ID:QJKvCg42.net]: 日本には裏口シリツ医というのがいる。

僕も裏口入学と公言したシリツ医は比例計算すら怪しい。
https://news.yahoo.co.jp/articles/5a507fc8250323400d786f70d75d512d81e32ef4
1066 名前：卵の名無しさん mailto:sage [2020/12/06(日) 22:07:00.42 ID:QJKvCg42.net]: >>983
裏口シリツ医には解ける基礎学力がないだろ。

僕も裏口入学と公言したシリツ医は比例計算すら怪しい。
https://news.yahoo.co.jp/articles/5a507fc8250323400d786f70d75d512d81e32ef4
1067 名前：卵の名無しさん mailto:sage [2020/12/06(日) 22:19:38.63 ID:UutdJsAz.net]: 大学受験で時間が止まってる万年受験生の非医は今の医療現場なんか知るわけないもんな。医者になった人たちにとって統計だの数学だの何年前の話？っていうことだ
1068 名前：卵の名無しさん mailto:sage [2020/12/06(日) 22:22:15.92 ID:UutdJsAz.net]: もうずっとここの板に粘着して誰一人相手にしてくれなかったんだろ？きっと数え切れないほどの医者に誰にも相手にされなかったということは少なくともお前のことなんか道端のゴミみたいな存在だったということ。
それを教えてやってるだけ感謝しろ。
1069 名前：卵の名無しさん mailto:sage [2020/12/06(日) 22:34:47.48 ID:UutdJsAz.net]: この前医学部新設されたばかりだよな？学費も数千万。
どれだけ僻んでも医学部は国立だけにはならない。
こんなところで騒ぐしか能のない非医と違って未来の医者が日本に必要とされてるんだよ。残念だったな。
1070 名前：卵の名無しさん mailto:sage [2020/12/07(月) 01:54:00.68 ID:Zl4aO9cy.net]: うりゅうひろゆきの本スレにようこそ！
このウンコスレは基本的にさらしアゲて使用します！
ココは医師真似事務員ジイさんが、医師ねたみの挙句、テメェで勝手に自称で医科歯科大を卒業した医師って設定で
妄想願望日記を発表するスレです
お医者さんのマトモなレスなど全く不要！
ゴミ箱まがいの公衆便所掃き溜め痰壷下品スレとして使用しましょうね
そんなわけで、いまだ懲りない恥さらし（自称）医科歯科事務員ジジイ登場～～

│　　　　　　彡川川川三三三ミ～　プウゥ～ン
｜　　　　　　川｜川／　　＼｜～　ポワ～ン　　　＿＿＿＿＿＿＿＿
｜　　　　　∥｜∥　◎---◎｜～　　　　　　　／
｜　　　　　川川∥　　　　3　　ヽ～　　　　　　＜僕はうりゅうひろゆき
｜　　　　　川川　　　∴）д（∴）～　　　　　　＼＿＿＿＿＿＿＿＿
｜　　　　　川川　　　　　　～　/～　カタカタカタ
｜　　　　　川川∥　　　　～　/∥　＿＿＿＿＿
｜　　　　川川川川＿＿＿／∥　 |　　|￣￣＼　＼
｜　　　　　　／　　　　　　　＼＿＿|　　|　　　　|￣￣|
｜　　　　　/　　＼医科歯科　　　 |　　|　　　　|＿＿|
｜　　　　　|　＼　　　　　　|つ　　　|＿_|＿＿／　／
｜　　　　 /　医師うらやましいぜ・・　|￣￣￣￣|　　〔￣￣〕
　　　　　　　よし、医科歯科の医者と称して
　　　　　　　私立のお医者様を攻撃だ！なんたって、医科歯科の看板借りてんだからな
　　　　　　　え？証明？？？自称だから医科歯科の学生証、卒業証書あるわけねえよ
　　　　　　　同期の医師あげてみろ、ったて、そもそも医師じゃねえし居ねえよバカ
　　　　　　　でも病院でもらった、医科歯科の封筒はもってま～す！これを証拠にしてやるぜ
　　　　　　　専門医？欲しいけど・・いいや！そんなの必要ねえ！俺は事務員だし
1071 名前：卵の名無しさん mailto:sage [2020/12/07(月) 07:02:13.87 ID:oePJEWJv.net]: 川崎医大の創始者の子供や孫は教育投資して学力をつけて
岡山大学や京都大学の医学部に入学。
法外な学費が払える経済状況にありながらド底辺シリツ医大にしか入れないのは馬鹿の証明。

僕も裏口入学と公言したシリツ医は比例計算すら間違える。
https://news.yahoo.co.jp/articles/5a507fc8250323400d786f70d75d512d81e32ef4
1072 名前：卵の名無しさん mailto:sage [2020/12/07(月) 07:03:01.50 ID:oePJEWJv.net]: D=E=numeric()
D[1]=190
E[1]=D[1]
# D[2]=E[1]%/%5
# E[2]=D[2]+E[1]%%5
i=1
while(E[i]>5){
D[i+1]=E[i]%/%5
E[i+1]=D[i+1]+E[i]%%5
i=i+1
}
sum(E)
1073 名前：卵の名無しさん mailto:sage [2020/12/07(月) 07:07:32.89 ID:oePJEWJv.net]: r=1
x=seq(-1,259/880,0.005)
y=sqrt(r^2-x^2)
plot(x,y,xlim=c(-1,3),ylim=c(-2,2),asp=1,type='n',col=3,axes=F,ann=F)
points(x, y,col=3,type='h')
points(x,-y,col=3,type='h')
lines(x,y,lwd=1) ; lines(x,-y,lwd=1)

R=1.25
A=1.1
x=seq(259/880,R+A,0.005)
y=sqrt(R^2-(x-A)^2)
points(x,y,col=2,type='h')
points(x,-y,col=2,type='h')
lines(x,y,lwd=1) ; lines(x,-y,lwd=1)
pt(0i,'O')

abline(h=0,lty=3)
o=0i
a=A+0i
pt(a,'A')
b=259/880+(3i*sqrt(78591))/880
pt(b,'B')
seg(o,b)
pt(0.1+0.1i,quote(theta),cex=1.5)
seg(a,b)
pt(o/2+b/2,'r',cex=1.5)
pt(a/2+b/2,'R',cex=1.25)

Cir(o,r,lty=3)
Cir(a,R,lty=3)
1074 名前：卵の名無しさん mailto:sage [2020/12/07(月) 07:08:59.74 ID:oePJEWJv.net]: >>990

ド底辺シリツ医大を擁護するなんてド底辺シリツ医大卒だろうな。

シリツ医のこれが現実

１次方程式
1075 名前：もできないド底辺特殊シリツ医大卒の記録 http://imagizer.imageshack.com/img923/2715/RosCsf.jpg 何度読んでも馬鹿すぎる。 男女別の割合と全体での割合から男女比が計算できるとも思わないとは。 なんでこんなのが大学に入れるわけよ？ 裏口入学以外に説明がつく？ 中学生でも解ける一次方程式の問題だろ。 それすらできない馬鹿が自信を持って発言。 >患者の男女比が必要なのもわからないのか？ だとさ。 http://imagizer.imageshack.com/img923/9687/zNivZW.jpg 0.2575549 と答を書いてやったら >単位も書かずに答えだとか… ド底辺シリツ医大では確率に単位があるらしいぞw 何でこんな馬鹿が大学に入れるわけ？ 裏口入学以外に説明がつく？ http://imagizer.imageshack.com/img923/5683/vMw9nv.jpg []: [ここ壊れてます]
1076 名前：卵の名無しさん mailto:sage [2020/12/07(月) 07:25:45.25 ID:oePJEWJv.net]: f <- function(n190=190,n5=5){
D=E=numeric()
D[1]=n190
E[1]=D[1]

i=1
while(E[i]>=n5){
D[i+1]=E[i]%/%n5
E[i+1]=D[i+1]+E[i]%%n5
i=i+1
}
sum(D)
}
f=Vectorize(f)
f(1e6)
1077 名前：卵の名無しさん mailto:sage [2020/12/07(月) 07:46:10.59 ID:oePJEWJv.net]: "
問題）１００万本のジュースがあります。このジュースの空き瓶5本と同じジュース一本が交換できます。この交換をくり返しながら
ジュースが全部なくなるまで飲みました。全部で何本飲めたでしょうか？
"
rm(list=ls())
options(digits=22)
f <- function(n190=190,n5=5){
D=E=numeric()
D[1]=n190
E[1]=D[1]
i=1
while(E[i]>=n5){
D[i+1]=E[i]%/%n5
E[i+1]=D[i+1]+E[i]%%n5
i=i+1
}
sum(D)
}
f=Vectorize(f)
f(1e6)
n=1:1000
y=f(n)
plot(n,y,type='l')
lm(y~n)
1078 名前：卵の名無しさん mailto:sage [2020/12/07(月) 07:56:05.82 ID:oePJEWJv.net]: ド底辺シリツ医にはこれは解けないと思う。
問題の意味は小学生でもわかる。

問題）
1本100円のジュースがあります。
このジュースの空き瓶5本と同じジュース一本が交換できます。
手元に100万円あります。

(1)何本買う時が一本あたりの単価がもっとも安くなりますか？
(2)そのとき何本飲めるでしょうか？
1079 名前：卵の名無しさん mailto:sage [2020/12/07(月) 10:28:37.75 ID:vtqovEKc.net]: こんな朝っぱらから7連続書き込みで発狂か。
そうやって一生お医者様僻んでここで発狂して終わるのか。惨めな人生だな。
1080 名前：卵の名無しさん mailto:sage [2020/12/07(月) 11:54:14.60 ID:YSMHdjTj.net]: rm(list=ls())
options(digits=22)
f <- function(n190=190,n5=5){
D=E=numeric()
D[1]=n190
E[1]=D[1]
i=1
while(E[i]>=n5){
D[i+1]=E[i]%/%n5
E[i+1]=D[i+1]+E[i]%%n5
i=i+1
}
sum(D)
}
f=Vectorize(f)
uniroot(function(x,u0=1000) f(x)-u0, c(500,1000))
1081 名前：卵の名無しさん mailto:sage [2020/12/07(月) 12:04:20.93 ID:YSMHdjTj.net]: >>999
内視鏡バイト後の暇つぶしだよ。
1082 名前：卵の名無しさん mailto:sage [2020/12/07(月) 12:21:33.06 ID:vtqovEKc.net]: 毎日内視鏡バイトしてるんですか。笑
1083 名前：卵の名無しさん mailto:sage [2020/12/07(月) 12:25:13.47 ID:vtqovEKc.net]: 内視鏡バイトの非医の一つ覚え、誰が信じるんだ？
1084 名前：卵の名無しさん mailto:sage [2020/12/07(月) 13:22:34.66 ID:I8zufu0m.net]: 呼吸苦の旅行客で救急収容の依頼。
1万円のインセンティブが当直代に加算されるけど、小金につられてリスクを背負うのはＧＯＴＯ乞食と同じになるので対応不能とお断りした。
そのかわりというわけでもないが、地元住民の軽症救急搬送を経過観察入院させてインセンティブＧＥＴ！
1085 名前：卵の名無しさん mailto:sage [2020/12/07(月) 13:25:02.63 ID:I8zufu0m.net]: >>1002
週３日午前中だけ。
昔とった杵柄で麻酔やCSの内視鏡バイトに行ってたけど
今は診断EGDバイトのみにした。
金に釣られてリスクを負いたくなくなったので。
1086 名前：卵の名無しさん mailto:sage [2020/12/07(月) 13:28:25.37 ID:I8zufu0m.net]: エパデール内服でも抗血小板薬内服なので観察のみで生検不可がバイト先でのルール。
前日にサバ缶食っても生検不可になんのかよ？と思いながらもルールにはしたがっている。

君子危うきに近寄らず。

裏口シリツ医ってある意味すごいよなぁ

常識的に考えて、数千万という法外な金を払って、しかも同業者からも患者からもバカだの裏口だのと散々罵られるのをわかって好き好んでド底辺医というスティグマを買うわけだから。
1087 名前：卵の名無しさん mailto:sage [2020/12/07(月) 13:28:50.35 ID:I8zufu0m.net]: Last but not least, three laws of Do-T
1088 名前：eihen 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　which they have gone through. ド底辺シリツ医大卒は恥ずかしくて、学校名を皆さま言いません。 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. ド底辺シリツ医大卒は裏口入学の負い目から裏口馬鹿を暴く人間を偽医者扱いしたがる。 前々スレからのド底辺シリツ医への宿題 若い女性研修医（嘘つきかどうかは不明）から 「あなたのいうことが正しければ手コキかフェラをしてあげる、そうでなければセンズリを命じる」と言われた。 フェラをしてもらうには何と言えばいいか？ 答だせないってアホなの？ フェラよりセンズリが好きなの？ []: [ここ壊れてます]
1089 名前：卵の名無しさん mailto:sage [2020/12/07(月) 13:29:13.93 ID:I8zufu0m.net]: Last but not least, 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　which they have gone through.
ド底辺シリツ医大卒は恥ずかしくて、学校名を皆さま言いません。

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.
ド底辺シリツ医大卒は裏口入学の負い目から裏口馬鹿を暴く人間を偽医者扱いしたがる。
1090 名前：1001 [Over 1000 Thread.net]: このスレッドは１０００を超えました。
新しいスレッドを立ててください。
life time: 174日 18時間 19分 27秒
1091 名前：過去ログ ★ [[過去ログ]]: ■ このスレッドは過去ログ倉庫に格納されています

[ 新着レスの取得/表示 (agate) ] / [ 携帯版 ]

read.cgi ver5.27 [feat.BBS2 +1.6] / e.0.2 (02/09/03) / eucaly.net products.
担当:undef