オリンピックのせいで、東北の建築復興が人出不足になる、
また一部トップアスリートの五輪参加のために、医療資源が国内のコロナ対策
に回せない。。それって、オリ・パラじゃなくって、
もはや、オリハラ＝オリンピック ハラスメントじゃね！
rm(list=ls())
c0=c(300,250,200,100,0) # value of each coupon
f0 <- function(x){ # numbers of each coupon
nc=numeric(5)
for(i in 1:5) nc[i]=sum(x==i)
nc
}
f1 <- function(x){ # coupons -> coupons left and new purchase
y=sapply(x,function(x) min(20,x))
cmax=max(y*c0)
imax=which.max(y*c0)
x[imax]=x[imax]-min(20,x[imax])
list(x,cmax)
}
f2 <- function(x){ # add newly gained coupon
y=f1(x)
list(y[[1]] + f0(sample(5, y[[2]]%/%300, rep=TRUE)),y[[2]])
}
sim <- function(){
c1=sample(5,100,rep=TRUE)
nc=f0(c1)
flg <- sum(nc[1:4])==0
purchase=0
while(!flg){
re=f2(nc)
nc <- re[[1]]
purchase <- purchase+re[[2]]
flg <- sum(nc[1:4])==0
}
c(nc[5],purchase)
}
sim()
z=t(replicate(1e5,sim()))
head(z)
hist(z[,1],main='80%discount coupon',col=2,xlab='coupons')
hist(z[,2],main='total purchase with coupon',col=4,xlab='yen')
0956卵の名無しさん2021/04/16(金) 09:04:24.22ID:7p8AOfxD
私立医学部・私立歯学部合格請負 メルリックス学院
私立医学部受験コース
入学金￥300,000
年間授業料
￥3,876,000
完全個別コース
￥4,896,000
0957卵の名無しさん2021/04/16(金) 11:35:27.66ID:DXqCk3FP
もう数年前から臨床にはクソの役にも立たない数式とか
書き込んでるヤツってアスペなの？
>>1
日本の勝手な判断で世界の海を汚染しようとしているのだから、
世界から批判されて当然。
逆に中韓がこんなことしようとしたら、日本海が汚れるって大反対するはず。
いつからか日本は国際的感情を読めなくなっているようだ
五輪開催についても、やろうとしているのは日本だけ。
開催することはCOVID-19と対峙している世界からすれば、もはやどうでもいい行事、
本当に迷惑と思われてるのに、それに気づかない日本
もっと外を見て日本は勉強すべき。だから30年以上も経済が上向かず、右肩下りの経済なのです
日本のやっている対策はもはや世界で通用しない 時代になっている
このまま変革なければ、一生、日本経済は上向かないし、若返ることもないでしょう sim <- function(
H0=2,
T0=8){
coin=rep(1:0,c(H0,T0))
flg=FALSE
count=0
while(!flg){
count=count+1
coin=c(coin,rbinom(1,1,1/2))
flg <- 2*sum(coin)==length(coin)
}
count
}
sim()
replicate(100,sim(4,6))
sim <- function(
H0,
T0){
coin=rep(1:0,c(H0,T0))
flg=FALSE
count=0
while(!flg & count<100){
count=count+1
coin=c(coin,rbinom(1,1,1/2))
flg <- 2*sum(coin)>length(coin)
}
c(as.numeric(flg),count)
}
sim(4,5)
replicate(20,sim(4,5))
sim <- function(
H0,
T0,
n){
coin=rep(1:0,c(H0,T0))
flg=FALSE
count=0
while(!flg & count<n){
count=count+1
coin=c(coin,rbinom(1,1,1/2))
flg <- 2*sum(coin)>length(coin)
}
c(as.numeric(flg),count)
}
sim(4,5,100)
y=replicate(1e4,sim(4,5,100))
mean(y[1,])
f <- function(x) all(cumsum(x)-cumsum(x==0)<2)
"
ある大学の進級試験（本試験と呼ぶ）は○☓で答える問題が９問出されて正答率が５割を越える、即ち、５問以上正答で合格とする。
不合格者には追試が用意されていて１問ずつ問題が出されて本試験との通算成績が５割を越えた時点で合格となる。
追試には１問につき１万円が徴収される。
A君は本試験では問題も読まずに無作為に解答したため４問正答５問誤答で本試験は不合格となった。
追試料を100万円準備して追試も無作為に解答することにした。
A君が合格する確率はいくらか？
"
sim <- function(
H0,
T0,
n){
coin=rep(1:0,c(H0,T0))
flg=FALSE
count=0
while(!flg & count<n){
count=count+1
coin=c(coin,rbinom(1,1,1/2))
flg <- 2*sum(coin)>length(coin)
}
c(as.numeric(flg),count)
}
sim(4,5,100)
y=t(replicate(1e5,sim(4,5,100)))
mean(y[,1])
z=y[y[,1]==1,][,2]
BEST::plotPost(z,xlab='追試料')
"
ある大学の進級試験（本試験と呼ぶ）は○☓で答える問題が９問出されて正答率が５割を越える、即ち、５問以上正答で合格とする。
不合格者には追試が用意されていて１問ずつ問題が出されて本試験との通算成績が５割を越えた時点で合格となる。
追試には１問につき１万円が徴収される。
A君は本試験では問題も読まずに無作為に解答したため４問正答５問誤答で本試験は不合格となった。
追試料を100万円準備して追試も無作為に解答することにした。
A君が合格する確率はいくらか？
"
sim <- function(
H0,
T0,
n){
coin=rep(1:0,c(H0,T0))
flg=FALSE
count=0
while(!flg & count<n){
count=count+1
coin=c(coin,rbinom(1,1,1/2))
flg <- 2*sum(coin)>length(coin)
}
c(as.numeric(flg),count)
}
sim(4,5,100)
y=t(replicate(1e5,sim(4,5,100)))
head(y)
mean(y[,1])
z=y[y[,1]==1,][,2]
BEST::plotPost(z,xlab='追試料')
BEST::plotPost(y[,2],xlab='不合格を含む追試料')
理論値
rm(list=ls())
options(digits=22)
library(gtools)
calc <- function(n){
f <- function(x){
n=length(x)
y=cumsum(x)-cumsum(x==0)
all(y[-n]<2) & y[n]==2
}
pm=permutations(2,n,0:1,rep=TRUE)
sum(apply(pm,1,f))*(1/2)^n
}
calc=Vectorize(calc)
nn=1:10
sum(calc(nn))
> y=t(replicate(1e6,sim(4,5,100)))
> head(y)
[,1] [,2]
[1,] 1 18
[2,] 1 4
[3,] 1 2
[4,] 0 100
[5,] 1 2
[6,] 1 4
> mean(y[,1])
[1] 0.842212
rm(list=ls())
calc <- function(n){
dec2bin <- function(num, N=2, digit){ # enumerate from 0 0 0 1 to 1 1 1 1
r=num%%N
q=num%/%N
while(q > 0 | digit > 1){
r=append(q%%N,r)
q=q%/%N
digit=digit-1
}
return(r)
}
f <- function(x){ # right answer > wrong answer
n=length(x)
y=cumsum(x)-cumsum(x==0)
all(y[-n]<2) & y[n]==2
}
re=0
for(i in 1:2^n){
re = re + f(dec2bin(i,2,n))*(1/2)^n
}
re
}
p=numeric()
N=1:30
for (i in N) p[i]=calc(i)
plot(N,cumsum(p),pch=19,bty='l',xlab='追試料',ylab='合格確率')
k=1e6
a=runif(k)
b=runif(k)
c=runif(k)
x=cbind(a,b,c)
f <- function(x){
x=sort(x)
a=x[1] ; b=x[2] ; c=x[3]
if(a+b<=c) return(NA)
else a^2+b^2-c^2 > 0 # cos(C)= (a^2+b^2-c^2)/(2ab)
}
z=apply(x,1,f)
summary(z)
acute=x[z==TRUE&!is.na(z),]
plot3d(acute,type='p',col=2,size=1)
Play3d(10)
obtuse=x[z==FALSE&!is.na(z),]
plot3d(obtuse,type='p',col=3,size=1)
Play3d(10)
plot3d(acute,type='p',col=2,size=1)
plot3d(obtuse,type='p',col=3,size=1,add=TRUE)
Play3d(10)
no_triangle=x[is.na(z),]
plot3d(no_triangle,type='p',col=c('black','red'),size=1)
Play3d(10)
オリンピックの利権に与れない庶民は飲み歩いてコロナを拡散させるという報復行動にでているのではあるまいか？
難問かどうかさえわかりません。お母さんのようにやさしく教えてください。
BC＝1で、AB＝AC、∠A＝(540/7)度の二等辺三角形ABCがある。
辺BAをAの側に延長し、その上にAD＝1となる点Dをとる。
線分CDの長さはいくらか。
calc <- function(
t=540/7*pi/180,
BC=1,
AD=1){
f = function(r){
B=r+0i
C=r*cos(t)+r*1i*sin(t)
A=0i
abs(B-C)-BC}
r=uniroot(f, c(0,1e3))$root
C=r*cos(t)+r*1i*sin(t)
D=-AD+0i
abs(C-D)
}
calc <- function(
t=540/7*pi/180,
BC=1,
AD=1){
r=sin(pi/2-t/2)/sin(t)
C=r*cos(t)+r*1i*sin(t)
D=-AD+0i
abs(C-D)
}
calc()
うりゅうひろゆきの本スレにようこそ！
このウンコスレは基本的にさらしアゲて使用します！
ココは医師真似事務員ジイさんが、医師妬みの挙句、テメェで勝手に自称で医科歯科大を卒業した医師って設定で
妄想願望日記を発表するスレです
お医者さんのマトモなレスなど全く不要！
ゴミ箱まがいの公衆便所掃き溜め痰壷下品スレとして使用しましょうね
そんなわけで、いまだ懲りない恥さらし（自称）医科歯科事務員ジジイ登場〜〜
│ 彡川川川三三三ミ〜 プウゥ〜ン
｜ 川｜川／ ＼｜〜 ポワ〜ン ＿＿＿＿＿＿＿＿
｜ ‖｜‖ ◎---◎｜〜 ／
｜ 川川‖ 3 ヽ〜 ＜ 僕はうりゅうひろゆき
｜ 川川 ∴）д（∴）〜 ＼＿＿＿＿＿＿＿＿
｜ 川川 〜 /〜 カタカタカタ
｜ 川川‖ 〜 /‖ ＿＿＿＿＿
｜ 川川川川＿＿＿／‖ | |￣￣＼ ＼
｜ ／ ＼＿＿| | |￣￣|
｜ / ＼医科歯科 | | |＿＿|
｜ | ＼ |つ |＿_|＿＿／ ／
｜ / 医師うらやましいぜ・・ |￣￣￣￣| 〔￣￣〕
よし、医科歯科の医者と称して
私立のお医者様を攻撃だ！なんたって、医科歯科の看板借りてんだからな
え？証明？？？自称だから医科歯科の学生証、卒業証書あるわけねえよ
同期の医師あげてみろ、ったて、そもそも医師じゃねえし居ねえよバカ
でも病院でもらった、医科歯科の封筒はもってま〜す！これを証拠にしてやるぜ
専門医？欲しいけど・・いいや！そんなの必要ねえ！ 俺は事務員だし
哀れだね
高校数学板でもゴミ扱いでお呼びでないってさ
こういう依頼も来るしね。
>>
高校数学の範囲なのかわかりませんが
誰かに検算してほしいので問題投下します
期待値などをコンピュータで計算できる方
ご支援よろしくお願いします
<<
ヒストグラムを挙げたらこういうレスがかえってきた．
595 １３２人目の素数さん sage 2021/04/16(金) 09:20:20.25 ID:AXvw2N7N
サンクス
この棒グラフが欲しかった
理論値ともほぼ一致してるね
３D動画作成したら、それをみていて積分方向がわかったとかのレスもついたなぁ。
一部自分の自演を除けばボロクソに書かれるのが見えないのか？
日本語が分からないのか？救いようないな。
loan <- function(.D0,.ra,.n){
A0=.D0
r=.ra/12
N=.n
m=A0*r*(1+r)^N/( (1+r)^N- 1)
c(Monthly=floor(m),Total=floor(m)*N)
}
loan(23700000,0.03,60)
> loan(23700000,0.03,60)
Monthly Total
425857 25551420
便所の落書きでイキるしか人生でやることがないトケジ哀れだね
まぁ便所の落書きでさえゴミ扱いだけどw
結果が勝ち負け（確率1/2)のゲームをｎ人の総当りリーグ戦で行うとき、単独優勝者が出る確率をｎで表せ。
"
rm(list=ls())
sim <- function(n){
games=t(combn(n,2)) # combinations of match
nc=nrow(games) # number of combinations
winner=rbinom(nc,1,0.5)+1 # index of the winner 1 or 2
re=NULL # sequence of winners
for(i in 1:nc) re=c(re,games[i,winner[i]])
tbl=table(re)
sum(tbl==max(tbl))==1 # only one maximum?
}
f <- function(n,k=1e5) mean(replicate(k,sim(n)))
n=2:20
y=sapply(n,f)
plot(n,y,bty='l',pch=19,ylim=c(0,1),ylab='Prob')
>>990
まだそんなこと言ってるの？
臨床出たことないんだろうな。さすが医療事務。 ―自分じゃあ気づいてないようだから教えてやるよチェリー。死とは、おまえが二度と朝飯を食わねえことだ。小説の続きを読まねえことだ。似合ったはずの眼鏡を掛けねえことだし、まずい料理にねちっこく嫌味を言わねえことだし、家の前で「また明日ね」とは言ってくれねえことなんだ。
それだけだ。それだけのことだ。たったそれだけ、二度と自力で立てなくなりそうなくらい、心臓が紙みてーにクシャッと握りつぶされそうなくらい、ちっぽけなことなんだよ！チェリー！
口の中で錆の味がした。無意識に噛みしめすぎて唇を切ったのだと自覚しても、力を抜くことができなかった。
「ぼくが君に望むことはひとつだ。生きてくれ。どうか平穏に生きてくれ。ジョー★家の人間は数奇な運命を背負わされているが同時に強運も保証されている。
君の未来も、たとえ困難はあっても閉ざされてはいないはずだ。君は……君はここにすべてを置き去りにどうか幸福に、………………なんて、」
「――――なぁぁぁんて、言うとでも思ったのかい？」
抑えた声は灼熱を孕んでいた。耳朶にボと火がつき、焦げるような錯覚に囚われて、無数のムカデが這ったようにゾと背が震える。
思い詰めないでほしいと言ったはずの彼は、いま、誰よりも思い詰めた眼をしていた。忍耐の目盛りが限界まで振り切れたようにオタク特有の早口で捲し立てる。
「君は、たぶん、ぼくがこういうことを言う人間だと思っているよな！ 別れの間際に人徳をみせると！ ぼくのことは早く忘れて幸せになれとか、殊勝なことをサラリと言える人間だと思ってるだろ……！
仕方ないな、ぼくはずっと、君に立派な人間だと思われたくてずうううっとそう振る舞っていた。ええ格好がしたかった！ 誤解されてたとしても君のせいじゃあない、ぼくの責任だ。でも本当は違う！！」
骨ばった手がタロウの両腕を鷲掴みにした。崖にしがみつく者のように食い込む指の痛みが、肌をつたって心臓に届く。痛い。なんて痛いんだ。
飢えたケダモノのような雄叫びの後、チェリーは急に静かになった。
大変気まずい沈黙のあと、顔を上げてエメラルドの瞳を見つめる。彼のどこにこんな凄みがあったのかと思わせる獰猛な猛禽の笑みで、甘やかな声で、まるで布団を掛けるようにそっと呪いをかける。
「君が、ほかの誰かのものになるというなら、そんな世界はこの手で更地にしてやりたい」
呆然と立ち竦むタロウの前で、チェリーは、ウフンと脱力の声を漏らした。
両腕を掴んでいた力を突然緩める。力を込めるあまり前屈みになっていた背中を伸ばし、チェリーは英語の教材のようにいやにゆっくりと発音する。
「改めて言うよ、ぼくにこの激情を伝えられたうえで、君は生きてゆけ。平和に平穏に、かつ幸福に。誰かと心を通わせ肌を重ねて人を愛して愛されて、ごく普通に生きていくんだ。ぼくのこの感情を知ったうえで、だ。…………
ぼくを最低と思うか？ それでいい。なんでもいい。ぼくはもう君の隣には立てないのだから。誰かに憑りつくしか能のない、育ちは君と同じく良いのに下衆野郎なやつであるぼくは、こんなことしかできないからね」
こんなチェリーを、俺は知らないのに――こんな灼けつくような執着を、暴風雨のような独占欲を、知らない。おかしいだろう、自分の妄想が生み出したはずの国に知らないチェリーがいる。ならば彼は、夜の夢ではあるとしても、自分ひとりでつくりあげたマボロシはなく。
チェリーが一歩、前に踏み出す。房になった髪が鼻先にかかる。腕が上がり、タロウの鎖骨のあたりをゆるゆると撫でた。
「おかしな話に聞こえるだろうけど、強い、剛い、今まで出会った誰よりもつよい君のことをぼくは護りたかったよ。何故だろうね……出逢ったときからそう思っていた。そして今も思っている……」
鎖骨に添えられた手指が震える。襟元を掴み、引き寄せる。あまり力は籠もっていなかった。激情を口にしながらも、優しい彼はまだ迷っている。
だからタロウは、死を前にした罪人のように自ら首を垂れたのだ。
「今だって、ーーーーーーーーーーーーーー想っている、よ」
初めてのくちづけは冷たかった。冷たさの中の幽かな、やけにヌメっとした感触が、ただただ只管に生々しくてもの悲しかった。
557 卵の名無しさん[sage] 2021/03/25(木) 23:58:40.35 ID:o8v8c7Q/
トケジ、応召義務分かってなかった案件
当直医のスレ Part 28
597 ：卵の名無しさん[sage]：2021/03/23(火) 03:33:31.38 ID:+NL/TzKD
>>584
>患者受けるかなんて当直医の判断ひとつじゃん
応召義務違反で訴えられかねんぞ。
当直医に事前の連絡もなく「CPAはいります」とPHSで呼ばれる病院もあったぞ。
忙しかったが給与はよかった。
応召義務が分かってないことがバレてそのIDでは速攻雲隠れ
↓
http://hissi.org/read.php/hosp/20210323/Umt3cnE4Mmk.html
その後別IDで大発狂
しかし同日人物であることは火を見るより明らか
タイポを詰るも最後は私立医のフリをして応召義務の件を私立医に押し付けようとする
↓
日を改めて別人として能書きを垂れようとするもすでに遅きに失したので何を言っても一笑に付される。しかし全く懲りずに能書きとトンチンカンなプログラムを垂れ流す←今ココ 高校数学の質問スレ Part411
265 １３２人目の素数さん[sage] 2021/04/02(金) 06:49:43.46 ID:pGdfDivG
統計処理を開始する前にグラフ化しろと教わったな。
平均・分散・回帰直線が告示するデータとしてanscombeの例は有名
https://i.imgur.com/yeGIEZz.png
266 １３２人目の素数さん[sage] 2021/04/02(金) 07:16:45.82 ID:aCR3G7jx
>>265
告示→酷似
IDに注目。朝っぱらからトケジ、自演がバレるw 1000ならトケジことウリュウの爺さんはここの板出禁
10011001Over 1000Thread
このスレッドは１０００を超えました。
新しいスレッドを立ててください。
life time: 72日 19時間 15分 24秒
10021002Over 1000Thread
5ちゃんねるの運営はプレミアム会員の皆さまに支えられています。
運営にご協力お願いいたします。
───────────────────
《プレミアム会員の主な特典》
★ 5ちゃんねる専用ブラウザからの広告除去
★ 5ちゃんねるの過去ログを取得
★ 書き込み規制の緩和
───────────────────
会員登録には個人情報は一切必要ありません。
月300円から匿名でご購入いただけます。
▼ プレミアム会員登録はこちら ▼
https://premium.5ch.net/
▼ 浪人ログインはこちら ▼
https://login.5ch.net/login.php