タイトルまんまです
すなわち、タイトルの正しさを検証するスレです。
前スレ
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/
自分は教育に失敗したが祖父の口癖
これが私大医学部OBの悲しい現実
これが現実です
(unquote)
一生で最大の屈辱
一生で最大の屈辱
一生で最大の屈辱
と表現されております。
VIPQ2_EXTDAT: checked:vvvvvv:1000:512:: EXT was configured
底辺私立医大を卒業した医者って頭悪いよね? Part28
レス数が1000を超えています。これ以上書き込みはできません。
1卵の名無しさん (ワッチョイ cb58-PVsb [14.13.16.0])
2023/04/19(水) 08:51:09.37ID:oab16zUD02卵の名無しさん (スッププ Sd43-eQBn [49.105.98.133])
2023/04/19(水) 09:13:28.23ID:cPRg/LCTd 1000 卵の名無しさん (JP 0H69-eQBn [202.253.111.210]) sage 2023/04/18(火) 10:37:23.29 ID:II9wm10wH
平素より大変お世話になっております。
私こと尿瓶ジジイは、実は東京医科歯科卒などではありません。もちろん東大なんか受かったこたはなく、医者でもないただの医療事務です。医者の皆さんが羨ましくずっと書き込んでおりましたが、最近は誰にも相手にされないためこのスレは終了とさせて頂きます。今まで、嘘ばかり書いて申し訳ありませんでした。
平素より大変お世話になっております。
私こと尿瓶ジジイは、実は東京医科歯科卒などではありません。もちろん東大なんか受かったこたはなく、医者でもないただの医療事務です。医者の皆さんが羨ましくずっと書き込んでおりましたが、最近は誰にも相手にされないためこのスレは終了とさせて頂きます。今まで、嘘ばかり書いて申し訳ありませんでした。
3卵の名無しさん (ワッチョイ d558-PVsb [14.13.16.0])
2023/04/19(水) 16:08:08.19ID:oab16zUD0 現在も通用する、不朽の名投稿
(quote)
私は昭和の時代に大学受験したけど、昔は今よりも差別感が凄く、慶応以外の私立医は特殊民のための特殊学校というイメージで開業医のバカ息子以外は誰も受験しようとすらしなかった。
常識的に考えて、数千万という法外な金を払って、しかも同業者からも患者からもバカだの裏口だのと散々罵られるのをわかって好き好んで私立医に行く同級生は一人もいませんでした。
本人には面と向かっては言わないけれど、俺くらいの年代の人間は、おそらくは8-9割は私立卒を今でも「何偉そうなこと抜かしてるんだ、この裏口バカが」と心の底で軽蔑し、嘲笑しているよ。当の本人には面と向かっては絶対にそんなことは言わないけどね。
(unquote)
(quote)
私は昭和の時代に大学受験したけど、昔は今よりも差別感が凄く、慶応以外の私立医は特殊民のための特殊学校というイメージで開業医のバカ息子以外は誰も受験しようとすらしなかった。
常識的に考えて、数千万という法外な金を払って、しかも同業者からも患者からもバカだの裏口だのと散々罵られるのをわかって好き好んで私立医に行く同級生は一人もいませんでした。
本人には面と向かっては言わないけれど、俺くらいの年代の人間は、おそらくは8-9割は私立卒を今でも「何偉そうなこと抜かしてるんだ、この裏口バカが」と心の底で軽蔑し、嘲笑しているよ。当の本人には面と向かっては絶対にそんなことは言わないけどね。
(unquote)
4卵の名無しさん (ワッチョイ d558-PVsb [14.13.16.0])
2023/04/19(水) 16:11:53.43ID:oab16zUD0 旧二期校の医科歯科が羨ましいとは
どこの底辺卒だよ!
どこの底辺卒だよ!
5卵の名無しさん (JP 0Hab-0V8a [61.199.225.248])
2023/04/19(水) 17:13:01.65ID:N0v4F2QrH >>4
で、卒業証書や合格証書は脳内だけか?w
で、卒業証書や合格証書は脳内だけか?w
6卵の名無しさん (スッププ Sd43-eQBn [49.105.97.193])
2023/04/19(水) 18:14:54.97ID:6py6YH7Rd7卵の名無しさん (アウアウウー Saa9-0V8a [106.128.75.116])
2023/04/19(水) 22:42:52.77ID:kz2o5bGna まあ病的だよな
ここまで執着すると
ここまで執着すると
8卵の名無しさん (ワッチョイ 8b6e-SO08 [153.242.146.13])
2023/04/22(土) 08:24:39.32ID:NzrJoE9U0 【群大医】これが「大学病院」の闇…
「第一外科vs.第二外科」18人もの患者が死亡した医療事故の裏で起きた医師たちの「権威闘争」
https://asahi.5ch.net/test/read.cgi/newsplus/1682119129/
「第一外科vs.第二外科」18人もの患者が死亡した医療事故の裏で起きた医師たちの「権威闘争」
https://asahi.5ch.net/test/read.cgi/newsplus/1682119129/
9卵の名無しさん (ワッチョイ 6912-WZcP [180.1.104.4])
2023/04/23(日) 12:37:43.55ID:L3BM20sg0 おい尿瓶
そんなに高校生にバカにされるのが楽しいか
そんなに高校生にバカにされるのが楽しいか
10卵の名無しさん (アウアウウー Sa9d-WZcP [106.128.74.205])
2023/04/23(日) 13:18:14.80ID:Mdwr/FIMa11卵の名無しさん (ワッチョイ 99c7-RykB [124.47.76.122])
2023/04/24(月) 05:42:49.46ID:pbBtauVm0 > 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
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
12卵の名無しさん (ワッチョイ 99c7-RykB [124.47.76.122])
2023/04/24(月) 05:43:14.91ID:pbBtauVm0 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))
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))
13卵の名無しさん (ワッチョイ 99c7-RykB [124.47.76.122])
2023/04/24(月) 05:43:29.44ID:pbBtauVm0 サイコロXは、通常のサイコロの1面の数字SをS以外の1以上6以下の数字Tに置き換えたものである。
AさんがXを6回振ったところ、出た目の総和が20であった。
Bさんは振った回数と出た目の総和しか知らないものとし、SとTを当てる賭けをする。
(1)Sをいくつに賭けるときが最も有利か?
(2)Tをいくつに賭けるときが最も有利か?
(3)順列(S,T)をいくつに賭けるときが最も有利か?
AさんがXを6回振ったところ、出た目の総和が20であった。
Bさんは振った回数と出た目の総和しか知らないものとし、SとTを当てる賭けをする。
(1)Sをいくつに賭けるときが最も有利か?
(2)Tをいくつに賭けるときが最も有利か?
(3)順列(S,T)をいくつに賭けるときが最も有利か?
14卵の名無しさん (ワッチョイ 99c7-RykB [124.47.76.122])
2023/04/24(月) 05:44:05.06ID:pbBtauVm0 # 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='+')
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='+')
15卵の名無しさん (ワッチョイ 99c7-RykB [124.47.76.122])
2023/04/24(月) 05:45:54.01ID:pbBtauVm016卵の名無しさん (アウアウウー Sa9d-WZcP [106.128.75.142])
2023/04/24(月) 08:24:14.99ID:E5pw7piOa17卵の名無しさん (JP 0Hd3-cLRz [217.138.252.98 [上級国民]])
2023/04/25(火) 18:22:36.41ID:LeuEREyFH "
0から9までの異なる数字を無作為に6個選んでサイコロの6面に書く。
このサイコロを6回振ったときにでた目の合計が30であった。
この情報からサイコロに書かれた6つの数字の和を当てる賭けをする。
いくつに賭けるのが最も有利か?
"
0から9までの異なる数字を無作為に6個選んでサイコロの6面に書く。
このサイコロを6回振ったときにでた目の合計が30であった。
この情報からサイコロに書かれた6つの数字の和を当てる賭けをする。
いくつに賭けるのが最も有利か?
"
18卵の名無しさん (JP 0Hd3-VGWV [217.138.252.98 [上級国民]])
2023/04/25(火) 18:23:44.01ID:LeuEREyFH 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)
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)
19卵の名無しさん (アウアウウー Sa9d-WZcP [106.128.69.11])
2023/04/25(火) 22:53:35.58ID:Z38HgBwea 自分の巣だと見て見ぬふりする癖になんでここだと瞬間湯沸かし器なんだろうな尿瓶w
高校生の手前許せないのか?w
そんなことよりいつになったら証書出せるんだよ
脳内だから出せないだけだろw
高校生の手前許せないのか?w
そんなことよりいつになったら証書出せるんだよ
脳内だから出せないだけだろw
20卵の名無しさん (アウアウウー Sa9d-WZcP [106.128.69.11])
2023/04/25(火) 22:54:13.78ID:Z38HgBwea21卵の名無しさん (JP 0Hd3-cLRz [217.138.212.98 [上級国民]])
2023/04/27(木) 06:23:59.24ID:NSies2iFH 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)
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)
22卵の名無しさん (アウアウウー Sa9d-WZcP [106.128.73.134])
2023/04/27(木) 08:07:23.45ID:oYGUQih8a おい尿瓶w
23卵の名無しさん (ワッチョイ a958-VGWV [14.13.16.0 [上級国民]])
2023/04/28(金) 21:33:36.49ID:VugtqBoA0 "
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
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
24卵の名無しさん (ワッチョイ a958-cLRz [14.13.16.0 [上級国民]])
2023/04/28(金) 21:43:30.27ID:VugtqBoA0
底辺とは言っても学費4000万前後のとこぐらいやと思うわ
26卵の名無しさん (アウアウウー Sa89-mm8H [106.128.73.164])
2023/04/29(土) 11:47:30.82ID:H3GCipLwa レスから頭の悪さが滲み出てるのにも関わらず自称高学歴を言い張り証拠を出せと言われると発狂する尿瓶は医学部どころか社会の底辺だからw
27卵の名無しさん (JP 0Ha3-1/DB [217.138.212.122 [上級国民]])
2023/04/29(土) 14:02:06.77ID:URqx7JhJH28卵の名無しさん (アウアウウー Sa89-mm8H [106.128.73.29])
2023/04/29(土) 16:53:18.30ID:VTv+dB5Ra29卵の名無しさん (ワッチョイ a5c1-mm8H [182.171.229.29])
2023/04/30(日) 01:59:55.67ID:jKdo1vev030卵の名無しさん (ワッチョイ b558-efom [14.13.16.0])
2023/04/30(日) 06:46:27.84ID:EX1YNdW40 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)
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)
31卵の名無しさん (ワッチョイ b558-LiuH [14.13.16.0 [上級国民]])
2023/04/30(日) 06:47:59.23ID:EX1YNdW4032卵の名無しさん (ワッチョイ b558-efom [14.13.16.0])
2023/04/30(日) 06:59:18.30ID:EX1YNdW40 > ans11<-(3*n/6^11) |> print()
[1] 0.06389954
> fractions(ans11)
[1] 1033/16166
[1] 0.06389954
> fractions(ans11)
[1] 1033/16166
33卵の名無しさん (アウアウウー Sa89-mm8H [106.128.68.225])
2023/04/30(日) 08:34:11.84ID:frHDLfZ8a >>31
んで、どこの大学受けられなかったんだ?
んで、どこの大学受けられなかったんだ?
34卵の名無しさん (ワッチョイ 05c7-fitb [124.47.76.122])
2023/04/30(日) 09:49:45.07ID:Y64Lj8+R0 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()
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()
35卵の名無しさん (ワッチョイ 05c7-fitb [124.47.76.122])
2023/04/30(日) 10:52:44.56ID:Y64Lj8+R0 >>33
俺は二期校の受験だから、理Iと二期校の国立医学部を受験できた。
どちらも通ったので医科歯科を選択。同じように理Iを辞退して入学した同期が数人いた。
学卒も2~3割くらいいた。歯学部には東大数学科卒もいた。
俺は二期校の受験だから、理Iと二期校の国立医学部を受験できた。
どちらも通ったので医科歯科を選択。同じように理Iを辞退して入学した同期が数人いた。
学卒も2~3割くらいいた。歯学部には東大数学科卒もいた。
36卵の名無しさん (ワッチョイ 23ed-mm8H [125.174.252.214])
2023/04/30(日) 12:19:36.50ID:xrHA8CFO0 >>35
nuresesじゃどこの大学も受けられないわなw
nuresesじゃどこの大学も受けられないわなw
37卵の名無しさん (ワッチョイ 23ed-mm8H [125.174.252.214])
2023/04/30(日) 13:00:29.35ID:xrHA8CFO0 564 132人目の素数さん[sage] 2023/04/30(日) 12:56:46.26 ID:0fwaCOIg
>>560
それでも理Iも医科歯科も合格できるよ。
俺は二期校時代の受験なので理Iと二期校医学部を受験する学生は普通にいたよ。
んで、あんたはシリツ卒なの?どこの国立を落ちたのよ?
それでもww必死すぎて哀れ
もう名乗ったもん勝ちだね、まあ誰も相手にしてないけどw
>>560
それでも理Iも医科歯科も合格できるよ。
俺は二期校時代の受験なので理Iと二期校医学部を受験する学生は普通にいたよ。
んで、あんたはシリツ卒なの?どこの国立を落ちたのよ?
それでもww必死すぎて哀れ
もう名乗ったもん勝ちだね、まあ誰も相手にしてないけどw
38卵の名無しさん (ワッチョイ 05c7-fitb [124.47.76.122])
2023/04/30(日) 14:17:59.46ID:Y64Lj8+R0 "
正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)
正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)
39卵の名無しさん (ワッチョイ 05c7-fitb [124.47.76.122])
2023/04/30(日) 14:44:20.32ID:Y64Lj8+R0 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
}
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
}
40卵の名無しさん (アウアウウー Sa89-mm8H [106.128.69.28])
2023/04/30(日) 21:31:17.63ID:X318I7Jwa おい尿瓶ジジイ
脳内学歴の合格通知書はまだかって聞いてんだよ
英語どころか日本語も読めないのか?w
脳内学歴の合格通知書はまだかって聞いてんだよ
英語どころか日本語も読めないのか?w
41卵の名無しさん (ワッチョイ 05c7-fitb [124.47.76.122])
2023/04/30(日) 22:31:11.62ID:Y64Lj8+R042卵の名無しさん (ワッチョイ 05c7-fitb [124.47.76.122])
2023/04/30(日) 22:33:04.49ID:Y64Lj8+R0 どこの国立を落ちたの?と問われると発狂するのが尿瓶チンパポンコツフェチである。
43卵の名無しさん (JP 0H49-4ZV1 [202.253.111.210])
2023/05/01(月) 07:54:53.87ID:e5wAyPfDH 久しぶりに来たけど尿瓶全く医学知識に触れてなくて草
オウムみたいに同じセリフ繰り返してるだけ
認知症かな?www
オウムみたいに同じセリフ繰り返してるだけ
認知症かな?www
44卵の名無しさん (JP 0H2b-mm8H [61.199.225.248])
2023/05/01(月) 10:03:13.57ID:B/PTfBdTH45卵の名無しさん (スーップ Sd43-NVGG [49.106.118.127])
2023/05/02(火) 17:31:29.85ID:ChvRm4OJd 久しぶりに来たけど医師免許証も出せない脳内妄想医ってまだいたんだw
46卵の名無しさん (JP 0H2b-mm8H [61.199.225.248])
2023/05/02(火) 18:16:13.21ID:xnfY7J6UH すくなくとも2015年あたりからずっと発狂してるよw
47卵の名無しさん (スーップ Sd43-NVGG [49.106.118.127])
2023/05/02(火) 19:38:15.50ID:ChvRm4OJd その頃に医学部入ってたら今頃卒業して本当に医者になれてるのにまだここに住み着いてるの草
48卵の名無しさん (アウアウウー Sa89-mm8H [106.128.73.98])
2023/05/02(火) 20:02:25.06ID:JSB+HYoNa 自分が医者という妄想に囚われたプシコだと思うよ
ここまで来ると
ここまで来ると
49卵の名無しさん (スーップ Sd43-NVGG [49.106.116.186])
2023/05/03(水) 17:19:53.38ID:WBUqj1TYd そんなに医者になりたいなら今からでも頑張ればいいのにな
50卵の名無しさん (JP 0Ha3-1/DB [217.138.212.98 [上級国民]])
2023/05/03(水) 17:52:23.66ID:Ht5iQojNH >>49
尿瓶ポンコツフェチに再受験したらと勧めてやったんだがなぁ。
旧二期校時代の医科歯科入学だけど同期の2~3割は学卒だった。
東大卒か京大卒。当時は阪大には学士入学制度があったから阪大卒はいなかったな。
歯学部には東大数学科卒もいた。
尿瓶ポンコツフェチに再受験したらと勧めてやったんだがなぁ。
旧二期校時代の医科歯科入学だけど同期の2~3割は学卒だった。
東大卒か京大卒。当時は阪大には学士入学制度があったから阪大卒はいなかったな。
歯学部には東大数学科卒もいた。
51卵の名無しさん (スーップ Sd43-NVGG [49.106.116.186])
2023/05/03(水) 20:43:05.89ID:WBUqj1TYd 苦笑
52卵の名無しさん (ワッチョイ 23c9-mm8H [59.139.198.126])
2023/05/04(木) 00:32:27.57ID:HDl+F9vo0 >>50
結局これなんだろうな
1000 卵の名無しさん (JP 0H69-eQBn [202.253.111.210]) sage 2023/04/18(火) 10:37:23.29 ID:II9wm10wH
平素より大変お世話になっております。
私こと尿瓶ジジイは、実は東京医科歯科卒などではありません。もちろん東大なんか受かったこたはなく、医者でもないただの医療事務です。医者の皆さんが羨ましくずっと書き込んでおりましたが、最近は誰にも相手にされないためこのスレは終了とさせて頂きます。今まで、嘘ばかり書いて申し訳ありませんでした。
結局これなんだろうな
1000 卵の名無しさん (JP 0H69-eQBn [202.253.111.210]) sage 2023/04/18(火) 10:37:23.29 ID:II9wm10wH
平素より大変お世話になっております。
私こと尿瓶ジジイは、実は東京医科歯科卒などではありません。もちろん東大なんか受かったこたはなく、医者でもないただの医療事務です。医者の皆さんが羨ましくずっと書き込んでおりましたが、最近は誰にも相手にされないためこのスレは終了とさせて頂きます。今まで、嘘ばかり書いて申し訳ありませんでした。
53卵の名無しさん (アウアウウー Sa89-mm8H [106.128.72.125])
2023/05/04(木) 09:02:56.89ID:L/+vi8O9a 625 132人目の素数さん[] 2023/05/04(木) 08:52:22.98 ID:PzgFcBMh
神のお告げによれば
(n-1)n(n+1)/6
626 132人目の素数さん[] 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
神のお告げによれば
(n-1)n(n+1)/6
626 132人目の素数さん[] 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
54卵の名無しさん (ワッチョイ b558-efom [14.13.16.0])
2023/05/04(木) 09:06:22.33ID:kQ9u0Qog0 > 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
(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
55卵の名無しさん (JP 0Ha3-1/DB [217.138.212.98 [上級国民]])
2023/05/04(木) 09:17:06.23ID:A6pdtMfNH >>53
シリツ卒なんだろ? どこの国立落ちたの?
シリツ卒なんだろ? どこの国立落ちたの?
56卵の名無しさん (ワッチョイ 23c9-mm8H [59.139.198.126])
2023/05/04(木) 10:53:22.38ID:HDl+F9vo0 >>55
自称学歴を全く相手にされてない尿瓶はさっさと合格通知書出せよw
自称学歴を全く相手にされてない尿瓶はさっさと合格通知書出せよw
57卵の名無しさん (JP 0H99-1/DB [146.70.31.18 [上級国民]])
2023/05/04(木) 20:43:35.36ID:dqPKSEFeH58卵の名無しさん (アウアウウー Sa89-mm8H [106.128.73.134])
2023/05/04(木) 22:19:18.10ID:Em/xviwfa59卵の名無しさん (JP 0Ha3-1/DB [217.138.252.98 [上級国民]])
2023/05/05(金) 05:49:32.87ID:lX37UmEFH 卒業大学をタイプするだけなのに、なんでできないの?
母校に誇りはないのかよ。
母校に誇りはないのかよ。
61卵の名無しさん (JP 0Ha3-LiuH [217.138.252.98 [上級国民]])
2023/05/05(金) 08:52:33.04ID:lX37UmEFH 尿瓶ポンコツチンパフェチに聞いているんだが。
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
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
62卵の名無しさん (JP 0Ha3-1/DB [217.138.252.98 [上級国民]])
2023/05/05(金) 08:58:42.47ID:lX37UmEFH # 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')
# 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')
63卵の名無しさん (JP 0Ha3-1/DB [217.138.252.98 [上級国民]])
2023/05/05(金) 08:59:13.03ID:lX37UmEFH 6の目がでる確率が1/7以上1/5以下であるとき規格内サイコロとする。
規格内サイコロである確率が5%で製作されたというサイコロを10回投げたら10回とも6であった。
このサイコロが規格内サイコロである確率を求めよ。
規格内サイコロである確率が5%で製作されたというサイコロを10回投げたら10回とも6であった。
このサイコロが規格内サイコロである確率を求めよ。
64卵の名無しさん (JP 0Ha3-LiuH [217.138.252.98 [上級国民]])
2023/05/05(金) 09:08:28.33ID:lX37UmEFH 各面のでる確率が等しいサイコロがA、Bがあり
Aには1~6までの数字が書かれており、Bには数字が書かれていない。
Aを振ってでた目の数をnとする。Bのn個の面に6を記入する。
Bを10回振ったところ10回6がでた。
nの期待値を求めよ。
https://i.imgur.com/jTqsMOd.png
Aには1~6までの数字が書かれており、Bには数字が書かれていない。
Aを振ってでた目の数をnとする。Bのn個の面に6を記入する。
Bを10回振ったところ10回6がでた。
nの期待値を求めよ。
https://i.imgur.com/jTqsMOd.png
65卵の名無しさん (JP 0Ha3-1/DB [217.138.252.98 [上級国民]])
2023/05/05(金) 09:16:49.50ID:lX37UmEFH >>60
国立卒の人は速攻で答えるけど、尿瓶チンパポンコツフェチは答えることができないことが判明。
国立卒の人は速攻で答えるけど、尿瓶チンパポンコツフェチは答えることができないことが判明。
67卵の名無しさん (ワッチョイ 23c9-mm8H [59.139.198.126])
2023/05/05(金) 09:56:00.84ID:4dI89TlZ0 尿瓶ジジイは結局脳内学歴であることが判明
68卵の名無しさん (スッププ Sd43-4ZV1 [49.105.77.158])
2023/05/05(金) 10:53:00.87ID:H517o3OKd 結局、医学知識ゼロの尿瓶ジジイ
算数ゴッコ楽しいか?
算数ゴッコ楽しいか?
69卵の名無しさん (スップー Sd03-NVGG [1.73.9.246])
2023/05/05(金) 11:31:30.03ID:MPSL+fqSd 尿瓶爺医も嘘でも医者ごっこしろよw
70卵の名無しさん (JP 0Ha3-LiuH [217.138.252.98 [上級国民]])
2023/05/05(金) 12:34:17.27ID:lX37UmEFH #
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)
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卵の名無しさん (JP 0Ha3-LiuH [217.138.252.98 [上級国民]])
2023/05/05(金) 12:35:26.47ID:lX37UmEFH 俺は二期校時代の医科歯科入学だけど。
国立卒の人は速攻で答えるけど、尿瓶チンパポンコツフェチは答えることができないことが判明。
国立卒の人は速攻で答えるけど、尿瓶チンパポンコツフェチは答えることができないことが判明。
72卵の名無しさん (スップー Sd03-NVGG [1.73.9.246])
2023/05/05(金) 12:41:59.29ID:MPSL+fqSd >>71
俺は東大理3卒だからお前は俺より下だな
俺は東大理3卒だからお前は俺より下だな
73卵の名無しさん (ワッチョイ 4d58-4ZV1 [106.73.2.65])
2023/05/05(金) 12:43:44.48ID:3reQvbgD074卵の名無しさん (アウアウウー Sa89-mm8H [106.128.75.100])
2023/05/05(金) 13:08:36.72ID:ES6vzL/3a 尿瓶ジジイのこの程度の素養じゃ結局医科歯科も嘘みたいだけど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
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
75卵の名無しさん (アウアウウー Sa89-mm8H [106.128.72.147])
2023/05/05(金) 15:12:11.23ID:QjC3yJXIa76卵の名無しさん (JP 0Ha3-1/DB [217.138.252.98 [上級国民]])
2023/05/05(金) 18:43:40.93ID:lX37UmEFH >>72
現役合格とか大検とかなら、すごいと思う
現役合格とか大検とかなら、すごいと思う
77卵の名無しさん (JP 0Ha3-1/DB [217.138.252.98 [上級国民]])
2023/05/05(金) 18:47:06.56ID:lX37UmEFH >>73
業界ネタ(個人の経験から)
PDで胃壁壁切開での膵胃吻合の話とかもできるよ。
膵胃吻合のときはロストチューブにするのが楽。
今永法で再建するときは膵管チューブは経胃で誘導した方がチューブトラブルが少ない。
業界ネタ(個人の経験から)
PDで胃壁壁切開での膵胃吻合の話とかもできるよ。
膵胃吻合のときはロストチューブにするのが楽。
今永法で再建するときは膵管チューブは経胃で誘導した方がチューブトラブルが少ない。
78卵の名無しさん (アウアウウー Sa89-mm8H [106.128.74.211])
2023/05/05(金) 18:49:09.25ID:5nq8Z+ona 胆汁ドレナージを前スレで散々バカにされて下手なこと言えなくなった尿瓶ジジイw
79卵の名無しさん (アウアウウー Sa89-mm8H [106.128.74.211])
2023/05/05(金) 19:19:22.43ID:5nq8Z+ona80卵の名無しさん (スッププ Sd42-kROt [49.105.102.191])
2023/05/06(土) 07:24:47.52ID:c3M/mAMHd81卵の名無しさん (ワッチョイ c324-q462 [178.249.213.101 [上級国民]])
2023/05/06(土) 11:18:03.38ID:RiWY0KrZ082卵の名無しさん (JP 0H5e-uP5P [61.199.225.248])
2023/05/06(土) 11:22:10.54ID:3bgMVK0rH83卵の名無しさん (ブーイモ MMbb-N8e9 [202.214.230.35])
2023/05/06(土) 14:58:20.81ID:pj32XnHRM84卵の名無しさん (JP 0H5e-uP5P [61.199.225.248])
2023/05/06(土) 15:00:53.61ID:3bgMVK0rH 胆汁ドレナージが何かほざいてる笑
85卵の名無しさん (ブーイモ MMbb-N8e9 [202.214.230.35])
2023/05/06(土) 15:08:55.68ID:pj32XnHRM >>84
胆汁ドレナージもやったよ。
PDはPPPDで膵液は内瘻にしてロストチューブにしていた。
バイクリルが溶けて自然脱落を待てばいいのでチューブトラブルがなくていいね。膵液は胃酸で不活性化されるから縫合不全のリスクも小さいと教わったよ。
胆汁ドレナージもやったよ。
PDはPPPDで膵液は内瘻にしてロストチューブにしていた。
バイクリルが溶けて自然脱落を待てばいいのでチューブトラブルがなくていいね。膵液は胃酸で不活性化されるから縫合不全のリスクも小さいと教わったよ。
86卵の名無しさん (スップー Sd62-uHSN [1.73.16.221])
2023/05/06(土) 15:44:50.74ID:TlDtSImAd "胆道"ドレナージですよ医療事務さん
87卵の名無しさん (アウアウウー Sa1b-uP5P [106.128.74.211])
2023/05/06(土) 16:08:34.79ID:8H30b8yCa 尿瓶ジジイは胆汁ドレナージって言い張り続けてるけどなw
どうやら商品名を医療行為と勘違いしたらしいw
どうやら商品名を医療行為と勘違いしたらしいw
88卵の名無しさん (ワッチョイ af58-N8e9 [14.13.16.0])
2023/05/06(土) 19:22:25.88ID:IYnEpDjs0 >>87
商品名のアストラップとか普通に使うぞ。
商品名のアストラップとか普通に使うぞ。
90卵の名無しさん (ワッチョイ af58-N8e9 [14.13.16.0])
2023/05/06(土) 19:23:58.50ID:IYnEpDjs0 で、誰もPDやったことないみたいだな。
91卵の名無しさん (スッププ Sd42-kROt [49.105.100.72])
2023/05/06(土) 19:25:41.76ID:Ow/MJlO5d >>83
何で医者がみんなPDできると思うんだ?
お前にとっては内科は医者じゃないのか?
そんなんだから、本物の医者って認識されないんだぞ
後、内科的にはPDは腹膜透析だからな
そんなんも知らんのだろ?お前は
あと、非開胸食道抜去は食道癌の姑息的手術だろ。PDと何か関係あんのか?
何で医者がみんなPDできると思うんだ?
お前にとっては内科は医者じゃないのか?
そんなんだから、本物の医者って認識されないんだぞ
後、内科的にはPDは腹膜透析だからな
そんなんも知らんのだろ?お前は
あと、非開胸食道抜去は食道癌の姑息的手術だろ。PDと何か関係あんのか?
92卵の名無しさん (ワッチョイ af58-N8e9 [14.13.16.0])
2023/05/07(日) 06:09:12.72ID:YuVBB0a6094卵の名無しさん (ワッチョイ af58-N8e9 [14.13.16.0])
2023/05/07(日) 06:16:11.36ID:YuVBB0a60 非開胸食道抜去で損傷しやすい血管が何かは
食道癌手術の経験があれば答えられる。
解剖を理解していれば内科医でも答えられる人もいるかもしれんが。
食道癌手術の経験があれば答えられる。
解剖を理解していれば内科医でも答えられる人もいるかもしれんが。
95卵の名無しさん (ワッチョイ af58-N8e9 [14.13.16.0])
2023/05/07(日) 06:23:29.25ID:YuVBB0a60 化学療法やっている医師だとPDは腹膜透析じゃないぞ。
96卵の名無しさん (アウアウウー Sa1b-uP5P [106.128.72.223])
2023/05/07(日) 07:15:46.61ID:UWweVCpKa97卵の名無しさん (ワッチョイ ab58-kROt [106.73.2.65])
2023/05/07(日) 07:51:22.18ID:7meuj28P0 尿瓶ジジイの発言、マジで全然わかってなくて草生えるわwww
医者じゃないから自分が変なこと言ってるの気づかないんだろうな
医者じゃないから自分が変なこと言ってるの気づかないんだろうな
98卵の名無しさん (アウアウウー Sa1b-uP5P [106.128.74.14])
2023/05/07(日) 11:01:41.75ID:Rr0Be8pua 尿瓶荒らし呼ばわりで草
751 132人目の素数さん[] 2023/05/07(日) 10:58:06.95 ID:/iif9XNb
ここは荒らしが立てた偽スレなのでスレタイに意味はありません
https://rio2016.5ch.net/test/read.cgi/math/1680400564/
751 132人目の素数さん[] 2023/05/07(日) 10:58:06.95 ID:/iif9XNb
ここは荒らしが立てた偽スレなのでスレタイに意味はありません
https://rio2016.5ch.net/test/read.cgi/math/1680400564/
99卵の名無しさん (アウアウウー Sa1b-uP5P [106.128.74.123])
2023/05/07(日) 22:33:22.63ID:NtfZ+mg6a100卵の名無しさん (ワッチョイ 77c7-ln0s [124.47.76.122 [上級国民]])
2023/05/08(月) 02:34:57.80ID:X7W/s4Lv0 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
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
101卵の名無しさん (ワッチョイ 77c7-ln0s [124.47.76.122 [上級国民]])
2023/05/08(月) 02:42:10.64ID:X7W/s4Lv0102卵の名無しさん (ワッチョイ 77c7-ln0s [124.47.76.122 [上級国民]])
2023/05/08(月) 02:46:09.30ID:X7W/s4Lv0 >>100
ヘロンの公式だと√計算するから誤差がでるので共役複素数を使って外積ベクトルの長さの半分で計算した方がいいことに気づいた。
ヘロンの公式だと√計算するから誤差がでるので共役複素数を使って外積ベクトルの長さの半分で計算した方がいいことに気づいた。
103卵の名無しさん (ワッチョイ 77c7-ln0s [124.47.76.122 [上級国民]])
2023/05/08(月) 02:54:49.24ID:X7W/s4Lv0 医科歯科の先輩にPCIもESTも華麗にこなす内科医がいたなぁ。
心不全の治療とかは雑用のように思っていたな。
心不全の治療とかは雑用のように思っていたな。
104卵の名無しさん (ワッチョイ 77c7-ln0s [124.47.76.122 [上級国民]])
2023/05/08(月) 02:55:17.70ID:X7W/s4Lv0105卵の名無しさん (ワッチョイ 77c7-ln0s [124.47.76.122 [上級国民]])
2023/05/08(月) 02:57:21.63ID:X7W/s4Lv0 >>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 が得られた。
これを解く過程での副産物。
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 が得られた。
106卵の名無しさん (ワッチョイ 77c7-ln0s [124.47.76.122 [上級国民]])
2023/05/08(月) 03:01:12.76ID:X7W/s4Lv0 今夜は救急当番勤務の日
突然の左肩甲骨の痛みで収容依頼で起こされた。大動脈解離が疑わしいので基幹病院搬送をと指示した。
左肩の痛みで整形外科受診してMRIの予約をとって帰った患者がCPAで救急搬送されたというケースが即、頭に浮かんだぜい。
突然の左肩甲骨の痛みで収容依頼で起こされた。大動脈解離が疑わしいので基幹病院搬送をと指示した。
左肩の痛みで整形外科受診してMRIの予約をとって帰った患者がCPAで救急搬送されたというケースが即、頭に浮かんだぜい。
107卵の名無しさん (ワッチョイ 77c7-ln0s [124.47.76.122 [上級国民]])
2023/05/08(月) 03:10:51.85ID:X7W/s4Lv0 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を使うと丸め誤差がでるな。
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を使うと丸め誤差がでるな。
108卵の名無しさん (ワッチョイ 77c7-ln0s [124.47.76.122 [上級国民]])
2023/05/08(月) 03:26:18.34ID:X7W/s4Lv0 行列式を使って表現できることにも気づいた。
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
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
109卵の名無しさん (アウアウウー Sa1b-uP5P [106.128.72.76])
2023/05/08(月) 04:20:47.92ID:yBklRptUa110卵の名無しさん (アウアウウー Sa1b-uP5P [106.128.72.76])
2023/05/08(月) 04:27:13.97ID:yBklRptUa とにかく胆汁ドレナージはマジで傑作だわw
もうこれだけで脳内医者丸出しだから医師板で誰も相手にされないわけで
悔しかったら消化器内科のスレか何かで喚いてこいよ
スルーされるかもっとバカにしてくれるぞw
もうこれだけで脳内医者丸出しだから医師板で誰も相手にされないわけで
悔しかったら消化器内科のスレか何かで喚いてこいよ
スルーされるかもっとバカにしてくれるぞw
111卵の名無しさん (スッププ Sd42-kROt [49.105.103.174])
2023/05/08(月) 15:06:50.09ID:DyWpGG7Id112卵の名無しさん (JP 0Hbb-kROt [202.253.111.210])
2023/05/08(月) 17:31:09.20ID:iiRtZsiVH113卵の名無しさん (アウアウキー Sa27-uP5P [182.251.25.202])
2023/05/08(月) 22:21:15.55ID:QSGJGRX4a おい尿瓶ジジイ
高校生にバカにされてないでこっちでもなんとか言ったらどうだ
もうお爺さんなのに学歴厨www
https://rio2016.5ch.net/test/read.cgi/math/1680400564/
高校生にバカにされてないでこっちでもなんとか言ったらどうだ
もうお爺さんなのに学歴厨www
https://rio2016.5ch.net/test/read.cgi/math/1680400564/
114卵の名無しさん (スプープ Sd62-kROt [1.73.149.249])
2023/05/08(月) 23:28:22.53ID:yycmnEJJd 尿瓶ジジイく~ん
医者板ではぐうの音も出ないからダンマリで
数学板ではわけもわからん発言でも突っ込まれないから書き込みしてるのかい?
マジで情けねぇなwww
医者板ではぐうの音も出ないからダンマリで
数学板ではわけもわからん発言でも突っ込まれないから書き込みしてるのかい?
マジで情けねぇなwww
115卵の名無しさん (JP 0H5e-uP5P [61.199.225.248])
2023/05/11(木) 16:19:00.64ID:wNRYzvwOH 尿瓶はもう発狂する元気もないのかな?
116卵の名無しさん (ワッチョイ ab58-kROt [106.73.2.65])
2023/05/11(木) 22:21:25.43ID:MAssalkf0 数学板には書き込んでるから
ここだと、医者に間違い指摘されるの嫌で書き込んでないだけでしょ
ここだと、医者に間違い指摘されるの嫌で書き込んでないだけでしょ
117卵の名無しさん (JP 0H52-/kPB [217.138.252.98 [上級国民]])
2023/05/12(金) 05:21:10.02ID:g1HUA/gBH うちは夜間休日は放射線技師は呼び出しだからな。
実際、当直帯で大動脈解離で突然死したケースがあったし。
整形外科のカルテにMS(-)と書いてあったなぁ。
Rを使うとこういうのもできる、
https://i.imgur.com/S3yRUoC.gif
R言語を学んだのに統計処理だけに使うのはもったいないな。
実際、当直帯で大動脈解離で突然死したケースがあったし。
整形外科のカルテにMS(-)と書いてあったなぁ。
Rを使うとこういうのもできる、
https://i.imgur.com/S3yRUoC.gif
R言語を学んだのに統計処理だけに使うのはもったいないな。
118卵の名無しさん (JP 0H52-/kPB [217.138.252.98 [上級国民]])
2023/05/12(金) 05:22:16.68ID:g1HUA/gBH 業界ネタ(個人の経験から)
こういうのはやったことがないと議論できないね。
薬屋の売り子には無理。
PDで胃壁壁切開での膵胃吻合の話とかもできるよ。
膵胃吻合のときはロストチューブにするのが楽。
今永法で再建するときは膵管チューブは経胃で誘導した方がチューブトラブルが少ない。
こういうのはやったことがないと議論できないね。
薬屋の売り子には無理。
PDで胃壁壁切開での膵胃吻合の話とかもできるよ。
膵胃吻合のときはロストチューブにするのが楽。
今永法で再建するときは膵管チューブは経胃で誘導した方がチューブトラブルが少ない。
119卵の名無しさん (JP 0H52-/kPB [217.138.252.98 [上級国民]])
2023/05/12(金) 05:26:43.57ID:g1HUA/gBH 非開胸食道抜去はESD登場前は症例によっては根治術になったと思う。
再建は大弯胃管を使って後縦隔経路にした方がいい。
胸骨後でやると後出血が多い。
そういえば、左開胸胃全摘 という津軽海峡冬景色の替え歌があったな。
再建は大弯胃管を使って後縦隔経路にした方がいい。
胸骨後でやると後出血が多い。
そういえば、左開胸胃全摘 という津軽海峡冬景色の替え歌があったな。
120卵の名無しさん (JP 0H52-/kPB [217.138.252.98 [上級国民]])
2023/05/12(金) 05:30:55.07ID:g1HUA/gBH >>109
アストラップと言われて何のことがわかるのが臨床医。
関西で「めばちこ」といわれて何のことか最初はわからなかった。
数学板で「てれこに並べて」と言われたときも意味を解説してもらった。
NHKのアナウンサーの試験には方言に対応できるかがあると聞いたなぁ。
アストラップと言われて何のことがわかるのが臨床医。
関西で「めばちこ」といわれて何のことか最初はわからなかった。
数学板で「てれこに並べて」と言われたときも意味を解説してもらった。
NHKのアナウンサーの試験には方言に対応できるかがあると聞いたなぁ。
121卵の名無しさん (JP 0H52-/kPB [217.138.252.98 [上級国民]])
2023/05/12(金) 05:33:55.97ID:g1HUA/gBH PCIもESTも華麗にこなす内科医は俺ではなくて、医科歯科の先輩
手先の起用な人っているよね。
手先の起用な人っているよね。
122卵の名無しさん (JP 0H52-q462 [217.138.252.98 [上級国民]])
2023/05/12(金) 05:39:21.00ID:g1HUA/gBH >>109
滑り止めに受けた理Iの入学手続日通知書なんて、自慢するようなものじゃないだろ。
他界した父親がコピーをファイリングしてくれていたのでコピーはあるけど、
どうせ他人からの借用だと言うに決まっているからね。
所得3K万越えで市民税通知の画像をアップロードしたときも他人のものだろと言われたな。
滑り止めに受けた理Iの入学手続日通知書なんて、自慢するようなものじゃないだろ。
他界した父親がコピーをファイリングしてくれていたのでコピーはあるけど、
どうせ他人からの借用だと言うに決まっているからね。
所得3K万越えで市民税通知の画像をアップロードしたときも他人のものだろと言われたな。
123卵の名無しさん (ワッチョイ ab58-kROt [106.73.2.65])
2023/05/12(金) 06:53:42.08ID:stddew2I0 >>121
PCIは循環器内科の手技、ESTは消化器内科の手技。しかも、なぜEST限定?普通、ERCPって言うとこなんじゃないのそこは
EVTと勘違いしてるのかと思ったが2回間違ってるから言い間違いじゃないよな
つまり、お前は何もわかってない医療事務の素人で決定だよ。医者フリをするな不愉快
PCIは循環器内科の手技、ESTは消化器内科の手技。しかも、なぜEST限定?普通、ERCPって言うとこなんじゃないのそこは
EVTと勘違いしてるのかと思ったが2回間違ってるから言い間違いじゃないよな
つまり、お前は何もわかってない医療事務の素人で決定だよ。医者フリをするな不愉快
124卵の名無しさん (スプープ Sd62-kROt [1.73.144.229])
2023/05/12(金) 08:33:26.44ID:Whrp9gKSd >>117
そもそも、大動脈解離疑うならとっとと放射線技師を呼び出せよ。じゃなきゃ救急受けるな
何も検査せず、いきなり送るとか通常はありえねぇんだよ
この発言の時点で素人丸出しだわ
お前は絶対に医者じゃない断言できる
そのくせ、内科は薬の売り子扱いか?医療事務の癖になめたこと言ってんじゃねえぞ
そもそも、大動脈解離疑うならとっとと放射線技師を呼び出せよ。じゃなきゃ救急受けるな
何も検査せず、いきなり送るとか通常はありえねぇんだよ
この発言の時点で素人丸出しだわ
お前は絶対に医者じゃない断言できる
そのくせ、内科は薬の売り子扱いか?医療事務の癖になめたこと言ってんじゃねえぞ
125卵の名無しさん (アウアウキー Sa27-uP5P [182.251.36.104])
2023/05/12(金) 08:45:13.06ID:Hl5JP0y8a126卵の名無しさん (アウアウキー Sa27-uP5P [182.251.36.104])
2023/05/12(金) 08:52:24.69ID:Hl5JP0y8a その薬の売り子とやらにバカにでもされたのか?元医療事務ジジイさんよw
127卵の名無しさん (アウアウウー Sa1b-uP5P [106.128.70.66])
2023/05/12(金) 20:04:12.91ID:oOXHSLjUa おい尿瓶
高校生相手に吠えてないでさっさと質問に答えろよ
高校生相手に吠えてないでさっさと質問に答えろよ
128卵の名無しさん (ワッチョイ ab58-kROt [106.73.2.65])
2023/05/12(金) 21:39:50.60ID:stddew2I0 数学板みたら、尿瓶ジジイマジで素人相手にイキっててワロタ
やっぱ発言が完全に素人のそれだな
ここだと、突っ込まれるから発言してないし
よっぽど悔しかったんだろなw
やっぱ発言が完全に素人のそれだな
ここだと、突っ込まれるから発言してないし
よっぽど悔しかったんだろなw
129卵の名無しさん (JP 0Hdf-592Q [217.138.252.98 [上級国民]])
2023/05/13(土) 06:31:27.03ID:H50dWj+FH 高校数学の質問スレ Part427
https://rio2016.5ch.net/test/read.cgi/math/1680400564/892
892 名前:132人目の素数さん[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を使って数値解を算出。
https://rio2016.5ch.net/test/read.cgi/math/1680400564/892
892 名前:132人目の素数さん[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を使って数値解を算出。
130卵の名無しさん (スップ Sd5f-Hm9+ [49.97.20.189])
2023/05/13(土) 07:42:22.43ID:F0QOqMutd 尿瓶ジジイ朝から、数学板でずっと
内視鏡がどうたらPDがどうたら発狂してんなw
完全にスレチでみんなに無視されてるし
内視鏡がどうたらPDがどうたら発狂してんなw
完全にスレチでみんなに無視されてるし
131卵の名無しさん (アウアウウー Sad7-HLEB [106.128.70.66])
2023/05/13(土) 10:42:49.43ID:zGEwi1rua 901 132人目の素数さん[sage] 2023/05/13(土) 07:53:25.94 ID:Qjv2drUq
>>895
プログラムに計算させて数学やってますって顔してんだから大笑い
電卓の計算結果を見せてどや顔してるバカって感じ
嘘かほんとか知らんが、東大合格歴と医師であることを執拗にひけらかすのは承認欲求の塊にしか見えん
なにか大きなコンプレックスを抱えてのことなんだろう(職場でも私生活でも誰からも相手にされないとかね)
いくら絡んでも出題厨からも無視されてるのも失笑ものだし
いろんな意味で頭が悪い人
>>895
プログラムに計算させて数学やってますって顔してんだから大笑い
電卓の計算結果を見せてどや顔してるバカって感じ
嘘かほんとか知らんが、東大合格歴と医師であることを執拗にひけらかすのは承認欲求の塊にしか見えん
なにか大きなコンプレックスを抱えてのことなんだろう(職場でも私生活でも誰からも相手にされないとかね)
いくら絡んでも出題厨からも無視されてるのも失笑ものだし
いろんな意味で頭が悪い人
132卵の名無しさん (アウアウウー Sad7-HLEB [106.128.70.66])
2023/05/13(土) 10:44:32.98ID:zGEwi1rua 当然ながら数学スレでも総すかんを食らっておりますw
133卵の名無しさん (アウアウウー Sad7-ECSL [106.146.2.216])
2023/05/14(日) 09:46:15.84ID:l8fDSxSia ナースジョブから紹介の看護師。
紹介料を支払った翌日に、退職届を持ってきた。
紹介会社とぐるなのだろうかと疑ってしまうようなタイミング。
紹介料を支払った翌日に、退職届を持ってきた。
紹介会社とぐるなのだろうかと疑ってしまうようなタイミング。
134卵の名無しさん (JP 0H7f-HLEB [61.199.225.248])
2023/05/15(月) 11:46:03.03ID:LxZISORDH おい尿瓶ジジイここだけダンマリかよ
135卵の名無しさん (アウアウウー Sad7-HLEB [106.128.68.2])
2023/05/15(月) 12:04:18.70ID:IeurqJE1a136卵の名無しさん (スップ Sd5f-Hm9+ [49.97.21.114])
2023/05/15(月) 14:09:18.58ID:QA9U2iFqd 尿瓶ジジイたまに医療ネタ書き込みだしたと思ったら矛盾だらけで
他の板で負け惜しみを言い続けるwww
自分で医者じゃありませんって言ってるようなもんじゃん
マジで雑魚過ぎてつまらんわ
他の板で負け惜しみを言い続けるwww
自分で医者じゃありませんって言ってるようなもんじゃん
マジで雑魚過ぎてつまらんわ
137卵の名無しさん (アウアウウー Sad7-HLEB [106.128.70.173])
2023/05/15(月) 15:24:01.58ID:CEa4mSaUa 165 卵の名無しさん[sage] 2023/05/14(日) 14:01:18.73 ID:hkdMcYob
救急搬送を2件受け入れて、インセンティブ2諭吉ゲット。
1件は4つの病院で断らたコロナ患者(中等症の1に該当)。
うちも対応できる個室がなくなってしまった。
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
救急搬送を2件受け入れて、インセンティブ2諭吉ゲット。
1件は4つの病院で断らたコロナ患者(中等症の1に該当)。
うちも対応できる個室がなくなってしまった。
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
138卵の名無しさん (ワッチョイ 7358-o7yF [14.13.16.0])
2023/05/16(火) 05:21:04.28ID:rWnwChbe0139卵の名無しさん (ワッチョイ 6358-Hm9+ [106.73.2.65])
2023/05/16(火) 07:03:30.67ID:855PwJZw0 >>138
103 卵の名無しさん (ワッチョイ 77c7-ln0s [124.47.76.122 [上級国民]]) sage 2023/05/08(月) 02:54:49.24 ID:X7W/s4Lv0
医科歯科の先輩にPCIもESTも華麗にこなす内科医がいたなぁ。
↑
これは矛盾では?
103 卵の名無しさん (ワッチョイ 77c7-ln0s [124.47.76.122 [上級国民]]) sage 2023/05/08(月) 02:54:49.24 ID:X7W/s4Lv0
医科歯科の先輩にPCIもESTも華麗にこなす内科医がいたなぁ。
↑
これは矛盾では?
140卵の名無しさん (JP 0H7f-HLEB [61.199.225.248])
2023/05/16(火) 13:23:50.90ID:MBRuOqaVH >>138
胆汁ドレナージジイがほざくなw
胆汁ドレナージジイがほざくなw
141卵の名無しさん (ワッチョイ 7358-o7yF [14.13.16.0])
2023/05/19(金) 04:40:31.01ID:2Naki0vR0 胆汁ドレナージは別に間違っていない。
142卵の名無しさん (ワッチョイ 7358-o7yF [14.13.16.0])
2023/05/19(金) 04:45:59.26ID:2Naki0vR0 >>131
こういうのが作れない椰子だろうな。
https://i.imgur.com/S3yRUoC.gif
公式を使うのもプログラムを使うのも同じ。
カテや内視鏡をやっている内科医は違うが
薬屋の売り子をやっているようなのはAIに仕事を奪われるだろうな。
こういうのが作れない椰子だろうな。
https://i.imgur.com/S3yRUoC.gif
公式を使うのもプログラムを使うのも同じ。
カテや内視鏡をやっている内科医は違うが
薬屋の売り子をやっているようなのはAIに仕事を奪われるだろうな。
143卵の名無しさん (アウアウウー Sad7-HLEB [106.128.68.224])
2023/05/19(金) 08:43:16.72ID:k6GMjF14a 他のスレで胆汁ドレナージとか言っても笑われるだけだろうなw
144卵の名無しさん (スップ Sd5f-Hm9+ [49.97.14.140])
2023/05/19(金) 08:43:55.15ID:/7e2HoXEd >>142
医者にえらくコンプレックスある発言だな
本当に外科医ならそんな発言しないけどな
その他諸々の医学知識の無さでもわかるけど
お前は医者じゃないよ
んで、悔しくて朝から掲示板に書き込みか?
哀れだな
医者にえらくコンプレックスある発言だな
本当に外科医ならそんな発言しないけどな
その他諸々の医学知識の無さでもわかるけど
お前は医者じゃないよ
んで、悔しくて朝から掲示板に書き込みか?
哀れだな
145卵の名無しさん (ワッチョイ f312-HLEB [180.1.104.4])
2023/05/19(金) 13:32:06.22ID:eb9oh3H80146卵の名無しさん (アウアウウー Sad7-HLEB [106.128.73.174])
2023/05/19(金) 20:14:13.06ID:/gJAqykWa 27 132人目の素数さん[sage] 2023/05/19(金) 18:21:36.10 ID:Yzoct9DO
>>11
経験ない医師にはこういう議論にはレスできないんだね。
業界ネタ(個人の経験から)
こういうのはやったことがないと議論できないね。
薬屋の売り子には無理。
PDで胃壁壁切開での膵胃吻合の話とかもできるよ。
膵胃吻合のときはロストチューブにするのが楽。
今永法で再建するときは膵管チューブは経胃で誘導した方がチューブトラブルが少ない。
尿瓶ジジイ絶賛負け惜しみ中ww
>>11
経験ない医師にはこういう議論にはレスできないんだね。
業界ネタ(個人の経験から)
こういうのはやったことがないと議論できないね。
薬屋の売り子には無理。
PDで胃壁壁切開での膵胃吻合の話とかもできるよ。
膵胃吻合のときはロストチューブにするのが楽。
今永法で再建するときは膵管チューブは経胃で誘導した方がチューブトラブルが少ない。
尿瓶ジジイ絶賛負け惜しみ中ww
147卵の名無しさん (ワッチョイ 2b58-EsMg [14.13.16.0])
2023/05/20(土) 05:15:54.44ID:d/CCi/ti0 re=NULL
for (m in 1:1000){
for(n in 1:m){
re=rbind(re,c(m,n,abs(1/7-n/m)))
}
}
re
for (m in 1:1000){
for(n in 1:m){
re=rbind(re,c(m,n,abs(1/7-n/m)))
}
}
re
148卵の名無しさん (ワッチョイ 2b58-EsMg [14.13.16.0])
2023/05/20(土) 05:18:10.00ID:d/CCi/ti0 >>144
なんだ薬屋の売り子しかできねぇのかよ?
なんだ薬屋の売り子しかできねぇのかよ?
149卵の名無しさん (ワッチョイ 2b58-EsMg [14.13.16.0])
2023/05/20(土) 05:20:30.69ID:d/CCi/ti0150卵の名無しさん (ワッチョイ 2b58-EsMg [14.13.16.0])
2023/05/20(土) 05:21:50.86ID:d/CCi/ti0151卵の名無しさん (ワッチョイ 2b58-EsMg [14.13.16.0])
2023/05/20(土) 05:24:12.93ID:d/CCi/ti0152卵の名無しさん (ワッチョイ 5758-MOwb [106.73.2.65])
2023/05/20(土) 07:25:18.38ID:CXhom5xW0 >>151
んで、結局PCIとESTできる内科医ってのはどこに存在するんだ?そんな奴いないことは医療関係者なら普通わかるけどなw
んで、結局PCIとESTできる内科医ってのはどこに存在するんだ?そんな奴いないことは医療関係者なら普通わかるけどなw
153卵の名無しさん (JP 0Haa-lcP2 [217.138.212.122 [上級国民]])
2023/05/20(土) 09:29:49.56ID:zmvz+jyzH "
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)
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)
154卵の名無しさん (JP 0Haa-lcP2 [217.138.212.122 [上級国民]])
2023/05/20(土) 09:31:11.67ID:zmvz+jyzH >>152
あんたの見聞が狭いだけ。
あんたの見聞が狭いだけ。
155卵の名無しさん (JP 0Haa-lcP2 [217.138.212.122 [上級国民]])
2023/05/20(土) 09:32:18.04ID:zmvz+jyzH 麻酔科標榜医を持っている漢方医とかもいるよ。
156卵の名無しさん (JP 0Haa-lcP2 [217.138.212.122 [上級国民]])
2023/05/20(土) 09:34:27.61ID:zmvz+jyzH 膀胱鏡の使える一般外科医を俺は2人知っている。
俺はオペの助手をやった。
俺はオペの助手をやった。
157卵の名無しさん (ワッチョイ bac9-sy7r [59.139.198.126])
2023/05/20(土) 10:00:40.40ID:EnCyx3+50 >>154
結局ここでしか発狂できないのはアンタが脳内ブラックジャックだからだろw
結局ここでしか発狂できないのはアンタが脳内ブラックジャックだからだろw
158卵の名無しさん (ワッチョイ bac9-sy7r [59.139.198.126])
2023/05/20(土) 10:06:35.91ID:EnCyx3+50 高校数学スレより
867 132人目の素数さん[sage] 2023/05/11(木) 21:19:14.44 ID:u0G5iV/b
可哀想だから尿瓶ジジイの自称学歴信じてる人は庇ってあげて
特に東大卒の方とかw
おい尿瓶ジジイ
アンタを庇う奴なんざ誰もいないってよw
だからせめて合格通知書くらい出してもらえないと相手にされないわけだ
今のところ計算機叩いて喜んでるチンパンジーだぞ
867 132人目の素数さん[sage] 2023/05/11(木) 21:19:14.44 ID:u0G5iV/b
可哀想だから尿瓶ジジイの自称学歴信じてる人は庇ってあげて
特に東大卒の方とかw
おい尿瓶ジジイ
アンタを庇う奴なんざ誰もいないってよw
だからせめて合格通知書くらい出してもらえないと相手にされないわけだ
今のところ計算機叩いて喜んでるチンパンジーだぞ
159卵の名無しさん (ワッチョイ 93c7-FIIW [124.47.76.122])
2023/05/20(土) 14:18:33.27ID:TbhuAu+p0 "
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
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
160卵の名無しさん (ワッチョイ 93c7-FIIW [124.47.76.122])
2023/05/20(土) 14:19:20.07ID:TbhuAu+p0161卵の名無しさん (アウアウウー Sab7-sy7r [106.128.68.28])
2023/05/20(土) 14:19:54.57ID:ocsWFriPa >>160
日本語も不自由じゃ大学進学なんて無理だろうねw
日本語も不自由じゃ大学進学なんて無理だろうねw
162卵の名無しさん (アウアウウー Sab7-sy7r [106.128.71.241])
2023/05/20(土) 15:25:20.19ID:jFlcHWUIa163卵の名無しさん (スップ Sd5a-MOwb [49.97.12.16])
2023/05/20(土) 15:38:56.42ID:WO6ZNpgtd >>154
お前は見聞が広すぎてありえないものまで見えてんのか?www
どう考えても知識ないのに妄想ひけらかしただけだろ
医療関係者にそんな発言したら100%笑われるわ。本当はPCIとかESTとか、よくわかってないんだろ?知らんくせに適当な発言すんなド素人が!
お前は見聞が広すぎてありえないものまで見えてんのか?www
どう考えても知識ないのに妄想ひけらかしただけだろ
医療関係者にそんな発言したら100%笑われるわ。本当はPCIとかESTとか、よくわかってないんだろ?知らんくせに適当な発言すんなド素人が!
164卵の名無しさん (スップ Sd5a-MOwb [49.97.12.16])
2023/05/20(土) 16:03:20.61ID:WO6ZNpgtd >>154
言っとくが、それ消化器外科が冠動脈バイパス術やるようなもんだからな
これがどんだけイかれてることか理解出来てない時点でお前は医療従事者じゃないよ
もういくら言い訳しても無駄だよ尿瓶ジジイさんwww
言っとくが、それ消化器外科が冠動脈バイパス術やるようなもんだからな
これがどんだけイかれてることか理解出来てない時点でお前は医療従事者じゃないよ
もういくら言い訳しても無駄だよ尿瓶ジジイさんwww
165卵の名無しさん (アウアウウー Sab7-sy7r [106.128.69.152])
2023/05/20(土) 16:44:53.60ID:NEglu/Uta 某スレじゃ高校生にも脳内医者ってバカにされてるからな
166卵の名無しさん (ワッチョイ 93c7-FIIW [124.47.76.122])
2023/05/21(日) 09:57:19.31ID:dasQGOWc0167卵の名無しさん (ワッチョイ 93c7-FIIW [124.47.76.122])
2023/05/21(日) 09:58:40.48ID:dasQGOWc0 >>164
あんたは薬屋の売り子しかできんのじゃないの?
こういうのは体験してはじめで実感できる。
胃壁前壁切開での膵胃吻合は目からウロコだったよ。
吻合の安心感が全然違うので他の外科医にも勧めていた。
あんたは薬屋の売り子しかできんのじゃないの?
こういうのは体験してはじめで実感できる。
胃壁前壁切開での膵胃吻合は目からウロコだったよ。
吻合の安心感が全然違うので他の外科医にも勧めていた。
168卵の名無しさん (ワッチョイ 93c7-FIIW [124.47.76.122])
2023/05/21(日) 10:01:45.37ID:dasQGOWc0169卵の名無しさん (スップ Sd5a-MOwb [49.97.15.105])
2023/05/21(日) 10:51:48.39ID:7lZbJS1Ud >>166-168
俺が言いたいのはお前が知識も無いのに嘘ついて適当な発言してることだよ
PCIとかERCPとかは患者の命かかってる手技だから専門にしてるやつしかやるわけないの
消化器外科が急性大動脈解離の弓部置換とかやんねぇだろそれと同じ
それにお前の言ってる手技は指導医付きなら別に研修医にやらしてもいい手技ばっかじゃねえか。何でそんなドヤ顔で発言してんだよ
医者でも無いからわからんのだろうがwww
俺が言いたいのはお前が知識も無いのに嘘ついて適当な発言してることだよ
PCIとかERCPとかは患者の命かかってる手技だから専門にしてるやつしかやるわけないの
消化器外科が急性大動脈解離の弓部置換とかやんねぇだろそれと同じ
それにお前の言ってる手技は指導医付きなら別に研修医にやらしてもいい手技ばっかじゃねえか。何でそんなドヤ顔で発言してんだよ
医者でも無いからわからんのだろうがwww
170卵の名無しさん (スップ Sd5a-MOwb [49.97.15.105])
2023/05/21(日) 11:00:17.89ID:7lZbJS1Ud >>167
後、お前が医者じゃない根拠な
お前の発言は全部人伝に聞いたり、ネットで調べたりすればわかる内容
実際の臨床現場で体験したようなリアルさが皆無。だからちょくちょく実際の現場と食い違った発言をする
図星だろ?
後、お前が医者じゃない根拠な
お前の発言は全部人伝に聞いたり、ネットで調べたりすればわかる内容
実際の臨床現場で体験したようなリアルさが皆無。だからちょくちょく実際の現場と食い違った発言をする
図星だろ?
171卵の名無しさん (ワッチョイ bac9-sy7r [59.139.198.126])
2023/05/21(日) 12:00:09.01ID:wuoWg0Sz0 おい尿瓶ジジイ、本気で医者のフリできてると思ってんのか?
医師板じゃまるで相手にされてないのに
数学板ですらもう看破されてるもんな
発言がアホすぎて
医師板じゃまるで相手にされてないのに
数学板ですらもう看破されてるもんな
発言がアホすぎて
172卵の名無しさん (スップ Sd5a-MOwb [49.97.15.105])
2023/05/21(日) 12:11:32.36ID:7lZbJS1Ud >>166-168
もしくはあれか
EVT(末梢血管治療EndoVascularTreatment)と
EST(内視鏡的乳頭括約筋切開術Endoscopic sphincterotomy)
を勘違いしてたかな
すぐスペル間違いで通しとけば言い訳出来たが、略語だけで内容を全く理解してないから反論出来なかったんだろ?いずれにせよ本当に医者ならありえないことだわwww
もしくはあれか
EVT(末梢血管治療EndoVascularTreatment)と
EST(内視鏡的乳頭括約筋切開術Endoscopic sphincterotomy)
を勘違いしてたかな
すぐスペル間違いで通しとけば言い訳出来たが、略語だけで内容を全く理解してないから反論出来なかったんだろ?いずれにせよ本当に医者ならありえないことだわwww
173卵の名無しさん (アウアウウー Sab7-sy7r [106.128.68.197])
2023/05/21(日) 16:07:05.15ID:RIIdYhkfa 脳内ブラックジャックだから科関係なく知ってる外科手技なら何でもできちゃうんだよw
174卵の名無しさん (ワイーワ2 FF32-NOHb [103.5.140.167])
2023/05/21(日) 20:48:45.92ID:1c378pyDF175卵の名無しさん (スップ Sd5a-MOwb [49.97.13.243])
2023/05/22(月) 09:37:16.42ID:kbEdj0nmd 尿瓶ジジイ今日もダンマリw
176卵の名無しさん (JP 0H66-hF2x [91.193.7.154 [上級国民]])
2023/05/23(火) 07:27:53.33ID:A212YQlpH 袋の中に100個玉が入っていて、そのうち何個かがアタリである。
100個の中から無作為に10個を取り出してアタリの個数を記録する。
記録したら10個の玉を戻して、再び無作為に100個の玉から10個取り出してアタリの個数を記録する。
これを20回繰り返ししたところ
以下の通りであった。
アタリの個数 1 2 3 4 5 6
その 頻 度 2 6 7 3 1 1
100個の中に含まれるアタリの個数として最も可能性が高いのは何個か?
100個の中から無作為に10個を取り出してアタリの個数を記録する。
記録したら10個の玉を戻して、再び無作為に100個の玉から10個取り出してアタリの個数を記録する。
これを20回繰り返ししたところ
以下の通りであった。
アタリの個数 1 2 3 4 5 6
その 頻 度 2 6 7 3 1 1
100個の中に含まれるアタリの個数として最も可能性が高いのは何個か?
177卵の名無しさん (アウアウウー Sab7-sy7r [106.128.71.12])
2023/05/23(火) 08:36:19.01ID:1fOGJ+RSa 寝言はいいからさっさと質問に答えろ尿瓶ジジイw
178卵の名無しさん (JP 0Hd7-MOwb [202.253.111.210])
2023/05/23(火) 09:37:03.19ID:nxiFA/O9H 尿瓶ジジイマジでダンマリだなwww
ぐうの音も出ないみたい
ぐうの音も出ないみたい
179卵の名無しさん (JP 0Hd7-MOwb [202.253.111.210])
2023/05/23(火) 10:07:44.29ID:nxiFA/O9H 全部書き込んで来ないと思ったらこんなとこに逃げ込んでやがった
↓
当直医のスレ Part 32
https://egg.5ch.net/test/read.cgi/hosp/1672029865/
もう、医者じゃねえのバレてんだから今まで嘘ついてたこと謝るか
もう、書き込まないかどっちか選べや尿瓶ジジイ
↓
当直医のスレ Part 32
https://egg.5ch.net/test/read.cgi/hosp/1672029865/
もう、医者じゃねえのバレてんだから今まで嘘ついてたこと謝るか
もう、書き込まないかどっちか選べや尿瓶ジジイ
180卵の名無しさん (JP 0H66-sy7r [61.199.225.248])
2023/05/23(火) 13:15:17.67ID:m/9IeCKGH181卵の名無しさん (スップ Sd5a-MOwb [49.97.14.227])
2023/05/23(火) 14:11:24.48ID:WW108xI7d182卵の名無しさん (JP 0Hd7-MOwb [202.253.111.210])
2023/05/25(木) 12:09:33.27ID:neAA7XtYH お~い、尿瓶ジジイ
自分の立てたスレは放置で、言い負かされないと思って小学生のスレで脳内妄想全開で学歴ハラスメントか?
もう、4日ぐらい書き込みしてないけど
匿名掲示板でしかイキれないもんなw
本当に恥ずかしい奴だな、お前
自分の立てたスレは放置で、言い負かされないと思って小学生のスレで脳内妄想全開で学歴ハラスメントか?
もう、4日ぐらい書き込みしてないけど
匿名掲示板でしかイキれないもんなw
本当に恥ずかしい奴だな、お前
183卵の名無しさん (ワッチョイ 2b58-hF2x [14.13.16.0 [上級国民]])
2023/05/25(木) 15:47:50.43ID:q8pCMKgi0 m3からバズっているスレが配信されるのだが、トップがこれだった。
女学生「それ(私大出身)なら結構です。」
シリツネタはいつも盛り上がる。
女学生「それ(私大出身)なら結構です。」
シリツネタはいつも盛り上がる。
184卵の名無しさん (JP 0H66-sy7r [61.199.225.248])
2023/05/25(木) 16:33:02.27ID:Frq87pLKH おい尿瓶
寝言はいいからさっさと質問に答えろよw
寝言はいいからさっさと質問に答えろよw
185卵の名無しさん (アウアウウー Sab7-sy7r [106.128.71.65])
2023/05/25(木) 16:39:09.87ID:AzkWjA3ba186卵の名無しさん (JP 0Hd7-MOwb [202.253.111.210])
2023/05/25(木) 16:44:02.23ID:neAA7XtYH >>183
https://sp.m3.com/community/threads/449252
よく読んでみろよ
阪大の学生がキチガイって結論じゃねーか
お前もここで書き込んでるみたいに投稿してみればどうだ?ボコボコにされて終わるぞw
https://sp.m3.com/community/threads/449252
よく読んでみろよ
阪大の学生がキチガイって結論じゃねーか
お前もここで書き込んでるみたいに投稿してみればどうだ?ボコボコにされて終わるぞw
187卵の名無しさん (アウアウウー Sab7-sy7r [106.128.71.138])
2023/05/26(金) 00:28:32.98ID:zUuBik/Ja 尿瓶はスレ全体の結論もわからないのであった
188卵の名無しさん (ワッチョイ 2b58-EsMg [14.13.16.0])
2023/05/26(金) 05:51:43.54ID:wbuAKpPP0189卵の名無しさん (ワッチョイ 2b58-EsMg [14.13.16.0])
2023/05/26(金) 05:53:55.06ID:wbuAKpPP0 >>187
スレって結論を出す場ではないからな。
スレって結論を出す場ではないからな。
190卵の名無しさん (ワッチョイ 2b58-EsMg [14.13.16.0])
2023/05/26(金) 05:54:10.23ID:wbuAKpPP0 現在も通用する、不朽の名投稿
(quote)
私は昭和の時代に大学受験したけど、昔は今よりも差別感が凄く、慶応以外の私立医は特殊民のための特殊学校というイメージで開業医のバカ息子以外は誰も受験しようとすらしなかった。
常識的に考えて、数千万という法外な金を払って、しかも同業者からも患者からもバカだの裏口だのと散々罵られるのをわかって好き好んで私立医に行く同級生は一人もいませんでした。
本人には面と向かっては言わないけれど、俺くらいの年代の人間は、おそらくは8-9割は私立卒を今でも「何偉そうなこと抜かしてるんだ、この裏口バカが」と心の底で軽蔑し、嘲笑しているよ。当の本人には面と向かっては絶対にそんなことは言わないけどね。
(unquote)
(quote)
私は昭和の時代に大学受験したけど、昔は今よりも差別感が凄く、慶応以外の私立医は特殊民のための特殊学校というイメージで開業医のバカ息子以外は誰も受験しようとすらしなかった。
常識的に考えて、数千万という法外な金を払って、しかも同業者からも患者からもバカだの裏口だのと散々罵られるのをわかって好き好んで私立医に行く同級生は一人もいませんでした。
本人には面と向かっては言わないけれど、俺くらいの年代の人間は、おそらくは8-9割は私立卒を今でも「何偉そうなこと抜かしてるんだ、この裏口バカが」と心の底で軽蔑し、嘲笑しているよ。当の本人には面と向かっては絶対にそんなことは言わないけどね。
(unquote)
191卵の名無しさん (ワッチョイ 5758-MOwb [106.73.2.65])
2023/05/26(金) 07:18:50.67ID:/3J08T/20192卵の名無しさん (アウアウウー Sab7-sy7r [106.128.68.108])
2023/05/26(金) 08:43:57.15ID:HoZzsqDoa 何を話してるかどういう意見があるか分からないようじゃスレなんか見る意味ないだろ
日本語も不自由なのか尿瓶は
日本語も不自由なのか尿瓶は
193卵の名無しさん (アウアウウー Sa1b-/lzp [106.128.69.253])
2023/05/27(土) 19:29:58.11ID:9A06I7uTa 234 132人目の素数さん[sage] 2023/05/27(土) 15:41:12.70 ID:13I8HcOM
>>226
同じことばかり繰り返してるw
認知症患者なのに、よく医者が務まるな。
あんたがほんとに医者だったら患者がたくさん死んでるだろうね。くわばらくわばら。
尿瓶ジジイ高校生に認知症扱いされてて草
>>226
同じことばかり繰り返してるw
認知症患者なのに、よく医者が務まるな。
あんたがほんとに医者だったら患者がたくさん死んでるだろうね。くわばらくわばら。
尿瓶ジジイ高校生に認知症扱いされてて草
194卵の名無しさん (JP 0H7f-4PFo [217.138.212.122 [上級国民]])
2023/05/28(日) 06:58:55.10ID:8AxfkdH9H 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))
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))
195卵の名無しさん (アウアウウー Sa1b-/lzp [106.128.70.174])
2023/05/28(日) 09:00:01.00ID:7v27JFMTa おい尿瓶またダンマリか?
196卵の名無しさん (ワッチョイ 57c7-S+HU [124.47.76.122])
2023/05/29(月) 08:17:39.24ID:886ZWPfR0 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)
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)
197卵の名無しさん (アウアウウー Sa1b-/lzp [106.128.72.245])
2023/05/29(月) 23:52:12.36ID:oQTyeXgNa198卵の名無しさん (JP 0H9b-xs5j [202.253.111.210])
2023/05/30(火) 12:26:40.76ID:6CjNSJJkH お~い尿瓶ジジイさん
自分の立てたスレは放置ですか?
何も言えなくて悔しくて家で泣いてるのかな?w
自分の立てたスレは放置ですか?
何も言えなくて悔しくて家で泣いてるのかな?w
199卵の名無しさん (ワッチョイ 9758-pGV2 [14.13.16.0])
2023/05/31(水) 05:24:11.23ID:wUQZSnra0 東大合格通知の書式は俺の脳内に記憶されているよ。
公印すら押されていないいない。
尿瓶チンパポンコツフェチは受け取ったことのないのは確定。
シリツ卒なんだろうなぁ。
母校に誇りが持てないシリツってどこだろう?
公印すら押されていないいない。
尿瓶チンパポンコツフェチは受け取ったことのないのは確定。
シリツ卒なんだろうなぁ。
母校に誇りが持てないシリツってどこだろう?
200卵の名無しさん (JP 0H9b-xs5j [202.253.111.210])
2023/05/31(水) 07:36:44.25ID:/Dj1rGMmH201卵の名無しさん (JP 0H4f-/lzp [61.199.225.248])
2023/05/31(水) 10:53:20.58ID:pDDNNEAZH もうお迎えが近いみたいだね
202卵の名無しさん (ワッチョイ 9758-+fFi [14.13.16.0 [上級国民]])
2023/06/01(木) 06:52:43.44ID:fg+f7nas0 "
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))
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))
203卵の名無しさん (スプープ Sdbf-xs5j [49.109.2.18])
2023/06/01(木) 07:38:13.01ID:CifVjum8d204卵の名無しさん (JP 0H4f-/lzp [61.199.225.248])
2023/06/01(木) 11:51:48.20ID:f1e5vGmzH 尿瓶ジジイもう高校生にも相手されてないw
205卵の名無しさん (JP 0Hcb-7Psc [61.199.225.248])
2023/06/03(土) 13:13:38.08ID:ItgOEL/pH206卵の名無しさん (ワッチョイ 7d58-J7oM [14.13.16.0])
2023/06/03(土) 13:33:47.46ID:oJ++tqhV0 >>200
公印は押されていないよ。
入学手続きに必要な健康診断受診票を兼ねていて
受診したらゴム印が押される。
尿瓶チンパポンコツフェチが答えられない質問
(1)東大合格通知を受け取ったことないの?
(2)シリツ卒なんだろ?
(3)母校に誇りはないの?
公印は押されていないよ。
入学手続きに必要な健康診断受診票を兼ねていて
受診したらゴム印が押される。
尿瓶チンパポンコツフェチが答えられない質問
(1)東大合格通知を受け取ったことないの?
(2)シリツ卒なんだろ?
(3)母校に誇りはないの?
207卵の名無しさん (アウアウキー Sa79-7Psc [182.251.23.38])
2023/06/03(土) 13:51:09.20ID:TWlgFTpba >>206
脳内学歴だから合格通知書を受け取ったことも誇りもクソもないだろ尿瓶は
脳内学歴だから合格通知書を受け取ったことも誇りもクソもないだろ尿瓶は
208卵の名無しさん (ワッチョイ 7d58-J7oM [14.13.16.0])
2023/06/04(日) 07:03:25.63ID:XLlvi/0t0 医科歯科の合格通知は公印が押されていて
他の連絡事項の記載はなし。
東大合格通知ってハガキ大で公印もなくて簡素だったよ。
健康診断受診票を兼ねていた。
他の連絡事項の記載はなし。
東大合格通知ってハガキ大で公印もなくて簡素だったよ。
健康診断受診票を兼ねていた。
209卵の名無しさん (ワッチョイ 7d58-J7oM [14.13.16.0])
2023/06/04(日) 07:04:02.33ID:XLlvi/0t0 尿瓶チンパポンコツフェチが逃げまくりの質問
(1)東大合格通知を受け取ったことないの?
(2)シリツ卒なんだろ?
(3)母校に誇りはないの?
(1)東大合格通知を受け取ったことないの?
(2)シリツ卒なんだろ?
(3)母校に誇りはないの?
210卵の名無しさん (ワッチョイ 7d58-J7oM [14.13.16.0])
2023/06/04(日) 07:05:54.27ID:XLlvi/0t0211卵の名無しさん (ワッチョイ 7d58-J7oM [14.13.16.0])
2023/06/04(日) 07:07:03.96ID:XLlvi/0t0 最近の医師用掲示板m3より
特集 : データで見る医学部の生態Vol. 24
「東大・京大医学部には一目」医科歯科大卒業生の傾向
続けて、受験時の志望順位と併願校を見てみましょう。
卒業生に聞いた東京医科歯科大学の志望順位は平均で1.35位。併願校として多く挙がったのは、慶應義塾大学(43.8%)、東京大学(20.0%)等となっています。
特集 : データで見る医学部の生態Vol. 24
「東大・京大医学部には一目」医科歯科大卒業生の傾向
続けて、受験時の志望順位と併願校を見てみましょう。
卒業生に聞いた東京医科歯科大学の志望順位は平均で1.35位。併願校として多く挙がったのは、慶應義塾大学(43.8%)、東京大学(20.0%)等となっています。
212卵の名無しさん (アウアウキー Sa79-7Psc [182.251.23.38])
2023/06/04(日) 07:38:02.73ID:vjWPuGRja 尿瓶はいつになったら証拠出せるんだ?
どうせ脳内なんだろ、高校生にもバカバレてるぞ
無論医者板じゃ相手にされるからここでしか発狂できないww
どうせ脳内なんだろ、高校生にもバカバレてるぞ
無論医者板じゃ相手にされるからここでしか発狂できないww
213卵の名無しさん (ブーイモ MM59-h29o [220.156.14.55])
2023/06/04(日) 08:15:13.67ID:K5P3M+MCM 今月から市の胃がん検診が始まった。
細径内視鏡での検査希望が増えて来たので1200Nを1本増やしてもらえた。経鼻は前処置に時間がかかるのと鼻出血の合併症合併症ありうるので原則経口。
洗浄での待ち時間が短縮できて( ・∀・)イイ!!
細径内視鏡での検査希望が増えて来たので1200Nを1本増やしてもらえた。経鼻は前処置に時間がかかるのと鼻出血の合併症合併症ありうるので原則経口。
洗浄での待ち時間が短縮できて( ・∀・)イイ!!
214卵の名無しさん (ブーイモ MM59-h29o [220.156.14.55])
2023/06/04(日) 08:16:00.96ID:K5P3M+MCM215卵の名無しさん (ブーイモ MM59-h29o [220.156.14.55])
2023/06/04(日) 08:18:20.28ID:K5P3M+MCM 東大通知には公印なしを知らないのは東大合格者ではないわな!
入学手続での健康診断と医師面接をうけたゴム印は押されるけど。
尿瓶チンパポンコツフェチが逃げまくりの質問
(1)東大合格通知を受け取ったことないの?
(2)シリツ卒なんだろ?
(3)母校に誇りはないの?
入学手続での健康診断と医師面接をうけたゴム印は押されるけど。
尿瓶チンパポンコツフェチが逃げまくりの質問
(1)東大合格通知を受け取ったことないの?
(2)シリツ卒なんだろ?
(3)母校に誇りはないの?
216卵の名無しさん (ワッチョイ 7558-0riq [106.73.2.65])
2023/06/04(日) 08:32:09.23ID:DT5NlCZj0217卵の名無しさん (アウアウキー Sa79-7Psc [182.251.22.250])
2023/06/04(日) 09:13:30.22ID:OPKrP+L3a >>214
尿瓶ジジイは脳内だから東大合格通知を受け取ったことはないし母校もクソもないだろタコw
尿瓶ジジイは脳内だから東大合格通知を受け取ったことはないし母校もクソもないだろタコw
218卵の名無しさん (アウアウキー Sa79-7Psc [182.251.31.69])
2023/06/04(日) 12:57:56.11ID:XEcXQKxga 尿瓶ジジイ高校生からも脳内学歴とか言われてて草
219卵の名無しさん (ワッチョイ 0dc7-h29o [124.47.76.122])
2023/06/05(月) 05:42:57.61ID:5C/tpLhU0 >>216
俺は東京医科歯科医学部卒だけど。
俺は東京医科歯科医学部卒だけど。
220卵の名無しさん (ワッチョイ 0dc7-h29o [124.47.76.122])
2023/06/05(月) 05:43:05.72ID:5C/tpLhU0 >>216
俺は東京医科歯科医学部卒だけど。
俺は東京医科歯科医学部卒だけど。
221卵の名無しさん (ワッチョイ 0dc7-h29o [124.47.76.122])
2023/06/05(月) 05:48:08.45ID:5C/tpLhU0 非開胸食道抜去のアプローチは仰臥位で食道裂孔からアプローチ。静脈ストリッパーを使って翻転して抜去。
反転せずに引き抜く強者の術者もいた。
鏡視下手術が普及する前の昔話。
反転せずに引き抜く強者の術者もいた。
鏡視下手術が普及する前の昔話。
222卵の名無しさん (ワッチョイ 7558-0riq [106.73.2.65])
2023/06/05(月) 06:05:55.57ID:1Xy0F6rC0223卵の名無しさん (ワッチョイ 0dc7-N/Lw [124.47.76.122])
2023/06/05(月) 07:08:47.55ID:5C/tpLhU0224卵の名無しさん (ワッチョイ 0dc7-N/Lw [124.47.76.122])
2023/06/05(月) 07:14:18.13ID:5C/tpLhU0 >>221
翻転抜去すると腫瘍を縦隔内に露出させて擦ることになるから、播種の原因になるのではと危惧しての話だろうな。
俺が執刀した例は早期癌でいずれも5年生存した。まあ、いまならESDの適用となるケース。
非開胸食道抜去を教わる前は開胸して切除していた。体位変換が1回で済む胸骨後で再建先行術式にすることが多かったな。
Great Surgeon, Great Incisionが是とされた時代の話。
当時は胃がんのD4郭清とかもやっていた。術後jに髄膜播種した症例を経験してカンファでD4郭清が播種ルートをつくった可能性があると指摘されたのを覚えている。
翻転抜去すると腫瘍を縦隔内に露出させて擦ることになるから、播種の原因になるのではと危惧しての話だろうな。
俺が執刀した例は早期癌でいずれも5年生存した。まあ、いまならESDの適用となるケース。
非開胸食道抜去を教わる前は開胸して切除していた。体位変換が1回で済む胸骨後で再建先行術式にすることが多かったな。
Great Surgeon, Great Incisionが是とされた時代の話。
当時は胃がんのD4郭清とかもやっていた。術後jに髄膜播種した症例を経験してカンファでD4郭清が播種ルートをつくった可能性があると指摘されたのを覚えている。
225卵の名無しさん (ワッチョイ 0dc7-N/Lw [124.47.76.122])
2023/06/05(月) 07:15:23.37ID:5C/tpLhU0 今でも、東大通知には公印なし なのか?
東大卒業生がこのスレにいなかったっけ?
東大卒業生がこのスレにいなかったっけ?
226卵の名無しさん (JP 0Hcb-7Psc [61.199.225.248])
2023/06/05(月) 10:12:18.51ID:Qe10d+6kH227卵の名無しさん (アウアウウー Sa91-7Psc [106.128.72.89])
2023/06/05(月) 10:20:30.46ID:Yioze7f7a 380 132人目の素数さん[sage] 2023/06/05(月) 08:45:54.80 ID:SQYoGnfj
専門医資格がないと認めたのは、医師という設定を
もっともらしく見せるためのテクニックか?w
まあ、肝心の数学的能力でのポンコツぶりをみればどっちみち
こいつがポンコツなのは自明なんだが。
数学板の高校生にも相手にされてなくて草
専門医資格がないと認めたのは、医師という設定を
もっともらしく見せるためのテクニックか?w
まあ、肝心の数学的能力でのポンコツぶりをみればどっちみち
こいつがポンコツなのは自明なんだが。
数学板の高校生にも相手にされてなくて草
228卵の名無しさん (スプープ Sdc3-0riq [1.73.139.234])
2023/06/05(月) 14:03:39.74ID:7oGDxp8md >>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だよ!嘘つくんじゃねぇよ
お前さ自分が不利になると、すぐ嘘つくよな
自分の間違いさえ認められないクズの上に
頭も悪い
マジで救えないなお前
↓
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だよ!嘘つくんじゃねぇよ
お前さ自分が不利になると、すぐ嘘つくよな
自分の間違いさえ認められないクズの上に
頭も悪い
マジで救えないなお前
229卵の名無しさん (JP 0Hcb-7Psc [61.199.225.248])
2023/06/05(月) 16:50:51.60ID:Qe10d+6kH 尿瓶ジジイ
胆汁ドレナージだけは譲れない模様ww
胆汁ドレナージだけは譲れない模様ww
230卵の名無しさん (エムゾネ FF03-0riq [49.106.193.248])
2023/06/06(火) 07:35:35.90ID:usHtqY6HF 尿瓶ジジイ
今日はダンマリ
今日はダンマリ
231卵の名無しさん (アウアウキー Sa79-7Psc [182.251.37.134])
2023/06/06(火) 08:25:39.31ID:tPid6kAZa232卵の名無しさん (JP 0H51-0riq [202.253.111.210])
2023/06/06(火) 10:27:24.84ID:/DsOU1ErH233卵の名無しさん (ワッチョイ 55cf-H7vt [58.88.30.199])
2023/06/07(水) 17:05:28.97ID:WWKHvMr80 うちの病院にいるポンコツ爺医、CPK300で悪性症候群だってさすが裏口の迷門医大卒業だけあるわ
234卵の名無しさん (アウアウキー Sa79-2DWR [182.251.23.72])
2023/06/07(水) 21:15:42.47ID:uP1xIReSa 尿瓶ジジイ高校生に馬鹿にされてコピペで発狂w
235卵の名無しさん (アウアウウー Sa91-2DWR [106.128.69.211])
2023/06/08(木) 19:29:59.81ID:Cn7UVZ4Ra 尿瓶ジジイって昭和の話しかできないみたいだね
今平成どころか令和だし今の話ができないのかな
ましてや医療なんか日々更新されてくというのに
まあ脳内医者だから仕方ないかw
ボケ老人も昔のことはよく覚えてるとかいうけどお迎え近いのかな?
今平成どころか令和だし今の話ができないのかな
ましてや医療なんか日々更新されてくというのに
まあ脳内医者だから仕方ないかw
ボケ老人も昔のことはよく覚えてるとかいうけどお迎え近いのかな?
236卵の名無しさん (アウアウウー Sa91-2DWR [106.128.69.211])
2023/06/08(木) 19:31:14.56ID:Cn7UVZ4Ra それとも医療事務クビになって30年以上引きこもりで発狂しつづけてるのかな?w
237卵の名無しさん (ワッチョイ 7d58-J7oM [14.13.16.0])
2023/06/09(金) 04:50:04.78ID:BJ9MfpJA0 東大通知には公印なしを知らないのは東大合格者ではないわな!
入学手続での健康診断と医師面接をうけたゴム印は押されるけど。
尿瓶チンパポンコツフェチが逃げまくりの質問
(1)東大合格通知を受け取ったことないの?
(2)シリツ卒なんだろ?
(3)母校に誇りはないの?
入学手続での健康診断と医師面接をうけたゴム印は押されるけど。
尿瓶チンパポンコツフェチが逃げまくりの質問
(1)東大合格通知を受け取ったことないの?
(2)シリツ卒なんだろ?
(3)母校に誇りはないの?
238卵の名無しさん (ワッチョイ 7d58-J7oM [14.13.16.0])
2023/06/09(金) 04:51:21.47ID:BJ9MfpJA0239卵の名無しさん (ワッチョイ 7d58-J7oM [14.13.16.0])
2023/06/09(金) 06:04:18.57ID:BJ9MfpJA0 >>233
マラソン後でもそれくらいはいくだろうな。
マラソン後でもそれくらいはいくだろうな。
240卵の名無しさん (ワッチョイ 7d58-J7oM [14.13.16.0])
2023/06/09(金) 06:05:38.33ID:BJ9MfpJA0241卵の名無しさん (アウアウウー Sa91-2DWR [106.128.68.80])
2023/06/09(金) 08:05:50.53ID:DFXdviHVa242卵の名無しさん (アウアウウー Sa91-2DWR [106.128.68.80])
2023/06/09(金) 08:07:24.77ID:DFXdviHVa243卵の名無しさん (JP 0Hcb-ZJrt [61.199.225.248])
2023/06/09(金) 17:20:08.92ID:mVBFfddkH 尿瓶ジジイ、最近は誰も書き込まないであろう早朝しか発狂できない模様w
244卵の名無しさん (アウアウウー Sa91-ZJrt [106.128.68.251])
2023/06/09(金) 22:29:01.64ID:D7daMn+Xa 尿瓶ジジイは医者どころか高校生にも相手にされていない様子w
245卵の名無しさん (スッププ Sdf2-32in [49.105.101.32])
2023/06/10(土) 10:26:18.88ID:RSvxesG5d >>239
悪性症候群は別にCK上昇だけが診断基準じゃないぞ。基本症状ありきで、CKが1000を切る悪性症候群は普通にいる
そんなことは普通に医療をやってればわかることなのに、そのことを指摘しないで同意してるところみると、やっぱただの非医者なんだろうなwww
というか、最近やたらと書き込み少ないけど、どうしたの?ビビって書き込めないの?www
悪性症候群は別にCK上昇だけが診断基準じゃないぞ。基本症状ありきで、CKが1000を切る悪性症候群は普通にいる
そんなことは普通に医療をやってればわかることなのに、そのことを指摘しないで同意してるところみると、やっぱただの非医者なんだろうなwww
というか、最近やたらと書き込み少ないけど、どうしたの?ビビって書き込めないの?www
246卵の名無しさん (アウアウウー Sa63-OsjZ [106.128.71.229])
2023/06/10(土) 10:51:13.91ID:CkUVZvoya247卵の名無しさん (ワッチョイ bfc7-2rqm [124.47.76.122])
2023/06/12(月) 05:51:37.82ID:96aMXMUW0 以下の条件(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]
(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]
248卵の名無しさん (アウアウキー Sa8f-OsjZ [182.251.28.221])
2023/06/14(水) 08:23:26.14ID:zf/xtFXwa おい尿瓶
もう何も言い返せないってか
もう何も言い返せないってか
249卵の名無しさん (アウアウウー Sa63-8Nne [106.155.10.50])
2023/06/15(木) 00:51:44.25ID:F+7brVCSa 歯科助手のほうがヤベエやつら
偉そう
無資格で中途半端に医療知識あって
若手ドクターみくだし
金遣いあらいし。
歯科助手がお局中心の医院とかやっべーやろ。う○こに等しい
偉そう
無資格で中途半端に医療知識あって
若手ドクターみくだし
金遣いあらいし。
歯科助手がお局中心の医院とかやっべーやろ。う○こに等しい
250卵の名無しさん (ワッチョイ 3758-j1T/ [14.13.16.0])
2023/06/15(木) 14:39:49.02ID:r9gVLzDE0 >>245
誰もCK上昇だけで診断するとか書いてないけどな。
誰もCK上昇だけで診断するとか書いてないけどな。
251卵の名無しさん (JP 0Hae-OsjZ [61.199.225.248])
2023/06/15(木) 14:52:05.80ID:5wEmrDzvH252卵の名無しさん (ワッチョイ 3758-Sncr [14.13.16.0 [上級国民]])
2023/06/15(木) 15:00:31.91ID:r9gVLzDE0 悪性高熱と違ってサンドラマランは高パ薬を中止する必要がないので対処が楽。
ダントレンの蒸留水での溶解が面倒だけどね。
ダントレンの蒸留水での溶解が面倒だけどね。
253卵の名無しさん (ワッチョイ 3758-Sncr [14.13.16.0 [上級国民]])
2023/06/15(木) 15:01:55.01ID:r9gVLzDE0254卵の名無しさん (ワッチョイ 3758-Sncr [14.13.16.0 [上級国民]])
2023/06/15(木) 15:03:52.43ID:r9gVLzDE0 >>251
あんたが文脈よめないことを指摘しているだけだが。
あんたが文脈よめないことを指摘しているだけだが。
255卵の名無しさん (JP 0Hae-OsjZ [61.199.225.248])
2023/06/15(木) 15:14:21.56ID:5wEmrDzvH >>254
じゃあ他に言うことないのか?尿瓶さんw
じゃあ他に言うことないのか?尿瓶さんw
256卵の名無しさん (スッププ Sdf2-32in [49.105.100.138])
2023/06/15(木) 15:24:34.90ID:eoOYp9Vxd257卵の名無しさん (スッププ Sdf2-32in [49.105.100.138])
2023/06/15(木) 16:45:06.57ID:eoOYp9Vxd >>252
なんだ?サンドラマランって
新しいヒーローの名前?
もしかして・・もしかしてだけど
サンドローム・マラン(Syndrome Malin)のこと言ってる?他の医者が言ってるの聞いて
そんな風に聞こえちゃったのかな?
医者だったらそんな言い間違い絶対しないもんね。お前の好きな漫画のキャラクターの名前か何かかな?w
なんだ?サンドラマランって
新しいヒーローの名前?
もしかして・・もしかしてだけど
サンドローム・マラン(Syndrome Malin)のこと言ってる?他の医者が言ってるの聞いて
そんな風に聞こえちゃったのかな?
医者だったらそんな言い間違い絶対しないもんね。お前の好きな漫画のキャラクターの名前か何かかな?w
258卵の名無しさん (JP 0H03-32in [202.253.111.210])
2023/06/15(木) 17:32:39.02ID:vW6q/6JzH >>252
後、高パ薬って何?もしかして抗パーキンソン病薬のこと?
そうだとしたら、悪性高熱症で止めるとか何も病態把握してなくて草だわ
麻酔科やってるとか名乗るぐらいならマジで適当な事言うなよ
頭悪い癖に知ったかすんなボケ
後、高パ薬って何?もしかして抗パーキンソン病薬のこと?
そうだとしたら、悪性高熱症で止めるとか何も病態把握してなくて草だわ
麻酔科やってるとか名乗るぐらいならマジで適当な事言うなよ
頭悪い癖に知ったかすんなボケ
259卵の名無しさん (JP 0Hae-OsjZ [61.199.225.248])
2023/06/15(木) 18:07:06.08ID:5wEmrDzvH Google先生かよw
260卵の名無しさん (アウアウウー Sa63-OsjZ [106.128.75.250])
2023/06/15(木) 18:07:56.62ID:xqbJs0+pa ま、胆汁ドレナージの時点でお察しだけどひどいねw
261卵の名無しさん (アウアウウー Sa63-OsjZ [106.128.72.195])
2023/06/16(金) 08:20:32.23ID:jPvFtsVCa おい尿瓶ジジイ、ダンマリかよ
早朝から発狂してるのは知ってるんだぞ
515 132人目の素数さん[sage] 2023/06/16(金) 06:06:59.77 ID:tkqktegb
進学校なら東大合格者や医学部進学者なんてOBに枚挙に暇がないくらいいるだろう。
東大合格者って年間3000人、医師は年間9000人が誕生。
別に羨むほどのものじゃないけどな。
516 132人目の素数さん[sage] 2023/06/16(金) 07:01:27.30 ID:mFyh7Amr
>>515
お前凄いな
こんなに馬鹿にされてるのにまだ誰かが羨んでくれてると思ってるんだな
流石は上級国民様(笑)ですな
519 132人目の素数さん[] 2023/06/16(金) 07:48:31.55 ID:vdbZqsgI
>>515
医学板では医学の知識がデタラメだということがバレバレ、
このスレでは高校数学のの能力すら全くないことがバレバレ。
それでも東大合格だの医師だのと詐称し続けられる人は滅多にいない。
その図太いメンタルを羨む人はいるかもなw
早朝から発狂してるのは知ってるんだぞ
515 132人目の素数さん[sage] 2023/06/16(金) 06:06:59.77 ID:tkqktegb
進学校なら東大合格者や医学部進学者なんてOBに枚挙に暇がないくらいいるだろう。
東大合格者って年間3000人、医師は年間9000人が誕生。
別に羨むほどのものじゃないけどな。
516 132人目の素数さん[sage] 2023/06/16(金) 07:01:27.30 ID:mFyh7Amr
>>515
お前凄いな
こんなに馬鹿にされてるのにまだ誰かが羨んでくれてると思ってるんだな
流石は上級国民様(笑)ですな
519 132人目の素数さん[] 2023/06/16(金) 07:48:31.55 ID:vdbZqsgI
>>515
医学板では医学の知識がデタラメだということがバレバレ、
このスレでは高校数学のの能力すら全くないことがバレバレ。
それでも東大合格だの医師だのと詐称し続けられる人は滅多にいない。
その図太いメンタルを羨む人はいるかもなw
262卵の名無しさん (スッププ Sdf2-32in [49.105.101.251])
2023/06/16(金) 08:54:45.29ID:wVPAbbwLd263卵の名無しさん (スッププ Sdf2-32in [49.105.101.251])
2023/06/16(金) 09:04:11.47ID:wVPAbbwLd 例の数学板のスレ見てたら
尿瓶ジジイ、手術とかカテ出来たらシリツでもオッケーとか意見変わっててワロタ
まあ、頭悪いのバレたから手術出来てる奴は凄いってことにしないと自分の首をしめることになるしな
手術出来るってのも、脳内設定だけどw
尿瓶ジジイ、手術とかカテ出来たらシリツでもオッケーとか意見変わっててワロタ
まあ、頭悪いのバレたから手術出来てる奴は凄いってことにしないと自分の首をしめることになるしな
手術出来るってのも、脳内設定だけどw
264卵の名無しさん (JP 0Hae-OsjZ [61.199.225.248])
2023/06/16(金) 12:52:31.86ID:ETJY+eqUH やっぱり人じゃなくてチンパンジーだから恥を恥とも思わないんだろうな
そんなに人間が羨ましいかw
そんなに人間が羨ましいかw
265卵の名無しさん (JP 0Hae-OsjZ [61.199.225.248])
2023/06/16(金) 12:57:57.96ID:ETJY+eqUH https://rio2016.5ch.net/test/read.cgi/math/1684375597/
511 132人目の素数さん[sage] 2023/06/15(木) 21:35:30.36 ID:4/CSLoLM
>>509
詳しくは、わからんが
この自称医者が全く知識が無いのに知ったかぶりする奴ってのは理解した
まあ、数学の能力的にも東大じゃないだろうな間違いなく
素人なら医者で通るとでも思った?はい残念w
511 132人目の素数さん[sage] 2023/06/15(木) 21:35:30.36 ID:4/CSLoLM
>>509
詳しくは、わからんが
この自称医者が全く知識が無いのに知ったかぶりする奴ってのは理解した
まあ、数学の能力的にも東大じゃないだろうな間違いなく
素人なら医者で通るとでも思った?はい残念w
266卵の名無しさん (ワッチョイ 5f58-WBpu [14.13.16.0])
2023/06/17(土) 05:46:03.81ID:9PcXsfQp0267卵の名無しさん (ワッチョイ 5f58-WBpu [14.13.16.0])
2023/06/17(土) 05:48:07.40ID:9PcXsfQp0268卵の名無しさん (ワッチョイ 5f58-WBpu [14.13.16.0])
2023/06/17(土) 05:50:21.53ID:9PcXsfQp0 非開胸食道抜去術に複数のアプローチなんてないぞ。
開腹と頸部切開だけ。
まあ、ストリッパーを使うか翻転させずに引き抜くかの違いはあるだろうけどね。
開腹と頸部切開だけ。
まあ、ストリッパーを使うか翻転させずに引き抜くかの違いはあるだろうけどね。
269卵の名無しさん (ワッチョイ 5f58-WBpu [14.13.16.0])
2023/06/17(土) 05:59:37.51ID:9PcXsfQp0270卵の名無しさん (ワッチョイ df58-ZmF9 [106.73.2.65])
2023/06/17(土) 06:59:33.02ID:i0EA5pzF0271卵の名無しさん (アウアウウー Sa23-ZqtJ [106.128.73.76])
2023/06/17(土) 08:21:08.42ID:k27kAw4sa272卵の名無しさん (アウアウウー Sa23-ZqtJ [106.128.74.200])
2023/06/17(土) 10:17:25.99ID:UNnSVkuea もしかして自分があの薬使ってるから知ったかしてるのかな、悪性症候群w
273卵の名無しさん (スッププ Sd9f-ZmF9 [49.105.77.69])
2023/06/17(土) 10:49:37.00ID:8gbikhN+d274卵の名無しさん (スッププ Sd9f-ZmF9 [49.105.77.69])
2023/06/17(土) 10:56:21.05ID:8gbikhN+d275卵の名無しさん (スッププ Sd9f-ZmF9 [49.105.77.69])
2023/06/17(土) 10:57:36.82ID:8gbikhN+d >>274
抗ドーパミン薬→抗パーキンソン病薬
抗ドーパミン薬→抗パーキンソン病薬
276卵の名無しさん (アウアウウー Sa23-ZqtJ [106.128.75.174])
2023/06/17(土) 18:09:38.53ID:6vdLsb6+a 尿瓶ジジイ医療以前に日本語ができずに発狂w
277卵の名無しさん (アウアウウー Sa23-ZqtJ [106.180.6.190])
2023/06/18(日) 09:11:23.71ID:eYN+b/hya >>269
尿瓶ジジイの脳内医療はいつになったら相手してくれるんだろうね?w
尿瓶ジジイの脳内医療はいつになったら相手してくれるんだろうね?w
278卵の名無しさん (アウアウウー Sa23-ZqtJ [106.128.68.242])
2023/06/19(月) 16:40:24.75ID:k9vrdEk8a 尿瓶ジジイダンマリw
279卵の名無しさん (JP 0H8f-ZqtJ [61.199.225.248])
2023/06/21(水) 19:40:54.78ID:lCHH39SIH 尿瓶ジジイ発狂しすぎて措置入院か?w
280卵の名無しさん (アウアウウー Sa23-ZqtJ [106.128.70.182])
2023/06/22(木) 01:12:35.67ID:k5x1uUDva http://hissi.org/read.php/math/20230621/aDFvQktGTFk.html
何食わぬ顔で登場もバカにされるw
何食わぬ顔で登場もバカにされるw
281卵の名無しさん (JP 0Hdf-/uP5 [217.138.252.98 [上級国民]])
2023/06/22(木) 07:13:59.39ID:xfRuC1uoH 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)
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)
282卵の名無しさん (スプープ Sd1f-YIuV [1.73.140.177])
2023/06/22(木) 07:21:30.73ID:RNyFk8BRd283卵の名無しさん (ワッチョイ 5f58-WBpu [14.13.16.0])
2023/06/22(木) 14:25:34.41ID:LJgEduw70 >>274
抗ドーパミン薬ってプリンペランのことかよ!
これはタイプミスとは思えんくらい恥ずかしいぞ。
>>
悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。止めて起こるのが悪性症候群なのに
<<
俺は抗パ剤と書いたのに抗ドーパミン薬だってさ。
ダントレン溶解したこともないんじゃね?
抗ドーパミン薬ってプリンペランのことかよ!
これはタイプミスとは思えんくらい恥ずかしいぞ。
>>
悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。止めて起こるのが悪性症候群なのに
<<
俺は抗パ剤と書いたのに抗ドーパミン薬だってさ。
ダントレン溶解したこともないんじゃね?
284卵の名無しさん (ワッチョイ 5f58-WBpu [14.13.16.0])
2023/06/22(木) 14:31:08.72ID:LJgEduw70 タミフル登場前だが
インフルエンザにシンメトレル処方した後に悪性症候群発症を経験したという話を聞かされた。
インフルエンザにシンメトレル処方した後に悪性症候群発症を経験したという話を聞かされた。
285卵の名無しさん (ブーイモ MM13-WBpu [220.156.12.245])
2023/06/22(木) 14:42:36.15ID:XFJ+MI5cM 抗パ剤を高パ剤と誤変換で投稿するのは単純ミスだが
抗ドーパミン薬と投稿するのはタイプミスでも誤変換でもないよな。
>悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。
ですってwww
抗ドーパミン薬と投稿するのはタイプミスでも誤変換でもないよな。
>悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。
ですってwww
286卵の名無しさん (JP 0H8f-ZqtJ [61.199.225.248])
2023/06/22(木) 16:15:50.97ID:qdic7yLlH 胆汁ドレナージは恥ずかしくないのか?
まあ恥ずかしいって概念すらなさそうだがw
まあ恥ずかしいって概念すらなさそうだがw
287卵の名無しさん (アウアウウー Sa23-ZqtJ [106.128.71.225])
2023/06/22(木) 16:18:05.23ID:L77NI1qRa おい尿瓶
もうそんなことでしか発狂できないのか?
高校数学スレでも無視されてるみたいだなw
もうそんなことでしか発狂できないのか?
高校数学スレでも無視されてるみたいだなw
288卵の名無しさん (スプープ Sd1f-YIuV [1.73.141.21])
2023/06/22(木) 16:40:46.07ID:l/UVfLKVd >>285
抗ドーパミン薬→抗パーキンソン病薬って書き直してるだろ
そんなことより、サンドラマランって何なの?抗パ薬を悪性高熱症で止めるのは何で?
どうせよくわかってないんだろ
頭悪いくせに何でそんな偉そうに出来るの?自分の間違いは認めないの?
抗ドーパミン薬→抗パーキンソン病薬って書き直してるだろ
そんなことより、サンドラマランって何なの?抗パ薬を悪性高熱症で止めるのは何で?
どうせよくわかってないんだろ
頭悪いくせに何でそんな偉そうに出来るの?自分の間違いは認めないの?
289卵の名無しさん (スプープ Sd1f-YIuV [1.73.141.21])
2023/06/22(木) 16:47:08.15ID:l/UVfLKVd >>283
こんなことでしか、反論出来ない頭の悪さ+性格の悪さ
言いたいことはそれだけか?悪性症候群とか悪性高熱症がどういう病気か理解してないからそれぐらいしか言えないんだろうな
お前が反論出来るのは精々タイプミスぐらいだろwww
こんなことでしか、反論出来ない頭の悪さ+性格の悪さ
言いたいことはそれだけか?悪性症候群とか悪性高熱症がどういう病気か理解してないからそれぐらいしか言えないんだろうな
お前が反論出来るのは精々タイプミスぐらいだろwww
290卵の名無しさん (ワッチョイ 5f58-WBpu [14.13.16.0])
2023/06/22(木) 19:16:11.95ID:LJgEduw70 >>286
胆汁ドレナージは普通に使うからね。
胆汁ドレナージは普通に使うからね。
291卵の名無しさん (ワッチョイ 5f58-WBpu [14.13.16.0])
2023/06/22(木) 19:16:28.07ID:LJgEduw70 抗パ剤を高パ剤と誤変換で投稿するのは単純ミスだが
抗ドーパミン薬と投稿するのはタイプミスでも誤変換でもないよな。
>悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。
ですってwww
抗ドーパミン薬と投稿するのはタイプミスでも誤変換でもないよな。
>悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。
ですってwww
292卵の名無しさん (ワッチョイ 5f58-WBpu [14.13.16.0])
2023/06/22(木) 19:20:07.70ID:LJgEduw70 >>289
ダントレン溶解したことあるの?
食道抜去術もやったことないんじゃね?
薬屋の売り子しかできない椰子が
>悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。
ですって。
抗パ剤を高パ剤と誤変換で投稿するのは単純ミスだが
抗ドーパミン薬と投稿するのはタイプミスでも誤変換でもないよな。
>悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。
ですってwww
ダントレン溶解したことあるの?
食道抜去術もやったことないんじゃね?
薬屋の売り子しかできない椰子が
>悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。
ですって。
抗パ剤を高パ剤と誤変換で投稿するのは単純ミスだが
抗ドーパミン薬と投稿するのはタイプミスでも誤変換でもないよな。
>悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。
ですってwww
293卵の名無しさん (アウアウウー Sa23-ZqtJ [106.128.70.86])
2023/06/22(木) 19:40:02.62ID:p7B/miura 使わないよアンタの脳内医療以外w
294卵の名無しさん (ワッチョイ df58-YIuV [106.73.2.65])
2023/06/22(木) 21:57:15.83ID:BVj9C+CQ0295卵の名無しさん (ワッチョイ df58-YIuV [106.73.2.65])
2023/06/22(木) 22:01:56.19ID:BVj9C+CQ0296卵の名無しさん (アウアウウー Sa23-ZqtJ [106.128.70.86])
2023/06/23(金) 03:11:35.19ID:0CoIEHXha297卵の名無しさん (JP 0Hdf-/uP5 [217.138.212.98 [上級国民]])
2023/06/23(金) 06:09:51.68ID:R3ED8j9EH 抗パ剤を高パ剤と誤変換で投稿するのは単純ミスだが
抗ドーパミン薬と投稿するのはタイプミスでも誤変換でもないよな。
>悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。
ですってwww
抗ドーパミン薬と投稿するのはタイプミスでも誤変換でもないよな。
>悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。
ですってwww
298卵の名無しさん (JP 0Hdf-/uP5 [217.138.212.98 [上級国民]])
2023/06/23(金) 06:18:11.62ID:R3ED8j9EH >>252
悪性高熱は原因薬剤の吸入麻酔薬を中止するけど、悪性症候群では原因薬剤は中止しない という文意が読めないみたいだな。
悪性高熱は原因薬剤の吸入麻酔薬を中止するけど、悪性症候群では原因薬剤は中止しない という文意が読めないみたいだな。
299卵の名無しさん (JP 0Hdf-kIjP [217.138.212.98 [上級国民]])
2023/06/23(金) 06:21:44.03ID:R3ED8j9EH 非開胸食道抜去術に複数のアプローチがあると言ってたが、開腹+頸部切開以外にアプローチはないんじゃないの?
経験あるなら複数のアプローチを列挙してくれよ。
損傷しうる血管として右気管支動脈を即答できなかったから、やったことないと思うけどね。
>悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。
ですってwww
当たり前だろ
当たり前だろ
当たり前だろ
とドヤ顔で大間違いを投稿!
抗パ剤を高パ剤と誤変換で投稿するのは単純ミスだが
抗ドーパミン薬と投稿するのはタイプミスでも誤変換でもないよな。
経験あるなら複数のアプローチを列挙してくれよ。
損傷しうる血管として右気管支動脈を即答できなかったから、やったことないと思うけどね。
>悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。
ですってwww
当たり前だろ
当たり前だろ
当たり前だろ
とドヤ顔で大間違いを投稿!
抗パ剤を高パ剤と誤変換で投稿するのは単純ミスだが
抗ドーパミン薬と投稿するのはタイプミスでも誤変換でもないよな。
300卵の名無しさん (JP 0Hdf-/uP5 [217.138.212.98 [上級国民]])
2023/06/23(金) 06:23:16.94ID:R3ED8j9EH 非開胸食道抜去術に複数のアプローチがあると言ってたが、開腹+頸部切開以外にアプローチはないんじゃないの?
経験あるなら複数のアプローチを列挙してくれよ。
損傷しうる血管として右気管支動脈を即答できなかったから、やったことないと思うけどね。
>悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。
ですってwww
>当たり前だろ
>当たり前だろ
>当たり前だろ
とドヤ顔で大間違いを投稿!
抗パ剤を高パ剤と誤変換で投稿するのは単純ミスだが
抗ドーパミン薬と投稿するのはタイプミスでも誤変換でもないよな。
経験あるなら複数のアプローチを列挙してくれよ。
損傷しうる血管として右気管支動脈を即答できなかったから、やったことないと思うけどね。
>悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。
ですってwww
>当たり前だろ
>当たり前だろ
>当たり前だろ
とドヤ顔で大間違いを投稿!
抗パ剤を高パ剤と誤変換で投稿するのは単純ミスだが
抗ドーパミン薬と投稿するのはタイプミスでも誤変換でもないよな。
301卵の名無しさん (ワッチョイ df58-YIuV [106.73.2.65])
2023/06/23(金) 06:32:27.32ID:6Rz8SD6H0302卵の名無しさん (ワッチョイ df58-YIuV [106.73.2.65])
2023/06/23(金) 06:41:26.67ID:6Rz8SD6H0303卵の名無しさん (アウアウウー Sa23-ZqtJ [106.128.70.86])
2023/06/23(金) 06:59:26.87ID:0CoIEHXha 今日も朝から発狂ご苦労w
尿瓶ジジイはtypoを突かれると発狂するが他人のは大喜びでキーキー喚くんだなw
脳内医療だからリアル医療の質問には答えられないのは当然だよな?胆汁ドレナージジイだからww
ちなみに高校数学スレでは
701 132人目の素数さん[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
尿瓶ジジイはtypoを突かれると発狂するが他人のは大喜びでキーキー喚くんだなw
脳内医療だからリアル医療の質問には答えられないのは当然だよな?胆汁ドレナージジイだからww
ちなみに高校数学スレでは
701 132人目の素数さん[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
304卵の名無しさん (ブーイモ MMa3-JJvw [202.214.125.105])
2023/06/23(金) 12:04:58.66ID:o5kV9PAXM source("http://aoki2.si.gunma-u.ac.jp/R/src/cubic.R", encoding="euc-jp")
305卵の名無しさん (JP 0Hdf-/uP5 [217.138.252.98 [上級国民]])
2023/06/23(金) 13:24:13.76ID:9LP8Cw2JH306卵の名無しさん (JP 0Hdf-kIjP [217.138.252.98 [上級国民]])
2023/06/23(金) 13:24:49.44ID:9LP8Cw2JH >悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。
ですってwww
>当たり前だろ
>当たり前だろ
>当たり前だろ
とドヤ顔で大間違いを投稿!
抗パ剤を高パ剤と誤変換で投稿するのは単純ミスだが
抗ドーパミン薬と投稿するのはタイプミスでも誤変換でもないよな。
ですってwww
>当たり前だろ
>当たり前だろ
>当たり前だろ
とドヤ顔で大間違いを投稿!
抗パ剤を高パ剤と誤変換で投稿するのは単純ミスだが
抗ドーパミン薬と投稿するのはタイプミスでも誤変換でもないよな。
307卵の名無しさん (JP 0H8f-ZqtJ [61.199.225.248])
2023/06/23(金) 14:04:14.32ID:k6OgvlpnH 尿瓶ジジイそれしか言えないのかw
サンドラマランってなんだよ?なんかの呪文か?w
サンドラマランってなんだよ?なんかの呪文か?w
308卵の名無しさん (スプープ Sd1f-YIuV [1.73.140.251])
2023/06/23(金) 14:09:54.18ID:YnLVBFGMd309卵の名無しさん (スプープ Sd1f-YIuV [1.73.140.251])
2023/06/23(金) 14:16:54.27ID:YnLVBFGMd >>305
尿瓶ジジイが涙目で必死に書き込んでる姿を想像すると笑えるwww
これぐらいの嘘しか思い浮かばなかったんだろうな~
頭悪くて語彙力に乏しいからwww
どう考えても、常駐してるだろ
何でそんな大嘘ついたんだよ
尿瓶ジジイが涙目で必死に書き込んでる姿を想像すると笑えるwww
これぐらいの嘘しか思い浮かばなかったんだろうな~
頭悪くて語彙力に乏しいからwww
どう考えても、常駐してるだろ
何でそんな大嘘ついたんだよ
310卵の名無しさん (JP 0H8f-ZqtJ [61.199.225.248])
2023/06/23(金) 17:53:35.41ID:k6OgvlpnH 尿瓶悔しいのうw
311卵の名無しさん (アウアウウー Sa23-ZqtJ [106.128.70.58])
2023/06/23(金) 18:25:28.61ID:g+DpG1/ea312卵の名無しさん (JP 0Hdf-/uP5 [217.138.212.98 [上級国民]])
2023/06/23(金) 20:52:37.02ID:R3ED8j9EH >悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。
ですってwww
>当たり前だろ
>当たり前だろ
>当たり前だろ
とドヤ顔で大間違いを投稿!
抗パ剤を高パ剤と誤変換で投稿するのは単純ミスだが
抗ドーパミン薬と投稿するのはタイプミスでも誤変換でもないよな。
ですってwww
>当たり前だろ
>当たり前だろ
>当たり前だろ
とドヤ顔で大間違いを投稿!
抗パ剤を高パ剤と誤変換で投稿するのは単純ミスだが
抗ドーパミン薬と投稿するのはタイプミスでも誤変換でもないよな。
313卵の名無しさん (アウアウウー Sa23-ZqtJ [106.128.69.72])
2023/06/23(金) 20:55:52.65ID:opxpyvo+a314卵の名無しさん (アウアウウー Sa23-ZqtJ [106.128.69.72])
2023/06/23(金) 21:25:49.17ID:opxpyvo+a315卵の名無しさん (ワッチョイ e158-G1k7 [106.73.2.65])
2023/06/24(土) 02:57:20.56ID:RAepNy9h0316卵の名無しさん (ブーイモ MM0e-AQmi [133.159.148.6])
2023/06/26(月) 04:53:19.36ID:coMTPdS4M solve (2q-a-a-h)/(a(a+h)) = -q*a(a+h)/(q-a)(q-a-h) for q
318卵の名無しさん (JP 0H7e-DvmB [61.199.225.248])
2023/06/28(水) 16:46:12.19ID:1ESaVqTJH319卵の名無しさん (JP 0H7e-DvmB [61.199.225.248])
2023/06/29(木) 16:03:37.91ID:KD2D2ibpH おい尿瓶もう何も言えないのか?w
320卵の名無しさん (アウアウウー Sab9-DvmB [106.128.71.27])
2023/06/29(木) 17:40:21.45ID:5Dv8Uo5Ga321卵の名無しさん (アウアウウー Sab9-DvmB [106.128.71.27])
2023/06/29(木) 21:42:04.01ID:5Dv8Uo5Ga おい尿瓶ジジイ
いままでの威勢の良さはどこいったんだよ?
前のスレは発狂しまくって3ヶ月で消費してたのにもう3ヶ月だぞw
閉鎖病棟にぶち込まれてデジタルデトックスしてるのか?w
いままでの威勢の良さはどこいったんだよ?
前のスレは発狂しまくって3ヶ月で消費してたのにもう3ヶ月だぞw
閉鎖病棟にぶち込まれてデジタルデトックスしてるのか?w
322卵の名無しさん (ワッチョイ e158-G1k7 [106.73.2.65])
2023/06/29(木) 23:18:59.58ID:VN1GLw6F0 まあ、あんだけボコボコにされたから
流石に心折れたんだろ
最後らへん明らかにここに書き込むのビビってたし
流石に心折れたんだろ
最後らへん明らかにここに書き込むのビビってたし
323卵の名無しさん (ワッチョイ 1d58-LniC [14.13.16.0])
2023/06/30(金) 07:01:52.28ID:f9Ibb6eh0 >悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。
ですってwww
>当たり前だろ
>当たり前だろ
>当たり前だろ
とドヤ顔で大間違いを投稿!
抗パ剤を高パ剤と誤変換で投稿するのは単純ミスだが
抗ドーパミン薬と投稿するのはタイプミスでも誤変換でもないよな。
ですってwww
>当たり前だろ
>当たり前だろ
>当たり前だろ
とドヤ顔で大間違いを投稿!
抗パ剤を高パ剤と誤変換で投稿するのは単純ミスだが
抗ドーパミン薬と投稿するのはタイプミスでも誤変換でもないよな。
324卵の名無しさん (ワッチョイ 1d58-LniC [14.13.16.0])
2023/06/30(金) 07:04:51.38ID:f9Ibb6eh0 非開胸食道抜去術に複数のアプローチがあると言ってたが、開腹+頸部切開以外にアプローチはないんじゃないの?
経験あるなら複数のアプローチを列挙してくれよ。
損傷しうる血管として右気管支動脈を即答できなかったから、やったことないと思うけどね。
>悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。
ですってwww
>当たり前だろ
>当たり前だろ
>当たり前だろ
とドヤ顔で大間違いを投稿!
抗パ剤を高パ剤と誤変換で投稿するのは単純ミスだが
抗ドーパミン薬と投稿するのはタイプミスでも誤変換でもないよな。
経験あるなら複数のアプローチを列挙してくれよ。
損傷しうる血管として右気管支動脈を即答できなかったから、やったことないと思うけどね。
>悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。
ですってwww
>当たり前だろ
>当たり前だろ
>当たり前だろ
とドヤ顔で大間違いを投稿!
抗パ剤を高パ剤と誤変換で投稿するのは単純ミスだが
抗ドーパミン薬と投稿するのはタイプミスでも誤変換でもないよな。
325卵の名無しさん (スップ Sdfa-G1k7 [49.96.233.205])
2023/06/30(金) 07:48:10.46ID:wEtZr6AHd >>324
尿瓶ジジイさぁ
一週間黙ってたと思ったら、何とか書き込めたのが以前のレスのコピペのみ?しかも、typoの指摘のみ
マーチ以下の脳みそしてても1週間もあればもっと調べてマトモな返し出来るぞ
どうしたの?もう、心折れちゃったの?
雑魚過ぎてつまらんのだが
尿瓶ジジイさぁ
一週間黙ってたと思ったら、何とか書き込めたのが以前のレスのコピペのみ?しかも、typoの指摘のみ
マーチ以下の脳みそしてても1週間もあればもっと調べてマトモな返し出来るぞ
どうしたの?もう、心折れちゃったの?
雑魚過ぎてつまらんのだが
326卵の名無しさん (ブーイモ MM0e-AQmi [133.159.149.128])
2023/06/30(金) 07:52:59.89ID:1ibzvYCLM バビンスキーをババンスキーと呼ぶ医師もいたなぁ。
でもミンコスキーはミンコスキーと呼んでたな。
整形で使うHoman鈎も仏語読みはしていなかったな。
何を指すか脳内変化できるから問題なし。
こういうのこそ恥ずかしい。
>悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。
ですってwww
>当たり前だろ
>当たり前だろ
>当たり前だろ
とドヤ顔で大間違いを投稿!
抗パ剤を高パ剤と誤変換で投稿するのは単純ミスだが
抗ドーパミン薬と投稿するのはタイプミスでも誤変換でもないよな。
でもミンコスキーはミンコスキーと呼んでたな。
整形で使うHoman鈎も仏語読みはしていなかったな。
何を指すか脳内変化できるから問題なし。
こういうのこそ恥ずかしい。
>悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。
ですってwww
>当たり前だろ
>当たり前だろ
>当たり前だろ
とドヤ顔で大間違いを投稿!
抗パ剤を高パ剤と誤変換で投稿するのは単純ミスだが
抗ドーパミン薬と投稿するのはタイプミスでも誤変換でもないよな。
327卵の名無しさん (スッププ Sdfa-G1k7 [49.105.92.197])
2023/06/30(金) 08:41:55.36ID:mk86W1U0d328卵の名無しさん (JP 0H7e-DvmB [61.199.225.248])
2023/06/30(金) 09:41:47.01ID:Xg4q/6diH 胆汁ドレナージが恥ずかしいと思わないのが脳内丸出しすぎてw
というか医者なら出てこない発想なんだけどw
というか医者なら出てこない発想なんだけどw
329卵の名無しさん (スッププ Sdfa-G1k7 [49.105.92.197])
2023/06/30(金) 10:17:50.13ID:mk86W1U0d >>326
あんまり、typoの指摘してもしょうがないが
ミンコスキー→ミンコフスキーね
統合失調症を回りに認知させた大家だし
お前の恩人と言ってしかるべき方だろ
そうじゃなきゃ、今頃お前はシャバに出れてないんだから、もう少し敬意を持って書き込めよ
というか、わざわざミンコフスキーの名前書いてるとこみるとガチで精神分裂病なんだなw
あんまり、typoの指摘してもしょうがないが
ミンコスキー→ミンコフスキーね
統合失調症を回りに認知させた大家だし
お前の恩人と言ってしかるべき方だろ
そうじゃなきゃ、今頃お前はシャバに出れてないんだから、もう少し敬意を持って書き込めよ
というか、わざわざミンコフスキーの名前書いてるとこみるとガチで精神分裂病なんだなw
330卵の名無しさん (JP 0H7e-DvmB [61.199.225.248])
2023/06/30(金) 13:24:39.42ID:Xg4q/6diH 鬼の首をとったかのようにtypoを指摘しながら自分も間違えるというアホにしかできない芸当w
これが脳内医者w
これが脳内医者w
331卵の名無しさん (JP 0He1-jyIJ [146.70.31.18 [上級国民]])
2023/06/30(金) 14:22:26.02ID:OTYYfvseH 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)
}
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)
}
332卵の名無しさん (アウアウウー Sab9-DvmB [106.128.69.161])
2023/06/30(金) 17:39:49.67ID:84Rnjt4Ia333卵の名無しさん (アウアウウー Sab9-DvmB [106.128.69.161])
2023/06/30(金) 18:09:09.49ID:84Rnjt4Ia 尿瓶ジジイ 解説
自称医者。東大合格したが、医科歯科に入学したと言うこと(本人談)
数学板にも関わらず、東大がどうの医学部がどうのとスレ違いのレスを連投する明らかな学歴コンプ(本当に医者ならこんな書き込みしない)
医者板では医者じゃないのがバレるためか、あまり書き込んでいないらしい
たまに数学の問題を出すが、統計ソフトを使って解答しだしたり自分の実力と勘違いしている
東大合格者の回答希望が決まり文句
自称医者。東大合格したが、医科歯科に入学したと言うこと(本人談)
数学板にも関わらず、東大がどうの医学部がどうのとスレ違いのレスを連投する明らかな学歴コンプ(本当に医者ならこんな書き込みしない)
医者板では医者じゃないのがバレるためか、あまり書き込んでいないらしい
たまに数学の問題を出すが、統計ソフトを使って解答しだしたり自分の実力と勘違いしている
東大合格者の回答希望が決まり文句
334卵の名無しさん (アウアウウー Sab9-DvmB [106.128.69.161])
2023/06/30(金) 22:22:30.12ID:84Rnjt4Ia https://rio2016.5ch.net/test/read.cgi/math/1688077347/
5 132人目の素数さん[] 2023/06/30(金) 10:08:23.14 ID:5qLByTne
頭のおかしな
・傑作馬鹿
・偽医者馬鹿
・傑作馬鹿に釣られる馬鹿
の3馬鹿のためのスレです。
3馬鹿を馬鹿にするレスも大歓迎。
それ以外のまともな投稿はご遠慮ください。
替え歌キチガイにもバカにされる始末ww
5 132人目の素数さん[] 2023/06/30(金) 10:08:23.14 ID:5qLByTne
頭のおかしな
・傑作馬鹿
・偽医者馬鹿
・傑作馬鹿に釣られる馬鹿
の3馬鹿のためのスレです。
3馬鹿を馬鹿にするレスも大歓迎。
それ以外のまともな投稿はご遠慮ください。
替え歌キチガイにもバカにされる始末ww
335卵の名無しさん (ワッチョイ 6a24-MYNj [149.50.210.17 [上級国民]])
2023/07/01(土) 06:31:57.46ID:91XA1ed40 # 三点 (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=\(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)
336卵の名無しさん (ワッチョイ 6a24-MYNj [149.50.210.17 [上級国民]])
2023/07/01(土) 06:32:28.55ID:91XA1ed40 > f(1,-2,-3,8,2,4)
[,1] [,2] [,3]
[1,] 1 3 4
[,1] [,2] [,3]
[1,] 1 3 4
337卵の名無しさん (ワッチョイ 6a24-MYNj [149.50.210.17 [上級国民]])
2023/07/01(土) 06:33:05.08ID:91XA1ed40 >悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。
ですってwww
>当たり前だろ
>当たり前だろ
>当たり前だろ
とドヤ顔で大間違いを投稿!
抗パ剤を高パ剤と誤変換で投稿するのは単純ミスだが
抗ドーパミン薬と投稿するのはタイプミスでも誤変換でもないよな。
ですってwww
>当たり前だろ
>当たり前だろ
>当たり前だろ
とドヤ顔で大間違いを投稿!
抗パ剤を高パ剤と誤変換で投稿するのは単純ミスだが
抗ドーパミン薬と投稿するのはタイプミスでも誤変換でもないよな。
338卵の名無しさん (ワッチョイ 6a24-MYNj [149.50.210.17 [上級国民]])
2023/07/01(土) 06:38:14.46ID:91XA1ed40 >>334
正解が出せたので出題者からお褒めの言葉を頂いた。
高校数学の質問スレ Part428
https://rio2016.5ch.net/test/read.cgi/math/1684375597/999
999 名前:132人目の素数さん[sage] 投稿日:2023/06/30(金) 14:41:49.84 ID:btOvldmi
>>996
美しいでしょう
素晴らしい解答です
正解が出せたので出題者からお褒めの言葉を頂いた。
高校数学の質問スレ Part428
https://rio2016.5ch.net/test/read.cgi/math/1684375597/999
999 名前:132人目の素数さん[sage] 投稿日:2023/06/30(金) 14:41:49.84 ID:btOvldmi
>>996
美しいでしょう
素晴らしい解答です
339卵の名無しさん (ワッチョイ 6a24-qznM [149.50.210.17 [上級国民]])
2023/07/01(土) 06:41:43.52ID:91XA1ed40340卵の名無しさん (ワッチョイ a758-WLtP [106.73.2.65])
2023/07/01(土) 07:24:05.05ID:SJrBEXFJ0 尿瓶ジジイ駄目だな
言ってることが言葉のサラダ過ぎて会話にならない
精神分裂し過ぎだろお前
言ってることが言葉のサラダ過ぎて会話にならない
精神分裂し過ぎだろお前
341卵の名無しさん (ワッチョイ 3b58-YgeS [14.13.16.0])
2023/07/01(土) 08:33:34.62ID:x2eBKWtb0 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.”
342卵の名無しさん (アウアウウー Sa47-LSWN [106.128.69.161])
2023/07/01(土) 10:26:24.10ID:A5O7rNQDa343卵の名無しさん (アウアウウー Sa47-LSWN [106.128.69.161])
2023/07/01(土) 10:45:21.69ID:A5O7rNQDa >>339
冗談は統失だけにしろよ尿瓶ジジイw
冗談は統失だけにしろよ尿瓶ジジイw
344卵の名無しさん (JP 0H67-WLtP [202.253.111.210])
2023/07/01(土) 11:54:34.01ID:VpbkBC5gH345卵の名無しさん (アウアウウー Sa47-LSWN [106.128.69.84])
2023/07/01(土) 12:38:45.99ID:XcJbX0yha 病識がないからもうどうしようもないw
346卵の名無しさん (ワッチョイ 6a24-qznM [149.50.210.17 [上級国民]])
2023/07/01(土) 16:37:45.47ID:91XA1ed40 >悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。
ですってwww
>当たり前だろ
>当たり前だろ
>当たり前だろ
とドヤ顔で大間違いを投稿!
抗パ剤を高パ剤と誤変換で投稿するのは単純ミスだが
抗ドーパミン薬と投稿するのはタイプミスでも誤変換でもないよな。
ですってwww
>当たり前だろ
>当たり前だろ
>当たり前だろ
とドヤ顔で大間違いを投稿!
抗パ剤を高パ剤と誤変換で投稿するのは単純ミスだが
抗ドーパミン薬と投稿するのはタイプミスでも誤変換でもないよな。
347卵の名無しさん (ワッチョイ 1aed-LSWN [125.174.252.214])
2023/07/01(土) 20:08:27.20ID:WTi5eykt0 >>346
胆汁ドレナージジイもうそれしか言えないみたいだねw
胆汁ドレナージジイもうそれしか言えないみたいだねw
348卵の名無しさん (ワッチョイ a758-WLtP [106.73.2.65])
2023/07/02(日) 00:28:23.40ID:WO1OL87C0349卵の名無しさん (ワッチョイ 6a24-MYNj [149.50.210.17 [上級国民]])
2023/07/02(日) 07:25:58.94ID:fOAF7zXh0 ab(ab(a+b-q)^2-4p) > 0
350卵の名無しさん (ブーイモ MM26-tq6G [163.49.212.154])
2023/07/02(日) 07:33:41.55ID:OUEe/tziM >悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。
ですってwww
>当たり前だろ
>当たり前だろ
>当たり前だろ
とドヤ顔で大間違いを投稿!
抗パ剤を高パ剤と誤変換で投稿するのは単純ミスだが
抗ドーパミン薬と投稿するのはタイプミスでも誤変換でもないよな。
>悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。
ですってwww
>悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。
ですってwww
>当たり前だろ
>当たり前だろ
>当たり前だろ
とドヤ顔で大間違い
ですってwww
>当たり前だろ
>当たり前だろ
>当たり前だろ
とドヤ顔で大間違いを投稿!
抗パ剤を高パ剤と誤変換で投稿するのは単純ミスだが
抗ドーパミン薬と投稿するのはタイプミスでも誤変換でもないよな。
>悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。
ですってwww
>悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。
ですってwww
>当たり前だろ
>当たり前だろ
>当たり前だろ
とドヤ顔で大間違い
351卵の名無しさん (ブーイモ MM26-tq6G [163.49.212.154])
2023/07/02(日) 08:11:18.97ID:OUEe/tziM >悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。
ですってwww
>当たり前だろ
>当たり前だろ
>当たり前だろ
とドヤ顔で大間違いを投稿!
これをタイプミスと言うには無理があるな。
ですってwww
>当たり前だろ
>当たり前だろ
>当たり前だろ
とドヤ顔で大間違いを投稿!
これをタイプミスと言うには無理があるな。
352卵の名無しさん (ワッチョイ 23c7-tq6G [124.47.76.122])
2023/07/02(日) 09:57:10.84ID:KJyZMWXq0 m3のメール配信で
「東大か、医学部か」というのが当時の****(某有名進学校)の流れに乗った
というのが送られてきた。
「東大か、医学部か」というのが当時の****(某有名進学校)の流れに乗った
というのが送られてきた。
353卵の名無しさん (ワッチョイ b36e-X7q4 [118.238.216.41])
2023/07/02(日) 10:02:53.88ID:GsjrCa8x0354卵の名無しさん (ワッチョイ 23c7-tq6G [124.47.76.122])
2023/07/02(日) 10:37:17.08ID:KJyZMWXq0 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)
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)
355卵の名無しさん (アウアウウー Sa47-X7q4 [106.128.71.195])
2023/07/02(日) 11:10:19.18ID:rqEImFRoa356卵の名無しさん (ワッチョイ a758-WLtP [106.73.2.65])
2023/07/02(日) 12:38:18.22ID:WO1OL87C0 尿瓶ジジイさぁ
コソコソ他スレで書き込んでないで直接言ってきたらどうだ?
頭だけじゃなくて、性格も悪いな
ウジ虫みたいな野郎だよお前は
リアルでうだつがあがらないから、ネットでコソコソ悪口か?親もさぞ悲しんでいるだろうなぁ
産んでごめんなさいって
コソコソ他スレで書き込んでないで直接言ってきたらどうだ?
頭だけじゃなくて、性格も悪いな
ウジ虫みたいな野郎だよお前は
リアルでうだつがあがらないから、ネットでコソコソ悪口か?親もさぞ悲しんでいるだろうなぁ
産んでごめんなさいって
357卵の名無しさん (アウアウウー Sa47-X7q4 [106.128.70.137])
2023/07/02(日) 13:13:16.84ID:FuOmDYsKa 胆汁ドレナージは普通に使うと言い張る尿瓶ジジイw
358卵の名無しさん (ワッチョイ 23c7-tq6G [124.47.76.122])
2023/07/02(日) 14:29:58.44ID:KJyZMWXq0 抗パ剤を高パ剤と誤変換で投稿するのは単純ミスだが
抗ドーパミン薬と投稿するのはタイプミスでも誤変換でもないよな。
>悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。
ですってwww
>悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。
ですってwww
>当たり前だろ
>当たり前だろ
>当たり前だろ
とドヤ顔で大間違い
抗ドーパミン薬と投稿するのはタイプミスでも誤変換でもないよな。
>悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。
ですってwww
>悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。
ですってwww
>当たり前だろ
>当たり前だろ
>当たり前だろ
とドヤ顔で大間違い
359卵の名無しさん (ワッチョイ a758-WLtP [106.73.2.65])
2023/07/02(日) 14:35:38.96ID:WO1OL87C0360卵の名無しさん (ワッチョイ 23c7-tq6G [124.47.76.122])
2023/07/02(日) 17:46:32.90ID:KJyZMWXq0 >>359
投与で起こるのと減量中止で起こるのとは別なんだがな。
投与で起こるのと減量中止で起こるのとは別なんだがな。
361卵の名無しさん (ワッチョイ 23c7-tq6G [124.47.76.122])
2023/07/02(日) 17:46:40.29ID:KJyZMWXq0 >>359
投与で起こるのと減量中止で起こるのとは別なんだがな。
投与で起こるのと減量中止で起こるのとは別なんだがな。
362卵の名無しさん (ワッチョイ 23c7-tq6G [124.47.76.122])
2023/07/02(日) 17:47:02.20ID:KJyZMWXq0 >>359
投与で起こるのと減量や休薬で起こるのとは別なんだがな。
抗パ剤を高パ剤と誤変換で投稿するのは単純ミスだが
抗ドーパミン薬と投稿するのはタイプミスでも誤変換でもないよな。
>悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。
ですってwww
>悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。
ですってwww
>当たり前だろ
>当たり前だろ
>当たり前だろ
とドヤ顔で大間違い
投与で起こるのと減量や休薬で起こるのとは別なんだがな。
抗パ剤を高パ剤と誤変換で投稿するのは単純ミスだが
抗ドーパミン薬と投稿するのはタイプミスでも誤変換でもないよな。
>悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。
ですってwww
>悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。
ですってwww
>当たり前だろ
>当たり前だろ
>当たり前だろ
とドヤ顔で大間違い
363卵の名無しさん (ワッチョイ 23c7-tq6G [124.47.76.122])
2023/07/02(日) 17:47:16.88ID:KJyZMWXq0 抗パ剤を高パ剤と誤変換で投稿するのは単純ミスだが
抗ドーパミン薬と投稿するのはタイプミスでも誤変換でもないよな。
>悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。
ですってwww
>悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。
ですってwww
>当たり前だろ
>当たり前だろ
>当たり前だろ
とドヤ顔で大間違い
抗ドーパミン薬と投稿するのはタイプミスでも誤変換でもないよな。
>悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。
ですってwww
>悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。
ですってwww
>当たり前だろ
>当たり前だろ
>当たり前だろ
とドヤ顔で大間違い
364卵の名無しさん (ワッチョイ 23c7-tq6G [124.47.76.122])
2023/07/02(日) 17:47:24.54ID:KJyZMWXq0 抗パ剤を高パ剤と誤変換で投稿するのは単純ミスだが
抗ドーパミン薬と投稿するのはタイプミスでも誤変換でもないよな。
>悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。
ですってwww
>悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。
ですってwww
>当たり前だろ
>当たり前だろ
>当たり前だろ
とドヤ顔で大間違い
抗ドーパミン薬と投稿するのはタイプミスでも誤変換でもないよな。
>悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。
ですってwww
>悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。
ですってwww
>当たり前だろ
>当たり前だろ
>当たり前だろ
とドヤ顔で大間違い
365卵の名無しさん (ワッチョイ 23c7-tq6G [124.47.76.122])
2023/07/02(日) 17:49:47.15ID:KJyZMWXq0 プリンペランでの錐体外路症状の話は
Minor Emergency いわゆる ゴキブリ本の最初に出てくる。
術後に1例経験した。アキネトンで軽快。
あの本は本邦未発売の薬が多くて治療の参考にはならん。
Minor Emergency いわゆる ゴキブリ本の最初に出てくる。
術後に1例経験した。アキネトンで軽快。
あの本は本邦未発売の薬が多くて治療の参考にはならん。
366卵の名無しさん (ワッチョイ 23c7-tq6G [124.47.76.122])
2023/07/02(日) 17:50:00.79ID:KJyZMWXq0 抗パ剤を高パ剤と誤変換で投稿するのは単純ミスだが
抗ドーパミン薬と投稿するのはタイプミスでも誤変換でもないよな。
>悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。
ですってwww
>悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。
ですってwww
>当たり前だろ
>当たり前だろ
>当たり前だろ
とドヤ顔で大間違い
抗ドーパミン薬と投稿するのはタイプミスでも誤変換でもないよな。
>悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。
ですってwww
>悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。
ですってwww
>当たり前だろ
>当たり前だろ
>当たり前だろ
とドヤ顔で大間違い
367卵の名無しさん (アウアウウー Sa47-X7q4 [106.128.69.188])
2023/07/02(日) 18:21:18.53ID:hhZ/0Eu1a >>361
アンタ悪性症候群が何かも分かってないだろ?脳内医者だからw
アンタ悪性症候群が何かも分かってないだろ?脳内医者だからw
368卵の名無しさん (ワッチョイ a758-WLtP [106.73.2.65])
2023/07/02(日) 19:34:34.81ID:WO1OL87C0369卵の名無しさん (ワッチョイ a758-WLtP [106.73.2.65])
2023/07/02(日) 19:41:31.39ID:WO1OL87C0 >>362
ちなみに、抗ドーパミン薬って書いたのも
わざとだよw
少し付け入る隙を与えてやらんとお前の頭悪すぎて、急に黙り込むからな
それでも、気づくのに5日かかったわけだがw
他に何か脳内医療自慢出来ないの?お前を馬鹿にするのがこのスレの趣旨なんだから
無い頭ふり絞ってもう少し頑張れよwww
ちなみに、抗ドーパミン薬って書いたのも
わざとだよw
少し付け入る隙を与えてやらんとお前の頭悪すぎて、急に黙り込むからな
それでも、気づくのに5日かかったわけだがw
他に何か脳内医療自慢出来ないの?お前を馬鹿にするのがこのスレの趣旨なんだから
無い頭ふり絞ってもう少し頑張れよwww
370卵の名無しさん (ワッチョイ a758-WLtP [106.73.2.65])
2023/07/02(日) 19:46:19.87ID:WO1OL87C0 >>361
後、よっぽど嬉しかったのか連投してて超ウケルwww
プルプル震えながら何回も書き込みボタン連打してたんだろうなwww
良かったな!最近レス少ないから掲示板で虐めたせいで自殺したんかと思ったわw
後、よっぽど嬉しかったのか連投してて超ウケルwww
プルプル震えながら何回も書き込みボタン連打してたんだろうなwww
良かったな!最近レス少ないから掲示板で虐めたせいで自殺したんかと思ったわw
371卵の名無しさん (アウアウウー Sa47-X7q4 [106.128.73.122])
2023/07/02(日) 20:27:52.01ID:vQjQH3dda372卵の名無しさん (ワッチョイ 23c7-tq6G [124.47.76.122])
2023/07/03(月) 05:33:58.95ID:/5NmnLf60373卵の名無しさん (スプープ Sd5a-WLtP [1.73.138.32])
2023/07/03(月) 07:17:19.83ID:A82lKyvEd374卵の名無しさん (JP 0H06-X7q4 [61.199.225.248])
2023/07/03(月) 11:32:20.88ID:Mf3KE27SH375卵の名無しさん (JP 0H06-X7q4 [61.199.225.248])
2023/07/04(火) 14:17:22.57ID:7CqGKdPZH376卵の名無しさん (エムゾネ FFba-WLtP [49.106.193.232])
2023/07/04(火) 19:50:38.57ID:idLKxyXuF377卵の名無しさん (アウアウウー Sa47-X7q4 [106.128.68.218])
2023/07/07(金) 17:41:17.82ID:S8o/+UXga 数学板でも偽医者とか言われててワロタ
素人でも分かるみたいだね、まあ発言がアホすぎるから当然か
素人でも分かるみたいだね、まあ発言がアホすぎるから当然か
378卵の名無しさん (アウアウウー Sa47-X7q4 [106.128.71.254])
2023/07/07(金) 20:19:02.56ID:+AewvEsja 402 132人目の素数さん[] 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 132人目の素数さん[] 2023/07/07(金) 19:40:07.98 ID:OiKj+2R4
>>402
>東大合格者の検証を希望。
おまえは東大合格者じゃなかったか?
なのに検証できないとはこれいかにwww
尿瓶ジジイ墓穴を掘るww
>>395
作図して面積を図るプログラムを作成
https://i.imgur.com/HaZBSic.png
Nelder-Mead法で求めた最大値は
> f(ans$par[1],ans$par[2],print=TRUE)
[1] 32.18685
東大合格者の検証を希望。
403 132人目の素数さん[] 2023/07/07(金) 19:40:07.98 ID:OiKj+2R4
>>402
>東大合格者の検証を希望。
おまえは東大合格者じゃなかったか?
なのに検証できないとはこれいかにwww
尿瓶ジジイ墓穴を掘るww
379卵の名無しさん (ワッチョイ a158-an5T [14.13.16.0])
2023/07/08(土) 06:21:06.42ID:CVB49am+0 >悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。
ですってwww
>当たり前だろ
>当たり前だろ
>当たり前だろ
とドヤ顔で大間違いを投稿!
これをタイプミスと言うには無理があるな。
ですってwww
>当たり前だろ
>当たり前だろ
>当たり前だろ
とドヤ顔で大間違いを投稿!
これをタイプミスと言うには無理があるな。
380卵の名無しさん (JP 0H05-8lI6 [146.70.76.185 [上級国民]])
2023/07/08(土) 09:45:39.43ID:vZit7BjaH ホウレンソウの代わりに苦味を軽減したゴーヤを使ってキッシュ完成。
ちょうどよいくらいの苦味で旨い。
ククルビタシンよりモモルデシンのほうが安全だな。
ズッキーニのほうが下処理が簡単なのだが。
ちょうどよいくらいの苦味で旨い。
ククルビタシンよりモモルデシンのほうが安全だな。
ズッキーニのほうが下処理が簡単なのだが。
381卵の名無しさん (スッププ Sd33-cQvX [49.105.83.19])
2023/07/08(土) 09:50:25.29ID:Yjnqt7Ipd382卵の名無しさん (JP 0H05-8lI6 [146.70.76.185 [上級国民]])
2023/07/08(土) 09:57:43.79ID:vZit7BjaH # 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)
# 答は有効数字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)
383卵の名無しさん (ワッチョイ 13c9-hwDY [59.139.198.126])
2023/07/08(土) 10:28:25.48ID:IAfpIk5v0 医師板でプログラムごっこw
384卵の名無しさん (アウアウウー Sa55-hwDY [106.128.69.197])
2023/07/08(土) 14:18:44.37ID:NUWTfvNoa http://hissi.org/read.php/math/20230708/blFHUkhPOUQ.html
朝から大暴れw
東大合格者の答えを希望しているそうだが一向に相手にされないどころか自分は東大合格者ではないのかと言われて大発狂w
朝から大暴れw
東大合格者の答えを希望しているそうだが一向に相手にされないどころか自分は東大合格者ではないのかと言われて大発狂w
385卵の名無しさん (アウアウウー Sa55-hwDY [106.128.68.237])
2023/07/08(土) 23:37:01.06ID:G8SqcIGCa 459 132人目の素数さん[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
練習問題
白玉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
386卵の名無しさん (ワッチョイ 51c7-EMxf [124.47.76.122])
2023/07/09(日) 18:27:18.70ID:o9WExem60 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
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
387卵の名無しさん (ワッチョイ 51c7-EMxf [124.47.76.122])
2023/07/09(日) 18:40:19.39ID:o9WExem60 >悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。
ですってwww
>当たり前だろ
>当たり前だろ
>当たり前だろ
とドヤ顔で大間違いを投稿!
これをタイプミスと言うには無理があるな。
ですってwww
>当たり前だろ
>当たり前だろ
>当たり前だろ
とドヤ顔で大間違いを投稿!
これをタイプミスと言うには無理があるな。
388卵の名無しさん (ワッチョイ 51c7-EMxf [124.47.76.122])
2023/07/09(日) 18:40:49.83ID:o9WExem60 サイコロを6回振り、出た目をノートに記録する。
以下の操作を繰り返し行う。
【操作】
サイコロを1回振り、出た目を記録する。それがノートに記録されている数と同じであった場合、この操作を繰り返す。
ノートに記録されていない数であった場合、操作を終了する。
このとき、操作が2回以下で終了する確率を求めよ。
以下の操作を繰り返し行う。
【操作】
サイコロを1回振り、出た目を記録する。それがノートに記録されている数と同じであった場合、この操作を繰り返す。
ノートに記録されていない数であった場合、操作を終了する。
このとき、操作が2回以下で終了する確率を求めよ。
389卵の名無しさん (アウアウウー Sa55-hwDY [106.128.70.90])
2023/07/09(日) 18:47:54.31ID:UWjXAGIra 尿瓶ジジイもう同じ文言でしか発狂できないみたいだね、つくづく哀れ
胆汁ドレナージなんてマヌケなこと言ってる医者なんかいねーよw
胆汁ドレナージなんてマヌケなこと言ってる医者なんかいねーよw
390卵の名無しさん (ワッチョイ 8958-cQvX [106.73.2.65])
2023/07/09(日) 20:00:42.64ID:0CRrhkP90391卵の名無しさん (アウアウウー Sa55-hwDY [106.128.71.79])
2023/07/09(日) 20:05:40.10ID:y4nJGUDba 偏差値30もないだろ
ただのチンパン
ただのチンパン
392卵の名無しさん (アウアウウー Sa55-hwDY [106.128.71.79])
2023/07/09(日) 20:07:03.76ID:y4nJGUDba >>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
どうでもいいから医科歯科の卒業証書と東大合格通知と医師免許はよ
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
393卵の名無しさん (ブーイモ MM8b-EMxf [133.159.150.60])
2023/07/09(日) 20:23:52.51ID:T88uIJy0M サイコロを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)
記録されうるデータを列挙する。
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)
394卵の名無しさん (ブーイモ MM8b-EMxf [133.159.150.60])
2023/07/09(日) 20:24:02.72ID:T88uIJy0M [,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
[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
395卵の名無しさん (ブーイモ MM8b-EMxf [133.159.150.60])
2023/07/09(日) 20:24:42.38ID:T88uIJy0M >悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。
ですってwww
>当たり前だろ
>当たり前だろ
>当たり前だろ
とドヤ顔で大間違いを投稿!
これをタイプミスと言うには無理があるな。
ですってwww
>当たり前だろ
>当たり前だろ
>当たり前だろ
とドヤ顔で大間違いを投稿!
これをタイプミスと言うには無理があるな。
396卵の名無しさん (ブーイモ MM8b-EMxf [133.159.150.60])
2023/07/09(日) 20:26:49.13ID:T88uIJy0M パリパリピーマンは以外に美味かった。
パプリカでもやってみたが、遜色ない。
パプリカでもやってみたが、遜色ない。
397卵の名無しさん (ワッチョイ 8958-cQvX [106.73.2.65])
2023/07/09(日) 20:53:55.46ID:0CRrhkP90 医療ネタは嘘がバレるので全く書き込めない尿瓶ジジイさんでした
哀れwww
哀れwww
398卵の名無しさん (アウアウウー Sa55-hwDY [106.128.71.153])
2023/07/09(日) 21:25:21.56ID:L2kdlL1Na 尿瓶ジジイ、医療ネタ()でコテンパンにされたのがよほど悔しいみたいだなw
399卵の名無しさん (ワッチョイ 51c7-EMxf [124.47.76.122])
2023/07/10(月) 04:28:24.85ID:WSW/+gmn0 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)
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)
400卵の名無しさん (ワッチョイ 51c7-EMxf [124.47.76.122])
2023/07/10(月) 08:20:25.53ID:WSW/+gmn0 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)
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)
401卵の名無しさん (ブーイモ MM8b-EMxf [133.159.149.125])
2023/07/10(月) 08:40:14.03ID:IfMUDmD3M 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()
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()
402卵の名無しさん (ブーイモ MM8b-EMxf [133.159.149.125])
2023/07/10(月) 11:49:57.30ID:IfMUDmD3M sim=\(n=1234567890){
while(n%%37!=0 | n<1e9) (sample(0:9)*(10^(0:9))) |> sum() -> n
n
}
y=replicate(100,sim())
y
while(n%%37!=0 | n<1e9) (sample(0:9)*(10^(0:9))) |> sum() -> n
n
}
y=replicate(100,sim())
y
403卵の名無しさん (アウアウウー Sa55-hwDY [106.128.73.137])
2023/07/10(月) 12:56:48.64ID:TU/cRr/ha 尿瓶ジジイもうコピペですら発狂できなくなったか
404卵の名無しさん (アウアウウー Sa55-hwDY [106.128.75.71])
2023/07/10(月) 13:12:28.48ID:wykjFhbga 235 卵の名無しさん[sage] 2023/07/10(月) 11:59:46.04 ID:IfMUDmD3
ドヤ顔で大間違いがこれ!
>>
悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。止めて起こるのが悪性症候群なのに
<<
超一流裏口シリツ容疑者ですら言わんと思う。
https://egg.5ch.net/test/read.cgi/hosp/1672029865/
こっちにもコッソリ書き込みw
ドヤ顔で大間違いがこれ!
>>
悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。止めて起こるのが悪性症候群なのに
<<
超一流裏口シリツ容疑者ですら言わんと思う。
https://egg.5ch.net/test/read.cgi/hosp/1672029865/
こっちにもコッソリ書き込みw
405卵の名無しさん (ワッチョイ 7324-8lI6 [149.50.210.17 [上級国民]])
2023/07/10(月) 13:49:33.99ID:OI4k1ERX0 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)
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)
406卵の名無しさん (ワッチョイ 7324-8lI6 [149.50.210.17 [上級国民]])
2023/07/10(月) 14:28:49.61ID:OI4k1ERX0 # 小数点付きの数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)
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)
407卵の名無しさん (ワッチョイ 7324-+xlV [149.50.210.17 [上級国民]])
2023/07/10(月) 14:47:18.07ID:OI4k1ERX0 > 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
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
408卵の名無しさん (ワッチョイ 7324-+xlV [149.50.210.17 [上級国民]])
2023/07/10(月) 15:14:10.57ID:OI4k1ERX0 0123456789abcdefghijklmnopqrstuvwxyzの36個の文字を使って36進数表示とする。
1×1からz×zまでの掛け算表(10進法でいうところの九九)を作成せよ。
https://i.imgur.com/Jj8dYE9.png
1×1からz×zまでの掛け算表(10進法でいうところの九九)を作成せよ。
https://i.imgur.com/Jj8dYE9.png
409卵の名無しさん (アウアウウー Sa55-qWfd [106.128.74.171])
2023/07/11(火) 00:29:08.85ID:Gem5XUAUa おい尿瓶クソジジイ
高校数学スレの威勢はどうしたんだよw
発狂しまくってるじゃねーかw
高校生に馬鹿にされるのがそんなに楽しいか?
高校数学スレの威勢はどうしたんだよw
発狂しまくってるじゃねーかw
高校生に馬鹿にされるのがそんなに楽しいか?
410卵の名無しさん (ワッチョイ 7324-8lI6 [149.50.210.17 [上級国民]])
2023/07/11(火) 05:23:42.84ID:WacivYFQ0 >悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。
ですってwww
>当たり前だろ
>当たり前だろ
>当たり前だろ
とドヤ顔で大間違いを投稿!
これをタイプミスと言うには無理がある
ですってwww
>当たり前だろ
>当たり前だろ
>当たり前だろ
とドヤ顔で大間違いを投稿!
これをタイプミスと言うには無理がある
411卵の名無しさん (ワッチョイ 7324-8lI6 [149.50.210.2 [上級国民]])
2023/07/11(火) 08:19:42.73ID:TcY5xGjq0 JaneStyleで書き込めるかな?
412卵の名無しさん (ワッチョイ 7324-8lI6 [149.50.210.2 [上級国民]])
2023/07/11(火) 08:30:00.54ID:TcY5xGjq0 アップデートせずにcfgファイルをリネームすれば読み書きできるな。
413卵の名無しさん (アウアウウー Sa55-qWfd [106.128.74.219])
2023/07/11(火) 12:53:37.37ID:DX+CR3Rva 胆汁ドレナージもタイプミスというには無理があるなw
414卵の名無しさん (アウアウウー Sa55-qWfd [106.128.74.219])
2023/07/11(火) 12:53:39.93ID:DX+CR3Rva 胆汁ドレナージもタイプミスというには無理があるなw
415卵の名無しさん (ワッチョイ a158-kkOg [14.13.16.0])
2023/07/12(水) 07:36:32.54ID:t5b15MnV0 胆汁ドレナージは普通に使う。
アストラップも同様。
俺の世代ならUGIよりMDLの方がわかりやすい。
アストラップも同様。
俺の世代ならUGIよりMDLの方がわかりやすい。
416卵の名無しさん (ワッチョイ a158-gR7n [14.13.16.0])
2023/07/12(水) 07:40:01.17ID:t5b15MnV0 Xeno
417卵の名無しさん (ワッチョイ a158-gR7n [14.13.16.0])
2023/07/12(水) 07:40:40.45ID:t5b15MnV0 JaneXenoで書き込みテスト
418卵の名無しさん (ワッチョイ 7324-0NZ1 [149.50.210.17 [上級国民]])
2023/07/12(水) 07:51:23.23ID:JNn6i5Pi0 設定が面倒ではあった。
419卵の名無しさん (ワッチョイ 7324-0NZ1 [149.50.210.17 [上級国民]])
2023/07/12(水) 07:55:38.87ID:JNn6i5Pi0 VPNでのアラートがでなくて、JaneStyleより使い勝手が( ・∀・)イイ!!
420卵の名無しさん (ワッチョイ 7324-0NZ1 [149.50.210.17 [上級国民]])
2023/07/12(水) 08:20:06.47ID:JNn6i5Pi0 JaneStyleだとバイナリ編集が必要だったが、Xenoだとそれは不要。
421卵の名無しさん (RU 0H8b-0NZ1 [5.180.138.53 [上級国民]])
2023/07/12(水) 08:28:27.96ID:gojMVCPuH 円周率を小数点以下10桁まで2進法、3進法、4進法,...,9進法で表わせ。
422卵の名無しさん (RU 0H8b-0NZ1 [5.180.138.53 [上級国民]])
2023/07/12(水) 08:30:14.94ID:gojMVCPuH ロシアのVPN経由でもXenoだと書き込めるようだ。JaneStyleだと書き込めないのに
423卵の名無しさん (ワッチョイ 298b-0NZ1 [176.119.25.122 [上級国民]])
2023/07/12(水) 08:31:03.59ID:uZGQTwx/0 ウクライナ経由
424卵の名無しさん (JP 0H53-Iq7K [217.138.252.98 [上級国民]])
2023/07/12(水) 09:48:12.42ID:mZy67b02H Braveで記念カキコ
425卵の名無しさん (EC 0Hcd-Iq7K [102.38.236.15 [上級国民]])
2023/07/12(水) 09:49:51.25ID:m3A6pFLTH 海外VPN経由 カキコ
426卵の名無しさん (EC 0Hcd-0NZ1 [102.38.236.15 [上級国民]])
2023/07/12(水) 09:51:28.93ID:m3A6pFLTH ソフトウェア板の神カキコに感謝
427卵の名無しさん (JP 0H53-0NZ1 [217.138.212.98 [上級国民]])
2023/07/12(水) 09:52:15.49ID:+tuh35xKH 最速サーバーに設定して再度カキコ
428卵の名無しさん (JP 0H53-0NZ1 [217.138.212.98 [上級国民]])
2023/07/12(水) 09:55:58.91ID:+tuh35xKH Xeno使っていると、いちいち、VPNを外さなくてもよくなった
429卵の名無しさん (JP 0H53-0NZ1 [217.138.212.98 [上級国民]])
2023/07/12(水) 10:00:29.16ID:+tuh35xKH まあ、仕様変更でいつ使えなくなるかわからないから
バイナリ編集済のJaneStyleも保存しておこう。
バイナリ編集済のJaneStyleも保存しておこう。
430卵の名無しさん (JP 0Hab-qWfd [61.199.225.248])
2023/07/12(水) 10:46:47.49ID:+Aw9eoClH 尿瓶ジジイは5chで発狂することが生きがいのようだなw
431卵の名無しさん (ワッチョイ a158-an5T [14.13.16.0])
2023/07/12(水) 14:10:14.66ID:t5b15MnV0 a(n) = - (1 - 3 i) - (1/2 + (5 i)/2) (1 + i)^n
432卵の名無しさん (JP 0H53-0NZ1 [217.138.212.98 [上級国民]])
2023/07/12(水) 14:12:10.47ID:+tuh35xKH >悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。
ですってwww
>当たり前だろ
>当たり前だろ
>当たり前だろ
とドヤ顔で大間違いを投稿!
裏口シリツ医でもこんな投稿はしない。
ですってwww
>当たり前だろ
>当たり前だろ
>当たり前だろ
とドヤ顔で大間違いを投稿!
裏口シリツ医でもこんな投稿はしない。
433卵の名無しさん (ワッチョイ a158-gR7n [14.13.16.0])
2023/07/12(水) 15:18:58.15ID:t5b15MnV0 浪人なしだとVPNは弾かれてしまう。
434卵の名無しさん (JP 0H53-8lI6 [217.138.212.98 [上級国民]])
2023/07/12(水) 15:21:14.02ID:+tuh35xKH JaneStyle via VPN with Ronin
435卵の名無しさん (ワッチョイ a158-9xv0 [14.13.16.0 [上級国民]])
2023/07/12(水) 18:16:26.42ID:t5b15MnV0436卵の名無しさん (JP 0H05-9xv0 [146.70.31.18 [上級国民]])
2023/07/12(水) 18:19:01.61ID:A/oxQ9ZkH これは便利。
普通にブラウザでアクセスするとスレ探しだけでも手間だったが。
普通にブラウザでアクセスするとスレ探しだけでも手間だったが。
437卵の名無しさん (アウアウウー Sa55-qWfd [106.128.75.168])
2023/07/12(水) 19:40:29.77ID:NzW/27YBa438卵の名無しさん (JP 0H53-0NZ1 [217.138.212.98 [上級国民]])
2023/07/12(水) 19:44:21.12ID:+tuh35xKH >悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。
ですってwww
>当たり前だろ
>当たり前だろ
>当たり前だろ
とドヤ顔で大間違いを投稿!
裏口シリツ医でもこんな投稿はしない。
ですってwww
>当たり前だろ
>当たり前だろ
>当たり前だろ
とドヤ顔で大間違いを投稿!
裏口シリツ医でもこんな投稿はしない。
439卵の名無しさん (JP 0H53-0NZ1 [217.138.212.98 [上級国民]])
2023/07/12(水) 19:47:14.22ID:+tuh35xKH >>437
カルテにMDLと書いてあったら教養がある医師なら意味が理解できる。
昔は開業医の紹介状はドイツ語が多くて難儀した。
オペ室でバイクリルというとポリゾーブがでてくるが、それでちゃんと通じている。
一昔前だと吸収糸はなんでもデキソンと呼ぶ外科医もいたなぁ。
Homan鈎をフランス語読みする整形外科医もいたw
カルテにMDLと書いてあったら教養がある医師なら意味が理解できる。
昔は開業医の紹介状はドイツ語が多くて難儀した。
オペ室でバイクリルというとポリゾーブがでてくるが、それでちゃんと通じている。
一昔前だと吸収糸はなんでもデキソンと呼ぶ外科医もいたなぁ。
Homan鈎をフランス語読みする整形外科医もいたw
440卵の名無しさん (JP 0H53-0NZ1 [217.138.212.98 [上級国民]])
2023/07/12(水) 19:48:12.42ID:+tuh35xKH 最近はICというナースが多いが、古株はムンテラと呼ぶ。
441卵の名無しさん (JP 0H53-0NZ1 [217.138.212.98 [上級国民]])
2023/07/12(水) 19:49:51.18ID:+tuh35xKH >悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。
これは国試で禁忌肢を選択するに等しい。
これは国試で禁忌肢を選択するに等しい。
442卵の名無しさん (JP 0H53-9xv0 [217.138.212.98 [上級国民]])
2023/07/12(水) 19:58:06.82ID:+tuh35xKH >悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。
ですってwww
>当たり前だろ
>当たり前だろ
>当たり前だろ
とドヤ顔で大間違いを投稿!
国試でいえば禁忌肢をドヤ顔で選ぶに等しい
ですってwww
>当たり前だろ
>当たり前だろ
>当たり前だろ
とドヤ顔で大間違いを投稿!
国試でいえば禁忌肢をドヤ顔で選ぶに等しい
443卵の名無しさん (JP 0H53-9xv0 [217.138.212.98 [上級国民]])
2023/07/12(水) 21:16:56.23ID:+tuh35xKH 設定 > 一般 > 2ch.netのスレッド読み込み形式
でdat形式へ切り替え
datに切り替えたら更新ボタン後の新着表示めっちゃサクサク
でdat形式へ切り替え
datに切り替えたら更新ボタン後の新着表示めっちゃサクサク
444卵の名無しさん (ワッチョイ 7324-9xv0 [149.50.210.2 [上級国民]])
2023/07/13(木) 08:15:45.20ID:PtQMuNjl0 シリツ医の評価はこれがデフォだな。
http://egg.5ch.net/test/read.cgi/hosp/1664363170/120-121
http://egg.5ch.net/test/read.cgi/hosp/1664363170/120-121
445卵の名無しさん (アウアウウー Sa55-qWfd [106.128.75.161])
2023/07/13(木) 08:45:28.41ID:jFDNRr5ha 胆汁ドレナージバッグという商品名から医療行為だと勘違いしたが引き返せなくなっただけだろw
446卵の名無しさん (JP 0H53-9xv0 [217.138.212.98 [上級国民]])
2023/07/13(木) 15:34:44.20ID:IU3eB0VDH いや、うちは中山式吸引バックを使っていたよ。
胆汁ドレナージバックには何かわすれたが薬局からもらったボトルを再利用してGボトルと呼んでいた。
>悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。
ですってwww
>当たり前だろ
>当たり前だろ
>当たり前だろ
とドヤ顔で大間違いを投稿!
シリツ医でもこんなことをいう椰子はいないだろうな。
国試でいえば禁忌肢にあたるわけだから。
胆汁ドレナージバックには何かわすれたが薬局からもらったボトルを再利用してGボトルと呼んでいた。
>悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。
ですってwww
>当たり前だろ
>当たり前だろ
>当たり前だろ
とドヤ顔で大間違いを投稿!
シリツ医でもこんなことをいう椰子はいないだろうな。
国試でいえば禁忌肢にあたるわけだから。
447卵の名無しさん (JP 0H53-9xv0 [217.138.212.98 [上級国民]])
2023/07/13(木) 15:38:55.04ID:IU3eB0VDH アストラップも商品名だがこれで通じる。
メラは方言なので一部の病院でしか通じない。
ツッペルというと関東ではツッペル鉗子をさすが、
岡大系だと小ガーゼがでてくる。
がん研で長谷川の鉗子(小さいのはハセショーと略していたな)
岡大だと三村がそれに相当。先端が少々異なるけど。
メラは方言なので一部の病院でしか通じない。
ツッペルというと関東ではツッペル鉗子をさすが、
岡大系だと小ガーゼがでてくる。
がん研で長谷川の鉗子(小さいのはハセショーと略していたな)
岡大だと三村がそれに相当。先端が少々異なるけど。
448卵の名無しさん (JP 0H53-0NZ1 [217.138.212.98 [上級国民]])
2023/07/13(木) 15:42:01.72ID:IU3eB0VDH プチトマトを湯剥きして、冷やしパスタのソースに使った。
トマトの皮が口に残らず、味もよく染みて美味かった。
トマトの皮が口に残らず、味もよく染みて美味かった。
449卵の名無しさん (JP 0H53-0NZ1 [217.138.212.98 [上級国民]])
2023/07/13(木) 15:43:01.65ID:IU3eB0VDH パリパリピーマンよりオクラの方が冷やしパスタに合うな。
450卵の名無しさん (JP 0H53-0NZ1 [217.138.212.98 [上級国民]])
2023/07/13(木) 15:50:32.22ID:IU3eB0VDH トウモロコシの葉はお茶の葉にしかできなかったが、
ゴーヤのワタは蒲焼き風に料理できた。まあ、種が邪魔ではあるが。
ゴーヤのワタは蒲焼き風に料理できた。まあ、種が邪魔ではあるが。
451卵の名無しさん (JP 0H53-fRZg [217.138.212.98 [上級国民]])
2023/07/13(木) 16:01:24.65ID:IU3eB0VDH 串なしでカキコテスト
452卵の名無しさん (JP 0H53-fRZg [217.138.212.98 [上級国民]])
2023/07/13(木) 16:02:10.90ID:IU3eB0VDH 今は串なしXenoでカキコ可能なんだな。
453卵の名無しさん (ワッチョイ a158-GyHO [14.13.16.0])
2023/07/13(木) 18:00:11.31ID:cTX/n/6o0 バターレモン醤油で味付けのビーツのステーキ、美味い。
火が通りやすいように格子状にプレカットしてレンジ加熱後に焼いて、焼き目がついたらステーキソースで蒸し焼き!
corocoroの大根ステーキを越える。
火が通りやすいように格子状にプレカットしてレンジ加熱後に焼いて、焼き目がついたらステーキソースで蒸し焼き!
corocoroの大根ステーキを越える。
454卵の名無しさん (アウアウウー Sa55-qWfd [106.128.73.103])
2023/07/13(木) 19:38:39.13ID:dmAKMJlHa455卵の名無しさん (アウアウウー Sa55-6Oe8 [106.128.73.103])
2023/07/14(金) 03:11:03.92ID:hN5o4dmWa456卵の名無しさん (アウアウウー Sa55-6Oe8 [106.128.73.103])
2023/07/14(金) 06:08:59.22ID:hN5o4dmWa おい尿瓶クソジジイ
いつになったら卒業証書と医師免許出すんだよ?
どうせ脳内なんだろ?
いつになったら卒業証書と医師免許出すんだよ?
どうせ脳内なんだろ?
457卵の名無しさん (アウアウウー Sa55-6Oe8 [106.128.73.103])
2023/07/14(金) 07:03:54.63ID:hN5o4dmWa おい尿瓶クソジジイ
高校数学スレでさんざん発狂してるのにここはダンマリかよ
もしかして東大合格者の回答を希望したのに東大合格者どころか誰にも相手にされてないことに発狂してるのかな?
高校数学スレでさんざん発狂してるのにここはダンマリかよ
もしかして東大合格者の回答を希望したのに東大合格者どころか誰にも相手にされてないことに発狂してるのかな?
458卵の名無しさん (JP 0H53-9xv0 [217.138.212.98 [上級国民]])
2023/07/14(金) 07:19:12.73ID:s0hZoESdH 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()
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()
459卵の名無しさん (ワッチョイ a158-vjEl [14.13.16.0 [上級国民]])
2023/07/14(金) 07:20:58.33ID:b0+QAbis0460卵の名無しさん (ワッチョイ eb12-6Oe8 [153.137.214.121])
2023/07/14(金) 09:08:15.15ID:xSKqpO+h0461卵の名無しさん (ブーイモ MM95-EMxf [202.214.125.196])
2023/07/14(金) 12:05:33.82ID:FEmH5p8OM 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])
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])
462卵の名無しさん (ブーイモ MM95-EMxf [202.214.125.196])
2023/07/14(金) 12:11:11.12ID:FEmH5p8OM 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]))
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]))
463卵の名無しさん (ワッチョイ a158-EMxf [14.13.16.0])
2023/07/14(金) 13:18:58.51ID:b0+QAbis0 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]))
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]))
464卵の名無しさん (ワッチョイ a158-vjEl [14.13.16.0 [上級国民]])
2023/07/14(金) 13:32:46.99ID:b0+QAbis0 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
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
465卵の名無しさん (JP 0H53-9xv0 [217.138.212.98 [上級国民]])
2023/07/14(金) 14:11:02.20ID:s0hZoESdH 地球を赤道の長さは4万kmの完全な球と仮定する。
仮想敵国の首都と緯度経度は以下の通りである。
モスクワ 北緯55.83°東経37.62°
北京 北緯39.93°東経116.28°
平壌 北緯39.02°東経125.78°
3つの首都を爆撃するためにトマホーク基地を建設する。
(1) 3首都へのトマホークの飛行距離の総和が最小になる基地の緯度経度を求めよ。
(2) (1)で求めた基地はどこの国の領土かを答えよ。
仮想敵国の首都と緯度経度は以下の通りである。
モスクワ 北緯55.83°東経37.62°
北京 北緯39.93°東経116.28°
平壌 北緯39.02°東経125.78°
3つの首都を爆撃するためにトマホーク基地を建設する。
(1) 3首都へのトマホークの飛行距離の総和が最小になる基地の緯度経度を求めよ。
(2) (1)で求めた基地はどこの国の領土かを答えよ。
466卵の名無しさん (JP 0H53-9xv0 [217.138.212.98 [上級国民]])
2023/07/14(金) 16:30:51.25ID:s0hZoESdH # 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)))
}
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)))
}
467卵の名無しさん (JP 0H53-fRZg [217.138.212.98 [上級国民]])
2023/07/14(金) 16:36:25.70ID:s0hZoESdH468卵の名無しさん (アウアウウー Sa55-6Oe8 [106.128.74.50])
2023/07/14(金) 17:39:09.20ID:Y+2SZtmha 高校数学スレじゃ高校生相手にイキリ散らかしてるくせにこっちではダンマリ決め込むのか?尿瓶ジジイ
全く情けないにも程があるw
全く情けないにも程があるw
469卵の名無しさん (アウアウウー Sa55-6Oe8 [106.128.74.50])
2023/07/14(金) 17:40:05.23ID:Y+2SZtmha >>467
脳内医者が何ほざいてんだw
脳内医者が何ほざいてんだw
470卵の名無しさん (ワッチョイ a158-r9fA [14.13.16.0 [上級国民]])
2023/07/14(金) 20:57:48.67ID:b0+QAbis0 tric <- function(A,B,C){ # 複素点3点を通る円の中心と半径を返す
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)
}
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)
}
471卵の名無しさん (ワッチョイ a158-r9fA [14.13.16.0 [上級国民]])
2023/07/14(金) 20:58:34.36ID:b0+QAbis0 >>469
で、シリツなんだろ?
で、シリツなんだろ?
472卵の名無しさん (JP 0H53-9xv0 [217.138.212.98 [上級国民]])
2023/07/14(金) 21:40:03.19ID:s0hZoESdH 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)
}
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)
}
473卵の名無しさん (JP 0H53-fRZg [217.138.212.98 [上級国民]])
2023/07/14(金) 21:59:48.82ID:s0hZoESdH 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)
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)
474卵の名無しさん (アウアウウー Sa17-Zr+2 [106.128.73.124])
2023/07/15(土) 00:36:01.86ID:kQf2HFX9a 545:132人目の素数さん:[sage]:2023/07/11(火) 15:35:42.62 ID:C1KEbgrH
尿瓶ジジイ>>543の学歴がホントだと思う人誰か庇ってあげてw
東大卒だというイナさん含めとうとう誰も庇ってくれなかったね
これでスレ住民全員に庇う価値のないチンパンだと思われてるということが証明されてしまったね
そう、尿瓶ジジイが好きな証明がw
尿瓶ジジイ>>543の学歴がホントだと思う人誰か庇ってあげてw
東大卒だというイナさん含めとうとう誰も庇ってくれなかったね
これでスレ住民全員に庇う価値のないチンパンだと思われてるということが証明されてしまったね
そう、尿瓶ジジイが好きな証明がw
475卵の名無しさん (JP 0H6f-gMG4 [217.138.212.98 [上級国民]])
2023/07/15(土) 06:43:29.67ID:X1xEkNEDH 東大卒なら東大合格者を羨む必要もないし、
医科歯科以上の格上大学の卒なら医科歯科卒を羨む必要もない。
そういうことだよ。
医科歯科以上の格上大学の卒なら医科歯科卒を羨む必要もない。
そういうことだよ。
476卵の名無しさん (JP 0H6f-QoCo [217.138.212.98 [上級国民]])
2023/07/15(土) 06:44:53.35ID:X1xEkNEDH 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)
}
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)
}
477卵の名無しさん (JP 0H6f-QoCo [217.138.212.98 [上級国民]])
2023/07/15(土) 06:45:14.76ID:X1xEkNEDH 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))
}
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))
}
478卵の名無しさん (JP 0H6f-QoCo [217.138.212.98 [上級国民]])
2023/07/15(土) 06:46:29.02ID:X1xEkNEDH 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
}
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
}
479卵の名無しさん (JP 0H6f-QoCo [217.138.212.98 [上級国民]])
2023/07/15(土) 06:47:00.85ID:X1xEkNEDH 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)))
}
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)))
}
480卵の名無しさん (JP 0H6f-QoCo [217.138.212.98 [上級国民]])
2023/07/15(土) 06:47:39.24ID:X1xEkNEDH tric <- function(a1,a2,b1,b2,c1,c2){ # 3点を通る円の中心と半径を返す
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])
}
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])
}
481卵の名無しさん (JP 0H6f-gMG4 [217.138.212.98 [上級国民]])
2023/07/15(土) 06:53:45.94ID:X1xEkNEDH >>455
食道抜去術をやったことないだろ?
食道抜去術をやったことないだろ?
482卵の名無しさん (JP 0H6f-gMG4 [217.138.212.98 [上級国民]])
2023/07/15(土) 11:43:54.39ID:X1xEkNEDH レスター円の計算、括弧対応だけでも目がチカチカするな。
Wolframにsimplifyさせようとしたけど、長すぎて受け付けてくれなかった。
Wolframにsimplifyさせようとしたけど、長すぎて受け付けてくれなかった。
483卵の名無しさん (アウアウウー Sa17-Zr+2 [106.128.69.220])
2023/07/15(土) 12:54:36.95ID:jjOgQI4+a じゃあご自慢の卒業証書と医師免許をどうぞ
それができないから発狂してるみたいだがw
それができないから発狂してるみたいだがw
484卵の名無しさん (アウアウウー Sa17-Zr+2 [106.128.69.220])
2023/07/15(土) 12:57:24.86ID:jjOgQI4+a485卵の名無しさん (アウアウウー Sa17-Zr+2 [106.128.69.220])
2023/07/15(土) 18:12:26.26ID:jjOgQI4+a 717:132人目の素数さん:2023/07/15(土) 15:31:32.01 ID:LoYxjpMT
>>713
定義されるが、3頂点となす角は120°にはならん。
逆に内角120°以上の頂点がある場合は、最小値の探索などせずともその頂点がフェルマー点。
そんな簡単なことすらわからないのが、プログラム土方の限界なんだよ。
フェルマー点を最小値探索で数値的に求めるなんて、あんたみたいな馬鹿のやることだよw
>>714
単なる書き間違いを鬼のクビをとったように騒いで恥ずかしくないのか?
俺が書いたわけではないが、よほどの馬鹿でなければ、「3頂点となす
角が120°だとなぜ和が最小になるか」って意味だと推測できるだろ。
ほんとどうしようもない馬鹿だな、あんたw
やっぱり東大不合格の偽医者だろw
数学板のキチガイからすらこの言われようw
>>713
定義されるが、3頂点となす角は120°にはならん。
逆に内角120°以上の頂点がある場合は、最小値の探索などせずともその頂点がフェルマー点。
そんな簡単なことすらわからないのが、プログラム土方の限界なんだよ。
フェルマー点を最小値探索で数値的に求めるなんて、あんたみたいな馬鹿のやることだよw
>>714
単なる書き間違いを鬼のクビをとったように騒いで恥ずかしくないのか?
俺が書いたわけではないが、よほどの馬鹿でなければ、「3頂点となす
角が120°だとなぜ和が最小になるか」って意味だと推測できるだろ。
ほんとどうしようもない馬鹿だな、あんたw
やっぱり東大不合格の偽医者だろw
数学板のキチガイからすらこの言われようw
486卵の名無しさん (ワッチョイ 6724-QoCo [149.50.210.2 [上級国民]])
2023/07/16(日) 07:19:32.46ID:nkl8msvs0 "
宇宙空間に惑星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があり、惑星間の距離の比は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]
487卵の名無しさん (ワッチョイ 6724-QoCo [149.50.210.2 [上級国民]])
2023/07/16(日) 07:20:02.08ID:nkl8msvs0 "
配置された後に人工衛星は惑星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の引力が相殺される点に移動してしまった。
移動後の人工衛星の座標を求めよ。有効数字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,'●')
488卵の名無しさん (ワッチョイ 6724-QoCo [149.50.210.2 [上級国民]])
2023/07/16(日) 07:21:06.87ID:nkl8msvs0 "
宇宙空間に惑星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があり、惑星間の距離の比は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]
489卵の名無しさん (ワッチョイ 6724-QoCo [149.50.210.2 [上級国民]])
2023/07/16(日) 07:21:39.86ID:nkl8msvs0490卵の名無しさん (アウアウウー Sa17-Zr+2 [106.128.70.187])
2023/07/16(日) 09:57:38.91ID:5xRAEPgoa 尿瓶ジジイここでも数学板でもコテンパンだねww
491卵の名無しさん (ワッチョイ 8fc7-/L8v [124.47.76.122])
2023/07/16(日) 11:10:10.94ID:xzU/43/d0 いや、東大合格者でないのが妬んでいるだけだよ。
492卵の名無しさん (ワッチョイ 8fc7-/L8v [124.47.76.122])
2023/07/16(日) 11:22:15.80ID:xzU/43/d0 # 座標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)
}
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)
}
493卵の名無しさん (アウアウウー Sa17-Zr+2 [106.128.69.163])
2023/07/16(日) 11:40:36.08ID:dE/9kjsaa494卵の名無しさん (ブーイモ MMdf-/L8v [49.239.65.151])
2023/07/16(日) 12:25:36.28ID:NIpHVD8wM >>493
東大合格通知のコピーを父親がファイリングしてくれていたよ。
東大合格通知のコピーを父親がファイリングしてくれていたよ。
495卵の名無しさん (ブーイモ MMdf-/L8v [49.239.65.151])
2023/07/16(日) 12:38:26.96ID:NIpHVD8wM 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]
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]
496卵の名無しさん (ブーイモ MMdf-/L8v [49.239.65.151])
2023/07/16(日) 12:38:48.79ID:NIpHVD8wM 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)
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)
497卵の名無しさん (ブーイモ MMdf-/L8v [49.239.65.151])
2023/07/16(日) 12:40:36.04ID:NIpHVD8wM A(2,0,2)
B(3,0,7)
C(1,6,0)
の座標に惑星があり、質量比は1:2:4である。
A,B,Cの作る平面上の点で3つの惑星からの引力のベクトル和が0になる点の座標を求めよ。
惑星の大きさは考慮しないでよい。有効数字3桁で答えよ。
B(3,0,7)
C(1,6,0)
の座標に惑星があり、質量比は1:2:4である。
A,B,Cの作る平面上の点で3つの惑星からの引力のベクトル和が0になる点の座標を求めよ。
惑星の大きさは考慮しないでよい。有効数字3桁で答えよ。
498卵の名無しさん (アウアウウー Sa17-Zr+2 [106.128.68.89])
2023/07/16(日) 13:38:51.62ID:ZSy8rgbma499卵の名無しさん (ワッチョイ cf12-Zr+2 [153.137.214.121])
2023/07/16(日) 16:28:43.51ID:J1dm9s2R0 尿瓶ジジイ、あまりのアホさ加減に素人からも脳内医者扱いされるw
500卵の名無しさん (ワッチョイ 8fc7-/L8v [124.47.76.122])
2023/07/16(日) 18:15:35.75ID:xzU/43/d0 a=rep(1:6,2)
sim=\() (sample(a)[1:4] |> unique() |> length()) == 2
replicate(1e5,sim()) |> mean()
sim=\() (sample(a)[1:4] |> unique() |> length()) == 2
replicate(1e5,sim()) |> mean()
501卵の名無しさん (ワッチョイ 8fc7-/L8v [124.47.76.122])
2023/07/16(日) 18:33:12.25ID:xzU/43/d0 0.030131
502卵の名無しさん (ワッチョイ 8fc7-/L8v [124.47.76.122])
2023/07/16(日) 18:33:29.77ID:xzU/43/d0 0.030131
503卵の名無しさん (ワッチョイ 8fc7-/L8v [124.47.76.122])
2023/07/16(日) 18:33:51.43ID:xzU/43/d0 a=rep(1:6,2)
sim=\() (sample(a)[1:4] |> unique() |> length()) == 2
replicate(1e6,sim()) |> mean()
sim=\() (sample(a)[1:4] |> unique() |> length()) == 2
replicate(1e6,sim()) |> mean()
504卵の名無しさん (ブーイモ MM07-/L8v [210.138.178.209])
2023/07/16(日) 19:03:06.85ID:ubGBYOqbM 男8人女4人を6個のツインルームに無作為に割り当てる。
男女混合の部屋ができない確率を求めよ。
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()
男女混合の部屋ができない確率を求めよ。
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()
505卵の名無しさん (ブーイモ MM07-/L8v [210.138.178.209])
2023/07/16(日) 19:33:16.40ID:ubGBYOqbM 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()
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()
506卵の名無しさん (アウアウウー Sa17-Zr+2 [106.128.71.60])
2023/07/16(日) 20:36:48.68ID:RdGkp9Oja 尿瓶ジジイダンマリ決め込んでて草
507卵の名無しさん (ワッチョイ 8fc7-/L8v [124.47.76.122])
2023/07/16(日) 22:06:31.48ID:xzU/43/d0 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
}
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
}
508卵の名無しさん (ワッチョイ 8fc7-/L8v [124.47.76.122])
2023/07/16(日) 22:09:09.75ID:xzU/43/d0 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()
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()
509卵の名無しさん (ワッチョイ 8fc7-/L8v [124.47.76.122])
2023/07/16(日) 23:03:40.27ID:xzU/43/d0 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))
((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))
510卵の名無しさん (ブーイモ MM97-/L8v [210.148.125.249])
2023/07/16(日) 23:33:26.12ID:1XefIVSwM 収束時期のシミュレーションなら可能。
SEIRモデルで有病率を1%に固定して、集団のサイズを変化させてシミュレーションしてみたけどピークは変わらないな。
このモデルでは集会規模の大小には影響されないということになるな。
https://i.imgur.com/343K91V.png
有病率を変化させて流行の変遷をグラフにすると、
https://i.imgur.com/SZ15LKT.png
https://i.imgur.com/gnJVFnd.png
有病率を40%くらいに引き上げるとオリンピックのときには流行が収束していることになるw
SEIRモデルで有病率を1%に固定して、集団のサイズを変化させてシミュレーションしてみたけどピークは変わらないな。
このモデルでは集会規模の大小には影響されないということになるな。
https://i.imgur.com/343K91V.png
有病率を変化させて流行の変遷をグラフにすると、
https://i.imgur.com/SZ15LKT.png
https://i.imgur.com/gnJVFnd.png
有病率を40%くらいに引き上げるとオリンピックのときには流行が収束していることになるw
511卵の名無しさん (アウアウウー Sa17-Zr+2 [106.128.68.57])
2023/07/17(月) 00:20:35.46ID:weqbEJola 尿瓶ジジイ数学板でご披露しても馬鹿にされるだけw
512卵の名無しさん (ブーイモ MM97-/L8v [210.148.125.249])
2023/07/17(月) 00:55:22.27ID:vAe3YqQlM 点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)
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)
513卵の名無しさん (ブーイモ MM97-/L8v [210.148.125.249])
2023/07/17(月) 08:30:18.02ID:vAe3YqQlM514卵の名無しさん (アウアウウー Sa17-Zr+2 [106.128.69.141])
2023/07/17(月) 14:13:18.39ID:Opqf8FtRa おい尿瓶ジジイ
素人にすら偽医者とか言われてバカにされるのがそんなに楽しいか?w
素人にすら偽医者とか言われてバカにされるのがそんなに楽しいか?w
515卵の名無しさん (アウアウウー Sa17-Zr+2 [106.128.71.171])
2023/07/17(月) 20:00:07.17ID:gHudq7e2a516卵の名無しさん (JP 0H6f-QoCo [217.138.252.98 [上級国民]])
2023/07/18(火) 11:41:41.14ID:wE+74BzaH > a=sqrt(2)
> a^2
[1] 2
> a^2-2
[1] 4.440892e-16
> a^2==2
[1] FALSE
> a^2
[1] 2
> a^2-2
[1] 4.440892e-16
> a^2==2
[1] FALSE
517卵の名無しさん (JP 0H6f-QoCo [217.138.252.98 [上級国民]])
2023/07/18(火) 11:53:48.34ID:wE+74BzaH install.packages("Rcpp", dependencies = TRUE, INSTALL_opts = '--no-lock')
518卵の名無しさん (JP 0H6f-QoCo [217.138.252.98 [上級国民]])
2023/07/18(火) 11:59:49.45ID:wE+74BzaH The easiest way to avoid this issue is before installing any package run the line below
options("install.lock"=FALSE)
options("install.lock"=FALSE)
519卵の名無しさん (ワッチョイ cf12-Zr+2 [153.137.214.121])
2023/07/18(火) 15:12:22.67ID:GM2pBAaY0520卵の名無しさん (アウアウウー Sa17-Zr+2 [106.128.70.245])
2023/07/18(火) 17:43:26.52ID:33w597Qga バカすぎて高校生からも脳内学歴扱いだね尿瓶ジジイw
521卵の名無しさん (JP 0H6f-QoCo [217.138.252.98 [上級国民]])
2023/07/18(火) 19:42:42.46ID:wE+74BzaH 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
}
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
}
522卵の名無しさん (JP 0H6f-QoCo [217.138.252.98 [上級国民]])
2023/07/18(火) 19:43:15.42ID:wE+74BzaH 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())
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())
523卵の名無しさん (JP 0H6f-QoCo [217.138.252.98 [上級国民]])
2023/07/18(火) 20:02:14.18ID:wE+74BzaH 俺は理Iを蹴って医科歯科に言った口だけど。
医科歯科を蹴って慶応に入学した医師がいても
医科歯科合格の証拠を出せとか言わないな。
東大合格通知の画像を出せとかいう輩って、東大もしくは国立を落ちたのだろうと憶測。
医科歯科を蹴って慶応に入学した医師がいても
医科歯科合格の証拠を出せとか言わないな。
東大合格通知の画像を出せとかいう輩って、東大もしくは国立を落ちたのだろうと憶測。
524卵の名無しさん (JP 0H6f-gMG4 [217.138.252.98 [上級国民]])
2023/07/18(火) 20:03:14.58ID:wE+74BzaH525卵の名無しさん (アウアウウー Sa17-Zr+2 [106.128.71.77])
2023/07/19(水) 00:23:48.07ID:iFTHmQL+a >>523
あんたがアホすぎてそれしか証明しようがないからだろw
あんたがアホすぎてそれしか証明しようがないからだろw
526卵の名無しさん (アウアウウー Sa17-Zr+2 [106.128.69.68])
2023/07/19(水) 00:32:20.24ID:WXv06B+Pa 誰も相手にしてないからこそ医者板じゃここでしか発狂できないんだろうけどなw
高校生にすらバカにされる始末だし
高校生にすらバカにされる始末だし
527卵の名無しさん (JP 0H6f-gMG4 [217.138.212.122 [上級国民]])
2023/07/19(水) 07:31:36.73ID:qC76rOplH 直径6cmのシリコンカップ
グラニュー糖小さじ3
水小さじ1
カップをペーパーで覆って電子レンジ600W1分30秒
追加の水や熱湯はなし
グラニュー糖小さじ3
水小さじ1
カップをペーパーで覆って電子レンジ600W1分30秒
追加の水や熱湯はなし
528卵の名無しさん (ワッチョイ cf12-Zr+2 [153.137.214.121])
2023/07/19(水) 12:44:37.47ID:7WAeHWTk0 >>524
んで、どこの国立受けられなかったの?
んで、どこの国立受けられなかったの?
529卵の名無しさん (ワッチョイ 6724-QoCo [149.50.210.17 [上級国民]])
2023/07/20(木) 07:49:05.42ID:FCPwP+wT0 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)
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)
530卵の名無しさん (ワッチョイ 6724-QoCo [149.50.210.17 [上級国民]])
2023/07/20(木) 08:16:55.26ID:FCPwP+wT0 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)
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)
531卵の名無しさん (ワッチョイ cf12-Zr+2 [153.137.214.121])
2023/07/20(木) 11:04:12.21ID:VIVJcW6Q0 おい尿瓶ジジイ
いつになったら医師免許と卒業証書出すんだよハゲ
いつになったら医師免許と卒業証書出すんだよハゲ
532卵の名無しさん (ワッチョイ 6724-QoCo [149.50.210.17 [上級国民]])
2023/07/20(木) 11:41:22.96ID:FCPwP+wT0 平面上の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())
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())
533卵の名無しさん (ワッチョイ 6724-QoCo [149.50.210.17 [上級国民]])
2023/07/20(木) 11:47:55.38ID:FCPwP+wT0 https://readcrx-2.github.io/read.crx-2/
アップデートされている。
アップデートされている。
534卵の名無しさん (JP 0H6f-gMG4 [217.138.212.98 [上級国民]])
2023/07/20(木) 12:45:03.03ID:1lBdubx6H535卵の名無しさん (JP 0Hdf-Zr+2 [61.199.225.248])
2023/07/20(木) 13:29:54.35ID:iz25aXn4H >>534
あんた5chしかしてない脳内医者だろw
あんた5chしかしてない脳内医者だろw
536卵の名無しさん (JP 0H6f-QoCo [217.138.212.98 [上級国民]])
2023/07/20(木) 17:31:51.28ID:1lBdubx6H 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"
}
}
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"
}
}
537卵の名無しさん (JP 0H6f-QoCo [217.138.212.98 [上級国民]])
2023/07/20(木) 17:32:06.85ID:1lBdubx6H 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))
}
}
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))
}
}
538卵の名無しさん (アウアウウー Sa17-Zr+2 [106.128.68.80])
2023/07/20(木) 17:34:39.60ID://M/SQ0Ba こっちではダンマリがジジイw
539卵の名無しさん (JP 0H6f-QoCo [217.138.212.98 [上級国民]])
2023/07/20(木) 17:35:32.79ID:1lBdubx6H パソコンだとクラウド上のファイルをgrepして必要なファイルを取り出すのは簡単だけど、
スマホだと面倒。ローカルに置くと場所を取るし。
有用なファイルはwebで公開しておくと、他の人も流用できるし、
自分で探すのも楽で( ・∀・)イイ!!
スマホだと面倒。ローカルに置くと場所を取るし。
有用なファイルはwebで公開しておくと、他の人も流用できるし、
自分で探すのも楽で( ・∀・)イイ!!
540卵の名無しさん (JP 0H6f-QoCo [217.138.212.98 [上級国民]])
2023/07/20(木) 17:36:08.07ID:1lBdubx6H >>538
んで、あんたはどこの国立を落ちたの?
んで、あんたはどこの国立を落ちたの?
541卵の名無しさん (JP 0H6f-QoCo [217.138.212.98 [上級国民]])
2023/07/20(木) 17:46:16.77ID:1lBdubx6H 医師板だのと行数制限小さいので
動脈血ガス分析のスクリプトは1レスでは投稿できないのが不便。
動脈血ガス分析のスクリプトは1レスでは投稿できないのが不便。
542卵の名無しさん (JP 0H6f-QoCo [217.138.212.98 [上級国民]])
2023/07/20(木) 17:50:14.79ID:1lBdubx6H >>535
月曜日は祝日だったので内視鏡バイトなしだった。
明日はEGD11件の予定。
俺は理Iを蹴って医科歯科に言った口だけど。
医科歯科を蹴って慶応に入学した医師がいても
あっそう、程度にしか思わんな。医科歯科合格の証拠を出せとか言わないね。
東大卒業していたら東大蹴って他大学に行ったという人がいてもなんとも思わんだろうに。
んで、どこの国立を落ちたの?
月曜日は祝日だったので内視鏡バイトなしだった。
明日はEGD11件の予定。
俺は理Iを蹴って医科歯科に言った口だけど。
医科歯科を蹴って慶応に入学した医師がいても
あっそう、程度にしか思わんな。医科歯科合格の証拠を出せとか言わないね。
東大卒業していたら東大蹴って他大学に行ったという人がいてもなんとも思わんだろうに。
んで、どこの国立を落ちたの?
543卵の名無しさん (JP 0H6f-QoCo [217.138.212.98 [上級国民]])
2023/07/20(木) 17:52:06.71ID:1lBdubx6H544卵の名無しさん (アウアウウー Sa17-Zr+2 [106.128.71.42])
2023/07/20(木) 17:58:25.88ID:goI3Ka80a >>543
尿瓶ジジイの脳内学歴()に受けるもクソもないだろタコw
尿瓶ジジイの脳内学歴()に受けるもクソもないだろタコw
545卵の名無しさん (ワッチョイ cf12-Zr+2 [153.137.214.121])
2023/07/20(木) 17:59:27.26ID:VIVJcW6Q0546卵の名無しさん (JP 0H6f-mROX [217.138.252.98 [上級国民]])
2023/07/20(木) 18:33:51.72ID:Mz3Ba9iAH547卵の名無しさん (JP 0H6f-mROX [217.138.252.98 [上級国民]])
2023/07/20(木) 18:34:14.39ID:Mz3Ba9iAH548卵の名無しさん (アウアウウー Sa17-Zr+2 [106.128.68.164])
2023/07/20(木) 18:37:52.73ID:IF4YK+Pma549卵の名無しさん (JP 0H6f-mROX [217.138.252.98 [上級国民]])
2023/07/20(木) 18:41:09.80ID:Mz3Ba9iAH >>548
んで、どこの国立を落ちたの?
んで、どこの国立を落ちたの?
550卵の名無しさん (JP 0H6f-mROX [217.138.252.98 [上級国民]])
2023/07/20(木) 18:42:38.75ID:Mz3Ba9iAH 東大合格通知って健康診断の受診票を兼ねていた。
大きさはハガキ大で公印すら押されていなくてありがたみがなかった。
大きさはハガキ大で公印すら押されていなくてありがたみがなかった。
551卵の名無しさん (JP 0H6f-mROX [217.138.252.98 [上級国民]])
2023/07/20(木) 18:44:08.44ID:Mz3Ba9iAH552卵の名無しさん (JP 0H6f-mROX [217.138.252.98 [上級国民]])
2023/07/20(木) 18:44:45.68ID:Mz3Ba9iAH >>545
どこの国立を落ちたの?に何で答えられないんだ?
どこの国立を落ちたの?に何で答えられないんだ?
553卵の名無しさん (アウアウウー Sa17-Zr+2 [106.128.68.164])
2023/07/20(木) 18:56:16.25ID:IF4YK+Pma >>551
あんたの脳内学歴なんか知らんがなw
あんたの脳内学歴なんか知らんがなw
554卵の名無しさん (JP 0H6f-QoCo [217.138.212.98 [上級国民]])
2023/07/21(金) 06:23:16.54ID:8CtH7l/hH 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)
}
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)
}
555卵の名無しさん (JP 0H6f-QoCo [217.138.212.98 [上級国民]])
2023/07/21(金) 06:24:22.90ID:8CtH7l/hH 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)
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)
556卵の名無しさん (JP 0H6f-QoCo [217.138.212.122 [上級国民]])
2023/07/21(金) 19:44:17.26ID:stxMOQIEH > replicate(k,tetragon(print=FALSE)|>length()) -> len
> mean(len==1)
[1] 0.694586
> mean(len==1)
[1] 0.694586
557卵の名無しさん (アウアウウー Sa17-tdBp [106.128.70.115])
2023/07/21(金) 20:47:56.37ID:qBzKS7WRa おい尿瓶クソジジイ
さっさと卒業証書と医師免許出せや
さっさと卒業証書と医師免許出せや
558卵の名無しさん (JP 0Hd3-zEeY [217.138.252.98 [上級国民]])
2023/07/22(土) 05:23:29.31ID:FYFO7qrzH 識者の尿瓶チンパポンコツフェチへの評価
61 132人目の素数さん sage 2023/07/21(金) 19:18:29.80 ID:KcuTGlEs
>>57
お前が一番の馬鹿だよ
相手しなけりゃいいのに、お前自身が1日だけで30以上も書き込みして、余計にこのスレが腐っていく
純粋に高校数学の話だけをしなさい
61 132人目の素数さん sage 2023/07/21(金) 19:18:29.80 ID:KcuTGlEs
>>57
お前が一番の馬鹿だよ
相手しなけりゃいいのに、お前自身が1日だけで30以上も書き込みして、余計にこのスレが腐っていく
純粋に高校数学の話だけをしなさい
559卵の名無しさん (ワッチョイ f324-yMPU [149.50.210.17 [上級国民]])
2023/07/22(土) 05:46:22.35ID:54NVUurG0 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()
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()
560卵の名無しさん (ワッチョイ f324-yMPU [149.50.210.17 [上級国民]])
2023/07/22(土) 07:05:52.70ID:54NVUurG0 子曰、
高校数学の質問スレ Part430
http://rio2016.5ch.net/test/read.cgi/math/1689726231/61
61 名前:132人目の素数さん[sage] 投稿日:2023/07/21(金) 19:18:29.80 ID:KcuTGlEs
>>57
お前が一番の馬鹿だよ
相手しなけりゃいいのに、お前自身が1日だけで30以上も書き込みして、余計にこのスレが腐っていく
純粋に高校数学の話だけをしなさい
高校数学の質問スレ Part430
http://rio2016.5ch.net/test/read.cgi/math/1689726231/61
61 名前:132人目の素数さん[sage] 投稿日:2023/07/21(金) 19:18:29.80 ID:KcuTGlEs
>>57
お前が一番の馬鹿だよ
相手しなけりゃいいのに、お前自身が1日だけで30以上も書き込みして、余計にこのスレが腐っていく
純粋に高校数学の話だけをしなさい
561卵の名無しさん (アウアウウー Sabd-TCAR [106.128.70.115])
2023/07/22(土) 08:08:31.15ID:SRPzw5T1a 自分の気に食わないレスは全員同じに見える病気みたいだね
尿瓶ジジイもいちいち発狂してる分際でw
尿瓶ジジイもいちいち発狂してる分際でw
562卵の名無しさん (アウアウウー Sabd-TCAR [106.128.70.115])
2023/07/22(土) 08:46:35.79ID:SRPzw5T1a 尿瓶ジジイ、ウクライナの首都を間違えたことを指摘されて発狂中ww
563卵の名無しさん (JP 0Hd3-zEeY [217.138.252.98 [上級国民]])
2023/07/22(土) 12:56:19.29ID:FYFO7qrzH 東大合格者から国立不合格者へのありがたい助言がこれ!
高校数学の質問スレ Part430
http://rio2016.5ch.net/test/read.cgi/math/1689726231/61
61 名前:132人目の素数さん[sage] 投稿日:2023/07/21(金) 19:18:29.80 ID:KcuTGlEs
>>57
お前が一番の馬鹿だよ
相手しなけりゃいいのに、お前自身が1日だけで30以上も書き込みして、余計にこのスレが腐っていく
純粋に高校数学の話だけをしなさい
高校数学の質問スレ Part430
http://rio2016.5ch.net/test/read.cgi/math/1689726231/61
61 名前:132人目の素数さん[sage] 投稿日:2023/07/21(金) 19:18:29.80 ID:KcuTGlEs
>>57
お前が一番の馬鹿だよ
相手しなけりゃいいのに、お前自身が1日だけで30以上も書き込みして、余計にこのスレが腐っていく
純粋に高校数学の話だけをしなさい
564卵の名無しさん (ワッチョイ f324-yMPU [149.50.210.17 [上級国民]])
2023/07/22(土) 15:54:26.67ID:54NVUurG0 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')
'有楽町','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')
565卵の名無しさん (ワッチョイ f324-yMPU [149.50.210.17 [上級国民]])
2023/07/22(土) 15:55:02.21ID:54NVUurG0 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
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
566卵の名無しさん (アウアウウー Sabd-TCAR [106.128.71.180])
2023/07/22(土) 16:15:46.60ID:f5YfabY7a 尿瓶ジジイ、またコピペの発作で発狂中w
567卵の名無しさん (ワッチョイ f324-yMPU [149.50.210.17 [上級国民]])
2023/07/22(土) 18:32:29.13ID:54NVUurG0 道具箱に追加しておこう。
緯度・経度がらみの計算に使えそう。
# 緯度経度から楕円地球上の距離を計算
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
}
緯度・経度がらみの計算に使えそう。
# 緯度経度から楕円地球上の距離を計算
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
}
568卵の名無しさん (ワッチョイ f324-yMPU [149.50.210.17 [上級国民]])
2023/07/22(土) 18:33:26.70ID:54NVUurG0 東大合格者から国立不合格者へのありがたい助言がこれ!
高校数学の質問スレ Part430
http://rio2016.5ch.net/test/read.cgi/math/1689726231/61
61 名前:132人目の素数さん[sage] 投稿日:2023/07/21(金) 19:18:29.80 ID:KcuTGlEs
>>57
お前が一番の馬鹿だよ
相手しなけりゃいいのに、お前自身が1日だけで30以上も書き込みして、余計にこのスレが腐っていく
純粋に高校数学の話だけをしなさい
>お前が一番の馬鹿だよ
>お前が一番の馬鹿だよ
>お前が一番の馬鹿だよ
ですって、大切なことなので繰り返しましたw
高校数学の質問スレ Part430
http://rio2016.5ch.net/test/read.cgi/math/1689726231/61
61 名前:132人目の素数さん[sage] 投稿日:2023/07/21(金) 19:18:29.80 ID:KcuTGlEs
>>57
お前が一番の馬鹿だよ
相手しなけりゃいいのに、お前自身が1日だけで30以上も書き込みして、余計にこのスレが腐っていく
純粋に高校数学の話だけをしなさい
>お前が一番の馬鹿だよ
>お前が一番の馬鹿だよ
>お前が一番の馬鹿だよ
ですって、大切なことなので繰り返しましたw
569卵の名無しさん (ワッチョイ f324-yMPU [149.50.210.17 [上級国民]])
2023/07/22(土) 19:35:59.67ID:54NVUurG0 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
7カ国から集まるのに移動距離の総和が最小になる地点の緯度と経度を計算せよ。
その地点に最も近い国はどこか述べよ。
オタワ -カナダ 緯度: 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
7カ国から集まるのに移動距離の総和が最小になる地点の緯度と経度を計算せよ。
その地点に最も近い国はどこか述べよ。
570卵の名無しさん (アウアウウー Sabd-TCAR [106.128.70.2])
2023/07/22(土) 21:20:02.90ID:r8HmaS4wa >>568
尿瓶ジジイって自分の気に食わないレス全員が同じに見える病気なんだなw
尿瓶ジジイって自分の気に食わないレス全員が同じに見える病気なんだなw
571卵の名無しさん (JP 0Hd3-zEeY [217.138.212.98 [上級国民]])
2023/07/23(日) 06:14:06.10ID:W8dTuzCcH 東大合格者から国立不合格者へのありがたい助言がこれ!
高校数学の質問スレ Part430
http://rio2016.5ch.net/test/read.cgi/math/1689726231/61
61 名前:132人目の素数さん[sage] 投稿日:2023/07/21(金) 19:18:29.80 ID:KcuTGlEs
>>57
お前が一番の馬鹿だよ
相手しなけりゃいいのに、お前自身が1日だけで30以上も書き込みして、余計にこのスレが腐っていく
純粋に高校数学の話だけをしなさい
>お前が一番の馬鹿だよ
>お前が一番の馬鹿だよ
>お前が一番の馬鹿だよ
高校数学の質問スレ Part430
http://rio2016.5ch.net/test/read.cgi/math/1689726231/61
61 名前:132人目の素数さん[sage] 投稿日:2023/07/21(金) 19:18:29.80 ID:KcuTGlEs
>>57
お前が一番の馬鹿だよ
相手しなけりゃいいのに、お前自身が1日だけで30以上も書き込みして、余計にこのスレが腐っていく
純粋に高校数学の話だけをしなさい
>お前が一番の馬鹿だよ
>お前が一番の馬鹿だよ
>お前が一番の馬鹿だよ
572卵の名無しさん (JP 0Hd3-zEeY [217.138.212.98 [上級国民]])
2023/07/23(日) 06:15:17.44ID:W8dTuzCcH >悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。
ですってwww
>当たり前だろ
>当たり前だろ
>当たり前だろ
とドヤ顔で大間違いを投稿!
抗パ剤を高パ剤と誤変換で投稿するのは単純ミスだが
抗ドーパミン薬と投稿するのはタイプミスでも誤変換でもないよな。
ですってwww
>当たり前だろ
>当たり前だろ
>当たり前だろ
とドヤ顔で大間違いを投稿!
抗パ剤を高パ剤と誤変換で投稿するのは単純ミスだが
抗ドーパミン薬と投稿するのはタイプミスでも誤変換でもないよな。
573卵の名無しさん (アウアウウー Sabd-TCAR [106.128.70.2])
2023/07/23(日) 08:42:37.98ID:SFdfjNW1a 尿瓶ジジイまともな反論は何一つできないからなw
574卵の名無しさん (スプープ Sd73-leiM [1.73.154.206])
2023/07/23(日) 09:40:19.03ID:Y55+EhIqd >>572
久しぶり見に来たらコイツまだコレ言ってるのかwww
頭悪いお前にはこれしか言えることないもんな
これもわざとtypoしたって論破されてるのにwwwジメジメした性格してて本当気持ち悪い奴だよお前は
統合失調症はまだ治らんのか?
久しぶり見に来たらコイツまだコレ言ってるのかwww
頭悪いお前にはこれしか言えることないもんな
これもわざとtypoしたって論破されてるのにwwwジメジメした性格してて本当気持ち悪い奴だよお前は
統合失調症はまだ治らんのか?
575卵の名無しさん (アウアウウー Sabd-TCAR [106.128.70.2])
2023/07/23(日) 10:47:31.84ID:SFdfjNW1a 現在は下手に突っ込まれないようここでお得意の脳内医療ネタ()もろくに書き込めず数学板で高校生相手に発狂してはバカにされるの繰り返し、憂さ晴らしにここでコピペで発狂といった具合w
576卵の名無しさん (ワッチョイ b9c7-2oYC [124.47.76.122])
2023/07/23(日) 13:22:50.59ID:UToIyy7I0 >悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。
ですってwww
>当たり前だろ
>当たり前だろ
>当たり前だろ
とドヤ顔で大間違いを投稿!
ですってwww
>当たり前だろ
>当たり前だろ
>当たり前だろ
とドヤ顔で大間違いを投稿!
577卵の名無しさん (アウアウウー Sabd-TCAR [106.128.71.123])
2023/07/23(日) 13:39:30.06ID:LHFf3ysQa 尿瓶ジジイは気に食わないレスは全員同じに見える病気にかかっていて全く煽りになってないことに気づかないホームラン級のバカw
578卵の名無しさん (アウアウウー Sabd-TCAR [106.128.71.123])
2023/07/23(日) 13:42:46.07ID:LHFf3ysQa 替え歌荒らしにすら偽医者だのクズ呼ばわりされる始末w
579卵の名無しさん (ワッチョイ b9c7-2oYC [124.47.76.122])
2023/07/23(日) 16:22:10.87ID:UToIyy7I0 APIMateR apimater:https://{$host}/test/read.cgi/{$bbs}/{$key}/{$host[match:\.([25]ch\.net|bbspink\.com)$]}
580卵の名無しさん (ワッチョイ b9c7-2oYC [124.47.76.122])
2023/07/23(日) 16:23:08.21ID:UToIyy7I0 東大合格者から国立不合格者へのありがたい助言がこれ!
高校数学の質問スレ Part430
http://rio2016.5ch.net/test/read.cgi/math/1689726231/61
61 名前:132人目の素数さん[sage] 投稿日:2023/07/21(金) 19:18:29.80 ID:KcuTGlEs
>>57
お前が一番の馬鹿だよ
相手しなけりゃいいのに、お前自身が1日だけで30以上も書き込みして、余計にこのスレが腐っていく
純粋に高校数学の話だけをしなさい
>お前が一番の馬鹿だよ
>お前が一番の馬鹿だよ
>お前が一番の馬鹿だよ
高校数学の質問スレ Part430
http://rio2016.5ch.net/test/read.cgi/math/1689726231/61
61 名前:132人目の素数さん[sage] 投稿日:2023/07/21(金) 19:18:29.80 ID:KcuTGlEs
>>57
お前が一番の馬鹿だよ
相手しなけりゃいいのに、お前自身が1日だけで30以上も書き込みして、余計にこのスレが腐っていく
純粋に高校数学の話だけをしなさい
>お前が一番の馬鹿だよ
>お前が一番の馬鹿だよ
>お前が一番の馬鹿だよ
581卵の名無しさん (アウアウウー Sabd-TCAR [106.128.68.155])
2023/07/23(日) 16:57:50.41ID:mZ+wxT/Ea 尿瓶チンパンジジイコピペしか能がないのかw
582卵の名無しさん (ワッチョイ 9158-leiM [106.73.2.65])
2023/07/23(日) 17:06:09.02ID:a+W/K+U40 >>580
コイツが何で東大合格者だと思うんだよ
全く根拠ないだろ
というか、この替え歌君にボコボコにされて悔しかったのか?www
ボコボコにされた相手にはコピペで対抗
いかにも頭の弱いお前の発想だよ
ちなみに一番の馬鹿はお前だぞwww
コイツが何で東大合格者だと思うんだよ
全く根拠ないだろ
というか、この替え歌君にボコボコにされて悔しかったのか?www
ボコボコにされた相手にはコピペで対抗
いかにも頭の弱いお前の発想だよ
ちなみに一番の馬鹿はお前だぞwww
583卵の名無しさん (アウアウウー Sabd-TCAR [106.128.71.150])
2023/07/23(日) 17:33:24.68ID:lqQfOF4fa 言い返せないとコピペで発狂
マジでチンパンジーw
マジでチンパンジーw
584卵の名無しさん (ブーイモ MMad-2oYC [210.138.6.18])
2023/07/23(日) 22:53:38.75ID:33hKJ21QM 救急搬送と新入院でインセンティブ4.5諭吉。
久々に両側にGGOのあるコロナ肺炎のCTをみた。
久々に両側にGGOのあるコロナ肺炎のCTをみた。
586卵の名無しさん (ブーイモ MMad-2oYC [210.138.6.18])
2023/07/24(月) 05:52:45.61ID:ya9IubfJM 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
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
587卵の名無しさん (ブーイモ MMad-2oYC [210.138.6.18])
2023/07/24(月) 06:27:59.94ID:ya9IubfJM # 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)
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)
588卵の名無しさん (スプープ Sd73-leiM [1.73.153.28])
2023/07/24(月) 07:50:00.52ID:w6igBrqid589卵の名無しさん (アウアウウー Sabd-TCAR [106.128.71.190])
2023/07/24(月) 09:21:55.47ID:Ldvz/BNaa 胆汁ドレナージで素人バレバレなのでw
というか医療事務じゃないと出てこないw
というか医療事務じゃないと出てこないw
590卵の名無しさん (アウアウウー Sabd-TCAR [106.128.71.126])
2023/07/24(月) 10:22:09.16ID:zPtCn08Ta 言い返せないとしばらくダンマリ決め込んでコピペで発狂
死ぬまで続ける気か?
死ぬまで続ける気か?
591卵の名無しさん (ブーイモ MMad-2oYC [210.138.6.5])
2023/07/24(月) 11:56:46.19ID:Day8w5dSM 胆汁ドレナージは普通に使うが。
こういうことを言う医師はまともではないね。
>悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。
ですってwww
>当たり前だろ
>当たり前だろ
>当たり前だろ
とドヤ顔で大間違いを投稿!
こういうことを言う医師はまともではないね。
>悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。
ですってwww
>当たり前だろ
>当たり前だろ
>当たり前だろ
とドヤ顔で大間違いを投稿!
592卵の名無しさん (ブーイモ MMad-2oYC [210.138.6.5])
2023/07/24(月) 11:58:38.90ID:Day8w5dSM 救急当番と内視鏡バイトで20諭吉ゲット!
コロナの救急搬送が立て続けで忙しかった。
コロナの救急搬送が立て続けで忙しかった。
593卵の名無しさん (ブーイモ MMad-2oYC [210.138.6.5])
2023/07/24(月) 12:01:49.75ID:Day8w5dSM これより恥ずかしい投稿を医師板ではみたことがない。
>悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。
ですってwww
>当たり前だろ
>当たり前だろ
>当たり前だろ
とドヤ顔で大間違い!!
>悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。
ですってwww
>当たり前だろ
>当たり前だろ
>当たり前だろ
とドヤ顔で大間違い!!
594卵の名無しさん (アウアウウー Sabd-TCAR [106.128.69.134])
2023/07/24(月) 12:17:24.25ID:NlJK5bBea595卵の名無しさん (アウアウウー Sabd-TCAR [106.128.70.118])
2023/07/24(月) 12:41:20.13ID:7Fiupx7ba 尿瓶ジジイ、突っ込まれるのが怖いからか前より脳内医療ネタ()は短文w
596卵の名無しさん (JP 0Hfd-leiM [202.253.111.210])
2023/07/24(月) 15:37:34.55ID:WkpJ9wPeH597卵の名無しさん (ワッチョイ c958-XbVB [14.13.16.0 [上級国民]])
2023/07/24(月) 16:30:38.18ID:8cl3Qnmw0 >>596
使うよ。
AstrapもMDLも普通に使う。
Homan鈎のフランス後読みは上級者のみ使う。
こういうことは下衆でも言わない。
>悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。
ですってwww
>当たり前だろ
>当たり前だろ
>当たり前だろ
とドヤ顔で大間違いを投稿!
使うよ。
AstrapもMDLも普通に使う。
Homan鈎のフランス後読みは上級者のみ使う。
こういうことは下衆でも言わない。
>悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。
ですってwww
>当たり前だろ
>当たり前だろ
>当たり前だろ
とドヤ顔で大間違いを投稿!
598卵の名無しさん (JP 0Hd3-zEeY [217.138.212.122 [上級国民]])
2023/07/24(月) 16:37:18.50ID:yZNTF7aqH599卵の名無しさん (ワッチョイ c958-XbVB [14.13.16.0 [上級国民]])
2023/07/24(月) 16:43:47.20ID:8cl3Qnmw0 昔の投稿も見ることができて便利。神アプリだな。
11 132人目の素数さん 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),
...
)
有病率を1%とすると、3000人にクルーズ船でも100人の屋形船でも感染者のピークは変わらないな。
同一時間あたりのcontact_rateとtransmission_probabilityが宴会での方が高いからだろうな。
パラメータを変えてグラフを書いてみた。
https://i.imgur.com/hCfBTyc.png
11 132人目の素数さん 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),
...
)
有病率を1%とすると、3000人にクルーズ船でも100人の屋形船でも感染者のピークは変わらないな。
同一時間あたりのcontact_rateとtransmission_probabilityが宴会での方が高いからだろうな。
パラメータを変えてグラフを書いてみた。
https://i.imgur.com/hCfBTyc.png
600卵の名無しさん (アウアウウー Sabd-TCAR [106.128.68.244])
2023/07/24(月) 16:45:15.28ID:K7qj9qqDa601卵の名無しさん (ワッチョイ 0b12-TCAR [153.137.214.121])
2023/07/24(月) 16:47:08.63ID:tTpqXxCT0602卵の名無しさん (JP 0Hd3-zEeY [217.138.212.122 [上級国民]])
2023/07/24(月) 18:31:08.42ID:yZNTF7aqH >>588
抗ドーパミン薬の意味はわかってた??
抗ドーパミン薬の意味はわかってた??
603卵の名無しさん (JP 0Hd3-zEeY [217.138.212.122 [上級国民]])
2023/07/24(月) 18:33:50.73ID:yZNTF7aqH >悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。
ですってwww
>当たり前だろ
>当たり前だろ
>当たり前だろ
とドヤ顔で大間違いを投稿!
ですってwww
>当たり前だろ
>当たり前だろ
>当たり前だろ
とドヤ顔で大間違いを投稿!
604卵の名無しさん (アウアウウー Sabd-TCAR [106.128.68.244])
2023/07/24(月) 19:12:08.92ID:K7qj9qqDa 抗ドーパミン薬の意味が分かってないのはアンタだろw
605卵の名無しさん (スプープ Sd73-leiM [1.73.153.125])
2023/07/24(月) 19:20:37.73ID:RG128V21d606卵の名無しさん (アウアウウー Sabd-TCAR [106.128.68.244])
2023/07/25(火) 08:37:24.35ID:R29t5DOLa 尿瓶ジジイ高校生相手には吠えまくってるのにここではダンマリかよ
607卵の名無しさん (ワッチョイ f324-h0SB [149.50.210.2 [上級国民]])
2023/07/25(火) 08:40:57.23ID:4Uu2jZLX0 "
楕円 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)
楕円 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)
608卵の名無しさん (ワッチョイ f324-h0SB [149.50.210.2 [上級国民]])
2023/07/25(火) 08:42:07.06ID:4Uu2jZLX0 >>600
小児外科医が使っていたと同業者が投稿していたな。
こういうことは下衆でも言わない。
>悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。
ですってwww
>当たり前だろ
>当たり前だろ
>当たり前だろ
とドヤ顔で大間違いを投稿!
小児外科医が使っていたと同業者が投稿していたな。
こういうことは下衆でも言わない。
>悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。
ですってwww
>当たり前だろ
>当たり前だろ
>当たり前だろ
とドヤ顔で大間違いを投稿!
609卵の名無しさん (ワッチョイ f324-h0SB [149.50.210.2 [上級国民]])
2023/07/25(火) 08:43:17.53ID:4Uu2jZLX0610卵の名無しさん (ワッチョイ f324-h0SB [149.50.210.2 [上級国民]])
2023/07/25(火) 08:43:56.77ID:4Uu2jZLX0 >悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。
ですってwww
>当たり前だろ
>当たり前だろ
>当たり前だろ
とドヤ顔で大間違いを投稿!
ですってwww
>当たり前だろ
>当たり前だろ
>当たり前だろ
とドヤ顔で大間違いを投稿!
611卵の名無しさん (ワッチョイ f324-h0SB [149.50.210.2 [上級国民]])
2023/07/25(火) 08:44:23.02ID:4Uu2jZLX0 国試だと禁忌肢になるだろな。
612卵の名無しさん (JP 0Hd3-yMPU [217.138.212.98 [上級国民]])
2023/07/25(火) 09:46:05.76ID:C7I6Uch3H '%=%' <- 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)
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)
613卵の名無しさん (JP 0Hfd-leiM [202.253.111.210])
2023/07/25(火) 12:57:37.42ID:+LRtxEUHH >>609
コメントが「恥ずかしい!」だけかよ
結局、反論出来ないんだろwww
これ以上何か言っても馬鹿晒すだけだぞ
本当に頭悪いんだな
偏差値30ぐらいと奴でも、もう少しちゃんとした反論出来るぞ
それより、サンドラマランって何なの?ちゃんと解説してくれよwww東大合格者なんだろ?
コメントが「恥ずかしい!」だけかよ
結局、反論出来ないんだろwww
これ以上何か言っても馬鹿晒すだけだぞ
本当に頭悪いんだな
偏差値30ぐらいと奴でも、もう少しちゃんとした反論出来るぞ
それより、サンドラマランって何なの?ちゃんと解説してくれよwww東大合格者なんだろ?
614卵の名無しさん (ワッチョイ 0b12-TCAR [153.137.214.121])
2023/07/25(火) 13:43:36.25ID:3W/aXRhE0 ちなみに高校生からもボコられてますw
615卵の名無しさん (ワッチョイ f324-h0SB [149.50.210.2 [上級国民]])
2023/07/25(火) 17:09:32.66ID:4Uu2jZLX0 >悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。
ですってwww
>当たり前だろ
>当たり前だろ
>当たり前だろ
とドヤ顔で大間違いを投稿!
typoだと言ったり、
わざと間違えたと言ったり、
恥ずかしくね?
ですってwww
>当たり前だろ
>当たり前だろ
>当たり前だろ
とドヤ顔で大間違いを投稿!
typoだと言ったり、
わざと間違えたと言ったり、
恥ずかしくね?
616卵の名無しさん (アウアウキー Saf5-TCAR [182.251.24.65])
2023/07/25(火) 17:12:44.66ID:vyAkGQ6Ca 高校生にも偽医者とか言われてる尿瓶ジジイのほうが恥ずかしいから安心してw
617卵の名無しさん (スプープ Sd73-leiM [1.73.155.226])
2023/07/25(火) 18:31:34.66ID:8MuMsPUSd >>615
恥ずかしいわけないだろ、お前を馬鹿にするためにわざとやってんだからwww
これだけ、言っても理解出来ないの?
まあ、頭悪くて他に反論出来ないからこんな書き込みが出来るんだろうな
コピペしか出来ないお前の方がよっぽど恥ずかしいわ!www
んで、結局サンドラマランは無視か?
Syndrome malinをサンドラマランとかドヤ顔で書いたら俺なら恥ずかしくて自殺しちゃうかもなwww
恥ずかしいわけないだろ、お前を馬鹿にするためにわざとやってんだからwww
これだけ、言っても理解出来ないの?
まあ、頭悪くて他に反論出来ないからこんな書き込みが出来るんだろうな
コピペしか出来ないお前の方がよっぽど恥ずかしいわ!www
んで、結局サンドラマランは無視か?
Syndrome malinをサンドラマランとかドヤ顔で書いたら俺なら恥ずかしくて自殺しちゃうかもなwww
618卵の名無しさん (JP 0H2d-yMPU [146.70.31.18 [上級国民]])
2023/07/26(水) 06:31:40.62ID:0pDrMthqH 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()
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()
619卵の名無しさん (JP 0H2d-yMPU [146.70.31.18 [上級国民]])
2023/07/26(水) 07:20:44.08ID:0pDrMthqH 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)
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)
620卵の名無しさん (ワッチョイ 0b12-TCAR [153.137.214.121])
2023/07/26(水) 11:43:30.50ID:UJTnPc6K0 尿瓶ジジイさんざん発狂してたのにもう何も言えないのかw
621卵の名無しさん (JP 0H2d-yMPU [146.70.31.18 [上級国民]])
2023/07/26(水) 12:21:03.87ID:0pDrMthqH 大納言60g+水400mL 圧力(豆料理5分)+保温15分
622卵の名無しさん (JP 0H2d-yMPU [146.70.31.18 [上級国民]])
2023/07/26(水) 17:48:15.79ID:0pDrMthqH 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
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)
623卵の名無しさん (JP 0H2d-yMPU [146.70.31.18 [上級国民]])
2023/07/26(水) 18:14:20.86ID:0pDrMthqH 三角形を形成しない数値が与えられたときのエラー処理を追加
# 底面:△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)
}
# 底面:△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)
}
624卵の名無しさん (JP 0H2d-yMPU [146.70.31.18 [上級国民]])
2023/07/26(水) 20:45:58.96ID:0pDrMthqH 直径6cmのシリコン製容器
グラニュー糖15mL
水5mL
突沸飛散防止にペーパーでカバー
電子レンジ600Wで90秒
100秒でビターカラメル
グラニュー糖15mL
水5mL
突沸飛散防止にペーパーでカバー
電子レンジ600Wで90秒
100秒でビターカラメル
625卵の名無しさん (JP 0H2d-yMPU [146.70.31.18 [上級国民]])
2023/07/26(水) 20:51:37.21ID:0pDrMthqH 表面積計算と3D画像作成機能を追加。
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))
}
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))
}
626卵の名無しさん (アウアウウー Sabd-TCAR [106.128.71.207])
2023/07/26(水) 21:30:36.23ID:31kfz9Dha 904:卵の名無しさん:[sage]:2023/07/26(水) 19:44:23.02 ID:31kfz9Dh
243:132人目の素数さん:[sage]:2023/07/25(火) 19:35:19.66 ID:hrc4XW/3
6つの辺の長さが3,4,5,6,7,8である四面体は( ア )種類ある。
269:132人目の素数さん:[sage]:2023/07/26(水) 18:45:05.79 ID:sev74d4g
>>243
車輪の再発明の神のお告げによれば、39通り
274:132人目の素数さん:[sage]:2023/07/26(水) 19:22:12.39 ID:pzlYX2uz
鏡像を同じとみなすなら四面体の各辺に3〜8の数字をあてがう方法は30通りしかない
同じと見做さないなら答えは偶数
尿瓶赤っ恥w
243:132人目の素数さん:[sage]:2023/07/25(火) 19:35:19.66 ID:hrc4XW/3
6つの辺の長さが3,4,5,6,7,8である四面体は( ア )種類ある。
269:132人目の素数さん:[sage]:2023/07/26(水) 18:45:05.79 ID:sev74d4g
>>243
車輪の再発明の神のお告げによれば、39通り
274:132人目の素数さん:[sage]:2023/07/26(水) 19:22:12.39 ID:pzlYX2uz
鏡像を同じとみなすなら四面体の各辺に3〜8の数字をあてがう方法は30通りしかない
同じと見做さないなら答えは偶数
尿瓶赤っ恥w
627卵の名無しさん (JP 0H2d-yMPU [146.70.31.18 [上級国民]])
2023/07/27(木) 05:45:05.96ID:QI6KEtmJH # 底面:△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))
}
# 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))
}
628卵の名無しさん (JP 0H2d-yMPU [146.70.31.18 [上級国民]])
2023/07/27(木) 05:46:26.75ID:QI6KEtmJH 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')
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')
629卵の名無しさん (JP 0H2d-yMPU [146.70.31.18 [上級国民]])
2023/07/27(木) 05:50:33.60ID:QI6KEtmJH 朝飯前の問題
(1)長さが1,2,3,4,5,6の6本の線分を組み合わせて四面体は作れるか?
(2)長さが2,3,4,5,6,7の6本の線分を組み合わせて高さが最も大きくなるような四面体を作りたい。
そのときの高さを求めよ。小数点第3位まででよい。
(1)長さが1,2,3,4,5,6の6本の線分を組み合わせて四面体は作れるか?
(2)長さが2,3,4,5,6,7の6本の線分を組み合わせて高さが最も大きくなるような四面体を作りたい。
そのときの高さを求めよ。小数点第3位まででよい。
630卵の名無しさん (アウアウウー Sabd-TCAR [106.128.69.106])
2023/07/27(木) 07:11:52.09ID:hTYahWTka おなじみ朝飯前の大発狂w
631卵の名無しさん (JP 0H2d-yMPU [146.70.31.18 [上級国民]])
2023/07/27(木) 09:13:35.22ID:QI6KEtmJH 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)))
[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)))
632卵の名無しさん (JP 0H2d-yMPU [146.70.31.18 [上級国民]])
2023/07/27(木) 09:14:00.39ID:QI6KEtmJH > 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
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
633卵の名無しさん (JP 0H2d-yMPU [146.70.31.18 [上級国民]])
2023/07/27(木) 13:50:54.68ID:QI6KEtmJH 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).
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).
634卵の名無しさん (JP 0H2d-yMPU [146.70.31.18 [上級国民]])
2023/07/27(木) 13:51:03.00ID:QI6KEtmJH 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.
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.
635卵の名無しさん (JP 0H2d-yMPU [146.70.31.18 [上級国民]])
2023/07/27(木) 13:51:25.37ID:QI6KEtmJH 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)
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)
636卵の名無しさん (JP 0H2d-yMPU [146.70.31.18 [上級国民]])
2023/07/27(木) 13:51:41.84ID:QI6KEtmJH 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.)
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.)
637卵の名無しさん (JP 0H2d-yMPU [146.70.31.18 [上級国民]])
2023/07/27(木) 13:53:24.38ID:QI6KEtmJH 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.
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.
638卵の名無しさん (JP 0H2d-yMPU [146.70.31.18 [上級国民]])
2023/07/27(木) 13:55:41.68ID:QI6KEtmJH ∆AG/∆[HCO3-]
This ratio should be between 1.0 and 2.0
これがMarioのICU Bookの記載と異なる点だな。
Astrap関数の数値を変えておこう。
This ratio should be between 1.0 and 2.0
これがMarioのICU Bookの記載と異なる点だな。
Astrap関数の数値を変えておこう。
639卵の名無しさん (JP 0H2d-yMPU [146.70.31.18 [上級国民]])
2023/07/27(木) 13:55:47.98ID:QI6KEtmJH 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の
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の
640卵の名無しさん (JP 0H2d-yMPU [146.70.31.18 [上級国民]])
2023/07/27(木) 14:00:31.96ID:QI6KEtmJH # 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)
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)
641卵の名無しさん (アウアウウー Sabd-TCAR [106.128.69.80])
2023/07/27(木) 17:55:04.18ID:kPyKYdkra 尿瓶ジジイ数学板でも脳内医者とか言われてて草
642卵の名無しさん (アウアウウー Sabd-TCAR [106.128.68.47])
2023/07/27(木) 20:25:40.02ID:uVmATNWsa 尿瓶ジジイ、素人からも素人臭いと言われるw
323:132人目の素数さん:[sage]:2023/07/27(木) 20:23:10.61 ID:n4ZdqQfJ
>>320
残念なのは、都合の悪いことは全部スルーするお前のオツムだろ
臨床ネタとかいう表現も何か素人臭いし
同業者ってのもお前の自演なんじゃねーの
323:132人目の素数さん:[sage]:2023/07/27(木) 20:23:10.61 ID:n4ZdqQfJ
>>320
残念なのは、都合の悪いことは全部スルーするお前のオツムだろ
臨床ネタとかいう表現も何か素人臭いし
同業者ってのもお前の自演なんじゃねーの
643卵の名無しさん (アウアウウー Sabd-TCAR [106.128.68.47])
2023/07/27(木) 20:34:17.64ID:uVmATNWsa 神のお告げとかいいながら速攻で間違いを指摘されてダンマリ決め込む尿瓶最高に傑作だわw
644卵の名無しさん (JP 0Hd3-yMPU [217.138.252.98 [上級国民]])
2023/07/28(金) 07:30:51.85ID:r9+Sd36JH ans=NULL
for(a in 100001:109999){
if((a^2-a) %%10000==0) ans=c(ans,a)
}
ans
for(a in 100001:109999){
if((a^2-a) %%10000==0) ans=c(ans,a)
}
ans
645卵の名無しさん (JP 0Hd3-yMPU [217.138.212.98 [上級国民]])
2023/07/28(金) 14:15:09.98ID:UlP+1rs6H 三次方程式の数値解を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)
}
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)
}
646卵の名無しさん (JP 0Hd3-yMPU [217.138.212.98 [上級国民]])
2023/07/28(金) 14:28:43.20ID:UlP+1rs6H Wolframの出力をRで使えるように変換する。
Wolfram2R =\(str,n){ # 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)
Wolfram2R =\(str,n){ # 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)
647卵の名無しさん (JP 0Hd3-yMPU [217.138.212.98 [上級国民]])
2023/07/28(金) 17:48:39.94ID:UlP+1rs6H 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)
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)
648卵の名無しさん (JP 0H52-RvK4 [217.138.212.98 [上級国民]])
2023/07/29(土) 02:21:01.72ID:qmAKGzOBH 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])
}
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])
}
649卵の名無しさん (JP 0H52-RvK4 [217.138.212.98 [上級国民]])
2023/07/29(土) 02:35:44.76ID:qmAKGzOBH 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
}
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
}
650卵の名無しさん (JP 0H52-RvK4 [217.138.212.98 [上級国民]])
2023/07/29(土) 07:29:38.02ID:qmAKGzOBH 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) # 内心の極座標
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) # 内心の極座標
651卵の名無しさん (JP 0H52-RvK4 [217.138.212.98 [上級国民]])
2023/07/29(土) 07:33:54.33ID:qmAKGzOBH 夏の大三角を形成する星の諸元を以下の通りとする(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) 外心、内心の赤経、赤緯、距離を求めよ。
こと座のベガ(織姫星)
赤経 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) 外心、内心の赤経、赤緯、距離を求めよ。
652卵の名無しさん (アウアウウー Sac5-53/D [106.128.68.193])
2023/07/29(土) 08:39:38.20ID:HYZ99Dvwa アンタが偽医者でほんとによかったよだってさw
653卵の名無しさん (スッププ Sda2-HzX1 [49.105.91.210])
2023/07/29(土) 11:30:06.37ID:VAJyuymVd654卵の名無しさん (ワッチョイ ee12-53/D [153.137.214.121])
2023/07/29(土) 11:57:58.73ID:ANMrxTku0 数学板でも相手にされてないからねw
655卵の名無しさん (アウアウキー Sa09-53/D [182.251.35.46])
2023/07/29(土) 16:10:34.39ID:JbK1n4r2a 389:132人目の素数さん:2023/07/29(土) 16:00:18.62 ID:mTiQ7rLF
>>384
バカすぎるわw
天文学的にみてもまったく無意味な問題のための問題。しかも有効数字が揃ってないという欠陥問題。
アホすぎて話にならん。
せめて球面三角の問題にするくらいの知恵すらないバカ。
尿瓶ジジイ、数学板でも素人丸出しの模様
>>384
バカすぎるわw
天文学的にみてもまったく無意味な問題のための問題。しかも有効数字が揃ってないという欠陥問題。
アホすぎて話にならん。
せめて球面三角の問題にするくらいの知恵すらないバカ。
尿瓶ジジイ、数学板でも素人丸出しの模様
656卵の名無しさん (アウアウキー Sa09-53/D [182.251.35.46])
2023/07/29(土) 21:26:30.89ID:JbK1n4r2a >>651
替え歌荒らしにすらセンスないってバカにされてて草
替え歌荒らしにすらセンスないってバカにされてて草
657卵の名無しさん (ブーイモ MMe6-4qtN [133.159.149.113])
2023/07/30(日) 08:16:00.03ID:4FPQnO7UM # 移動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)))
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)))
658卵の名無しさん (ワッチョイ 61c7-4qtN [124.47.76.122])
2023/07/30(日) 11:45:48.69ID:Jn2avB5O0 # 移動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]))
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]))
659卵の名無しさん (ワッチョイ 61c7-4qtN [124.47.76.122])
2023/07/30(日) 11:56:41.42ID:Jn2avB5O0 # 移動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]))
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]))
660卵の名無しさん (ワッチョイ 61c7-4qtN [124.47.76.122])
2023/07/30(日) 11:56:55.75ID:Jn2avB5O0 # 移動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]))
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]))
661卵の名無しさん (ワッチョイ 61c7-4qtN [124.47.76.122])
2023/07/30(日) 11:58:35.94ID:Jn2avB5O0 # 緯度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]))
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]))
662卵の名無しさん (ワッチョイ 61c7-4qtN [124.47.76.122])
2023/07/30(日) 11:58:45.13ID:Jn2avB5O0 地球を完全な球と仮定する。
仮想敵国の首都と緯度経度は以下の通りである。
ワシントン北緯47.15° 西経122.48°
モスクワ 北緯55.83° 東経37.62°
北京 北緯39.93° 東経116.28°
3つの首都を爆撃するためにミサイル基地を建設する。
(1) 3首都へのミサイルの飛行距離の総和が最小になる基地の緯度経度を求めよ。
(2) (1)で求めた基地はどこの国の領土かを答えよ。
ミサイルの飛行する高度は考慮しなくてよい。
仮想敵国の首都と緯度経度は以下の通りである。
ワシントン北緯47.15° 西経122.48°
モスクワ 北緯55.83° 東経37.62°
北京 北緯39.93° 東経116.28°
3つの首都を爆撃するためにミサイル基地を建設する。
(1) 3首都へのミサイルの飛行距離の総和が最小になる基地の緯度経度を求めよ。
(2) (1)で求めた基地はどこの国の領土かを答えよ。
ミサイルの飛行する高度は考慮しなくてよい。
663卵の名無しさん (ワッチョイ 61c7-4qtN [124.47.76.122])
2023/07/30(日) 12:04:02.34ID:Jn2avB5O0 # 緯度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]))
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]))
664卵の名無しさん (ワッチョイ 61c7-4qtN [124.47.76.122])
2023/07/30(日) 12:06:21.59ID:Jn2avB5O0 par
[1] 52.49637 15.74904
$value
[1] 5975135
$counts
function gradient
141 NA
$convergence
[1] 0
$message
NULL
[1] 52.49637 15.74904
$value
[1] 5975135
$counts
function gradient
141 NA
$convergence
[1] 0
$message
NULL
665卵の名無しさん (アウアウキー Sa09-53/D [182.251.35.46])
2023/07/30(日) 13:41:31.74ID:aqgQ3jdVa 尿瓶まだやってたのか
どうせ誰にも相手にされないのにw
どうせ誰にも相手にされないのにw
666卵の名無しさん (ブーイモ MMe6-4qtN [133.159.149.218])
2023/07/30(日) 21:40:16.20ID:f5OP0fsKM (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()
}
(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()
}
667卵の名無しさん (ワッチョイ ee12-53/D [153.137.214.121])
2023/07/31(月) 10:50:23.43ID:WsDDKQKG0 尿瓶、早朝発狂なしw
668卵の名無しさん (アウアウキー Sa09-53/D [182.251.35.46])
2023/07/31(月) 11:04:11.56ID:1ZcxZ36Da 911:卵の名無しさん:[sage]:2023/07/29(土) 21:38:30.79 ID:JbK1n4r2
アンポンタン、アンポンタン♪
数学できない偽医者♪
アンポンタン、アンポンタン♪
アンポンタン、アンポンタン♪
数学できない偽医者♪
アンポンタン、アンポンタン♪
669卵の名無しさん (ワッチョイ 3224-RvK4 [149.50.210.17 [上級国民]])
2023/07/31(月) 14:36:54.05ID:xgtz5I6M0 地球を完全な球とする。
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を結ぶとき2つの弧の交点の経度、緯度を求めよ。
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を結ぶとき2つの弧の交点の経度、緯度を求めよ。
670卵の名無しさん (ワッチョイ 3224-RvK4 [149.50.210.17 [上級国民]])
2023/07/31(月) 14:37:34.37ID:xgtz5I6M0 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
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
671卵の名無しさん (ワッチョイ 3224-RvK4 [149.50.210.17 [上級国民]])
2023/07/31(月) 15:09:34.00ID:xgtz5I6M0 # (緯度・経度) 弧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 = \(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])
672卵の名無しさん (ワッチョイ 3224-RvK4 [149.50.210.17 [上級国民]])
2023/07/31(月) 15:10:16.61ID:xgtz5I6M0 > 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
[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
673卵の名無しさん (ワッチョイ 3224-RvK4 [149.50.210.17 [上級国民]])
2023/07/31(月) 18:01:12.58ID:xgtz5I6M0 "
地球を完全な球とする。
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をとり
4つの球面三角形PES,PSW,PWN,PNEの面積が等しくなるように4分割して
米英中露が分割統治する。
点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
地球を完全な球とする。
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をとり
4つの球面三角形PES,PSW,PWN,PNEの面積が等しくなるように4分割して
米英中露が分割統治する。
点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
674卵の名無しさん (ワッチョイ 3224-RvK4 [149.50.210.17 [上級国民]])
2023/07/31(月) 18:37:44.96ID:xgtz5I6M0 >>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)その地点のある市町村名を答えよ。
答が海上だと今ひとつ興味がわかないので数値を変えた練習問題。
四則演算で答が出せる。
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)その地点のある市町村名を答えよ。
675卵の名無しさん (アウアウキー Sa09-53/D [182.251.21.101])
2023/07/31(月) 22:44:42.41ID:xVkK+rZea 188:卵の名無しさん:[sage]:2023/07/31(月) 22:35:21.47 ID:6IPqu6HL
ネタはまだストックがありますか?脳内妄想医さん
ネタはまだストックがありますか?脳内妄想医さん
676卵の名無しさん (ブーイモ MMe6-RvK4 [133.159.149.109 [上級国民]])
2023/08/01(火) 08:28:04.29ID:oRgPBjXSM 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()
paste(a,collapse='+') |> cat()
677卵の名無しさん (ブーイモ MMb9-PQn6 [220.156.12.242])
2023/08/01(火) 14:43:21.17ID:RSC+6NqWM 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)
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)
678卵の名無しさん (JP 0H52-RvK4 [217.138.252.98 [上級国民]])
2023/08/02(水) 06:43:27.14ID:3NNjYFcbH 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])
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])
679卵の名無しさん (JP 0H52-RvK4 [217.138.252.98 [上級国民]])
2023/08/02(水) 06:57:25.81ID:3NNjYFcbH 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
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
680卵の名無しさん (ワッチョイ 0958-PQn6 [14.13.16.0])
2023/08/02(水) 14:05:14.09ID:LakLPy4e0 妻がとうもろこを買ってきてくれたので
バターコーンの低温調理をやってみる。
80℃30分に設定。
バターレモンチキンが美味だったのでバターレモンコーンにアレンジ。
バターコーンの低温調理をやってみる。
80℃30分に設定。
バターレモンチキンが美味だったのでバターレモンコーンにアレンジ。
681卵の名無しさん (JP 0H4d-O5nL [146.70.31.52 [上級国民]])
2023/08/02(水) 15:09:29.63ID:3XtkjKmWH library(RcppAlgos)
f=\(n) (apply(permuteGeneral(6,n,repetition = TRUE),1,\(x) sum(x)%%7==0)) |> mean()
y=sapply(1:9,f)
plot(y)
f=\(n) (apply(permuteGeneral(6,n,repetition = TRUE),1,\(x) sum(x)%%7==0)) |> mean()
y=sapply(1:9,f)
plot(y)
682卵の名無しさん (JP 0H4d-O5nL [146.70.31.52 [上級国民]])
2023/08/03(木) 07:39:11.94ID:5oQ9dj8SH 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)
}
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)
}
683卵の名無しさん (ワッチョイ 0958-PQn6 [14.13.16.0])
2023/08/03(木) 15:52:50.76ID:t4ZfvwI30 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()
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()
684卵の名無しさん (スッププ Sda2-Xleb [49.105.85.56])
2023/08/03(木) 17:32:32.22ID:69uB5F4Yd 尿瓶ジジイも自分の分をわきまえたのか
間違った脳内医療をここに晒すことはなくなったなwww偉いじゃん
尿瓶ジジイは内視鏡スレには現れるのに、消化器専門医スレには現れない
何故なんでしょうねwww
ヒント:内視鏡はコメディカルでもある程度理解できます!
間違った脳内医療をここに晒すことはなくなったなwww偉いじゃん
尿瓶ジジイは内視鏡スレには現れるのに、消化器専門医スレには現れない
何故なんでしょうねwww
ヒント:内視鏡はコメディカルでもある程度理解できます!
685卵の名無しさん (ワッチョイ 0958-PQn6 [14.13.16.0])
2023/08/03(木) 17:39:07.97ID:t4ZfvwI30 >悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。
ですってwww
>当たり前だろ
>当たり前だろ
>当たり前だろ
とドヤ顔で大間違いを投稿!
typoだと言ったり、
わざと間違えたと言ったり、
恥ずかしくね?
ですってwww
>当たり前だろ
>当たり前だろ
>当たり前だろ
とドヤ顔で大間違いを投稿!
typoだと言ったり、
わざと間違えたと言ったり、
恥ずかしくね?
686卵の名無しさん (ワッチョイ 0958-PQn6 [14.13.16.0])
2023/08/03(木) 17:40:53.60ID:t4ZfvwI30 クローンやUCとかやりたくないね。
書類の記載も面倒くさいし。
書類の記載も面倒くさいし。
687卵の名無しさん (JP 0H4d-O5nL [146.70.31.52 [上級国民]])
2023/08/04(金) 06:17:13.22ID:LH6ITclIH 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=(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)
}
688卵の名無しさん (JP 0H4d-O5nL [146.70.31.52 [上級国民]])
2023/08/04(金) 06:47:37.99ID:LH6ITclIH (((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
689卵の名無しさん (ブーイモ MMe6-NUl3 [133.159.148.83])
2023/08/04(金) 07:59:46.23ID:kNnoYEiTM R: 大元の球半径
r:生地の底面半径
r0:生地の切離側面の円の半径
r0=sqrt(R^2-x^2)
h0=r0-(R-h) # 弓形側面の高さ
C0=2*sqrt(r^2-x^2) # 弦の長さ
r:生地の底面半径
r0:生地の切離側面の円の半径
r0=sqrt(R^2-x^2)
h0=r0-(R-h) # 弓形側面の高さ
C0=2*sqrt(r^2-x^2) # 弦の長さ
690卵の名無しさん (ブーイモ MMe6-NUl3 [133.159.148.83])
2023/08/04(金) 11:53:43.14ID:kNnoYEiTM 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)
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)
691卵の名無しさん (JP 0H4d-O5nL [146.70.31.52 [上級国民]])
2023/08/04(金) 13:15:17.66ID:LH6ITclIH 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)
}
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)
}
692卵の名無しさん (JP 0H96-r+G9 [61.199.225.248])
2023/08/04(金) 13:17:55.05ID:Kgx2eOG2H 数学板でも数学できない偽医者とか言われてるw
693卵の名無しさん (ワッチョイ 0958-O5nL [14.13.16.0 [上級国民]])
2023/08/04(金) 16:17:02.78ID:CPhIRibW0 パン作りをしながら思いついた問題、自分への宿題
1次発酵が終わったパン生地を球を平面で切った形状とする。
球冠spherical capと呼ぶらしい。中華饅頭の形のイメージ。
生地の底面の円の半径は10cm、生地の高さは5cmであった。
生地を平行な2つの平面で切って3分割したい。
鉛直方向に切断するとして端から何cmのところで切ればよいか?
1次発酵が終わったパン生地を球を平面で切った形状とする。
球冠spherical capと呼ぶらしい。中華饅頭の形のイメージ。
生地の底面の円の半径は10cm、生地の高さは5cmであった。
生地を平行な2つの平面で切って3分割したい。
鉛直方向に切断するとして端から何cmのところで切ればよいか?
694卵の名無しさん (ワッチョイ 0958-O5nL [14.13.16.0 [上級国民]])
2023/08/04(金) 16:17:32.89ID:CPhIRibW0 >>692
東大卒が正解を出せない問題をRで数値解を出しているからね。
東大卒が正解を出せない問題をRで数値解を出しているからね。
695卵の名無しさん (ワッチョイ 0958-O5nL [14.13.16.0 [上級国民]])
2023/08/04(金) 16:18:30.71ID:CPhIRibW0 ようやく計算が終わった。
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: 大元の球半径 (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
696卵の名無しさん (ワッチョイ 0958-O5nL [14.13.16.0 [上級国民]])
2023/08/04(金) 16:25:04.85ID:CPhIRibW0 高校数学スレにはこれが解ける人はいないみたい。
俺はRで数値解が出せたけど。
長さが2,3,4,5,6,7の6本のチョコ棒を組み合わせて最も鋭利な頂点をもつ三角錐を作る。
底面を三角形ABC、頂点をDとし頂点Dが最も鋭利とする。
(1)∠ADB+∠BDC+∠CDAは何度か?
(2)その三角錐の高さを求めよ
(3)その三角錐の体積を求めよ。
(4)その三角錐を図示せよ。
いずれも数値は有効数字3桁でよい。
俺はRで数値解が出せたけど。
長さが2,3,4,5,6,7の6本のチョコ棒を組み合わせて最も鋭利な頂点をもつ三角錐を作る。
底面を三角形ABC、頂点をDとし頂点Dが最も鋭利とする。
(1)∠ADB+∠BDC+∠CDAは何度か?
(2)その三角錐の高さを求めよ
(3)その三角錐の体積を求めよ。
(4)その三角錐を図示せよ。
いずれも数値は有効数字3桁でよい。
697卵の名無しさん (スッップ Sda2-r+G9 [49.98.212.202])
2023/08/04(金) 17:15:24.66ID:qDvgyvpNd 素人相手にも脳内東大合格者の偽医者とか言われてて草
698卵の名無しさん (スッップ Sda2-r+G9 [49.98.212.202])
2023/08/04(金) 17:19:17.79ID:qDvgyvpNd >>696
シカトされてるだけだろアホが
シカトされてるだけだろアホが
700卵の名無しさん (ワッチョイ 0958-5v8d [14.13.16.0])
2023/08/04(金) 17:21:14.90ID:CPhIRibW0701卵の名無しさん (ワッチョイ 0958-5v8d [14.13.16.0])
2023/08/04(金) 17:22:41.28ID:CPhIRibW0702卵の名無しさん (ワッチョイ 0958-5v8d [14.13.16.0])
2023/08/04(金) 17:25:13.97ID:CPhIRibW0 >悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。
ですってwww
>当たり前だろ
>当たり前だろ
>当たり前だろ
とドヤ顔で大間違いを投稿!
typoだと言ったり、
わざと間違えたと言ったり、見苦しいよなぁ。
ですってwww
>当たり前だろ
>当たり前だろ
>当たり前だろ
とドヤ顔で大間違いを投稿!
typoだと言ったり、
わざと間違えたと言ったり、見苦しいよなぁ。
703卵の名無しさん (JP 0H4d-O5nL [146.70.31.52 [上級国民]])
2023/08/04(金) 17:44:48.93ID:LH6ITclIH プログラムできる能力と根気がないと解が出せないからね。それなりに時間もかかる。
概略を考えながら寝て朝に実装。朝飯前の問題シリーズ。
概略を考えながら寝て朝に実装。朝飯前の問題シリーズ。
704卵の名無しさん (アウアウウー Sac5-MkdW [106.128.69.32])
2023/08/04(金) 22:27:25.74ID:KsZ3Q2aga 早朝から発狂かよ
クソコテ以外には荒らしにもゴミ扱いみたいだね
そのクソコテにも脳内だと思われてるあり様
クソコテ以外には荒らしにもゴミ扱いみたいだね
そのクソコテにも脳内だと思われてるあり様
705卵の名無しさん (JP 0H4d-O5nL [146.70.31.52 [上級国民]])
2023/08/04(金) 22:46:58.93ID:LH6ITclIH 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)
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)
706卵の名無しさん (JP 0H4d-O5nL [146.70.31.52 [上級国民]])
2023/08/04(金) 22:53:36.97ID:LH6ITclIH 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)
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)
707卵の名無しさん (JP 0Hd5-swBy [146.70.31.52 [上級国民]])
2023/08/05(土) 06:26:51.63ID:T/2uNk4DH 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()
}
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()
}
708卵の名無しさん (JP 0Hd5-swBy [146.70.31.52 [上級国民]])
2023/08/05(土) 06:39:30.79ID:T/2uNk4DH 朝のお勤めw
Wolframのプレーンテキスト出力をRで使える形式に変換するスクリプトを作成使用していたが、
Wolframはatanをtan^(-1)と表示するのでcotと紛らわしい。
これをatanに変換するようにデバッグ。
sin^(-1)のようにiが含まれるとiが虚数単位なのか否かを判断しなくちゃならんことにも気づいた。デバックした。
Wolframのプレーンテキスト出力をRで使える形式に変換するスクリプトを作成使用していたが、
Wolframはatanをtan^(-1)と表示するのでcotと紛らわしい。
これをatanに変換するようにデバッグ。
sin^(-1)のようにiが含まれるとiが虚数単位なのか否かを判断しなくちゃならんことにも気づいた。デバックした。
709卵の名無しさん (JP 0Hd5-swBy [146.70.31.52 [上級国民]])
2023/08/05(土) 07:07:53.65ID:T/2uNk4DH 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()
}
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()
}
710卵の名無しさん (JP 0Hd5-swBy [146.70.31.52 [上級国民]])
2023/08/05(土) 07:09:02.21ID:T/2uNk4DH 動作確認
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
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
711卵の名無しさん (JP 0Hd5-swBy [146.70.31.52 [上級国民]])
2023/08/05(土) 07:12:50.01ID:T/2uNk4DH 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を含む単語がでてくると誤変換するだろうけど。
{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を含む単語がでてくると誤変換するだろうけど。
712卵の名無しさん (JP 0Hd5-swBy [146.70.31.52 [上級国民]])
2023/08/05(土) 07:15:36.40ID:T/2uNk4DH 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()
}
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()
}
713卵の名無しさん (JP 0Hd5-swBy [146.70.31.52 [上級国民]])
2023/08/05(土) 09:21:55.73ID:T/2uNk4DH 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()
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()
714卵の名無しさん (スプープ Sd22-lp8H [1.73.148.73])
2023/08/05(土) 19:32:38.88ID:iO3zDLfFd 尿瓶ジジイダンマリかよ
715卵の名無しさん (JP 0Hf8-swBy [217.138.212.122 [上級国民]])
2023/08/05(土) 20:12:53.90ID:xeUk+Em+H 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)
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)
716卵の名無しさん (ワッチョイ 22c9-+YZw [59.139.198.126])
2023/08/06(日) 05:40:16.73ID:8o4WLPlZ0 チンパンジーが計算ドリルを電卓叩いてキーキー喚いてるのは滑稽極まりない
717卵の名無しさん (ワッチョイ 2458-i2SF [14.13.16.0])
2023/08/06(日) 05:41:32.76ID:8CLnscyb0 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)))
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)))
718卵の名無しさん (ワッチョイ 2458-i2SF [14.13.16.0])
2023/08/06(日) 05:42:46.20ID:8CLnscyb0 高校数学の質問スレで
>じゃあネットで答えを聞いてもいいのか?
>それのどこが高校数学だよ
ですって
これほどの馬鹿がいるだろうか?
>じゃあネットで答えを聞いてもいいのか?
>それのどこが高校数学だよ
ですって
これほどの馬鹿がいるだろうか?
719卵の名無しさん (アウアウウー Sacb-+YZw [106.128.68.57])
2023/08/06(日) 05:54:02.06ID:sYHzVRqAa 尿瓶ジジイの数学板でのチンパンごっこ()は数学でも算数でもないからトンチンカンなレスしかつかないどころかみんなに馬鹿にされるんだろw
720卵の名無しさん (ワッチョイ 22c9-+YZw [59.139.198.126])
2023/08/06(日) 05:55:15.25ID:8o4WLPlZ0 911:卵の名無しさん:[sage]:2023/07/29(土) 21:38:30.79 ID:JbK1n4r2
アンポンタン、アンポンタン♪
数学できない偽医者♪
アンポンタン、アンポンタン♪
アンポンタン、アンポンタン♪
数学できない偽医者♪
アンポンタン、アンポンタン♪
721卵の名無しさん (ブーイモ MMcd-lnPD [202.214.231.203])
2023/08/06(日) 08:06:53.06ID:cNr8zxB+M722卵の名無しさん (ブーイモ MMcd-lnPD [202.214.231.203])
2023/08/06(日) 08:11:08.43ID:cNr8zxB+M こういうのを作って置くと便利。数値に応じたグラフも出力。
# ================== 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
}
# ================== 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
}
723卵の名無しさん (ブーイモ MMcd-lnPD [202.214.231.203])
2023/08/06(日) 08:11:17.86ID:cNr8zxB+M # 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)
#ノルアドレナリン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)
724卵の名無しさん (アウアウウー Sacb-+YZw [106.128.68.57])
2023/08/06(日) 08:14:27.90ID:sYHzVRqAa >>721
話がまるで通じないチンパンジーにはRも電卓も関係ないだろ
話がまるで通じないチンパンジーにはRも電卓も関係ないだろ
725卵の名無しさん (ブーイモ MMcd-lnPD [202.214.231.203])
2023/08/06(日) 08:16:13.40ID:cNr8zxB+M >>709
パイプなしだと()対応で混乱しそう。
ver4 以後、パイプ表現できるので多用している。
自作できなくはないけど
'%|%' <- function(x,FUN) FUN(x) # パイプ
パイプなしだと()対応で混乱しそう。
ver4 以後、パイプ表現できるので多用している。
自作できなくはないけど
'%|%' <- function(x,FUN) FUN(x) # パイプ
726卵の名無しさん (ブーイモ MMcd-lnPD [202.214.231.203])
2023/08/06(日) 08:17:43.42ID:cNr8zxB+M '%.%' <- 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)
}
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)
}
727卵の名無しさん (ブーイモ MMcd-lnPD [202.214.231.203])
2023/08/06(日) 08:19:46.07ID:cNr8zxB+M >>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
んで、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
728卵の名無しさん (ブーイモ MMcd-lnPD [202.214.231.203])
2023/08/06(日) 08:27:25.23ID:cNr8zxB+M どこの国立を落ちたの?
に答えらないで発狂しているのが尿瓶チンパポンコツタコフェチである。
Q.E.D.
さてはシリツだな?
に答えらないで発狂しているのが尿瓶チンパポンコツタコフェチである。
Q.E.D.
さてはシリツだな?
729卵の名無しさん (スップー Sd22-fPrT [1.73.22.163])
2023/08/06(日) 08:36:59.52ID:OXNG2/+Fd Rとか糞ソフト使ってる日本人の医者周りにはいないけどなwww
フリーソフトなのにそのcodeが本当に正しいって誰が責任持つんだよ
そんなソフトで正式な論文書けないだろ
RでAcceptされてるのはImpact Factor低いクソ論文だけだよ
尿瓶ジジイは学会とか行ったことないんだろうな
フリーソフトなのにそのcodeが本当に正しいって誰が責任持つんだよ
そんなソフトで正式な論文書けないだろ
RでAcceptされてるのはImpact Factor低いクソ論文だけだよ
尿瓶ジジイは学会とか行ったことないんだろうな
730卵の名無しさん (アウアウウー Sacb-+YZw [106.128.68.57])
2023/08/06(日) 09:56:34.57ID:sYHzVRqAa 尿瓶ジジイは脳内だから現実の医者が全く興味ないことでマウントとりたくて必死なんだよなww
731卵の名無しさん (ワッチョイ 22c9-+YZw [59.139.198.126])
2023/08/06(日) 09:59:34.97ID:8o4WLPlZ0 >>727
胆汁ドレナージといいRといいとことん脳内医療丸出しだなマジで
胆汁ドレナージといいRといいとことん脳内医療丸出しだなマジで
732卵の名無しさん (ワッチョイ 5ec7-lnPD [124.47.76.122])
2023/08/06(日) 11:00:27.48ID:BOo6XOy90733卵の名無しさん (ワッチョイ 5ec7-lnPD [124.47.76.122])
2023/08/06(日) 11:02:22.02ID:BOo6XOy90734卵の名無しさん (ワッチョイ 5ec7-lnPD [124.47.76.122])
2023/08/06(日) 11:03:42.84ID:BOo6XOy90 >悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。
ですってwww
>当たり前だろ
>当たり前だろ
>当たり前だろ
とドヤ顔で大間違いを投稿!
typoだと言ったり、
わざと間違えたと言ったり、
恥ずかしくね?
ですってwww
>当たり前だろ
>当たり前だろ
>当たり前だろ
とドヤ顔で大間違いを投稿!
typoだと言ったり、
わざと間違えたと言ったり、
恥ずかしくね?
735卵の名無しさん (ワッチョイ 22c9-+YZw [59.139.198.126])
2023/08/06(日) 11:08:31.71ID:8o4WLPlZ0736卵の名無しさん (アウアウウー Sacb-+YZw [106.128.68.57])
2023/08/06(日) 11:10:20.15ID:sYHzVRqAa 358:132人目の素数さん:[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
話をしたのが懇意なナースだったので、
オペ台や検査台の上での同意は無効になる可能性があるんだけど、
「**してくれるなら****あげる」というベッドでの同意はどう思う?と聞いたら
「娘によく教えておかなくちゃ」と言っていた。(一部脚色w)
医師板における尿瓶ジジイの看護師に関する気色悪いレスをまとめてみました
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
話をしたのが懇意なナースだったので、
オペ台や検査台の上での同意は無効になる可能性があるんだけど、
「**してくれるなら****あげる」というベッドでの同意はどう思う?と聞いたら
「娘によく教えておかなくちゃ」と言っていた。(一部脚色w)
医師板における尿瓶ジジイの看護師に関する気色悪いレスをまとめてみました
737卵の名無しさん (アウアウウー Sacb-+YZw [106.128.68.57])
2023/08/06(日) 11:15:12.57ID:sYHzVRqAa >>733
バグだらけなのはアンタのオツムだろ
バグだらけなのはアンタのオツムだろ
738卵の名無しさん (スップー Sd22-fPrT [1.73.23.145])
2023/08/06(日) 11:31:03.40ID:mqqkSGgrd739卵の名無しさん (アウアウウー Sacb-+YZw [106.128.68.57])
2023/08/06(日) 12:58:26.15ID:sYHzVRqAa 胆汁ドレナージ(商品名を医療用語と勘違い)とか言ってるあたり多分マジだなw
740卵の名無しさん (ワッチョイ 5ec7-lnPD [124.47.76.122])
2023/08/06(日) 13:57:48.56ID:BOo6XOy90 '%.%' <- 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)
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)
741卵の名無しさん (ワッチョイ 5ec7-lnPD [124.47.76.122])
2023/08/06(日) 13:58:15.60ID:BOo6XOy90 アストラップも商品名。
742卵の名無しさん (ワッチョイ 5ec7-lnPD [124.47.76.122])
2023/08/06(日) 13:58:23.70ID:BOo6XOy90 アストラップも商品名。
743卵の名無しさん (ワッチョイ 5ec7-lnPD [124.47.76.122])
2023/08/06(日) 14:01:39.42ID:BOo6XOy90 >>738
コロナ関連の論文はRでの解析が多かったぞ。
国立感染症研究所もRのパッケージを使って潜伏期の分布を近似していた。8割おじさんもRとStanで解析。
コードが公開されていたので自分で走らせてみた。
コロナ関連の論文はRでの解析が多かったぞ。
国立感染症研究所もRのパッケージを使って潜伏期の分布を近似していた。8割おじさんもRとStanで解析。
コードが公開されていたので自分で走らせてみた。
744卵の名無しさん (ワッチョイ 5ec7-lnPD [124.47.76.122])
2023/08/06(日) 14:02:19.43ID:BOo6XOy90 >悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。
ですってwww
>当たり前だろ
>当たり前だろ
>当たり前だろ
とドヤ顔で大間違いを投稿!
typoだと言ったり、
わざと間違えたと言ったり、
哀れだね!
ですってwww
>当たり前だろ
>当たり前だろ
>当たり前だろ
とドヤ顔で大間違いを投稿!
typoだと言ったり、
わざと間違えたと言ったり、
哀れだね!
745卵の名無しさん (ブーイモ MM1a-lnPD [49.239.65.180])
2023/08/06(日) 14:13:04.14ID:t2VeOXVUM これをRで解きたい
四面体OABCは以下の条件を満たす。
(ア)4つの面の面積が全て等しい
(イ)OA⊥BCかつOB⊥CAかつOC⊥AB
この四面体は正四面体か。
四面体OABCは以下の条件を満たす。
(ア)4つの面の面積が全て等しい
(イ)OA⊥BCかつOB⊥CAかつOC⊥AB
この四面体は正四面体か。
746卵の名無しさん (スップー Sd22-fPrT [1.73.22.213])
2023/08/06(日) 14:15:53.37ID:Q1uPZdHdd >>743
話そらすなよ。何で急にFDAとか出てくるんだ?普通の日本人の医者の発想じゃないんだが。
コロナ関係の論文とか曖昧な表現しないで医者ならちゃんとした出典だせや
NEJMとかちゃんとしたやつな
話そらすなよ。何で急にFDAとか出てくるんだ?普通の日本人の医者の発想じゃないんだが。
コロナ関係の論文とか曖昧な表現しないで医者ならちゃんとした出典だせや
NEJMとかちゃんとしたやつな
747卵の名無しさん (ワッチョイ 5ec7-lnPD [124.47.76.122])
2023/08/06(日) 15:59:12.69ID:BOo6XOy90748卵の名無しさん (ワッチョイ 5ec7-lnPD [124.47.76.122])
2023/08/06(日) 16:01:30.33ID:BOo6XOy90749卵の名無しさん (アウアウウー Sacb-+YZw [106.128.68.57])
2023/08/06(日) 16:31:33.80ID:sYHzVRqAa 65:132人目の素数さん:[sage]:2023/08/05(土) 17:16:30.56 ID:AoYbbVsJ
>>61
君たちシダイ卒が求めているようなので貼ってやった。
東大卒による妥当性の検証を希望。
67:132人目の素数さん:2023/08/06(日) 00:26:23.88 ID:5u5eLA7R
ちなみに>>64で歌われてる「数学できない偽医者」ってのが>>65のことね。
こういうイカレた爺さんにならないようにね。>良い子のみなさん
91:132人目の素数さん:[sage]:2023/08/06(日) 13:04:35.89 ID:Nm44ICz6
>>67
残念でした別人です。
俺はシリツと呼んでいるから。
観察力が乏しいね、さてはシリツだな!?
つまり>>65ではなく自分こそが「数学できない偽医者」ですと言いたいようです
>>61
君たちシダイ卒が求めているようなので貼ってやった。
東大卒による妥当性の検証を希望。
67:132人目の素数さん:2023/08/06(日) 00:26:23.88 ID:5u5eLA7R
ちなみに>>64で歌われてる「数学できない偽医者」ってのが>>65のことね。
こういうイカレた爺さんにならないようにね。>良い子のみなさん
91:132人目の素数さん:[sage]:2023/08/06(日) 13:04:35.89 ID:Nm44ICz6
>>67
残念でした別人です。
俺はシリツと呼んでいるから。
観察力が乏しいね、さてはシリツだな!?
つまり>>65ではなく自分こそが「数学できない偽医者」ですと言いたいようです
750卵の名無しさん (スップー Sd22-fPrT [1.73.22.213])
2023/08/06(日) 17:09:17.76ID:Q1uPZdHdd >>747
結局、話反らして誤魔化すしか出来ないんだなwww医者なら論文の話をしてるのに普通FDAの話題なんて出さない
お前、どうせ管財課か何かだろ?じゃないと
論文の話してるのに急にFDAの話題なんて出さないよな
FDAって医薬品とか医療機器を仕切ってるアメリカの機関だぞ
Rでオッケーだからどうとかいう問題では無いしそれが理解出来ないなら医者じゃねーよ
医者じゃないから統計ソフトも金のかからんフリーソフト使ってるんだろ?普通はSASとかSPSS使うだろ
結局、話反らして誤魔化すしか出来ないんだなwww医者なら論文の話をしてるのに普通FDAの話題なんて出さない
お前、どうせ管財課か何かだろ?じゃないと
論文の話してるのに急にFDAの話題なんて出さないよな
FDAって医薬品とか医療機器を仕切ってるアメリカの機関だぞ
Rでオッケーだからどうとかいう問題では無いしそれが理解出来ないなら医者じゃねーよ
医者じゃないから統計ソフトも金のかからんフリーソフト使ってるんだろ?普通はSASとかSPSS使うだろ
751卵の名無しさん (スップー Sd22-fPrT [1.73.22.213])
2023/08/06(日) 17:16:02.67ID:Q1uPZdHdd752卵の名無しさん (ワッチョイ 5ec7-lnPD [124.47.76.122])
2023/08/06(日) 18:06:24.50ID:BOo6XOy90 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))
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))
753卵の名無しさん (ワッチョイ 5ec7-lnPD [124.47.76.122])
2023/08/06(日) 18:06:32.07ID:BOo6XOy90 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))
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))
754卵の名無しさん (ワッチョイ 5ec7-lnPD [124.47.76.122])
2023/08/06(日) 18:07:30.27ID:BOo6XOy90 >>750
Rの話だが、あんたR使えないシリツかよ?
Rの話だが、あんたR使えないシリツかよ?
755卵の名無しさん (アウアウウー Sacb-+YZw [106.128.71.148])
2023/08/06(日) 19:34:45.47ID:4URt9vlxa >>754
金なしだから医者が使わないRで発狂してんだろ?
金なしだから医者が使わないRで発狂してんだろ?
756卵の名無しさん (アウアウウー Sacb-+YZw [106.128.71.148])
2023/08/06(日) 19:37:09.12ID:4URt9vlxa757卵の名無しさん (アウアウウー Sacb-+YZw [106.128.71.148])
2023/08/06(日) 19:38:33.81ID:4URt9vlxa >>754
R使った論文さっさと出せよ尿瓶クソジジイ
R使った論文さっさと出せよ尿瓶クソジジイ
758卵の名無しさん (アウアウウー Sacb-+YZw [106.128.71.41])
2023/08/06(日) 19:46:54.86ID:fn2ZpMaBa 924:132人目の素数さん:[sage]:2023/08/06(日) 13:09:49.53 ID:zTuxlWyc
>>923
やっぱ医者じゃないんだな
頭悪いのに変だと思ったわ
これが現実だよ尿瓶ジジイ
>>923
やっぱ医者じゃないんだな
頭悪いのに変だと思ったわ
これが現実だよ尿瓶ジジイ
759卵の名無しさん (ワッチョイ 5276-Rxlw [223.219.76.206])
2023/08/06(日) 21:24:19.99ID:FizP/rDL0 こないだm3を見たら、患者がいきなり出身校を聞いてきて非常に失礼だ!と怒ってる書き込みがあったけど
知りたがる神経質な患者がいるのは当然だし、知られて困るもんでもないので正直に答えてきたんだがやはり底辺私立医か?
知りたがる神経質な患者がいるのは当然だし、知られて困るもんでもないので正直に答えてきたんだがやはり底辺私立医か?
760卵の名無しさん (ワッチョイ a458-fPrT [106.73.2.65])
2023/08/06(日) 22:03:21.48ID:2sD/rCEJ0761卵の名無しさん (アウアウウー Sacb-+YZw [106.128.70.84])
2023/08/06(日) 22:45:11.49ID:0K8PYmyga762卵の名無しさん (ブーイモ MM1a-lnPD [49.239.67.161])
2023/08/07(月) 08:45:02.62ID:ULIxRH8SM O(0,0,0) A(0,0,100)として
等面積条件は三角形の2辺の外積ベクトルの長さが4つの三角形で等しい、直交条件はベクトルの内積が0として計算。
Σ(外積ベクトルの長さの差)^2 + Σ内積^2 を返す関数を作って
初期値は乱数発生させてL-BFGS-B法にてこの関数の返す値が0になるようなB,Cの座標を探索させて四面体の辺の長さを求める。
これがすべて100であれば正四面体と判定。
等面積条件は三角形の2辺の外積ベクトルの長さが4つの三角形で等しい、直交条件はベクトルの内積が0として計算。
Σ(外積ベクトルの長さの差)^2 + Σ内積^2 を返す関数を作って
初期値は乱数発生させてL-BFGS-B法にてこの関数の返す値が0になるようなB,Cの座標を探索させて四面体の辺の長さを求める。
これがすべて100であれば正四面体と判定。
763卵の名無しさん (ブーイモ MM1a-lnPD [49.239.67.161])
2023/08/07(月) 08:46:22.30ID:ULIxRH8SM 重要なclinical pearl
女をみたら妊婦と思え
シリツ医をみたら裏口と思え
女をみたら妊婦と思え
シリツ医をみたら裏口と思え
764卵の名無しさん (アウアウウー Sacb-+YZw [106.128.69.93])
2023/08/07(月) 09:04:49.93ID:JgDyrRn4a アホなレスを見かけたら尿瓶ジジイと思え
765卵の名無しさん (ブーイモ MM1a-lnPD [49.239.67.161])
2023/08/07(月) 11:11:09.97ID:ULIxRH8SM766卵の名無しさん (ブーイモ MM1a-lnPD [49.239.67.161])
2023/08/07(月) 11:12:52.15ID:ULIxRH8SM その話をしたら外来ナースもよく聞かれると言っていた。
シリツ医のときは私達は知らされていませんと答えることにしていると。
シリツ医のときは私達は知らされていませんと答えることにしていると。
767卵の名無しさん (ブーイモ MM1a-lnPD [49.239.67.161])
2023/08/07(月) 11:14:48.20ID:ULIxRH8SM768卵の名無しさん (ブーイモ MM1a-lnPD [49.239.67.161])
2023/08/07(月) 11:15:40.66ID:ULIxRH8SM769卵の名無しさん (ブーイモ MM1a-lnPD [49.239.67.161])
2023/08/07(月) 11:17:28.84ID:ULIxRH8SM >>759
教員、とりわけ校長とか教頭に、偏差値で判断する患者が多いと思う。同僚も同じ印象を持っていた。
教員、とりわけ校長とか教頭に、偏差値で判断する患者が多いと思う。同僚も同じ印象を持っていた。
770卵の名無しさん (ブーイモ MM1a-lnPD [49.239.67.161])
2023/08/07(月) 11:23:10.82ID:ULIxRH8SM 教員だと、あの学力でシリツ医学部合格=裏口とわかっているからだろうな。
771卵の名無しさん (ブーイモ MM1a-lnPD [49.239.67.161])
2023/08/07(月) 11:24:47.07ID:ULIxRH8SM772卵の名無しさん (ワッチョイ ce12-+YZw [153.137.214.121])
2023/08/07(月) 11:39:10.88ID:7YNAljMk0 尿瓶ジジイよりアホな患者なんていないだろ
773卵の名無しさん (アウアウウー Sacb-+YZw [106.128.69.216])
2023/08/07(月) 11:39:58.89ID:1hB4n964a で、脳内卒業証書と医師免許はまだか?
774卵の名無しさん (ワッチョイ ce12-+YZw [153.137.214.121])
2023/08/07(月) 12:06:49.89ID:7YNAljMk0775卵の名無しさん (ワッチョイ b276-Rxlw [223.218.117.45])
2023/08/07(月) 12:57:01.26ID:BV3idkh10776卵の名無しさん (スップー Sd22-fPrT [1.73.21.21])
2023/08/07(月) 17:52:25.34ID:x5Kk+yeLd777卵の名無しさん (ワッチョイ ce12-+YZw [153.137.214.121])
2023/08/07(月) 17:55:30.85ID:7YNAljMk0 尿瓶ジジイじゃないと思うそいつ
778卵の名無しさん (ワッチョイ 2458-i2SF [14.13.16.0])
2023/08/07(月) 17:58:09.14ID:TfKU7SHu0779卵の名無しさん (アウアウウー Sacb-+YZw [106.128.71.197])
2023/08/07(月) 17:59:51.15ID:DXkLQDmpa >>778
で、Rを使った論文まだかよ?
で、Rを使った論文まだかよ?
780卵の名無しさん (ワッチョイ 2458-i2SF [14.13.16.0])
2023/08/07(月) 18:02:57.87ID:TfKU7SHu0 鯛のアラを使って鯛めしを妻とママごと。
グリルで焼いてから出汁を取ると実に旨くて(・∀・)イイ!!
とうもろこしの青のり塩での味付けも合格点。
まあ、バターコーンの旨さには勝てんが。
グリルで焼いてから出汁を取ると実に旨くて(・∀・)イイ!!
とうもろこしの青のり塩での味付けも合格点。
まあ、バターコーンの旨さには勝てんが。
781卵の名無しさん (ワッチョイ 2458-i2SF [14.13.16.0])
2023/08/07(月) 18:03:48.84ID:TfKU7SHu0 >>779
んであんたR使えないシリツ医だろ?
んであんたR使えないシリツ医だろ?
782卵の名無しさん (ワッチョイ 2458-i2SF [14.13.16.0])
2023/08/07(月) 18:04:25.07ID:TfKU7SHu0 重要なclinical pearl
女をみたら妊婦と思え
シリツ医をみたら裏口と思え
女をみたら妊婦と思え
シリツ医をみたら裏口と思え
783卵の名無しさん (ワッチョイ 2458-i2SF [14.13.16.0])
2023/08/07(月) 18:05:21.86ID:TfKU7SHu0 ド底辺シリツ卒でもこんな間違いはしない。
>悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。
ですってwww
>当たり前だろ
>当たり前だろ
>当たり前だろ
とドヤ顔で大間違いを投稿!
typoだと言ったり、
わざと間違えたと言ったり、見苦しいよなぁ。
>悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。
ですってwww
>当たり前だろ
>当たり前だろ
>当たり前だろ
とドヤ顔で大間違いを投稿!
typoだと言ったり、
わざと間違えたと言ったり、見苦しいよなぁ。
784卵の名無しさん (ワッチョイ 2458-i2SF [14.13.16.0])
2023/08/07(月) 18:06:58.69ID:TfKU7SHu0785卵の名無しさん (アウアウウー Sacb-+YZw [106.128.71.197])
2023/08/07(月) 18:07:51.00ID:DXkLQDmpa R使った論文なんかないからそうやって発狂するしか能がないのか
脳内医者はチープだねw
脳内医者はチープだねw
786卵の名無しさん (ワッチョイ 2458-i2SF [14.13.16.0])
2023/08/07(月) 18:09:35.83ID:TfKU7SHu0787卵の名無しさん (スップー Sd22-fPrT [1.73.21.21])
2023/08/07(月) 18:17:14.15ID:x5Kk+yeLd 8割おじさんとかぼろくそに言われてるけどwww
Rとか使ってるから駄目ってことか
読んだことないけど
Rとか使ってるから駄目ってことか
読んだことないけど
788卵の名無しさん (アウアウウー Sacb-+YZw [106.128.69.86])
2023/08/07(月) 18:52:32.92ID:5unrq0o1a お医者さんごっこもあまりにアホすぎると素人にもバレバレなんだねw
790卵の名無しさん (ワッチョイ b276-Rxlw [223.218.117.45])
2023/08/07(月) 19:33:37.89ID:BV3idkh10 >>776
ここで表示される自分のIDを紙に書いて、現物と一緒に写真に撮るんだよ、本物だと証明するために
ここで表示される自分のIDを紙に書いて、現物と一緒に写真に撮るんだよ、本物だと証明するために
792卵の名無しさん (ワッチョイ 0824-swBy [149.50.210.2 [上級国民]])
2023/08/08(火) 02:23:45.54ID:9Rchc0KK0 '%.%' <- 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)))
}
}
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)))
}
}
793卵の名無しさん (ワッチョイ 0824-swBy [149.50.210.2 [上級国民]])
2023/08/08(火) 02:24:06.59ID:9Rchc0KK0 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)
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)
794卵の名無しさん (ワッチョイ 0824-swBy [149.50.210.2 [上級国民]])
2023/08/08(火) 02:37:53.39ID:9Rchc0KK0 重要なclinical pearl
女をみたら妊婦と思え
シリツ医をみたら裏口と思え
医師国家試験に出題してもいいくらいだなぁw
女をみたら妊婦と思え
シリツ医をみたら裏口と思え
医師国家試験に出題してもいいくらいだなぁw
795卵の名無しさん (ワッチョイ 0824-swBy [149.50.210.2 [上級国民]])
2023/08/08(火) 02:41:12.41ID:9Rchc0KK0796卵の名無しさん (ワッチョイ 0824-swBy [149.50.210.2 [上級国民]])
2023/08/08(火) 02:42:27.35ID:9Rchc0KK0 真実を語る者が追い詰められる社会だよなぁ。
https://livedoor.blogimg.jp/oomonoyoutuber/imgs/5/f/5f1af8c7.jpg
https://livedoor.blogimg.jp/oomonoyoutuber/imgs/5/f/5f1af8c7.jpg
797卵の名無しさん (ワッチョイ 0824-swBy [149.50.210.2 [上級国民]])
2023/08/08(火) 02:47:34.76ID:9Rchc0KK0798卵の名無しさん (ワッチョイ 0824-swBy [149.50.210.2 [上級国民]])
2023/08/08(火) 02:48:58.17ID:9Rchc0KK0799卵の名無しさん (ワッチョイ 0824-swBy [149.50.210.2 [上級国民]])
2023/08/08(火) 02:59:02.62ID:9Rchc0KK0800卵の名無しさん (ワッチョイ 0824-swBy [149.50.210.2 [上級国民]])
2023/08/08(火) 03:01:44.66ID:9Rchc0KK0801卵の名無しさん (スップ Sd14-fPrT [49.96.233.30])
2023/08/08(火) 07:42:16.68ID:78Ru2Ca7d >>797
アホだなwww
この論文は査読前のacceptされてないやつじゃねーか
論文集めてるサーバーにただ置いてるだけ
医者からしたら何の信頼性もない論文なのに何でドヤ顔で出してるんだよ!
普通の医者なら気づくけどな
やっぱお前医者じゃないだろ
アホだなwww
この論文は査読前のacceptされてないやつじゃねーか
論文集めてるサーバーにただ置いてるだけ
医者からしたら何の信頼性もない論文なのに何でドヤ顔で出してるんだよ!
普通の医者なら気づくけどな
やっぱお前医者じゃないだろ
802卵の名無しさん (スップ Sd14-fPrT [49.96.233.30])
2023/08/08(火) 07:53:20.27ID:78Ru2Ca7d >>799
ちなみにそれもブログレベルの話で、信憑性にかけるだろ
そもそも、RをFDAが使ってるとしても論文として出してないんだったら世界レベルで信用されてることにならない
だからわざわざ資料って書いてるだろ?
やっぱお前どう考えても医者じゃないわ
発想が素人のそれwww
ちなみにそれもブログレベルの話で、信憑性にかけるだろ
そもそも、RをFDAが使ってるとしても論文として出してないんだったら世界レベルで信用されてることにならない
だからわざわざ資料って書いてるだろ?
やっぱお前どう考えても医者じゃないわ
発想が素人のそれwww
803卵の名無しさん (アウアウウー Sacb-IPGJ [106.128.71.58])
2023/08/08(火) 08:47:12.08ID:o8NGUI8ha804卵の名無しさん (アウアウウー Sacb-IPGJ [106.128.71.58])
2023/08/08(火) 08:48:14.68ID:o8NGUI8ha805卵の名無しさん (アウアウウー Sacb-IPGJ [106.128.68.204])
2023/08/08(火) 16:08:42.68ID:Wr79/XTba おい尿瓶ジジイ
R使ったまともな論文はどうしたんだよ?さっさと出せよ
R使ったまともな論文はどうしたんだよ?さっさと出せよ
806卵の名無しさん (ワッチョイ 0824-swBy [149.50.210.17 [上級国民]])
2023/08/08(火) 16:27:39.23ID:G5rvunoO0 ド底辺シリツ卒でもこんな間違いはしない。
>悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。
ですってwww
>当たり前だろ
>当たり前だろ
>当たり前だろ
とドヤ顔で大間違いを投稿!
typoだと言ったり、
わざと間違えたと言ったり、見苦しいよなぁ。
>悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。
ですってwww
>当たり前だろ
>当たり前だろ
>当たり前だろ
とドヤ顔で大間違いを投稿!
typoだと言ったり、
わざと間違えたと言ったり、見苦しいよなぁ。
807卵の名無しさん (ワッチョイ 0824-swBy [149.50.210.17 [上級国民]])
2023/08/08(火) 16:27:55.83ID:G5rvunoO0 >762をRに実装することすらできないってド底辺シリツの予感。
ド底辺シリツ未満だな。
ド底辺シリツ卒でもこんな間違いはしない。
>悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。
ですってwww
>当たり前だろ
>当たり前だろ
>当たり前だろ
とドヤ顔で大間違いを投稿!
typoだと言ったり、
わざと間違えたと言ったり、見苦しいよなぁ。
ド底辺シリツ未満だな。
ド底辺シリツ卒でもこんな間違いはしない。
>悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。
ですってwww
>当たり前だろ
>当たり前だろ
>当たり前だろ
とドヤ顔で大間違いを投稿!
typoだと言ったり、
わざと間違えたと言ったり、見苦しいよなぁ。
808卵の名無しさん (ワッチョイ 0824-swBy [149.50.210.17 [上級国民]])
2023/08/08(火) 16:28:54.01ID:G5rvunoO0 バターコーンは高カロリーなので、今日はカレー味にしてみた。
SBの赤缶使用。
SBの赤缶使用。
809卵の名無しさん (アウアウウー Sacb-IPGJ [106.128.68.21])
2023/08/08(火) 16:58:03.59ID:LcOKde8ta 尿瓶またコピペで発狂w
810卵の名無しさん (JP 0Hc8-fPrT [202.253.111.210])
2023/08/08(火) 21:30:35.41ID:GMfbsjcyH 尿瓶ジジイクソ雑魚過ぎてつまんねぇぞ
もう少し頑張れよ・・・
論文ぐらいググれば出てくるだろ!
それすら出来ねぇとかどんだけ能力低いんだよ・・・
料理のことしか書かないなら料理板行けよ
もう少し頑張れよ・・・
論文ぐらいググれば出てくるだろ!
それすら出来ねぇとかどんだけ能力低いんだよ・・・
料理のことしか書かないなら料理板行けよ
811卵の名無しさん (スッププ Sdc2-7AGF [49.105.74.104])
2023/08/09(水) 08:23:48.91ID:pY8Seg/xd 2014年に福岡県鞍手町で谷尾幸生さん夫妻を殺害した
「ネトゲ実況板のマナ公」が若い女性にストーカー行為を働いてます
以下に該当する女性をご存知の方は危険を伝えるようお願いします
・現在の年齢が28歳前後、名前の読みが「りか」
・約3年前に福岡市周辺の障害者デイケアに参加または勤務していた
・そこで20歳年上の精神障害者の男性に言い寄られてLINEブロックした
0930 既にその名前は使われています 2023/08/08(火) 11:15:17.49
マナちゃんは一生処女だろうね
りかちゃんは俺が奪うけど、これは宿命
逢えるのはいつになるのだろうか…
ID:Sr19Far8(24/25)
マナ公のTikTok(殺人の前歴がありながら堂々と顔出し)
kazra2020
マナ公のTwitter
メドローア最強@DQW
@medlorerika
「ネトゲ実況板のマナ公」が若い女性にストーカー行為を働いてます
以下に該当する女性をご存知の方は危険を伝えるようお願いします
・現在の年齢が28歳前後、名前の読みが「りか」
・約3年前に福岡市周辺の障害者デイケアに参加または勤務していた
・そこで20歳年上の精神障害者の男性に言い寄られてLINEブロックした
0930 既にその名前は使われています 2023/08/08(火) 11:15:17.49
マナちゃんは一生処女だろうね
りかちゃんは俺が奪うけど、これは宿命
逢えるのはいつになるのだろうか…
ID:Sr19Far8(24/25)
マナ公のTikTok(殺人の前歴がありながら堂々と顔出し)
kazra2020
マナ公のTwitter
メドローア最強@DQW
@medlorerika
812卵の名無しさん (アウアウウー Sacb-IPGJ [106.128.69.60])
2023/08/09(水) 09:01:37.29ID:jb61gbTOa >>810
また認知症がひどくなったみたいだね尿瓶ジジイさん
また認知症がひどくなったみたいだね尿瓶ジジイさん
813卵の名無しさん (ワッチョイ 2458-swBy [14.13.16.0 [上級国民]])
2023/08/09(水) 18:11:37.92ID:IRzyrZyU0 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)
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)
814卵の名無しさん (ワッチョイ dcb1-F7oX [126.169.105.68])
2023/08/09(水) 20:23:43.27ID:G8EIyKgG0 医学部医学科の格付け
SSS 東京大学(理科三類)
SS 京都大学
S 大阪大学 慶応義塾大学
--------------- 東大理一の壁 ---------------
A+ 東北大学 東京医科歯科大学 千葉大学 名古屋大学 京都府立医科大学 九州大学
A- 北海道大学 東京大学(理科二類) 横浜市立大学 大阪市立大学 神戸大学 岡山大学
B+ 筑波大学 金沢大学 広島大学 熊本大学 防衛医科大学校
B- 新潟大学 名古屋市立大学 奈良県立医科大学 長崎大学 自治医科大学 東京慈恵会医科大学
--------------- 京大上位学部(薬学部・理学部)の壁 ---------------
C+ 群馬大学 信州大学 岐阜大学 三重大学 和歌山県立医科大学 鹿児島大学 順天堂大学
C 弘前大学 鳥取大学 山口大学 徳島大学 日本医科大学 大阪医科大学
C- 札幌医科大学 福島県立医科大学 山梨大学 浜松医科大学 滋賀医科大学 産業医科大学 関西医科大学
--------------- 京大工学部の壁 ---------------
D+ 山形大学 富山大学 福井大学 香川大学 愛媛大学 大分大学 昭和大学 東京医科大学
D- 旭川医科大学 秋田大学 島根大学 高知大学 佐賀大学 宮崎大学 琉球大学 日本大学 東邦大学
--------------- 京大農学部、東工大の壁 ---------------
E+ 岩手医科大学 東北医科薬科大学 東京女子医科大学 国際医療福祉大学 近畿大学 福岡大学 久留米大学
E- 独協医科大学 埼玉医科大学 北里大学 杏林大学
--------------- 早慶理工の壁 ---------------
F 帝京大学 東海大学 聖マリアンナ医科大学 愛知医科大学 藤田保健衛生大学 金沢医科大学 兵庫医科大学 川崎医科大学
--------------- 上智理工、理科大、同志社理工の壁 ------
SSS 東京大学(理科三類)
SS 京都大学
S 大阪大学 慶応義塾大学
--------------- 東大理一の壁 ---------------
A+ 東北大学 東京医科歯科大学 千葉大学 名古屋大学 京都府立医科大学 九州大学
A- 北海道大学 東京大学(理科二類) 横浜市立大学 大阪市立大学 神戸大学 岡山大学
B+ 筑波大学 金沢大学 広島大学 熊本大学 防衛医科大学校
B- 新潟大学 名古屋市立大学 奈良県立医科大学 長崎大学 自治医科大学 東京慈恵会医科大学
--------------- 京大上位学部(薬学部・理学部)の壁 ---------------
C+ 群馬大学 信州大学 岐阜大学 三重大学 和歌山県立医科大学 鹿児島大学 順天堂大学
C 弘前大学 鳥取大学 山口大学 徳島大学 日本医科大学 大阪医科大学
C- 札幌医科大学 福島県立医科大学 山梨大学 浜松医科大学 滋賀医科大学 産業医科大学 関西医科大学
--------------- 京大工学部の壁 ---------------
D+ 山形大学 富山大学 福井大学 香川大学 愛媛大学 大分大学 昭和大学 東京医科大学
D- 旭川医科大学 秋田大学 島根大学 高知大学 佐賀大学 宮崎大学 琉球大学 日本大学 東邦大学
--------------- 京大農学部、東工大の壁 ---------------
E+ 岩手医科大学 東北医科薬科大学 東京女子医科大学 国際医療福祉大学 近畿大学 福岡大学 久留米大学
E- 独協医科大学 埼玉医科大学 北里大学 杏林大学
--------------- 早慶理工の壁 ---------------
F 帝京大学 東海大学 聖マリアンナ医科大学 愛知医科大学 藤田保健衛生大学 金沢医科大学 兵庫医科大学 川崎医科大学
--------------- 上智理工、理科大、同志社理工の壁 ------
815卵の名無しさん (アウアウウー Sacb-IPGJ [106.128.69.173])
2023/08/10(木) 07:27:55.47ID:mV+LJmOYa 尿瓶ジジイまた数学板で発狂中
816卵の名無しさん (JP 0Hf8-swBy [217.138.252.98 [上級国民]])
2023/08/10(木) 07:32:06.82ID:Mskly8ggH 直径10cm 高さ5cmの中華饅頭(球を平面で切断した形、球欠 spherical segmentとして計算)を中心から3cm 離れたところで包丁で切ったときの断面積を計算せよ。
答は有効数字3桁でよい。
参考画像 https://img1.kakaku.k-img.com/images/maga/11028/04.jpg
答は有効数字3桁でよい。
参考画像 https://img1.kakaku.k-img.com/images/maga/11028/04.jpg
817卵の名無しさん (アウアウウー Sacb-IPGJ [106.128.69.173])
2023/08/10(木) 20:33:56.33ID:mV+LJmOYa チンパンジーは生ゴミでも食ってろ
818卵の名無しさん (JP 0Hf8-swBy [217.138.212.122 [上級国民]])
2023/08/11(金) 06:15:28.23ID:WFgOkZ+xH 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
}
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
}
819卵の名無しさん (JP 0Hf8-swBy [217.138.212.122 [上級国民]])
2023/08/11(金) 07:40:50.24ID:WFgOkZ+xH "
半径1の球の表面および内部から無作為に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の球の表面および内部から無作為に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)
820卵の名無しさん (JP 0Hf8-swBy [217.138.212.122 [上級国民]])
2023/08/11(金) 17:02:11.89ID:WFgOkZ+xH どの面の面積も等しく、ある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)
}
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)
}
821卵の名無しさん (ワッチョイ 7f58-e563 [14.13.16.0 [上級国民]])
2023/08/12(土) 18:43:55.37ID:hE0YxBJe0 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)
}
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)
}
822卵の名無しさん (JP 0Hb2-FnP7 [217.138.212.122 [上級国民]])
2023/08/12(土) 19:00:14.86ID:NTQGy9PqH 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)
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)
823卵の名無しさん (JP 0Hb2-FnP7 [217.138.212.122 [上級国民]])
2023/08/12(土) 19:00:29.12ID:NTQGy9PqH > addon2int(0.05,120)
元利均等返済 元金均等返済
年利 0.08689224 0.09917355
元利均等返済 元金均等返済
年利 0.08689224 0.09917355
824卵の名無しさん (JP 0H03-FnP7 [146.70.31.52 [上級国民]])
2023/08/13(日) 06:23:40.12ID:30EpRvIzH 長さが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
底面を三角形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卵の名無しさん (アウアウキー Sab7-eBN6 [182.251.23.123])
2023/08/13(日) 10:22:31.24ID:hCmtcqpIa 尿瓶ジジイ数学板でももう相手にされてないみたい
日本中を騒がせた某教祖みたいにブツブツ何か言ってるだけ
日本中を騒がせた某教祖みたいにブツブツ何か言ってるだけ
826卵の名無しさん (ワッチョイ 7f58-e563 [14.13.16.0 [上級国民]])
2023/08/13(日) 14:01:44.54ID:e8Wi33VE0827卵の名無しさん (アウアウキー Sab7-eBN6 [182.251.32.188])
2023/08/13(日) 14:20:50.07ID:Pticxi9Ga828卵の名無しさん (RU 0H3b-FnP7 [80.66.69.29 [上級国民]])
2023/08/13(日) 16:23:51.80ID:S2lyrM4lH829卵の名無しさん (RU 0H3b-FnP7 [80.66.69.18 [上級国民]])
2023/08/13(日) 16:36:19.86ID:qn/UONEYH 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()
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()
830卵の名無しさん (アウアウキー Sab7-eBN6 [182.251.32.188])
2023/08/13(日) 17:18:07.36ID:Pticxi9Ga831卵の名無しさん (アウアウキー Sab7-eBN6 [182.251.32.188])
2023/08/13(日) 17:27:15.02ID:Pticxi9Ga 49:132人目の素数さん:[sage]:2023/08/13(日) 14:05:02.12 ID:cES63u1X
マネーリタラシーのある人のための練習問題
「利息制限法の上限金利15%で月々25万ずつ25年ローンで返済するとして借りられる元金はなんぼや?」
どうも尿瓶チンパポンコツフェチのキーキー電卓は金利計算対応していないようだ。
こんなマヌケなレスするやつのどこが医者なん?w
リタラシーww
マネーリタラシーのある人のための練習問題
「利息制限法の上限金利15%で月々25万ずつ25年ローンで返済するとして借りられる元金はなんぼや?」
どうも尿瓶チンパポンコツフェチのキーキー電卓は金利計算対応していないようだ。
こんなマヌケなレスするやつのどこが医者なん?w
リタラシーww
832卵の名無しさん (JP 0H03-FnP7 [146.70.76.185 [上級国民]])
2023/08/13(日) 18:35:10.06ID:DUnW1R9sH 尿瓶おまる洗浄係と違って臨床やっていると実体験に基づいてこういう投稿ができる。
https://egg.5ch.net/test/read.cgi/c/hosp/1674440770/211
支持するレスがついたな。
https://egg.5ch.net/test/read.cgi/c/hosp/1674440770/211
支持するレスがついたな。
833卵の名無しさん (アウアウキー Sab7-eBN6 [182.251.32.188])
2023/08/13(日) 18:56:20.14ID:Pticxi9Ga どこが支持だよ脳内医者
834卵の名無しさん (JP 0H03-FnP7 [146.70.76.185 [上級国民]])
2023/08/14(月) 07:16:59.03ID:lOjCl5CzH 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
}
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
}
835卵の名無しさん (JP 0H03-FnP7 [146.70.76.185 [上級国民]])
2023/08/14(月) 07:21:07.66ID:lOjCl5CzH836卵の名無しさん (JP 0H03-FnP7 [146.70.76.185 [上級国民]])
2023/08/14(月) 07:27:41.79ID:lOjCl5CzH 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
}
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
}
837卵の名無しさん (ブーイモ MMee-20OZ [133.159.152.55])
2023/08/14(月) 08:41:02.76ID:gtktrR2OM 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)
}
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)
}
838卵の名無しさん (ブーイモ MMee-20OZ [133.159.152.55])
2023/08/14(月) 11:50:11.82ID:gtktrR2OM 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))
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))
839卵の名無しさん (JP 0Hfe-eBN6 [61.199.225.248])
2023/08/14(月) 12:55:40.97ID:8/MmQB6PH 684:卵の名無しさん (スッププ Sda2-Xleb [49.105.85.56]):[sage]:2023/08/03(木) 17:32:32.22 ID:69uB5F4Yd
尿瓶ジジイも自分の分をわきまえたのか
間違った脳内医療をここに晒すことはなくなったなwww偉いじゃん
尿瓶ジジイは内視鏡スレには現れるのに、消化器専門医スレには現れない
何故なんでしょうねwww
ヒント:内視鏡はコメディカルでもある程度理解できます!
尿瓶ジジイも自分の分をわきまえたのか
間違った脳内医療をここに晒すことはなくなったなwww偉いじゃん
尿瓶ジジイは内視鏡スレには現れるのに、消化器専門医スレには現れない
何故なんでしょうねwww
ヒント:内視鏡はコメディカルでもある程度理解できます!
840卵の名無しさん (アウアウキー Sab7-eBN6 [182.251.27.76])
2023/08/14(月) 12:57:46.36ID:iX2BHMk9a あとそれぞれ専門科があるのにいちいち経験でマウントとろうとするのも愚の骨頂なw
脳内医者は何でもできる設定みたいだが
脳内医者は何でもできる設定みたいだが
841卵の名無しさん (アウアウキー Sab7-eBN6 [182.251.27.76])
2023/08/14(月) 13:01:59.58ID:iX2BHMk9a 尿瓶リタラシージジイはいつまで恥を晒し続けるのか
842卵の名無しさん (JP 0H03-FnP7 [146.70.76.185 [上級国民]])
2023/08/14(月) 13:38:32.43ID:lOjCl5CzH > 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
> 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
843卵の名無しさん (ワッチョイ 7f58-e563 [14.13.16.0 [上級国民]])
2023/08/14(月) 14:12:38.54ID:0qVMbDv90 >>840
Rは専門を問わず使えた方がいい。
Rは専門を問わず使えた方がいい。
844卵の名無しさん (ワッチョイ 7f58-e563 [14.13.16.0 [上級国民]])
2023/08/14(月) 14:13:36.77ID:0qVMbDv90 専門が何であれ
>悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。
ですってwww
>当たり前だろ
>当たり前だろ
>当たり前だろ
とドヤ顔で大間違い!
typoだと言ったり、
わざと間違えたと言ったり、見苦しいよなぁ。
>悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。
ですってwww
>当たり前だろ
>当たり前だろ
>当たり前だろ
とドヤ顔で大間違い!
typoだと言ったり、
わざと間違えたと言ったり、見苦しいよなぁ。
845卵の名無しさん (ワッチョイ 7f58-e563 [14.13.16.0 [上級国民]])
2023/08/14(月) 14:15:05.22ID:0qVMbDv90 ジョーカーを含めた53枚のトランプから無作為に5枚を選ぶ
(1)フラッシュの確率を求めよ。
(2)ストレートの確率を求めよ。
(3)ストレートフラッシュの確率を求めよ。
(1)フラッシュの確率を求めよ。
(2)ストレートの確率を求めよ。
(3)ストレートフラッシュの確率を求めよ。
846卵の名無しさん (JP 0H03-FnP7 [146.70.76.185 [上級国民]])
2023/08/14(月) 14:48:03.14ID:lOjCl5CzH >>840
一般外科やってたら、開腹・開胸手術、アンギオ、内視鏡、麻酔くらいできるだろ。
シャント造設から大腿骨頸部骨折手術までできる一般外科医と仕事をしたことがある。
frozen pelvis症例には自分で膀胱鏡下にステントを留置していたなぁ。
んで、あんたは薬屋の売り子以外に何ができるの?
一般外科やってたら、開腹・開胸手術、アンギオ、内視鏡、麻酔くらいできるだろ。
シャント造設から大腿骨頸部骨折手術までできる一般外科医と仕事をしたことがある。
frozen pelvis症例には自分で膀胱鏡下にステントを留置していたなぁ。
んで、あんたは薬屋の売り子以外に何ができるの?
847卵の名無しさん (JP 0H03-FnP7 [146.70.76.185 [上級国民]])
2023/08/14(月) 14:51:35.20ID:lOjCl5CzH マウントをとるとかいう発想はサルだね。
ボノボまで進化するとマウントをとるとかしない。
ボノボまで進化するとマウントをとるとかしない。
848卵の名無しさん (スップ Sda2-iQuL [49.97.8.29])
2023/08/14(月) 18:05:03.10ID:gSPWucFjd >>846
開胸とかアンギオとか麻酔とか、えらいアバウトだな
開胸っていったら心臓血管外科の手術もあるのに本当に出来るんか?
アンギオって具体的にどこをどう造影すんだよ。全部出来るって意味?
麻酔もヘルツのオペとかもあんのに出来るってことか?
ちなみに少し触ったことあるのは出来るって言わないんだよ
責任持ってちゃんと出来ることをできるって表現するんだけど、本当に責任持って仕事してる奴はお前みたいに何でもできるって言わないんだわ
お前の文章は具体性が皆無で素人の脳内妄想にしか見えんわ
開胸とかアンギオとか麻酔とか、えらいアバウトだな
開胸っていったら心臓血管外科の手術もあるのに本当に出来るんか?
アンギオって具体的にどこをどう造影すんだよ。全部出来るって意味?
麻酔もヘルツのオペとかもあんのに出来るってことか?
ちなみに少し触ったことあるのは出来るって言わないんだよ
責任持ってちゃんと出来ることをできるって表現するんだけど、本当に責任持って仕事してる奴はお前みたいに何でもできるって言わないんだわ
お前の文章は具体性が皆無で素人の脳内妄想にしか見えんわ
849卵の名無しさん (ワッチョイ bb58-iQuL [106.73.2.65])
2023/08/14(月) 22:40:21.94ID:463kk6ES0 209 卵の名無しさん sage 2023/08/14(月) 14:11:14.64 ID:0qVMbDv9
>>204
でもボルンホルム病の記載はなかったな。
ボルンホルム島ってどこにあるのかすら知らなかったがノルドストリーム破壊事件でデンマーク領と知った。
ACSのシマウマ鑑別にあげるとマニアックでいい。
実際に経験したことないが。
↑
これも、尿瓶の投稿だろうけど
内容が支離滅裂過ぎて笑えるわ
言葉の意味とか理解しないでそれらしい単語羅列してるんだろうな
統合失調症発症し過ぎだろ
>>204
でもボルンホルム病の記載はなかったな。
ボルンホルム島ってどこにあるのかすら知らなかったがノルドストリーム破壊事件でデンマーク領と知った。
ACSのシマウマ鑑別にあげるとマニアックでいい。
実際に経験したことないが。
↑
これも、尿瓶の投稿だろうけど
内容が支離滅裂過ぎて笑えるわ
言葉の意味とか理解しないでそれらしい単語羅列してるんだろうな
統合失調症発症し過ぎだろ
850卵の名無しさん (アウアウキー Sab7-eBN6 [182.251.21.253])
2023/08/14(月) 22:41:23.47ID:LozjRxFKa 言葉のサラダって知ってるか?尿瓶ジジイ
851卵の名無しさん (ワッチョイ 7f58-e563 [14.13.16.0 [上級国民]])
2023/08/15(火) 04:51:33.94ID:JPJRanbe0 >>848
んで、あんたは薬屋の売り子以外に何ができんの?
んで、あんたは薬屋の売り子以外に何ができんの?
852卵の名無しさん (ワッチョイ 7f58-e563 [14.13.16.0 [上級国民]])
2023/08/15(火) 04:52:42.52ID:JPJRanbe0 >悪性症候群で抗ドーパミン薬止めない
というのができるのは知っている。
とても俺にはできんけどねw
というのができるのは知っている。
とても俺にはできんけどねw
853卵の名無しさん (アウアウキー Sab7-eBN6 [182.251.21.253])
2023/08/15(火) 07:05:13.53ID:LrgH0bqGa 尿瓶ジジイ支離滅裂に関しては反論できなくて発狂かよ
854卵の名無しさん (JP 0H03-FnP7 [146.70.76.185 [上級国民]])
2023/08/15(火) 07:11:55.54ID:rtnMmaAJH >>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)
}
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)
}
855卵の名無しさん (スップ Sda2-iQuL [49.97.9.108])
2023/08/15(火) 07:44:41.07ID:m1xx/2Xtd856卵の名無しさん (ブーイモ MMee-20OZ [133.159.148.208])
2023/08/15(火) 08:11:18.81ID:7fgfJRfYM >>855
アッペ、ヘルニア、ヘモ、胆摘、胃切、腸切、肝切、PD、食道切除、骨盤内臓全摘、乳切、肺切とかやったよ。
ENBDやPTCDで緊急減黄やTAEでの止血も外科医の仕事だった。
緊急帝王切開の麻酔や助手も外科医の仕事。
紫色の新生児に挿管したのは思い出しても冷汗もの。
んで、あんたは
>悪性症候群で抗ドーパミン薬止めない
というのができるののよね!
とても俺にはできないなぁw
アッペ、ヘルニア、ヘモ、胆摘、胃切、腸切、肝切、PD、食道切除、骨盤内臓全摘、乳切、肺切とかやったよ。
ENBDやPTCDで緊急減黄やTAEでの止血も外科医の仕事だった。
緊急帝王切開の麻酔や助手も外科医の仕事。
紫色の新生児に挿管したのは思い出しても冷汗もの。
んで、あんたは
>悪性症候群で抗ドーパミン薬止めない
というのができるののよね!
とても俺にはできないなぁw
857卵の名無しさん (ブーイモ MMee-20OZ [133.159.148.208])
2023/08/15(火) 08:15:37.48ID:7fgfJRfYM 心臓麻酔も数例やらされた。
まあ、ポンプマンがしっかりしていたので
挿管係みたいなものだった。
シャントやグラフト取りも指導医のもとに術者をさせてもらった。
>悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。
ですってwww
とかいう医師はシリツ医にもいなかった。
typoだと言ったり、
わざと間違えたと言ったり、見苦しいよなぁ。
まあ、ポンプマンがしっかりしていたので
挿管係みたいなものだった。
シャントやグラフト取りも指導医のもとに術者をさせてもらった。
>悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。
ですってwww
とかいう医師はシリツ医にもいなかった。
typoだと言ったり、
わざと間違えたと言ったり、見苦しいよなぁ。
858卵の名無しさん (ブーイモ MMee-20OZ [133.159.148.208])
2023/08/15(火) 08:28:58.80ID:7fgfJRfYM859卵の名無しさん (アウアウキー Sab7-eBN6 [182.251.21.253])
2023/08/15(火) 08:39:15.66ID:LrgH0bqGa 用語羅列すれば脳内ブラックジャックできると思ってんのか?w
860卵の名無しさん (アウアウキー Sab7-eBN6 [182.251.21.253])
2023/08/15(火) 08:41:24.97ID:LrgH0bqGa 尿瓶ジジイは医者はなんでもできると思ってる素人みたい
どこの専門か聞いてんだよw
どこの専門か聞いてんだよw
861卵の名無しさん (スップ Sda2-iQuL [49.97.9.108])
2023/08/15(火) 11:34:48.57ID:m1xx/2Xtd >>856
この、やったって表現見る限り
一回見たら出来るもんだと勘違いしてるっぽいな
そんなん、一回やって出来るなら専門医なんで必要ないだろ
並べてる手技も難易度バラバラだし、そこらへんも全くわかってないんだろうな
脳内オペでブラックジャック気取りか?
この、やったって表現見る限り
一回見たら出来るもんだと勘違いしてるっぽいな
そんなん、一回やって出来るなら専門医なんで必要ないだろ
並べてる手技も難易度バラバラだし、そこらへんも全くわかってないんだろうな
脳内オペでブラックジャック気取りか?
862卵の名無しさん (ワッチョイ c7c7-20OZ [124.47.76.122])
2023/08/15(火) 15:03:20.83ID:Ss6TYLkR0 >悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。
これをあんたは何度やってんの?
俺は全くやったことがないけど。
シリツ医ですらやらないと思う。
国試の禁忌肢をドヤ顔で
当たり前ですって!
typoだと言ったり、
わざと間違えたと言ったり、見苦しいよなぁ。
これをあんたは何度やってんの?
俺は全くやったことがないけど。
シリツ医ですらやらないと思う。
国試の禁忌肢をドヤ顔で
当たり前ですって!
typoだと言ったり、
わざと間違えたと言ったり、見苦しいよなぁ。
863卵の名無しさん (ワッチョイ c7c7-20OZ [124.47.76.122])
2023/08/15(火) 15:04:24.68ID:Ss6TYLkR0864卵の名無しさん (JP 0Hfe-eBN6 [61.199.225.248])
2023/08/15(火) 15:05:03.18ID:ZOVP0igCH もう返す言葉もないってか?
865卵の名無しさん (ブーイモ MMee-20OZ [133.159.150.75])
2023/08/15(火) 15:34:58.81ID:zgrazhNnM >>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))
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))
866卵の名無しさん (ブーイモ MMee-20OZ [133.159.150.75])
2023/08/15(火) 15:38:43.03ID:zgrazhNnM867卵の名無しさん (ブーイモ MMee-20OZ [133.159.150.75])
2023/08/15(火) 15:55:59.88ID:zgrazhNnM 実行速度比較
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()
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()
868卵の名無しさん (JP 0H0b-iQuL [202.253.111.210])
2023/08/15(火) 16:15:00.17ID:CTpQxo/rH869卵の名無しさん (ワッチョイ c7c7-20OZ [124.47.76.122])
2023/08/15(火) 17:12:41.66ID:Ss6TYLkR0870卵の名無しさん (JP 0Hfe-eBN6 [61.199.225.248])
2023/08/15(火) 17:13:11.43ID:ZOVP0igCH で、尿瓶ジジイは脳内医者以外に何ができんの?
871卵の名無しさん (ワッチョイ c7c7-20OZ [124.47.76.122])
2023/08/15(火) 17:13:53.59ID:Ss6TYLkR0 >>868
尿瓶おまる洗浄係の方か?
尿瓶おまる洗浄係の方か?
872卵の名無しさん (ワッチョイ c7c7-20OZ [124.47.76.122])
2023/08/15(火) 17:22:26.58ID:Ss6TYLkR0 >>855
非開胸食道抜去もやったよ。鏡視下手術登場前の時代の話。
胸骨後の再建よりも細径大弯胃管での後縦隔再建の方が後出血が少ないのを実感した。胸骨後だと開胸で再建先行で体位変換が1回ですむ利点があったが非開胸ならその利点もない。
非開胸食道抜去もやったよ。鏡視下手術登場前の時代の話。
胸骨後の再建よりも細径大弯胃管での後縦隔再建の方が後出血が少ないのを実感した。胸骨後だと開胸で再建先行で体位変換が1回ですむ利点があったが非開胸ならその利点もない。
873卵の名無しさん (アウアウキー Sab7-eBN6 [182.251.21.253])
2023/08/15(火) 17:56:18.64ID:LrgH0bqGa874卵の名無しさん (アウアウキー Sab7-eBN6 [182.251.38.179])
2023/08/15(火) 19:21:35.99ID:nfI4Rcrca 尿瓶ジジイは自分の都合の悪いレスは全員同じに見える病気みたいだけど治療法なさそうだね
875卵の名無しさん (アウアウキー Sab7-eBN6 [182.251.38.179])
2023/08/15(火) 20:10:36.86ID:nfI4Rcrca 243:132人目の素数さん:[sage]:2023/07/25(火) 19:35:19.66 ID:hrc4XW/3
6つの辺の長さが3,4,5,6,7,8である四面体は( ア )種類ある。
269:132人目の素数さん:[sage]:2023/07/26(水) 18:45:05.79 ID:sev74d4g
>>243
車輪の再発明の神のお告げによれば、39通り
274:132人目の素数さん:[sage]:2023/07/26(水) 19:22:12.39 ID:pzlYX2uz
鏡像を同じとみなすなら四面体の各辺に3〜8の数字をあてがう方法は30通りしかない
同じと見做さないなら答えは偶数
78:132人目の素数さん:[sage]:2023/08/14(月) 13:03:44.28 ID:8HExdy5D
>>68
おい尿瓶リタラシージジイ、これにはダンマリか
神のお告げが完全にトンチンカンだったわけだけど一体どこから出て来たんだよw
また脳内妄想か?w
80:132人目の素数さん:[sage]:2023/08/14(月) 13:45:00.39 ID:aOMMoiEh
>>78
バビンスキー反射をババンスキー反射というみたいなもんじゃね?
チンパンだから人間が何を言ってるか理解できず脳内医者よろしくトンチンカンな答えしかできない模様
6つの辺の長さが3,4,5,6,7,8である四面体は( ア )種類ある。
269:132人目の素数さん:[sage]:2023/07/26(水) 18:45:05.79 ID:sev74d4g
>>243
車輪の再発明の神のお告げによれば、39通り
274:132人目の素数さん:[sage]:2023/07/26(水) 19:22:12.39 ID:pzlYX2uz
鏡像を同じとみなすなら四面体の各辺に3〜8の数字をあてがう方法は30通りしかない
同じと見做さないなら答えは偶数
78:132人目の素数さん:[sage]:2023/08/14(月) 13:03:44.28 ID:8HExdy5D
>>68
おい尿瓶リタラシージジイ、これにはダンマリか
神のお告げが完全にトンチンカンだったわけだけど一体どこから出て来たんだよw
また脳内妄想か?w
80:132人目の素数さん:[sage]:2023/08/14(月) 13:45:00.39 ID:aOMMoiEh
>>78
バビンスキー反射をババンスキー反射というみたいなもんじゃね?
チンパンだから人間が何を言ってるか理解できず脳内医者よろしくトンチンカンな答えしかできない模様
876卵の名無しさん (ブーイモ MMc7-20OZ [220.156.14.88])
2023/08/15(火) 23:23:38.11ID:rur7Y02kM 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)
}
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)
}
877卵の名無しさん (ブーイモ MMc7-20OZ [220.156.14.88])
2023/08/15(火) 23:23:44.13ID:rur7Y02kM 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]))
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]))
878卵の名無しさん (ブーイモ MMc7-20OZ [220.156.14.88])
2023/08/15(火) 23:25:12.03ID:rur7Y02kM 一辺の長さ1の正四面体が通過できる円筒の最小半径を求めよ。
をRを使って数値解を出す。
をRを使って数値解を出す。
879卵の名無しさん (ワッチョイ c7c7-20OZ [124.47.76.122])
2023/08/16(水) 05:16:14.59ID:w4oTO+qd0 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]))
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]))
880卵の名無しさん (ワッチョイ c7c7-20OZ [124.47.76.122])
2023/08/16(水) 05:16:30.94ID:w4oTO+qd0 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]))
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]))
881卵の名無しさん (ワッチョイ c7c7-20OZ [124.47.76.122])
2023/08/16(水) 05:30:30.50ID:w4oTO+qd0 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)
}
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)
}
882卵の名無しさん (ワッチョイ c7c7-20OZ [124.47.76.122])
2023/08/16(水) 05:30:36.23ID:w4oTO+qd0 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)
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)
883卵の名無しさん (ワッチョイ c7c7-20OZ [124.47.76.122])
2023/08/16(水) 05:33:13.96ID:w4oTO+qd0 0.5が返ってきた!
>878達成!!
>878達成!!
884卵の名無しさん (アウアウキー Sab7-eBN6 [182.251.38.179])
2023/08/16(水) 07:51:37.38ID:eAH3h5CPa 尿瓶またダンマリw
885卵の名無しさん (JP 0H03-FnP7 [146.70.31.18 [上級国民]])
2023/08/16(水) 11:11:48.33ID:VjLhJ/iUH886卵の名無しさん (アウアウキー Sab7-eBN6 [182.251.38.179])
2023/08/16(水) 11:40:47.35ID:eAH3h5CPa887卵の名無しさん (アウアウキー Sab7-eBN6 [182.251.38.179])
2023/08/16(水) 11:41:18.83ID:eAH3h5CPa 全員じゃなかった脳内医者と脳内東大が紛れ込んでたw
888卵の名無しさん (ワッチョイ 7f58-S4Nh [14.13.16.0 [上級国民]])
2023/08/16(水) 18:32:30.15ID:PxUZpIFT0 >悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。
ですってwww
>当たり前だろ
>当たり前だろ
>当たり前だろ
とドヤ顔で大間違い!
typoだと言ったり、
わざと間違えたと言ったり、見苦しいよなぁ。
ですってwww
>当たり前だろ
>当たり前だろ
>当たり前だろ
とドヤ顔で大間違い!
typoだと言ったり、
わざと間違えたと言ったり、見苦しいよなぁ。
889卵の名無しさん (ワッチョイ 7f58-S4Nh [14.13.16.0 [上級国民]])
2023/08/16(水) 18:34:35.08ID:PxUZpIFT0 ジョーカー1枚を含む53枚のトランプから無作為に5枚を選ぶときストレートの確率を求めよ。ストレートフラッシュも含む。
なお、A 2 3 4 5や10 J Q K Aの他にも
J Q K A 2やK A 1 2 3などもストレートとみなす設定で計算せよ。
なお、A 2 3 4 5や10 J Q K Aの他にも
J Q K A 2やK A 1 2 3などもストレートとみなす設定で計算せよ。
890卵の名無しさん (JP 0H03-FnP7 [146.70.31.18 [上級国民]])
2023/08/16(水) 20:45:25.91ID:VjLhJ/iUH # 馬鹿は,死ななきゃ治らない から 馬鹿は死ねば治る と演繹できるか?
# 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)
# 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)
891卵の名無しさん (アウアウキー Sab7-eBN6 [182.251.33.10])
2023/08/16(水) 23:22:19.06ID:RUhZBGpJa 尿瓶論破されてるのにそれしか言えないのかw
892卵の名無しさん (ワッチョイ 7f58-S4Nh [14.13.16.0 [上級国民]])
2023/08/17(木) 07:22:59.14ID:Wro487Ca0 外貨預金の含み益が増えて気分がいいなぁ
893卵の名無しさん (ワッチョイ 7f58-FnP7 [14.13.16.0 [上級国民]])
2023/08/17(木) 18:02:54.05ID:Wro487Ca0 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)
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)
894卵の名無しさん (アウアウウー Sa6b-eBN6 [106.128.69.122])
2023/08/17(木) 19:48:33.90ID:jbuWiHPPa 尿瓶ジジイ論破されると即ダンマリw
895卵の名無しさん (ブーイモ MM9e-lzYH [163.49.211.107])
2023/08/18(金) 11:58:20.76ID:jMo4yhyaM .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^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]])
896卵の名無しさん (ブーイモ MM9e-lzYH [163.49.211.107])
2023/08/18(金) 12:02:34.06ID:jMo4yhyaM .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^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]])
897卵の名無しさん (ブーイモ MM9e-lzYH [163.49.211.107])
2023/08/18(金) 12:03:22.54ID:jMo4yhyaM .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^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]])
898卵の名無しさん (JP 0H03-uJ02 [146.70.31.18 [上級国民]])
2023/08/18(金) 14:50:31.40ID:M4hdIpYPH 今日のEGDは検診以外に外来患者が多かったので有所見で時間がかかった。
899卵の名無しさん (JP 0H03-FnP7 [146.70.31.18 [上級国民]])
2023/08/18(金) 15:36:19.56ID:M4hdIpYPH .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^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]])
900卵の名無しさん (JP 0H03-uJ02 [146.70.31.18 [上級国民]])
2023/08/18(金) 15:38:57.85ID:M4hdIpYPH .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^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]])
901卵の名無しさん (JP 0H37-glPN [146.70.31.18 [上級国民]])
2023/08/19(土) 08:43:01.40ID:vsguqOGxH コーンの味付けに、
バターレモン醤油、正確にはバター・レモン汁・醤油、みりん、日本酒、オイスターソース
を超えるのは未だに発見できない。
まあ、妻の味覚次第ではあるが。
バターレモン醤油、正確にはバター・レモン汁・醤油、みりん、日本酒、オイスターソース
を超えるのは未だに発見できない。
まあ、妻の味覚次第ではあるが。
902卵の名無しさん (JP 0H37-glPN [146.70.31.18 [上級国民]])
2023/08/19(土) 08:47:43.20ID:vsguqOGxH バターをワサビに変えたら評判が悪かった。
きょうは、時間がとれるのでSBの赤缶でなくて
自分でスパイスを粉にしてスパイスカレー(バターチキンカレー)を調理。
作ってみての発見
カルダモン:爪切りで被殻を切って縦割りにして種を摘出
グローブ:ペンチで茎を分割してから電動ミルにかけると効率がよい
マリネに使ったヨーグルトが焦げるので鶏肉に焼きをいれるときは目を離さない方がいい。
あとで焦げをとるのが大変だった。
電気圧力鍋の方が断然楽だと感じた。
きょうは、時間がとれるのでSBの赤缶でなくて
自分でスパイスを粉にしてスパイスカレー(バターチキンカレー)を調理。
作ってみての発見
カルダモン:爪切りで被殻を切って縦割りにして種を摘出
グローブ:ペンチで茎を分割してから電動ミルにかけると効率がよい
マリネに使ったヨーグルトが焦げるので鶏肉に焼きをいれるときは目を離さない方がいい。
あとで焦げをとるのが大変だった。
電気圧力鍋の方が断然楽だと感じた。
903卵の名無しさん (JP 0H37-glPN [146.70.31.18 [上級国民]])
2023/08/19(土) 08:51:03.20ID:vsguqOGxH ミックスナッツを細かく粉砕しようとフードプロセッサーの稼働時間を長くすると
団子のようになってくることを発見。
まるでキッシュの台みたいになった。
ミックスナッツもグルテン含有なのだろうか?
団子のようになってくることを発見。
まるでキッシュの台みたいになった。
ミックスナッツもグルテン含有なのだろうか?
904卵の名無しさん (JP 0H37-glPN [146.70.31.18 [上級国民]])
2023/08/19(土) 09:01:44.43ID:vsguqOGxH905卵の名無しさん (アウアウウー Sa7f-GdOV [106.180.3.141])
2023/08/19(土) 09:19:42.85ID:fi3aR642a 尿瓶日記クソつまらんな
906卵の名無しさん (ワッチョイ 7f58-uXTh [106.73.2.65])
2023/08/20(日) 00:31:15.16ID:FwqWvqQK0 数学板覗いたら
尿瓶ジジイが小中学生が質問してるのにガン無視して自分のオナニーレス連投してて笑えるわ
マジで空気読めないんだな
イナとかいうコテハンはちゃんと質問に答えてるのに尿瓶ジジイは職員の採用試験のテストを作ったとかいうトンチカンなレス
マジで頭おかしいんだな
尿瓶ジジイが小中学生が質問してるのにガン無視して自分のオナニーレス連投してて笑えるわ
マジで空気読めないんだな
イナとかいうコテハンはちゃんと質問に答えてるのに尿瓶ジジイは職員の採用試験のテストを作ったとかいうトンチカンなレス
マジで頭おかしいんだな
907卵の名無しさん (アウアウウー Sa7f-GdOV [106.128.70.170])
2023/08/20(日) 02:05:12.33ID:R14rLPD7a 日本語も読めないのに空気なんか読めるはずないw
908卵の名無しさん (ワッチョイ 3358-rXGl [14.13.16.0 [上級国民]])
2023/08/20(日) 06:30:51.08ID:fHKTNzus0 Rで求めた数値解を東大卒が検算してくれている。
結果が一致。
まあ、作図した画像が問題文と一致しているので当然ではあるが。
結果が一致。
まあ、作図した画像が問題文と一致しているので当然ではあるが。
909卵の名無しさん (アウアウウー Sa7f-GdOV [106.128.74.2])
2023/08/20(日) 15:16:58.68ID:7tCMsaCUa で、例の39通り笑は修正してくれたのか?
910卵の名無しさん (ブーイモ MMa6-XvYE [133.159.152.133])
2023/08/21(月) 06:40:32.63ID:Co6/jAM1M ∫[0,1]x (x- x^3/3)/(5/12) dx
911卵の名無しさん (ワッチョイ fa24-glPN [149.50.210.17 [上級国民]])
2023/08/21(月) 13:38:37.11ID:DZCLPfN00 SBの赤缶使ってバターチキンカレーは飽きてきたので
スパイスをホールからミルにしてスパイスバターチキンカレーにした。
イトリキカレーを彷彿させる旨さで( ・∀・)イイ!!
スパイスをホールからミルにしてスパイスバターチキンカレーにした。
イトリキカレーを彷彿させる旨さで( ・∀・)イイ!!
912卵の名無しさん (アウアウウー Sa7f-GdOV [106.128.69.181])
2023/08/21(月) 16:35:55.33ID:rjL6N2qza チンパンは生ゴミでも食ってろw
913卵の名無しさん (JP 0H37-glPN [146.70.31.18 [上級国民]])
2023/08/21(月) 19:21:09.80ID:Y9/hN35NH ニッパー型の爪切りが届いたので、スパイスの皮むきや粉砕が楽になる。
914卵の名無しさん (JP 0H37-glPN [146.70.31.18 [上級国民]])
2023/08/21(月) 19:23:44.78ID:Y9/hN35NH "
球形をした100gのチョコボールを無作為に包丁で二分割して大きい方がもらえる。
90g以上のチョコが貰える確率は約何%か?答は整数でよい。
"
https://i.imgur.com/TGTZDA1.png
解析解を出すのは厄介だが、Rで数値解を出すのは容易(たやす)い。
球形をした100gのチョコボールを無作為に包丁で二分割して大きい方がもらえる。
90g以上のチョコが貰える確率は約何%か?答は整数でよい。
"
https://i.imgur.com/TGTZDA1.png
解析解を出すのは厄介だが、Rで数値解を出すのは容易(たやす)い。
915卵の名無しさん (アウアウウー Sa7f-GdOV [106.128.68.52])
2023/08/21(月) 19:35:53.53ID:nwm5uZX9a 尿瓶ジジイ反論できずにいつものコピペで発狂w
916卵の名無しさん (JP 0H9f-uXTh [202.253.111.210])
2023/08/22(火) 14:45:43.18ID:W2iUQOCWH 尿瓶ジジイは今はポスト急性期スレにご執心みたいだね
稚拙な文章だから一発でわかるw
稚拙な文章だから一発でわかるw
917卵の名無しさん (ワッチョイ fa24-glPN [149.50.210.2 [上級国民]])
2023/08/23(水) 08:01:35.35ID:cEyhTJMf0918卵の名無しさん (ワッチョイ fa24-glPN [149.50.210.2 [上級国民]])
2023/08/23(水) 08:04:53.57ID:cEyhTJMf0 >>911
イトリキカレーは通販では入手できなくなったが、
それらしい味が再現できるようになったので( ・∀・)イイ!!
嫁もイトリキカレーみたいと評価してくれた。
後は手間をどうやって省くかだな。
スパイスの成分が脂溶性というところがネック。
イトリキカレーは通販では入手できなくなったが、
それらしい味が再現できるようになったので( ・∀・)イイ!!
嫁もイトリキカレーみたいと評価してくれた。
後は手間をどうやって省くかだな。
スパイスの成分が脂溶性というところがネック。
919卵の名無しさん (ワッチョイ fa24-glPN [149.50.210.2 [上級国民]])
2023/08/23(水) 08:05:14.31ID:cEyhTJMf0920卵の名無しさん (アウアウウー Sa7f-GdOV [106.128.69.79])
2023/08/23(水) 08:09:20.78ID:32yY9WSMa >>917
何で奇数なんだよマヌケ
何で奇数なんだよマヌケ
921卵の名無しさん (ワッチョイ fa24-glPN [149.50.210.2 [上級国民]])
2023/08/23(水) 08:14:52.45ID:cEyhTJMf0 マウスへのXBBワクチンで抗原原罪が示されているのには笑えた。
その差を小さくみせようとする片対数グラフ
https://i.imgur.com/nGHBsGX.png
常数グラフにすると
https://i.imgur.com/TNuf7r4.png
俺は救急外来と内視鏡が業務なのでワクチン接種に駆り出されることもないので
心が痛むことはないが、業務命令でワクチン接種させられる医師は心が痛むだろうなぁ。
その差を小さくみせようとする片対数グラフ
https://i.imgur.com/nGHBsGX.png
常数グラフにすると
https://i.imgur.com/TNuf7r4.png
俺は救急外来と内視鏡が業務なのでワクチン接種に駆り出されることもないので
心が痛むことはないが、業務命令でワクチン接種させられる医師は心が痛むだろうなぁ。
922卵の名無しさん (ワッチョイ fa24-glPN [149.50.210.2 [上級国民]])
2023/08/23(水) 08:17:44.66ID:cEyhTJMf0 >>920
Rが返してきたからね。
おそらく丸め誤差のせいだろう。
んで、あんたはRもPythonも使えないの?
(1)シリツなんだろ?
(2)どこの国立を落ちたの?
東大の合格通知の書式も知らなかったから東大非合格は確定しているが、
シリツかどうかは不明。
Rが返してきたからね。
おそらく丸め誤差のせいだろう。
んで、あんたはRもPythonも使えないの?
(1)シリツなんだろ?
(2)どこの国立を落ちたの?
東大の合格通知の書式も知らなかったから東大非合格は確定しているが、
シリツかどうかは不明。
923卵の名無しさん (アウアウウー Sa7f-GdOV [106.128.68.238])
2023/08/23(水) 08:55:28.88ID:7jOcBNksa 壊れた電卓で答えを出してドヤ顔非東大卒尿瓶ジジイw
924卵の名無しさん (ワッチョイ 3358-rXGl [14.13.16.0 [上級国民]])
2023/08/23(水) 13:56:26.45ID:4wla2KgC0 >>923
んでどこの国立を落ちたの?
んでどこの国立を落ちたの?
925卵の名無しさん (JP 0H76-GdOV [61.199.225.248])
2023/08/23(水) 15:43:01.53ID:ADURUJZZH >>924
んでマヌケなR使いの尿瓶ジジイはどこの国立受けられなかったの?w
んでマヌケなR使いの尿瓶ジジイはどこの国立受けられなかったの?w
926卵の名無しさん (アウアウウー Sa7f-GdOV [106.128.68.81])
2023/08/23(水) 15:48:22.08ID:DOp4DgQva ポスト急性期スレでも脳内医者とか言われてて草
927卵の名無しさん (アウアウウー Sa7f-GdOV [106.128.68.81])
2023/08/23(水) 16:27:13.91ID:DOp4DgQva 内視鏡について 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日間擁護レス一切なし
これが尿瓶の現実
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日間擁護レス一切なし
これが尿瓶の現実
928卵の名無しさん (アウアウウー Sa7f-GdOV [106.128.68.81])
2023/08/23(水) 16:36:35.40ID:DOp4DgQva 高校数学の質問スレ Part430
323:
132人目の素数さん[sage]
2023/07/27(木) 20:23:10.61
>>320
残念なのは、都合の悪いことは全部スルーするお前のオツムだろ
臨床ネタとかいう表現も何か素人臭いし
同業者ってのもお前の自演なんじゃねーの
323:
132人目の素数さん[sage]
2023/07/27(木) 20:23:10.61
>>320
残念なのは、都合の悪いことは全部スルーするお前のオツムだろ
臨床ネタとかいう表現も何か素人臭いし
同業者ってのもお前の自演なんじゃねーの
929卵の名無しさん (アウアウウー Sa7f-GdOV [106.128.68.81])
2023/08/23(水) 16:58:29.10ID:DOp4DgQva 285:卵の名無しさん:[sage]:2023/08/23(水) 03:24:37.77 ID:vRLwbOfG
>>282
あんたのとこじゃ、90歳代での大腿骨頸部骨折は放置見殺しにしてんの?
尿瓶ジジイ、保存的加療という概念がないことを指摘されて発狂中ww
>>282
あんたのとこじゃ、90歳代での大腿骨頸部骨折は放置見殺しにしてんの?
尿瓶ジジイ、保存的加療という概念がないことを指摘されて発狂中ww
930卵の名無しさん (JP 0H9f-uXTh [202.253.111.210])
2023/08/23(水) 18:00:58.27ID:SSr3/Es3H931卵の名無しさん (JP 0H9a-glPN [217.138.212.122 [上級国民]])
2023/08/24(木) 07:28:12.94ID:5KNxXMQWH 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()
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()
932卵の名無しさん (JP 0H9a-glPN [217.138.212.122 [上級国民]])
2023/08/24(木) 07:28:51.62ID:5KNxXMQWH 10個の球があり、球には何種類の重量があるかを推測したい。
2つの球の組み合わせ45通りで2つの球の重量が等しいかを調べた結果
13の組み合わせて重量が等しいことが判明した。
(1)球の重量の種類として可能性のあるのは何種類か?
(2)何種類の球の可能性が最も高いか?
2つの球の組み合わせ45通りで2つの球の重量が等しいかを調べた結果
13の組み合わせて重量が等しいことが判明した。
(1)球の重量の種類として可能性のあるのは何種類か?
(2)何種類の球の可能性が最も高いか?
933卵の名無しさん (JP 0H9a-glPN [217.138.212.122 [上級国民]])
2023/08/24(木) 07:30:01.54ID:5KNxXMQWH >都合の悪いことは全部スルーする
といえばこれ!
(1)シリツなんだろ?
(2)どこの国立を落ちたの?
といえばこれ!
(1)シリツなんだろ?
(2)どこの国立を落ちたの?
934卵の名無しさん (スプープ Sdca-uXTh [49.109.5.165])
2023/08/24(木) 07:41:31.88ID:8nEAmU/kd935卵の名無しさん (JP 0H9a-glPN [217.138.212.122 [上級国民]])
2023/08/24(木) 08:37:28.70ID:5KNxXMQWH936卵の名無しさん (JP 0H9a-glPN [217.138.212.122 [上級国民]])
2023/08/24(木) 08:39:54.00ID:5KNxXMQWH PowerToysのtextextractor
Win+Shit+Tでクリップボードにテキスト転送。
最近の報告では.緊急で入院後 24 時間以内に手術する必要はないものの.内科的合併症で手術が遅れる場合を除いて,できるだけ早期に手術を行うべきであるという報告が多くなっている.また,日本でも早期手術の有効性が報告されているが.現在の医療体制では欧米並みの早期手術を行うことは困難なことが多い早期手術は合併症が少なぐ生存率が高く.入院期間が短い.加 14 年の日本の大腿骨頚部骨折の手術待機期間は平均 4.9 日であり.欧米に比べ長い.
Win+Shit+Tでクリップボードにテキスト転送。
最近の報告では.緊急で入院後 24 時間以内に手術する必要はないものの.内科的合併症で手術が遅れる場合を除いて,できるだけ早期に手術を行うべきであるという報告が多くなっている.また,日本でも早期手術の有効性が報告されているが.現在の医療体制では欧米並みの早期手術を行うことは困難なことが多い早期手術は合併症が少なぐ生存率が高く.入院期間が短い.加 14 年の日本の大腿骨頚部骨折の手術待機期間は平均 4.9 日であり.欧米に比べ長い.
937卵の名無しさん (JP 0H9a-glPN [217.138.212.122 [上級国民]])
2023/08/24(木) 08:40:48.52ID:5KNxXMQWH938卵の名無しさん (スプープ Sdca-uXTh [49.109.7.109])
2023/08/24(木) 09:02:08.45ID:VD5R9PNMd >>937
残念ながら違うんだな~www
療養病院のスレであんな臨床にそわない書き込みしてたら、そりゃ叩かれますわ
医者じゃないから臨床の実際とか、わからんのだろ?だから、ネットに転がってるガイドラインぐらいしかすがるものが無い
大腿骨頚部骨折なんて、急性期病院だと全麻でやる事多いから超高齢者にやっても逆に誤嚥性肺炎起こすんだよ
しかもやっても、結局歩けなくて寝たきりになる奴が多いのが実際。そういう現実がわかってるからの反応なんだよ脳内医者君www
残念ながら違うんだな~www
療養病院のスレであんな臨床にそわない書き込みしてたら、そりゃ叩かれますわ
医者じゃないから臨床の実際とか、わからんのだろ?だから、ネットに転がってるガイドラインぐらいしかすがるものが無い
大腿骨頚部骨折なんて、急性期病院だと全麻でやる事多いから超高齢者にやっても逆に誤嚥性肺炎起こすんだよ
しかもやっても、結局歩けなくて寝たきりになる奴が多いのが実際。そういう現実がわかってるからの反応なんだよ脳内医者君www
939卵の名無しさん (JP 0H9f-uXTh [202.253.111.210])
2023/08/24(木) 09:09:56.97ID:vFJAyyBsH940卵の名無しさん (JP 0H9a-glPN [217.138.212.122 [上級国民]])
2023/08/24(木) 09:21:15.17ID:5KNxXMQWH 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)
Unique=\(v){
ans=NULL
for(i in 1:length(v)) if(!(v[i] %in% ans)) ans=c(ans,v[i])
ans
}
Unique(v)
941卵の名無しさん (JP 0H9a-glPN [217.138.212.122 [上級国民]])
2023/08/24(木) 09:38:50.64ID:5KNxXMQWH942卵の名無しさん (JP 0H9a-glPN [217.138.212.122 [上級国民]])
2023/08/24(木) 09:40:53.92ID:5KNxXMQWH943卵の名無しさん (JP 0H9a-glPN [217.138.212.122 [上級国民]])
2023/08/24(木) 09:42:21.69ID:5KNxXMQWH944卵の名無しさん (JP 0H9a-glPN [217.138.212.122 [上級国民]])
2023/08/24(木) 09:43:02.72ID:5KNxXMQWH # 重複する数値を除いて返す
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)
# 近似値を等値とみなして、重複する数値を除いて返す uniquenファジイ版
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)
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)
# 近似値を等値とみなして、重複する数値を除いて返す uniquenファジイ版
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)
945卵の名無しさん (JP 0H9a-glPN [217.138.212.122 [上級国民]])
2023/08/24(木) 09:47:15.29ID:5KNxXMQWH 代用品使って下肢がsalvageできる可能性があるのにやらないのは見殺しだな。
異物除去に気管支鏡で膀胱鏡の代用した話が内視鏡スレに書いてあったなぁ。
術中胆道ファイバーの代用に気管支鏡は普通に使っていたが。
異物除去に気管支鏡で膀胱鏡の代用した話が内視鏡スレに書いてあったなぁ。
術中胆道ファイバーの代用に気管支鏡は普通に使っていたが。
946卵の名無しさん (JP 0H9f-uXTh [202.253.111.210])
2023/08/24(木) 10:23:13.29ID:vFJAyyBsH >>941
だったらガイドラインがどうとか抜かすなよ
サルベージ出来なくて訴えられたらどうすんの?リトリーバル使って失敗したら翌日本島に送ってもらった方がマシでしたってなるわwww言ってることが無茶苦茶だな
だったらガイドラインがどうとか抜かすなよ
サルベージ出来なくて訴えられたらどうすんの?リトリーバル使って失敗したら翌日本島に送ってもらった方がマシでしたってなるわwww言ってることが無茶苦茶だな
947卵の名無しさん (JP 0H9f-uXTh [202.253.111.210])
2023/08/24(木) 10:30:55.13ID:vFJAyyBsH >>942
何で急にCPRの話になるんだ?大腿骨頚部骨折の話だったよね?手術しないで保存的に見たら訴えられるのか?
自己保身が大事なのに保険適応外のバルーン使うの?普通は抗凝固薬使って翌日搬送するよね。自己保身が大事なのにやったことも無い手技やるの?失敗したら訴えられる可能性あるけど
お前の言ってることは無茶苦茶なんだよ
馬鹿なんだから黙ってろwww
何で急にCPRの話になるんだ?大腿骨頚部骨折の話だったよね?手術しないで保存的に見たら訴えられるのか?
自己保身が大事なのに保険適応外のバルーン使うの?普通は抗凝固薬使って翌日搬送するよね。自己保身が大事なのにやったことも無い手技やるの?失敗したら訴えられる可能性あるけど
お前の言ってることは無茶苦茶なんだよ
馬鹿なんだから黙ってろwww
948卵の名無しさん (JP 0H9f-uXTh [202.253.111.210])
2023/08/24(木) 10:35:09.03ID:vFJAyyBsH >>943
そりゃそういう奴もいるわ100歳でも元気だったらやるに決まってるだろ
療養病院にいるような高齢者にやることがナンセンスだって話なんだよ
そういう議論出来ない癖に、適応とか言ってるから総スカン喰らうんだろアホ
そりゃそういう奴もいるわ100歳でも元気だったらやるに決まってるだろ
療養病院にいるような高齢者にやることがナンセンスだって話なんだよ
そういう議論出来ない癖に、適応とか言ってるから総スカン喰らうんだろアホ
949卵の名無しさん (JP 0H9a-glPN [217.138.212.122 [上級国民]])
2023/08/24(木) 12:07:59.43ID:5KNxXMQWH # 近似値を等値とみなして、重複する数値を除いて返す 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
}
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
}
950卵の名無しさん (JP 0H9a-glPN [217.138.212.122 [上級国民]])
2023/08/24(木) 12:18:42.35ID:5KNxXMQWH >>946
まあ、翌日まで置いたらアンプタ、へたすりゃ腎不全で死亡したんじゃないかな?
まあ、翌日まで置いたらアンプタ、へたすりゃ腎不全で死亡したんじゃないかな?
951卵の名無しさん (JP 0H9a-glPN [217.138.212.122 [上級国民]])
2023/08/24(木) 12:20:50.31ID:5KNxXMQWH >>948
ナンセンスで許されたらCPRにしなかった医師も訴訟に巻き込まれることはなかっただろうね。
ナンセンスで許されたらCPRにしなかった医師も訴訟に巻き込まれることはなかっただろうね。
952卵の名無しさん (JP 0H76-GdOV [61.199.225.248])
2023/08/24(木) 13:02:15.49ID:4yylaerzH953卵の名無しさん (アウアウウー Sa7f-GdOV [106.128.68.221])
2023/08/24(木) 13:06:08.96ID:sBwwaWKxa 尿瓶ジジイこれだけ一から十まで解説してもらってもまだ発狂止まらないか
所詮脳内医療だからどう言う患者がオペ適応なのか永遠に理解できないみたいだな
例のスレでも同じこと言われてダンマリ決め込んでるし
所詮脳内医療だからどう言う患者がオペ適応なのか永遠に理解できないみたいだな
例のスレでも同じこと言われてダンマリ決め込んでるし
954卵の名無しさん (JP 0H9f-uXTh [202.253.111.210])
2023/08/24(木) 13:43:01.26ID:vFJAyyBsH >>951
心肺停止じゃなくて大腿骨頚部骨折だろ
話そらしてんじゃねーよ
保存的に診るのも立派な治療だし、家族が希望したら手術するところに送るが
そうしないように上手にムンテラしろって話してんだよ
CPRやらないで訴えられてんのはその医者が状況把握出来なかったアホってだけだろ
普通はそんことにならないし、確認出来なかったらフルでやるわ
心肺停止じゃなくて大腿骨頚部骨折だろ
話そらしてんじゃねーよ
保存的に診るのも立派な治療だし、家族が希望したら手術するところに送るが
そうしないように上手にムンテラしろって話してんだよ
CPRやらないで訴えられてんのはその医者が状況把握出来なかったアホってだけだろ
普通はそんことにならないし、確認出来なかったらフルでやるわ
955卵の名無しさん (アウアウウー Sa7f-GdOV [106.128.68.53])
2023/08/24(木) 14:28:28.14ID:ZpIXHFlTa いつも900代になると急に発狂しだすの何なん?w
956卵の名無しさん (JP 0H9f-uXTh [202.253.111.210])
2023/08/24(木) 15:38:16.22ID:vFJAyyBsH 尿瓶ジジイよ
次スレ立ててもお前みたいな脳内医者は永遠と馬鹿にされるだけだからな
底辺私立医大すら入学出来ない脳内医者って頭悪いよね? Part1
てスレタイに変えとけよwww
次スレ立ててもお前みたいな脳内医者は永遠と馬鹿にされるだけだからな
底辺私立医大すら入学出来ない脳内医者って頭悪いよね? Part1
てスレタイに変えとけよwww
957卵の名無しさん (JP 0H9f-uXTh [202.253.111.210])
2023/08/24(木) 15:45:45.30ID:vFJAyyBsH958卵の名無しさん (JP 0H9f-uXTh [202.253.111.210])
2023/08/24(木) 16:00:52.37ID:vFJAyyBsH >>950
お前、何もわかってないから教えてやるが
ALIの致死率高いのは筋肉の細胞壊死が進行して、遅れて再灌流させると高カリウム血症とか多臓器不全で死ぬんだよ。腎不全になるが別に腎不全が原因で死ぬわけじゃない
後、血行再建しなけりゃMNMSは起こらんので、離島で放置してへたしても腎不全にならんし死にませんwww
そんな無能医者に離島で治療されたら俺なら訴えるわ
脳内医者だから被害者いなくて良かったよ!
お前、何もわかってないから教えてやるが
ALIの致死率高いのは筋肉の細胞壊死が進行して、遅れて再灌流させると高カリウム血症とか多臓器不全で死ぬんだよ。腎不全になるが別に腎不全が原因で死ぬわけじゃない
後、血行再建しなけりゃMNMSは起こらんので、離島で放置してへたしても腎不全にならんし死にませんwww
そんな無能医者に離島で治療されたら俺なら訴えるわ
脳内医者だから被害者いなくて良かったよ!
959卵の名無しさん (JP 0H9f-uXTh [202.253.111.210])
2023/08/24(木) 16:45:37.85ID:vFJAyyBsH 尿瓶ジジイは心臓止まったらみんな挿管しないと助からないと思ってるんだろうな
ACLSを理解出来てない証拠だわ
CPRってのは気道確保は必要だか挿管は必須では無い
DNARでも予期せぬ心肺停止ならCPRはやるが普通はすぐに挿管しないで30:2で心マしながらアンビュで揉むの。そんで再度コース確認するんだよ。最悪ROSCしてから必要があれば挿管すれば良い。挿管時間かかったらむしろ蘇生率悪くなるしな。胸郭上がって無かったらやるかもだが
尿瓶ジジイは医療ドラマの見すぎだろwww
ACLSを理解出来てない証拠だわ
CPRってのは気道確保は必要だか挿管は必須では無い
DNARでも予期せぬ心肺停止ならCPRはやるが普通はすぐに挿管しないで30:2で心マしながらアンビュで揉むの。そんで再度コース確認するんだよ。最悪ROSCしてから必要があれば挿管すれば良い。挿管時間かかったらむしろ蘇生率悪くなるしな。胸郭上がって無かったらやるかもだが
尿瓶ジジイは医療ドラマの見すぎだろwww
960卵の名無しさん (アウアウウー Sa7f-GdOV [106.128.71.16])
2023/08/24(木) 16:46:53.04ID:dDIn60bqa 所詮脳内医療じゃこの程度が限界か
まあ言葉のサラダすぎて一般人以下だけどw
まあ言葉のサラダすぎて一般人以下だけどw
961卵の名無しさん (アウアウウー Sa7f-GdOV [106.128.71.20])
2023/08/24(木) 16:56:18.18ID:9IxmjXgJa >>937
出たー自分に都合の悪いレスは全員同じに見える病気w
どこがどう同一人物なんだよ?アンタも医者なら論理立てて説明したら
何の手術でもそうだが適応あれば全員手術すると思ったら大間違いだぞ
適応がありそうだとしてまず患者かもしくは家族に希望があるかどうかきかないといけない
発熱してる時に緊急以外のオペするとでも思ってんのか?
脳内医者だからそういう想像力なんか持ち合わせてないんだろ
出たー自分に都合の悪いレスは全員同じに見える病気w
どこがどう同一人物なんだよ?アンタも医者なら論理立てて説明したら
何の手術でもそうだが適応あれば全員手術すると思ったら大間違いだぞ
適応がありそうだとしてまず患者かもしくは家族に希望があるかどうかきかないといけない
発熱してる時に緊急以外のオペするとでも思ってんのか?
脳内医者だからそういう想像力なんか持ち合わせてないんだろ
962卵の名無しさん (ワッチョイ 3358-XvYE [14.13.16.0])
2023/08/24(木) 18:22:39.91ID:RRwFrXt10963卵の名無しさん (ワッチョイ 3358-rXGl [14.13.16.0 [上級国民]])
2023/08/24(木) 18:27:40.30ID:RRwFrXt10964卵の名無しさん (ワッチョイ 3358-rXGl [14.13.16.0 [上級国民]])
2023/08/24(木) 18:29:47.37ID:RRwFrXt10 >>957
離島ですぐに透析できると思ってる?
離島ですぐに透析できると思ってる?
965卵の名無しさん (ワッチョイ 3358-rXGl [14.13.16.0 [上級国民]])
2023/08/24(木) 18:32:15.26ID:RRwFrXt10 そういえば非開胸食道抜去に複数のアプローチがあると言ってたが、どういうアプローチがあんの?
966卵の名無しさん (ワッチョイ 3358-rXGl [14.13.16.0 [上級国民]])
2023/08/24(木) 18:33:47.35ID:RRwFrXt10 >悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。
ですってwww
>当たり前だろ
>当たり前だろ
>当たり前だろ
とドヤ顔で大間違いを投稿!
typoだと言ったり、
わざと間違えたと言ったり、
恥ずかしくね?
ですってwww
>当たり前だろ
>当たり前だろ
>当たり前だろ
とドヤ顔で大間違いを投稿!
typoだと言ったり、
わざと間違えたと言ったり、
恥ずかしくね?
967卵の名無しさん (JP 0H9f-uXTh [202.253.111.210])
2023/08/24(木) 18:43:25.66ID:vFJAyyBsH >>962
ALIのゴールデンタイムはカテゴリーⅡa以上で6時間以内とされているが、実際は年寄りは動脈硬化で側副血行路が発達してることが多く
accute on chronicの症例がほとんどで24時間以内(むしろそれ以上でも)に血行再建すればアンプタになることなんてほとんど無い
医原性で直接どん詰まりさせたりしなけりゃカテゴリーⅢとかにはならない
つまり、離島で緊急で血行再建しなけりゃいけない症例は皆無ってことだよ
理解出来たか?脳内医者
ALIのゴールデンタイムはカテゴリーⅡa以上で6時間以内とされているが、実際は年寄りは動脈硬化で側副血行路が発達してることが多く
accute on chronicの症例がほとんどで24時間以内(むしろそれ以上でも)に血行再建すればアンプタになることなんてほとんど無い
医原性で直接どん詰まりさせたりしなけりゃカテゴリーⅢとかにはならない
つまり、離島で緊急で血行再建しなけりゃいけない症例は皆無ってことだよ
理解出来たか?脳内医者
968卵の名無しさん (JP 0H9f-uXTh [202.253.111.210])
2023/08/24(木) 18:45:40.29ID:vFJAyyBsH969卵の名無しさん (JP 0H9f-uXTh [202.253.111.210])
2023/08/24(木) 18:54:15.97ID:vFJAyyBsH970卵の名無しさん (アウアウウー Sa7f-GdOV [106.128.70.175])
2023/08/25(金) 08:30:12.92ID:cv9ZlyVYa 都合の悪いレスは全員同じに見えるんだよ病気だから
つける薬はないみたいだね
つける薬はないみたいだね
971卵の名無しさん (スプープ Sd6a-uXTh [1.73.138.78])
2023/08/25(金) 08:48:38.83ID:ZcwKxHied 手加減しないとすぐダンマリしちゃうなwww
やっぱ尿瓶の食い付きそうなtypoしてあげないと駄目だな
typoしても馬鹿過ぎて気づくのに時間かかるからさじ加減が難しいwww
やっぱ尿瓶の食い付きそうなtypoしてあげないと駄目だな
typoしても馬鹿過ぎて気づくのに時間かかるからさじ加減が難しいwww
972卵の名無しさん (JP 0H76-GdOV [61.199.225.248])
2023/08/25(金) 11:45:26.77ID:yCki82eIH973卵の名無しさん (JP 0H76-GdOV [61.199.225.248])
2023/08/25(金) 11:47:48.66ID:yCki82eIH974卵の名無しさん (ブーイモ MMca-XvYE [49.239.68.223])
2023/08/25(金) 11:48:08.69ID:SQ6UgYDeM 今日はEGD12件と予約枠超過。
まあ9時前に2人終了できたので帰りの時間は同じ。
まあ9時前に2人終了できたので帰りの時間は同じ。
975卵の名無しさん (ブーイモ MMca-XvYE [49.239.68.223])
2023/08/25(金) 11:50:46.86ID:SQ6UgYDeM クリニックで半日7万の募集があったけど入院設備のないところでのバイトはしたくないな。
976卵の名無しさん (ブーイモ MMca-XvYE [49.239.68.223])
2023/08/25(金) 11:52:38.92ID:SQ6UgYDeM977卵の名無しさん (アウアウウー Sa7f-GdOV [106.128.70.233])
2023/08/25(金) 12:02:34.11ID:zpgDsfuna 尿瓶ジジイ一晩考えた反論がそれ?w
afの話なんていつしたんだよタコ
afの話なんていつしたんだよタコ
978卵の名無しさん (スプープ Sdca-uXTh [49.109.7.174])
2023/08/25(金) 12:43:59.98ID:pAfuG07Ud >>976
えっ!マジで一晩考えた反論がそれだけ?
見たからなんなんだよwww
普通はデータとか持ってきて
「それは違うだろ!」って初めて反論出来るんだよ。お前の脳内妄想症例なんぞ何も信憑性無いだろwww
せめてケースレポートとか持って来いよ
本当に頭悪いんだな・・・
ちなみにやったことあるのと出来るのは違うからな脳内医者さんwww本当に出来るならせめて具体的に手技のやり方記載してみろよ
えっ!マジで一晩考えた反論がそれだけ?
見たからなんなんだよwww
普通はデータとか持ってきて
「それは違うだろ!」って初めて反論出来るんだよ。お前の脳内妄想症例なんぞ何も信憑性無いだろwww
せめてケースレポートとか持って来いよ
本当に頭悪いんだな・・・
ちなみにやったことあるのと出来るのは違うからな脳内医者さんwww本当に出来るならせめて具体的に手技のやり方記載してみろよ
979卵の名無しさん (JP 0H76-glPN [91.193.7.154 [上級国民]])
2023/08/25(金) 12:53:03.67ID:ASDl78PwH980卵の名無しさん (JP 0H76-glPN [91.193.7.154 [上級国民]])
2023/08/25(金) 12:54:42.34ID:ASDl78PwH 薬屋の売り子しかできないクズが
>悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。
ですってwww
>当たり前だろ
>当たり前だろ
>当たり前だろ
とドヤ顔で大間違いを投稿!
ド底辺シリツ医ですら、kんなことは言わないだろう。
>悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。
ですってwww
>当たり前だろ
>当たり前だろ
>当たり前だろ
とドヤ顔で大間違いを投稿!
ド底辺シリツ医ですら、kんなことは言わないだろう。
981卵の名無しさん (スプープ Sdca-uXTh [49.109.7.174])
2023/08/25(金) 13:15:53.76ID:pAfuG07Ud >>979
駄目だな流石にアホすぎてつまらん
会話になってないぞ?仮に俺が血栓除去出来るって掲示板に書いても証拠なんて無いしな
まあ、お前より詳しいのは確実だがwww
お前も医者じゃないの、もうバレてんだから変な書き込みして恥かくの止めたら?
悔しかったら再受験でもして頑張って医者になれよwww
お前みたいな馬鹿は周りの再受験した奴にもいなかったがwww
駄目だな流石にアホすぎてつまらん
会話になってないぞ?仮に俺が血栓除去出来るって掲示板に書いても証拠なんて無いしな
まあ、お前より詳しいのは確実だがwww
お前も医者じゃないの、もうバレてんだから変な書き込みして恥かくの止めたら?
悔しかったら再受験でもして頑張って医者になれよwww
お前みたいな馬鹿は周りの再受験した奴にもいなかったがwww
982卵の名無しさん (スプープ Sdca-uXTh [49.109.7.174])
2023/08/25(金) 13:21:18.51ID:pAfuG07Ud この糞スレもそろそろ埋めて終わりにするか
それか下のスレタイで俺が代わりに立ててやろうかwww
↓
【脳内医者】底辺私立医大すら入学出来ない脳内医者って頭悪いよね? Part1【尿瓶ジジイ】
それか下のスレタイで俺が代わりに立ててやろうかwww
↓
【脳内医者】底辺私立医大すら入学出来ない脳内医者って頭悪いよね? Part1【尿瓶ジジイ】
983卵の名無しさん (スプープ Sdca-uXTh [49.109.7.174])
2023/08/25(金) 13:22:21.27ID:pAfuG07Ud 尿
984卵の名無しさん (スプープ Sdca-uXTh [49.109.7.174])
2023/08/25(金) 13:22:28.16ID:pAfuG07Ud 瓶
985卵の名無しさん (スプープ Sdca-uXTh [49.109.7.174])
2023/08/25(金) 13:22:33.71ID:pAfuG07Ud ジ
986卵の名無しさん (スプープ Sdca-uXTh [49.109.7.174])
2023/08/25(金) 13:22:39.08ID:pAfuG07Ud ジ
987卵の名無しさん (スプープ Sdca-uXTh [49.109.7.174])
2023/08/25(金) 13:22:44.44ID:pAfuG07Ud イ
988卵の名無しさん (スプープ Sdca-uXTh [49.109.7.174])
2023/08/25(金) 13:22:48.97ID:pAfuG07Ud は
989卵の名無しさん (スプープ Sdca-uXTh [49.109.7.174])
2023/08/25(金) 13:22:54.97ID:pAfuG07Ud 医
990卵の名無しさん (スプープ Sdca-uXTh [49.109.7.174])
2023/08/25(金) 13:23:01.24ID:pAfuG07Ud 療
991卵の名無しさん (スプープ Sdca-uXTh [49.109.7.174])
2023/08/25(金) 13:23:07.76ID:pAfuG07Ud 事
992卵の名無しさん (スプープ Sdca-uXTh [49.109.7.174])
2023/08/25(金) 13:23:15.59ID:pAfuG07Ud 務
993卵の名無しさん (スプープ Sdca-uXTh [49.109.7.174])
2023/08/25(金) 13:23:33.97ID:pAfuG07Ud 脳
994卵の名無しさん (スプープ Sdca-uXTh [49.109.7.174])
2023/08/25(金) 13:23:38.44ID:pAfuG07Ud 内
995卵の名無しさん (スプープ Sdca-uXTh [49.109.7.174])
2023/08/25(金) 13:23:44.86ID:pAfuG07Ud ブ
996卵の名無しさん (スプープ Sdca-uXTh [49.109.7.174])
2023/08/25(金) 13:23:49.44ID:pAfuG07Ud ラ
997卵の名無しさん (スプープ Sdca-uXTh [49.109.7.174])
2023/08/25(金) 13:23:55.74ID:pAfuG07Ud ッ
998卵の名無しさん (スプープ Sdca-uXTh [49.109.7.174])
2023/08/25(金) 13:24:00.65ID:pAfuG07Ud ク
999卵の名無しさん (スプープ Sdca-uXTh [49.109.7.174])
2023/08/25(金) 13:24:51.86ID:pAfuG07Ud ジャック!
↓
最後尿瓶ジジイの反撃が始まりますwww
↓
最後尿瓶ジジイの反撃が始まりますwww
1000卵の名無しさん (スプープ Sdca-uXTh [49.109.6.111])
2023/08/25(金) 18:58:09.71ID:NOZdP9erd 反撃始まりませんでしたwww
尿瓶ジジイ雑魚過ぎぃ!
尿瓶ジジイ雑魚過ぎぃ!
10011001
Over 1000Thread このスレッドは1000を超えました。
新しいスレッドを立ててください。
life time: 128日 10時間 7分 0秒
新しいスレッドを立ててください。
life time: 128日 10時間 7分 0秒
10021002
Over 1000Thread 5ちゃんねるの運営はプレミアム会員の皆さまに支えられています。
運営にご協力お願いいたします。
───────────────────
《プレミアム会員の主な特典》
★ 5ちゃんねる専用ブラウザからの広告除去
★ 5ちゃんねるの過去ログを取得
★ 書き込み規制の緩和
───────────────────
会員登録には個人情報は一切必要ありません。
月300円から匿名でご購入いただけます。
▼ プレミアム会員登録はこちら ▼
https://premium.5ch.net/
▼ 浪人ログインはこちら ▼
https://login.5ch.net/login.php
運営にご協力お願いいたします。
───────────────────
《プレミアム会員の主な特典》
★ 5ちゃんねる専用ブラウザからの広告除去
★ 5ちゃんねるの過去ログを取得
★ 書き込み規制の緩和
───────────────────
会員登録には個人情報は一切必要ありません。
月300円から匿名でご購入いただけます。
▼ プレミアム会員登録はこちら ▼
https://premium.5ch.net/
▼ 浪人ログインはこちら ▼
https://login.5ch.net/login.php
レス数が1000を超えています。これ以上書き込みはできません。
ニュース
- 佐藤二朗 ハラスメント報道にコメント「大変残念。全ての事実が明らかになることを望みます」所属事務所「到底受け入れられない」★21 [Ailuropoda melanoleuca★]
- 【スクープ】椎名林檎(47)×成田悠輔(40)が親密デート&ホテル密会!国民的アーティストとカリスマ経済学者”異色カップル” [Ailuropoda melanoleuca★]
- 長谷川豊、フジのドラマ“ハラスメント騒動”に言及「体に触れられたらトラウマ ハラスメントだ いや、間違いなく女優は無理でしょ」 [muffin★]
- 病院搬送の木下優樹菜 救急隊員の質問や態度に“ブチギレ” 「これなんの時間?」「声が出なくて逆によかったよ」 [ネギうどん★]
- 【W杯】ネイマール「彼(塩貝)の発言は口先だけのもの」「でもブラジルと日本は友達だ」 DFマルキーニョス「苛立った空気があった」★2 [ネギうどん★]
- 【調査】50~70代未婚男女の9割「孤独」 半数以上がパートナー求めるも大半が行動せず 肉体関係含む交際求める割合 女性は0% ★2 [ぐれ★]
- 【地上波/DAZNほか】 FIFAワールドカップ2026 総合スレ★289【メキシコ/カナダ/アメリカ】
- 【MLB】アスレチックス vs ドジャース ★4
- とらせん 雨
- かもめせん! ★2
- はません
- わしせん
- パンデミックや物価高対策でマイナンバー活用し現金を直接給付…政府がシステム整備へ [943688309]
- 【超緊急】「女」に対して思うこと、素直に書いてけ!!!(何書いてもOK) [344263159]
- 【悲報】ファンから借りた255万円を返さなくて殺されたライバーの母「借りパクって殺すほどのこと?」 [802034645]
- ライバー最上あいさんの母親が殺害犯・高野健一(44)に怒り「お金を返してなかったのなら悪いが、他にもやり方はあっただろう。一生許さない」 [597533159]
- 母ちゃんがパート増やすって
- フジテレビさんが緊急声明「佐藤二朗に厳重注意したことは事実です」 [455679766]