底辺私立医大を卒業した医者って頭悪いよね？ Part28
レス数が1000を超えています。これ以上書き込みはできません。
タイトルまんまです
すなわち、タイトルの正しさを検証するスレです。
前スレ
https://egg.5ch.net/test/read.cgi/hosp/1666045702/
底辺私立医大を卒業した医者って頭悪いよね？ Part26
https://egg.5ch.net/test/read.cgi/hosp/1668999699/
親の期待に反して底辺シリツにしか進学できない子供をもつとこうなるそうです。
赤裸々な告白より引用
(quote)
恥ずかしながら実はうちの親がそうなんです
私立洗顔（ﾏﾏ）でした
本人は隠したがっていたけど祖父が公言してたからね
祖父は息子（うちの父親）の学力など知らずに進路指導で当たり前に自分の出身医大（国立）を希望させ
父親の担任に無理だと断言されこれが一生で最大の屈辱だったそうです
祖父が何十年もたってるのに死ぬまで祖母をその事で叱りつけてました
お前がしっかり勉強させないからこうなったっとね
底辺私立医大を卒業した医者って頭悪いよね？ Part27
https://egg.5ch.net/test/read.cgi/hosp/1673394195/
自分は教育に失敗したが祖父の口癖
これが私大医学部ＯＢの悲しい現実
これが現実です
(unquote)
一生で最大の屈辱
一生で最大の屈辱
一生で最大の屈辱
と表現されております。
VIPQ2_EXTDAT: checked:vvvvvv:1000:512:: EXT was configured 1000 卵の名無しさん (JP 0H69-eQBn [202.253.111.210]) sage 2023/04/18(火) 10:37:23.29 ID:II9wm10wH
平素より大変お世話になっております。
私こと尿瓶ジジイは、実は東京医科歯科卒などではありません。もちろん東大なんか受かったこたはなく、医者でもないただの医療事務です。医者の皆さんが羨ましくずっと書き込んでおりましたが、最近は誰にも相手にされないためこのスレは終了とさせて頂きます。今まで、嘘ばかり書いて申し訳ありませんでした。 現在も通用する、不朽の名投稿
(quote)
私は昭和の時代に大学受験したけど、昔は今よりも差別感が凄く、慶応以外の私立医は特殊民のための特殊学校というイメージで開業医のバカ息子以外は誰も受験しようとすらしなかった。
常識的に考えて、数千万という法外な金を払って、しかも同業者からも患者からもバカだの裏口だのと散々罵られるのをわかって好き好んで私立医に行く同級生は一人もいませんでした。
本人には面と向かっては言わないけれど、俺くらいの年代の人間は、おそらくは８－９割は私立卒を今でも「何偉そうなこと抜かしてるんだ、この裏口バカが」と心の底で軽蔑し、嘲笑しているよ。当の本人には面と向かっては絶対にそんなことは言わないけどね。
(unquote) 旧二期校の医科歯科が羨ましいとは
どこの底辺卒だよ！ >>4
どうした？いきなり
わけわからんこと言い出して
誰に対してのレス何だ？統合失調症？ 【群大医】これが「大学病院」の闇…
「第一外科vs.第二外科」18人もの患者が死亡した医療事故の裏で起きた医師たちの「権威闘争」
https://asahi.5ch.net/test/read.cgi/newsplus/1682119129/ おい尿瓶
そんなに高校生にバカにされるのが楽しいか > P
before after probability
[1,] 6 4 0.05003350
[2,] 6 5 0.04590127
[3,] 6 3 0.04464485
[4,] 5 4 0.04369556
[5,] 5 3 0.04160152
[6,] 1 2 0.04151776
[7,] 4 3 0.04045678
[8,] 3 2 0.03825106
[9,] 2 3 0.03780433
[10,] 1 3 0.03668751
[11,] 4 2 0.03663167
[12,] 2 1 0.03649207
[13,] 5 2 0.03531941
[14,] 3 4 0.03531941
[15,] 3 1 0.03490060
[16,] 4 5 0.03431427
[17,] 6 2 0.03370002
[18,] 5 6 0.03350458
[19,] 4 1 0.03146638
[20,] 2 4 0.03104758
[21,] 3 5 0.02987492
[22,] 5 1 0.02861849
[23,] 4 6 0.02825553
[24,] 6 1 0.02574268
[25,] 1 4 0.02532388
[26,] 3 6 0.02498883
[27,] 2 5 0.02426290
[28,] 2 6 0.01973978
[29,] 1 5 0.01700357
[30,] 1 6 0.01289926 n=6
s=20
chg=permuteGeneral(6,2)
pm=permuteGeneral(6,n,repetition=TRUE)
vpm=as.vector(pm)
f=\(i){
vpm[vpm==chg[i,1]]=chg[i,2] # change e.g.1 -> 2
mat=matrix(vpm,ncol=6) # matrix after change 1->2
rs=rowSums(mat) # sum of pips after change
mat[rs==s,] |> nrow() -> ns # number of rows where Rowsum=s
c(chg[i,],ns)
}
re=t(sapply(1:nrow(chg),f))
ans=re[rev(order(re[,3])),]
P=cbind(ans[,1:2],ans[,3]/sum(ans[,3]))
colnames(P)=c('before','after','probability')
P
p1=numeric()
for(j in 1:6) P[P[,1]==j,3] |> sum() -> p1[j]
which(p1==max(p1))
p2=numeric()
for(j in 1:6) P[P[,2]==j,3] |> sum() -> p2[j]
which(p2==max(p2)) サイコロXは、通常のサイコロの1面の数字SをS以外の1以上6以下の数字Tに置き換えたものである。
AさんがXを6回振ったところ、出た目の総和が20であった。
Bさんは振った回数と出た目の総和しか知らないものとし、SとTを当てる賭けをする。
（１）Sをいくつに賭けるときが最も有利か？
（２）Tをいくつに賭けるときが最も有利か？
（３）順列（S,T)をいくつに賭けるときが最も有利か？ # simulation
n=6
s=20
chg=permuteGeneral(6,2)
sim=\(){
i=sample(30,1)
S=chg[i,1]
T=chg[i,2]
d=c((1:6)[-S],(1:6)[T])
sample(d,6,replace=TRUE) |> sum() -> rs
c(i,rs)
}
k=1e7
y=t(replicate(k,sim()))
i=y[y[,2]==s,1]
tbl=table(i)
p=tbl/sum(tbl)
sort(p,decreasing = TRUE) |> names() |> as.numeric() -> idx
re=cbind(chg[idx,],sort(p,decreasing = TRUE))
rownames(re)=NULL
colnames(re)=c('before','after','probability')
re
plot(P[,3],ylab='P')
points(re[,3],pch='+') >>10
どこの国立を落ちたの？
に答えらないで発狂しているのが尿瓶チンパポンコツタコフェチである。
Q.E.D. >>15
卒業証書出せと言われて発狂してるのが実際はnurseの複数形も分からない脳内医者尿瓶ジジイである
Q.E.D. w "
０から９までの異なる数字を無作為に６個選んでサイコロの６面に書く。
このサイコロを６回振ったときにでた目の合計が30であった。
この情報からサイコロに書かれた6つの数字の和を当てる賭けをする。
いくつに賭けるのが最も有利か？
" s=30
cm=t(combn(0:9,6))
head(cm) ; tail(cm)
(scm <- rowSums(cm)) |> table()
sm=numeric(nrow(cm)) # sum(rs==s)
for(i in 1:nrow(cm)){
gr=expand.grid(cm[i,],cm[i,],cm[i,],cm[i,],cm[i,],cm[i,])
gr |> rowSums() -> rs
(rs==s) |> sum() -> sm[i]
}
re=cbind(rowSums(cm),sm)
re
ans=tapply(re[,2],re[,1],sum)
ans
names(ans)[which.max(ans)] |> as.numeric()
plot(names(ans),ans/sum(ans),xlab='sum',ylab='p',type='h',pch=16) 自分の巣だと見て見ぬふりする癖になんでここだと瞬間湯沸かし器なんだろうな尿瓶w
高校生の手前許せないのか？w
そんなことよりいつになったら証書出せるんだよ
脳内だから出せないだけだろw f=\(s,t,print=FALSE){
P=s*t*(C-B)+s*(1-t)*(A-B)
PA=abs(A-P)
PB=abs(B-P)
PC=abs(C-P)
z=PA*PB*PC+PA+PB+PC
if(print){
Plot(0,1,ann=TRUE,ylab='',xlab=round(z,3),axes=FALSE,zero=FALSE)
axis(1)
A=exp(1i*pi/3)
B=0i
C=1+0i
pta(A)
pta(B)
pta(C)
pta(P)
Polygon(A,B,C)
seg(P,A,col=2)
seg(P,B,col=2)
seg(P,C,col=2)
}
return(z)
}
par(mfrow=c(2,2))
replicate(4,f(runif(1),runif(1),print=TRUE))
layout(1)
s=t=seq(0,1,le=101)
z=outer(s,t,f)
range(z)
contour(s,t,z)
Persp(s,t,z,xlab='s',ylab='t')
optim(par=runif(2),fn=\(x) f(x[1],x[2]) )
f(0.5,0,TRUE)
f(2/3,1/2,TRUE) "
4,5,6の3つの目がすべて出るまでサイコロを投げ続けたとき、サイコロを投げる回数を当てる賭けをする。
いくつにかけるのが最も有利か？
"
n p
1 1 0.00000000
2 2 0.00000000
3 3 0.02777778
4 4 0.05555556
5 5 0.07484568
6 6 0.08487654
7 7 0.08746999
8 8 0.08491941
9 9 0.07921870
10 10 0.07186762
p
[1] 0 0 1/36 1/18 97/1296 55/648
[7] 4081/46656 1981/23328 2328/29387 60355/839808 
底辺とは言っても学費4000万前後のとこぐらいやと思うわ レスから頭の悪さが滲み出てるのにも関わらず自称高学歴を言い張り証拠を出せと言われると発狂する尿瓶は医学部どころか社会の底辺だからw >>26
で、どこの国立を落ちたの？
東大の合格通知の書式を知らなかったから東大合格でないのは確定してんだが。
シリツなのかよ？ >>27
んで、ご自慢の合格通知はいつあげるの？
どうせ脳内なんだろ？普段のレスからして大学受験の資格あるかどうかすら怪しいもんなw rm(list=ls())
library(MASS)
for (i in 1:10){
cat(rep('\t',i-1),paste0('for (n',i,' in 1:5){\n'))
}
f=\(x) 4%in%x & 5%in%x
n=0
for (n1 in 1:5){
for (n2 in 1:5){
for (n3 in 1:5){
for (n4 in 1:5){
for (n5 in 1:5){
for (n6 in 1:5){
for (n7 in 1:5){
for (n8 in 1:5){
for (n9 in 1:5){
for (n10 in 1:5){
x=c(n1,n2,n3,n4,n5,n6,n7,n8,n9,n10)
n=n+f(x)
}}}}}}}}}}
ans11<-(3*n/6^11) |> print()
fractions(ans11) >>28
で、どこのシリツ卒なんだ？
国立はどこを落ちたの？ > ans11<-(3*n/6^11) |> print()
[1] 0.06389954
> fractions(ans11)
[1] 1033/16166 re=NULL
for(a in 1:97){
for(b in (a+1):97){
for(c in (b+1):97){
if(a+b+c<=100) re=rbind(re,c(a,b,c))
}
}
}
head(re) ; tail(re)
f=\(x){
unique(x) |> sort() |> diff() |> rle() -> y
(y$length[y$value==1]>1) |> any()
}
sim=\() sample(37,7,replace=TRUE) |> f()
(replicate(1e4,sim()) |> mean() >>33
俺は二期校の受験だから、理Iと二期校の国立医学部を受験できた。
どちらも通ったので医科歯科を選択。同じように理Iを辞退して入学した同期が数人いた。
学卒も２～３割くらいいた。歯学部には東大数学科卒もいた。 >>35
nuresesじゃどこの大学も受けられないわなw 564 １３２人目の素数さん[sage] 2023/04/30(日) 12:56:46.26 ID:0fwaCOIg
>>560
それでも理Iも医科歯科も合格できるよ。
俺は二期校時代の受験なので理Iと二期校医学部を受験する学生は普通にいたよ。
んで、あんたはシリツ卒なの？どこの国立を落ちたのよ？
それでもww必死すぎて哀れ
もう名乗ったもん勝ちだね、まあ誰も相手にしてないけどw "
正n面体(n = 4,6,8,12,2)のサイコロをすべての面が1回以上でるまで振った回数を当てる賭けをするとき
最も当たる確率が高い回数をM(n)とする。
各々のnについてM(n)を求めよ。
"
CC=\(n,r){
S2=\(n,k){
i=0:k
sum((-1)^i*choose(k,i)*(k-i)^n/factorial(k)) |> round()
}
S2(r-1,n-1)*factorial(n)/n^r
}
ModeCC=\(n){
which.max(CC(n,1:n^2))
}
sapply(c(4,6,8,12,20),ModeCC) sim=\(n){
f=\(x){
for(i in 1:n){
flg = i %in% x
if(!flg) break
}
return(flg)
}
count=1
x=sample(n,1)
flg=f(x)
while(!flg){
count=count+1
x=c(x,sample(n,1))
flg=f(x)
}
count
} おい尿瓶ジジイ
脳内学歴の合格通知書はまだかって聞いてんだよ
英語どころか日本語も読めないのか？w >>40
んで、どこのシリツ卒なの？
東大の合格通知の書式を知らなかったから、受け取ったこともないだろう。
どこ国立を落ちたの？ どこの国立を落ちたの？と問われると発狂するのが尿瓶チンパポンコツフェチである。 久しぶりに来たけど尿瓶全く医学知識に触れてなくて草
オウムみたいに同じセリフ繰り返してるだけ
認知症かな？www >>42
アンタの脳内学歴なんてものは普通の人は存在しないからw
合格通知書や卒業証書には一切反応できず発狂するしかないのが尿瓶ジジイである 久しぶりに来たけど医師免許証も出せない脳内妄想医ってまだいたんだw すくなくとも2015年あたりからずっと発狂してるよw その頃に医学部入ってたら今頃卒業して本当に医者になれてるのにまだここに住み着いてるの草 自分が医者という妄想に囚われたプシコだと思うよ
ここまで来ると そんなに医者になりたいなら今からでも頑張ればいいのにな >>49
尿瓶ポンコツフェチに再受験したらと勧めてやったんだがなぁ。
旧二期校時代の医科歯科入学だけど同期の２～３割は学卒だった。
東大卒か京大卒。当時は阪大には学士入学制度があったから阪大卒はいなかったな。
歯学部には東大数学科卒もいた。 >>50
結局これなんだろうな
1000 卵の名無しさん (JP 0H69-eQBn [202.253.111.210]) sage 2023/04/18(火) 10:37:23.29 ID:II9wm10wH
平素より大変お世話になっております。
私こと尿瓶ジジイは、実は東京医科歯科卒などではありません。もちろん東大なんか受かったこたはなく、医者でもないただの医療事務です。医者の皆さんが羨ましくずっと書き込んでおりましたが、最近は誰にも相手にされないためこのスレは終了とさせて頂きます。今まで、嘘ばかり書いて申し訳ありませんでした。 625 １３２人目の素数さん[] 2023/05/04(木) 08:52:22.98 ID:PzgFcBMh
神のお告げによれば
(n-1)n(n+1)/6
626 １３２人目の素数さん[] 2023/05/04(木) 08:54:42.43 ID:PzgFcBMh
神のお告げはこれ
> lm(S ~ poly(n,degree=3,raw=TRUE)) |> coefficients() |> round(5)
(Intercept) poly(n, degree = 3, raw = TRUE)1
0.00000 -0.16667
poly(n, degree = 3, raw = TRUE)2 poly(n, degree = 3, raw = TRUE)3
0.00000
>609のデータを多項式回帰して係数を求めたら
1/6 * n^3 - 1/6*nが得られた。
尿瓶ジジイ統失丸出しw > lm(S ~ poly(n,degree=3,raw=TRUE)) |> coefficients() |> MASS::fractions()
(Intercept) poly(n, degree = 3, raw = TRUE)1
0 -1/6
poly(n, degree = 3, raw = TRUE)2 poly(n, degree = 3, raw = TRUE)3
0 1/6 >>53
シリツ卒なんだろ？ どこの国立落ちたの？ >>55
自称学歴を全く相手にされてない尿瓶はさっさと合格通知書出せよw >>56
卒業したシリツと、落ちた国立を答えるだけだぞ。
さっさと答えたら。タイプするだけじゃん。 >>57
さっさと合格通知書出すだけだぞ
出さなきゃずっと脳内って言われるだけ 卒業大学をタイプするだけなのに、なんでできないの？
母校に誇りはないのかよ。 尿瓶ポンコツチンパフェチに聞いているんだが。
126.198.139.59.in-addr.arpa name = KHP059139198126.ppp-bb.dion.ne.jp
225.68.128.106.in-addr.arpa name = KD106128068225.au-net.ne.jp # a/(a+b)=1/6
# 6a=a+b
# b= 5a
f =\(a) pbeta(1/5,a,5*a) - pbeta(1/7,a,5*a) - 0.95
curve(f(x),0,200) ; abline(h=0,col=8)
a=uniroot(f,c(50,200),tol = 1e-16)$root ; a
b=5*a ; b
curve(dbeta(x,a,b),0,0.5,ylab='',axes=F) ; axis(1)
pbeta(1/5,a,b) - pbeta(1/7,a,b)
n=10
curve(dbeta(x,a+n,b),add=TRUE,col=2)
pbeta(1/5,a+n,b) - pbeta(1/7,a+n,b)
n=1:50
P=pbeta(1/5,a+n,b) - pbeta(1/7,a+n,b)
plot(n,1-P,type='h',col='blue',lwd=3,ylab='P') 6の目がでる確率が1/7以上1/5以下であるとき規格内サイコロとする。
規格内サイコロである確率が5%で製作されたというサイコロを10回投げたら10回とも6であった。
このサイコロが規格内サイコロである確率を求めよ。 各面のでる確率が等しいサイコロがA、Bがあり
Aには１～６までの数字が書かれており、Bには数字が書かれていない。
Aを振ってでた目の数をnとする。Bのn個の面に６を記入する。
Bを10回振ったところ10回６がでた。
nの期待値を求めよ。
https://i.imgur.com/jTqsMOd.png >>60
国立卒の人は速攻で答えるけど、尿瓶チンパポンコツフェチは答えることができないことが判明。 結局、医学知識ゼロの尿瓶ジジイ
算数ゴッコ楽しいか？ #
f =\(a) pbeta(1/5,a,5*a) - pbeta(1/7,a,5*a) - 0.05
curve(f(x),0,1) ; abline(h=0,col=8)
a=uniroot(f,c(0,1),tol = 1e-16)$root ; a
b=5*a ; b
curve(dbeta(x,a,b),0,1,ylab='',axes=F,xlab='p') ; axis(1)
pbeta(1/5,a,b) - pbeta(1/7,a,b)
x=seq(1/7,1/5,le=30)
# segments(x,0,x,dbeta(x,a,b),col=2)
abline(v=c(1/7,1/5),lty=3)
n=10
curve(dbeta(x,a+n,b),add=TRUE,col=2)
options(scipen=5)
pbeta(1/5,a+n,b) - pbeta(1/7,a+n,b) 俺は二期校時代の医科歯科入学だけど。
国立卒の人は速攻で答えるけど、尿瓶チンパポンコツフェチは答えることができないことが判明。 >>71
お前は医療のこと聞かれても、何も答えられないだろ
医者にとって数学なんてどうでもいいんだよ
医科歯科とか言って医者のフリするな
マジで不愉快 尿瓶ジジイのこの程度の素養じゃ結局医科歯科も嘘みたいだけどw
724 卵の名無しさん (ﾜｯﾁｮｲ 3358-8TD4 [14.13.16.0])[sage] 2022/10/05(水) 13:30:27.35 ID:rczEbvNg0
I told my colleage nureses that I have such allergy to beauties that I feel itchy everywhere when I work with them.
Ahahahahahah
>colleage
>nureses
920 卵の名無しさん (JP 0H52-BsRZ [217.138.212.122 [上級国民]])[sage] 2023/03/24(金) 15:55:12.52 ID:sCq5Ou+HH
先々週のseptick shockの患者、懇意なナースに聞いたらもう食事が始まっていますよと教えてくれた。
夜遅くまで麻酔をかけたのが報われた感じで気分が( ・∀・)ｲｲ!!
報酬も良かったし
>septick shock >>73
業界ネタ（個人の経験から）
PDで胃壁壁切開での膵胃吻合の話とかもできるよ。
膵胃吻合のときはロストチューブにするのが楽。
今永法で再建するときは膵管チューブは経胃で誘導した方がチューブトラブルが少ない。 胆汁ドレナージを前スレで散々バカにされて下手なこと言えなくなった尿瓶ジジイw 145 卵の名無しさん[sage] 2021/12/29(水) 18:35:39.75 ID:mlY+9euZ
>>144
「いや、もう火遊びはやめたのよ」
「先生の家はHIでしょ？」
頭のいいナースと仕事できると楽しくて( ・∀・)ｲｲ!!
956 卵の名無しさん[sage] 2022/02/17(木) 11:37:49.80 ID:wuk6JbHF
>>954
元、消化器外科医だよ。
俺の世代は麻酔もアンギオも外科医の仕事だった。
救急では消化管出血の止血とか緊急胆汁ドレナージとかやってた。 >>77
そもそも、医者が業界ネタって表現しなくねえか？何か、コメディカルどころか医療かかわってない奴の表現だろそれ
つまり、医療事務だろお前 >>80
それが分からないから脳内医者なんですよ先生w
本人は絶対に認めたくないでしょうが >>80
医療事務にはPDできないよ。
あんたはPDやったことあんの？
非開胸食道抜去で損傷しやすい血管は何かとか即答できんだろ？ >>84
胆汁ドレナージもやったよ。
PDはPPPDで膵液は内瘻にしてロストチューブにしていた。
バイクリルが溶けて自然脱落を待てばいいのでチューブトラブルがなくていいね。膵液は胃酸で不活性化されるから縫合不全のリスクも小さいと教わったよ。 尿瓶ジジイは胆汁ドレナージって言い張り続けてるけどなw
どうやら商品名を医療行為と勘違いしたらしいw >>83
何で医者がみんなPDできると思うんだ？
お前にとっては内科は医者じゃないのか？
そんなんだから、本物の医者って認識されないんだぞ
後、内科的にはPDは腹膜透析だからな
そんなんも知らんのだろ？お前は
あと、非開胸食道抜去は食道癌の姑息的手術だろ。PDと何か関係あんのか？ >>91
カテやESDをやっている内科医は臨床医だと思うけどね。
PDは神経内科じゃパーキンソン病だな。
ではMSとは何でしょうか？３つ述べよ。 非開胸食道抜去で損傷しやすい血管が何かは
食道癌手術の経験があれば答えられる。
解剖を理解していれば内科医でも答えられる人もいるかもしれんが。 化学療法やっている医師だとPDは腹膜透析じゃないぞ。 >>88
胆汁ドレナージなんか言わねーよタコ
発狂しなくてもアンタが脳内医者ってことくらいわかるからw 尿瓶ジジイの発言、マジで全然わかってなくて草生えるわwww
医者じゃないから自分が変なこと言ってるの気づかないんだろうな 尿瓶荒らし呼ばわりで草
751 １３２人目の素数さん[] 2023/05/07(日) 10:58:06.95 ID:/iif9XNb
ここは荒らしが立てた偽スレなのでスレタイに意味はありません
https://rio2016.5ch.net/test/read.cgi/math/1680400564/ >>88
アストラップなんか言わないし間違っても胆汁ドレナージなんか言わねーよタコ
それが分からないから脳内医者なんだろ？ ABC2S=\(A,B,C){
a=abs(B-C)
b=abs(C-A)
c=abs(A-B)
s=(a+b+c)/2
sqrt(s*(s-a)*(s-b)*(s-c))
}
abc2s=\(A,B,C) abs(Im((A-C)*Conj(B-C)))/2
ABC2S(A,B,C)==0.5
abc2s(A,B,C)==0.5
> ABC2S(A,B,C)==0.5
[1] FALSE
> abc2s(A,B,C)==0.5
[1] TRUE >>99
あんたが経験不足なだけ。
オペナースはアストラップをアストと略していた。
辺野古基地と新潟でいと顔をしかめられる。 >>100
ヘロンの公式だと√計算するから誤差がでるので共役複素数を使って外積ベクトルの長さの半分で計算した方がいいことに気づいた。 医科歯科の先輩にPCIもESTも華麗にこなす内科医がいたなぁ。
心不全の治療とかは雑用のように思っていたな。 >>96
PDは神経内科じゃパーキンソン病だな。
ではMSとは何でしょうか？３つ述べよ。
この答が出せないとは臨床医ではなくて、薬屋の売り子だろうな。 >>102
これを解く過程での副産物。
Rスクリプトの道具箱を更新しておこう。
非負整数kに対し、座標平面上の点A[k]をA[k](k,k^5)により定める。
nを2以上の整数とする。折れ線A[0]A[1]A[2]...A[n]A[0]で囲まれる領域の面積S[n]をnで表せ。
6次回帰係数を求めると
> lm(y ~ poly(x,degree=m+1,raw=TRUE)) |> coefficients() |> MASS::fractions()
(Intercept)
0
poly(x, degree = m + 1, raw = TRUE)1
1/2
poly(x, degree = m + 1, raw = TRUE)2
31/12
poly(x, degree = m + 1, raw = TRUE)3
5
poly(x, degree = m + 1, raw = TRUE)4
55/12
poly(x, degree = m + 1, raw = TRUE)5
2
poly(x, degree = m + 1, raw = TRUE)6
1/3
S[n] = n/2 + (31/12)n^2 + 5n^3 + (55/12)n^4 + 2n^5 + (1/3) n^6 が得られた。 今夜は救急当番勤務の日
突然の左肩甲骨の痛みで収容依頼で起こされた。大動脈解離が疑わしいので基幹病院搬送をと指示した。
左肩の痛みで整形外科受診してMRIの予約をとって帰った患者がCPAで救急搬送されたというケースが即、頭に浮かんだぜい。 ABC2S <- function(A,B,C) abs(Im((A-C)*Conj(B-C)))/2
abc2s <- function(A,B,C){
a=abs(B-C)
b=abs(C-A)
c=abs(A-B)
s=(a+b+c)/2
sqrt(s*(s-a)*(s-b)*(s-c))
}
A=1+3i
B=2+5i
C=5+6i
Polygon(A,B,C)
ABC2S(A,B,C)==2.5
abc2s(A,B,C)==2.5
> ABC2S(A,B,C)==2.5
[1] TRUE
> abc2s(A,B,C)==2.5
[1] FALSE
sqrtを使うと丸め誤差がでるな。 行列式を使って表現できることにも気づいた。
ABCS=\(A,B,C){
rbind(c(Re(A-C),Im(A-C)),c(Re(B-C),Im(B-C))) |> det()/2 |> abs()
}
> A=runif(1)+1i*runif(1)
> B=runif(1)+1i*runif(1)
> C=runif(1)+1i*runif(1)
> Plot(0,1) ; Polygon(A,B,C)
> ABC2S(A,B,C)
[1] 0.0338069
> abc2s(A,B,C)
[1] 0.0338069
> ABCS(A,B,C)
[1] 0.0338069 >>101
血ガスじゃないと研修医まで通じないだろアホ
なんなら一番やってもらうじゃねーか
>>104
MSは多発性硬化症、僧帽弁狭窄症、医薬品卸販売担当者、医療秘書そんくらいか
いいからさっさとご自慢の合格通知書()だせよ脳内医者
脳内医者やりたいだけのアホってことくらいしか分からないぞ今の所
別にそれでいいならその調子でずっと発狂して高校生にもバカにされてろやw とにかく胆汁ドレナージはマジで傑作だわw
もうこれだけで脳内医者丸出しだから医師板で誰も相手にされないわけで
悔しかったら消化器内科のスレか何かで喚いてこいよ
スルーされるかもっとバカにしてくれるぞw >>103
PCIもESTも華麗にこなす内科医
そんなわけないだろwwwそいつ何科だよ
やっぱこいつ頭悪いな >>106
急性大動脈解離が疑わしいって何だ？
CT撮ったらほぼ100％診断つくよね？
疑わしいだけで転院搬送させるの？診断つけないで送られて来たら糞迷惑だわwww
まあ、妄想だろうが おい尿瓶ジジイ
高校生にバカにされてないでこっちでもなんとか言ったらどうだ
もうお爺さんなのに学歴厨www
https://rio2016.5ch.net/test/read.cgi/math/1680400564/ 尿瓶ジジイく～ん
医者板ではぐうの音も出ないからダンマリで
数学板ではわけもわからん発言でも突っ込まれないから書き込みしてるのかい？
マジで情けねぇなwww 数学板には書き込んでるから
ここだと、医者に間違い指摘されるの嫌で書き込んでないだけでしょ うちは夜間休日は放射線技師は呼び出しだからな。
実際、当直帯で大動脈解離で突然死したケースがあったし。
整形外科のカルテにMS(-)と書いてあったなぁ。
Rを使うとこういうのもできる、
https://i.imgur.com/S3yRUoC.gif
R言語を学んだのに統計処理だけに使うのはもったいないな。 業界ネタ（個人の経験から）
こういうのはやったことがないと議論できないね。
薬屋の売り子には無理。
PDで胃壁壁切開での膵胃吻合の話とかもできるよ。
膵胃吻合のときはロストチューブにするのが楽。
今永法で再建するときは膵管チューブは経胃で誘導した方がチューブトラブルが少ない。 非開胸食道抜去はESD登場前は症例によっては根治術になったと思う。
再建は大弯胃管を使って後縦隔経路にした方がいい。
胸骨後でやると後出血が多い。
そういえば、左開胸胃全摘 という津軽海峡冬景色の替え歌があったな。 >>109
アストラップと言われて何のことがわかるのが臨床医。
関西で「めばちこ」といわれて何のことか最初はわからなかった。
数学板で「てれこに並べて」と言われたときも意味を解説してもらった。
NHKのアナウンサーの試験には方言に対応できるかがあると聞いたなぁ。 PCIもESTも華麗にこなす内科医は俺ではなくて、医科歯科の先輩
手先の起用な人っているよね。 >>109
滑り止めに受けた理Iの入学手続日通知書なんて、自慢するようなものじゃないだろ。
他界した父親がコピーをファイリングしてくれていたのでコピーはあるけど、
どうせ他人からの借用だと言うに決まっているからね。
所得3K万越えで市民税通知の画像をアップロードしたときも他人のものだろと言われたな。 >>121
PCIは循環器内科の手技、ESTは消化器内科の手技。しかも、なぜEST限定？普通、ERCPって言うとこなんじゃないのそこは
EVTと勘違いしてるのかと思ったが2回間違ってるから言い間違いじゃないよな
つまり、お前は何もわかってない医療事務の素人で決定だよ。医者フリをするな不愉快 >>117
そもそも、大動脈解離疑うならとっとと放射線技師を呼び出せよ。じゃなきゃ救急受けるな
何も検査せず、いきなり送るとか通常はありえねぇんだよ
この発言の時点で素人丸出しだわ
お前は絶対に医者じゃない断言できる
そのくせ、内科は薬の売り子扱いか？医療事務の癖になめたこと言ってんじゃねえぞ >>120
研修医にも通じないと救急なんかやってられないだろマヌケ
そんなことも分からないのか？
>>122
その割には聞かれてもないのに自称学歴喚き散らしてるけどなw
何かと理由をつけてダンマリ決め込んでるのはアンタが脳内だからだろ その薬の売り子とやらにバカにでもされたのか？元医療事務ジジイさんよw おい尿瓶
高校生相手に吠えてないでさっさと質問に答えろよ 数学板みたら、尿瓶ジジイマジで素人相手にイキっててワロタ
やっぱ発言が完全に素人のそれだな
ここだと、突っ込まれるから発言してないし
よっぽど悔しかったんだろなw 高校数学の質問スレ Part427
https://rio2016.5ch.net/test/read.cgi/math/1680400564/892
892 名前：１３２人目の素数さん[sage] 投稿日：2023/05/12(金) 21:13:36.98 ID:dDmAG4ne
3辺の長さが5,7,8の三角形Tがxyz空間の平面z=0上に置かれている。
Tを1つの直線に沿って折り、Tの1つの頂点がz>0の領域にくるようにする。その頂点をPとする。
Tを折ったあとの図形で、平面z=0上に残っている部分をDとする。D上を自由に動く点Qに対し、線分PQが動きうる領域の体積が最大となるような、Tの折り方を述べよ。
これもRを使って数値解を算出。 尿瓶ジジイ朝から、数学板でずっと
内視鏡がどうたらPDがどうたら発狂してんなw
完全にスレチでみんなに無視されてるし 901 １３２人目の素数さん[sage] 2023/05/13(土) 07:53:25.94 ID:Qjv2drUq
>>895
プログラムに計算させて数学やってますって顔してんだから大笑い
電卓の計算結果を見せてどや顔してるバカって感じ
嘘かほんとか知らんが、東大合格歴と医師であることを執拗にひけらかすのは承認欲求の塊にしか見えん
なにか大きなコンプレックスを抱えてのことなんだろう（職場でも私生活でも誰からも相手にされないとかね）
いくら絡んでも出題厨からも無視されてるのも失笑ものだし
いろんな意味で頭が悪い人 当然ながら数学スレでも総すかんを食らっておりますw ナースジョブから紹介の看護師。
紹介料を支払った翌日に、退職届を持ってきた。
紹介会社とぐるなのだろうかと疑ってしまうようなタイミング。 尿瓶ジジイたまに医療ネタ書き込みだしたと思ったら矛盾だらけで
他の板で負け惜しみを言い続けるwww
自分で医者じゃありませんって言ってるようなもんじゃん
マジで雑魚過ぎてつまらんわ 165 卵の名無しさん[sage] 2023/05/14(日) 14:01:18.73 ID:hkdMcYob
救急搬送を2件受け入れて、インセンティブ2諭吉ゲット。
1件は4つの病院で断らたコロナ患者（中等症の１に該当）。
うちも対応できる個室がなくなってしまった。
166 卵の名無しさん[sage] 2023/05/14(日) 15:24:34.07 ID:Bk3KVq/N
尿瓶どの面下げてこっちに書き込んでんだ？
168 卵の名無しさん[sage] 2023/05/15(月) 10:48:54.76 ID:hVLV2Sfk
>>166
東大非合格者が発狂してる
自分が尿瓶だってよく分かってるじゃねーかw >>136
別に矛盾はないぞ。
タイプミスならあるけど。
アストラップと言われてすぐわかるのが経験豊かな臨床医。
今では めばちこ も何かわかる。 >>138
103 卵の名無しさん (ﾜｯﾁｮｲ 77c7-ln0s [124.47.76.122 [上級国民]]) sage 2023/05/08(月) 02:54:49.24 ID:X7W/s4Lv0
医科歯科の先輩にPCIもESTも華麗にこなす内科医がいたなぁ。
↑
これは矛盾では？ >>131
こういうのが作れない椰子だろうな。
https://i.imgur.com/S3yRUoC.gif
公式を使うのもプログラムを使うのも同じ。
カテや内視鏡をやっている内科医は違うが
薬屋の売り子をやっているようなのはAIに仕事を奪われるだろうな。 他のスレで胆汁ドレナージとか言っても笑われるだけだろうなw >>142
医者にえらくコンプレックスある発言だな
本当に外科医ならそんな発言しないけどな
その他諸々の医学知識の無さでもわかるけど
お前は医者じゃないよ
んで、悔しくて朝から掲示板に書き込みか？
哀れだな 27 １３２人目の素数さん[sage] 2023/05/19(金) 18:21:36.10 ID:Yzoct9DO
>>11
経験ない医師にはこういう議論にはレスできないんだね。
業界ネタ（個人の経験から）
こういうのはやったことがないと議論できないね。
薬屋の売り子には無理。
PDで胃壁壁切開での膵胃吻合の話とかもできるよ。
膵胃吻合のときはロストチューブにするのが楽。
今永法で再建するときは膵管チューブは経胃で誘導した方がチューブトラブルが少ない。
尿瓶ジジイ絶賛負け惜しみ中ww re=NULL
for (m in 1:1000){
for(n in 1:m){
re=rbind(re,c(m,n,abs(1/7-n/m)))
}
}
re >>144
なんだ薬屋の売り子しかできねぇのかよ？ >>143
普通に使うぞ。
アストラップとか めばちこ とか。
空嘔（からえずき）は標準語ではないが便利なので俺は使う。
wretchingだとわからん椰子の方が多い。 >>144
ウロとプシコが指定選択科目の年に医師免許取得したよ。
どちらも疾患が少ない科目のだから楽勝だった。 >>144
胃壁前壁切開での膵胃吻合は目からウロコだったよ。
吻合の安心感が全然違うので他の外科医にも勧めていた。 >>151
んで、結局PCIとESTできる内科医ってのはどこに存在するんだ？そんな奴いないことは医療関係者なら普通わかるけどなw "
m,nはそれぞれ1以上1000000以下の整数とする。
|π-(n/m)|を最も小さくする互いに素な(m,n)を求めよ。
"
rm(list=ls())
options(digits=12)
f = \(x,N=1000000){
if(x>1){
d=1
for(n in 1:N){
q=n%/%x
for(m in (q-1):(q+1)){
tmp=abs(x-n/m)
if(tmp<d){
d=tmp
re=c(m,n,d)
}
}
}
}else{
d=1
for(m in 1:N){
p=floor(x*m)
for(n in (p-1):(p+1)){
tmp=abs(x-n/m)
if(tmp<d){
d=tmp
re=c(m,n,d)
}
}
}
}
cat(re[2],'/',re[1],'\n')
return(re[2]/re[1])
}
f(pi) 膀胱鏡の使える一般外科医を俺は2人知っている。
俺はオペの助手をやった。 >>154
結局ここでしか発狂できないのはアンタが脳内ブラックジャックだからだろw 高校数学スレより
867 １３２人目の素数さん[sage] 2023/05/11(木) 21:19:14.44 ID:u0G5iV/b
可哀想だから尿瓶ジジイの自称学歴信じてる人は庇ってあげて
特に東大卒の方とかw
おい尿瓶ジジイ
アンタを庇う奴なんざ誰もいないってよw
だからせめて合格通知書くらい出してもらえないと相手にされないわけだ
今のところ計算機叩いて喜んでるチンパンジーだぞ "
pは10万未満の素数、m,nは10万未満の互いに素な自然数であるとき
|√(p) - (n/m)|が最小となるp,m,nを求めよ
"
> n=p[which.min(y)] ; n
[1] 3
> f(sqrt(n))
70226 / 40545
[1] 1.73205080774 >>158
俺の頃は合格通知は入学手続きに必要な健康診断受診票も兼ねていたな。
今はどうなの？
ひょとしてあんたシリツ卒なの？ >>160
日本語も不自由じゃ大学進学なんて無理だろうねw >>160
英語も不自由日本語も不自由
そんなんでどうやって日本の大学入るんだよタコ >>154
お前は見聞が広すぎてありえないものまで見えてんのか？www
どう考えても知識ないのに妄想ひけらかしただけだろ
医療関係者にそんな発言したら100％笑われるわ。本当はPCIとかESTとか、よくわかってないんだろ？知らんくせに適当な発言すんなド素人が！ >>154
言っとくが、それ消化器外科が冠動脈バイパス術やるようなもんだからな
これがどんだけイかれてることか理解出来てない時点でお前は医療従事者じゃないよ
もういくら言い訳しても無駄だよ尿瓶ジジイさんwww 某スレじゃ高校生にも脳内医者ってバカにされてるからな >>164
門脈再建とかするけどね。
シャント造設も一般外科の仕事だったよ。 >>164
あんたは薬屋の売り子しかできんのじゃないの？
こういうのは体験してはじめで実感できる。
胃壁前壁切開での膵胃吻合は目からウロコだったよ。
吻合の安心感が全然違うので他の外科医にも勧めていた。 >>164
俺の同僚は大伏在静脈グラフト採取もやっていたよ。
まあ、冠動脈との吻合は心外がやていたけどな。 >>166-168
俺が言いたいのはお前が知識も無いのに嘘ついて適当な発言してることだよ
PCIとかERCPとかは患者の命かかってる手技だから専門にしてるやつしかやるわけないの
消化器外科が急性大動脈解離の弓部置換とかやんねぇだろそれと同じ
それにお前の言ってる手技は指導医付きなら別に研修医にやらしてもいい手技ばっかじゃねえか。何でそんなドヤ顔で発言してんだよ
医者でも無いからわからんのだろうがwww >>167
後、お前が医者じゃない根拠な
お前の発言は全部人伝に聞いたり、ネットで調べたりすればわかる内容
実際の臨床現場で体験したようなリアルさが皆無。だからちょくちょく実際の現場と食い違った発言をする
図星だろ？ おい尿瓶ジジイ、本気で医者のフリできてると思ってんのか？
医師板じゃまるで相手にされてないのに
数学板ですらもう看破されてるもんな
発言がアホすぎて >>166-168
もしくはあれか
EVT（末梢血管治療EndoVascularTreatment）と
EST（内視鏡的乳頭括約筋切開術Endoscopic sphincterotomy）
を勘違いしてたかな
すぐスペル間違いで通しとけば言い訳出来たが、略語だけで内容を全く理解してないから反論出来なかったんだろ？いずれにせよ本当に医者ならありえないことだわwww 脳内ブラックジャックだから科関係なく知ってる外科手技なら何でもできちゃうんだよw >>153
まぁそうだろなと思ったらやっぱりのクソコードw
こんなもん恥ずかしげもなくよくまぁ公開できるもんやなww 袋の中に100個玉が入っていて、そのうち何個かがアタリである。
100個の中から無作為に10個を取り出してアタリの個数を記録する。
記録したら10個の玉を戻して、再び無作為に100個の玉から10個取り出してアタリの個数を記録する。
これを20回繰り返ししたところ
以下の通りであった。
アタリの個数 1 2 3 4 5 6
その 頻 度 2 6 7 3 1 1
100個の中に含まれるアタリの個数として最も可能性が高いのは何個か？ 尿瓶ジジイマジでダンマリだなwww
ぐうの音も出ないみたい 全部書き込んで来ないと思ったらこんなとこに逃げ込んでやがった
↓
当直医のスレ Part 32
https://egg.5ch.net/test/read.cgi/hosp/1672029865/
もう、医者じゃねえのバレてんだから今まで嘘ついてたこと謝るか
もう、書き込まないかどっちか選べや尿瓶ジジイ >>180
ウハwwwヤバっ！尿瓶ジジイ終わってるな
とにかく自分より下を見つけないと駄目な性格なんだろな お～い、尿瓶ジジイ
自分の立てたスレは放置で、言い負かされないと思って小学生のスレで脳内妄想全開で学歴ハラスメントか？
もう、4日ぐらい書き込みしてないけど
匿名掲示板でしかイキれないもんなw
本当に恥ずかしい奴だな、お前 m3からバズっているスレが配信されるのだが、トップがこれだった。
女学生「それ(私大出身)なら結構です。」
シリツネタはいつも盛り上がる。 >>183
まあ作り話でしょうって言われまくってるだけじゃんw
要するに脳内医者を笑われてるだけ >>183
https://sp.m3.com/community/threads/449252
よく読んでみろよ
阪大の学生がキチガイって結論じゃねーか
お前もここで書き込んでるみたいに投稿してみればどうだ？ボコボコにされて終わるぞw >>185
シリツネタはいつも盛り上がる。
あんたも興味をそそられてアクセスしただろ。
シリツ医=裏口容疑者だから。 現在も通用する、不朽の名投稿
(quote)
私は昭和の時代に大学受験したけど、昔は今よりも差別感が凄く、慶応以外の私立医は特殊民のための特殊学校というイメージで開業医のバカ息子以外は誰も受験しようとすらしなかった。
常識的に考えて、数千万という法外な金を払って、しかも同業者からも患者からもバカだの裏口だのと散々罵られるのをわかって好き好んで私立医に行く同級生は一人もいませんでした。
本人には面と向かっては言わないけれど、俺くらいの年代の人間は、おそらくは８－９割は私立卒を今でも「何偉そうなこと抜かしてるんだ、この裏口バカが」と心の底で軽蔑し、嘲笑しているよ。当の本人には面と向かっては絶対にそんなことは言わないけどね。
(unquote) >>188
結局、医学的には何も反論できず
馬鹿の一つ覚えみたいに「シリツ」か？
お前の唯一出来ることは妄想学歴で下を見下すことだけだもんなwwwそれだけが生き甲斐なんだろ？
まさに無能の極み 何を話してるかどういう意見があるか分からないようじゃスレなんか見る意味ないだろ
日本語も不自由なのか尿瓶は 234 １３２人目の素数さん[sage] 2023/05/27(土) 15:41:12.70 ID:13I8HcOM
>>226
同じことばかり繰り返してるｗ
認知症患者なのに、よく医者が務まるな。
あんたがほんとに医者だったら患者がたくさん死んでるだろうね。くわばらくわばら。
尿瓶ジジイ高校生に認知症扱いされてて草 g=\() (runif(1)+runif(1)+runif(1)+runif(1)+runif(1)+runif(1)+
runif(1)+runif(1)+runif(1)+runif(1)+runif(1)+runif(1)) - 6
x=replicate(1e6,g())
mean(x)
var(x)
hist(x,col=2,breaks=100)
ks.test(x,'pnorm',mean(x),sd(x)) fn=\(n,var=1/12,mean=1/2,fun=runif) sqrt(1/(n*var))*(sum(fun(n)) - n*mean)
y=replicate(5e3,fn(120))
hist(y)
shapiro.test(y)
qqnorm(y)
ks.test(y,'pnorm',0,1)
fn=\(n,var,mean,fun) sqrt(1/(n*var))*(sum(fun(n)) - n*mean)
x=replicate(5e3,fn(1e3,var=1/12,mean=1/2,fun=runif))
hist(x)
shapiro.test(x)
qqnorm(x)
ks.test(y,'pnorm',0,1)
x=replicate(5e3,fn(1e3,var=1/8,mean=1/2,fun=\(m) rbeta(m,0.5,0.5)))
hist(x)
shapiro.test(x)
qqnorm(x)
ks.test(y,'pnorm',0,1)
x=replicate(5e3,fn(1e3,var=1,mean=1,fun=rexp))
hist(x)
shapiro.test(x)
qqnorm(x)
ks.test(y,'pnorm',0,1) お～い尿瓶ジジイさん
自分の立てたスレは放置ですか？
何も言えなくて悔しくて家で泣いてるのかな？w 東大合格通知の書式は俺の脳内に記憶されているよ。
公印すら押されていないいない。
尿瓶チンパポンコツフェチは受け取ったことのないのは確定。
シリツ卒なんだろうなぁ。
母校に誇りが持てないシリツってどこだろう？ >>199
お前の東大合格通知書は脳内で作り出した妄想で公印すら押されてないってことだな
語るに落ちたな
というか、急に自白してどうしたの？www
医者のフリするの疲れちゃった？ "
xy平面上の領域Dは
D:x^2+y^2≦4 かつ (x^2/4)+y^2≧1 かつ x≧0 かつ y≧0
を満たす。
Dに含まれる最大の円の半径を求めよ。"
fn=\(u,v,a=2,b=1){
f=\(p){
q=b*sqrt(1-p^2/a^2)
a^2*q*u-b^2*p*v - (a^2-b^2)*p*q
}
p=uniroot(f,c(0,a))$root
q=b*sqrt(1-p^2/a^2)
r=sqrt((u-p)^2+(v-q)^2)
c(p,q,r)
}
g=\(u,v){
if(u^2+v^2>4 | u^2/4+v^2<1) return(0)
r1=u
r2=fn(u,v,a=2,b=1)[3]
r3=fn(u,v,a=2,b=2)[3]
r=c(r1,r2,r3)
r
}
optim(runif(2,0,2),\(x) min(g(x[1],x[2])),control = list(fnscale=-1)) >>202
尿瓶ジジイさん、高校数学板ではあんなにイキってるのにここだと大人しいのは何故？
ここだと格上しかいなくて嫌だから？ >>200
公印は押されていないよ。
入学手続きに必要な健康診断受診票を兼ねていて
受診したらゴム印が押される。
尿瓶チンパポンコツフェチが答えられない質問
（１）東大合格通知を受け取ったことないの？
（２）シリツ卒なんだろ？
（３）母校に誇りはないの？ >>206
脳内学歴だから合格通知書を受け取ったことも誇りもクソもないだろ尿瓶は 医科歯科の合格通知は公印が押されていて
他の連絡事項の記載はなし。
東大合格通知ってハガキ大で公印もなくて簡素だったよ。
健康診断受診票を兼ねていた。 尿瓶チンパポンコツフェチが逃げまくりの質問
（１）東大合格通知を受け取ったことないの？
（２）シリツ卒なんだろ？
（３）母校に誇りはないの？ >>208
第２外国語は何かとか確認の記載もあったな。
今も東大合格通知が同じ書式かどうかは知らんけど。
７０年代はそうだった。 最近の医師用掲示板m3より
特集 : データで見る医学部の生態Vol. 24
「東大・京大医学部には一目」医科歯科大卒業生の傾向
続けて、受験時の志望順位と併願校を見てみましょう。
卒業生に聞いた東京医科歯科大学の志望順位は平均で1.35位。併願校として多く挙がったのは、慶應義塾大学(43.8%)、東京大学（20.0%）等となっています。 尿瓶はいつになったら証拠出せるんだ？
どうせ脳内なんだろ、高校生にもバカバレてるぞ
無論医者板じゃ相手にされるからここでしか発狂できないww 今月から市の胃がん検診が始まった。
細径内視鏡での検査希望が増えて来たので1200Nを1本増やしてもらえた。経鼻は前処置に時間がかかるのと鼻出血の合併症合併症ありうるので原則経口。
洗浄での待ち時間が短縮できて( ・∀・)ｲｲ!! >>212
尿瓶チンパポンコツフェチが逃げまくりの質問
（１）東大合格通知を受け取ったことないの？
（２）シリツ卒なんだろ？
（３）母校に誇りはないの？ 東大通知には公印なしを知らないのは東大合格者ではないわな！
入学手続での健康診断と医師面接をうけたゴム印は押されるけど。
尿瓶チンパポンコツフェチが逃げまくりの質問
（１）東大合格通知を受け取ったことないの？
（２）シリツ卒なんだろ？
（３）母校に誇りはないの？ >>213
以前はN1200って言ってたのに急に1200Nって言い直したなwwwその時は間違い認めなかった癖に
恥ずかしい奴だな
↓
843卵の名無しさん (ﾜｯﾁｮｲ 2b58-QWSH [14.13.16.0])2022/10/10(月) 11:50:10.17ID:B2/o7LfA0>>848
>>842
尿瓶とは尿瓶おまる洗浄係のオマエの商売道具だろ。
俺はマックグラスとかN1200が商売道具。
んで、あんたどこ卒？ >>214
尿瓶ジジイは脳内だから東大合格通知を受け取ったことはないし母校もクソもないだろタコw 非開胸食道抜去のアプローチは仰臥位で食道裂孔からアプローチ。静脈ストリッパーを使って翻転して抜去。
反転せずに引き抜く強者の術者もいた。
鏡視下手術が普及する前の昔話。 >>219
マジでアホだなwww
んで、あんたどこ卒？ってのはお前の昔のレスだよ。自分の質問に自分で必死に返してるアホ発見
しかも虚言www >>216
単なるtypoじゃん。
備忘録を忘備録は意味が変わるから恥ずかしいけどな。
備忘：忘却に備える
忘備：備えを忘れる
と意味が変わる。 >>221
翻転抜去すると腫瘍を縦隔内に露出させて擦ることになるから、播種の原因になるのではと危惧しての話だろうな。
俺が執刀した例は早期癌でいずれも5年生存した。まあ、いまならESDの適用となるケース。
非開胸食道抜去を教わる前は開胸して切除していた。体位変換が1回で済む胸骨後で再建先行術式にすることが多かったな。
Great Surgeon, Great Incisionが是とされた時代の話。
当時は胃がんのD4郭清とかもやっていた。術後jに髄膜播種した症例を経験してカンファでD4郭清が播種ルートをつくった可能性があると指摘されたのを覚えている。 今でも、東大通知には公印なし なのか？
東大卒業生がこのスレにいなかったっけ？ >>223
じゃあ胆汁ドレナージはtypoじゃないんだね
脳内医者さんw 380 １３２人目の素数さん[sage] 2023/06/05(月) 08:45:54.80 ID:SQYoGnfj
専門医資格がないと認めたのは、医師という設定を
もっともらしく見せるためのテクニックか？ｗ
まあ、肝心の数学的能力でのポンコツぶりをみればどっちみち
こいつがポンコツなのは自明なんだが。
数学板の高校生にも相手にされてなくて草 >>223
↓
850卵の名無しさん (ﾜｯﾁｮｲ bac9-eoYI [59.139.198.126])2022/10/10(月) 13:43:32.38ID:hItGoz5b0>>858
N1200って何ですか？？w
858卵の名無しさん (ﾜｯﾁｮｲ 2b58-QWSH [14.13.16.0])2022/10/11(火) 06:58:48.90ID:5u0EIbP40
>>850
内視鏡医の業界用語
って去年のあなたは言ってますけどwww
何がtypoだよ！嘘つくんじゃねぇよ
お前さ自分が不利になると、すぐ嘘つくよな
自分の間違いさえ認められないクズの上に
頭も悪い
マジで救えないなお前 >>231
ビビってここには書き込めないから、そんな過疎スレでコソコソ書いてんのかよ
哀れだな うちの病院にいるポンコツ爺医、ＣＰＫ300で悪性症候群だってさすが裏口の迷門医大卒業だけあるわ 尿瓶ジジイって昭和の話しかできないみたいだね
今平成どころか令和だし今の話ができないのかな
ましてや医療なんか日々更新されてくというのに
まあ脳内医者だから仕方ないかw
ボケ老人も昔のことはよく覚えてるとかいうけどお迎え近いのかな？ それとも医療事務クビになって30年以上引きこもりで発狂しつづけてるのかな？w 東大通知には公印なしを知らないのは東大合格者ではないわな！
入学手続での健康診断と医師面接をうけたゴム印は押されるけど。
尿瓶チンパポンコツフェチが逃げまくりの質問
（１）東大合格通知を受け取ったことないの？
（２）シリツ卒なんだろ？
（３）母校に誇りはないの？ >>226
普通に使うぞ。
小児外科医にが使ってたというレスもあったぞ。 >>233
マラソン後でもそれくらいはいくだろうな。 >>238
>>240
どこにあるんだよ
しかもレスだってwソースは5chとかそれでも脳内医者かよw
やっぱりここでしか発狂できない哀れな脳内医者みたいだね >>237
ここは東大医学部卒しかいないからアンタが一番低学歴だぞ
もちろんアンタは脳内だろうけどw 尿瓶ジジイ、最近は誰も書き込まないであろう早朝しか発狂できない模様w 尿瓶ジジイは医者どころか高校生にも相手にされていない様子w >>239
悪性症候群は別にCK上昇だけが診断基準じゃないぞ。基本症状ありきで、CKが1000を切る悪性症候群は普通にいる
そんなことは普通に医療をやってればわかることなのに、そのことを指摘しないで同意してるところみると、やっぱただの非医者なんだろうなwww
というか、最近やたらと書き込み少ないけど、どうしたの？ビビって書き込めないの？www 以下の条件(a)(b)を同時に満たす正整数nを小さい順に並べるとき2023番めにくる数字を求めよ。
(a)nを10進法表記したときの下3桁は998である。
(b)nは33で割り切れる。
g=\(x){
n=1000*x+998
n%%33==0
}
re=NULL
j=1
while(j<1e6){
j=j+1
if(g(j)) re=c(re,1000*j+998)
}
re[2023] 歯科助手のほうがヤベエやつら
偉そう
無資格で中途半端に医療知識あって
若手ドクターみくだし
金遣いあらいし。
歯科助手がお局中心の医院とかやっべーやろ。う○こに等しい >>245
誰もCK上昇だけで診断するとか書いてないけどな。 >>250
数日考えた反論がこれだけ？w
脳内医さんw 悪性高熱と違ってサンドラマランは高パ薬を中止する必要がないので対処が楽。
ダントレンの蒸留水での溶解が面倒だけどね。 >>249
歯科衛生士はやらせそうかとうかで採用すると聞いたなぁ。
ワッキーは不採用とも聞いた。 >>251
あんたが文脈よめないことを指摘しているだけだが。 >>254
じゃあ他に言うことないのか？尿瓶さんw >>250
どう考えても、そう考えてるとしか思えないのに決して間違いを認めようとしない老害
文章からも社会不適合者だと言うことがわかるな >>252
なんだ？サンドラマランって
新しいヒーローの名前？
もしかして・・もしかしてだけど
サンドローム・マラン（Syndrome Malin）のこと言ってる？他の医者が言ってるの聞いて
そんな風に聞こえちゃったのかな？
医者だったらそんな言い間違い絶対しないもんね。お前の好きな漫画のキャラクターの名前か何かかな？w >>252
後、高パ薬って何？もしかして抗パーキンソン病薬のこと？
そうだとしたら、悪性高熱症で止めるとか何も病態把握してなくて草だわ
麻酔科やってるとか名乗るぐらいならマジで適当な事言うなよ
頭悪い癖に知ったかすんなボケ おい尿瓶ジジイ、ダンマリかよ
早朝から発狂してるのは知ってるんだぞ
515 １３２人目の素数さん[sage] 2023/06/16(金) 06:06:59.77 ID:tkqktegb
進学校なら東大合格者や医学部進学者なんてOBに枚挙に暇がないくらいいるだろう。
東大合格者って年間3000人、医師は年間9000人が誕生。
別に羨むほどのものじゃないけどな。
516 １３２人目の素数さん[sage] 2023/06/16(金) 07:01:27.30 ID:mFyh7Amr
>>515
お前凄いな
こんなに馬鹿にされてるのにまだ誰かが羨んでくれてると思ってるんだな
流石は上級国民様(笑)ですな
519 １３２人目の素数さん[] 2023/06/16(金) 07:48:31.55 ID:vdbZqsgI
>>515
医学板では医学の知識がデタラメだということがバレバレ、
このスレでは高校数学のの能力すら全くないことがバレバレ。
それでも東大合格だの医師だのと詐称し続けられる人は滅多にいない。
その図太いメンタルを羨む人はいるかもなｗ >>261
尿瓶ジジイ数学板には書き込んでるのかよ！
ここに書き込めないってことは自分の間違いを認めてるようなもんじゃん
>>250
あのさあ、素直に知りませんでしたゴメンなさいって言えよ
どういう育てられ方したら絶対自分の非を認めないマンになるの？
恥ずかしいと思わないの？人として 例の数学板のスレ見てたら
尿瓶ジジイ、手術とかカテ出来たらシリツでもオッケーとか意見変わっててワロタ
まあ、頭悪いのバレたから手術出来てる奴は凄いってことにしないと自分の首をしめることになるしな
手術出来るってのも、脳内設定だけどw やっぱり人じゃなくてチンパンジーだから恥を恥とも思わないんだろうな
そんなに人間が羨ましいかw https://rio2016.5ch.net/test/read.cgi/math/1684375597/
511 １３２人目の素数さん[sage] 2023/06/15(木) 21:35:30.36 ID:4/CSLoLM
>>509
詳しくは、わからんが
この自称医者が全く知識が無いのに知ったかぶりする奴ってのは理解した
まあ、数学の能力的にも東大じゃないだろうな間違いなく
素人なら医者で通るとでも思った？はい残念w >>260
悪性症候群と悪性高熱は別物だぞ。
ダントレン溶解したこともないんじゃね？ >>256
マラソン後でもCPK上昇すると書いたら
それが悪性症候群の診断基準だと言い出すあんたの方がアホだよ。ダントレンを溶解したことある？ 非開胸食道抜去術に複数のアプローチなんてないぞ。
開腹と頸部切開だけ。
まあ、ストリッパーを使うか翻転させずに引き抜くかの違いはあるだろうけどね。 >>258
悪性症候群は数例あたったけど
抗パ剤は止めないでダントレン投与するよ。
悪性高熱は幸い遭遇してない。
ICUでプロポフォールでのCK上昇は経験ある。
PRISを疑って中止した。 >>266-269
結局、サンドラマランって何？
後、間違っていました。ごめんなさいは？
素直に謝れないの？ >>266
胆汁ドレナージの話してんだよタコw
日本語すらまともに使えないのか もしかして自分があの薬使ってるから知ったかしてるのかな、悪性症候群w >>268
これ永遠と言ってるけど誰に対して言ってるんだ？アプローチの話なんて全く出ていないのに。変な妄想見えてんじゃねえのか
やっぱ統失？ >>269
悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。止めて起こるのが悪性症候群なのに
>>252でお前は、悪性高熱症に抗ドーパミン薬止めるって書いてるよな？それが全く病態理解出来てないって話なんだが
会話成り立た無さすぎだろ。話をはぐらかしてんのか？ >>269
尿瓶ジジイの脳内医療はいつになったら相手してくれるんだろうね？w rm(list=ls())
library(RcppAlgos)
source('toolmini.R')
gr=as.matrix(Grid(1:6,6))
f=\(x){
tbl=table(x)
tbl[tbl==1] |> names() |> as.numeric() |> sum()
}
y=apply(gr,1,f)
table(y)
summary(y) >>281
自分の間違いも素直に認められない
社会不適合者の尿瓶ジジイさんじゃないですかwww
今日はどうしました？数学板でも本物の東大生にボコられて居場所無いんですか？www >>274
抗ドーパミン薬ってプリンペランのことかよ！
これはタイプミスとは思えんくらい恥ずかしいぞ。
>>
悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。止めて起こるのが悪性症候群なのに
<<
俺は抗パ剤と書いたのに抗ドーパミン薬だってさ。
ダントレン溶解したこともないんじゃね？ タミフル登場前だが
インフルエンザにシンメトレル処方した後に悪性症候群発症を経験したという話を聞かされた。 抗パ剤を高パ剤と誤変換で投稿するのは単純ミスだが
抗ドーパミン薬と投稿するのはタイプミスでも誤変換でもないよな。
＞悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。
ですってｗｗｗ 胆汁ドレナージは恥ずかしくないのか？
まあ恥ずかしいって概念すらなさそうだがw おい尿瓶
もうそんなことでしか発狂できないのか？
高校数学スレでも無視されてるみたいだなw >>285
抗ドーパミン薬→抗パーキンソン病薬って書き直してるだろ
そんなことより、サンドラマランって何なの？抗パ薬を悪性高熱症で止めるのは何で？
どうせよくわかってないんだろ
頭悪いくせに何でそんな偉そうに出来るの？自分の間違いは認めないの？ >>283
こんなことでしか、反論出来ない頭の悪さ＋性格の悪さ
言いたいことはそれだけか？悪性症候群とか悪性高熱症がどういう病気か理解してないからそれぐらいしか言えないんだろうな
お前が反論出来るのは精々タイプミスぐらいだろwww 抗パ剤を高パ剤と誤変換で投稿するのは単純ミスだが
抗ドーパミン薬と投稿するのはタイプミスでも誤変換でもないよな。
＞悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。
ですってｗｗｗ >>289
ダントレン溶解したことあるの？
食道抜去術もやったことないんじゃね？
薬屋の売り子しかできない椰子が
＞悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。
ですって。
抗パ剤を高パ剤と誤変換で投稿するのは単純ミスだが
抗ドーパミン薬と投稿するのはタイプミスでも誤変換でもないよな。
＞悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。
ですってｗｗｗ >>292
頭悪くて質問にマトモに答えることも出来ないんだな
質問の意味が理解出来てないんだろ？
オウムみたいに支離滅裂な主張を言い続けるだけ
とりあえずこれだけ答えろよ
サンドラマランって何？ >>292
後、教えといてやるが
ダントロレンを溶解したことを自慢する医者は存在しない。そんなことは出来て当然だからだ。
つまりお前がコメディカルか医学知識を聞きかじった素人だと言うことがわかる >>290
ダントロレン溶解したことを聞いてくる医者も胆汁ドレナージなんていう医者もいないよ
アンタの脳内医療以外はw 抗パ剤を高パ剤と誤変換で投稿するのは単純ミスだが
抗ドーパミン薬と投稿するのはタイプミスでも誤変換でもないよな。
＞悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。
ですってｗｗｗ >>252
悪性高熱は原因薬剤の吸入麻酔薬を中止するけど、悪性症候群では原因薬剤は中止しない という文意が読めないみたいだな。 非開胸食道抜去術に複数のアプローチがあると言ってたが、開腹＋頸部切開以外にアプローチはないんじゃないの？
経験あるなら複数のアプローチを列挙してくれよ。
損傷しうる血管として右気管支動脈を即答できなかったから、やったことないと思うけどね。
＞悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。
ですってｗｗｗ
当たり前だろ
当たり前だろ
当たり前だろ
とドヤ顔で大間違いを投稿！
抗パ剤を高パ剤と誤変換で投稿するのは単純ミスだが
抗ドーパミン薬と投稿するのはタイプミスでも誤変換でもないよな。 非開胸食道抜去術に複数のアプローチがあると言ってたが、開腹＋頸部切開以外にアプローチはないんじゃないの？
経験あるなら複数のアプローチを列挙してくれよ。
損傷しうる血管として右気管支動脈を即答できなかったから、やったことないと思うけどね。
＞悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。
ですってｗｗｗ
＞当たり前だろ
＞当たり前だろ
＞当たり前だろ
とドヤ顔で大間違いを投稿！
抗パ剤を高パ剤と誤変換で投稿するのは単純ミスだが
抗ドーパミン薬と投稿するのはタイプミスでも誤変換でもないよな。 >>298
本当にそう思ってるならすぐに反論したよね？
>>252の文章じゃどう考えてもそんな文意にならんだろ。嘘つくんじゃねえよ
サンドラマランが何かまだ答えてないんだけど、サンドラマランって何？ >>300
非開胸食道抜去術のアプローチの話
を永遠としてるけど、そんな話題全く出てないだろ
誰に攻撃されてるんだ？統合失調症の陽性症状出てるけど大丈夫かお前？あんまり大丈夫そうじゃないがwww 今日も朝から発狂ご苦労w
尿瓶ジジイはtypoを突かれると発狂するが他人のは大喜びでキーキー喚くんだなw
脳内医療だからリアル医療の質問には答えられないのは当然だよな？胆汁ドレナージジイだからww
ちなみに高校数学スレでは
701 １３２人目の素数さん[sage] 2023/06/23(金) 06:29:44.05 ID:IJIqwPvO
サイコロを6個投げて出た目が重複しなかった目の合計を点数とする。
例：
4 5 2 1 5 6 ならば 4+2+1+6=13点
2 4 2 3 1 4 ならば 3+1=4点
（I) 何点になる確率が最も高いか？
（II) 点数の期待値を求めよ？
これは手作業だと難しそう。
総当たりプログラムで答はだせるけど。
当然ながら誰にも相手されてませんw >>301
常駐するほど暇じゃないんだよ。
教は内視鏡が１２件もあったし。 ＞悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。
ですってｗｗｗ
＞当たり前だろ
＞当たり前だろ
＞当たり前だろ
とドヤ顔で大間違いを投稿！
抗パ剤を高パ剤と誤変換で投稿するのは単純ミスだが
抗ドーパミン薬と投稿するのはタイプミスでも誤変換でもないよな。 尿瓶ジジイそれしか言えないのかw
サンドラマランってなんだよ？なんかの呪文か？w >>305
常駐してるじゃねえか
>>252の後も何回も書き込みしてるよな？
書き込んで1週間後にやっと反論してきたよね？すぐに反論出来ないって証拠だよボケ
数学板にも何回書き込みしてるみたいだし
どこが暇じゃないの？内視鏡やってるとか嘘ついて虚しくならないの？
サンドラマランは都合が悪くてスルーか？
お前程度の知能じゃ、その反論が限界かなw論破全く出来てないけど
とりあえず、間違ってスイマセンって謝ったら？統合失調症だから謝れないのかな？ >>305
尿瓶ジジイが涙目で必死に書き込んでる姿を想像すると笑えるwww
これぐらいの嘘しか思い浮かばなかったんだろうな～
頭悪くて語彙力に乏しいからwww
どう考えても、常駐してるだろ
何でそんな大嘘ついたんだよ ＞悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。
ですってｗｗｗ
＞当たり前だろ
＞当たり前だろ
＞当たり前だろ
とドヤ顔で大間違いを投稿！
抗パ剤を高パ剤と誤変換で投稿するのは単純ミスだが
抗ドーパミン薬と投稿するのはタイプミスでも誤変換でもないよな。 >>312
おい胆汁ドレナージジイ
それしか言えないのかチンパンジーだから
あとサンドラマランはなんだって聞いてんだよw >>312
煽られて顔も尻もIDも真っ赤っかだぞチンパンジー
人間のふりしてもチンパンジーはチンパンジーw >>312
そんなに悔しかったのかw
マジでそれしか言えないのな
チンパンジー以下のIQ solve (2q-a-a-h)/(a(a+h)) = -q*a(a+h)/(q-a)(q-a-h) for q 903 １３２人目の素数さん[sage] 2023/06/27(火) 16:53:25.81 ID:So5JXPqm
三点では放物線は決まらない
936 １３２人目の素数さん[sage] 2023/06/28(水) 07:24:44.60 ID:6/9oOY6o
>>903
変数3個に方程式3個だから求められるんじゃないの？
939 １３２人目の素数さん[sage] 2023/06/28(水) 07:56:02.69 ID:b6U1hFbf
>>936
やっぱりアホだなｗ
あんた数学のセンスないんだから引っ込んだほうがいいよ、
出題厨にも相手にされないポンコツ偽医者君ｗ おい尿瓶ジジイ
いままでの威勢の良さはどこいったんだよ？
前のスレは発狂しまくって3ヶ月で消費してたのにもう3ヶ月だぞw
閉鎖病棟にぶち込まれてデジタルデトックスしてるのか？w まあ、あんだけボコボコにされたから
流石に心折れたんだろ
最後らへん明らかにここに書き込むのビビってたし ＞悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。
ですってｗｗｗ
＞当たり前だろ
＞当たり前だろ
＞当たり前だろ
とドヤ顔で大間違いを投稿！
抗パ剤を高パ剤と誤変換で投稿するのは単純ミスだが
抗ドーパミン薬と投稿するのはタイプミスでも誤変換でもないよな。 非開胸食道抜去術に複数のアプローチがあると言ってたが、開腹＋頸部切開以外にアプローチはないんじゃないの？
経験あるなら複数のアプローチを列挙してくれよ。
損傷しうる血管として右気管支動脈を即答できなかったから、やったことないと思うけどね。
＞悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。
ですってｗｗｗ
＞当たり前だろ
＞当たり前だろ
＞当たり前だろ
とドヤ顔で大間違いを投稿！
抗パ剤を高パ剤と誤変換で投稿するのは単純ミスだが
抗ドーパミン薬と投稿するのはタイプミスでも誤変換でもないよな。 >>324
尿瓶ジジイさぁ
一週間黙ってたと思ったら、何とか書き込めたのが以前のレスのコピペのみ？しかも、typoの指摘のみ
マーチ以下の脳みそしてても1週間もあればもっと調べてマトモな返し出来るぞ
どうしたの？もう、心折れちゃったの？
雑魚過ぎてつまらんのだが バビンスキーをババンスキーと呼ぶ医師もいたなぁ。
でもミンコスキーはミンコスキーと呼んでたな。
整形で使うHoman鈎も仏語読みはしていなかったな。
何を指すか脳内変化できるから問題なし。
こういうのこそ恥ずかしい。
＞悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。
ですってｗｗｗ
＞当たり前だろ
＞当たり前だろ
＞当たり前だろ
とドヤ顔で大間違いを投稿！
抗パ剤を高パ剤と誤変換で投稿するのは単純ミスだが
抗ドーパミン薬と投稿するのはタイプミスでも誤変換でもないよな。 >>326
暇だから頭の悪いお前の相手してやるけど
>>258では抗パーキンソン病薬って書いてて
>>274の1分後に>>275で訂正してるんだから
お前が何と言おうと抗ドーパミン薬はtypoだよ。
で、お前はこんな簡単な指摘すら5日たってやっと気づいたのか>>285でやっと反撃
一方お前はサンドラマランの話となると都合悪いのか無視。頭悪くて反論が思いうかばなかったんだろ？そうじゃなくて間違ってると思うならちゃんと反省して謝るべきなんじゃないか？そこんとこどうなの社会不適合者の尿瓶ジジイさんは？他人のtypo以外で何か反論出来る？出来ないならお前はただの馬鹿ってことで決定な 胆汁ドレナージが恥ずかしいと思わないのが脳内丸出しすぎてw
というか医者なら出てこない発想なんだけどw >>326
あんまり、typoの指摘してもしょうがないが
ミンコスキー→ミンコフスキーね
統合失調症を回りに認知させた大家だし
お前の恩人と言ってしかるべき方だろ
そうじゃなきゃ、今頃お前はシャバに出れてないんだから、もう少し敬意を持って書き込めよ
というか、わざわざミンコフスキーの名前書いてるとこみるとガチで精神分裂病なんだなw 鬼の首をとったかのようにtypoを指摘しながら自分も間違えるというアホにしかできない芸当w
これが脳内医者w calc =\(a=2,h=1/2,print=TRUE){
b=a+h
f=\(x) (x-a)*(x-b)/(a*b)
f1=\(x) (2*x-a-b)/(a*b)
OQ=\(x) x^2 + f(x)^2
q=optimise(OQ,c(0,a))$minimum
O=0i
Q=q+1i*f(q)
if(print){
curve(f(x),-1,a+2*h,xlab=paste('a =',a,' h =',h),ylab='')
abline(v=0,h=0,lty=3)
seg(O,Q,col=8)
axy(f1(q),Q,-1,a+2*h,col=2,lwd=2)
pta(O)
pta(Q)
legend('center',bty='n',legend=paste('slope =',round(f1(q),3)))
}
f1(q)
} >>331
おいアホ脳内医者
サンドラマランって何だよさっさと答えろやw 尿瓶ジジイ 解説
自称医者。東大合格したが、医科歯科に入学したと言うこと（本人談）
数学板にも関わらず、東大がどうの医学部がどうのとスレ違いのレスを連投する明らかな学歴コンプ（本当に医者ならこんな書き込みしない）
医者板では医者じゃないのがバレるためか、あまり書き込んでいないらしい
たまに数学の問題を出すが、統計ソフトを使って解答しだしたり自分の実力と勘違いしている
東大合格者の回答希望が決まり文句 https://rio2016.5ch.net/test/read.cgi/math/1688077347/
5 １３２人目の素数さん[] 2023/06/30(金) 10:08:23.14 ID:5qLByTne
頭のおかしな
・傑作馬鹿
・偽医者馬鹿
・傑作馬鹿に釣られる馬鹿
の３馬鹿のためのスレです。
３馬鹿を馬鹿にするレスも大歓迎。
それ以外のまともな投稿はご遠慮ください。
替え歌キチガイにもバカにされる始末ww # 三点 (x1,y1),(x2,y2) (x3,y3)を通る二次関数の係数を求める
f=\(x1,x2,x3,y1,y2,y3){
solve(rbind(
c(x1^2,x1,1),
c(x2^2,x2,1),
c(x3^2,x3,1)
)) %*% c(y1,y2,y3) |> t()
}
f(1,-2,-3,8,2,4) > f(1,-2,-3,8,2,4)
[,1] [,2] [,3]
[1,] 1 3 4 ＞悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。
ですってｗｗｗ
＞当たり前だろ
＞当たり前だろ
＞当たり前だろ
とドヤ顔で大間違いを投稿！
抗パ剤を高パ剤と誤変換で投稿するのは単純ミスだが
抗ドーパミン薬と投稿するのはタイプミスでも誤変換でもないよな。 >>334
正解が出せたので出題者からお褒めの言葉を頂いた。
高校数学の質問スレ Part428
https://rio2016.5ch.net/test/read.cgi/math/1684375597/999
999 名前：１３２人目の素数さん[sage] 投稿日：2023/06/30(金) 14:41:49.84 ID:btOvldmi
>>996
美しいでしょう
素晴らしい解答です >>329
それだとjokeが成立しないのよ。
Homan鈎の仏語読みも鈎は仏語読みできないけどジョークがわかる人にはわかる。 尿瓶ジジイ駄目だな
言ってることが言葉のサラダ過ぎて会話にならない
精神分裂し過ぎだろお前 Later Stimson put it this way: the question was how we could “maneuver the Japanese into the position of firing the first shot but allowing no danger to ourselves.” >>338
バカにされてることに気づかないのか？
やっぱり統失みたいだなw >>337
ハイ、ただの馬鹿確定
>>327を読んでも理解出来ないのか
頭悪過ぎて反論出来なかったのか知らんが、それじゃ自分から馬鹿ですって言ってるのと同じだからな
しかも、コピペwww
今度からお前が何言っても、もうただの馬鹿ってことで良いよね？反論すらマトモに出来なかったしwww本当マジで頭悪いのな
よくそれで医者を語ろうとしたな。恥ずかしくないんか？統合失調症の尿瓶ジジイさん
とりあえず、病院受診してくれば？ ＞悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。
ですってｗｗｗ
＞当たり前だろ
＞当たり前だろ
＞当たり前だろ
とドヤ顔で大間違いを投稿！
抗パ剤を高パ剤と誤変換で投稿するのは単純ミスだが
抗ドーパミン薬と投稿するのはタイプミスでも誤変換でもないよな。 >>346
胆汁ドレナージジイもうそれしか言えないみたいだねw >>346
それしか言えないとこみると
本当にそれ以外何も思い浮かばないんだな
まあ、低偏差値の尿瓶ジジイ君にはそれが限界だろうね
医科歯科卒も東大合格も嘘確定だな
お前は、大東亜帝国以下だよ ＞悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。
ですってｗｗｗ
＞当たり前だろ
＞当たり前だろ
＞当たり前だろ
とドヤ顔で大間違いを投稿！
抗パ剤を高パ剤と誤変換で投稿するのは単純ミスだが
抗ドーパミン薬と投稿するのはタイプミスでも誤変換でもないよな。
＞悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。
ですってｗｗｗ
＞悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。
ですってｗｗｗ
＞当たり前だろ
＞当たり前だろ
＞当たり前だろ
とドヤ顔で大間違い ＞悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。
ですってｗｗｗ
＞当たり前だろ
＞当たり前だろ
＞当たり前だろ
とドヤ顔で大間違いを投稿！
これをタイプミスと言うには無理があるな。 m3のメール配信で
「東大か、医学部か」というのが当時の****(某有名進学校)の流れに乗った
というのが送られてきた。 f=\(p,q){
q=q-1
a = (p *(p + q) + sqrt(p^2* (p + q)^2 + 4* p^2))/(2* p)
b= -a +q +p
c= -p
d=1
c(a,b,c,d)
}
re=f(20,23)
re
prod(re)
sum(re) >>354
シャバに解放されてしばらくは元気になるみたいだねw
でも発狂しすぎるとまた閉鎖病棟行きだぞw 尿瓶ジジイさぁ
コソコソ他スレで書き込んでないで直接言ってきたらどうだ？
頭だけじゃなくて、性格も悪いな
ウジ虫みたいな野郎だよお前は
リアルでうだつがあがらないから、ネットでコソコソ悪口か？親もさぞ悲しんでいるだろうなぁ
産んでごめんなさいって 抗パ剤を高パ剤と誤変換で投稿するのは単純ミスだが
抗ドーパミン薬と投稿するのはタイプミスでも誤変換でもないよな。
＞悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。
ですってｗｗｗ
＞悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。
ですってｗｗｗ
＞当たり前だろ
＞当たり前だろ
＞当たり前だろ
とドヤ顔で大間違い >>358
あんまり、いじめたら可哀想だから黙ってたけどプリンペランでも悪性症候群は起こるけどなwww
アホだから知らんのだろうが、そんなことも知らないでドヤ顔で連投してるけど恥ずかしくない？w >>359
投与で起こるのと減量中止で起こるのとは別なんだがな。 >>359
投与で起こるのと減量中止で起こるのとは別なんだがな。 >>359
投与で起こるのと減量や休薬で起こるのとは別なんだがな。
抗パ剤を高パ剤と誤変換で投稿するのは単純ミスだが
抗ドーパミン薬と投稿するのはタイプミスでも誤変換でもないよな。
＞悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。
ですってｗｗｗ
＞悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。
ですってｗｗｗ
＞当たり前だろ
＞当たり前だろ
＞当たり前だろ
とドヤ顔で大間違い 抗パ剤を高パ剤と誤変換で投稿するのは単純ミスだが
抗ドーパミン薬と投稿するのはタイプミスでも誤変換でもないよな。
＞悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。
ですってｗｗｗ
＞悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。
ですってｗｗｗ
＞当たり前だろ
＞当たり前だろ
＞当たり前だろ
とドヤ顔で大間違い 抗パ剤を高パ剤と誤変換で投稿するのは単純ミスだが
抗ドーパミン薬と投稿するのはタイプミスでも誤変換でもないよな。
＞悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。
ですってｗｗｗ
＞悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。
ですってｗｗｗ
＞当たり前だろ
＞当たり前だろ
＞当たり前だろ
とドヤ顔で大間違い プリンペランでの錐体外路症状の話は
Minor Emergency いわゆる ゴキブリ本の最初に出てくる。
術後に1例経験した。アキネトンで軽快。
あの本は本邦未発売の薬が多くて治療の参考にはならん。 抗パ剤を高パ剤と誤変換で投稿するのは単純ミスだが
抗ドーパミン薬と投稿するのはタイプミスでも誤変換でもないよな。
＞悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。
ですってｗｗｗ
＞悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。
ですってｗｗｗ
＞当たり前だろ
＞当たり前だろ
＞当たり前だろ
とドヤ顔で大間違い >>361
アンタ悪性症候群が何かも分かってないだろ？脳内医者だからw おっ、人の粗を見つけてやっと元気出たな尿瓶ジジイ
>>360
流石にアホでもそれぐらいは気づいたかw
>>359ではプリンペランの投与か減量かは言及してないけどな
相変わらず人が間違っていると思ったら急に元気出すよなお前
統合失調症のせいで会話なりたってないのかと思ったが都合が悪くなるとその内容は無視するだけの糞野郎みたいだな
で、サンドラマランって何よ？www >>362
ちなみに、抗ドーパミン薬って書いたのも
わざとだよw
少し付け入る隙を与えてやらんとお前の頭悪すぎて、急に黙り込むからな
それでも、気づくのに5日かかったわけだがw
他に何か脳内医療自慢出来ないの？お前を馬鹿にするのがこのスレの趣旨なんだから
無い頭ふり絞ってもう少し頑張れよwww >>361
後、よっぽど嬉しかったのか連投してて超ウケルwww
プルプル震えながら何回も書き込みボタン連打してたんだろうなwww
良かったな！最近レス少ないから掲示板で虐めたせいで自殺したんかと思ったわw >>369
アホな間違いに気づいて訂正しているくせに。
>>274
抗ドーパミン薬→抗パーキンソン病薬
をみてみ！ >>372
やっぱり馬鹿だなぁ
故意に間違えてなきゃ>>274でわざわざ1分後に訂正できるわけないだろ気づけよ
お前のサンドラマランと違ってなw
というか>>274の訂正に気づいていながらtypoじゃないって永遠と書き込み続けてるこの性格の悪さw
幼児化の進んだ認知症の年寄りみたいだな >>375
尿瓶ジジイこんなスレでも抗ドーパミン薬がどうとか言ってんのなw
どんだけ言い負かされたのが悔しかったんだよ！
素人相手なら騙せると思ったのか知らんが、マジで頭おかしいなw 数学板でも偽医者とか言われててワロタ
素人でも分かるみたいだね、まあ発言がアホすぎるから当然か 402 １３２人目の素数さん[] 2023/07/07(金) 19:26:53.30 ID:FR9R1r+k
>>395
作図して面積を図るプログラムを作成
https://i.imgur.com/HaZBSic.png
Nelder-Mead法で求めた最大値は
> f(ans$par[1],ans$par[2],print=TRUE)
[1] 32.18685
東大合格者の検証を希望。
403 １３２人目の素数さん[] 2023/07/07(金) 19:40:07.98 ID:OiKj+2R4
>>402
>東大合格者の検証を希望。
おまえは東大合格者じゃなかったか？
なのに検証できないとはこれいかにｗｗｗ
尿瓶ジジイ墓穴を掘るww ＞悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。
ですってｗｗｗ
＞当たり前だろ
＞当たり前だろ
＞当たり前だろ
とドヤ顔で大間違いを投稿！
これをタイプミスと言うには無理があるな。 ホウレンソウの代わりに苦味を軽減したゴーヤを使ってキッシュ完成。
ちょうどよいくらいの苦味で旨い。
ククルビタシンよりモモルデシンのほうが安全だな。
ズッキーニのほうが下処理が簡単なのだが。 >>379
認知症の様に同じことを繰り返しているなw
で、肝心の医療ネタは書き込まず料理ネタか？自称医者は諦めて、料理家名乗ったらどうだ？その方がまだ信憑性あるぞ # AB=20,BC=23,DA=78である□ABDAの面積が最大になるときのDAの長さを求めよ
# 答は有効数字2桁でよい。
AB=20
BC=23
CD=78
ABC2S=\(A,B,C) abs(Im((A-C)*Conj(B-C)))/2
f=\(b,c,print=FALSE){
A=0i
B=AB+0i
C=BC*exp(1i*b)+B
D=CD*exp(1i*(b+c))+C
S=ABC2S(A,B,C)+ABC2S(A,D,C)
DA=round(abs(D-A))
if(print){
Plot(0,1.5*max(c(AB,BC,CD)))
pta(A)
pta(B)
pta(C)
pta(D)
Polygon(A,B,C,D)
text(mean(Re(c(A,B,C,D))),mean(Im(c(A,B,C,D))),round(S,2))
text(mean(Re(c(D,A))),mean(Im(c(D,A))),DA)
}
invisible(S)
}
opt=optim(runif(2,0,pi),\(x) f(x[1],x[2]),control=list(fnscale=-1))
ans=optim(opt$par,\(x) f(x[1],x[2]),control=list(fnscale=-1))
f(ans$par[1],ans$par[2],print=TRUE) http://hissi.org/read.php/math/20230708/blFHUkhPOUQ.html
朝から大暴れw
東大合格者の答えを希望しているそうだが一向に相手にされないどころか自分は東大合格者ではないのかと言われて大発狂w 459 １３２人目の素数さん[sage] 2023/07/08(土) 21:50:01.63 ID:IM959X8W
練習問題
白玉3個、赤玉3個、黒玉3個の計9個の玉をランダムに1列に並べるとき、同じ色が隣合わない並べ方は何通りあるか？
apply(permuteGeneral(c(1,2,4),freq=c(3,3,3)),1,\(x) all(diff(x)!=0)) |> sum()
を入力してリターンキーを押すだけ。瞬時に答が返ってくるから、時間の無駄とは感じないなぁ。
判定プログラムを作るのがそれなりに楽しいが数値解が返ってこなくちゃ意味がないな。
The proof of the pudding is in the eating.
尿瓶ジジイ、論より証拠という英語のことわざをドヤ顔で出したがるもいまだに学歴の証拠はあげられずww expand.grid(1:6,1:6,1:6,1:6,1:6,1:6) |> as.matrix() -> d
apply(d,1,\(x) length(unique(x))) |> table() -> a
p=\(n) (6-n)/6+ n/6*(6-n)/6
sum(p(1:6)*a)/6^6 ＞悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。
ですってｗｗｗ
＞当たり前だろ
＞当たり前だろ
＞当たり前だろ
とドヤ顔で大間違いを投稿！
これをタイプミスと言うには無理があるな。 サイコロを6回振り、出た目をノートに記録する。
以下の操作を繰り返し行う。
【操作】
サイコロを1回振り、出た目を記録する。それがノートに記録されている数と同じであった場合、この操作を繰り返す。
ノートに記録されていない数であった場合、操作を終了する。
このとき、操作が2回以下で終了する確率を求めよ。 尿瓶ジジイもう同じ文言でしか発狂できないみたいだね、つくづく哀れ
胆汁ドレナージなんてマヌケなこと言ってる医者なんかいねーよw >>387
頭悪すぎて同じことしか書けないのなwww
他に何か思い浮かばんのか？偏差値30程度かなwww >>387
どうでもいいから医科歯科の卒業証書と東大合格通知と医師免許はよ
the proof of the pudding is in the eating、論より証拠なんだろ？ww
↓尿瓶ジジイの英語力とくとご覧あれ！
724 卵の名無しさん (ﾜｯﾁｮｲ 3358-8TD4 [14.13.16.0])[sage] 2022/10/05(水) 13:30:27.35 ID:rczEbvNg0
I told my colleage nureses that I have such allergy to beauties that I feel itchy everywhere when I work with them.
Ahahahahahah
>colleage
>nureses
920 卵の名無しさん (JP 0H52-BsRZ [217.138.212.122 [上級国民]])[sage] 2023/03/24(金) 15:55:12.52 ID:sCq5Ou+HH
先々週のseptick shockの患者、懇意なナースに聞いたらもう食事が始まっていますよと教えてくれた。
夜遅くまで麻酔をかけたのが報われた感じで気分が( ・∀・)ｲｲ!!
報酬も良かったし
>septick shock サイコロを6回振り、出た目をノートに記録する。
記録されうるデータを列挙する。
g <- function(num, N, digit){
if(num <= 0 & digit <= 0) return()
else{
return(c(g(num%/%N, N ,digit-1), num%%N))
}
}
d=NULL
for (i in 0:(6^6-1)){
d=rbind(d,g(i,6,6)+rep(1,6))
}
head(d,10)
tail(d,10) [,1] [,2] [,3] [,4] [,5] [,6]
[1,] 1 1 1 1 1 1
[2,] 1 1 1 1 1 2
[3,] 1 1 1 1 1 3
[4,] 1 1 1 1 1 4
[5,] 1 1 1 1 1 5
[6,] 1 1 1 1 1 6
[7,] 1 1 1 1 2 1
[8,] 1 1 1 1 2 2
[9,] 1 1 1 1 2 3
[10,] 1 1 1 1 2 4
[,1] [,2] [,3] [,4] [,5] [,6]
[46647,] 6 6 6 6 5 3
[46648,] 6 6 6 6 5 4
[46649,] 6 6 6 6 5 5
[46650,] 6 6 6 6 5 6
[46651,] 6 6 6 6 6 1
[46652,] 6 6 6 6 6 2
[46653,] 6 6 6 6 6 3
[46654,] 6 6 6 6 6 4
[46655,] 6 6 6 6 6 5
[46656,] 6 6 6 6 6 6 ＞悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。
ですってｗｗｗ
＞当たり前だろ
＞当たり前だろ
＞当たり前だろ
とドヤ顔で大間違いを投稿！
これをタイプミスと言うには無理があるな。 パリパリピーマンは以外に美味かった。
パプリカでもやってみたが、遜色ない。 医療ネタは嘘がバレるので全く書き込めない尿瓶ジジイさんでした
哀れwww 尿瓶ジジイ、医療ネタ()でコテンパンにされたのがよほど悔しいみたいだなw 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:検証用
}
del=sapply(2:62, function(x) decN(pi,x,10))
decN(pi,16)
decN(pi,14,10)
decN(pi,62) gr=expand.grid(1:6,1:6,1:6,1:6,1:6)
apply(gr,1,\(x) length(unique(x))) |> table() -> a
p0=a/sum(a)
f=\(n,m) (m/6)^(n-1)*(6-m)/6 # m=1:5
f=Vectorize(f)
P=\(n) (f(n,1:5)*p0) |> sum()
y=sapply(1:20,P)
plot(y) gr=expand.grid(1:6,1:6,1:6,1:6,1:6)
apply(gr,1,\(x) length(unique(x))) |> table() -> a
p0=a/sum(a)
f=\(n,m) (m/6)^(n-1)*(6-m)/6 # m=1:5
f=Vectorize(f)
P=\(n) (f(n,1:5)*p0) |> sum()
P=Vectorize(P)
y=sapply(1:20,P)
plot(y)
N=1:10000
(N*P(N)) |> sum() sim=\(n=1234567890){
while(n%%37!=0 | n<1e9) (sample(0:9)*(10^(0:9))) |> sum() -> n
n
}
y=replicate(100,sim())
y 235 卵の名無しさん[sage] 2023/07/10(月) 11:59:46.04 ID:IfMUDmD3
ドヤ顔で大間違いがこれ！
>>
悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。止めて起こるのが悪性症候群なのに
<<
超一流裏口シリツ容疑者ですら言わんと思う。
https://egg.5ch.net/test/read.cgi/hosp/1672029865/
こっちにもコッソリ書き込みw pm=permuteGeneral(0:9)
pm=pm[pm[,1]!=0,]
head(pm) ; tail(pm)
ns=apply(pm,1,\(x) sum(x*10^(9:0)))
min(abs(diff(ns)))
N=length(ns)
S37=ns[!ns%%37]
S37 |> length()
range(S37) # 小数点付きの数numをN進法で表示する(62進法まで対応 0-9,a-z,A-Z)
rm(list=ls())
options(scipen = 100)
dec62 <- 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.28 != 0に対応
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:検証用
}
dec62(123.728,5)
dec62(5/9,3)
dec62(3.14159265359,7)
dec62(3.14159265359,16)
dec62(3.14159265359,32)
dec62(3.14159265359,62)
dec62(exp(1),14)
options(digits = 22)
dec62(exp(1),14) > noquote(K)
1 2 3 4 5 6 7 8 9 A J Q K
1 01 02 03 04 05 06 07 08 09 0A 0J 0Q 0K
2 02 04 06 08 0A 0Q 10 12 14 16 18 1A 1Q
3 03 06 09 0Q 11 14 17 1A 1K 22 25 28 2J
4 04 08 0Q 12 16 1A 20 24 28 2Q 32 36 3A
5 05 0A 11 16 1J 22 27 2Q 33 38 3K 44 49
6 06 0Q 14 1A 22 28 30 36 3Q 44 4A 52 58
7 07 10 17 20 27 30 37 40 47 50 57 60 67
8 08 12 1A 24 2Q 36 40 48 52 5A 64 6Q 76
9 09 14 1K 28 33 3Q 47 52 5J 66 71 7A 85
A 0A 16 22 2Q 38 44 50 5A 66 72 7Q 88 94
J 0J 18 25 32 3K 4A 57 64 71 7Q 89 96 A3
Q 0Q 1A 28 36 44 52 60 6Q 7A 88 96 A4 J2
K 0K 1Q 2J 3A 49 58 67 76 85 94 A3 J2 Q1 0123456789abcdefghijklmnopqrstuvwxyzの36個の文字を使って36進数表示とする。
1×1からｚ×zまでの掛け算表（10進法でいうところの九九）を作成せよ。
https://i.imgur.com/Jj8dYE9.png おい尿瓶クソジジイ
高校数学スレの威勢はどうしたんだよw
発狂しまくってるじゃねーかw
高校生に馬鹿にされるのがそんなに楽しいか？ ＞悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。
ですってｗｗｗ
＞当たり前だろ
＞当たり前だろ
＞当たり前だろ
とドヤ顔で大間違いを投稿！
これをタイプミスと言うには無理がある アップデートせずにcfgファイルをリネームすれば読み書きできるな。 胆汁ドレナージもタイプミスというには無理があるなw 胆汁ドレナージもタイプミスというには無理があるなw 胆汁ドレナージは普通に使う。
アストラップも同様。
俺の世代ならUGIよりMDLの方がわかりやすい。 VPNでのアラートがでなくて、JaneStyleより使い勝手が( ・∀・)ｲｲ!! JaneStyleだとバイナリ編集が必要だったが、Xenoだとそれは不要。 円周率を小数点以下10桁まで2進法、3進法、4進法,...,9進法で表わせ。 ロシアのVPN経由でもXenoだと書き込めるようだ。JaneStyleだと書き込めないのに Xeno使っていると、いちいち、VPNを外さなくてもよくなった まあ、仕様変更でいつ使えなくなるかわからないから
バイナリ編集済のJaneStyleも保存しておこう。 尿瓶ジジイは5chで発狂することが生きがいのようだなw a(n) = - (1 - 3 i) - (1/2 + (5 i)/2) (1 + i)^n ＞悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。
ですってｗｗｗ
＞当たり前だろ
＞当たり前だろ
＞当たり前だろ
とドヤ顔で大間違いを投稿！
裏口シリツ医でもこんな投稿はしない。 JaneStyle via VPN with Ronin これは便利。
普通にブラウザでアクセスするとスレ探しだけでも手間だったが。 >>415
じゃあ教科書や専門書のどこに書いてあるんだ？
研修医含め全員に通じないと話にならないぞw
アンタが知らずにもうそう言い張るしかなくなっただけだろタコ ＞悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。
ですってｗｗｗ
＞当たり前だろ
＞当たり前だろ
＞当たり前だろ
とドヤ顔で大間違いを投稿！
裏口シリツ医でもこんな投稿はしない。 >>437
カルテにMDLと書いてあったら教養がある医師なら意味が理解できる。
昔は開業医の紹介状はドイツ語が多くて難儀した。
オペ室でバイクリルというとポリゾーブがでてくるが、それでちゃんと通じている。
一昔前だと吸収糸はなんでもデキソンと呼ぶ外科医もいたなぁ。
Homan鈎をフランス語読みする整形外科医もいたｗ 最近はICというナースが多いが、古株はムンテラと呼ぶ。 ＞悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。
これは国試で禁忌肢を選択するに等しい。 ＞悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。
ですってｗｗｗ
＞当たり前だろ
＞当たり前だろ
＞当たり前だろ
とドヤ顔で大間違いを投稿！
国試でいえば禁忌肢をドヤ顔で選ぶに等しい 設定 ＞ 一般 ＞ 2ch.netのスレッド読み込み形式
でdat形式へ切り替え
datに切り替えたら更新ボタン後の新着表示めっちゃサクサク 胆汁ドレナージバッグという商品名から医療行為だと勘違いしたが引き返せなくなっただけだろw いや、うちは中山式吸引バックを使っていたよ。
胆汁ドレナージバックには何かわすれたが薬局からもらったボトルを再利用してGボトルと呼んでいた。
＞悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。
ですってｗｗｗ
＞当たり前だろ
＞当たり前だろ
＞当たり前だろ
とドヤ顔で大間違いを投稿！
シリツ医でもこんなことをいう椰子はいないだろうな。
国試でいえば禁忌肢にあたるわけだから。 アストラップも商品名だがこれで通じる。
メラは方言なので一部の病院でしか通じない。
ツッペルというと関東ではツッペル鉗子をさすが、
岡大系だと小ガーゼがでてくる。
がん研で長谷川の鉗子（小さいのはハセショーと略していたな）
岡大だと三村がそれに相当。先端が少々異なるけど。 プチトマトを湯剥きして、冷やしパスタのソースに使った。
トマトの皮が口に残らず、味もよく染みて美味かった。 パリパリピーマンよりオクラの方が冷やしパスタに合うな。 トウモロコシの葉はお茶の葉にしかできなかったが、
ゴーヤのワタは蒲焼き風に料理できた。まあ、種が邪魔ではあるが。 バターレモン醤油で味付けのビーツのステーキ、美味い。
火が通りやすいように格子状にプレカットしてレンジ加熱後に焼いて、焼き目がついたらステーキソースで蒸し焼き！
corocoroの大根ステーキを越える。 >>446
商品名を医療行為と勘違いしたんだろマヌケ
元医療事務、やっぱ脳内医者丸出しですわ >>446
鬼の首取ったみたいにコピペ何度も貼り付けてるのほんとチンパンだね
ちなみに俺じゃないけどそれw
それとも認知症なのかな？ おい尿瓶クソジジイ
いつになったら卒業証書と医師免許出すんだよ？
どうせ脳内なんだろ？ おい尿瓶クソジジイ
高校数学スレでさんざん発狂してるのにここはダンマリかよ
もしかして東大合格者の回答を希望したのに東大合格者どころか誰にも相手にされてないことに発狂してるのかな？ https://i.imgur.com/70CWsCI.png
3軒の家があり、2軒間の直線距離は4km,5km,6kmである。
発電所を作って3軒に給電する。発電所と各家は直線の電線で結ぶとする。
必要な電線の長さの最低値を求めよ。答は有効数字2桁でよい。
ABC=abc2ABC(4,5,6)
A=ABC[1]
B=ABC[2]
C=ABC[3]
f=\(x){
P=x[1]+1i*x[2]
abs(A-P)+abs(B-P)+abs(C-P)
}
opt=optim(c(Re(mean(ABC)),Im(mean(ABC))),f)
opt
P=opt$par[1]+1i*opt$par[2]
Plot(0,5)
Polygon(A,B,C)
pta(A)
pta(B)
pta(C)
pta(P)
seg(P,A,col=2)
seg(P,B,col=2)
seg(P,C,col=2)
Angle(A,P,C)$deg |> round()
Angle(B,P,A)$deg |> round()
Angle(C,P,B)$deg |> round() >>457
東大卒のI氏が誤答でレスしているよ。
東大卒なら東大合格者と言ってよい。
吉田茂は怪しいが。 >>459
で、そのI氏は今どこ行ったんだ
何をもって東大合格者なんだよタコw尿瓶ジジイだって脳内とか言われてるアホなのにw R=c(55.83,37.62)*pi/180
C=c(39.93,116.28)*pi/180
K=c(39.02,125.78)*pi/180
f=\(x1,y1,x2,y2) acos(sin(y1)sin(y2)+cos(y1)cos(y2)cos(x2-x1))
fn=\(x,y){
f(x,y,R[1],R[2])+f(x,y,C[1],C[2])+f(x,y,K[1],K[0])
}
par=mean(c(R,C,K))
optim(par,\(xy) fn(xy[1],xy[2]) R=c(55.83,37.62)*pi/180
C=c(39.93,116.28)*pi/180
K=c(39.02,125.78)*pi/180
RCK=rbind(R,C,K)
f=\(x1,y1,x2,y2) acos(sin(y1)*sin(y2)+cos(y1)*cos(y2)*cos(x2-x1))
fn=\(x,y){
f(x,y,R[1],R[2])+f(x,y,C[1],C[2])+f(x,y,K[1],K[2])
}
par=colMeans(RCK)
optim(par,\(xy) fn(xy[1],xy[2])) R=c(55.83,37.62)*pi/180
C=c(39.93,116.28)*pi/180
K=c(39.02,125.78)*pi/180
RCK=rbind(R,C,K)
f=\(x1,y1,x2,y2) acos(sin(y1)*sin(y2)+cos(y1)*cos(y2)*cos(x2-x1))
fn=\(x,y){
f(x,y,R[1],R[2])+f(x,y,C[1],C[2])+f(x,y,K[1],K[2])
}
par=colMeans(RCK)
optim(par,\(xy) fn(xy[1],xy[2])) R=c(55.83,37.62)*pi/180
C=c(39.93,116.28)*pi/180
K=c(39.02,125.78)*pi/180
RCK=rbind(R,C,K)
f=\(x1,y1,x2,y2) acos(sin(y1)*sin(y2)+cos(y1)*cos(y2)*cos(x2-x1))
fn=\(x,y){
f(x,y,R[1],R[2])+f(x,y,C[1],C[2])+f(x,y,K[1],K[2])
}
par=colMeans(RCK)
opt=optim(par,\(xy) fn(xy[1],xy[2]))
opt
opt$par*180/pi 地球を赤道の長さは４万kmの完全な球と仮定する。
仮想敵国の首都と緯度経度は以下の通りである。
モスクワ 北緯55.83°東経37.62°
北京 北緯39.93°東経116.28°
平壌 北緯39.02°東経125.78°
3つの首都を爆撃するためにトマホーク基地を建設する。
(1) 3首都へのトマホークの飛行距離の総和が最小になる基地の緯度経度を求めよ。
(2) (1)で求めた基地はどこの国の領土かを答えよ。 # A(a1,a2) B(b1,b2) C(c1,c2)からフェルマー点の座標とフェルマー点から頂点を結ぶ線分の長さの総和を返す
source('toolmini.R')
Fermat_Point=\(a1,a2,b1,b2,c1,c2,print=TRUE){
A=a1+1i*a2
B=b1+1i*b2
C=c1+1i*c2
d=c(bac(A,B,C) > (2/3)*pi,bac(B,C,A) > (2/3)*pi, bac(C,A,B) > (2/3)*pi)
if(any(d)){FP=c(B,C,A)[d]
}else{
C1=(A-B)*exp(1i*pi/3)+B
B1=(C-A)*exp(1i*pi/3)+A
fp=intsect(C,C1,B,B1)
if(in3(fp,A,B,C)) FP=fp
C1=(A-B)*exp(-1i*pi/3)+B
B1=(C-A)*exp(-1i*pi/3)+A
fp=intsect(C,C1,B,B1)
if(in3(fp,A,B,C)) FP=fp
}
if(print){
Plot(min(c(a1,b1,c1)),max(c(a1,b1,c1)),min(c(a2,b2,c2)),max(c(a2,b2,c2)))
Polygon(A,B,C)
pta(A) ; pta(B) ; pta(C)
pt(FP)
seg(A,FP,col=2)
seg(B,FP,col=2)
seg(C,FP,col=2)
}
return(list(FermatPoint=c(Re(FP),Im(FP)),Length=abs(FP-A)+abs(FP-B)+abs(FP-C)))
} >>460
進学校卒なら東大合格くらい珍しくないだろ。
あんた東大落ちたの？
さてはシリツだな。 高校数学スレじゃ高校生相手にイキリ散らかしてるくせにこっちではダンマリ決め込むのか？尿瓶ジジイ
全く情けないにも程があるw tric <- function(A,B,C){ # 複素点３点を通る円の中心と半径を返す
a1=Re(A) ; a2=Im(A)
b1=Re(B) ; b2=Im(B)
c1=Re(C) ; c2=Im(C)
p = (a1^2*(-b2) + a1^2*c2 - a2^2*b2 + a2^2*c2 + a2*b1^2 + a2*b2^2 - a2*c1^2 - a2*c2^2 - b1^2*c2 - b2^2*c2 + b2*c1^2 + b2*c2^2)/(2*(-a1*b2 + a1*c2 + a2*b1 - a2*c1 - b1*c2 + b2*c1))
q = -(a1^2*(-b1) + a1^2*c1 + a1*b1^2 + a1*b2^2 - a1*c1^2 - a1*c2^2 - a2^2*b1 + a2^2*c1 - b1^2*c1 + b1*c1^2 + b1*c2^2 - b2^2*c1)/(2*(-a1*b2 + a1*c2 + a2*b1 - a2*c1 - b1*c2 + b2*c1))
Ce=p+1i*q
r=abs(Ce-A)
c(Center=Ce,Radius=r)
} nine_point_circle=\(x1,y1,x2,y2,x3,y3){
p = ((x1/2+x2/2)^2*(-(y2/2+y3/2)) + (x1/2+x2/2)^2*(y3/2+y1/2) - (y1/2+y2/2)^2*(y2/2+y3/2) + (y1/2+y2/2)^2*(y3/2+y1/2) + (y1/2+y2/2)*(x2/2+x3/2)^2 + (y1/2+y2/2)*(y2/2+y3/2)^2 - (y1/2+y2/2)*(x3/2+x1/2)^2 - (y1/2+y2/2)*(y3/2+y1/2)^2 - (x2/2+x3/2)^2*(y3/2+y1/2) - (y2/2+y3/2)^2*(y3/2+y1/2) + (y2/2+y3/2)*(x3/2+x1/2)^2 + (y2/2+y3/2)*(y3/2+y1/2)^2)/(2*(-(x1/2+x2/2)*(y2/2+y3/2) + (x1/2+x2/2)*(y3/2+y1/2) + (y1/2+y2/2)*(x2/2+x3/2) - (y1/2+y2/2)*(x3/2+x1/2) - (x2/2+x3/2)*(y3/2+y1/2) + (y2/2+y3/2)*(x3/2+x1/2)))
q = -((x1/2+x2/2)^2*(-(x2/2+x3/2)) + (x1/2+x2/2)^2*(x3/2+x1/2) + (x1/2+x2/2)*(x2/2+x3/2)^2 + (x1/2+x2/2)*(y2/2+y3/2)^2 - (x1/2+x2/2)*(x3/2+x1/2)^2 - (x1/2+x2/2)*(y3/2+y1/2)^2 - (y1/2+y2/2)^2*(x2/2+x3/2) + (y1/2+y2/2)^2*(x3/2+x1/2) - (x2/2+x3/2)^2*(x3/2+x1/2) + (x2/2+x3/2)*(x3/2+x1/2)^2 + (x2/2+x3/2)*(y3/2+y1/2)^2 - (y2/2+y3/2)^2*(x3/2+x1/2))/(2*(-(x1/2+x2/2)*(y2/2+y3/2) + (x1/2+x2/2)*(y3/2+y1/2) + (y1/2+y2/2)*(x2/2+x3/2) - (y1/2+y2/2)*(x3/2+x1/2) - (x2/2+x3/2)*(y3/2+y1/2) + (y2/2+y3/2)*(x3/2+x1/2)))
Ce=p+1i*q
r=abs((x1/2+x2/2)+1i*a2=(y1/2+y2/2)-Ce)
c(Center=Ce,Radius=r)
} nine_point_circle=\(x1,y1,x2,y2,x3,y3){
x9 = ((x1/2+x2/2)^2*(-(y2/2+y3/2)) + (x1/2+x2/2)^2*(y3/2+y1/2) - (y1/2+y2/2)^2*(y2/2+y3/2) + (y1/2+y2/2)^2*(y3/2+y1/2) + (y1/2+y2/2)*(x2/2+x3/2)^2 + (y1/2+y2/2)*(y2/2+y3/2)^2 - (y1/2+y2/2)*(x3/2+x1/2)^2 - (y1/2+y2/2)*(y3/2+y1/2)^2 - (x2/2+x3/2)^2*(y3/2+y1/2) - (y2/2+y3/2)^2*(y3/2+y1/2) + (y2/2+y3/2)*(x3/2+x1/2)^2 + (y2/2+y3/2)*(y3/2+y1/2)^2)/(2*(-(x1/2+x2/2)*(y2/2+y3/2) + (x1/2+x2/2)*(y3/2+y1/2) + (y1/2+y2/2)*(x2/2+x3/2) - (y1/2+y2/2)*(x3/2+x1/2) - (x2/2+x3/2)*(y3/2+y1/2) + (y2/2+y3/2)*(x3/2+x1/2)))
y9 = -((x1/2+x2/2)^2*(-(x2/2+x3/2)) + (x1/2+x2/2)^2*(x3/2+x1/2) + (x1/2+x2/2)*(x2/2+x3/2)^2 + (x1/2+x2/2)*(y2/2+y3/2)^2 - (x1/2+x2/2)*(x3/2+x1/2)^2 - (x1/2+x2/2)*(y3/2+y1/2)^2 - (y1/2+y2/2)^2*(x2/2+x3/2) + (y1/2+y2/2)^2*(x3/2+x1/2) - (x2/2+x3/2)^2*(x3/2+x1/2) + (x2/2+x3/2)*(x3/2+x1/2)^2 + (x2/2+x3/2)*(y3/2+y1/2)^2 - (y2/2+y3/2)^2*(x3/2+x1/2))/(2*(-(x1/2+x2/2)*(y2/2+y3/2) + (x1/2+x2/2)*(y3/2+y1/2) + (y1/2+y2/2)*(x2/2+x3/2) - (y1/2+y2/2)*(x3/2+x1/2) - (x2/2+x3/2)*(y3/2+y1/2) + (y2/2+y3/2)*(x3/2+x1/2)))
Ce=x9+1i*y9
r=abs((x1/2+x2/2)+1i*(y1/2+y2/2)-Ce)
list(Center=c(x9,y9),Radius=Re(r))
}
nine_point_circle(3.375,4.960784,0,0,4,0) 545：１３２人目の素数さん：[sage]：2023/07/11(火) 15:35:42.62 ID:C1KEbgrH
尿瓶ジジイ>>543の学歴がホントだと思う人誰か庇ってあげてw
東大卒だというイナさん含めとうとう誰も庇ってくれなかったね
これでスレ住民全員に庇う価値のないチンパンだと思われてるということが証明されてしまったね
そう、尿瓶ジジイが好きな証明がw 東大卒なら東大合格者を羨む必要もないし、
医科歯科以上の格上大学の卒なら医科歯科卒を羨む必要もない。
そういうことだよ。 Outcircle <- \(a1,a2,b1,b2,c1,c2){
o1 = (a1^2*(b2-c2) + a2^2*(b2-c2) + a2*(-b1^2-b2^2+c1^2+c2^2)+
b1^2*c2+b2^2*c2-b2*c1^2-b2*c2^2)/(2*(a1*(b2-c2)+a2*(c1-b1)+b1*c2-b2*c1))
o2 = (a1^2*(c1-b1)+a1*(b1^2+b2^2-c1^2-c2^2)+a2^2*(c1-b1)-b1^2*c1+b1*c1^2+b1*c2^2-
b2^2*c1)/(2*(a1*(b2-c2)+ a2*(c1-b1)+ b1*c2- b2*c1))
(c(a1,a2)-c(o1,o2))^2 |> sum() |> sqrt() -> radius
list(Center=c(o1,o2),Radius=radius)
} nine_point_circle <- \(x1,y1,x2,y2,x3,y3){
x9 = ((x1/2+x2/2)^2*(-(y2/2+y3/2)) + (x1/2+x2/2)^2*(y3/2+y1/2) - (y1/2+y2/2)^2*(y2/2+y3/2) + (y1/2+y2/2)^2*(y3/2+y1/2) + (y1/2+y2/2)*(x2/2+x3/2)^2 + (y1/2+y2/2)*(y2/2+y3/2)^2 - (y1/2+y2/2)*(x3/2+x1/2)^2 - (y1/2+y2/2)*(y3/2+y1/2)^2 - (x2/2+x3/2)^2*(y3/2+y1/2) - (y2/2+y3/2)^2*(y3/2+y1/2) + (y2/2+y3/2)*(x3/2+x1/2)^2 + (y2/2+y3/2)*(y3/2+y1/2)^2)/(2*(-(x1/2+x2/2)*(y2/2+y3/2) + (x1/2+x2/2)*(y3/2+y1/2) + (y1/2+y2/2)*(x2/2+x3/2) - (y1/2+y2/2)*(x3/2+x1/2) - (x2/2+x3/2)*(y3/2+y1/2) + (y2/2+y3/2)*(x3/2+x1/2)))
y9 = -((x1/2+x2/2)^2*(-(x2/2+x3/2)) + (x1/2+x2/2)^2*(x3/2+x1/2) + (x1/2+x2/2)*(x2/2+x3/2)^2 + (x1/2+x2/2)*(y2/2+y3/2)^2 - (x1/2+x2/2)*(x3/2+x1/2)^2 - (x1/2+x2/2)*(y3/2+y1/2)^2 - (y1/2+y2/2)^2*(x2/2+x3/2) + (y1/2+y2/2)^2*(x3/2+x1/2) - (x2/2+x3/2)^2*(x3/2+x1/2) + (x2/2+x3/2)*(x3/2+x1/2)^2 + (x2/2+x3/2)*(y3/2+y1/2)^2 - (y2/2+y3/2)^2*(x3/2+x1/2))/(2*(-(x1/2+x2/2)*(y2/2+y3/2) + (x1/2+x2/2)*(y3/2+y1/2) + (y1/2+y2/2)*(x2/2+x3/2) - (y1/2+y2/2)*(x3/2+x1/2) - (x2/2+x3/2)*(y3/2+y1/2) + (y2/2+y3/2)*(x3/2+x1/2)))
Ce=x9+1i*y9
r=abs((x1/2+x2/2)+1i*(y1/2+y2/2)-Ce)
list(Center=c(x9,y9),Radius=Re(r))
} Fermat_Point <- \(a1,a2,b1,b2,c1,c2){
bac <- \(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(bac)
}
intsect <- \(a,b,c,d){
a1=Re(a) ; a2=Im(a)
b1=Re(b) ; b2=Im(b)
c1=Re(c) ; c2=Im(c)
d1=Re(d) ; d2=Im(d)
if((a2-b2)*(c1-d1)==(a1-b1)*(c2-d2) | (a-b)*(c-d)==0) return(NULL)
if(a1==b1 & c1!=d1) return( a1+1i*((d2-c2)/(d1-c1)*(a1-c1)+c2) )
if(a1!=b1 & c1==d1) return( c1+1i*((a2-b2)/(a1-b1)*(c1-a1)+a2) )
p=(a2-b2)/(a1-b1)
q=(c2-d2)/(c1-d1)
x= ((p*a1 - a2) - (q*c1 - c2))/ (p-q)
y= p*x - (p*a1 - a2)
return( x + 1i*y )
}
in3 <- \(P,A,B,C){
opc=\(a,b) Re(a)*Im(b)-Im(a)*Re(b)
sum(opc(B-A,P-A)>0,opc(C-B,P-B)>0,opc(P-A,C-A)>0)%%3==0
} A=a1+1i*a2
B=b1+1i*b2
C=c1+1i*c2
d=c(bac(A,B,C) > (2/3)*pi,bac(B,C,A) > (2/3)*pi, bac(C,A,B) > (2/3)*pi)
if(any(d)){FP=c(B,C,A)[d]
}else{
C1=(A-B)*exp(1i*pi/3)+B
B1=(C-A)*exp(1i*pi/3)+A
fp=intsect(C,C1,B,B1)
if(in3(fp,A,B,C)) FP=fp
C1=(A-B)*exp(-1i*pi/3)+B
B1=(C-A)*exp(-1i*pi/3)+A
fp=intsect(C,C1,B,B1)
if(in3(fp,A,B,C)) FP=fp
}
return(list(FermatPoint=c(Re(FP),Im(FP)),Length=abs(FP-A)+abs(FP-B)+abs(FP-C)))
} tric <- function(a1,a2,b1,b2,c1,c2){ # ３点を通る円の中心と半径を返す
p = (a1^2*(-b2) + a1^2*c2 - a2^2*b2 + a2^2*c2 + a2*b1^2 + a2*b2^2 - a2*c1^2 - a2*c2^2 - b1^2*c2 - b2^2*c2 + b2*c1^2 + b2*c2^2)/(2*(-a1*b2 + a1*c2 + a2*b1 - a2*c1 - b1*c2 + b2*c1))
q = -(a1^2*(-b1) + a1^2*c1 + a1*b1^2 + a1*b2^2 - a1*c1^2 - a1*c2^2 - a2^2*b1 + a2^2*c1 - b1^2*c1 + b1*c1^2 + b1*c2^2 - b2^2*c1)/(2*(-a1*b2 + a1*c2 + a2*b1 - a2*c1 - b1*c2 + b2*c1))
Ce=p+1i*q
r=abs(a1+1i*a2-Ce)
list(Center=c(p,q),Radius=r)
}
p1=Outcircle(x1,y1,x2,y2,x3,y3)[[1]]
p2=nine_point_circle(x1,y1,x2,y2,x3,y3)[[1]]
p3=Fermat_Point(x1,y1,x2,y2,x3,y3)[[1]]
tric(p1[1],p1[2],p2[1],p2[2],p3[1],p3[2])
} レスター円の計算、括弧対応だけでも目がチカチカするな。
Wolframにsimplifyさせようとしたけど、長すぎて受け付けてくれなかった。 じゃあご自慢の卒業証書と医師免許をどうぞ
それができないから発狂してるみたいだがw >>446
胆汁ドレナージなんて医者だったら出てこないんだよマヌケ
脳内丸出しなのに自分の中ではブラックジャックのつもりなのか？
ただのウンコ製造機だろ現実は 717：１３２人目の素数さん：2023/07/15(土) 15:31:32.01 ID:LoYxjpMT
>>713
定義されるが、３頂点となす角は120°にはならん。
逆に内角120°以上の頂点がある場合は、最小値の探索などせずともその頂点がフェルマー点。
そんな簡単なことすらわからないのが、プログラム土方の限界なんだよ。
フェルマー点を最小値探索で数値的に求めるなんて、あんたみたいな馬鹿のやることだよｗ
>>714
単なる書き間違いを鬼のクビをとったように騒いで恥ずかしくないのか？
俺が書いたわけではないが、よほどの馬鹿でなければ、「3頂点となす
角が120°だとなぜ和が最小になるか」って意味だと推測できるだろ。
ほんとどうしようもない馬鹿だな、あんたｗ
やっぱり東大不合格の偽医者だろｗ
数学板のキチガイからすらこの言われようw "
宇宙空間に惑星A,B,Cがあり、惑星間の距離の比はBC:CA:AB=4:5:6である。
A,B,Cの質量比は7:8:9である。惑星B,Cの座標をB(0,0),C(4,0)とする。
惑星A,B,Cとの引力の総和が最小になるように三角形ABC内に人工衛星を配置したい。
人工衛星を配置する座標を求めよ、有効数字3桁でよい。
尚、惑星や人工衛星の大きさは考慮しない。
https://i.imgur.com/AAWjEhv.png
"
rm(list=ls())
source('toolmini.R')
a=4
b=5
c=6
ma=7
mb=8
mc=9
ABC=abc2ABC(a,b,c)
Plot(0,6,zero=F)
A=ABC[1]
B=ABC[2]
C=ABC[3]
pt(A,paste0('A(',ma,')'))
pt(B,paste0('B(',mb,')'))
pt(C,paste0('C(',mc,')'))
Polygon(A,B,C,Col=8)
pt(A/2+B/2,c)
pt(A/2+C/2,b)
pt(B/2+C/2,a)
par0=c(mean(Re(c(A,B,C))),mean(Im(c(A,B,C))))
f=\(xy){
x=xy[1]
y=xy[2]
P=x+1i*y
if(in3(P,A,B,C)){
return(ma/abs(P-A)^2 + mb/abs(P-B)^2 + mc/abs(P-C)^2)
}else{
return(NA)
}
}
opt=optim(par0,f)
opt
P=opt$par[1]+1i*opt$par[2] "
配置された後に人工衛星は惑星A,B,Cの引力が相殺される点に移動してしまった。
移動後の人工衛星の座標を求めよ。有効数字3桁でよい。
"
# 引力の和が相殺される点
h=\(xy){
x=xy[1]
y=xy[2]
P=x+1i*y
if(in3(P,A,B,C)){
return(abs(ma/abs(A-P)^2*(A-P)
+ mb/abs(B-P)^2*(B-P)
+ mc/abs(C-P)^2*(C-P))
)
}else{
return(NA)
}
}
opt=optim(par0,h)
opt
R=opt$par[1]+1i*opt$par[2]
pt(R,'●') "
宇宙空間に惑星A,B,Cがあり、惑星間の距離の比はBC:CA:AB=4:5:6である。
A,B,Cの質量比は7:8:9である。惑星B,Cの座標をB(0,0),C(4,0)とする。
惑星A,B,Cとの引力の総和が最小になるように三角形ABC内に人工衛星を配置したい。
人工衛星を配置する座標を求めよ、有効数字3桁でよい。
尚、惑星や人工衛星の大きさは考慮しない。
https://i.imgur.com/AAWjEhv.png
"
rm(list=ls())
source('toolmini.R')
a=4
b=5
c=6
ma=7
mb=8
mc=9
ABC=abc2ABC(a,b,c)
Plot(0,6,zero=F)
A=ABC[1]
B=ABC[2]
C=ABC[3]
pt(A,paste0('A(',ma,')'))
pt(B,paste0('B(',mb,')'))
pt(C,paste0('C(',mc,')'))
Polygon(A,B,C,Col=8)
pt(A/2+B/2,c)
pt(A/2+C/2,b)
pt(B/2+C/2,a)
par0=c(mean(Re(c(A,B,C))),mean(Im(c(A,B,C))))
f=\(xy){
x=xy[1]
y=xy[2]
P=x+1i*y
if(in3(P,A,B,C)){
return(ma/abs(P-A)^2 + mb/abs(P-B)^2 + mc/abs(P-C)^2)
}else{
return(NA)
}
}
opt=optim(par0,f)
opt
P=opt$par[1]+1i*opt$par[2] # 座標A,B,Cを通る平面の方程式
ABC2Eq=\(A,B,C){
v=pracma::cross(B-A,C-A)
# a(x-x0)+b(y-y0)+c(z-z0)=0
a=v[1]
b=v[2]
c=v[3]
d=-a*A[1]-b*A[2]-c*A[3]
cat('ax+by+cz+d=0\n')
c(a=a,b=b,c=c,d=d)
} >>491
妬んでるのはアンタだろw
聞かれてもないのに自称学歴を語ってアホさ加減に違うだろと言ったら発狂する >>493
東大合格通知のコピーを父親がファイリングしてくれていたよ。 A=c(2,0,2)
B=c(3,0,7)
C=c(1,6,1)
ma=1
mb=2
mc=4
ABC=rbind(A,B,C)
ABC |> dist() -> di
AB=di[1]
BC=di[3]
CA=di[2]
ABC2Eq=\(A,B,C){
v=pracma::cross(B-A,C-A)
a=v[1]
b=v[2]
c=v[3]
d=-a*A[1]-b*A[2]-c*A[3]
c(a,b,c,d)
}
abcd=ABC2Eq(A,B,C)
a=abcd[1]
b=abcd[2]
c=abcd[3]
d=abcd[4] f=\(xy){
if(c==0){return(NA)
}else{
ss=\(x) sum(x^2)
x=xy[1]
y=xy[2]
z=(-d-a*x-b*y)/c
P=c(x,y,z)
((P-A)*ma/ss(P-A) + (P-B)*mb/ss(P-B) + (P-C)*mc/ss(P-C)) |> ss()
}}
opt=optim(colMeans(ABC)[1:2],f)
x=opt$par[1]
y=opt$par[2]
z=(-d-a*x-b*y)/c
c(x,y,z) A(2,0,2)
B(3,0,7)
C(1,6,0)
の座標に惑星があり、質量比は1:2:4である。
A,B,Cの作る平面上の点で３つの惑星からの引力のベクトル和が０になる点の座標を求めよ。
惑星の大きさは考慮しないでよい。有効数字3桁で答えよ。 >>494
で、卒業証書と医師免許はどこにあんだよ？
アンタの脳内か？ 尿瓶ジジイ、あまりのアホさ加減に素人からも脳内医者扱いされるw a=rep(1:6,2)
sim=\() (sample(a)[1:4] |> unique() |> length()) == 2
replicate(1e5,sim()) |> mean() a=rep(1:6,2)
sim=\() (sample(a)[1:4] |> unique() |> length()) == 2
replicate(1e6,sim()) |> mean() 男８人女４人を６個のツインルームに無作為に割り当てる。
男女混合の部屋ができない確率を求めよ。
a=rep(1:6,2)
sim1=\() (sample(a)[1:4] |> unique() |> length()) == 2
k=1e6
replicate(k,sim1()) |> mean()
b=rep(0:1,c(8,4))
sim2=\() (diff(sample(b))[c(1,3,5,7,9,11)]==0) |> all()
replicate(k,sim2()) |> mean() library(RcppAlgos)
pm=permuteGeneral(v=0:1,freqs=c(8,4))
f=\(x) (diff(x)[c(1,3,5,7,9,11)]==0) |> all()
apply(pm,1,f) |> mean() BC c1-b1 c2-b2
BP p1-b1 p2-b2
BA a1-b1 a2-b2
BC%o%BP (c1-b1)*(p2-b2) - (c2-b2)*(p2-b2)
BP%o%BA (p1-b1)*(a2-b2) - (p2-b2)*(a1-b1)
inner3 = \(p1,p2,a1,a2,b1,b2,c1,c2){
((c1-b1)*(p2-b2) - (c2-b2)*(p2-b2)) * ((p1-b1)*(a2-b2) - (p2-b2)*(a1-b1)) > 0
&
((a1-c1)*(p2-c2) - (a2-c2)*(p2-c2)) * ((p1-c1)*(b2-c2) - (p2-c2)*(b1-c1)) > 0
} library(RcppAlgos)
pm=permuteGeneral(v=0:1,freqs=c(8,4))
f=\(x) (diff(x)[c(1,3,5,7,9,11)]==0) |> all()
apply(pm,1,f) |> mean() inner3 = \(p1,p2,a1,a2,b1,b2,c1,c2){
((b1-a1)*(p2-a2)-(b2-a2)*(p1-a1))*((c1-b1)*(p2-b2)-(c2-b2)*(p1-b1))>0 &
((c1-b1)*(p2-b2)-(c2-b2)*(p1-b1))*((p1-a1)*(c2-a2)-(p2-a2)*(c1-a1))>0
}
inner3(0.3,0.1,0,0,4,0,4,3)
inner3(1,2,0,0,4,0,4,3)
#((b1-a1)*(p2-a2)-(b2-a2)*(p1-a1))
#((c1-b1)*(p2-b2)-(c2-b2)*(p1-b1))
#((p1-a1)*(c2-a2)-(p2-a2)*(c1-a1)) 収束時期のシミュレーションなら可能。
SEIRモデルで有病率を１％に固定して、集団のサイズを変化させてシミュレーションしてみたけどピークは変わらないな。
このモデルでは集会規模の大小には影響されないということになるな。
https://i.imgur.com/343K91V.png
有病率を変化させて流行の変遷をグラフにすると、
https://i.imgur.com/SZ15LKT.png
https://i.imgur.com/gnJVFnd.png
有病率を４０％くらいに引き上げるとオリンピックのときには流行が収束していることになるw 点Pと三角形ABCの座標が
P(p1,p2) A(a1,a2) B(b1,b2) C(c1,c2)
であるとき
Pが三角形ABCの内部にあれば真、そうでなければ偽となる命題を座標を用いて表わせ。
inner3 = \(p1,p2,a1,a2,b1,b2,c1,c2){
((b1-a1)*(p2-a2)-(b2-a2)*(p1-a1))*((c1-b1)*(p2-b2)-(c2-b2)*(p1-b1))>0 &
((c1-b1)*(p2-b2)-(c2-b2)*(p1-b1))*((p1-a1)*(c2-a2)-(p2-a2)*(c1-a1))>0
}
inner3(0.3,0.1,0,0,4,0,4,3)
inner3(1,2,0,0,4,0,4,3)
Inner3 = \(p1,p2,a1,a2,b1,b2,c1,c2){
(
((b1-a1)*(p2-a2)-(b2-a2)*(p1-a1))>0 &
((c1-b1)*(p2-b2)-(c2-b2)*(p1-b1))>0 &
((p1-a1)*(c2-a2)-(p2-a2)*(c1-a1))>0 )|
(
((b1-a1)*(p2-a2)-(b2-a2)*(p1-a1)) <0 &
((c1-b1)*(p2-b2)-(c2-b2)*(p1-b1)) <0 &
((p1-a1)*(c2-a2)-(p2-a2)*(c1-a1)) <0 )
}
Inner3(0.3,0.1,0,0,4,0,4,3)
Inner3(1,2,0,0,4,0,4,3) おい尿瓶ジジイ
素人にすら偽医者とか言われてバカにされるのがそんなに楽しいか？w > a=sqrt(2)
> a^2
[1] 2
> a^2-2
[1] 4.440892e-16
> a^2==2
[1] FALSE install.packages("Rcpp", dependencies = TRUE, INSTALL_opts = '--no-lock') The easiest way to avoid this issue is before installing any package run the line below
options("install.lock"=FALSE) >>518
おい尿瓶ジジイ
いつになったら医師免許と卒業証書出せるんだよ？ バカすぎて高校生からも脳内学歴扱いだね尿瓶ジジイw in4 = \(P,A,B,C,D){
f =\(P,A,B,C){
cross = \(x,y) c(x[2]*y[3]-x[3]*y[2],x[3]*y[1]-x[1]*y[3],x[1]*y[2]-x[2]*y[1])
v=cross(B-A,C-A)
a=v[1]
b=v[2]
c=v[3]
d=-a*A[1]-b*A[2]-c*A[3]
sum(v*P) + d
}
f(P,A,B,C)*f(D,A,B,C)>0 &
f(P,B,C,D)*f(A,B,C,D)>0 &
f(P,C,D,A)*f(B,C,D,A)>0 &
f(P,D,A,B)*f(C,D,A,B)>0
} A=c(1,1,1)
B=c(1,-1,-1)
C=c(-1,1,-1)
D=c(-1,-1,1)
ABCD=rbind(A,B,C,D)
open3d()
plot3d(ABCD,xlab='x',ylab='y',zlab='z',type='n',aspect = 1,
xlim=c(-2,2),ylim=c(-2,2),zlim=c(-2,2))
points3d(ABCD[1,],size=3,col=4)
points3d(ABCD[2,],size=3,col=4)
points3d(ABCD[3,],size=3,col=4)
points3d(ABCD[4,],size=3,col=4)
segments3d(ABCD[c(1,2),],col=4)
segments3d(ABCD[c(1,3),],col=4)
segments3d(ABCD[c(1,4),],col=4)
segments3d(ABCD[c(2,3),],col=4)
segments3d(ABCD[c(2,4),],col=4)
segments3d(ABCD[c(3,4),],col=4)
sim=\(){
P=runif(3,-2,2)
if(in4(P,A,B,C,D)){
points3d(P,size=1,col='black')
}else{
# points3d(P,col='red')
}
}
del=replicate(5e4,sim()) 俺は理Iを蹴って医科歯科に言った口だけど。
医科歯科を蹴って慶応に入学した医師がいても
医科歯科合格の証拠を出せとか言わないな。
東大合格通知の画像を出せとかいう輩って、東大もしくは国立を落ちたのだろうと憶測。 >>519
んで、どこの国立を落ちたの？
シリツ卒なんだろ？ >>523
あんたがアホすぎてそれしか証明しようがないからだろw 誰も相手にしてないからこそ医者板じゃここでしか発狂できないんだろうけどなw
高校生にすらバカにされる始末だし 直径６ｃｍのシリコンカップ
グラニュー糖小さじ３
水小さじ１
カップをペーパーで覆って電子レンジ６００W１分３０秒
追加の水や熱湯はなし rm(list=ls())
A=c(-2,0,0)
B=c(2,1,1)
f=\(P){
dist(rbind(P,A))+dist(rbind(P,B))
}
sim=\(){
th=runif(1,-pi,pi)
x=runif(1)*cos(th)
y=runif(1)*sin(th)
z=runif(1,0,2)
f(c(x,y,z))
}
d=replicate(1e6,sim())
max(d)
g=\(){
x=runif(1)
y=runif(1)
if(x^2+y^2>1){return(0)
}else{
z=runif(1,0,2)
return(f(c(x,y,z)))
}
}
r=replicate(1e6,g())
BEST::plotPost(r) h=\(th,z){
if(abs(th)>pi | z<0 | 2<z) r=0
else{
r=f(c(cos(th),sin(th),z))
}
return(r)
}
h=Vectorize(h)
optim(c(runif(1,-pi,pi),runif(1,0,2)), \(x) h(x[1],x[2]),control = list(fnscale=-1))
h(-pi/2,2) おい尿瓶ジジイ
いつになったら医師免許と卒業証書出すんだよハゲ 平面上の4点A,B,C,Dが存在している。
Aから反時計回りにのこりの3点を線分で結んだときに凸四角形ができるようにする
in3 <- \(P,A,B,C){
opc <- \(a,b) Re(a)*Im(b)-Im(a)*Re(b)
sum(opc(B-A,P-A)>0,opc(C-B,P-B)>0,opc(P-A,C-A)>0)%%3==0
}
is.concave=\(A,B,C,D){
c(in3(A,B,C,D),in3(B,C,D,A),in3(C,D,A,B),in3(D,A,B,C)) |> any()
}
Do =\(){
sq=cbind(runif(4),runif(4))
sq=round(sq,2)
A=sq[1,1]+1i*sq[1,2]
B=sq[2,1]+1i*sq[2,2]
C=sq[3,1]+1i*sq[3,2]
D=sq[4,1]+1i*sq[4,2]
ABCD=c(A,B,C,D)
G=mean(ABCD)
if(is.concave(A,B,C,D)){
par(mfrow=c(2,2))
Plot(0,1,zero=FALSE) ; pta(A) ; pta(B) ; pta(C) ; pta(D) ; pt(G,'.')
Plot(0,1,zero=FALSE) ; pta(A) ; pta(B) ; pta(C) ; pta(D) ; pt(G,'.')
Polygon(A,B,C,D)
Plot(0,1,zero=FALSE) ; pta(A) ; pta(B) ; pta(C) ; pta(D) ; pt(G,'.')
Polygon(A,C,B,D,Col=2)
Plot(0,1,zero=FALSE) ; pta(A) ; pta(B) ; pta(C) ; pta(D) ; pt(G,'.')
Polygon(A,B,D,C,Col=3)
}else{
layout(1)
Arg(ABCD-G) |> order() -> ord
tmp=c(ord,ord)
i=which(tmp==1)[1]
ord=tmp[i:(i+3)]
cat(LETTERS[ord],'\n')
Plot(0,1,zero=FALSE) ; pta(A) ; pta(B) ; pta(C) ; pta(D) ; pt(G,'.')
Polygon(ABCD[ord])
}
invisible(ABCD)
}
(Do()) >>528
俺は二期校最後の年の受験だから
東大理Iと医科歯科を受験。
医科歯科の合格発表日が東大合格者の健康診断日より後だったので東大で健康診断を受けたよ。
んで、あんたはどこの国立を落ちたの？ >>534
あんた5chしかしてない脳内医者だろw Astrap <- \(pH,pCO2,HCO3){
e=1e-12
pH_l=7.36-e
pH_u=7.44+e
pCO2_l=36-e
pCO2_u=44+e
HCO3_l=22-e
HCO3_u=26+e
expected_CO2=NULL
expected_HCO3=NULL
status=NULL
HH =\(pCO2,HCO3,pK=6.1) round(pK+log10(HCO3/(pCO2*0.03)),2) # Henderson-Hasselbalch
if(pH_l<pH & pH<pH_u){
if(pCO2>pCO2_u){
primary="mixed respiratory acidosis"
additional="and metabolic alkalosis"
}
if(pCO2<pCO2_l){
primary="mixed respiratory alkalosis"
additional="and metabolic acidosis"
}
}
if(pCO2_l<pCO2 & pCO2<pCO2_u){
if(pH>pH_u){
primary="mixed metaboic alkalosis"
additional="and respiratory acidosis"
}
if(pH<pH_l){
primary="mixed metabolic acidosis"
additional="and respiratory alkalosis"
}
} if(pH<pH_l & pCO2<pCO2_l){
primary="primary metabolic acidosis"
expected_pCO2=40 + 1.2*(HCO3-24)
if(pCO2<expected_pCO2) additional= "secondary respiratory alkalosis"
if(pCO2>expected_pCO2) additional= "secondary respiratory acidosis"
expected_pH=HH(expected_pCO2,HCO3)
}
if(pH>pH_u & pCO2>pCO2_u){
primary="primary metabolic alkalosis"
expected_pCO2=40 + 0.7*(HCO3-24)
if(pCO2<expected_pCO2) additional= "secondary respiratory alkalosis"
if(pCO2>expected_pCO2) additional= "secondary respiratory acidosis"
expected_pH=HH(expected_pCO2,HCO3)
}
if(pH<pH_l & pCO2>pCO2_u){
primary="primary respiratory aciosis"
if(HCO3_l<HCO3 & HCO3<HCO3_u) status="acute" else status="chronic"
if(status=="acute") expected_HCO3=24+0.1*(pCO2-40)
if(status=="chronic") expected_HCO3=24+0.4*(pCO2-40)
if(HCO3<expected_HCO3) additional="incomplete renal response"
if(HCO3>expected_HCO3) additional="secondary metabolic alkalosis"
expected_pH=HH(pCO2,expected_HCO3)
}
if(pH>pH_u & pCO2<pCO2_l){
primary="primary respiratory alkalosis"
if(HCO3_l<HCO3 & HCO3<HCO3_u) status="acute" else status="chronic"
if(status=="acute") expected_HCO3=24+0.2*(pCO2-40)
if(status=="chronic") expected_HCO3=24+0.4*(pCO2-40)
if(HCO3<expected_HCO3) additional="secondary metabolic acidosis"
if(HCO3>expected_HCO3) additional="incomplete renal response"
expected_pH=HH(pCO2,expected_HCO3)
}
cat(status,primary,'\n')
cat(additional,'\n\n')
if(!is.null(expected_CO2)|!is.null(expected_HCO3)){
return(c(expected_CO2=expected_CO2,expected_HCO3=expected_HCO3,expected_pH=expected_pH))
}
} パソコンだとクラウド上のファイルをgrepして必要なファイルを取り出すのは簡単だけど、
スマホだと面倒。ローカルに置くと場所を取るし。
有用なファイルはwebで公開しておくと、他の人も流用できるし、
自分で探すのも楽で( ・∀・)ｲｲ!! 医師板だのと行数制限小さいので
動脈血ガス分析のスクリプトは１レスでは投稿できないのが不便。 >>535
月曜日は祝日だったので内視鏡バイトなしだった。
明日はEGD11件の予定。
俺は理Iを蹴って医科歯科に言った口だけど。
医科歯科を蹴って慶応に入学した医師がいても
あっそう、程度にしか思わんな。医科歯科合格の証拠を出せとか言わないね。
東大卒業していたら東大蹴って他大学に行ったという人がいてもなんとも思わんだろうに。
んで、どこの国立を落ちたの？ >>538
あんたはどこの国立を落ちたの？
にはダンマリかよ？ >>543
尿瓶ジジイの脳内学歴()に受けるもクソもないだろタコw >>542
そこまで言うなら医科歯科の卒業証書と医師免許さっさと出せよ
なんで出せないんだ？ >>545
あんたがアップロードする番だぞ。
俺は手間をかけて東大合格通知のコピー画像をアップロードしたぞ。
どこの国立を落ちたの？ >>538
あんたはどこの国立を落ちたの？
にはダンマリかよ？ >>547
全部上げない限り脳内学歴の脳内医者でいいのか？
そういう結論になったから医者板の他のスレで発狂できなくなったんだろ？ 東大合格通知って健康診断の受診票を兼ねていた。
大きさはハガキ大で公印すら押されていなくてありがたみがなかった。 >>548
んで、どこの国立を落ちたの？
にはだんまりかよ？
東大合格通知の書式すら知らなかったから
東大非合格は確定しているが。
シリツ卒なんだろ？
母校に誇りはないのかよ？？ >>545
どこの国立を落ちたの？に何で答えられないんだ？ tetragon <- function(A=NULL,B=NULL,C=NULL,D=NULL,print=TRUE){
in3 <- function(P,A,B,C){
opc <- function(a,b) Re(a)*Im(b)-Im(a)*Re(b)
sum(opc(B-A,P-A)>0,opc(C-B,P-B)>0,opc(P-A,C-A)>0)%%3==0
}
A=ifelse(is.null(A),runif(1)+1i*runif(1),A)
B=ifelse(is.null(B),runif(1)+1i*runif(1),B)
C=ifelse(is.null(C),runif(1)+1i*runif(1),C)
D=ifelse(is.null(D),runif(1)+1i*runif(1),D)
if(print){
par(mfrow=c(2,3))
Plot(0,1,axes=FALSE,zero=FALSE)
pt(A,'A') ; pt(B,'B') ; pt(C,'C') ; pt(D,'D')
Polygon(A,B,C,D,Col=8)
Polygon(0,1,1+1i,1i)
Plot(0,1,axes=FALSE,zero=FALSE)
pt(A,'A') ; pt(B,'B') ; pt(C,'C') ; pt(D,'D')
Polygon(A,B,D,C,Col=2)
Polygon(0,1,1+1i,1i)
Plot(0,1,axes=FALSE,zero=FALSE)
pt(A,'A') ; pt(B,'B') ; pt(C,'C') ; pt(D,'D')
Polygon(A,C,B,D,Col=3)
Polygon(0,1,1+1i,1i)
Plot(0,1,axes=FALSE,zero=FALSE)
pt(A,'A') ; pt(B,'B') ; pt(C,'C') ; pt(D,'D')
Polygon(A,C,D,B,Col=4)
Polygon(0,1,1+1i,1i)
Plot(0,1,axes=FALSE,zero=FALSE)
pt(A,'A') ; pt(B,'B') ; pt(C,'C') ; pt(D,'D')
Polygon(A,D,B,C,Col=5)
Polygon(0,1,1+1i,1i)
Plot(0,1,axes=FALSE,zero=FALSE)
pt(A,'A') ; pt(B,'B') ; pt(C,'C') ; pt(D,'D')
Polygon(A,D,C,B,Col=6)
Polygon(0,1,1+1i,1i)
layout(1)
} if(any(c(in3(A,B,C,D),in3(B,C,D,A),in3(C,D,A,B),in3(D,A,B,C)))){
ABCD=ADCB=ABC2S(A,B,C)+ABC2S(A,C,D)
ABDC=ACDB=ABC2S(A,B,C)+ABC2S(B,D,C)
ACBD=ADBC=ABC2S(A,C,D)+ABC2S(C,B,D)
if(print){
print(data.frame(ABCD=ABCD,ABDC=ABDC,ACBD=ACBD))
print(data.frame(ADCB=ADCB,ACDB=ACDB,ADBC=ADBC))}
invisible(c(ABCD,ABDC,ACBD))
}else{
v=c(A,B,C,D)
m=mean(v)
i=order(Arg(v-m))
S=ABC2S(v[i[1]],v[i[2]],v[i[3]]) +
ABC2S(v[i[3]],v[i[4]],v[i[1]])
re=LETTERS[i]
re2=rep(re,2)
j=min(which(re2=='A'))
ir=order(Arg(v-m),decreasing = TRUE)
rer=LETTERS[ir]
rer2=rep(rer,2)
jr=min(which(rer2=='A'))
lang=str2lang(paste0('data.frame(',paste0(re2[j:(j+3)],collapse=''),'=S)'))
if(print) print(eval(lang))
langr=str2lang(paste0('data.frame(',paste0(rer2[jr:(jr+3)],collapse=''),'=S)'))
if(print) print(eval(langr))
invisible(S)
}
}
L=10
k=1e5
replicate(k,L^2*tetragon(print=FALSE) |> max()) -> S
hist(S)
mean(S>1/4*L^2)
mean(S)
median(S) > replicate(k,tetragon(print=FALSE)|>length()) -> len
> mean(len==1)
[1] 0.694586 おい尿瓶クソジジイ
さっさと卒業証書と医師免許出せや 識者の尿瓶チンパポンコツフェチへの評価
61 １３２人目の素数さん sage 2023/07/21(金) 19:18:29.80 ID:KcuTGlEs
>>57
お前が一番の馬鹿だよ
相手しなけりゃいいのに、お前自身が1日だけで30以上も書き込みして、余計にこのスレが腐っていく
純粋に高校数学の話だけをしなさい 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() 子曰、
高校数学の質問スレ Part430
http://rio2016.5ch.net/test/read.cgi/math/1689726231/61
61 名前：１３２人目の素数さん[sage] 投稿日：2023/07/21(金) 19:18:29.80 ID:KcuTGlEs
>>57
お前が一番の馬鹿だよ
相手しなけりゃいいのに、お前自身が1日だけで30以上も書き込みして、余計にこのスレが腐っていく
純粋に高校数学の話だけをしなさい 自分の気に食わないレスは全員同じに見える病気みたいだね
尿瓶ジジイもいちいち発狂してる分際でw 尿瓶ジジイ、ウクライナの首都を間違えたことを指摘されて発狂中ww 東大合格者から国立不合格者へのありがたい助言がこれ！
高校数学の質問スレ Part430
http://rio2016.5ch.net/test/read.cgi/math/1689726231/61
61 名前：１３２人目の素数さん[sage] 投稿日：2023/07/21(金) 19:18:29.80 ID:KcuTGlEs
>>57
お前が一番の馬鹿だよ
相手しなけりゃいいのに、お前自身が1日だけで30以上も書き込みして、余計にこのスレが腐っていく
純粋に高校数学の話だけをしなさい s=c('東京','35.681382','139.76608399999998',
'有楽町','35.675069','139.763328',
'新橋','35.665498','139.75964',
'浜松町','35.655646','139.756749',
'田町','35.645736','139.74757499999998',
'高輪ゲートウェイ','35.6355406','139.7407245',
'品川','35.630152','139.74044000000004',
'大崎','35.6197','139.72855300000003',
'五反田','35.626446','139.72344399999997',
'目黒','35.633998','139.715828',
'恵比寿','35.64669','139.710106',
'渋谷','35.658517','139.70133399999997',
'原宿','35.670168','139.70268699999997',
'代々木','35.683061','139.702042',
'新宿','35.690921','139.70025799999996',
'新大久保','35.701306','139.70004399999993',
'高田馬場','35.712285','139.70378200000005',
'目白','35.721204','139.706587',
'池袋','35.728926','139.71038',
'大塚','35.731401','139.72866199999999',
'巣鴨','35.733492','139.73934499999996',
'駒込','35.736489','139.74687500000005',
'田端','35.738062','139.76085999999998',
'西日暮里','35.732135','139.76678700000002',
'日暮里','35.727772','139.770987',
'鶯谷','35.720495','139.77883700000007',
'上野','35.713768','139.77725399999997',
'御徒町','35.707438','139.774632',
'秋葉原','35.698683','139.77421900000002',
'神田','35.69169','139.77088300000003') mat=matrix(s,ncol=3,by=TRUE)
mat[,2] |> as.numeric() -> lat
lat=round(lat,4)
mat[,3] |> as.numeric() -> lon
lon=round(lon,4)
df=data.frame(station=mat[,1],lat=lat,lon=lon)
d=cbind(lat,lon)
d
Hubeny=\(ai,ak,bi,bk){
u=pi/180
Dy=(ai-bi)*u
Dx=(ak-bk)*u
P=(ai/2+bi/2)*u
Rx=6378.137 # 長半径（赤道半径）
Ry=6356.752314245 # 長半径(極半径)
f=1/298.257223563 # 扁平率 （Rx-Ry)/Rx
E2=(Rx^2-Ry^2)/Rx^2 # 離心率^2
W=sqrt(1-E2*sin(P)^2)
M=Rx*(1-E2)/W^3 # 子午線曲率半径
N=Rx/W # 卯酉線曲率半径
D=sqrt((Dy*M)^2 + (Dx*N*cos(P))^2)
D
}
f=\(xy){
ans=0
for(i in 1:nrow(d)){
ans=ans+Hubeny(xy[1],xy[2],d[i,1],d[i,2])
}
ans
}
opt=optim(colMeans(d),f)
opt$par 道具箱に追加しておこう。
緯度・経度がらみの計算に使えそう。
# 緯度経度から楕円地球上の距離を計算
Hubeny=\(ai,ak,bi,bk){# ai:A地点の緯度 ak:A地点の経度
u=pi/180
Dy=(ai-bi)*u
Dx=(ak-bk)*u
P=(ai/2+bi/2)*u
Rx=6378.137 # 長半径（赤道半径）
Ry=6356.752314245 # 長半径(極半径)
f=1/298.257223563 # 扁平率 （Rx-Ry)/Rx
E2=(Rx^2-Ry^2)/Rx^2 # 離心率^2
W=sqrt(1-E2*sin(P)^2)
M=Rx*(1-E2)/W^3 # 子午線曲率半径
N=Rx/W # 卯酉線曲率半径
D=sqrt((Dy*M)^2 + (Dx*N*cos(P))^2)
D
} 東大合格者から国立不合格者へのありがたい助言がこれ！
高校数学の質問スレ Part430
http://rio2016.5ch.net/test/read.cgi/math/1689726231/61
61 名前：１３２人目の素数さん[sage] 投稿日：2023/07/21(金) 19:18:29.80 ID:KcuTGlEs
>>57
お前が一番の馬鹿だよ
相手しなけりゃいいのに、お前自身が1日だけで30以上も書き込みして、余計にこのスレが腐っていく
純粋に高校数学の話だけをしなさい
＞お前が一番の馬鹿だよ
＞お前が一番の馬鹿だよ
＞お前が一番の馬鹿だよ
ですって、大切なことなので繰り返しましたｗ G7の首都と緯度経度は次の通りとする。
オタワ -カナダ 緯度: 45.4208, 経度: -75.690
パリ -フランス 緯度: 48.8032, 経度: 2.3511
ベルリン-ドイツ 緯度: 52.5186, 経度: 13.4081
ローマ -イタリア 緯度: 41.8905, 経度: 12.4942
東京 - 日本 緯度: 35.6894, 経度: 139.692
ロンドン-英国 緯度: 51.5072, 経度: -0.1275
ワシントン-米国 緯度: 38.9041, 経度: -77.0171
７カ国から集まるのに移動距離の総和が最小になる地点の緯度と経度を計算せよ。
その地点に最も近い国はどこか述べよ。 >>568
尿瓶ジジイって自分の気に食わないレス全員が同じに見える病気なんだなw 東大合格者から国立不合格者へのありがたい助言がこれ！
高校数学の質問スレ Part430
http://rio2016.5ch.net/test/read.cgi/math/1689726231/61
61 名前：１３２人目の素数さん[sage] 投稿日：2023/07/21(金) 19:18:29.80 ID:KcuTGlEs
>>57
お前が一番の馬鹿だよ
相手しなけりゃいいのに、お前自身が1日だけで30以上も書き込みして、余計にこのスレが腐っていく
純粋に高校数学の話だけをしなさい
＞お前が一番の馬鹿だよ
＞お前が一番の馬鹿だよ
＞お前が一番の馬鹿だよ ＞悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。
ですってｗｗｗ
＞当たり前だろ
＞当たり前だろ
＞当たり前だろ
とドヤ顔で大間違いを投稿！
抗パ剤を高パ剤と誤変換で投稿するのは単純ミスだが
抗ドーパミン薬と投稿するのはタイプミスでも誤変換でもないよな。 >>572
久しぶり見に来たらコイツまだコレ言ってるのかwww
頭悪いお前にはこれしか言えることないもんな
これもわざとtypoしたって論破されてるのにwwwジメジメした性格してて本当気持ち悪い奴だよお前は
統合失調症はまだ治らんのか？ 現在は下手に突っ込まれないようここでお得意の脳内医療ネタ()もろくに書き込めず数学板で高校生相手に発狂してはバカにされるの繰り返し、憂さ晴らしにここでコピペで発狂といった具合w ＞悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。
ですってｗｗｗ
＞当たり前だろ
＞当たり前だろ
＞当たり前だろ
とドヤ顔で大間違いを投稿！ 尿瓶ジジイは気に食わないレスは全員同じに見える病気にかかっていて全く煽りになってないことに気づかないホームラン級のバカw 替え歌荒らしにすら偽医者だのクズ呼ばわりされる始末w APIMateR apimater:https://{$host}/test/read.cgi/{$bbs}/{$key}/{$host[match:\.([25]ch\.net|bbspink\.com)$]} 東大合格者から国立不合格者へのありがたい助言がこれ！
高校数学の質問スレ Part430
http://rio2016.5ch.net/test/read.cgi/math/1689726231/61
61 名前：１３２人目の素数さん[sage] 投稿日：2023/07/21(金) 19:18:29.80 ID:KcuTGlEs
>>57
お前が一番の馬鹿だよ
相手しなけりゃいいのに、お前自身が1日だけで30以上も書き込みして、余計にこのスレが腐っていく
純粋に高校数学の話だけをしなさい
＞お前が一番の馬鹿だよ
＞お前が一番の馬鹿だよ
＞お前が一番の馬鹿だよ >>580
コイツが何で東大合格者だと思うんだよ
全く根拠ないだろ
というか、この替え歌君にボコボコにされて悔しかったのか？www
ボコボコにされた相手にはコピペで対抗
いかにも頭の弱いお前の発想だよ
ちなみに一番の馬鹿はお前だぞwww 救急搬送と新入院でインセンティブ4.5諭吉。
久々に両側にGGOのあるコロナ肺炎のCTをみた。 pH7.40
pCO2 40.7
HCO3 25.4
Na 161
Cl 118
Alb 3.4
BUN 64
Glucose 436
Mixed metabolic acidosis and metabolic alkalosis with increased anion gap
Na-Cl- HCO3 = 17.6
2Na+BUN/2.8+Glucose/18=369 # Analysis of metabolic acidosis
metabolic_acidosis = \(Na,Cl,HCO3,Alb){
AG=Na-Cl-HCO3
AGc=AG+2.5*(4.5-Alb) # albumin_corrected_anion_Gap 4.5g/dL
gap_gap=(AGc-12)/(24-HCO3) # AGc Excess/HCO3 Defecit : Gap/Gap Ratio
if(AGc<=12) return("norma AG(hyperchloremic) metabolic acidosis")
if(AGc>12 & gap_gap<1) co_existence='norma AG(hyperchloremic) metabolic acidosis'
if(AGc>12 & gap_gap>1) co_existence='metabolic alkalosis'
return(paste("co_existence :",co_existence))
}
metabolic_acidosis(Na=140,Cl=105,HCO3=24,Alb=4.5)
metabolic_acidosis(Na=140,Cl=105,HCO3=24,Alb=3) >>584
こういう、無駄に略語使うとこが素人臭いんだよなwww
意味がわかって使ってないだろ？
だからいつも突っ込まれるんだぞ 胆汁ドレナージで素人バレバレなのでw
というか医療事務じゃないと出てこないw 言い返せないとしばらくダンマリ決め込んでコピペで発狂
死ぬまで続ける気か？ 胆汁ドレナージは普通に使うが。
こういうことを言う医師はまともではないね。
＞悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。
ですってｗｗｗ
＞当たり前だろ
＞当たり前だろ
＞当たり前だろ
とドヤ顔で大間違いを投稿！ 救急当番と内視鏡バイトで２０諭吉ゲット！
コロナの救急搬送が立て続けで忙しかった。 これより恥ずかしい投稿を医師板ではみたことがない。
＞悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。
ですってｗｗｗ
＞当たり前だろ
＞当たり前だろ
＞当たり前だろ
とドヤ顔で大間違い！！ >>593
胆汁ドレナージなんて言ってるほうがよっぽど恥ずかしいよ
脳内だから自覚ないと思うけどw 尿瓶ジジイ、突っ込まれるのが怖いからか前より脳内医療ネタ()は短文w >>591
胆汁ドレナージは普通には使わねぇよ
さらっと嘘つくなwww
本当にゴミだな
お前、周りから粘着質でキモいって思われてるぞ間違いなく >>596
使うよ。
AstrapもMDLも普通に使う。
Homan鈎のフランス後読みは上級者のみ使う。
こういうことは下衆でも言わない。
＞悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。
ですってｗｗｗ
＞当たり前だろ
＞当たり前だろ
＞当たり前だろ
とドヤ顔で大間違いを投稿！ 昔の投稿も見ることができて便利。神アプリだな。
11 １３２人目の素数さん sage 2020/03/10(火) 12:10:41.22 ID:H1fx2jVB
"
SEIR MODEL
dS(t)/dt = mu*(N-S) - b*S(t)*I(t)/N - nu*S(t)
dE(t)/dt = b*S(t)I(t)/N - (mu+sig)*E(t)
dI(t)/dt = sig*E(t) - (mu+g)*I(t)
dR(t)/dt = g*I(t) - mu*R + nu*S(t)
mu:自然死亡率 b:感染率(S->I)
nu:ワクチン有効率(S->R) sig:発症率(E->I),g:回復率(I->R)
"
SEIRモデルのパラメータ
SEIR2 <- function(
# Parameters
contact_rate = 10, # number of contacts per day
transmission_probability = 0.01, # transmission probability
beta = contact_rate * transmission_probability, # tranmission rate
infectious_period = 20, # infectious period
gamma = 1 / infectious_period, # Prob[infected -> recovered]
latent_period = 5, # latent perior
sigma = 1/latent_period, # The rate at which an exposed person becomes infective
mu = 0, # The natural mortality rate
nu = 0 , # vaccination moves people from susceptible to resistant directly, without becoming exposed or infected.
Ro = beta/gamma, # Ro - Reproductive number.
# Initial values for sub-populations.
s = 99, # susceptible hosts
e = 0, # exposed hosts
i = 1, # infectious hosts
r = 0, # recovered hosts
# Compute total population.
N = s + i + r + e,
# Output timepoints.
timepoints = seq (0, 365, by=0.5),
...
)
有病率を１％とすると、3000人にクルーズ船でも100人の屋形船でも感染者のピークは変わらないな。
同一時間あたりのcontact_rateとtransmission_probabilityが宴会での方が高いからだろうな。
パラメータを変えてグラフを書いてみた。
https://i.imgur.com/hCfBTyc.png >>597
認めたくないだろうけど使いませんw
胆汁ドレナージなんて言ってる時点で脳内医者確定なんだよなw >>597
じゃあなんで教科書でもGoogleでも胆汁ドレナージが出てこないんだよタコ
ソース出せよ ＞悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。
ですってｗｗｗ
＞当たり前だろ
＞当たり前だろ
＞当たり前だろ
とドヤ顔で大間違いを投稿！ 抗ドーパミン薬の意味が分かってないのはアンタだろw >>602
お前は認めたくないんだろうが>>327で、すでに論破している
これを反論出来ずに永遠とコピペを繰り返すのは負けてることを認めたくないから、レスの物量で誤魔化そうとしてるか
もしくは、どういう意味か理解出来てないからだろwww
個人的には統合失調症で、考えがまとめられないからだと思うが
見えない敵が見えてるのか俺がスレ覗いていない時も永遠とコピペ続けてたよな？やっぱお前は、統合失調症だよ。医者の俺が言うんだから間違いないよ 尿瓶ジジイ高校生相手には吠えまくってるのにここではダンマリかよ "
楕円 x^2/a^2+y^2/b^2=1が通る格子点の座標を返してグラフ化する。
"
rm(list=ls())
source('toolmini.R')
'%=%' <- function(x,y) abs(x-y) < .Machine$double.eps^0.5
ellatice =\(a,b,print=FALSE){
ecl=\(x,y) (x/a)^2 + (y/b)^2
A=ceiling(a)
B=ceiling(b)
g=as.matrix(expand.grid(-A:A,-B:B))
i=which(apply(g,1,\(z) ecl(z[1],z[2])) %=% 1)
ans=g[i,]
rownames(ans)=NULL
colnames(ans)=c('x','y')
if(print){
Plot(-A,A,-B,B)
points(g,cex=0.5)
Ellip(0i,a,b,col=8)
points(ans,col='red',pch=16)
}
return(list(ans,nrow(ans)))
}
f=\(a,b){
ans=ellatice(a,b)
ans[[1]] |> as.vector() |> prod() !=0
}
f=Vectorize(f)
outer(1:1000,1000,f) |> sum()
ellatice(sqrt(360),sqrt(24),print=TRUE) >>600
小児外科医が使っていたと同業者が投稿していたな。
こういうことは下衆でも言わない。
＞悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。
ですってｗｗｗ
＞当たり前だろ
＞当たり前だろ
＞当たり前だろ
とドヤ顔で大間違いを投稿！ >>605
わざとtypo?恥ずかしい！！！
>>362
ちなみに、抗ドーパミン薬って書いたのも
わざとだよw
少し付け入る隙を与えてやらんとお前の頭悪すぎて、急に黙り込むからな
それでも、気づくのに5日かかったわけだがw
他に何か脳内医療自慢出来ないの？お前を馬鹿にするのがこのスレの趣旨なんだから
無い頭ふり絞ってもう少し頑張れよwww ＞悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。
ですってｗｗｗ
＞当たり前だろ
＞当たり前だろ
＞当たり前だろ
とドヤ顔で大間違いを投稿！ '%=%' <- function(x,y) abs(x-y) < .Machine$double.eps^0.5
ellatice =\(a,b,dx,dy,print=FALSE){
ecl=\(x,y,dx,dy) ((x+dx)/a)^2 + ((y+dy)/b)^2
A=ceiling(a)+1
B=ceiling(b)+1
g=as.matrix(expand.grid(-A:A,-B:B))
i=which(apply(g,1,\(z) ecl(z[1],z[2],dx,dy)) %=% 1)
ans=g[i,]
rownames(ans)=NULL
colnames(ans)=c('x','y')
if(print){
Plot(-A,A,-B,B)
points(g,cex=0.5)
ellip(dx,dy,a,b,col=8)
points(ans,col='red',pch=16)
}
return(list(ans,nrow(ans)))
}
ellatice(2,4,0,0,print=T)
ellatice(sqrt(360),sqrt(24),0,0,print=T)
flowerfrog <- \(a,b){
flg <- ellatice(a,b,0,0)[[2]]!=0
if(flg) ellatice(a,b,0,0,print=TRUE)
while(flg){
dx=runif(1,-1,1)
dy=runif(1,-1,1)
flg <- ellatice(a,b,dx,dy)[[2]]!=0
}
ellip(dx,dy,a,b,col='blue',lwd=2)
return(c(dx,dy))
}
flowerfrog(sqrt(360),sqrt(24))
flowerfrog(5,4) >>609
コメントが「恥ずかしい！」だけかよ
結局、反論出来ないんだろwww
これ以上何か言っても馬鹿晒すだけだぞ
本当に頭悪いんだな
偏差値30ぐらいと奴でも、もう少しちゃんとした反論出来るぞ
それより、サンドラマランって何なの？ちゃんと解説してくれよwww東大合格者なんだろ？ ＞悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。
ですってｗｗｗ
＞当たり前だろ
＞当たり前だろ
＞当たり前だろ
とドヤ顔で大間違いを投稿！
typoだと言ったり、
わざと間違えたと言ったり、
恥ずかしくね？ 高校生にも偽医者とか言われてる尿瓶ジジイのほうが恥ずかしいから安心してw >>615
恥ずかしいわけないだろ、お前を馬鹿にするためにわざとやってんだからwww
これだけ、言っても理解出来ないの？
まあ、頭悪くて他に反論出来ないからこんな書き込みが出来るんだろうな
コピペしか出来ないお前の方がよっぽど恥ずかしいわ！www
んで、結局サンドラマランは無視か？
Syndrome malinをサンドラマランとかドヤ顔で書いたら俺なら恥ずかしくて自殺しちゃうかもなwww rm(list=ls())
source('toolmini.R')
library(RcppAlgos)
library(rgl)
ABC=abc2ABC(5,6,4)
A=ABC[1]
B=ABC[2]
C=ABC[3]
Plot(0,6)
pta(A)
pta(B)
pta(C)
Polygon(A,B,C)
A=c(Re(A),Im(A),0)
B=c(Re(B),Im(B),0)
C=c(Re(C),Im(C),0)
pm=permuteGeneral(c(7,8,9),3)
f=\(D,X) rbind(D,X) |> dist()
for(i in 1:6){
fn=\(D) (f(D,A)-pm[i,1])^2 + (f(D,B)-pm[i,2])^2 + (f(D,C)-pm[i,3])^2
optim(c(1,4,7),fn,method='L')$par |> print()
}
i=1
fn=\(D) (f(D,A)-pm[i,1])^2 + (f(D,B)-pm[i,2])^2 + (f(D,C)-pm[i,3])^2
optim(c(1,4,7),fn,method='L')$par |> print() source('toolmini.R')
library(RcppAlgos)
library(rgl)
ABC=abc2ABC(5,6,4)
A=ABC[1]
B=ABC[2]
C=ABC[3]
Plot(0,6)
pta(A)
pta(B)
pta(C)
Polygon(A,B,C)
A=c(Re(A),Im(A),0)
B=c(Re(B),Im(B),0)
C=c(Re(C),Im(C),0)
pm=permuteGeneral(c(7,8,9),3)
f=\(D,X) rbind(D,X) |> dist()
ans=NULL
for(i in 1:6){
fn=\(D) (f(D,A)-pm[i,1])^2 + (f(D,B)-pm[i,2])^2 + (f(D,C)-pm[i,3])^2
ans=rbind(ans,optim(c(1,4,7),fn,method='L')$par)
}
ans
for(i in 1:6){
ABCD2V(A,B,C,ans[i,]) |> print()
}
i=1
fn=\(D) (f(D,A)-pm[i,1])^2 + (f(D,B)-pm[i,2])^2 + (f(D,C)-pm[i,3])^2
D=optim(c(1,4,7),fn,method='L')$par
D
ABCD2V(A,B,C,D)
V=rbind(D,A,B,C)
plot3d(V,type='n',col=2,size=1,xlab='x',ylab='y',zlab='z')
for(i in 1:4) points3d(V[i,],col=i,size=8)
connect <- function(x) segments3d(rbind(V[x[1],],V[x[2],]),col=8,lwd=2)
combn(4,2,connect)
Play3d(10) 尿瓶ジジイさんざん発狂してたのにもう何も言えないのかw 大納言60g＋水400mL 圧力(豆料理5分)+保温15分 rm(list=ls())
# 底面:△ABC頂点:Dの三角錐の辺の長さからDの座標と体積を求める
# Bを原点,BCをx軸とする
# ヘロンの公式の四面体版
abcd2ABCD=\(AB,BC,CA,DA,DB,DC){
c=AB
a=BC
b=CA
p=DA
q=DB
r=DC
st=c*exp(1i*acos((c^2+a^2-b^2)/(2*c*a)))
s=Re(st)
t=Im(st)
x0=(a^2+q^2-r^2)/(2*a)
P= p^2-(x0-s)^2
Q=q^2-x0^2
y0=(-P+Q+t^2)/(2*t)
z0=sqrt(Q-(-P+Q+t^2)^2/(4*t^2))
D=c(x0,y0,z0)
A=c(s,t,0)
B=c(0,0,0)
C=c(BC,0,0)
v=rbind(A,B,C,D)
Vol=abs(det(rbind(v[1,]-v[4,],v[2,]-v[4,],v[3,]-v[4,])))/6
list(D=D,Vol=Vol)
}
abcd2ABCD(AB=8,BC=5,CA=7,DA=5,DB=7,DC=8)
abcd2ABCD(3,4,5,6,7,8)
abcd2ABCD(4,5,6,7,8,9) 三角形を形成しない数値が与えられたときのエラー処理を追加
# 底面:△ABC頂点:Dの三角錐の辺の長さからDの座標と体積を求める
# Bを原点,BCをx軸とする
abcd2ABCD=\(AB,BC,CA,DA,DB,DC){
c=AB
a=BC
b=CA
p=DA
q=DB
r=DC
abc=sort(c(a,b,c))
if(sum(abc[1:2])<=abc[3]) return(NA)
st=c*exp(1i*acos((c^2+a^2-b^2)/(2*c*a)))
s=Re(st)
t=Im(st)
x0=(a^2+q^2-r^2)/(2*a)
P= p^2-(x0-s)^2
Q=q^2-x0^2
y0=(-P+Q+t^2)/(2*t)
if(Q-(-P+Q+t^2)^2/(4*t^2)<0) return(NA)
z0=sqrt(Q-(-P+Q+t^2)^2/(4*t^2))
D=c(x0,y0,z0)
A=c(s,t,0)
B=c(0,0,0)
C=c(BC,0,0)
v=rbind(A,B,C,D)
Vol=abs(det(rbind(v[1,]-v[4,],v[2,]-v[4,],v[3,]-v[4,])))/6
list(D=D,Vol=Vol)
} 直径6cmのシリコン製容器
グラニュー糖15mL
水5mL
突沸飛散防止にペーパーでカバー
電子レンジ600Wで90秒
100秒でビターカラメル 表面積計算と３D画像作成機能を追加。
abcd2ABCD=\(AB,BC,CA,DA,DB,DC,print=FALSE){
c=AB
a=BC
b=CA
p=DA
q=DB
r=DC
abc=sort(c(a,b,c))
if(sum(abc[1:2])<=abc[3]) return(NA)
st=c*exp(1i*acos((c^2+a^2-b^2)/(2*c*a)))
s=Re(st)
t=Im(st)
x0=(a^2+q^2-r^2)/(2*a)
P= p^2-(x0-s)^2
Q=q^2-x0^2
y0=(-P+Q+t^2)/(2*t)
if(Q-(-P+Q+t^2)^2/(4*t^2)<0) return(NA)
z0=sqrt(Q-(-P+Q+t^2)^2/(4*t^2))
D=c(x0,y0,z0)
A=c(s,t,0)
B=c(0,0,0)
C=c(a,0,0)
v=rbind(A,B,C,D)
Vol=abs(det(rbind(v[1,]-v[4,],v[2,]-v[4,],v[3,]-v[4,])))/6
ABC2S3d=\(A,B,C){
cross<-function(x,y)c(x[2]*y[3]-x[3]*y[2],x[3]*y[1]-x[1]*y[3],x[1]*y[2]-x[2]*y[1])
sqrt(sum(cross(A-C,B-C)^2))/2
}
S=ABC2S3d(A,B,C)+ABC2S3d(B,C,D)+ABC2S3d(C,D,A)+ABC2S3d(D,A,B)
if(print){
library(rgl)
open3d()
plot3d(v,type='n',col=2,size=1,xlab='x',ylab='y',zlab='z')
for(i in 1:4) points3d(v[i,],col=i,size=8)
connect <- function(x) segments3d(rbind(v[x[1],],v[x[2],]),col=8,lwd=2)
combn(4,2,connect)
}
return(list(D=D,Vol=Vol,S=S))
} 904：卵の名無しさん：[sage]：2023/07/26(水) 19:44:23.02 ID:31kfz9Dh
243：１３２人目の素数さん：[sage]：2023/07/25(火) 19:35:19.66 ID:hrc4XW/3
6つの辺の長さが3,4,5,6,7,8である四面体は（ ア ）種類ある。
269：１３２人目の素数さん：[sage]：2023/07/26(水) 18:45:05.79 ID:sev74d4g
>>243
車輪の再発明の神のお告げによれば、39通り
274：１３２人目の素数さん：[sage]：2023/07/26(水) 19:22:12.39 ID:pzlYX2uz
鏡像を同じとみなすなら四面体の各辺に3〜8の数字をあてがう方法は30通りしかない
同じと見做さないなら答えは偶数
尿瓶赤っ恥w # 底面:△ABC頂点:Dの三角錐の辺の長さからDの座標,体積と表面積、底面積、高さを求める
# Bを原点,BCをx軸とする
abcd2ABCD=\(AB,BC,CA,DA,DB,DC,print=FALSE){
c=AB
a=BC
b=CA
p=DA
q=DB
r=DC
abc=sort(c(a,b,c))
if(sum(abc[1:2])<=abc[3]) return(NA)
st=c*exp(1i*acos((c^2+a^2-b^2)/(2*c*a)))
s=Re(st)
t=Im(st)
x0=(a^2+q^2-r^2)/(2*a)
P= p^2-(x0-s)^2
Q=q^2-x0^2
y0=(-P+Q+t^2)/(2*t)
if(Q-(-P+Q+t^2)^2/(4*t^2)<0) return(NA)
z0=sqrt(Q-(-P+Q+t^2)^2/(4*t^2))
D=c(x0,y0,z0)
A=c(s,t,0)
B=c(0,0,0)
C=c(a,0,0)
v=rbind(A,B,C,D)
Vol=abs(det(rbind(v[1,]-v[4,],v[2,]-v[4,],v[3,]-v[4,])))/6
ABC2S3d=\(A,B,C){
cross<-function(x,y)c(x[2]*y[3]-x[3]*y[2],x[3]*y[1]-x[1]*y[3],x[1]*y[2]-x[2]*y[1])
sqrt(sum(cross(A-C,B-C)^2))/2
}
S=ABC2S3d(A,B,C)+ABC2S3d(B,C,D)+ABC2S3d(C,D,A)+ABC2S3d(D,A,B)
ABC2S=\(A,B,C) abs(Im((A-C)*Conj(B-C)))/2
s=ABC2S(s+1i*t,0i,a+0i)
if(print){
library(rgl)
open3d()
plot3d(v,type='n',col=2,size=1,xlab='x',ylab='y',zlab='z')
for(i in 1:4) points3d(v[i,],col=i,size=8)
connect <- function(x) segments3d(rbind(v[x[1],],v[x[2],]),col=8,lwd=2)
combn(4,2,connect)
}
return(list(D=D,Vol=Vol,S=S,s=s,h=Vol/s/3))
} sides=2:7
pm=permuteGeneral(sides)
f=\(x){
ans=abcd2ABCD(x[1],x[2],x[3],x[4],x[5],x[6])
if(length(ans)==1) { return(NA)
}else{ return(ans$D[[3]])}
}
ans=apply(pm,1,f)
Ans=ans[!is.na(ans)]
summary(Ans)
imax=which(ans==max(Ans))
pm[imax,]
imin=which(ans==min(Ans))
pm[imin,]
Ans |> unique() |> length()
fn=\(x){
abcd2ABCD(x[1],x[2],x[3],x[4],x[5],x[6],print=TRUE)
}
fn(pm[imax[1],]) ; aspect3d('iso')
fn(pm[imax[nrow(pm[imax,])],]) ; aspect3d('iso')
fn(pm[imin[1],]) ; aspect3d('iso')
fn(pm[imin[nrow(pm[imin,])],]) ; aspect3d('iso') 朝飯前の問題
(1)長さが1,2,3,4,5,6の6本の線分を組み合わせて四面体は作れるか？
(2)長さが2,3,4,5,6,7の6本の線分を組み合わせて高さが最も大きくなるような四面体を作りたい。
そのときの高さを求めよ。小数点第3位まででよい。 Step 1: Assess the internal consistency of the values using the Henderseon-Hasselbach equation:
[H+]=24*PaCO2/[HCO3-]
If the pH and the [H+] are inconsistent, the ABG is probably not valid.
pH2nmol =\(pH) 10^(9-pH)
pH=seq(7.00,7.65,0.05)
cbind(pH,round(pH2nmol(pH))) > cbind(pH,round(pH2nmol(pH)))
pH
[1,] 7.00 100
[2,] 7.05 89
[3,] 7.10 79
[4,] 7.15 71
[5,] 7.20 63
[6,] 7.25 56
[7,] 7.30 50
[8,] 7.35 45
[9,] 7.40 40
[10,] 7.45 35
[11,] 7.50 32
[12,] 7.55 28
[13,] 7.60 25
[14,] 7.65 22 Step 3: Is the disturbance respiratory or metabolic?
What is the relationship between the direction of change in the pH and the direction of change in the PaCO2?
In primary respiratory disorders, the pH and PaCO2 change in opposite directions;
in metabolic disorders the pH and PaCO2 change in the same direction.
pH=7.27
pCO2=98.2
HCO3=44.9
ΔPaCO2=pCO2-40
ΔHCO3=HCO3-25
pH2nmol =\(pH) 10^(9-pH) # pH -> [H+] nmol/L
c('pH2[H+]'= pH2nmol(pH) , Henderseon_Hasselbach = 24*pCO2/HCO3)
primary_disorder=ifelse((pH-7.40)*(pCO2-40)>0,'metabolic','respiratory')
primary_disorder
Step 4: Is there appropriate compensation for the primary disturbance? Usually, compensation does not return the pH to normal (7.35 – 7.45). str=
c(
'Disorder','Expected compensation','Correction factor',
'Metabolic acidosis','PaCO2 = (1.5 x [HCO3-])+8','± 2',
'Acute respiratory acidosis','Increase in [HCO3-]= ∆ PaCO2/10','± 3',
'Chronic respiratory acidosis (3-5 days)','Increase in [HCO3-]= 3.5(∆ PaCO2/10)','',
'Metabolic alkalosis','Increase in PaCO2 = 40 + 0.6(∆HCO3-)','',
'Acute respiratory alkalosis','Decrease in [HCO3-]= 2(∆ PaCO2/10)','',
'Chronic respiratory alkalosis','Decrease in [HCO3-] = 5(∆ PaCO2/10) to 7(∆ PaCO2/10)',''
)
mat=matrix(str,ncol=3,by=T)
df=data.frame(mat[-1,])
colnames(df)=mat[1,]
pH=7.27
pCO2=98.2
HCO3=44.9
ΔPaCO2=pCO2-40
ΔHCO3=HCO3-25
expctd=c(
1.5*HCO3+8,
ΔPaCO2/10,
3.5*ΔPaCO2/10,
40+0.6*ΔHCO3,
2*ΔPaCO2/10,
6*ΔPaCO2/10 # c(5*(ΔPaCO2/10),7*(ΔPaCO2/10))
)
Expected_compensation=
c(
'PaCO2',
'Increase in [HCO3-]',
'Increase in [HCO3-]',
'Increase in PaCO2',
'Decrease in [HCO3-]',
'Decrease in [HCO3-]')
expctd_dat=data.frame(disorder=mat[2:7,1],Expected_compensation,expctd,value=c(expctd+c(0,25,25,40,25,25)))
expctd_dat
c(pH=7.27,
pCO2=98.2,
HCO3=44.9,
ΔPaCO2=pCO2-40,
ΔHCO3=HCO3-25)
If the observed compensation is not the expected compensation,
it is likely that more than one acid-base disorder is present. Step 5: Calculate the anion gap (if a metabolic acidosis exists):
AG= [Na+]-( [Cl-] + [HCO3-] )-12 ± 2
A normal anion gap is approximately 12 meq/L.
In patients with hypoalbuminemia, the normal anion gap is lower than 12 meq/L;
the “normal” anion gap in patients with hypoalbuminemia is
about 2.5 meq/L lower for each 1 gm/dL decrease in the plasma albumin concentration
(for example, a patient with a plasma albumin of 2.0 gm/dL would be approximately 7 meq/L.)
If the anion gap is elevated, consider calculating the osmolal gap in compatible clinical situations.
Elevation in AG is not explained by an obvious case (DKA, lactic acidosis, renal failure
Toxic ingestion is suspected
OSM gap = measured OSM – (2[Na+] - glucose/18 – BUN/2.8)
The OSM gap should be < 10
pH=7.40
pCO2=40.7
HCO3=25.4
Na=161
Cl=118
Alb=3.4
BUN=64
Glucose=436
Na-Cl-HCO3+2.5*(4.5-Alb)
metabolic_acidosis = \(Na,Cl,HCO3,Alb){
AG=Na-Cl-HCO3
AGc=AG+2.5*(4.5-Alb) # albumin_corrected_anion_Gap 4.5g/dL
gap_gap=(AGc-12)/(24-HCO3) # AGc Excess/HCO3 Defecit : Gap/Gap Ratio
if(AGc<=12) return("norma AG(hyperchloremic) metabolic acidosis")
if(AGc>12 & gap_gap<1) co_existence='norma AG(hyperchloremic) metabolic acidosis'
if(AGc>12 & gap_gap>2) co_existence='metabolic alkalosis'
return(paste("co_existence :",co_existence))
}
metabolic_acidosis(Na,Cl,HCO3,Alb) Step 6: If an increased anion gap is present, assess the relationship between
the increase in the anion gap and the decrease in [HCO3-].
Assess the ratio of the change in the anion gap (∆AG )
to the change in [HCO3-] (∆[HCO3-]) i.e. ∆AG/∆[HCO3-]
This ratio should be between 1.0 and 2.0
if an uncomplicated anion gap metabolic acidosis is present.
If this ratio falls outside of this range, then another metabolic disorder is present:
If ∆AG/∆[HCO3-] < 1.0,
then a concurrent non-anion gap metabolic acidosis is likely to be present.
If ∆AG/∆[HCO3-] > 2.0,
then a concurrent metabolic alkalosis is likely to be present.
It is important to remember what the expected “normal” anion gap for your patient should be,
by adjusting for hypoalbuminemia (see Step 5, above.) Step 3: Is the disturbance respiratory or metabolic?
What is the relationship between the direction of change in the pH and the direction of change in the PaCO2?
In primary respiratory disorders, the pH and PaCO2 change in opposite directions;
in metabolic disorders the pH and PaCO2 change in the same direction. ∆AG/∆[HCO3-]
This ratio should be between 1.0 and 2.0
これがMarioのICU Bookの記載と異なる点だな。
Astrap関数の数値を変えておこう。 HHSでのデータ
pH=7.40
pCO2=40.7
HCO3=25.4
Na=161
Cl=118
Alb=3.4
BUN=64
Glucose=436
> metabolic_acidosis(Na,Cl,HCO3,Alb)
[1] "co_existence : norma AG(hyperchloremic) metabolic acidosis"
ICU Bookの # Analysis of metabolic acidosis
metabolic_acidosis = \(Na,Cl,HCO3,Alb){
AG=Na-Cl-HCO3
AGc=AG+2.5*(4.5-Alb) # albumin_corrected_anion_Gap 4.5g/dL
gap_gap=(AGc-12)/(24-HCO3) # AGc Excess/HCO3 Defecit : Gap/Gap Ratio
if(AGc<=12 | 1<=gap_gap | gap_gap<=2) return("norma AG(hyperchloremic) metabolic acidosis")
if(AGc>12 & gap_gap<1) co_existence='norma AG(hyperchloremic) metabolic acidosis'
if(AGc>12 & gap_gap>2) co_existence='metabolic alkalosis'
return(paste("co_existence :",co_existence))
}
metabolic_acidosis(Na=140,Cl=105,HCO3=24,Alb=4.5)
metabolic_acidosis(Na=140,Cl=105,HCO3=24,Alb=3)
metabolic_acidosis(Na=161,Cl=118,HCO3=25.4,Alb=3.4) 尿瓶ジジイ、素人からも素人臭いと言われるw
323：１３２人目の素数さん：[sage]：2023/07/27(木) 20:23:10.61 ID:n4ZdqQfJ
>>320
残念なのは、都合の悪いことは全部スルーするお前のオツムだろ
臨床ネタとかいう表現も何か素人臭いし
同業者ってのもお前の自演なんじゃねーの 神のお告げとかいいながら速攻で間違いを指摘されてダンマリ決め込む尿瓶最高に傑作だわw ans=NULL
for(a in 100001:109999){
if((a^2-a) %%10000==0) ans=c(ans,a)
}
ans 三次方程式の数値解をRで算出する。
cubic_equation =\(a,b,c,d){ #ax³+bx²+cx+d=0
f1=\(x) gsub('^ ','',x)
f2=\(x) gsub(' = ','=',x)
f3=\(x) gsub(' \\+ ','\\+',x)
f4=\(x) gsub(' \\- ','\\-',x)
f5=\(x) gsub(' ','*',x)
f6=\(x) gsub('i','1i',x)
f7=\(x) gsub('^.=','',x)
str="a!=0, x = (sqrt((-27 a^2 d + 9 a b c - 2 b^3)^2 + 4 (3 a c - b^2)^3) - 27 a^2 d + 9 a b c - 2 b^3)^(1/3)/(3 2^(1/3) a) - (2^(1/3) (3 a c - b^2))/(3 a (sqrt((-27 a^2 d + 9 a b c - 2 b^3)^2 + 4 (3 a c - b^2)^3) - 27 a^2 d + 9 a b c - 2 b^3)^(1/3)) - b/(3 a)"
strsplit(str,',') |> unlist() -> str
str |> f1() |> f2() |> f3() |> f4() |> f5() |>f6() |> f7() -> x1
x1[2] |> str2lang() |> eval() -> x1
str="a!=0, x = -((1 - i sqrt(3)) (sqrt((-27 a^2 d + 9 a b c - 2 b^3)^2 + 4 (3 a c - b^2)^3) - 27 a^2 d + 9 a b c - 2 b^3)^(1/3))/(6 2^(1/3) a) + ((1 + i sqrt(3)) (3 a c - b^2))/(3 2^(2/3) a (sqrt((-27 a^2 d + 9 a b c - 2 b^3)^2 + 4 (3 a c - b^2)^3) - 27 a^2 d + 9 a b c - 2 b^3)^(1/3)) - b/(3 a)"
strsplit(str,',') |> unlist() -> str
str |> f1() |> f2() |> f3() |> f4() |> f5() |>f6() |> f7() -> x2
x2[2] |> str2lang() |> eval() -> x2
str="a!=0, x = -((1 + i sqrt(3)) (sqrt((-27 a^2 d + 9 a b c - 2 b^3)^2 + 4 (3 a c - b^2)^3) - 27 a^2 d + 9 a b c - 2 b^3)^(1/3))/(6 2^(1/3) a) + ((1 - i sqrt(3)) (3 a c - b^2))/(3 2^(2/3) a (sqrt((-27 a^2 d + 9 a b c - 2 b^3)^2 + 4 (3 a c - b^2)^3) - 27 a^2 d + 9 a b c - 2 b^3)^(1/3)) - b/(3 a)"
strsplit(str,',') |> unlist() -> str
str |> f1() |> f2() |> f3() |> f4() |> f5() |>f6() |> f7() -> x3
x3[2] |> str2lang() |> eval() -> x3
c(x1,x2,x3)
} Wolframの出力をRで使えるように変換する。
Wolfram2R =\(str,n){ # n : ｎ番目の変数
f1=\(x) gsub('^ ','',x)
f2=\(x) gsub(' = ','=',x)
f3=\(x) gsub(' \\+ ','\\+',x)
f4=\(x) gsub(' \\- ','\\-',x)
f5=\(x) gsub(' ','*',x)
f6=\(x) gsub('i','1i',x)
f7=\(x) gsub('^.=','',x)
strsplit(str,',') |> unlist() -> str
str |> f1() |> f2() |> f3() |> f4() |> f5() |>f6() |> f7() -> x
x[n] |> str2lang()
}
str="a!=0, x = (sqrt((-27 a^2 d + 9 a b c - 2 b^3)^2 + 4 (3 a c - b^2)^3) - 27 a^2 d + 9 a b c - 2 b^3)^(1/3)/(3 2^(1/3) a) - (2^(1/3) (3 a c - b^2))/(3 a (sqrt((-27 a^2 d + 9 a b c - 2 b^3)^2 + 4 (3 a c - b^2)^3) - 27 a^2 d + 9 a b c - 2 b^3)^(1/3)) - b/(3 a)"
Wolfram2R(str,2)
str="a!=0, x = -((1 - i sqrt(3)) (sqrt((-27 a^2 d + 9 a b c - 2 b^3)^2 + 4 (3 a c - b^2)^3) - 27 a^2 d + 9 a b c - 2 b^3)^(1/3))/(6 2^(1/3) a) + ((1 + i sqrt(3)) (3 a c - b^2))/(3 2^(2/3) a (sqrt((-27 a^2 d + 9 a b c - 2 b^3)^2 + 4 (3 a c - b^2)^3) - 27 a^2 d + 9 a b c - 2 b^3)^(1/3)) - b/(3 a)"
Wolfram2R(str,2)
str="a!=0, x = -((1 + i sqrt(3)) (sqrt((-27 a^2 d + 9 a b c - 2 b^3)^2 + 4 (3 a c - b^2)^3) - 27 a^2 d + 9 a b c - 2 b^3)^(1/3))/(6 2^(1/3) a) + ((1 - i sqrt(3)) (3 a c - b^2))/(3 2^(2/3) a (sqrt((-27 a^2 d + 9 a b c - 2 b^3)^2 + 4 (3 a c - b^2)^3) - 27 a^2 d + 9 a b c - 2 b^3)^(1/3)) - b/(3 a)"
Wolfram2R(str,2) OutCircle3d <- function(A,B,C){ # 三次元で三角形ABCの外心を返す
dot=function(x,y) sum(x*y)
sss=\(x) sqrt(sum(x^2))
a=sss(B-C)
b=sss(C-A)
c=sss(A-B)
cosA=dot(C-A,B-A)/(b*c)
cosB=dot(A-B,C-B)/(c*a)
cosC=dot(B-C,A-C)/(c*a)
center=(a*cosA*A+b*cosB*B+c*cosC*C)/(a*cosA+b*cosB+c*cosC)
radius=sss(center-A)
c(center=center,radius=radius)
}
A=c(1,2,3)
B=c(4,5,6)
C=c(3,2,1)
OutCircle3d(A,B,C) OutCircle3d <- function(A,B,C){ # 三次元で三角形ABCの外心を返す
dot=function(x,y) sum(x*y)
sss=\(x) sqrt(sum(x^2))
a=sss(B-C)
b=sss(C-A)
c=sss(A-B)
cosA=dot(C-A,B-A)/(b*c)
cosB=dot(A-B,C-B)/(c*a)
cosC=dot(B-C,A-C)/(c*a)
center=(a*cosA*A+b*cosB*B+c*cosC*C)/(a*cosA+b*cosB+c*cosC)
radius=sss(center-A)
c(x=center[1],y=center[2],z=center[3],radius=radius)
}
incircle3d = \(P,Q,R){ # 三次元で三角形ABCの内心を返す
sss=\(x) sqrt(sum(x^2))
p=sss(Q-R)
q=sss(R-P)
r=sss(P-Q)
s=(p+q+r)/2
S=sqrt(s*(s-p)*(s-q)*(s-r))
radius=S/s
center=(p*P+q*Q+r*R)/(p+q+r)
c(x=center[1],y=center[2],z=center[3],radius=radius)
}
Orthocenter3d=\(A,B,C){ # 三次元で三角形ABCの垂心を返す
bac3d=\(b,a,c){
ab=b-a
ac=c-a
dot=sum(ab*ac) # |ab|*|ac|*cos(θ) 内積
bac=acos(dot/sqrt(sum(ab^2))/sqrt(sum(ac^2)))
}
Aa=bac3d(B,A,C)
Ba=bac3d(C,B,A)
Ca=bac3d(A,C,B)
center=(tan(Aa)*A+tan(Ba)*B+tan(Ca)*C)/(tan(Aa)+tan(Ba)+tan(Ca))
c(x=center[1],y=center[2],z=center[3])
} excenter3d <- function(A,B,C){ # 三次元で三角形の頂点の座標から傍心の座標と傍心円の半径を返す
sss=\(x) sqrt(sum(x^2))
a=sss(B-C)
b=sss(C-A)
c=sss(A-B)
s=(a+b+c)/2
S=sqrt(s*(s-a)*(s-b)*(s-c))
excenters=c((-a*A+b*B+c*C)/(-a+b+c),(a*A-b*B+c*C)/(a-b+c),(a*A+b*B-c*C)/(a+b-c))
radii=c(2*S/(-a+b+c),2*S/(a-b+c),2*S/(a+b-c))
ans=cbind(matrix(excenters,ncol=3,byrow=TRUE),radii)
colnames(ans)=c('x','y','z','radius')
ans
} u=pi/180
Vega = c( (18+36/60+56.33635/3600)/24*360*u,(38+47/60+ 1.2802/3600)*u,25.04)
Altair = c( (19+50/60+46.99855/3600)/24*360*u,( 8+52/60+ 5.9563/3600)*u,16.73)
Deneb = c( (20+41/60+25.91514/3600)/24*360*u,(45+67/60+49.2197/3600)*u,1400 )
Stars=rbind(Vega,Altair,Deneb)
dat=cbind(Stars[,3],pi/2- Stars[,2],Stars[,3])
colnames(dat) = c('距離','天頂角','方位角')
dat
colnames(dat)=NULL
P2C=\(x){
r=x[1]
θ=x[2]
φ=x[3]
c(x=r*sin(θ)*cos(θ),y=r*sin(θ)*sin(φ),z=r*cos(θ))
}
data.P=t(apply(dat,1,P2C))
data.P
Oxyz=OutCircle3d(data.P[1,],data.P[2,],data.P[3]) ; Oxyz # 外心の直交座標、外接円半径
Ixyz=incircle3d(data.P[1,],data.P[2,],data.P[3]) ; Ixyz # 内心の直交座標、内接円半径
C2P=\(xyz){
x=xyz[1]
y=xyz[2]
z=xyz[3]
r=sqrt(x^2+y^2+z^2)
θ=acos(z/r)
φ=sign(y)*acos(x/sqrt(x^2+y^2))
c(距離=r,赤経=φ/u,赤緯=(pi/2-θ)/u)
}
C2P(Oxyz) # 外心の極座標
C2P(Ixyz) # 内心の極座標 夏の大三角を形成する星の諸元を以下の通りとする（Wikipediaより)
こと座のベガ（織姫星）
赤経 18h 36m 56.33635s
赤緯 +38° 47′ 01.2802″
距離 25.04 ± 0.07 光年
わし座のアルタイル（彦星）
赤経 19h 50m 46.99855
赤緯 +08° 52′ 05.9563″
距離 16.73 ± 0.05 光年
はくちょう座のデネブ
赤経 (RA, α) 20h 41m 25.91514s
赤緯 (Dec, δ) +45° 16′ 49.2197″
距離 約 1400 光年
問題
(1) 夏の大三角の外接円、内接円の半径を求めよ。
(2) 外心、内心の赤経、赤緯、距離を求めよ。 >>650-651
全然、医者板に相応しくない書き込みだな
その書き込みこんなとこで書いて何したいんだ？誰も答えるわけないと思うし
数学板でやってもらっていいっすか？ 389：１３２人目の素数さん：2023/07/29(土) 16:00:18.62 ID:mTiQ7rLF
>>384
バカすぎるわw
天文学的にみてもまったく無意味な問題のための問題。しかも有効数字が揃ってないという欠陥問題。
アホすぎて話にならん。
せめて球面三角の問題にするくらいの知恵すらないバカ。
尿瓶ジジイ、数学板でも素人丸出しの模様 >>651
替え歌荒らしにすらセンスないってバカにされてて草 # 移動i 経度k を 直交座標化
ik2xyz=\(i,k,r=1) r*c(cos(i)*cos(k),cos(i)*sin(k),sin(i))
# 緯度ai 経度ak と緯度bi 経度bkの間の球面上距離
ik2arc=\(ai,ak,bi,bk,R) R*acos(sum(ik2xyz(ai,ak,1)*ik2xyz(bi,bk,1))) # 移動i 経度k を直交座標化
ik2xyz=\(i,k,r=1) r*c(cos(i)*cos(k),cos(i)*sin(k),sin(i))
# 緯度ai 経度ak と緯度bi 経度bkの間の球面上距離
ik2arc=\(ai,ak,bi,bk,R=1) R*acos(sum(ik2xyz(ai,ak,1)*ik2xyz(bi,bk,1)))
US=c(47.15,-122.48)
RU=c(55.83,37.62)
CN=c(39.93,116.28)
# ミサイルの走行距離の和
missile=\(i,k){
ik2arc(i,k,US[1],US[2]) + ik2arc(i,k,CN[1],CN[2]) + ik2arc(i,k,CN[1],CN[2])
}
ARC=rbind(US,RU,CN)
missile(colMeans(ARC)[1],colMeans(ARC)[2])
optim(colMeans(ARC),\(ik) missile(ik[1],ik[2])) # 移動i 経度k を直交座標化
ik2xyz=\(i,k,r=1) r*c(cos(i)*cos(k),cos(i)*sin(k),sin(i))
# 緯度ai 経度ak と緯度bi 経度bkの間の球面上距離
ik2arc=\(ai,ak,bi,bk,R) R*acos(sum(ik2xyz(ai,ak,1)*ik2xyz(bi,bk,1)))
US=c(47.15,-122.48)
RU=c(55.83,37.62)
CN=c(39.93,116.28)
R=6378137
# ミサイルの走行距離の和
missile=\(i,k){
ik2arc(i,k,US[1],US[2],R) + ik2arc(i,k,CN[1],CN[2],R,) + ik2arc(i,k,CN[1],CN[2],R)
}
ARC=rbind(US,RU,CN)
# 平均値での値
missile(colMeans(ARC)[1],colMeans(ARC)[2],R)
# 平均値を初期値にNelder-Mead 法で探索
optim(colMeans(ARC),\(ik) missile(ik[1],ik[2])) # 移動i 経度k を直交座標化
ik2xyz=\(i,k,r=1) r*c(cos(i)*cos(k),cos(i)*sin(k),sin(i))
# 緯度ai 経度ak と緯度bi 経度bkの間の球面上距離
ik2arc=\(ai,ak,bi,bk,R) R*acos(sum(ik2xyz(ai,ak,1)*ik2xyz(bi,bk,1)))
US=c(47.15,-122.48)
RU=c(55.83,37.62)
CN=c(39.93,116.28)
R=6378137
# ミサイルの走行距離の和
missile=\(i,k){
ik2arc(i,k,US[1],US[2],R) + ik2arc(i,k,CN[1],CN[2],R,) + ik2arc(i,k,CN[1],CN[2],R)
}
ARC=rbind(US,RU,CN)
# 平均値での値
missile(colMeans(ARC)[1],colMeans(ARC)[2],R)
# 平均値を初期値にNelder-Mead 法で探索
optim(colMeans(ARC),\(ik) missile(ik[1],ik[2])) # 緯度i 経度k を直交座標化
ik2xyz=\(i,k,r=1) r*c(cos(i)*cos(k),cos(i)*sin(k),sin(i))
# 緯度ai 経度ak と緯度bi 経度bkの間の球面上距離
ik2arc=\(ai,ak,bi,bk,R) R*acos(sum(ik2xyz(ai,ak,1)*ik2xyz(bi,bk,1)))
US=c(47.15,-122.48)
RU=c(55.83,37.62)
CN=c(39.93,116.28)
R=6378137
# ミサイルの走行距離の和
missile=\(i,k){
ik2arc(i,k,US[1],US[2],R) + ik2arc(i,k,CN[1],CN[2],R,) + ik2arc(i,k,CN[1],CN[2],R)
}
ARC=rbind(US,RU,CN)
# 平均値での値
missile(colMeans(ARC)[1],colMeans(ARC)[2],R)
# 平均値を初期値にNelder-Mead 法で探索
optim(colMeans(ARC),\(ik) missile(ik[1],ik[2])) 地球を完全な球と仮定する。
仮想敵国の首都と緯度経度は以下の通りである。
ワシントン北緯47.15° 西経122.48°
モスクワ 北緯55.83° 東経37.62°
北京 北緯39.93° 東経116.28°
3つの首都を爆撃するためにミサイル基地を建設する。
(1) 3首都へのミサイルの飛行距離の総和が最小になる基地の緯度経度を求めよ。
(2) (1)で求めた基地はどこの国の領土かを答えよ。
ミサイルの飛行する高度は考慮しなくてよい。 # 緯度i 経度k を直交座標化
ik2xyz=\(i,k,r=1) r*c(cos(i)*cos(k),cos(i)*sin(k),sin(i))
# 緯度ai 経度ak と緯度bi 経度bkの間の球面上距離
ik2arc=\(ai,ak,bi,bk,R) R*acos(sum(ik2xyz(ai,ak,1)*ik2xyz(bi,bk,1)))
US=c(47.15,-122.48)
RU=c(55.83,37.62)
CN=c(39.93,116.28)
R=6378137
# ミサイルの走行距離の和
missile=\(i,k){
ik2arc(i,k,US[1],US[2],R) + ik2arc(i,k,CN[1],CN[2],R) + ik2arc(i,k,CN[1],CN[2],R)
}
ARC=rbind(US,RU,CN)
# 平均値を初期値にNelder-Mead 法で探索
optim(colMeans(ARC),\(ik) missile(ik[1],ik[2])) par
[1] 52.49637 15.74904
$value
[1] 5975135
$counts
function gradient
141 NA
$convergence
[1] 0
$message
NULL 尿瓶まだやってたのか
どうせ誰にも相手にされないのにw (ai,ak) -> (pi/2,0) -> (0,0,1)
(bi,bk) -> (pi/2-(ai-bi),bk-ak) -> sin(ai-bi)cos(bk-ak),sin(ai-bi)sin(bk-ak),cos(ai-bi)
(ci,ck) -> (pi/2-(ai-ci),ck-ak) -> sin(ai-ci)cos(ck-ak),sin(ai-ci)sin(ck-ak),cos(ai-ci)
(sin(ai-bi)cos(bk-ak)sin(ai-ci)cos(ck-ak)+sin(ai-bi)sin(bk-ak)sin(ai-ci)sin(ck-ak))/(sss*sss)
bac.sph = \(ai,ak,bi,bk,ci,ck) {
((sin(ai-bi)*sin(ai-ci)*( cos(bk-ak)*cos(ck-ak) + sin(bk-ak)*sin(ck-ak) ))
/( abs(sin(ai-bi)) *abs(sin(ai-ci)) )) |> acos()
} 911：卵の名無しさん：[sage]：2023/07/29(土) 21:38:30.79 ID:JbK1n4r2
アンポンタン、アンポンタン♪
数学できない偽医者♪
アンポンタン、アンポンタン♪ 地球を完全な球とする。
E,W,S,Nを下記の点とする
日本の東西南北端点の経度緯度
区分 場所 世界測地系
経度 緯度
E 最東端 東京都 南鳥島 153°59′12″ 24°16′59″
W 最西端 沖縄県 与那国島 122°55′57″ 24°27′05″
S 最南端 東京都 沖ノ鳥島 136°04′11″ 20°25′31″
N 最北端 北海道 択捉島 148°45′08″ 45°33′26″
地表に沿った弧でE-W,S-Nを結ぶとき２つの弧の交点の経度、緯度を求めよ。 E=c(24+16/60+59/3600,153+59/60+12/3600) ; E
W=c(24+27/60+5/3600,122+55/60+57/3600) ; W
S=c(20+25/60+31/3600,136+4/11) ; S
N=c(45+33/60+26/3600,148+45/60+8/3600) ; N
# uE+(1-u)W == vS+(1-v)N
f = \(u,v) ((u*E+(1-u)*W) - (v*S+(1-v)*N))^2 |> sum()
opt=optim(runif(2),\(x) f(x[1],x[2]),method='L') ; opt
u0=opt$par[1]
v0=opt$par[2]
u0*E+(1-u0)*W
v0*S+(1-v0)*N # (緯度・経度) 弧A(a1,a2)-B(b1,b2) と 弧C(c1,c2)-D(d1,d2)の交点の緯度経度を算出
intsect.sph = \(a1,a2,b1,b2,c1,c2,d1,d2){
x=(b1*(d2-c2)+b2*(c1-d1)-c1*d2+c2*d1)/((a1-b1)*(c2-d2)+a2*(d1-c1)+b2*(c1-d1))
y=(a1*(b2-d2)+a2*(d1-b1)+b1*d2-b2*d1)/((a1-b1)*(c2-d2)+a2*(d1-c1)+b2*(c1-d1))
c(x*a1+(1-x)*b1, x*a2+(1-x)*b2)
}
intsect.sph(E[1],E[2],W[1],W[2],S[1],S[2],N[1],N[2]) > intsect.sph(E[1],E[2],W[1],W[2],S[1],S[2],N[1],N[2])
[1] 24.36805 138.30719
Nelder-Meadで検算
> # uE+(1-u)W == vS+(1-v)N
> f = \(u,v) ((u*E+(1-u)*W) - (v*S+(1-v)*N))^2 |> sum()
> opt=optim(runif(2),\(x) f(x[1],x[2]),method='L-BFGS-B') ; opt
$par
[1] 0.4950927 0.8431172
$value
[1] 8.582807e-28
$counts
function gradient
6 6
$convergence
[1] 0
$message
[1] "CONVERGENCE: REL_REDUCTION_OF_F <= FACTR*EPSMCH"
> u0=opt$par[1]
> v0=opt$par[2]
> u0*E+(1-u0)*W
[1] 24.36805 138.30719 "
地球を完全な球とする。
E,W,S,Nを下記の点とする
日本の東西南北端点の経度緯度
緯度 経度
E 最東端 東京都 南鳥島 24.28306 153.9867
W 最西端 沖縄県 与那国島 24.45139 122.9325
S 最南端 東京都 沖ノ鳥島 20.42528 136.3636
N 最北端 北海道 択捉島 45.55722 148.7522
日本の領土領海の球面四角形ESWNの中に点Pをとり
４つの球面三角形PES,PSW,PWN,PNEの面積が等しくなるように４分割して
米英中露が分割統治する。
点Pの緯度・経度を求めよ。
"
E
S
W
triangle.sph(E[1],E[2],S[1],S[2],W[1],W[2])
M=colMeans(rbind(E,S,W,N))
i=M[1]
k=M[2]
triangle.sph(i,k,E[1],E[2],S[1],S[2])
ABC2S.sph=\(A,B,C,r=1){
r^2*(sum(triangle.sph(A[1],A[2],B[1],B[2],C[1],C[2]))-pi)
}
ABC2S.sph(M,E,S)
fn=\(i,k){
P=c(i,k)
PES=ABC2S.sph(P,E,S)
PSW=ABC2S.sph(P,S,W)
PWN=ABC2S.sph(P,W,N)
PNE=ABC2S.sph(P,N,E)
diff(c(PES,PSW,PWN,PNE))^2 |> sum()
}
opt=optim(M,\(x) fn(x[1],x[2])) ; opt >>669
答が海上だと今ひとつ興味がわかないので数値を変えた練習問題。
四則演算で答が出せる。
A:嘉手納飛行場 Kadena Air Base 北緯26度21分06秒 東経127度46分10秒
B:三沢飛行場（三沢空港） Misawa Air Base (Misawa Airport)北緯40度42分19秒 東経141度22分19秒
C:朝鮮の東倉里という場所にあるミサイル基地 経緯度: 北緯39度39分48秒 東経124度42分8秒
D:内閣総理大臣官邸 北緯35度40分23.15秒 東経139度44分32.3秒
(1)地球を完全な球として大円の弧A-Bと大円の弧C-Dの交わる点の緯度経度を計算せよ。
(2)その地点のある市町村名を答えよ。 188：卵の名無しさん：[sage]：2023/07/31(月) 22:35:21.47 ID:6IPqu6HL
ネタはまだストックがありますか？脳内妄想医さん a=c(replicate(65,sum(sample(9)*10^(0:8))),sum(sample(8)*10^(0:7)),replicate(34,sum(sample(9)*10^(0:8))))
paste(a,collapse='+') |> cat() a=4
b=5
c=6
A=abc2ABC(a,b,c)[1]
B=0i
C=a+0i
f=\(xy){
P=xy[1]+1i*xy[2]
if(!in3(P,A,B,C)) return(NA)
sum(diff(c(ABC2S(A,B,P), ABC2S(B,C,P),ABC2S(C,A,P)))^2)
}
optim(c(Re(A+B+C)/3,Im(A/3)),f) f= \(a1,a2,b1,b2,c1,c2,d1,d2){
lat=((b1*(d2-c2)+b2*(c1-d1)-c1*d2+c2*d1)/((a1-b1)*(c2-d2)+a2*(d1-c1)+b2*(c1-d1)))*a1+(1-((b1*(d2-c2)+b2*(c1-d1)-c1*d2+c2*d1)/((a1-b1)*(c2-d2)+a2*(d1-c1)+b2*(c1-d1))))*b1
lon=((b1*(d2-c2)+b2*(c1-d1)-c1*d2+c2*d1)/((a1-b1)*(c2-d2)+a2*(d1-c1)+b2*(c1-d1)))*a2+(1-((b1*(d2-c2)+b2*(c1-d1)-c1*d2+c2*d1)/((a1-b1)*(c2-d2)+a2*(d1-c1)+b2*(c1-d1))))*b2
c(lat,lon)
}
f(E[1],E[2],W[1],W[2],S[1],S[2],N[1],N[2]) f= \(a1,a2,b1,b2,c1,c2,d1,d2){
lat=((b1*(d2-c2)+b2*(c1-d1)-c1*d2+c2*d1)/((a1-b1)*(c2-d2)+a2*(d1-c1)+b2*(c1-d1)))*a1+(1-((b1*(d2-c2)+b2*(c1-d1)-c1*d2+c2*d1)/((a1-b1)*(c2-d2)+a2*(d1-c1)+b2*(c1-d1))))*b1
lon=((b1*(d2-c2)+b2*(c1-d1)-c1*d2+c2*d1)/((a1-b1)*(c2-d2)+a2*(d1-c1)+b2*(c1-d1)))*a2+(1-((b1*(d2-c2)+b2*(c1-d1)-c1*d2+c2*d1)/((a1-b1)*(c2-d2)+a2*(d1-c1)+b2*(c1-d1))))*b2
c(lat,lon)
}
E=c(24+16/60+59/3600,153+59/60+12/3600) ; E
W=c(24+27/60+5/3600,122+55/60+57/3600) ; W
S=c(20+25/60+31/3600,136+4/11) ; S
N=c(45+33/60+26/3600,148+45/60+8/3600) ; N
f(E[1],E[2],W[1],W[2],S[1],S[2],N[1],N[2])
# optimでの検証
# uE+(1-u)W == vS+(1-v)N
f = \(u,v) ((u*E+(1-u)*W) - (v*S+(1-v)*N))^2 |> sum()
opt=optim(runif(2),\(x) f(x[1],x[2]),method='L-BFGS-B') ; opt
u0=opt$par[1]
v0=opt$par[2]
u0*E+(1-u0)*W
v0*S+(1-v0)*N 妻がとうもろこを買ってきてくれたので
バターコーンの低温調理をやってみる。
80℃30分に設定。
バターレモンチキンが美味だったのでバターレモンコーンにアレンジ。 library(RcppAlgos)
f=\(n) (apply(permuteGeneral(6,n,repetition = TRUE),1,\(x) sum(x)%%7==0)) |> mean()
y=sapply(1:9,f)
plot(y) on.sphere =\(n){ # 球面上から一様分布でn個選んだ地点の緯度・経度を返す
ans=NULL
z=runif(n,-1,1)
t=runif(n,-pi,pi)
x=sqrt(1-z^2)*cos(t)
y=sqrt(1-z^2)*sin(t)
i=asin(z)
k=sign(y)*acos(x/sqrt(x^2+y^2))
cbind(i=i,k=k)
} P = \(n){
Grid <- function(v,n){ # Grid(1:6,3) == expand.grid(1:6,1:6,1:6)
paste0("expand.grid(",paste0(rep(deparse(v),n),collapse=","),')') |> str2lang() |> eval()
}
d=Grid(1:6,n)
apply(d,1,\(x) sum(x)%%7==0) |> mean()
}
sapply(1:7,P) |> MASS::fractions() 尿瓶ジジイも自分の分をわきまえたのか
間違った脳内医療をここに晒すことはなくなったなwww偉いじゃん
尿瓶ジジイは内視鏡スレには現れるのに、消化器専門医スレには現れない
何故なんでしょうねwww
ヒント:内視鏡はコメディカルでもある程度理解できます！ ＞悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。
ですってｗｗｗ
＞当たり前だろ
＞当たり前だろ
＞当たり前だろ
とドヤ顔で大間違いを投稿！
typoだと言ったり、
わざと間違えたと言ったり、
恥ずかしくね？ クローンやUCとかやりたくないね。
書類の記載も面倒くさいし。 r=C/2
R=(r^2+h^2)/(2*h)
theta=2*asin(r/R)
R^2*theta/2 - r*(R-h)
bow = \(C,h){
R=((C/2)^2+h^2)/(2*h)
S=(-4*C^3*h+(C^2+4*h^2)^2*asin((4*C*h)/(C^2+4*h^2))+16*C*h^3)/(64*h^2)
# S=(((C/2) ^2+h^2)/(2*h))^2*asin((C/2)/(((C/2) ^2+h^2)/(2*h)))-(C/2)*((((C/2) ^2+h^2)/(2*h))-h)
c(S=S,R=R)
} (((r^2+h^2)/(2*h))^2*(atan((C/2)/((((C/2)^2+h^2)/(2*h))-h)))/2-((r^2+h^2)/(2*h))*r/2)*2+C*h/2 R: 大元の球半径
r：生地の底面半径
r0：生地の切離側面の円の半径
r0=sqrt(R^2-x^2)
h0=r0-(R-h) # 弓形側面の高さ
C0=2*sqrt(r^2-x^2) # 弦の長さ bow = \(C,h){
R=((C/2)^2+h^2)/(2*h)
S=(-4*C^3*h+(C^2+4*h^2)^2*asin((4*C*h)/(C^2+4*h^2))+16*C*h^3)/(64*h^2)
# S=(((C/2) ^2+h^2)/(2*h))^2*asin((C/2)/(((C/2) ^2+h^2)/(2*h)))-(C/2)*((((C/2) ^2+h^2)/(2*h))-h)
c(S=S,R=R)
}
calc = \(x,C=10,h=3){
r=C/2
R=(r^2+h^2)/(2*h)
f=\(x){
r0=sqrt(R^2-x^2)
h0=r0-(R-h)
C0=2*sqrt(r^2-x^2)
bow(C0,h0)['S']
}
integrate(f,0,x)$value
}
calc(10) bow = \(C,h){ # 弓形の弦の長さC、高さhから半径と面積を返す
R=((C/2)^2+h^2)/(2*h)
S=(-4*C^3*h+(C^2+4*h^2)^2*asin((4*C*h)/(C^2+4*h^2))+16*C*h^3)/(64*h^2)
# S=((h^2+r^2)^2*atan((4*C*h)/(C^2-4*h^2))+2*C*h^3-2*h*r*(h^2+r^2))/(4*h^2)
c(S=S,R=R)
} パン作りをしながら思いついた問題、自分への宿題
1次発酵が終わったパン生地を球を平面で切った形状とする。
球冠spherical capと呼ぶらしい。中華饅頭の形のイメージ。
生地の底面の円の半径は10cm、生地の高さは5cmであった。
生地を平行な2つの平面で切って3分割したい。
鉛直方向に切断するとして端から何cmのところで切ればよいか？ >>692
東大卒が正解を出せない問題をRで数値解を出しているからね。 ようやく計算が終わった。
R: 大元の球半径 (10^2+5^2)/2*5=12.5
r：生地の底面半径 10
h: 生地の高さ 5
r0：生地の切離側面の円の半径
x: [0,r]
r0=sqrt(R^2-x^2) # 切離面円の半径
h0=r0-(R-h) # 弓形側面の高さ
C0=2*sqrt(r^2-x^2) # 弦の長さ
bow = \(C,h){ # 弓形の弦の長さC、高さhから半径と面積を返す
if(C*h==0) return(0)
R=((C/2)^2+h^2)/(2*h)
S=(-4*C^3*h+(C^2+4*h^2)^2*asin((4*C*h)/(C^2+4*h^2))+16*C*h^3)/(64*h^2)
c(S=S,R=R)
}
# xでの球冠の切離面の面積
area.bow=\(x,r=10,h=5){
R=bow(2*r,h)['R']
r0=sqrt(R^2-x^2) # 切離面円の半径
h0=r0-(R-h) # 弓形側面の高さ
C0=2*sqrt(r^2-x^2) # 弦の長さ
bow(C0,h0)[1]
}
area.bow=Vectorize(area.bow)
# [0,x]までの球冠の体積
v02x = \(x) integrate(area.bow,0,x)$value
v02x = Vectorize(v02x)
V=v02x(10)*2 # 球冠の体積
curve(v02x,0,10)
abline(h=V/6,lty=3)
x.ans=uniroot(\(x) v02x(x)-V/6,c(0,10))$root
ans=10-x.ans
ans 高校数学スレにはこれが解ける人はいないみたい。
俺はRで数値解が出せたけど。
長さが2,3,4,5,6,7の6本のチョコ棒を組み合わせて最も鋭利な頂点をもつ三角錐を作る。
底面を三角形ABC、頂点をDとし頂点Dが最も鋭利とする。
(1)∠ADB+∠BDC+∠CDAは何度か？
(2)その三角錐の高さを求めよ
(3)その三角錐の体積を求めよ。
(4)その三角錐を図示せよ。
いずれも数値は有効数字3桁でよい。 素人相手にも脳内東大合格者の偽医者とか言われてて草 >>698
難問に取り組んで解答をする人もいるんだよ。
433 １３２人目の素数さん 2023/07/30(日) 02:02:36.59 ID:Fyeh8XR9
>>8
(1) 3首都へのミサイルの飛行距離の総和が最小になる基地の緯度経度は、北緯48.77°、東経88.69°です。この場合、ミサイルの飛行距離の総和は約1.57×10^7 mとなります。この値は、地球の半径を6.378×10^6 mとして、大円距離の公式を用いて求めました。
(2) (1)で求めた基地は、モンゴル国の領土内にあります。具体的には、ホブド県の南西部に位置します。 >>696
これは手書き計算では難しいと思う。
俺はRを使って数値解が出せた。 ＞悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。
ですってｗｗｗ
＞当たり前だろ
＞当たり前だろ
＞当たり前だろ
とドヤ顔で大間違いを投稿！
typoだと言ったり、
わざと間違えたと言ったり、見苦しいよなぁ。 プログラムできる能力と根気がないと解が出せないからね。それなりに時間もかかる。
概略を考えながら寝て朝に実装。朝飯前の問題シリーズ。 早朝から発狂かよ
クソコテ以外には荒らしにもゴミ扱いみたいだね
そのクソコテにも脳内だと思われてるあり様 fn=\(p){
P=p+1i*p^2
B=(p^2+1/2)*1i # y-p^2 =-1/(2*p)(x-p)
C=0i
H=ABC2H(P,B,C)$H
c(Re(H),Im(H))
}
fn=Vectorize(fn)
x=seq(-5,5,le=10001)
H=t(fn(x))
plot(H,type='l',xlab='x',ylab='y',asp=1,col='red')
curve(x^2,add=TRUE,lty=3) ABC2H =\(A,B,C){ # from C to H on A-B
if(is.complex(c(A,B,C))){
a1=Re(A) ; a2=Im(A)
b1=Re(B) ; b2=Im(B)
c1=Re(C) ; c2=Im(C)
}else{
a1=A[1] ; a2=A[2]
b1=B[1] ; b2=B[2]
c1=C[1] ; c2=C[2]
}
a=c(a1,a2) ; b=c(b1,b2) ; c=c(c1,c2)
t=(-a1*b1+a1*c1-a2*b2+a2*c2+b1^2-b1*c1+b2^2-b2*c2)/(a1^2-2*a1*b1+a2^2-2*a2*b2+b1^2+b2^2)
H=t*c(a1,a2)+(1-t)*c(b1,b2)
if(is.complex(c(A,B,C))){
return(list(t=t,H=H[1]+1i*H[2]))
}else{
return(list(t=t,H=H))
}
}
fn=\(p){
P=p+1i*p^2
B=(p^2+1/2)*1i # y-p^2 =-1/(2*p)(x-p)
C=0i
H=ABC2H(P,B,C)$H
c(Re(H),Im(H))
}
fn=Vectorize(fn)
x=seq(-5,5,le=10001)
H=t(fn(x))
plot(H,type='l',xlab='x',ylab='y',asp=1,col='red')
curve(x^2,add=TRUE,lty=3) Wolfram2R = \(str){ # Wolframの出力をRで使えるように変換
f1=\(x) gsub('^ ','',x)
f2=\(x) gsub(' = ','=',x)
f3=\(x) gsub(' \\+ ','\\+',x)
f4=\(x) gsub(' \\- ','\\-',x)
f5=\(x) gsub(' ','*',x)
f6=\(x) gsub('^.=','',x)
f7=\(x) gsub('i','1i',x)
f8=\(x) gsub('s1in','sin',x)
f9=\(x) gsub('s1in^(-1)','asin',x)
f10=\(x) gsub('tan^(-1)','atan',x)
f11=\(x) gsub('cos^(-1)','acos',x)
strsplit(str,',') |> unlist() -> str
str |> f1() |> f2() |> f3() |> f4() |> f5() |>f6() |> f7()
} 朝のお勤めｗ
Wolframのプレーンテキスト出力をRで使える形式に変換するスクリプトを作成使用していたが、
Wolframはatanをtan^(-1)と表示するのでcotと紛らわしい。
これをatanに変換するようにデバッグ。
sin^(-1)のようにiが含まれるとiが虚数単位なのか否かを判断しなくちゃならんことにも気づいた。デバックした。 Wolfram2R = \(str){ # Wolframの出力をRで使えるように変換
f1=\(x) gsub('^ ','',x)
f2=\(x) gsub(' = ','=',x)
f3=\(x) gsub(' \\+ ','\\+',x)
f4=\(x) gsub(' \\- ','\\-',x)
f5=\(x) gsub(' ','*',x)
f6=\(x) gsub('^.=','',x)
f7=\(x) gsub('sin\\^\\(-1\\)','asin',x)
f8=\(x) gsub('tan\\^\\(-1\\)','atan',x)
f9=\(x) gsub('cos\\^\\(-1\\)','acos',x)
f10=\(x) gsub('i','1i',x)
f11=\(x) gsub('s1in','sin',x)
strsplit(str,',') |> unlist() -> str
str |> f1() |> f2() |> f3() |> f4() |> f5() |>f6() |> f7() |> f8() |> f9() |> f10() |> f11()
} 動作確認
x="-((1 - i sqrt(3)) (sqrt((-27 a^2 d + 27 a^2 sin^(-1)(1/e) + 9 a b c - 2 b^3)^2 + 4 (3 a c - b^2)^3) - 27 a^2 d + 27 a^2 sin^(-1)(1/e) + 9 a b c - 2 b^3)^(1/3))/(6 2^(1/3) a) + ((1 + i sqrt(3)) (3 a c - b^2))/(3 2^(2/3) a (sqrt((-27 a^2 d + 27 a^2 sin^(-1)(1/e) + 9 a b c - 2 b^3)^2 + 4 (3 a c - b^2)^3) - 27 a^2 d + 27 a^2 sin^(-1)(1/e) + 9 a b c - 2 b^3)^(1/3)) - b/(3 a)"
Wolfram2R(x)
e=exp(1)
a=b=c=d=1
Wolfram2R(x) |> str2lang() |> eval()
> Wolfram2R(x) |> str2lang() |> eval()
[1] -0.1192194+0.8967725i Wolframの数値と照合
{x == -1/3 + (2/(-20 + 27 ArcTan[1/(Sqrt[1 - E^(-2)] E)] + Sqrt[32 + (-20 + 27 ArcTan[1/(Sqrt[1 - E^(-2)] E)])^2]))^(1/3)/3 + (5 (2/(-20 + 27 ArcTan[1/(Sqrt[1 - E^(-2)] E)] + Sqrt[32 + (-20 + 27 ArcTan[1/(Sqrt[1 - E^(-2)] E)])^2]))^(2/3))/3 - (9 ArcTan[1/(Sqrt[1 - E^(-2)] E)])/(2 2^(1/3) (-20 + 27 ArcTan[1/(Sqrt[1 - E^(-2)] E)] + Sqrt[32 + (-20 + 27 ArcTan[1/(Sqrt[1 - E^(-2)] E)])^2])^(2/3)) - Sqrt[32 + (-20 + 27 ArcTan[1/(Sqrt[1 - E^(-2)] E)])^2]/(6 2^(1/3) (-20 + 27 ArcTan[1/(Sqrt[1 - E^(-2)] E)] + Sqrt[32 + (-20 + 27 ArcTan[1/(Sqrt[1 - E^(-2)] E)])^2])^(2/3)) + I ((2/(-20 + 27 ArcTan[1/(Sqrt[1 - E^(-2)] E)] + Sqrt[32 + (-20 + 27 ArcTan[1/(Sqrt[1 - E^(-2)] E)])^2]))^(1/3)/Sqrt[3] - (5 (2/(-20 + 27 ArcTan[1/(Sqrt[1 - E^(-2)] E)] + Sqrt[32 + (-20 + 27 ArcTan[1/(Sqrt[1 - E^(-2)] E)])^2]))^(2/3))/Sqrt[3] + (9 Sqrt[3] ArcTan[1/(Sqrt[1 - E^(-2)] E)])/(2 2^(1/3) (-20 + 27 ArcTan[1/(Sqrt[1 - E^(-2)] E)] + Sqrt[32 + (-20 + 27 ArcTan[1/(Sqrt[1 - E^(-2)] E)])^2])^(2/3)) + Sqrt[(32 + (-20 + 27 ArcTan[1/(Sqrt[1 - E^(-2)] E)])^2)/3]/(2 2^(1/3) (-20 + 27 ArcTan[1/(Sqrt[1 - E^(-2)] E)] + Sqrt[32 + (-20 + 27 ArcTan[1/(Sqrt[1 - E^(-2)] E)])^2])^(2/3)))}
x≈-0.11922 + 0.89677 i
今のところ、きちんと動作している。
まあ、sin以外にiを含む単語がでてくると誤変換するだろうけど。 Wolfram2R = \(str){ # Wolframの出力をRで使えるように変換
f1=\(x) gsub('^ ','',x)
f2=\(x) gsub(' = ','=',x)
f3=\(x) gsub(' \\+ ','\\+',x)
f4=\(x) gsub(' \\- ','\\-',x)
f5=\(x) gsub(' ','*',x)
f6=\(x) gsub('^.=','',x)
f7=\(x) gsub('sin\\^\\(-1\\)','asin',x)
f8=\(x) gsub('tan\\^\\(-1\\)','atan',x)
f9=\(x) gsub('cos\\^\\(-1\\)','acos',x)
f10=\(x) gsub('i','1i',x)
f11=\(x) gsub('s1in','sin',x)
strsplit(str,',') |> unlist() -> str
str |> f1() |> f2() |> f3() |> f4() |> f5() |>f6() |>
f7() |> f8() |> f9() |> f10() |> f11()
} Wolfram2R = \(str){ # Wolframの出力をRで使えるように変換
f1=\(x) gsub('^ ','',x)
f2=\(x) gsub(' = ','=',x)
f3=\(x) gsub(' \\+ ','\\+',x)
f4=\(x) gsub(' \\- ','\\-',x)
f5=\(x) gsub(' ','*',x)
f6=\(x) gsub('^.=','',x)
f7=\(x) gsub('sin\\^\\(-1\\)','asin',x)
f8=\(x) gsub('tan\\^\\(-1\\)','atan',x)
f9=\(x) gsub('cos\\^\\(-1\\)','acos',x)
f10=\(x) gsub('i','1i',x)
f11=\(x) gsub('s1in','sin',x)
f12=\(x) gsub('sgn','sign',x)
strsplit(str,',') |> unlist() -> str
str |> f1() |> f2() |> f3() |> f4() |> f5() |>f6() |>
f7() |> f8() |> f9() |> f10() |> f11() |> f12() -> ans
cat(ans,'\n')
invisible(ans)
}
x="-((1 - i sqrt(3)) (sqrt((-27 a^2 d + 27 a^2 sin^(-1)(1/e) + 9 a b c - 2 b^3)^2 + 4 (3 a c - b^2)^3) - 27 a^2 d + 27 a^2 sin^(-1)(1/e) + 9 a b c - 2 b^3)^(1/3))/(6 2^(1/3) a) + ((1 + i sqrt(3)) (3 a c - b^2))/(3 2^(2/3) a (sqrt((-27 a^2 d + 27 a^2 sin^(-1)(1/e) + 9 a b c - 2 b^3)^2 + 4 (3 a c - b^2)^3) - 27 a^2 d + 27 a^2 sin^(-1)(1/e) + 9 a b c - 2 b^3)^(1/3)) - b/(3 a)"
Wolfram2R(x)
e=exp(1)
a=b=c=d=1
Wolfram2R(x) |> str2lang() |> eval() A=c(0,0,0)
B=c(0,0,1)
f=\(x){
c1=x[1]
c2=x[2]
d1=x[3]
d2=x[4]
if(c1< -pi/2 | pi/2<c1 | d1< -pi/2 | pi/2<d1) return(NA)
if(c2< -pi | pi<c2 | d2< -pi | pi <d2) return(NA)
C=c(cos(c1)*cos(c2),cos(c1)*sin(c2),sin(c1))
D=c(cos(d1)*cos(d2),cos(d1)*sin(d2),sin(d1))
P=B/2+C/2
Q=C/2+D/2
R=D/2+B/2
((A-P) %.% (B-C))^2+((A-Q) %.% (C-D))^2+((A-R) %.% (D-B))^2
}
opt=optim(runif(4,-pi/2,pi/2),f) ; opt
C=c(cos(c1)*cos(c2),cos(c1)*sin(c2),sin(c1)) ; C
D=c(cos(d1)*cos(d2),cos(d1)*sin(d2),sin(d1)) ; D
(B-C)^2 |> sum() |> sqrt()
(C-D)^2 |> sum() |> sqrt()
(D-B)^2 |> sum() |> sqrt()
ABCD=rbind(A,B,C,D)
library(rgl)
plot3d(ABCD,type='s',col='blue',size=1,xlab='x',ylab='y',zlab='z')
aspect3d('iso')
segments3d(rbind(A,C),col='blue',lwd=2)
segments3d(rbind(A,B),col='blue',lwd=2)
segments3d(rbind(A,D),col='blue',lwd=2)
segments3d(rbind(B,C),col='blue',lwd=2)
segments3d(rbind(C,D),col='blue',lwd=2)
segments3d(rbind(D,B),col='blue',lwd=2) チンパンジーが計算ドリルを電卓叩いてキーキー喚いてるのは滑稽極まりない abs = \(z){
if(is.complex(z)){
return(sqrt(Re(z)^2+Im(z)^2))
}else{
return(sqrt(sum(z^2)))
}
}
abs(cos(1)+1i*sin(1))
abs(c(cos(1)*cos(2),cos(1)*sin(2),sin(1))) 高校数学の質問スレで
＞じゃあネットで答えを聞いてもいいのか？
＞それのどこが高校数学だよ
ですって
これほどの馬鹿がいるだろうか？ 尿瓶ジジイの数学板でのチンパンごっこ()は数学でも算数でもないからトンチンカンなレスしかつかないどころかみんなに馬鹿にされるんだろw 911：卵の名無しさん：[sage]：2023/07/29(土) 21:38:30.79 ID:JbK1n4r2
アンポンタン、アンポンタン♪
数学できない偽医者♪
アンポンタン、アンポンタン♪ >>716
R って電卓じゃないんだけど。
臨床医の嗜みのRを使えないの？ こういうのを作って置くと便利。数値に応じたグラフも出力。
# ================== gamma by minute ====
gamma2hourlyVol=function(mg,mL,kg,gamma){ # mcg/kg/min -> mL/h
# mg/1000mcg * kg/body * 60min/h * mL/mg * gammma
coef=60/1000*mL/mg*kg
velocity=coef*gamma
mat=cbind(gamma,velocity)
colnames(mat)=c('mcg/kg/min','mL/h')
L=ifelse(length(gamma)==1,0,min(gamma))
U=ifelse(length(gamma)==1,5*gamma,max(gamma))
main=paste('concenteration =',mg,'mg /',mL,'mL\nweight =',kg,'kg')
curve(coef*x,L,U,bty='l',xlab='mcg/kg/min',ylab='mL/h',main=main)
n=21
X=seq(L,U,length=n)
Y=coef*X
for(i in 1:n){
for(j in 1:n){
segments(X[i],Y[1],X[i],Y[n],col=c(8,2)[i%%2+1],lty=3)
segments(X[1],Y[j],X[n],Y[j],col=c(8,2)[j%%2+1],lty=3)
}
}
for( i in 1:nrow(mat)){
text(mat[i,1],mat[i,2], as.character(mat[i,2]))
}
mat
} # CV用高濃度
#ノルアドレナリン1mgを全量20mLに希釈して体重50kgで0.05～0.30μg/kg/minで投与するときの速度とグラフを出力
# Noradrenaline 1mg/20mL at 0.05-0.3mcg/kg/min
gamma2hourlyVol(mg=1,mL=20,kg=50,gamma=c(0.05,0.30)) ; legend('top',bty='n',legend='for Central Vein',cex=1.25)
# 末梢用低濃度
#ノルアドレナリン1mgを全量50mLに希釈して体重50kgで0.05～0.30μg/kg/minで投与するときの速度とグラフを出力
# Noradrenaline 1mg/20mL at 0.05-0.3mcg/kg/min
gamma2hourlyVol(mg=1,mL=50,kg=50,gamma=c(0.05,0.30)) ; legend('top',bty='n',legend='for Peripheral Vein',cex=1.25) >>721
話がまるで通じないチンパンジーにはRも電卓も関係ないだろ >>709
パイプなしだと()対応で混乱しそう。
ver4 以後、パイプ表現できるので多用している。
自作できなくはないけど
'%|%' <- function(x,FUN) FUN(x) # パイプ '%.%' <- function(x,y){ # ベクトルの内積 加減計算より優先
if(is.complex(x)|is.complex(y)){
a=c(Re(x),Im(x))
b=c(Re(y),Im(y))
}else{
a=x
b=y
}
sum(a*b)
} >>724
んで、R使えないの？
結果を動画にするのはPythonよりも便利。
計算機を自分の手足のように使える人のための練習問題
四面体ABCDは以下の条件を満たす。
（ア）AB=AC=AD=BC
（イ）BC,CD,DBの中点をそれぞれP,Q,Rとすると、AP⊥BCかつAQ⊥CDかつAR⊥DB
この四面体は正四面体といえるか。
Rによる実験
条件を満たす四面体を作図
https://i.imgur.com/Ganxyve.mp4 どこの国立を落ちたの？
に答えらないで発狂しているのが尿瓶チンパポンコツタコフェチである。
Q.E.D.
さてはシリツだな？ Rとか糞ソフト使ってる日本人の医者周りにはいないけどなwww
フリーソフトなのにそのcodeが本当に正しいって誰が責任持つんだよ
そんなソフトで正式な論文書けないだろ
RでAcceptされてるのはImpact Factor低いクソ論文だけだよ
尿瓶ジジイは学会とか行ったことないんだろうな 尿瓶ジジイは脳内だから現実の医者が全く興味ないことでマウントとりたくて必死なんだよなww >>727
胆汁ドレナージといいRといいとことん脳内医療丸出しだなマジで >>731
どこの国立を落ちたの？
に答えらないで発狂しているのが尿瓶チンパポンコツタコフェチである。
Q.E.D.
さてはシリツだな？ >>729
FDAはRの解析でも認可する。
有料ソフトでもバグがあるぞ。
エクセルの統計は酷いので有名だった。 ＞悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。
ですってｗｗｗ
＞当たり前だろ
＞当たり前だろ
＞当たり前だろ
とドヤ顔で大間違いを投稿！
typoだと言ったり、
わざと間違えたと言ったり、
恥ずかしくね？ >>732
言っておくがここはアンタ以外東大卒だからなw
さらに脳内医者もアンタだけw
Rがどうとか言ってるのも脳内医者だけw 358：１３２人目の素数さん：[sage]：2023/07/28(金) 16:52:04.72 ID:UEEGgPFt
181：卵の名無しさん：[sage]：2023/07/28(金) 16:49:51.11 ID:mTfI1Jyr
>>180
732：卵の名無しさん：[sage]：2021/12/29(水) 19:18:36.08 ID:nTHc+sRn
145 卵の名無しさん[sage] 2021/12/29(水) 18:35:39.75 ID:mlY+9euZ
>>144
「いや、もう火遊びはやめたのよ」
「先生の家はHIでしょ？」
頭のいいナースと仕事できると楽しくて( ・∀・)ｲｲ!!
180：卵の名無しさん：[sage]：2023/07/28(金) 15:23:44.55 ID:UlP+1rs6
>>177
話をしたのが懇意なナースだったので、
オペ台や検査台の上での同意は無効になる可能性があるんだけど、
「＊＊してくれるなら＊＊＊＊あげる」というベッドでの同意はどう思う？と聞いたら
「娘によく教えておかなくちゃ」と言っていた。（一部脚色ｗ）
医師板における尿瓶ジジイの看護師に関する気色悪いレスをまとめてみました >>733
FDAwww
やっぱお前、医者じゃなくて医薬品とか医療機器扱ってる系の奴だろ
何で医者がFDAに論文出すんだよ
墓穴掘りすぎだろwww 胆汁ドレナージ(商品名を医療用語と勘違い)とか言ってるあたり多分マジだなw '%.%' <- function(x,y){
if(is.complex(x)|is.complex(y)){
a=c(Re(x),Im(x))
b=c(Re(y),Im(y))
}else{
a=x
b=y
}
sum(a*b)
}
ABC2S3d <- function(A,B,C){ cross<-function(x,y)c(x[2]*y[3]-x[3]*y[2],x[3]*y[1]-x[1]*y[3],x[1]*y[2]-x[2]*y[1])
sqrt(sum(cross(A-C,B-C)^2))/2
}
O=c(0,0,0)
A=c(0,0,1)
f=function(x){
b1=x[1]
b2=x[2]
b3=x[3]
c1=x[4]
c2=x[5]
c3=x[6]
B=c(b1,b2,b3)
C=c(c1,c2,c3)
sum(diff(c(ABC2S3d(O,A,B),ABC2S3d(O,B,C),ABC2S3d(O,C,A),ABC2S3d(A,B,C)))^2) + ((O-A)%.%(B-C))^2 + ((O-B)%.%(C-A))^2 + ((O-C)%.%(A-B))^2
}
optim(runif(6),f) >>738
コロナ関連の論文はRでの解析が多かったぞ。
国立感染症研究所もRのパッケージを使って潜伏期の分布を近似していた。８割おじさんもRとStanで解析。
コードが公開されていたので自分で走らせてみた。 ＞悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。
ですってｗｗｗ
＞当たり前だろ
＞当たり前だろ
＞当たり前だろ
とドヤ顔で大間違いを投稿！
typoだと言ったり、
わざと間違えたと言ったり、
哀れだね！ これをRで解きたい
四面体OABCは以下の条件を満たす。
（ア）4つの面の面積が全て等しい
（イ）OA⊥BCかつOB⊥CAかつOC⊥AB
この四面体は正四面体か。 >>743
話そらすなよ。何で急にFDAとか出てくるんだ？普通の日本人の医者の発想じゃないんだが。
コロナ関係の論文とか曖昧な表現しないで医者ならちゃんとした出典だせや
NEJMとかちゃんとしたやつな >>746
FDAはRの解析でも認可するのは常識。
エクセルの統計解析だとだめだけどね。 >>746
８割おじさんのスクリプトを走らせたことないの？
ひょっとしたらRを使えないないシリツ医かよ？ 65：１３２人目の素数さん：[sage]：2023/08/05(土) 17:16:30.56 ID:AoYbbVsJ
>>61
君たちシダイ卒が求めているようなので貼ってやった。
東大卒による妥当性の検証を希望。
67：１３２人目の素数さん：2023/08/06(日) 00:26:23.88 ID:5u5eLA7R
ちなみに>>64で歌われてる「数学できない偽医者」ってのが>>65のことね。
こういうイカレた爺さんにならないようにね。＞良い子のみなさん
91：１３２人目の素数さん：[sage]：2023/08/06(日) 13:04:35.89 ID:Nm44ICz6
>>67
残念でした別人です。
俺はシリツと呼んでいるから。
観察力が乏しいね、さてはシリツだな！？
つまり>>65ではなく自分こそが「数学できない偽医者」ですと言いたいようです >>747
結局、話反らして誤魔化すしか出来ないんだなwww医者なら論文の話をしてるのに普通FDAの話題なんて出さない
お前、どうせ管財課か何かだろ？じゃないと
論文の話してるのに急にFDAの話題なんて出さないよな
FDAって医薬品とか医療機器を仕切ってるアメリカの機関だぞ
Rでオッケーだからどうとかいう問題では無いしそれが理解出来ないなら医者じゃねーよ
医者じゃないから統計ソフトも金のかからんフリーソフト使ってるんだろ？普通はSASとかSPSS使うだろ >>748
で、結局Rを使用した論文とやたら一切示せないのか？尿瓶ジジイ
で、お前はRを使って論文書いてちゃんとacceptされたのか？脳内医者www O=c(0,0,0)
A=c(0,0,1)
f=function(x){
b1=x[1]
b2=x[2]
b3=x[3]
c1=x[4]
c2=x[5]
c3=x[6]
B=c(b1,b2,b3)
C=c(c1,c2,c3)
sum(diff(c(ABC2S3d(O,A,B),ABC2S3d(O,B,C),ABC2S3d(O,C,A),ABC2S3d(A,B,C)))^2) + ((O-A)%.%(B-C))^2 + ((O-B)%.%(C-A))^2 + ((O-C)%.%(A-B))^2
}
opt=optim(runif(6),f) ; opt
x=opt$par
b1=x[1]
b2=x[2]
b3=x[3]
c1=x[4]
c2=x[5]
c3=x[6]
B=c(b1,b2,b3)
C=c(c1,c2,c3)
abs(A-B)
abs(B-C)
abs(C-A)
abs(O-B)
abs(O-C)
c(ABC2S3d(O,A,B),ABC2S3d(O,B,C),ABC2S3d(O,C,A),ABC2S3d(A,B,C))
c((O-A)%.%(B-C), (O-B)%.%(C-A) , (O-C)%.%(A-B)) O=c(0,0,0)
A=c(0,0,1)
f=function(x){
b1=x[1]
b2=x[2]
b3=x[3]
c1=x[4]
c2=x[5]
c3=x[6]
B=c(b1,b2,b3)
C=c(c1,c2,c3)
sum(diff(c(ABC2S3d(O,A,B),ABC2S3d(O,B,C),ABC2S3d(O,C,A),ABC2S3d(A,B,C)))^2) + ((O-A)%.%(B-C))^2 + ((O-B)%.%(C-A))^2 + ((O-C)%.%(A-B))^2
}
opt=optim(runif(6),f) ; opt
x=opt$par
b1=x[1]
b2=x[2]
b3=x[3]
c1=x[4]
c2=x[5]
c3=x[6]
B=c(b1,b2,b3)
C=c(c1,c2,c3)
abs(A-B)
abs(B-C)
abs(C-A)
abs(O-B)
abs(O-C)
c(ABC2S3d(O,A,B),ABC2S3d(O,B,C),ABC2S3d(O,C,A),ABC2S3d(A,B,C))
c((O-A)%.%(B-C), (O-B)%.%(C-A) , (O-C)%.%(A-B)) >>750
Rの話だが、あんたR使えないシリツかよ？ >>754
金なしだから医者が使わないRで発狂してんだろ？ >>749続き
98：１３２人目の素数さん：[sage]：2023/08/06(日) 16:28:05.65 ID:P0hZyEmz
>>91
ということは数学できない偽医者は自分ですってことか？ww
100：１３２人目の素数さん：[sage]：2023/08/06(日) 18:11:42.36 ID:Nm44ICz6
>>98
さてはシリツだな。
返す言葉もなくて発狂w >>754
R使った論文さっさと出せよ尿瓶クソジジイ 924：１３２人目の素数さん：[sage]：2023/08/06(日) 13:09:49.53 ID:zTuxlWyc
>>923
やっぱ医者じゃないんだな
頭悪いのに変だと思ったわ
これが現実だよ尿瓶ジジイ こないだm3を見たら、患者がいきなり出身校を聞いてきて非常に失礼だ！と怒ってる書き込みがあったけど
知りたがる神経質な患者がいるのは当然だし、知られて困るもんでもないので正直に答えてきたんだがやはり底辺私立医か？ >>759
わざわざ出身大学聞かれるってことは、お前の診療が信用ならんってことだろ
普通にやってたら聞かれないよ
それか、医者じゃない奴の妄想かどっちかだな >>749
>>756
数学できない偽医者さん自分で認めちゃったw O(0,0,0) A(0,0,100)として
等面積条件は三角形の2辺の外積ベクトルの長さが4つの三角形で等しい、直交条件はベクトルの内積が0として計算。
Σ(外積ベクトルの長さの差)^2 + Σ内積^2 を返す関数を作って
初期値は乱数発生させてL-BFGS-B法にてこの関数の返す値が0になるようなB,Cの座標を探索させて四面体の辺の長さを求める。
これがすべて100であれば正四面体と判定。 重要なclinical pearl
女をみたら妊婦と思え
シリツ医をみたら裏口と思え >>759
俺も聞かれたので答えたら
「あぁ良かった、自分より馬鹿な医者に診てもらいたくなかったので」と言う返事が返ってきた。 その話をしたら外来ナースもよく聞かれると言っていた。
シリツ医のときは私達は知らされていませんと答えることにしていると。 >>759
俺は誇りある母校名を答えられるから歓迎だけどね。
国立大学として新型コロナ診療に後輩が頑張っている姿が報道されていたのも幸い。 >>757
>762をRに実装してみ！
シリツだとできんだろ。 >>759
教員、とりわけ校長とか教頭に、偏差値で判断する患者が多いと思う。同僚も同じ印象を持っていた。 教員だと、あの学力でシリツ医学部合格＝裏口とわかっているからだろうな。 >>762
問題はこれ
四面体OABCは以下の条件を満たす。
（ア）4つの面の面積が全て等しい
（イ）OA⊥BCかつOB⊥CAかつOC⊥AB
この四面体は正四面体か。 >>768
さっさとご自慢のR使った論文出せよ
それとも脳内だからそんなものないのか？ >>773
お前がうｐしたら俺も見せるよ
もちろんID付きでうｐしろよ >>775
卒業証明書と医師免許証にIDなんて無いだろwww
持ってませんって言ってるようなもんじゃんwww >>757
>762をRに実装してみ！
シリツだとできんだろ。 鯛のアラを使って鯛めしを妻とママごと。
グリルで焼いてから出汁を取ると実に旨くて(・∀・)ｲｲ!!
とうもろこしの青のり塩での味付けも合格点。
まあ、バターコーンの旨さには勝てんが。 重要なclinical pearl
女をみたら妊婦と思え
シリツ医をみたら裏口と思え ド底辺シリツ卒でもこんな間違いはしない。
＞悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。
ですってｗｗｗ
＞当たり前だろ
＞当たり前だろ
＞当たり前だろ
とドヤ顔で大間違いを投稿！
typoだと言ったり、
わざと間違えたと言ったり、見苦しいよなぁ。 >>779
8割おじさんのペーパーを読んだことないの？
RとStanを使ってたぞ。 R使った論文なんかないからそうやって発狂するしか能がないのか
脳内医者はチープだねw >>780
懇意なナースに薦めておこう。
スーパーに鯛のアラがあったらゲットだな。
手間をかけた分だけ旨くなるのが( ・∀・)ｲｲ!! 8割おじさんとかぼろくそに言われてるけどwww
Rとか使ってるから駄目ってことか
読んだことないけど お医者さんごっこもあまりにアホすぎると素人にもバレバレなんだねw >>776
ここで表示される自分のIDを紙に書いて、現物と一緒に写真に撮るんだよ、本物だと証明するために '%.%' <- function(x,y){
if(is.complex(x)|is.complex(y)){
a=c(Re(x),Im(x))
b=c(Re(y),Im(y))
}else{
a=x
b=y
}
sum(a*b)
}
ABC2S3d <- function(A,B,C){ cross<-function(x,y)c(x[2]*y[3]-x[3]*y[2],x[3]*y[1]-x[1]*y[3],x[1]*y[2]-x[2]*y[1])
sqrt(sum(cross(A-C,B-C)^2))/2
}
abs = \(z){
if(is.complex(z)){
return(sqrt(Re(z)^2+Im(z)^2))
}else{
return(sqrt(sum(z^2)))
}
} a=100
O=c(0,0,0)
A=c(0,0,a)
f=function(x){
b1=x[1]
b2=x[2]
b3=x[3]
c1=x[4]
c2=x[5]
c3=x[6]
B=c(b1,b2,b3)
C=c(c1,c2,c3)
sum(diff(c(ABC2S3d(O,A,B),ABC2S3d(O,B,C),ABC2S3d(O,C,A),ABC2S3d(A,B,C)))^2) + ((O-A)%.%(B-C))^2 + ((O-B)%.%(C-A))^2 + ((O-C)%.%(A-B))^2
}
opt=optim(runif(6,0,10*a),f, method='L') ; opt
x=opt$par
b1=x[1]
b2=x[2]
b3=x[3]
c1=x[4]
c2=x[5]
c3=x[6]
B=c(b1,b2,b3)
C=c(c1,c2,c3)
abs(A-B)
abs(B-C)
abs(C-A)
abs(O-B)
abs(O-C) 重要なclinical pearl
女をみたら妊婦と思え
シリツ医をみたら裏口と思え
医師国家試験に出題してもいいくらいだなぁｗ >>765
ちなみにその患者は早稲田卒だった。
早稲田卒に誇りをもっているようであった。
「あぁ良かった」という言葉に
早稲田卒の俺が裏口容疑者に診てもらいたくないという雰囲気を感じたよ。 >>787
あんたにゃ、読める素養すらないだろ。
Stanの使用経験ないと公開コードを走らせることもできんだろうし。 >>787
京大教授に栄転したけどね。
RやStanが使える基礎学力がないと読むこともできんだろう。 >>797
アホだなwww
この論文は査読前のacceptされてないやつじゃねーか
論文集めてるサーバーにただ置いてるだけ
医者からしたら何の信頼性もない論文なのに何でドヤ顔で出してるんだよ！
普通の医者なら気づくけどな
やっぱお前医者じゃないだろ >>799
ちなみにそれもブログレベルの話で、信憑性にかけるだろ
そもそも、RをFDAが使ってるとしても論文として出してないんだったら世界レベルで信用されてることにならない
だからわざわざ資料って書いてるだろ？
やっぱお前どう考えても医者じゃないわ
発想が素人のそれwww >>795
ん？今度は早稲田卒になったのか？
早稲田に医学部なんてあったかなぁ？ww >>797
>>799
さっさとまともな論文もってこいよ尿瓶 おい尿瓶ジジイ
R使ったまともな論文はどうしたんだよ？さっさと出せよ ド底辺シリツ卒でもこんな間違いはしない。
＞悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。
ですってｗｗｗ
＞当たり前だろ
＞当たり前だろ
＞当たり前だろ
とドヤ顔で大間違いを投稿！
typoだと言ったり、
わざと間違えたと言ったり、見苦しいよなぁ。 >762をRに実装することすらできないってド底辺シリツの予感。
ド底辺シリツ未満だな。
ド底辺シリツ卒でもこんな間違いはしない。
＞悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。
ですってｗｗｗ
＞当たり前だろ
＞当たり前だろ
＞当たり前だろ
とドヤ顔で大間違いを投稿！
typoだと言ったり、
わざと間違えたと言ったり、見苦しいよなぁ。 バターコーンは高カロリーなので、今日はカレー味にしてみた。
SBの赤缶使用。 尿瓶ジジイクソ雑魚過ぎてつまんねぇぞ
もう少し頑張れよ・・・
論文ぐらいググれば出てくるだろ！
それすら出来ねぇとかどんだけ能力低いんだよ・・・
料理のことしか書かないなら料理板行けよ 2014年に福岡県鞍手町で谷尾幸生さん夫妻を殺害した
「ネトゲ実況板のマナ公」が若い女性にストーカー行為を働いてます
以下に該当する女性をご存知の方は危険を伝えるようお願いします
・現在の年齢が28歳前後、名前の読みが「りか」
・約3年前に福岡市周辺の障害者デイケアに参加または勤務していた
・そこで20歳年上の精神障害者の男性に言い寄られてLINEブロックした
0930 既にその名前は使われています 2023/08/08(火) 11:15:17.49
マナちゃんは一生処女だろうね
りかちゃんは俺が奪うけど、これは宿命
逢えるのはいつになるのだろうか…
ID:Sr19Far8(24/25)
マナ公のTikTok（殺人の前歴がありながら堂々と顔出し）
kazra2020
マナ公のTwitter
メドローア最強@DQW
@medlorerika >>810
また認知症がひどくなったみたいだね尿瓶ジジイさん ik2ca = \(ai,ak,bi,bk){ # A:緯度ai,経度ak B:緯度bi,経度bk で弧ABの中心角を返す
a=c(cos(ai)*cos(ak),cos(ai)*sin(ak),sin(ai))
b=c(cos(bi)*cos(bk),cos(bi)*sin(bk),sin(bi))
sum(a*b) |> acos()
}
on.sphere =\(n){ # 球面上から一様分布でn個選んだ地点の緯度・経度を返す
ans=NULL
z=runif(n,-1,1)
t=runif(n,-pi,pi)
x=sqrt(1-z^2)*cos(t)
y=sqrt(1-z^2)*sin(t)
i=asin(z)
k=sign(y)*acos(x/sqrt(x^2+y^2))
cbind(i=i,k=k)
}
f=\(){
x3=on.sphere(3)
all(combn(3,2,\(x) ik2ca(x3[x[1],1],x3[x[1],2],x3[x[2],1],x3[x[2],2])) < 1/2)
}
y=replicate(1e6,f())
mean(y) 医学部医学科の格付け
SSS 東京大学（理科三類）
SS 京都大学
S 大阪大学 慶応義塾大学
--------------- 東大理一の壁 ---------------
A+ 東北大学 東京医科歯科大学 千葉大学 名古屋大学 京都府立医科大学 九州大学
A- 北海道大学 東京大学（理科二類） 横浜市立大学 大阪市立大学 神戸大学 岡山大学
B+ 筑波大学 金沢大学 広島大学 熊本大学 防衛医科大学校
B- 新潟大学 名古屋市立大学 奈良県立医科大学 長崎大学 自治医科大学 東京慈恵会医科大学
--------------- 京大上位学部（薬学部・理学部）の壁 ---------------
C+ 群馬大学 信州大学 岐阜大学 三重大学 和歌山県立医科大学 鹿児島大学 順天堂大学
C 弘前大学 鳥取大学 山口大学 徳島大学 日本医科大学 大阪医科大学
C- 札幌医科大学 福島県立医科大学 山梨大学 浜松医科大学 滋賀医科大学 産業医科大学 関西医科大学
--------------- 京大工学部の壁 ---------------
D+ 山形大学 富山大学 福井大学 香川大学 愛媛大学 大分大学 昭和大学 東京医科大学
D- 旭川医科大学 秋田大学 島根大学 高知大学 佐賀大学 宮崎大学 琉球大学 日本大学 東邦大学
--------------- 京大農学部、東工大の壁 ---------------
E+ 岩手医科大学 東北医科薬科大学 東京女子医科大学 国際医療福祉大学 近畿大学 福岡大学 久留米大学
E- 独協医科大学 埼玉医科大学 北里大学 杏林大学
--------------- 早慶理工の壁 ---------------
F 帝京大学 東海大学 聖マリアンナ医科大学 愛知医科大学 藤田保健衛生大学 金沢医科大学 兵庫医科大学 川崎医科大学
--------------- 上智理工、理科大、同志社理工の壁 ------ 直径10cm 高さ5cmの中華饅頭(球を平面で切断した形、球欠 spherical segmentとして計算）を中心から3cm 離れたところで包丁で切ったときの断面積を計算せよ。
答は有効数字3桁でよい。
参考画像 https://img1.kakaku.k-img.com/images/maga/11028/04.jpg ik2xyz=\(i,k){
x=cos(i)*cos(k)
y=cos(i)*sin(k)
z=sin(i)
c(x,y,z)
}
flg=FALSE
while(!flg){
ABCik=cbind(runif(3,-pi/2,pi/2),runif(3,-pi,pi))
ABC=apply(ABCik,1,\(ik) ik2xyz(ik[1],ik[2]))
P=ABC[1,]/2+ABC[2,]/2
Q=ABC[2,]/2+ABC[3,]/2
R=ABC[3,]/2+ABC[1,]/2
flg = sum(P^2)<1/4 & sum(Q^2)<1/4 & sum(R^2)<1/4
} "
半径１の球の表面および内部から無作為に3点A B Cを選ぶ。
球を構成するどの点も選ばれる確率は等しいとする。
三角形ABCの面積をSのとするとき、
(1) Sが1/2より大きい確率を求めよ（有効数字3桁でよい）
(2) Sの期待値を求めよ（有効数字3桁でよい）
(3) Sの分布を図示せよ
・
"
source('toolmini.R')
sim1=\(){
ABC=in.sphere(3)
ABC2S3d(ABC[1,],ABC[2,],ABC[3,])
}
S=replicate(1e6,sim1())
summary(S)
BEST::plotPost(S,compVal = 1/2)
mean(S>1/2) どの面の面積も等しく、ある1つの球に4頂点が内接する四面体は正四面体か。
Do=\(par,rotate=FALSE){
opt=optim(c(par),f,method = 'L')
print(opt)
ABC=opt$par
Ai=ABC[1]
Ak=ABC[2]
Bi=ABC[3]
Bk=ABC[4]
Ci=ABC[5]
Ck=ABC[6]
D=c(0,0,1)
A=ik2xyz(Ai,Ak)
B=ik2xyz(Bi,Bk)
C=ik2xyz(Ci,Ck)
c(ABC2S3d(D,A,B),ABC2S3d(D,B,C),ABC2S3d(D,C,A),ABC2S3d(A,B,C)) |> print()
c(abs(A-B),abs(B-C),abs(C-A),abs(D-A),abs(D-B),abs(D-C)) |> print()
ABCD=rbind(A,B,C,D)
round(ABCD,6)
plot3d(ABCD,col=2,size=10,xlab='x',ylab='y',zlab='z') ; aspect3d('iso')
combn(4,2,\(x) segments3d(ABCD[c(x[1],x[2]),1], ABCD[c(x[1],x[2]),2],ABCD[c(x[1],x[2]),3],col=2))
if(rotate) Play3d(15)
invisible(opt$par)
} addon2int=\(I,N){
A=1e8
Total=A+A*I*N/12
int1=ganri(A=A,N=N,x=Total/N)
int2=uniroot(\(i) gankin(A=A,i,N=N)[2] - Total,c(0,1)$root
c(int1,int2)
} addon2int=\(I,N){
A=1e8
Total=A+A*I*N/12
int1=ganri(A=A,N=N,x=Total/N)
# names(int1)=NULL
int2=uniroot(\(i) gankin(A=A,i,N=N)[[2]] - Total,c(0,1),tol = 1e-16)$root
data.frame(元利均等返済=int1,元金均等返済=int2)
}
addon2int(0.05,120) > addon2int(0.05,120)
元利均等返済 元金均等返済
年利 0.08689224 0.09917355 長さが2,3,4,5,6,7の6本の線分を組み合わせて最も鋭利な頂点をもつ三角錐を作る。
底面を三角形ABC、頂点をDとし頂点Dが最も鋭利とする。
(1)∠ADB+∠BDC+∠CDAは何度か？
(2)その三角錐の高さを求めよ
(3)その三角錐の体積を求めよ。
(4)その三角錐を図示せよ。
> fn(pm[imin[1],]) ; aspect3d('iso')
$D
[1] -2.500000 -2.452889 3.568380
$Vol
[1] 3.455069
$S
[1] 26.06022
$s
[1] 2.904738
$h
[1] 3.56838
$apex
[1] 74.75361 尿瓶ジジイ数学板でももう相手にされてないみたい
日本中を騒がせた某教祖みたいにブツブツ何か言ってるだけ >>825
東大卒は計算してレスしている。
東大合格者でないと答が出せないみたい。 >>826
なにをもって東大卒だよ
アンタと同じ自称だろ？ >>827
進振りの話とか体験者ならではのレスをしていたからね。
んで、あんたの自称は？
どこの国立を落ちたの？ v=rep(1:13,4)
cm=comboGeneral(v,5)
full_house=\(x){
if(length(unique(x))!=2) return(FALSE)
else if(!(4 %in% table(x))) return(TRUE)
return(FALSE)
}
apply(cm,1,full_house) |> sum() -> fh # 3744/2598960
fh/nrow(cm)
fh/nrow(cm) |> MASS::fractions()
"
ジョーカー1枚を含めて53枚のトランプから無作為に5枚取り出したとき
フルハウスである確率を求めよ。
尚、
1,1,2,1,Jokerはフルハウス
1,1,1,2,Jokerはフォーカードとみなしてフルハウスにカウントしない。
"
x=c(0,1,1,2,2) # full house
x=c(0,1,1,1,3) # 4 card
x=c(0,1,1,2,3) # 3 card
x=c(0,1,2,3,4) # one pair
vj=c(0,v)
cmj=comboGeneral(vj,5)
cmj[987654,]
tail(cmj)
full_houseJ =\(x){
if(0 %in% x){
return(all(table(x[x!=0])==2))
}
else return(full_house(x))
}
replicate(1e6,full_houseJ(cmj[sample(nrow(cmj),1),])) |> mean() >>828
東大の進振りなんて証明にならんだろw
アホすぎるから尿瓶ジジイの自称は誰にも相手にされてないから自分が建てたクソスレでしか発狂できないんだろうがw 49：１３２人目の素数さん：[sage]：2023/08/13(日) 14:05:02.12 ID:cES63u1X
マネーリタラシーのある人のための練習問題
「利息制限法の上限金利15％で月々25万ずつ25年ローンで返済するとして借りられる元金はなんぼや？」
どうも尿瓶チンパポンコツフェチのキーキー電卓は金利計算対応していないようだ。
こんなマヌケなレスするやつのどこが医者なん？w
リタラシーww flash=\(x) x%/%13 |> unique() |> length() == 1
str8=\(x){
y=x%%13
y[y==0]=13
y |> sort() |> diff() |> unique() |> length() == 1 -> re1
y[y==1]=14
y |> sort() |> diff() |> unique() |> length() == 1 -> re2
re1 | re2
} >>833
困ったときの右下側臥位。
CS経験ない椰子は知らんだろ、尿瓶おまる洗浄係くん flashJ=\(x){
x=x[x!=0]
x%/%13 |> unique() |> length() == 1
}
str8=\(x){
y=x%%13
y[y==0]=13
y |> sort() |> diff() |> unique() |> length() == 1 -> re1
y[y==1]=14
y |> sort() |> diff() |> unique() |> length() == 1 -> re2
re1 | re2
} flashJ=\(x){
x=x[x!=0]
x%/%13 |> unique() |> length() == 1
}
str8J=\(x){
if(0 %in% x){
x=x[x!=0]
y=x%%13
y[y==0]=13
y |> sort() |> diff() -> d1
d1=c(1,1,1) | d1==c(1,1,2) | d1==c(1,2,1) | d1=c(2,1,1) -> re1
y[y==1]=14
y |> sort() |> diff() -> d2
d2=c(1,1,1) | d2==c(1,1,2) | d2==c(1,2,1) | d2=c(2,1,1) -> re2
}else{
y=x%%13
y[y==0]=13
y |> sort() |> diff() |> unique() |> length() == 1 -> re1
y[y==1]=14
y |> sort() |> diff() |> unique() |> length() == 1 -> re2
}
return(re1 | re2)
} flashJ=\(x){
x=x[x!=0]
x%/%13 |> unique() |> length() == 1
}
f1=\(d){
all(d==c(1,1,1))|all(d==c(1,1,2))|all(d==c(1,2,1))|all(d==c(2,1,1))
}
f2=\(y) y |> sort() |> diff() |> unique() |> length() == 1
str8J=\(x){
if(0 %in% x){
x=x[x!=0]
y=x%%13
y[y==0]=13
y |> sort() |> diff() |> f1() -> re1
y[y==1]=14
y |> sort() |> diff() |> f2() -> re2
}else{
y=x%%13
y[y==0]=13
y |>f2() -> re1
y[y==1]=14
y |>f2() -> re2
}
return(re1 | re2)
}
str8J(c(1,2,3,0,5)) 684：卵の名無しさん (ｽｯﾌﾟﾌﾟ Sda2-Xleb [49.105.85.56])：[sage]：2023/08/03(木) 17:32:32.22 ID:69uB5F4Yd
尿瓶ジジイも自分の分をわきまえたのか
間違った脳内医療をここに晒すことはなくなったなwww偉いじゃん
尿瓶ジジイは内視鏡スレには現れるのに、消化器専門医スレには現れない
何故なんでしょうねwww
ヒント:内視鏡はコメディカルでもある程度理解できます！ あとそれぞれ専門科があるのにいちいち経験でマウントとろうとするのも愚の骨頂なw
脳内医者は何でもできる設定みたいだが > flash=apply(cm,1,flashJ)
> mean(flash)
[1] 0.002541394
> str8=apply(cm,1,str8J)
> mean(str8)
[1] 0.02493828
> str8flash= apply(cm[str8,],1,flashJ)
> mean(str8flash)
[1] 0.009348145 専門が何であれ
＞悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。
ですってｗｗｗ
＞当たり前だろ
＞当たり前だろ
＞当たり前だろ
とドヤ顔で大間違い！
typoだと言ったり、
わざと間違えたと言ったり、見苦しいよなぁ。 ジョーカーを含めた53枚のトランプから無作為に5枚を選ぶ
(1)フラッシュの確率を求めよ。
(2)ストレートの確率を求めよ。
(3)ストレートフラッシュの確率を求めよ。 >>840
一般外科やってたら、開腹・開胸手術、アンギオ、内視鏡、麻酔くらいできるだろ。
シャント造設から大腿骨頸部骨折手術までできる一般外科医と仕事をしたことがある。
frozen pelvis症例には自分で膀胱鏡下にステントを留置していたなぁ。
んで、あんたは薬屋の売り子以外に何ができるの？ マウントをとるとかいう発想はサルだね。
ボノボまで進化するとマウントをとるとかしない。 >>846
開胸とかアンギオとか麻酔とか、えらいアバウトだな
開胸っていったら心臓血管外科の手術もあるのに本当に出来るんか？
アンギオって具体的にどこをどう造影すんだよ。全部出来るって意味？
麻酔もヘルツのオペとかもあんのに出来るってことか？
ちなみに少し触ったことあるのは出来るって言わないんだよ
責任持ってちゃんと出来ることをできるって表現するんだけど、本当に責任持って仕事してる奴はお前みたいに何でもできるって言わないんだわ
お前の文章は具体性が皆無で素人の脳内妄想にしか見えんわ 209 卵の名無しさん sage 2023/08/14(月) 14:11:14.64 ID:0qVMbDv9
>>204
でもボルンホルム病の記載はなかったな。
ボルンホルム島ってどこにあるのかすら知らなかったがノルドストリーム破壊事件でデンマーク領と知った。
ACSのシマウマ鑑別にあげるとマニアックでいい。
実際に経験したことないが。
↑
これも、尿瓶の投稿だろうけど
内容が支離滅裂過ぎて笑えるわ
言葉の意味とか理解しないでそれらしい単語羅列してるんだろうな
統合失調症発症し過ぎだろ >>848
んで、あんたは薬屋の売り子以外に何ができんの？ ＞悪性症候群で抗ドーパミン薬止めない
というのができるのは知っている。
とても俺にはできんけどねｗ 尿瓶ジジイ支離滅裂に関しては反論できなくて発狂かよ >>838 バグ修正
flashJ=\(x){
x=x[x!=0]
(x-0.1)%/%13 |> unique() |> length() == 1
}
f1=\(d){
all(d==c(1,1,1))|all(d==c(1,1,2))|all(d==c(1,2,1))|all(d==c(2,1,1))
}
f2=\(y) y |> sort() |> diff() |> unique() |> length() == 1
str8J=\(x){
if(0 %in% x){
x=x[x!=0]
y=x%%13
y[y==0]=13
y |> sort() |> diff() |> f1() -> re1
y[y==1]=14
y |> sort() |> diff() |> f2() -> re2
}else{
y=x%%13
y[y==0]=13
y |>f2() -> re1
y[y==1]=14
y |>f2() -> re2
}
return(re1 | re2)
} >>851
結局、具体性に何出来るのか言えないわけね
お前が、素人の癖に適当に発言してることが良くわかったよ >>855
アッペ、ヘルニア、ヘモ、胆摘、胃切、腸切、肝切、PD、食道切除、骨盤内臓全摘、乳切、肺切とかやったよ。
ENBDやPTCDで緊急減黄やTAEでの止血も外科医の仕事だった。
緊急帝王切開の麻酔や助手も外科医の仕事。
紫色の新生児に挿管したのは思い出しても冷汗もの。
んで、あんたは
＞悪性症候群で抗ドーパミン薬止めない
というのができるののよね！
とても俺にはできないなぁｗ 心臓麻酔も数例やらされた。
まあ、ポンプマンがしっかりしていたので
挿管係みたいなものだった。
シャントやグラフト取りも指導医のもとに術者をさせてもらった。
＞悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。
ですってｗｗｗ
とかいう医師はシリツ医にもいなかった。
typoだと言ったり、
わざと間違えたと言ったり、見苦しいよなぁ。 >>849
救急外来で診断がつかない胸痛の原因として知る人ぞ知る疾患。
これは俺も知らなかったｗ、当たり前ですって。
＞悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。 用語羅列すれば脳内ブラックジャックできると思ってんのか？w 尿瓶ジジイは医者はなんでもできると思ってる素人みたい
どこの専門か聞いてんだよw >>856
この、やったって表現見る限り
一回見たら出来るもんだと勘違いしてるっぽいな
そんなん、一回やって出来るなら専門医なんで必要ないだろ
並べてる手技も難易度バラバラだし、そこらへんも全くわかってないんだろうな
脳内オペでブラックジャック気取りか？ ＞悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。
これをあんたは何度やってんの？
俺は全くやったことがないけど。
シリツ医ですらやらないと思う。
国試の禁忌肢をドヤ顔で
当たり前ですって！
typoだと言ったり、
わざと間違えたと言ったり、見苦しいよなぁ。 >>861
んで、あんたは
＞悪性症候群で抗ドーパミン薬止めない
というのができるののよね！
とても俺にはできないなぁｗ >>838 バグ再修正
flashJ=\(x){
x=x[x!=0]
(x-0.1)%/%13 |> unique() |> length() == 1
}
f1=\(d){
all(d==c(1,1,1))|all(d==c(1,1,2))|all(d==c(1,2,1))|all(d==c(2,1,1))
}
f2=\(y) (y |> sort() |> diff() ==1) |> all()
str8J=\(x){
if(0 %in% x){
x=x[x!=0]
y=x%%13
y[y==0]=13
y |> sort() |> diff() |> f1() -> re1
y[y==1]=14
y |> sort() |> diff() |> f1() -> re2
}else{
y=x%%13
y[y==0]=13
y |>f2() -> re1
y[y==1]=14
y |>f2() -> re2
}
return(re1 | re2)
}
str8J(c(2,4,6,8,10)) >>859
俺よりもversatileな外科医はいくらでも知っているが、
悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。
とかいう医師はシリツ医にもいなかった。 実行速度比較
x=sample(0:52,1e6,rep=T)
( (x-0.1)%/%13 |> unique() |> length() == 1) |> system.time()
( ((x-0.1)%/%13 |> sort() |> diff() == 0) |> all() ) |> system.time() >>863
お前、それずっと言ってるけど書いたの俺じゃないぞ
敵は全員同じに見えるんだろうな
しかも、論破されてたじゃん
まともな反論も出来ずに
>>866
んで、そのいくらでも知ってるという脳内ブラックジャックは何処の誰なんだ？
本当にいるなら名前出さなくても詳細言えるだろ >>864
>>848
んで、あんたは薬屋の売り子以外に何ができんの？ >>855
非開胸食道抜去もやったよ。鏡視下手術登場前の時代の話。
胸骨後の再建よりも細径大弯胃管での後縦隔再建の方が後出血が少ないのを実感した。胸骨後だと開胸で再建先行で体位変換が1回ですむ利点があったが非開胸ならその利点もない。 >>872
じゃあ研修医は全員ブラックジャックってことだ
アホにも程がある 尿瓶ジジイは自分の都合の悪いレスは全員同じに見える病気みたいだけど治療法なさそうだね 243：１３２人目の素数さん：[sage]：2023/07/25(火) 19:35:19.66 ID:hrc4XW/3
6つの辺の長さが3,4,5,6,7,8である四面体は（ ア ）種類ある。
269：１３２人目の素数さん：[sage]：2023/07/26(水) 18:45:05.79 ID:sev74d4g
>>243
車輪の再発明の神のお告げによれば、39通り
274：１３２人目の素数さん：[sage]：2023/07/26(水) 19:22:12.39 ID:pzlYX2uz
鏡像を同じとみなすなら四面体の各辺に3〜8の数字をあてがう方法は30通りしかない
同じと見做さないなら答えは偶数
78：１３２人目の素数さん：[sage]：2023/08/14(月) 13:03:44.28 ID:8HExdy5D
>>68
おい尿瓶リタラシージジイ、これにはダンマリか
神のお告げが完全にトンチンカンだったわけだけど一体どこから出て来たんだよw
また脳内妄想か？w
80：１３２人目の素数さん：[sage]：2023/08/14(月) 13:45:00.39 ID:aOMMoiEh
>>78
バビンスキー反射をババンスキー反射というみたいなもんじゃね？
チンパンだから人間が何を言ってるか理解できず脳内医者よろしくトンチンカンな答えしかできない模様 OutCircle <- function(A,B,C){
dot=function(x,y) Re(x)*Re(y)+Im(x)*Im(y)
a=abs(B-C)
b=abs(C-A)
c=abs(A-B)
cosA=dot(C-A,B-A)/(b*c)
cosB=dot(A-B,C-B)/(c*a)
cosC=dot(B-C,A-C)/(c*a)
center=(a*cosA*A+b*cosB*B+c*cosC*C)/(a*cosA+b*cosB+c*cosC)
radius=abs(center-A)
c(center=center,radius=radius)
}
ik2ca = \(ai,ak,bi,bk){
a=c(cos(ai)*cos(ak),cos(ai)*sin(ak),sin(ai))
b=c(cos(bi)*cos(bk),cos(bi)*sin(bk),sin(bi))
sum(a*b) |> acos()
}
ik2xyz=\(i,k){
x=cos(i)*cos(k)
y=cos(i)*sin(k)
z=sin(i)
c(x,y,z)
} f =\(ai,ak){
f1=\(bi,bk,ci,ck){
(ik2ca(ai,ak,bi,bk)-pi/3)^2 + (ik2ca(ai,ak,ci,ck)-pi/3)^2 +(ik2ca(bi,bk,ci,ck)-pi/3)^2
}
p=optim(runif(4,-pi,pi), \(x) f1(x[1],x[2],x[3],x[4]))$par
a=ik2xyz(ai,ak)[1:2]
b=ik2xyz(p[1],p[2])[1:2]
c=ik2xyz(p[3],p[4])[1:2]
A=a[1]+1i*a[2]
B=b[1]+1i*b[2]
C=c[1]+1i*c[2]
O=0+0i
c(OutCircle(O,A,B)[2],OutCircle(O,B,C)[2],OutCircle(O,C,A)[2]) |> mean()
}
f=Vectorize(f)
optim(runif(2,-pi,pi), \(x) f(x[1],x[2])) 一辺の長さ1の正四面体が通過できる円筒の最小半径を求めよ。
をRを使って数値解を出す。 f =\(ai,ak){
f1=\(bi,bk,ci,ck,theta){
(ik2ca(ai,ak,bi,bk)-pi/3)^2 + (ik2ca(ai,ak,ci,ck)-pi/3)^2 +(ik2ca(bi,bk,ci,ck)-pi/3)^2 + (ik2ca(bi,bk,0,0)-theta)^2
}
p=optim(runif(5,0,pi/2), \(x) f1(x[1],x[2],x[3],x[4],x[5]))$par
a=ik2xyz(ai,ak)[1:2]
b=ik2xyz(p[1],p[2])[1:2]
c=ik2xyz(p[3],p[4])[1:2]
A=a[1]+1i*a[2]
B=b[1]+1i*b[2]
C=c[1]+1i*c[2]
O=0+0i
OutCircle(A,B,C)[2] |> Re()
}
f=Vectorize(f)
optim(c(pi/3,pi/3), \(x) f(x[1],x[2])) f =\(ai,ak){
f1=\(bi,bk,ci,ck,theta){
(ik2ca(ai,ak,bi,bk)-pi/3)^2 + (ik2ca(ai,ak,ci,ck)-pi/3)^2 +(ik2ca(bi,bk,ci,ck)-pi/3)^2 + (ik2ca(bi,bk,0,0)-theta)^2
}
p=optim(runif(5,0,pi/2), \(x) f1(x[1],x[2],x[3],x[4],x[5]))$par
a=ik2xyz(ai,ak)[1:2]
b=ik2xyz(p[1],p[2])[1:2]
c=ik2xyz(p[3],p[4])[1:2]
A=a[1]+1i*a[2]
B=b[1]+1i*b[2]
C=c[1]+1i*c[2]
O=0+0i
OutCircle(A,B,C)[2] |> Re()
}
f=Vectorize(f)
optim(c(pi/3,pi/3), \(x) f(x[1],x[2])) OutCircle <- function(A,B,C){
dot=function(x,y) Re(x)*Re(y)+Im(x)*Im(y)
a=abs(B-C)
b=abs(C-A)
c=abs(A-B)
cosA=dot(C-A,B-A)/(b*c)
cosB=dot(A-B,C-B)/(c*a)
cosC=dot(B-C,A-C)/(c*a)
center=(a*cosA*A+b*cosB*B+c*cosC*C)/(a*cosA+b*cosB+c*cosC)
radius=abs(center-A)
c(center=center,radius=radius)
}
ik2ca = \(ai,ak,bi,bk){
a=c(cos(ai)*cos(ak),cos(ai)*sin(ak),sin(ai))
b=c(cos(bi)*cos(bk),cos(bi)*sin(bk),sin(bi))
sum(a*b) |> acos()
}
ik2xyz=\(i,k){
x=cos(i)*cos(k)
y=cos(i)*sin(k)
z=sin(i)
c(x,y,z)
} f =\(ai,ak){
f1=\(bi,bk,ci,ck,theta){
(ik2ca(ai,ak,bi,bk)-pi/3)^2 + (ik2ca(ai,ak,ci,ck)-pi/3)^2 +(ik2ca(bi,bk,ci,ck)-pi/3)^2 + (ik2ca(bi,bk,0,0)-theta)^2
}
p=optim(runif(5,0,pi/2), \(x) f1(x[1],x[2],x[3],x[4],x[5]))$par
# print(p)
a=ik2xyz(ai,ak)[1:2]
b=ik2xyz(p[1],p[2])[1:2]
c=ik2xyz(p[3],p[4])[1:2]
A=a[1]+1i*a[2]
B=b[1]+1i*b[2]
C=c[1]+1i*c[2]
O=0+0i
OutCircle(A,B,C)[2] |> Re()
}
round(optim(c(pi/3,pi/3), \(x) f(x[1],x[2]))$value,3) >>884
ダンマリといえばこれ！
尿瓶おまる洗浄係くんはどこの国立を落ちたの？ >>885
ここは全員東大卒エリートですが何か？
尿瓶ジジイ医者の尋問にはことごとくダンマリ決め込んでるじゃねーかw 全員じゃなかった脳内医者と脳内東大が紛れ込んでたw ＞悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。
ですってｗｗｗ
＞当たり前だろ
＞当たり前だろ
＞当たり前だろ
とドヤ顔で大間違い！
typoだと言ったり、
わざと間違えたと言ったり、見苦しいよなぁ。 ジョーカー1枚を含む53枚のトランプから無作為に5枚を選ぶときストレートの確率を求めよ。ストレートフラッシュも含む。
なお、A 2 3 4 5や10 J Q K Aの他にも
J Q K A 2やK A 1 2 3などもストレートとみなす設定で計算せよ。 # 馬鹿は,死ななきゃ治らない から 馬鹿は死ねば治る と演繹できるか？
# P->(!Q->!R) |- P->(Q->R) は 恒真式か？
pm3=matrix(c(T,T,T,
T,T,F,
T,F,T,
T,F,F,
F,T,T,
F,T,F,
F,F,T,
F,F,F),byrow=TRUE,ncol=3)
# library(gtools)
# pm3=permutations(2,3,v=c(T,F),re=TRUE) ; pm3
colnames(pm3)=c('P','Q','R'); pm3
imply <- function(x,y) !(x&&!y) # !(x&!y)でも可
f <- function(P,Q,R) imply(imply(P,imply(!Q,!R)),imply(P,imply(Q,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) x=sqrt(1234)^2 # (√(1234))^2
x==1234 ; x-1234
x==round(x) ; x-round(x)
x %% 1 ==0 ; x %% 1
all.equal(x, as.integer(x))
is.whole = \(x) all.equal(x, as.integer(x))==TRUE
is.whole(x)
is.whole(1-1e-16)
is.whole(1-1e-17) .Machine$double.eps
.Machine$double.eps^0.5
x=2
y=sqrt(2)^2
x==y
all.equal(x,x+1e-8)==TRUE
'%=%' = \(x,y,tol=.Machine$double.eps^0.5) abs(x-y) < tol
x %=% y
x=1/2
y=c(x,sqrt(x)^2,tan(atan(x)),cos(acos(x)))
unique(y)
diff(y)
combn(4,2,\(w) y[w[1]]%=%y[w[2]]) .Machine$double.eps
.Machine$double.eps^0.5
x=2
y=sqrt(2)^2
x==y
all.equal(x,x+1e-8)==TRUE
'%=%' = \(x,y,tol=.Machine$double.eps^0.5) abs(x-y) < tol
x %=% y
x=1/2
y=c(x,sqrt(x)^2,tan(atan(x)),cos(acos(x)))
unique(y)
diff(y)
combn(4,2,\(w) y[w[1]]%=%y[w[2]]) .Machine$double.eps
.Machine$double.eps^0.5
x=2
y=sqrt(2)^2
x==y
all.equal(x,x+1e-8)==TRUE
'%=%' = \(x,y,tol=.Machine$double.eps^0.5) abs(x-y) < tol
x %=% y
x=1/2
y=c(x,sqrt(x)^2,tan(atan(x)),cos(acos(x)))
unique(y)
diff(y)
combn(4,2,\(w) y[w[1]]%=%y[w[2]]) 今日のEGDは検診以外に外来患者が多かったので有所見で時間がかかった。 .Machine$double.eps
.Machine$double.eps^0.5
x=1/2
y=c(exp(log(x)),sqrt(x)^2,cos(acos(x)))
unique(y)
x-y
" e^log(1/2), (√1/2)^2,cos(acos(1/2))"
'%=%' = \(x,y,tol=.Machine$double.eps^0.5) abs(x-y) < tol
combn(3,2)
combn(3,2,\(w) y[w[1]] %=% y[w[2]])
combn(3,2,\(w) y[w[1]] == y[w[2]]) .Machine$double.eps
.Machine$double.eps^0.5
x=1/2
y=c(exp(log(x)),sqrt(x)^2,cos(acos(x)))
unique(y)
x-y
" e^log(1/2), (√1/2)^2,cos(acos(1/2))"
'%=%' = \(x,y,tol=.Machine$double.eps^0.5) abs(x-y) < tol
combn(3,2)
combn(3,2,\(w) y[w[1]] %=% y[w[2]])
combn(3,2,\(w) y[w[1]] == y[w[2]]) コーンの味付けに、
バターレモン醤油、正確にはバター・レモン汁・醤油、みりん、日本酒、オイスターソース
を超えるのは未だに発見できない。
まあ、妻の味覚次第ではあるが。 バターをワサビに変えたら評判が悪かった。
きょうは、時間がとれるのでSBの赤缶でなくて
自分でスパイスを粉にしてスパイスカレー（バターチキンカレー）を調理。
作ってみての発見
カルダモン：爪切りで被殻を切って縦割りにして種を摘出
グローブ：ペンチで茎を分割してから電動ミルにかけると効率がよい
マリネに使ったヨーグルトが焦げるので鶏肉に焼きをいれるときは目を離さない方がいい。
あとで焦げをとるのが大変だった。
電気圧力鍋の方が断然楽だと感じた。 ミックスナッツを細かく粉砕しようとフードプロセッサーの稼働時間を長くすると
団子のようになってくることを発見。
まるでキッシュの台みたいになった。
ミックスナッツもグルテン含有なのだろうか？ これで納得
https://tombouctou-food.com/ja/ja83047/
俺も妻も小麦アレルギーがあるわけじゃないから、
混ぜすぎ注意で( ・∀・)ｲｲ!! 数学板覗いたら
尿瓶ジジイが小中学生が質問してるのにガン無視して自分のオナニーレス連投してて笑えるわ
マジで空気読めないんだな
イナとかいうコテハンはちゃんと質問に答えてるのに尿瓶ジジイは職員の採用試験のテストを作ったとかいうトンチカンなレス
マジで頭おかしいんだな Rで求めた数値解を東大卒が検算してくれている。
結果が一致。
まあ、作図した画像が問題文と一致しているので当然ではあるが。 ∫[0,1]x (x- x^3/3)/(5/12) dx SBの赤缶使ってバターチキンカレーは飽きてきたので
スパイスをホールからミルにしてスパイスバターチキンカレーにした。
イトリキカレーを彷彿させる旨さで( ・∀・)ｲｲ!! ニッパー型の爪切りが届いたので、スパイスの皮むきや粉砕が楽になる。 "
球形をした100gのチョコボールを無作為に包丁で二分割して大きい方がもらえる。
90ｇ以上のチョコが貰える確率は約何％か？答は整数でよい。
"
https://i.imgur.com/TGTZDA1.png
解析解を出すのは厄介だが、Rで数値解を出すのは容易（たやす）い。 尿瓶ジジイは今はポスト急性期スレにご執心みたいだね
稚拙な文章だから一発でわかるw >>909
で、Rもしくは別言語で39通りを返してくることは検証したのか？
Rが使えないなら、Pythonでの結果を書いてくれ。
どちらも使えない？
さては、シリツだな。 >>911
イトリキカレーは通販では入手できなくなったが、
それらしい味が再現できるようになったので( ・∀・)ｲｲ!!
嫁もイトリキカレーみたいと評価してくれた。
後は手間をどうやって省くかだな。
スパイスの成分が脂溶性というところがネック。 マウスへのXBBワクチンで抗原原罪が示されているのには笑えた。
その差を小さくみせようとする片対数グラフ
https://i.imgur.com/nGHBsGX.png
常数グラフにすると
https://i.imgur.com/TNuf7r4.png
俺は救急外来と内視鏡が業務なのでワクチン接種に駆り出されることもないので
心が痛むことはないが、業務命令でワクチン接種させられる医師は心が痛むだろうなぁ。 >>920
Rが返してきたからね。
おそらく丸め誤差のせいだろう。
んで、あんたはRもPythonも使えないの？
（１）シリツなんだろ？
（２）どこの国立を落ちたの？
東大の合格通知の書式も知らなかったから東大非合格は確定しているが、
シリツかどうかは不明。 壊れた電卓で答えを出してドヤ顔非東大卒尿瓶ジジイw >>924
んでマヌケなR使いの尿瓶ジジイはどこの国立受けられなかったの？w 内視鏡について Part.6
256：卵の名無しさん：[sage]：2023/08/21(月) 09:42:36.61 ID:YOqPFqww
胆汁ドレナージがおかしいと思わない人レスして下さいw
258：卵の名無しさん：[sage]：2023/08/21(月) 16:36:37.26 ID:rjL6N2qz
>>255＝尿瓶ジジイが医者だと思う人レスしてー
2日間擁護レス一切なし
これが尿瓶の現実 高校数学の質問スレ Part430
323:
１３２人目の素数さん[sage]
2023/07/27(木) 20:23:10.61
>>320
残念なのは、都合の悪いことは全部スルーするお前のオツムだろ
臨床ネタとかいう表現も何か素人臭いし
同業者ってのもお前の自演なんじゃねーの 285：卵の名無しさん：[sage]：2023/08/23(水) 03:24:37.77 ID:vRLwbOfG
>>282
あんたのとこじゃ、90歳代での大腿骨頸部骨折は放置見殺しにしてんの？
尿瓶ジジイ、保存的加療という概念がないことを指摘されて発狂中ww >>929
大腿骨頸部骨折を放置して見殺しとか
やっぱ頭おかしいな尿瓶ジジイはwww
これは脳内医者ですわ N=10
cm=comboGeneral(1:N,N,repetition = TRUE)
f=\(x){
sum(combn(length(x),2,\(y) x[y[1]]==x[y[2]]))
}
equal_count=apply(cm,1,f)
unique_length=apply(cm,1, \(x) length(unique(x)))
ue=cbind(unique_length,equal_count)
ue[order(ue[,1]),]
table(equal_count)
n=13
ue[ue[,2]==n,1] |> table() １０個の球があり、球には何種類の重量があるかを推測したい。
２つの球の組み合わせ４５通りで２つの球の重量が等しいかを調べた結果
１３の組み合わせて重量が等しいことが判明した。
(1)球の重量の種類として可能性のあるのは何種類か？
(2)何種類の球の可能性が最も高いか？ ＞都合の悪いことは全部スルーする
といえばこれ！
（１）シリツなんだろ？
（２）どこの国立を落ちたの？ >>933
都合の悪いことスルーするのはお前だろwww
大腿骨頚部骨折を保存的に診るのが見殺しってどういうこと？みんな死んじゃうの？www >>934
大腿骨頸部骨折ガイドラインくらい読めよ。
＞都合の悪いことは全部スルーする
といえばこれ！
（１）シリツなんだろ？
（２）どこの国立を落ちたの？ PowerToysのtextextractor
Win+Shit+Tでクリップボードにテキスト転送。
最近の報告では.緊急で入院後 24 時間以内に手術する必要はないものの.内科的合併症で手術が遅れる場合を除いて,できるだけ早期に手術を行うべきであるという報告が多くなっている.また,日本でも早期手術の有効性が報告されているが.現在の医療体制では欧米並みの早期手術を行うことは困難なことが多い早期手術は合併症が少なぐ生存率が高く.入院期間が短い.加 14 年の日本の大腿骨頚部骨折の手術待機期間は平均 4.9 日であり.欧米に比べ長い. >>926
尿瓶おまる洗浄係が書いているだけだろ。
んで、あんたシリツだろ？ >>937
残念ながら違うんだな～www
療養病院のスレであんな臨床にそわない書き込みしてたら、そりゃ叩かれますわ
医者じゃないから臨床の実際とか、わからんのだろ？だから、ネットに転がってるガイドラインぐらいしかすがるものが無い
大腿骨頚部骨折なんて、急性期病院だと全麻でやる事多いから超高齢者にやっても逆に誤嚥性肺炎起こすんだよ
しかもやっても、結局歩けなくて寝たきりになる奴が多いのが実際。そういう現実がわかってるからの反応なんだよ脳内医者君www >>935
ガイドラインを、やたらに押してるのに
急性下肢動脈閉塞にはERCP用のバルーンを使うなんて矛盾してるよね？www
脳内医者は実際経験してないから意見コロコロ変わっちゃうねwww v=sort(sample(20,replace = T)) ; v
Unique=\(v){
ans=NULL
for(i in 1:length(v)) if(!(v[i] %in% ans)) ans=c(ans,v[i])
ans
}
Unique(v) >>939
離島で必要に迫られたら、やるよ。
あんたにはできそうにないけどね。 >>938
CPRしなくて訴訟に巻きこれた同僚がいるからね。それを契機に退職。
CPRやって苦情がくることはあっても訴訟にまではならん。
自己保身が第一。 >>938
うちの整形外科医が今月100歳の頸部骨折をオペしていたぞ。
目標とした車椅子での移動が可能になった。 # 重複する数値を除いて返す
Unique=\(v){
ans=NULL
for(i in 1:length(v)) if(!(v[i] %in% ans)) ans=c(ans,v[i])
ans
}
v=sort(sample(20,replace = T)) ; v
Unique(v)
# 近似値を等値とみなして、重複する数値を除いて返す uniqueｎファジイ版
uniq=\(v){
'%=%' = \(x,y,tol=.Machine$double.eps^0.5) abs(x-y) < tol
ans=NULL
for(i in 1:length(v)) if(!any(v[1] %=% ans)) ans=c(ans,v[i])
ans
}
v2=c(exp(log(2)),tan(atan(2)),sqrt(2)^2,1-exp(1i*pi))
Unique(v2)
uniq(v2) 代用品使って下肢がsalvageできる可能性があるのにやらないのは見殺しだな。
異物除去に気管支鏡で膀胱鏡の代用した話が内視鏡スレに書いてあったなぁ。
術中胆道ファイバーの代用に気管支鏡は普通に使っていたが。 >>941
だったらガイドラインがどうとか抜かすなよ
サルベージ出来なくて訴えられたらどうすんの？リトリーバル使って失敗したら翌日本島に送ってもらった方がマシでしたってなるわwww言ってることが無茶苦茶だな >>942
何で急にCPRの話になるんだ？大腿骨頚部骨折の話だったよね？手術しないで保存的に見たら訴えられるのか？
自己保身が大事なのに保険適応外のバルーン使うの？普通は抗凝固薬使って翌日搬送するよね。自己保身が大事なのにやったことも無い手技やるの？失敗したら訴えられる可能性あるけど
お前の言ってることは無茶苦茶なんだよ
馬鹿なんだから黙ってろwww >>943
そりゃそういう奴もいるわ100歳でも元気だったらやるに決まってるだろ
療養病院にいるような高齢者にやることがナンセンスだって話なんだよ
そういう議論出来ない癖に、適応とか言ってるから総スカン喰らうんだろアホ # 近似値を等値とみなして、重複する数値を除いて返す uniqueのファジイ版
uniq=\(v){
'%=%' = \(x,y,tol=.Machine$double.eps^0.5) abs(x-y) < tol
ans=NULL
for(i in 1:length(v)) if(!any(v[i] %=% ans)) ans=c(ans,v[i])
ans
} >>946
まあ、翌日まで置いたらアンプタ、へたすりゃ腎不全で死亡したんじゃないかな？ >>948
ナンセンスで許されたらCPRにしなかった医師も訴訟に巻き込まれることはなかっただろうね。 >>943
だから何で保存的加療が見殺しになるのかって聞いてんだよタコ
全例全麻でオペすんのか？
脳内の分際で何が保身だよw 尿瓶ジジイこれだけ一から十まで解説してもらってもまだ発狂止まらないか
所詮脳内医療だからどう言う患者がオペ適応なのか永遠に理解できないみたいだな
例のスレでも同じこと言われてダンマリ決め込んでるし >>951
心肺停止じゃなくて大腿骨頚部骨折だろ
話そらしてんじゃねーよ
保存的に診るのも立派な治療だし、家族が希望したら手術するところに送るが
そうしないように上手にムンテラしろって話してんだよ
CPRやらないで訴えられてんのはその医者が状況把握出来なかったアホってだけだろ
普通はそんことにならないし、確認出来なかったらフルでやるわ 尿瓶ジジイよ
次スレ立ててもお前みたいな脳内医者は永遠と馬鹿にされるだけだからな
底辺私立医大すら入学出来ない脳内医者って頭悪いよね？ Part1
てスレタイに変えとけよwww >>950
腎不全で即死するわけ無いだろwww
翌日透析すればとりあえずは死なんわ
ツッコミどころ満載過ぎて笑えるwww
お前、俺を笑い死にさせる気か？ >>950
お前、何もわかってないから教えてやるが
ALIの致死率高いのは筋肉の細胞壊死が進行して、遅れて再灌流させると高カリウム血症とか多臓器不全で死ぬんだよ。腎不全になるが別に腎不全が原因で死ぬわけじゃない
後、血行再建しなけりゃMNMSは起こらんので、離島で放置してへたしても腎不全にならんし死にませんwww
そんな無能医者に離島で治療されたら俺なら訴えるわ
脳内医者だから被害者いなくて良かったよ！ 尿瓶ジジイは心臓止まったらみんな挿管しないと助からないと思ってるんだろうな
ACLSを理解出来てない証拠だわ
CPRってのは気道確保は必要だか挿管は必須では無い
DNARでも予期せぬ心肺停止ならCPRはやるが普通はすぐに挿管しないで30:2で心マしながらアンビュで揉むの。そんで再度コース確認するんだよ。最悪ROSCしてから必要があれば挿管すれば良い。挿管時間かかったらむしろ蘇生率悪くなるしな。胸郭上がって無かったらやるかもだが
尿瓶ジジイは医療ドラマの見すぎだろwww 所詮脳内医療じゃこの程度が限界か
まあ言葉のサラダすぎて一般人以下だけどw >>937
出たー自分に都合の悪いレスは全員同じに見える病気w
どこがどう同一人物なんだよ？アンタも医者なら論理立てて説明したら
何の手術でもそうだが適応あれば全員手術すると思ったら大間違いだぞ
適応がありそうだとしてまず患者かもしくは家族に希望があるかどうかきかないといけない
発熱してる時に緊急以外のオペするとでも思ってんのか？
脳内医者だからそういう想像力なんか持ち合わせてないんだろ >>958
つまり、放置してたらアンプタを余儀なくされたってことじゃん。
んであんたは血栓除去やったことあんの？
薬屋の売り子しかできんのじゃないの？ そういえば非開胸食道抜去に複数のアプローチがあると言ってたが、どういうアプローチがあんの？ ＞悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。
ですってｗｗｗ
＞当たり前だろ
＞当たり前だろ
＞当たり前だろ
とドヤ顔で大間違いを投稿！
typoだと言ったり、
わざと間違えたと言ったり、
恥ずかしくね？ >>962
ALIのゴールデンタイムはカテゴリーⅡa以上で6時間以内とされているが、実際は年寄りは動脈硬化で側副血行路が発達してることが多く
accute on chronicの症例がほとんどで24時間以内（むしろそれ以上でも）に血行再建すればアンプタになることなんてほとんど無い
医原性で直接どん詰まりさせたりしなけりゃカテゴリーⅢとかにはならない
つまり、離島で緊急で血行再建しなけりゃいけない症例は皆無ってことだよ
理解出来たか？脳内医者 >>964
翌日送ってやれよ馬鹿だろwww
緊急で透析やんなきゃ死ぬ可能性あんのはリチウム中毒ぐらいだよ >>965
それ永遠と言ってるけど誰と勘違いしてるんだよwwwこのスレでお前しか話題にしてないぞ
しかもそんな化石みたいな手術やったことある設定で自慢してるが全く自慢にならんだろ
>>966
それは、お前を馬鹿にするためにわざと間違えたって>>369で今節丁寧に論破してあげたよな？馬鹿だから理解出来ない？それとも、馬鹿だから他に反撃する手段が無いのかな？
頭悪すぎて論理的に話せないからコピペに永遠と頼るんだね統合失調症さんwww 都合の悪いレスは全員同じに見えるんだよ病気だから
つける薬はないみたいだね 手加減しないとすぐダンマリしちゃうなwww
やっぱ尿瓶の食い付きそうなtypoしてあげないと駄目だな
typoしても馬鹿過ぎて気づくのに時間かかるからさじ加減が難しいwww 尿瓶ジジイ、今日の書き込みこれだけw
336：１３２人目の素数さん：[sage]：2023/08/25(金) 11:34:59.92 ID:2O5dvMpP
>>335
んで、どこの国立を落ちたの？ 今日はEGD12件と予約枠超過。
まあ９時前に２人終了できたので帰りの時間は同じ。 クリニックで半日7万の募集があったけど入院設備のないところでのバイトはしたくないな。 >>967
afの塞栓で血栓除去が遅れてアンプタになったのをみたなぁ。
んであんたは血栓除去できないクズなんだろ？ 尿瓶ジジイ一晩考えた反論がそれ？w
afの話なんていつしたんだよタコ >>976
えっ！マジで一晩考えた反論がそれだけ？
見たからなんなんだよwww
普通はデータとか持ってきて
「それは違うだろ!」って初めて反論出来るんだよ。お前の脳内妄想症例なんぞ何も信憑性無いだろwww
せめてケースレポートとか持って来いよ
本当に頭悪いんだな・・・
ちなみにやったことあるのと出来るのは違うからな脳内医者さんwww本当に出来るならせめて具体的に手技のやり方記載してみろよ >>978
んで、血栓除去の経験は？
非開胸食道抜去の経験は？
その復数のアプローチって何？ 薬屋の売り子しかできないクズが
＞悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。
ですってｗｗｗ
＞当たり前だろ
＞当たり前だろ
＞当たり前だろ
とドヤ顔で大間違いを投稿！
ド底辺シリツ医ですら、ｋんなことは言わないだろう。 >>979
駄目だな流石にアホすぎてつまらん
会話になってないぞ？仮に俺が血栓除去出来るって掲示板に書いても証拠なんて無いしな
まあ、お前より詳しいのは確実だがwww
お前も医者じゃないの、もうバレてんだから変な書き込みして恥かくの止めたら？
悔しかったら再受験でもして頑張って医者になれよwww
お前みたいな馬鹿は周りの再受験した奴にもいなかったがwww この糞スレもそろそろ埋めて終わりにするか
それか下のスレタイで俺が代わりに立ててやろうかwww
↓
【脳内医者】底辺私立医大すら入学出来ない脳内医者って頭悪いよね？ Part1【尿瓶ジジイ】 ジャック！
↓
最後尿瓶ジジイの反撃が始まりますwww 反撃始まりませんでしたwww
尿瓶ジジイ雑魚過ぎぃ！ このスレッドは１０００を超えました。
新しいスレッドを立ててください。
life time: 128日 10時間 7分 0秒 5ちゃんねるの運営はプレミアム会員の皆さまに支えられています。
運営にご協力お願いいたします。
───────────────────
《プレミアム会員の主な特典》
★ 5ちゃんねる専用ブラウザからの広告除去
★ 5ちゃんねるの過去ログを取得
★ 書き込み規制の緩和
───────────────────
会員登録には個人情報は一切必要ありません。
月300円から匿名でご購入いただけます。
▼ プレミアム会員登録はこちら ▼
https://premium.5ch.net/
▼ 浪人ログインはこちら ▼
https://login.5ch.net/login.php レス数が1000を超えています。これ以上書き込みはできません。
