23/07/02 17:49:47.15 KJyZMWXq0.net
プリンペランでの錐体外路症状の話は
Minor Emergency いわゆる ゴキブリ本の最初に出てくる。
術後に1例経験した。アキネトンで軽快。
あの本は本邦未発売の薬が多くて治療の参考にはならん。
383:卵の名無しさん (ﾜｯﾁｮｲ 23c7-tq6G [124.47.76.122])
23/07/02 17:50:00.79 KJyZMWXq0.net
抗パ剤を高パ剤と誤変換で投稿するのは単純ミスだが
抗ドーパミン薬と投稿するのはタイプミスでも誤変換でもないよな。
＞悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。
ですってｗｗｗ
＞悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。
ですってｗｗｗ
＞当たり前だろ
＞当たり前だろ
＞当たり前だろ
とドヤ顔で大間違い
384:卵の名無しさん (ｱｳｱｳｳｰ Sa47-X7q4 [106.128.69.188])
23/07/02 18:21:18.53 hhZ/0Eu1a.net
>>368
アンタ悪性症候群が何かも分かってないだろ？脳内医者だからw
385:卵の名無しさん (ﾜｯﾁｮｲ a758-WLtP [106.73.2.65])
23/07/02 19:34:34.81 WO1OL87C0.net
おっ、人の粗を見つけてやっと元気出たな尿瓶ジジイ
>>367
流石にアホでもそれぐらいは気づいたかw
>>366ではプリンペランの投与か減量かは言及してないけどな
相変わらず人が間違っていると思ったら急に元気出すよなお前
統合失調症のせいで会話なりたってないのかと思ったが都合が悪くなるとその内容は無視するだけの糞野郎みたいだな
で、サンドラマランって何よ？www
386:卵の名無しさん (ﾜｯﾁｮｲ a758-WLtP [106.73.2.65])
23/07/02 19:41:31.39 WO1OL87C0.net
>>369
ちなみに、抗ドーパミン薬って書いたのも
わざとだよw
少し付け入る隙を与えてやらんとお前の頭悪すぎて、急に黙り込むからな
それでも、気づくのに5日かかったわけだがw
他に何か脳内医療自慢出来ないの？お前を馬鹿にするのがこのスレの趣旨なんだから
無い頭ふり絞ってもう少し頑張れよwww
387:卵の名無しさん (ﾜｯﾁｮｲ a758-WLtP [106.73.2.65])
23/07/02 19:46:19.87 WO1OL87C0.net
>>368
後、よっぽど嬉しかったのか連投してて超ウケルwww
プルプル震えながら何回も書き込みボタン連打してたんだろうなwww
良かったな！最近レス少ないから掲示板で虐めたせいで自殺したんかと思ったわw
388:卵の名無しさん (ｱｳｱｳｳｰ Sa47-X7q4 [106.128.73.122])
23/07/02 20:27:52.01 vQjQH3dda.net
これも尿瓶か？
URLﾘﾝｸ(h)
389:issi.org/read.php/hosp/20230702/Z0d0YnkyUnM.html
390:卵の名無しさん (ﾜｯﾁｮｲ 23c7-tq6G [124.47.76.122])
23/07/03 05:33:58.95 /5NmnLf60.net
>>376
アホな間違いに気づいて訂正しているくせに。
>>281
抗ドーパミン薬→抗パーキンソン病薬
をみてみ！
391:卵の名無しさん (ｽﾌﾟｰﾌﾟ Sd5a-WLtP [1.73.138.32])
23/07/03 07:17:19.83 A82lKyvEd.net
>>379
やっぱり馬鹿だなぁ
故意に間違えてなきゃ>>281でわざわざ1分後に訂正できるわけないだろ気づけよ
お前のサンドラマランと違ってなw
というか>>281の訂正に気づいていながらtypoじゃないって永遠と書き込み続けてるこの性格の悪さw
幼児化の進んだ認知症の年寄りみたいだな
392:卵の名無しさん (JP 0H06-X7q4 [61.199.225.248])
23/07/03 11:32:20.88 Mf3KE27SH.net
ｽﾚﾘﾝｸ(hosp板)
尿瓶ジジイ発狂しすぎて4連投w
393:柳井政則の自首
23/07/03 12:39:11.42
■■■■■■■■■■■■■■■■■■■■■■■■■■■■
患者から、良い医者と思われているか ヤブ医者と思われているかは、
気になると思いますが、そういう場合には、下記の本がオススメ。
■■■■■■■■■■■■■■■■■■■■■■■■■■■■
「東大医学部卒の医師が暴露！ 医者のコトバで分かる良い医者・
悪い医者」(福井一成、電子書籍、５００円)
■■■■■■■■■■■■■■■■■■■■■■■■■■■■
５００円と手頃な値段なので、買って読みましたが、けっこう
役立ちました。それに、東大病院のウラ事情も書いてあるので、
面白いです。（暴力医師の岩田純一と、脅迫罪の半井英夫、
キセル乗車1000回の柳井政則と、その証拠隠滅の新谷安代）
■■■■■■■■■■■■■■■■■■■■■■■■■■■■
394:卵の名無しさん (JP 0H06-X7q4 [61.199.225.248])
23/07/04 14:17:22.57 7CqGKdPZH.net
尿瓶ジジイ、高校生に発狂中w
ｽﾚﾘﾝｸ(math板)
395:卵の名無しさん (ｴﾑｿﾞﾈ FFba-WLtP [49.106.193.232])
23/07/04 19:50:38.57 idLKxyXuF.net
>>383
尿瓶ジジイこんなスレでも抗ドーパミン薬がどうとか言ってんのなw
どんだけ言い負かされたのが悔しかったんだよ！
素人相手なら騙せると思ったのか知らんが、マジで頭おかしいなw
396:卵の名無しさん (ｱｳｱｳｳｰ Sa47-X7q4 [106.128.68.218])
23/07/07 17:41:17.82 S8o/+UXga.net
数学板でも偽医者とか言われててワロタ
素人でも分かるみたいだね、まあ発言がアホすぎるから当然か
397:卵の名無しさん (ｱｳｱｳｳｰ Sa47-X7q4 [106.128.71.254])
23/07/07 20:19:02.56 +AewvEsja.net
402 １３２人目の素数さん[] 2023/07/07(金) 19:26:53.30 ID:FR9R1r+k
>>395
作図して面積を図るプログラムを作成
URLﾘﾝｸ(i.imgur.com)
Nelder-Mead法で求めた最大値は
> f(ans$par[1],ans$par[2],print=TRUE)
[1] 32.18685
東大合格者の検証を希望。
403 １３２人目の素数さん[] 2023/07/07(金) 19:40:07.98 ID:OiKj+2R4
>>402
>東大合格者の検証を希望。
おまえは東大合格者じゃなかったか？
なのに検証できないとはこれいかにｗｗｗ
尿瓶ジジイ墓穴を掘るww
398:卵の名無しさん (ﾜｯﾁｮｲ a158-an5T [14.13.16.0])
23/07/08 06:21:06.42 CVB49am+0.net
＞悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。
ですってｗｗｗ
＞当たり前だろ
＞当たり前だろ
＞当たり前だろ
とドヤ顔で大間違いを投稿！
これをタイプミスと言うには無理があるな。
399:卵の名無しさん (JP 0H05-8lI6 [146.70.76.185 [上級国民]])
23/07/08 09:45:39.43 vZit7BjaH.net
ホウレンソウの代わりに苦味を軽減したゴーヤを使ってキッシュ完成。
ちょうどよいくらいの苦味で旨い。
ククルビタシンよりモモルデシンのほうが安全だな。
ズッキーニのほうが下処理が簡単なのだが。
400:卵の名無しさん (ｽｯﾌﾟﾌﾟ Sd33-cQvX [49.105.83.19])
23/07/08 09:50:25.29 Yjnq
401:t7Ipd.net
402:卵の名無しさん (JP 0H05-8lI6 [146.70.76.185 [上級国民]])
23/07/08 09:57:43.79 vZit7BjaH.net
# 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)
403:卵の名無しさん (ﾜｯﾁｮｲ 13c9-hwDY [59.139.198.126])
23/07/08 10:28:25.48 IAfpIk5v0.net
医師板でプログラムごっこw
404:卵の名無しさん (ｱｳｱｳｳｰ Sa55-hwDY [106.128.69.197])
23/07/08 14:18:44.37 NUWTfvNoa.net
URLﾘﾝｸ(hissi.org)
朝から大暴れw
東大合格者の答えを希望しているそうだが一向に相手にされないどころか自分は東大合格者ではないのかと言われて大発狂w
405:卵の名無しさん (ｱｳｱｳｳｰ Sa55-hwDY [106.128.68.237])
23/07/08 23:37:01.06 G8SqcIGCa.net
459 １３２人目の素数さん[sage] 2023/07/08(土) 21:50:01.63 ID:IM959X8W
練習問題
白玉3個、赤玉3個、黒玉3個の計9個の玉をランダムに1列に並べるとき、同じ色が隣合わない並べ方は何通りあるか？
apply(permuteGeneral(c(1,2,4),freq=c(3,3,3)),1,\(x) all(diff(x)!=0)) |> sum()
を入力してリターンキーを押すだけ。瞬時に答が返ってくるから、時間の無駄とは感じないなぁ。
判定プログラムを作るのがそれなりに楽しいが数値解が返ってこなくちゃ意味がないな。
The proof of the pudding is in the eating.
尿瓶ジジイ、論より証拠という英語のことわざをドヤ顔で出したがるもいまだに学歴の証拠はあげられずww
406:卵の名無しさん (ﾜｯﾁｮｲ 51c7-EMxf [124.47.76.122])
23/07/09 18:27:18.70 o9WExem60.net
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
407:卵の名無しさん (ﾜｯﾁｮｲ 51c7-EMxf [124.47.76.122])
23/07/09 18:40:19.39 o9WExem60.net
＞悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。
ですってｗｗｗ
＞当たり前だろ
＞当たり前だろ
＞当たり前だろ
とドヤ顔で大間違いを投稿！
これをタイプミスと言うには無理があるな。
408:卵の名無しさん (ﾜｯﾁｮｲ 51c7-EMxf [124.47.76.122])
23/07/09 18:40:49.83 o9WExem60.net
サイコロを6回振り、出た目をノートに記録する。
以下の操作を繰り返し行う。
【操作】
サイコロを1回振り、出た目を記録する。それがノートに記録されている数と同じであった場合、この操作を繰り返す。
ノートに記録されていない数であった場合、操作を終了する。
このとき、操作が2回以下で終了する確率を求めよ。
409:卵の名無しさん (ｱｳｱｳｳｰ Sa55-hwDY [106.128.70.90])
23/07/09 18:47:54.31 UWjXAGIra.net
尿瓶ジジイもう同じ文言でしか発狂できないみたいだね、つくづく哀れ
胆汁ドレナージなんてマヌケなこと言ってる医者なんかいねーよw
410:卵の名無しさん (ﾜｯﾁｮｲ 8958-cQvX [106.73.2.65])
23/07/09 20:00:42.64 0CRrhkP90.net
>>395
頭悪すぎて同じことしか書けないのなwww
他に何か思い浮かばんのか？偏差値30程度かなwww
411:卵の名無しさん (ｱｳｱｳｳｰ Sa55-hwDY [106.128.71.79])
23/07/09 20:05:40.10 y4nJGUDba.net
偏差値30もないだろ
ただのチンパン
412:卵の名無しさん (ｱｳｱｳｳｰ Sa55-hwDY [106.128.71.79])
23/07/09 20:07:03.76 y4nJGUDba.net
>>395
どうでもいいから医科歯科の卒業証書と東大合格通知と医師免許はよ
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
413:卵の名無しさん (ﾌﾞｰｲﾓ MM8b-EMxf [133.159.150.60])
23/07/09 20:23:52.51 T88uIJy0M.net
サイコロを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)
414:卵の名無しさん (ﾌﾞｰｲﾓ MM8b-EMxf [133.159.150.60])
23/07/09 20:24:02.72 T88uIJy0M.net
[,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
415:卵の名無しさん (ﾌﾞｰｲﾓ MM8b-EMxf [133.159.150.60])
23/07/09 20:24:42.38 T88uIJy0M.net
＞悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。
ですってｗｗｗ
＞当たり前だろ
＞当たり前だろ
＞当たり前だろ
とドヤ顔で大間違いを投稿！
これをタイプミスと言うには無理があるな。
416:卵の名無しさん (ﾌﾞｰｲﾓ MM8b-EMxf [133.159.150.60])
23/07/09 20:26:49.13 T88uIJy0M.net
パリパリピーマンは以外に美味かった。
パプリカでもやってみたが、遜色ない。
417:卵の名無しさん (ﾜｯﾁｮｲ 8958-cQvX [106.73.2.65])
23/07/09 20:53:55.46 0CRrhkP90.net
医療ネタは嘘がバレるので全く書き込めない尿瓶ジジイさんでした
哀れwww
418:卵の名無しさん (ｱｳｱｳｳｰ Sa55-hwDY [106.128.71.153])
23/07/09 21:25:21.56 L2kdlL1Na.net
尿瓶ジジイ、医療ネタ()でコテンパンにされたのがよほど悔しいみたいだなw
419:卵の名無しさん (ﾜｯﾁｮｲ 51c7-EMxf [124.47.76.122])
23/07/10 04:28:24.85 WSW/+gmn0.net
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)
420:卵の名無しさん (ﾜｯﾁｮｲ 51c7-EMxf [124.47.76.122])
23/07/10 08:20:25.53 WSW/+gmn0.net
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)
421:卵の名無しさん (ﾌﾞｰｲﾓ MM8b-EMxf [133.159.149.125])
23/07/10 08:40:14.03 IfMUDmD3M.net
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()
422:卵の名無しさん (ﾌﾞｰｲﾓ MM8b-EMxf [133.159.149.125])
23/07/10 11:49:57.30 IfMUDmD3M.net
sim=\(n=1234567890){
while(n%%37!=0 | n<1e9) (sample(0:9)*(10^(0:9))) |> sum() -> n
n
}
y=replicate(100,sim())
y
423:卵の名無しさん (ｱｳｱｳｳｰ Sa55-hwDY [106.128.73.137])
23/07/10 12:56:48.64 TU/cRr/ha.net
尿瓶ジジイもうコピペですら発狂できなくなったか
424:卵の名無しさん (ｱｳｱｳｳｰ Sa55-hwDY [106.128.75.71])
23/07/10 13:12:28.48 wykjFhbga.net
235 卵の名無しさん[sage] 2023/07/10(月) 11:59:46.04 ID:IfMUDmD3
ドヤ顔で大間違いがこれ！
>>
悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。止めて起こるのが悪性症候群なのに
<<
超一流裏口シリツ容疑者ですら言わんと思う。
ｽﾚﾘﾝｸ(hosp板)
こっちにもコッソリ書き込みw
425:卵の名無しさん (ﾜｯﾁｮｲ 7324-8lI6 [149.50.210.17 [上級国民]])
23/07/10 13:49:33.99 OI4k1ERX0.net
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)
426:卵の名無しさん (ﾜｯﾁｮｲ 7324-8lI6 [149.50.210.17 [上級国民]])
23/07/10 14:28:49.61 OI4k1ERX0.net
# 小数点付きの数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)
427:卵の名無しさん (ﾜｯﾁｮｲ 7324-+xlV [149.50.210.17 [上級国民]])
23/07/10 14:47:18.07 OI4k1ERX0.net
> 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
428:卵の名無しさん (ﾜｯﾁｮｲ 7324-+xlV [149.50.210.17 [上級国民]])
23/07/10 15:14:10.57 OI4k1ERX0.net
0123456789abcdefghijklmnopqrstuvwxyzの36個の文字を使って36進数表示とする。
1×1からｚ×zまでの掛け算表�
429:i10進法でいうところの九九）を作成せよ。 https://i.imgur.com/Jj8dYE9.png
430:卵の名無しさん (ｱｳｱｳｳｰ Sa55-qWfd [106.128.74.171])
23/07/11 00:29:08.85 Gem5XUAUa.net
おい尿瓶クソジジイ
高校数学スレの威勢はどうしたんだよw
発狂しまくってるじゃねーかw
高校生に馬鹿にされるのがそんなに楽しいか？
431:卵の名無しさん (ﾜｯﾁｮｲ 7324-8lI6 [149.50.210.17 [上級国民]])
23/07/11 05:23:42.84 WacivYFQ0.net
＞悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。
ですってｗｗｗ
＞当たり前だろ
＞当たり前だろ
＞当たり前だろ
とドヤ顔で大間違いを投稿！
これをタイプミスと言うには無理がある
432:卵の名無しさん (ﾜｯﾁｮｲ 7324-8lI6 [149.50.210.2 [上級国民]])
23/07/11 08:19:42.73 TcY5xGjq0.net
JaneStyleで書き込めるかな？
433:卵の名無しさん (ﾜｯﾁｮｲ 7324-8lI6 [149.50.210.2 [上級国民]])
23/07/11 08:30:00.54 TcY5xGjq0.net
アップデートせずにcfgファイルをリネームすれば読み書きできるな。
434:岩田純一は犯罪者
23/07/11 11:21:25.00 CMjTRqfLT
■■■■■■■■■■■■■■■■■■■■■■■■■■■■
岩田純一は、Ａ医師に暴力をふるった。それを見ていた証人は、多数いる。
磯辺医師、池之上医師、小室医師、関医師、半井英夫医師など。
岩田純一に殴られたＡ医師が、本富士警察署に訴えてやると言ったところ、
半井英夫が、そんなことをしたら、Ａ医師をクビにすると強迫した。
すべて実名なので、警視庁サイバー犯罪対策課に 通報してください。
■■■■■■■■■■■■■■■■■■■■■■■■■■■■
435:卵の名無しさん (ｱｳｱｳｳｰ Sa55-qWfd [106.128.74.219])
23/07/11 12:53:37.37 DX+CR3Rva.net
胆汁ドレナージもタイプミスというには無理があるなw
436:卵の名無しさん (ｱｳｱｳｳｰ Sa55-qWfd [106.128.74.219])
23/07/11 12:53:39.93 DX+CR3Rva.net
胆汁ドレナージもタイプミスというには無理があるなw
437:卵の名無しさん (ﾜｯﾁｮｲ a158-kkOg [14.13.16.0])
23/07/12 07:36:32.54 t5b15MnV0.net
胆汁ドレナージは普通に使う。
アストラップも同様。
俺の世代ならUGIよりMDLの方がわかりやすい。
438:卵の名無しさん (ﾜｯﾁｮｲ a158-gR7n [14.13.16.0])
23/07/12 07:40:01.17 t5b15MnV0.net
Xeno
439:卵の名無しさん (ﾜｯﾁｮｲ a158-gR7n [14.13.16.0])
23/07/12 07:40:40.45 t5b15MnV0.net
JaneXenoで書き込みテスト
440:卵の名無しさん (ﾜｯﾁｮｲ 7324-0NZ1 [149.50.210.17 [上級国民]])
23/07/12 07:51:23.23 JNn6i5Pi0.net
設定が面倒ではあった。
441:卵の名無しさん (ﾜｯﾁｮｲ 7324-0NZ1 [149.50.210.17 [上級国民]])
23/07/12 07:55:38.87 JNn6i5Pi0.net
VPNでのアラートがでなくて、JaneStyleより使い勝手が( ・∀・)ｲｲ!!
442:卵の名無しさん (ﾜｯﾁｮｲ 7324-0NZ1 [149.50.210.17 [上級国民]])
23/07/12 08:20:06.47 JNn6i5Pi0.net
JaneStyleだとバイナリ編集が必要だったが、Xenoだとそれは不要。
443:卵の名無しさん (RU 0H8b-0NZ1 [5.180.138.53 [上級国民]])
23/07/12 08:28:27.96 gojMVCPuH.net
円周率を小数点以下10桁まで2進法、3進法、4進法,...,9進法で表わせ。
444:卵の名無しさん (RU 0H8b-0NZ1 [5.180.138.53 [上級国民]])
23/07/12 08:30:14.94 gojMVCPuH.net
ロシアのVPN経由でもXenoだと書き込めるようだ。JaneStyleだと書き込めないのに
445:卵の名無しさん (ﾜｯﾁｮｲ 298b-0NZ1 [176.119.25.122 [上級国民]])
23/07/12 08:31:03.59 uZGQTwx/0.net
ウクライナ経由
446:卵の名無しさん (JP 0H53-Iq7K [217.138.252.98 [上級国民]])
23/07/12 09:48:12.42 mZy67b02H.net
Braveで記念カキコ
447:卵の名無しさん (EC 0Hcd-Iq7K [102.38.236.15 [上級国民]])
23/07/12 09:49:51.25 m3A6pFLTH.net
海外VPN経由 カキコ
448:卵の名無しさん (EC 0Hcd-0NZ1 [102.38.236.15 [上級国民]])
23/07/12 09:51:28.93 m3A6pFLTH.net
ソフトウェア板の神カキコに感謝
449:卵の名無しさん (JP 0H53-0NZ1 [217.138.212.98 [上級国民]])
23/07/12 09:52:15.49 +tuh35xKH.net
最速サーバーに設定して再度カキコ
450:卵の名無しさん (JP 0H53-0NZ1 [217.138.212.98 [上級国民]])
23/07/12 09:55:58.91 +tuh35xKH.net
Xeno使っていると、いちいち、VPNを外さなくてもよくなった
451:卵の名無しさん (JP 0H53-0NZ1 [217.138.212.98 [上級国民]])
23/07/12 10:00:29.16 +tuh35xKH.net
まあ、仕様変更でいつ使えなくなるかわからないから
バイナリ編集済のJaneStyleも保存しておこう。
452:卵の名無しさん (JP 0Hab-qWfd [61.199.225.248])
23/07/12 10:46:47.49 +Aw9eoClH.net
尿瓶ジジイは5chで発狂することが生きがいのようだなw
453:卵の名無しさん (ﾜｯﾁｮｲ a158-an5T [14.13.16.0])
23/07/12 14:10:14.66 t5b15MnV0.net
a(n) = - (1 - 3 i) - (1/2 + (5 i)/2) (1 + i)^n
454:卵の名無しさん (JP 0H53-0NZ1 [217.138.212.98 [上級国民]])
23/07/12 14:12:10.47 +tuh35xKH.net
＞悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。
ですってｗｗｗ
＞当たり前だろ
＞当たり前だろ
＞当たり前だろ
とドヤ顔で大間違いを投稿！
裏口シリツ医でもこんな投稿はしない。
455:卵の名無しさん (ﾜｯﾁｮｲ a158-gR7n [14.13.16.0])
23/07/12 15:18:58.15 t5b15MnV0.net
浪人なし�
456:ｾとVPNは弾かれてしまう。
457:卵の名無しさん (JP 0H53-8lI6 [217.138.212.98 [上級国民]])
23/07/12 15:21:14.02 +tuh35xKH.net
JaneStyle via VPN with Ronin
458:卵の名無しさん (ﾜｯﾁｮｲ a158-9xv0 [14.13.16.0 [上級国民]])
23/07/12 18:16:26.42 t5b15MnV0.net
ChromeやFirefoxの拡張
read crx2
URLﾘﾝｸ(readcrx-2.github.io)
459:卵の名無しさん (JP 0H05-9xv0 [146.70.31.18 [上級国民]])
23/07/12 18:19:01.61 A/oxQ9ZkH.net
これは便利。
普通にブラウザでアクセスするとスレ探しだけでも手間だったが。
460:卵の名無しさん (ｱｳｱｳｳｰ Sa55-qWfd [106.128.75.168])
23/07/12 19:40:29.77 NzW/27YBa.net
>>424
じゃあ教科書や専門書のどこに書いてあるんだ？
研修医含め全員に通じないと話にならないぞw
アンタが知らずにもうそう言い張るしかなくなっただけだろタコ
461:卵の名無しさん (JP 0H53-0NZ1 [217.138.212.98 [上級国民]])
23/07/12 19:44:21.12 +tuh35xKH.net
＞悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。
ですってｗｗｗ
＞当たり前だろ
＞当たり前だろ
＞当たり前だろ
とドヤ顔で大間違いを投稿！
裏口シリツ医でもこんな投稿はしない。
462:卵の名無しさん (JP 0H53-0NZ1 [217.138.212.98 [上級国民]])
23/07/12 19:47:14.22 +tuh35xKH.net
>>446
カルテにMDLと書いてあったら教養がある医師なら意味が理解できる。
昔は開業医の紹介状はドイツ語が多くて難儀した。
オペ室でバイクリルというとポリゾーブがでてくるが、それでちゃんと通じている。
一昔前だと吸収糸はなんでもデキソンと呼ぶ外科医もいたなぁ。
Homan鈎をフランス語読みする整形外科医もいたｗ
463:卵の名無しさん (JP 0H53-0NZ1 [217.138.212.98 [上級国民]])
23/07/12 19:48:12.42 +tuh35xKH.net
最近はICというナースが多いが、古株はムンテラと呼ぶ。
464:卵の名無しさん (JP 0H53-0NZ1 [217.138.212.98 [上級国民]])
23/07/12 19:49:51.18 +tuh35xKH.net
＞悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。
これは国試で禁忌肢を選択するに等しい。
465:卵の名無しさん (JP 0H53-9xv0 [217.138.212.98 [上級国民]])
23/07/12 19:58:06.82 +tuh35xKH.net
＞悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。
ですってｗｗｗ
＞当たり前だろ
＞当たり前だろ
＞当たり前だろ
とドヤ顔で大間違いを投稿！
国試でいえば禁忌肢をドヤ顔で選ぶに等しい
466:卵の名無しさん (JP 0H53-9xv0 [217.138.212.98 [上級国民]])
23/07/12 21:16:56.23 +tuh35xKH.net
設定 ＞ 一般 ＞ 2ch.netのスレッド読み込み形式
でdat形式へ切り替え
datに切り替えたら更新ボタン後の新着表示めっちゃサクサク
467:卵の名無しさん (ﾜｯﾁｮｲ 7324-9xv0 [149.50.210.2 [上級国民]])
23/07/13 08:15:45.20 PtQMuNjl0.net
シリツ医の評価はこれがデフォだな。
ｽﾚﾘﾝｸ(hosp板:120番)-121
468:卵の名無しさん (ｱｳｱｳｳｰ Sa55-qWfd [106.128.75.161])
23/07/13 08:45:28.41 jFDNRr5ha.net
胆汁ドレナージバッグという商品名から医療行為だと勘違いしたが引き返せなくなっただけだろw
469:卵の名無しさん (JP 0H53-9xv0 [217.138.212.98 [上級国民]])
23/07/13 15:34:44.20 IU3eB0VDH.net
いや、うちは中山式吸引バックを使っていたよ。
胆汁ドレナージバックには何かわすれたが薬局からもらったボトルを再利用してGボトルと呼んでいた。
＞悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。
ですってｗｗｗ
＞当たり前だろ
＞当たり前だろ
＞当たり前だろ
とドヤ顔で大間違いを投稿！
シリツ医でもこんなことをいう椰子はいないだろうな。
国試でいえば禁忌肢にあたるわけだから。
470:卵の名無しさん (JP 0H53-9xv0 [217.138.212.98 [上級国民]])
23/07/13 15:38:55.04 IU3eB0VDH.net
アストラップも商品名だがこれで通じる。
メラは方言なので一部の病院でしか通じない。
ツッペルというと関東ではツッペル鉗子をさすが、
岡大系だと小ガーゼがでてくる。
がん研で長谷川の鉗子（小さいのはハセショーと略していたな）
岡大だと三村がそれに相当。先端が少々異なるけど。
471:卵の名無しさん (JP 0H53-0NZ1 [217.138.212.98 [上級国民]])
23/07/13 15:42:01.72 IU3eB0VDH.net
プチトマトを湯剥きして、冷やしパスタのソースに使った。
トマトの皮が口に残らず、
472:味もよく染みて美味かった。
473:卵の名無しさん (JP 0H53-0NZ1 [217.138.212.98 [上級国民]])
23/07/13 15:43:01.65 IU3eB0VDH.net
パリパリピーマンよりオクラの方が冷やしパスタに合うな。
474:卵の名無しさん (JP 0H53-0NZ1 [217.138.212.98 [上級国民]])
23/07/13 15:50:32.22 IU3eB0VDH.net
トウモロコシの葉はお茶の葉にしかできなかったが、
ゴーヤのワタは蒲焼き風に料理できた。まあ、種が邪魔ではあるが。
475:卵の名無しさん (JP 0H53-fRZg [217.138.212.98 [上級国民]])
23/07/13 16:01:24.65 IU3eB0VDH.net
串なしでカキコテスト
476:卵の名無しさん (JP 0H53-fRZg [217.138.212.98 [上級国民]])
23/07/13 16:02:10.90 IU3eB0VDH.net
今は串なしXenoでカキコ可能なんだな。
477:卵の名無しさん (ﾜｯﾁｮｲ a158-GyHO [14.13.16.0])
23/07/13 18:00:11.31 cTX/n/6o0.net
バターレモン醤油で味付けのビーツのステーキ、美味い。
火が通りやすいように格子状にプレカットしてレンジ加熱後に焼いて、焼き目がついたらステーキソースで蒸し焼き！
corocoroの大根ステーキを越える。
478:卵の名無しさん (ｱｳｱｳｳｰ Sa55-qWfd [106.128.73.103])
23/07/13 19:38:39.13 dmAKMJlHa.net
>>455
商品名を医療行為と勘違いしたんだろマヌケ
元医療事務、やっぱ脳内医者丸出しですわ
479:卵の名無しさん (ｱｳｱｳｳｰ Sa55-6Oe8 [106.128.73.103])
23/07/14 03:11:03.92 hN5o4dmWa.net
>>455
鬼の首取ったみたいにコピペ何度も貼り付けてるのほんとチンパンだね
ちなみに俺じゃないけどそれw
それとも認知症なのかな？
480:卵の名無しさん (ｱｳｱｳｳｰ Sa55-6Oe8 [106.128.73.103])
23/07/14 06:08:59.22 hN5o4dmWa.net
おい尿瓶クソジジイ
いつになったら卒業証書と医師免許出すんだよ？
どうせ脳内なんだろ？
481:卵の名無しさん (ｱｳｱｳｳｰ Sa55-6Oe8 [106.128.73.103])
23/07/14 07:03:54.63 hN5o4dmWa.net
おい尿瓶クソジジイ
高校数学スレでさんざん発狂してるのにここはダンマリかよ
もしかして東大合格者の回答を希望したのに東大合格者どころか誰にも相手にされてないことに発狂してるのかな？
482:卵の名無しさん (JP 0H53-9xv0 [217.138.212.98 [上級国民]])
23/07/14 07:19:12.73 s0hZoESdH.net
URLﾘﾝｸ(i.imgur.com)
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()
483:卵の名無しさん (ﾜｯﾁｮｲ a158-vjEl [14.13.16.0 [上級国民]])
23/07/14 07:20:58.33 b0+QAbis0.net
>>466
東大卒のI氏が誤答でレスしているよ。
東大卒なら東大合格者と言ってよい。
吉田茂は怪しいが。
484:卵の名無しさん (ﾜｯﾁｮｲ eb12-6Oe8 [153.137.214.121])
23/07/14 09:08:15.15 xSKqpO+h0.net
>>468
で、そのI氏は今どこ行ったんだ
何をもって東大合格者なんだよタコw尿瓶ジジイだって脳内とか言われてるアホなのにw
485:卵の名無しさん (ﾌﾞｰｲﾓ MM95-EMxf [202.214.125.196])
23/07/14 12:05:33.82 FEmH5p8OM.net
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])
486:卵の名無しさん (ﾌﾞｰｲﾓ MM95-EMxf [202.214.125.196])
23/07/14 12:11:11.12 FEmH5p8OM.net
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]))
487:卵の名無しさん (ﾜｯﾁｮｲ a158-EMxf [14.13.16.0])
23/07/14 13:18:58.51 b0+QAbis0.net
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]))
488:卵の名無しさん (ﾜｯﾁｮｲ a158-vjEl [14.13.16.0 [上級国民]])
23/07/14 13:32:46.99 b0+QAbis0.net
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
489:卵の名無しさん (JP 0H53-9xv0 [217.138.212.98 [上級国民]])
23/07/14 14:11:02.20 s0hZoESdH.net
地球を赤道の長さは４万kmの完全な球と仮定する。
仮想敵国の首都と緯度経度は以下の通りである。
モスクワ 北緯55.83°東経37.62°
北京 北緯39.93°東経116.28°
平壌 北緯39.02°東経125.78°
3つの首都を爆撃するためにトマホーク基地を建設する。
(1) 3首都へのトマホークの飛行距離の総和が最小になる基地の緯度経度を求めよ。
(2) (1)で求めた基地はどこの国の領土かを答えよ。
490:卵の名無しさん (JP 0H53-9xv0 [217.138.212.98 [上級国民]])
23/07/14 16:30:51.25 s0hZoESdH.net
# 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)))
}
491:卵の名無しさん (JP 0H53-fRZg [217.138.212.98 [上級国民]])
23/07/14 16:36:25.70 s0hZoESdH.net
>>469
進学校卒なら東大合格くらい珍しくないだろ。
あんた東大落ちたの？
さてはシリツだな。
492:卵の名無しさん (ｱｳｱｳｳｰ Sa55-6Oe8 [106.128.74.50])
23/07/14 17:39:09.20 Y+2SZtmha.net
高校数学スレじゃ高校生相手にイキリ散らかしてるくせにこっちではダンマリ決め込むのか？尿瓶ジジイ
全く情けないにも程があるw
493:卵の名無しさん (ｱｳｱｳｳｰ Sa55-6Oe8 [106.128.74.50])
23/07/14 17:40:05.23 Y+2SZtmha.net
>>476
脳内医者が何ほざいてんだw
494:卵の名無しさん (ﾜｯﾁｮｲ a158-r9fA [14.13.16.0 [上級国民]])
23/07/14 20:57:48.67 b0+QAbis0.net
tric <- function(A,B,C){ # 複素点３点を通る円の中心と半径を返す
a1=Re(A) ; a2=Im(A)
b1=Re(B) ; b2=Im(B)
c1=Re(C) ; c2=Im(C)
p = (a1^2*(-b2) + a1^2*c2 - a2^2*b2 + a2^2*c2 + a2*b1^2 + a2*b2^2 - a2*c1^2 - a2*c2^2 - b1^2*c2 - b2^2*c2 + b2*c1^2 + b2*c2^2)/(2*(-a1*b2 + a1*c2 + a2*b1 - a2*c1 - b1*c2 + b2*c1))
q = -(a1^2*(-b1) + a1^2*c1 + a1*b1^2 + a1*b2^2 - a1*c1^2 - a1*c2^2 - a2^2*b1 + a2^2*c1 - b1^2*c1 + b1*c1^2 + b1*c2^2 - b2^2*c1)/(2*(-a1*b2 + a1*c2 + a2*b1 - a2*c1 - b1*c2 + b2*c1))
Ce=p+1i*q
r=abs(Ce-A)
c(Center=Ce,Radius=r)
}
495:卵の名無しさん (ﾜｯﾁｮｲ a158-r9fA [14.13.16.0 [上級国民]])
23/07/14 20:58:34.36 b0+QAbis0.net
>>478
で、シリツなんだろ？
496:卵の名無しさん (JP 0H53-9xv0 [217.138.212.98 [上級国民]])
23/07/14 21:40:03.19 s0hZoESdH.net
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)
}
497:卵の名無しさん (JP 0H53-fRZg [217.138.212.98 [上級国民]])
23/07/14 21:59:48.82 s0hZoESdH.net
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
498:)
499:卵の名無しさん (ｱｳｱｳｳｰ Sa17-Zr+2 [106.128.73.124])
23/07/15 00:36:01.86 kQf2HFX9a.net
545：１３２人目の素数さん：[sage]：2023/07/11(火) 15:35:42.62 ID:C1KEbgrH
尿瓶ジジイ>>543の学歴がホントだと思う人誰か庇ってあげてw
東大卒だというイナさん含めとうとう誰も庇ってくれなかったね
これでスレ住民全員に庇う価値のないチンパンだと思われてるということが証明されてしまったね
そう、尿瓶ジジイが好きな証明がw
500:卵の名無しさん (JP 0H6f-gMG4 [217.138.212.98 [上級国民]])
23/07/15 06:43:29.67 X1xEkNEDH.net
東大卒なら東大合格者を羨む必要もないし、
医科歯科以上の格上大学の卒なら医科歯科卒を羨む必要もない。
そういうことだよ。
501:卵の名無しさん (JP 0H6f-QoCo [217.138.212.98 [上級国民]])
23/07/15 06:44:53.35 X1xEkNEDH.net
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)
}
502:卵の名無しさん (JP 0H6f-QoCo [217.138.212.98 [上級国民]])
23/07/15 06:45:14.76 X1xEkNEDH.net
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))
}
503:卵の名無しさん (JP 0H6f-QoCo [217.138.212.98 [上級国民]])
23/07/15 06:46:29.02 X1xEkNEDH.net
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
}
504:卵の名無しさん (JP 0H6f-QoCo [217.138.212.98 [上級国民]])
23/07/15 06:47:00.85 X1xEkNEDH.net
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)))
}
505:卵の名無しさん (JP 0H6f-QoCo [217.138.212.98 [上級国民]])
23/07/15 06:47:39.24 X1xEkNEDH.net
tric <- function(a1,a2,b1,b2,c1,c2){ # ３点を通る円の中心と半径を返す
p = (a1^2*(-b2) + a1^2*c2 - a2^2*b2 + a2^2*c2 + a2*b1^2 + a2*b2^2 - a2*c1^2 - a2*c2^2 - b1^2*c2 - b2^2*c2 + b2*c1^2 + b2*c2^2)/(2*(-a1*b2 + a1*c2 + a2*b1 - a2*c1 - b1*c2 + b2*c1))
q = -(a1^2*(-b1) + a1^2*c1 + a1*b1^2 + a1*b2^2 - a1*c1^2 - a1*c2^2 - a2^2*b1 + a2^2*c1 - b1^2*c1 + b1*c1^2 + b1*c2^2 - b2^2*c1)/(2*(-a1*b2 + a1*c2 + a2*b1 - a2*c1 - b1*c2 + b2*c1))
Ce=p+1i*q
r=abs(a1+1i*a2-Ce)
list(Center=c(p,q),Radius=r)
}
p1=Outcircle(x1,y1,x2,y2,x3,y3)[[1]]
p2=nine_point_circle(x1,y1,x2,y2,x3,y3)[[1]]
p3=Fermat_Point(x1,y1,x2,y2,x3,y3)[[1]]
tric(p1[1],p1[2],p2[1],p2[2],p3[1],p3[2])
}
506:卵の名無しさん (JP 0H6f-gMG4 [217.138.212.98 [上級国民]])
23/07/15 06:53:45.94 X1xEkNEDH.net
>>464
食道抜去術をやったことないだろ？
507:卵の名無しさん (JP 0H6f-gMG4 [217.138.212.98 [上級国民]])
23/07/15 11:43:54.39 X1xEkNEDH.net
レスター円の計算、括弧対応だけでも目がチカチカするな。
Wolframにsimplifyさせようとしたけど、長すぎて受け付けてくれなかった。
508:卵の名無しさん (ｱｳｱｳｳｰ Sa17-Zr+2 [106.128.69.220])
23/07/15 12:54:36.95 jjOgQI4+a.net
じゃあご自慢の卒業証書と医師免許をどうぞ
それができないから発狂してるみたいだがw
509:卵の名無しさん (ｱｳｱｳｳｰ Sa17-Zr+2 [106.128.69.220])
23/07/15 12:57:24.86 jjOgQI4+a.net
>>455
胆汁ドレナージなんて医者だったら出てこないんだよマヌケ
脳内丸出しなのに自分の中ではブラックジャックのつもりなのか？
ただのウンコ製造機だろ現実は
510:卵の名無しさん (ｱｳｱｳｳｰ Sa17-Zr+2 [106.128.69.220])
23/07/15 18:12:26.26 jjOgQI4+a.net
717：１３２人目の素数さん：2023/07/15(土) 15:31:32.01 ID:LoYxjpMT
>>713
定義されるが、３頂点となす角は120°にはならん。
逆に内角120°以上の頂点がある場合は、最小値の探索などせずともその頂点がフェルマー点。
そんな簡単なことすらわからないのが、プログラム土方の限界なんだよ。
フェルマー点を最小値探索で数値的に求めるなんて、あんたみたいな馬鹿のやることだよｗ
>>714
単なる書き間違いを鬼のクビをとったように騒いで恥ずかしくないのか？
俺が書いたわけではないが、よほどの馬鹿でなければ、「3頂点となす
角が120°だとなぜ和が最小になるか」って意味だと推測できるだろ。
ほんとどうしようもない馬鹿だな、あんたｗ
やっぱり東大不合格の偽医者だろｗ
数学板のキチガイからすらこの言われようw
511:卵の名無しさん (ﾜｯﾁｮｲ 6724-QoCo [149.50.210.2 [上級国民]])
23/07/16 07:19:32.46 nkl8msvs0.net
"
宇宙空間に惑星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桁でよい。
尚、惑星や人工衛星の大きさは考慮しない。
URLﾘﾝｸ(i.imgur.com)
"
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]
512:卵の名無しさん (ﾜｯﾁｮｲ 6724-QoCo [149.50.210.2 [上級国民]])
23/07/16 07:20:02.08 nkl8msvs0.net
"
配置された後に人工衛星は惑星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,'●')
513:卵の名無しさん (ﾜｯﾁｮｲ 6724-QoCo [149.50.210.2 [上級国民]])
23/07/16 07:21:06.87 nkl8msvs0.net
"
宇宙空間に惑星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桁でよい。
尚、惑星や人工衛星の大きさは考慮しない。
URLﾘﾝｸ(i.imgur.com)
"
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]
514:卵の名無しさん (ﾜｯﾁｮｲ 6724-QoCo [149.50.210.2 [上級国民]])
23/07/16 07:21:39.86 nkl8msvs0.net
URLﾘﾝｸ(i.imgur.com)
515:卵の名無しさん (ｱｳｱｳｳｰ Sa17-Zr+2 [106.128.70.187])
23/07/16 09:57:38.91 5xRAEPgoa.net
尿瓶ジジイここでも数学板でもコテンパンだねww
516:卵の名無しさん (ﾜｯﾁｮｲ 8fc7-/L8v [124.47.76.122])
23/07/16 11:10:10.94 xzU/43/d0.net
いや、東大合格者でないのが妬んでいるだけだよ。
517:卵の名無しさん (ﾜｯﾁｮｲ 8fc7-/L8v [124.47.76.122])
23/07/16 11:22:15.80 xzU/43/d0.net
# 座標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)
}
518:卵の名無しさん (ｱｳｱｳｳｰ Sa17-Zr+2 [106.128.69.163])
23/07/16 11:40:36.08 dE/9kjsaa.net
>>500
妬んでるのはアンタだろw
聞かれてもないのに自称学歴を語ってアホさ加減に違うだろと言ったら発狂する
519:卵の名無しさん (ﾌﾞｰｲﾓ MMdf-/L8v [49.239.65.151])
23/07/16 12:25:36.28 NIpHVD8wM.net
>>502
東大合格通知のコピーを父親がファイリングしてくれていたよ。
520:卵の名無しさん (ﾌﾞｰｲﾓ MMdf-/L8v [49.239.65.151])
23/07/16 12:38:26.96 NIpHVD8wM.net
A=c(2,0,2)
B=c(3,0,7)
C=c(1,6,1)
ma=1
mb=2
mc=4
ABC=rbind(
521: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]
522:卵の名無しさん (ﾌﾞｰｲﾓ MMdf-/L8v [49.239.65.151])
23/07/16 12:38:48.79 NIpHVD8wM.net
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)
523:卵の名無しさん (ﾌﾞｰｲﾓ MMdf-/L8v [49.239.65.151])
23/07/16 12:40:36.04 NIpHVD8wM.net
A(2,0,2)
B(3,0,7)
C(1,6,0)
の座標に惑星があり、質量比は1:2:4である。
A,B,Cの作る平面上の点で３つの惑星からの引力のベクトル和が０になる点の座標を求めよ。
惑星の大きさは考慮しないでよい。有効数字3桁で答えよ。
524:卵の名無しさん (ｱｳｱｳｳｰ Sa17-Zr+2 [106.128.68.89])
23/07/16 13:38:51.62 ZSy8rgbma.net
>>503
で、卒業証書と医師免許はどこにあんだよ？
アンタの脳内か？
525:卵の名無しさん (ﾜｯﾁｮｲ cf12-Zr+2 [153.137.214.121])
23/07/16 16:28:43.51 J1dm9s2R0.net
尿瓶ジジイ、あまりのアホさ加減に素人からも脳内医者扱いされるw
526:卵の名無しさん (ﾜｯﾁｮｲ 8fc7-/L8v [124.47.76.122])
23/07/16 18:15:35.75 xzU/43/d0.net
a=rep(1:6,2)
sim=\() (sample(a)[1:4] |> unique() |> length()) == 2
replicate(1e5,sim()) |> mean()
527:卵の名無しさん (ﾜｯﾁｮｲ 8fc7-/L8v [124.47.76.122])
23/07/16 18:33:12.25 xzU/43/d0.net
0.030131
528:卵の名無しさん (ﾜｯﾁｮｲ 8fc7-/L8v [124.47.76.122])
23/07/16 18:33:29.77 xzU/43/d0.net
0.030131
529:卵の名無しさん (ﾜｯﾁｮｲ 8fc7-/L8v [124.47.76.122])
23/07/16 18:33:51.43 xzU/43/d0.net
a=rep(1:6,2)
sim=\() (sample(a)[1:4] |> unique() |> length()) == 2
replicate(1e6,sim()) |> mean()
530:卵の名無しさん (ﾌﾞｰｲﾓ MM07-/L8v [210.138.178.209])
23/07/16 19:03:06.85 ubGBYOqbM.net
男８人女４人を６個のツインルームに無作為に割り当てる。
男女混合の部屋ができない確率を求めよ。
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()
531:卵の名無しさん (ﾌﾞｰｲﾓ MM07-/L8v [210.138.178.209])
23/07/16 19:33:16.40 ubGBYOqbM.net
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()
532:卵の名無しさん (ｱｳｱｳｳｰ Sa17-Zr+2 [106.128.71.60])
23/07/16 20:36:48.68 RdGkp9Oja.net
尿瓶ジジイダンマリ決め込んでて草
533:卵の名無しさん (ﾜｯﾁｮｲ 8fc7-/L8v [124.47.76.122])
23/07/16 22:06:31.48 xzU/43/d0.net
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
}
534:卵の名無しさん (ﾜｯﾁｮｲ 8fc7-/L8v [124.47.76.122])
23/07/16 22:09:09.75 xzU/43/d0.net
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()
535:卵の名無しさん (ﾜｯﾁｮｲ 8fc7-/L8v [124.47.76.122])
23/07/16 23:03:40.27 xzU/43/d0.net
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))
536:卵の名無しさん (ﾌﾞｰｲﾓ MM97-/L8v [210.148.125.249])
23/07/16 23:33:26.12 1XefIVSwM.net
収束時期のシミュレーションなら可能。
SEIRモデルで有病率を１％に固定して、集団のサイズを変化させてシミュレーションしてみたけどピークは変わらないな。
このモデルでは集会規模の大小には影響されないということになるな。
URLﾘﾝｸ(i.imgur.com)
有病率を変化させて流行の変遷をグラフにすると、
URLﾘﾝｸ(i.imgur.com)
URLﾘﾝｸ(i.imgur.com)
有病率を４０％くらいに引き上げるとオリンピックのときには流行が収束していることになるw
537:卵の名無しさん (ｱｳｱｳｳｰ Sa17-Zr+2 [106.128.68.57])
23/07/17 00:20:35.46 weqbEJola.net
尿瓶ジジイ数学板でご披露しても馬鹿にされるだけw
538:卵の名無しさん (ﾌﾞｰｲﾓ MM97-/L8v [210.148.125.249])
23/07/17 00:55:22.27
539:vAe3YqQlM.net
540:卵の名無しさん (ﾌﾞｰｲﾓ MM97-/L8v [210.148.125.249])
23/07/17 08:30:18.02 vAe3YqQlM.net
URLﾘﾝｸ(www.calculator.net)
541:卵の名無しさん (ｱｳｱｳｳｰ Sa17-Zr+2 [106.128.69.141])
23/07/17 14:13:18.39 Opqf8FtRa.net
おい尿瓶ジジイ
素人にすら偽医者とか言われてバカにされるのがそんなに楽しいか？w
542:卵の名無しさん (ｱｳｱｳｳｰ Sa17-Zr+2 [106.128.71.171])
23/07/17 20:00:07.17 gHudq7e2a.net
URLﾘﾝｸ(hissi.org)
うんこ製造機、週に1回ほど大発狂
543:卵の名無しさん (JP 0H6f-QoCo [217.138.252.98 [上級国民]])
23/07/18 11:41:41.14 wE+74BzaH.net
> a=sqrt(2)
> a^2
[1] 2
> a^2-2
[1] 4.440892e-16
> a^2==2
[1] FALSE
544:卵の名無しさん (JP 0H6f-QoCo [217.138.252.98 [上級国民]])
23/07/18 11:53:48.34 wE+74BzaH.net
install.packages("Rcpp", dependencies = TRUE, INSTALL_opts = '--no-lock')
545:卵の名無しさん (JP 0H6f-QoCo [217.138.252.98 [上級国民]])
23/07/18 11:59:49.45 wE+74BzaH.net
The easiest way to avoid this issue is before installing any package run the line below
options("install.lock"=FALSE)
546:卵の名無しさん (ﾜｯﾁｮｲ cf12-Zr+2 [153.137.214.121])
23/07/18 15:12:22.67 GM2pBAaY0.net
>>527
おい尿瓶ジジイ
いつになったら医師免許と卒業証書出せるんだよ？
547:卵の名無しさん (ｱｳｱｳｳｰ Sa17-Zr+2 [106.128.70.245])
23/07/18 17:43:26.52 33w597Qga.net
バカすぎて高校生からも脳内学歴扱いだね尿瓶ジジイw
548:卵の名無しさん (JP 0H6f-QoCo [217.138.252.98 [上級国民]])
23/07/18 19:42:42.46 wE+74BzaH.net
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
}
549:卵の名無しさん (JP 0H6f-QoCo [217.138.252.98 [上級国民]])
23/07/18 19:43:15.42 wE+74BzaH.net
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())
550:卵の名無しさん (JP 0H6f-QoCo [217.138.252.98 [上級国民]])
23/07/18 20:02:14.18 wE+74BzaH.net
俺は理Iを蹴って医科歯科に言った口だけど。
医科歯科を蹴って慶応に入学した医師がいても
医科歯科合格の証拠を出せとか言わないな。
東大合格通知の画像を出せとかいう輩って、東大もしくは国立を落ちたのだろうと憶測。
551:卵の名無しさん (JP 0H6f-gMG4 [217.138.252.98 [上級国民]])
23/07/18 20:03:14.58 wE+74BzaH.net
>>528
んで、どこの国立を落ちたの？
シリツ卒なんだろ？
552:卵の名無しさん (ｱｳｱｳｳｰ Sa17-Zr+2 [106.128.71.77])
23/07/19 00:23:48.07 iFTHmQL+a.net
>>532
あんたがアホすぎてそれしか証明しようがないからだろw
553:卵の名無しさん (ｱｳｱｳｳｰ Sa17-Zr+2 [106.128.69.68])
23/07/19 00:32:20.24 WXv06B+Pa.net
誰も
554:相手にしてないからこそ医者板じゃここでしか発狂できないんだろうけどなw 高校生にすらバカにされる始末だし
555:卵の名無しさん (JP 0H6f-gMG4 [217.138.212.122 [上級国民]])
23/07/19 07:31:36.73 qC76rOplH.net
直径６ｃｍのシリコンカップ
グラニュー糖小さじ３
水小さじ１
カップをペーパーで覆って電子レンジ６００W１分３０秒
追加の水や熱湯はなし
556:卵の名無しさん (ﾜｯﾁｮｲ cf12-Zr+2 [153.137.214.121])
23/07/19 12:44:37.47 7WAeHWTk0.net
>>533
んで、どこの国立受けられなかったの？
557:卵の名無しさん (ﾜｯﾁｮｲ 6724-QoCo [149.50.210.17 [上級国民]])
23/07/20 07:49:05.42 FCPwP+wT0.net
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)
558:卵の名無しさん (ﾜｯﾁｮｲ 6724-QoCo [149.50.210.17 [上級国民]])
23/07/20 08:16:55.26 FCPwP+wT0.net
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)
559:卵の名無しさん (ﾜｯﾁｮｲ cf12-Zr+2 [153.137.214.121])
23/07/20 11:04:12.21 VIVJcW6Q0.net
おい尿瓶ジジイ
いつになったら医師免許と卒業証書出すんだよハゲ
560:卵の名無しさん (ﾜｯﾁｮｲ 6724-QoCo [149.50.210.17 [上級国民]])
23/07/20 11:41:22.96 FCPwP+wT0.net
平面上の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())
561:卵の名無しさん (ﾜｯﾁｮｲ 6724-QoCo [149.50.210.17 [上級国民]])
23/07/20 11:47:55.38 FCPwP+wT0.net
URLﾘﾝｸ(readcrx-2.github.io)
アップデートされている。
562:卵の名無しさん (JP 0H6f-gMG4 [217.138.212.98 [上級国民]])
23/07/20 12:45:03.03 1lBdubx6H.net
>>537
俺は二期校最後の年の受験だから
東大理Iと医科歯科を受験。
医科歯科の合格発表日が東大合格者の健康診断日より後だったので東大で健康診断を受けたよ。
んで、あんたはどこの国立を落ちたの？
563:卵の名無しさん (JP 0Hdf-Zr+2 [61.199.225.248])
23/07/20 13:29:54.35 iz25aXn4H.net
>>543
あんた5chしかしてない脳内医者だろw
564:卵の名無しさん (JP 0H6f-QoCo [217.138.212.98 [上級国民]])
23/07/20 17:31:51.28 1lBdubx6H.net
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 aci
565:dosis" 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" } }
566:卵の名無しさん (JP 0H6f-QoCo [217.138.212.98 [上級国民]])
23/07/20 17:32:06.85 1lBdubx6H.net
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))
}
}
567:卵の名無しさん (ｱｳｱｳｳｰ Sa17-Zr+2 [106.128.68.80])
23/07/20 17:34:39.60 //M/SQ0Ba.net
こっちではダンマリがジジイw
568:卵の名無しさん (JP 0H6f-QoCo [217.138.212.98 [上級国民]])
23/07/20 17:35:32.79 1lBdubx6H.net
パソコンだとクラウド上のファイルをgrepして必要なファイルを取り出すのは簡単だけど、
スマホだと面倒。ローカルに置くと場所を取るし。
有用なファイルはwebで公開しておくと、他の人も流用できるし、
自分で探すのも楽で( ・∀・)ｲｲ!!
569:卵の名無しさん (JP 0H6f-QoCo [217.138.212.98 [上級国民]])
23/07/20 17:36:08.07 1lBdubx6H.net
>>547
んで、あんたはどこの国立を落ちたの？
570:卵の名無しさん (JP 0H6f-QoCo [217.138.212.98 [上級国民]])
23/07/20 17:46:16.77 1lBdubx6H.net
医師板だのと行数制限小さいので
動脈血ガス分析のスクリプトは１レスでは投稿できないのが不便。
571:卵の名無しさん (JP 0H6f-QoCo [217.138.212.98 [上級国民]])
23/07/20 17:50:14.79 1lBdubx6H.net
>>544
月曜日は祝日だったので内視鏡バイトなしだった。
明日はEGD11件の予定。
俺は理Iを蹴って医科歯科に言った口だけど。
医科歯科を蹴って慶応に入学した医師がいても
あっそう、程度にしか思わんな。医科歯科合格の証拠を出せとか言わないね。
東大卒業していたら東大蹴って他大学に行ったという人がいてもなんとも思わんだろうに。
んで、どこの国立を落ちたの？
572:卵の名無しさん (JP 0H6f-QoCo [217.138.212.98 [上級国民]])
23/07/20 17:52:06.71 1lBdubx6H.net
>>547
あんたはどこの国立を落ちたの？
にはダンマリかよ？
573:卵の名無しさん (ｱｳｱｳｳｰ Sa17-Zr+2 [106.128.71.42])
23/07/20 17:58:25.88 goI3Ka80a.net
>>552
尿瓶ジジイの脳内学歴()に受けるもクソもないだろタコw
574:卵の名無しさん (ﾜｯﾁｮｲ cf12-Zr+2 [153.137.214.121])
23/07/20 17:59:27.26 VIVJcW6Q0.net
>>551
そこまで言うなら医科歯科の卒業証書と医師免許さっさと出せよ
なんで出せないんだ？
575:卵の名無しさん (JP 0H6f-mROX [217.138.252.98 [上級国民]])
23/07/20 18:33:51.72 Mz3Ba9iAH.net
>>554
あんたがアップロードする番だぞ。
俺は手間をかけて東大合格通知のコピー画像をアップロードしたぞ。
どこの国立を落ちたの？
576:卵の名無しさん (JP 0H6f-mROX [217.138.252.98 [上級国民]])
23/07/20 18:34:14.39 Mz3Ba9iAH.net
>>547
あんたはどこの国立を落ちたの？
にはダンマリかよ？
577:卵の名無しさん (ｱｳｱｳｳｰ Sa17-Zr+2 [106.128.68.164])
23/07/20 18:37:52.73 IF4YK+Pma.net
>>556
全部上げない限り脳内学歴の脳内医者でいいのか？
そういう結論になったから医者板の他のスレで発狂できなくなったんだろ？
578:卵の名無しさん (JP 0H6f-mROX [217.138.252.98 [上級国民]])
23/07/20 18:41:09.80 Mz3Ba9iAH.net
>>557
んで、どこの国立を落ちたの？
579:卵の名無しさん (JP 0H6f-mROX [217.138.252.98 [上級国民]])
23/07/20 18:42:38.75 Mz3Ba9iAH.net
東大合格通知って健康診断の受診票を兼ねていた。
大きさはハガキ大で公印すら押されていなくてありがたみがなかった。
580:卵の名無しさん (JP 0H6f-mROX [217.138.252.98 [上級国民]])
23/07/20 18:44:08.44 Mz3Ba9iAH.net
>>557
んで、どこの国立を落ちたの？
にはだんまりかよ？
東大合格通知の書式すら知らなかったから
東大非合格は確定しているが。
シリツ卒なんだろ？
母校に誇りはないのかよ？？
581:卵の名無しさん (JP 0H6f-mROX [217.138.252.98 [上級国民]])
23/07/20 18:44:45.68 Mz3Ba9iAH.net
>>554
どこの国立を落ちたの？に何で答えられないんだ？
582:卵の名無しさん (ｱｳｱｳｳｰ Sa17-Zr+2 [106.128.68.164])
23/07/20 18:56:16.25 IF4YK+Pma.net
>>560
あんたの脳内学歴なんか知らんがな
583:w
584:卵の名無しさん (JP 0H6f-QoCo [217.138.212.98 [上級国民]])
23/07/21 06:23:16.54 8CtH7l/hH.net
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)
}
585:卵の名無しさん (JP 0H6f-QoCo [217.138.212.98 [上級国民]])
23/07/21 06:24:22.90 8CtH7l/hH.net
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)
586:卵の名無しさん (JP 0H6f-QoCo [217.138.212.122 [上級国民]])
23/07/21 19:44:17.26 stxMOQIEH.net
> replicate(k,tetragon(print=FALSE)|>length()) -> len
> mean(len==1)
[1] 0.694586
587:卵の名無しさん (ｱｳｱｳｳｰ Sa17-tdBp [106.128.70.115])
23/07/21 20:47:56.37 qBzKS7WRa.net
おい尿瓶クソジジイ
さっさと卒業証書と医師免許出せや
588:卵の名無しさん (JP 0Hd3-zEeY [217.138.252.98 [上級国民]])
23/07/22 05:23:29.31 FYFO7qrzH.net
識者の尿瓶チンパポンコツフェチへの評価
61 １３２人目の素数さん sage 2023/07/21(金) 19:18:29.80 ID:KcuTGlEs
>>57
お前が一番の馬鹿だよ
相手しなけりゃいいのに、お前自身が1日だけで30以上も書き込みして、余計にこのスレが腐っていく
純粋に高校数学の話だけをしなさい
589:卵の名無しさん (ﾜｯﾁｮｲ f324-yMPU [149.50.210.17 [上級国民]])
23/07/22 05:46:22.35 54NVUurG0.net
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()
590:卵の名無しさん (ﾜｯﾁｮｲ f324-yMPU [149.50.210.17 [上級国民]])
23/07/22 07:05:52.70 54NVUurG0.net
子曰、
高校数学の質問スレ Part430
ｽﾚﾘﾝｸ(math板:61番)
61 名前：１３２人目の素数さん[sage] 投稿日：2023/07/21(金) 19:18:29.80 ID:KcuTGlEs
>>57
お前が一番の馬鹿だよ
相手しなけりゃいいのに、お前自身が1日だけで30以上も書き込みして、余計にこのスレが腐っていく
純粋に高校数学の話だけをしなさい
591:卵の名無しさん (ｱｳｱｳｳｰ Sabd-TCAR [106.128.70.115])
23/07/22 08:08:31.15 SRPzw5T1a.net
自分の気に食わないレスは全員同じに見える病気みたいだね
尿瓶ジジイもいちいち発狂してる分際でw
592:卵の名無しさん (ｱｳｱｳｳｰ Sabd-TCAR [106.128.70.115])
23/07/22 08:46:35.79 SRPzw5T1a.net
尿瓶ジジイ、ウクライナの首都を間違えたことを指摘されて発狂中ww
593:卵の名無しさん (JP 0Hd3-zEeY [217.138.252.98 [上級国民]])
23/07/22 12:56:19.29 FYFO7qrzH.net
東大合格者から国立不合格者へのありがたい助言がこれ！
高校数学の質問スレ Part430
ｽﾚﾘﾝｸ(math板:61番)
61 名前：１３２人目の素数さん[sage] 投稿日：2023/07/21(金) 19:18:29.80 ID:KcuTGlEs
>>57 お前が一番の馬鹿だよ 相手しなけりゃいいのに、お前自身が1日だけで30以上も書き込みして、余計にこのスレが腐っていく 純粋に高校数学の話だけをしなさい
595:卵の名無しさん (ﾜｯﾁｮｲ f324-yMPU [149.50.210.17 [上級国民]])
23/07/22 15:54:26.67 54NVUurG0.net
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')
596:卵の名無しさん (ﾜｯﾁｮｲ f324-yMPU [149.50.210.17 [上級国民]])
23/07/22 15:55:02.21 54NVUurG0.net
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
597:卵の名無しさん (ｱｳｱｳｳｰ Sabd-TCAR [106.128.71.180])
23/07/22 16:15:46.60 f5YfabY7a.net
尿瓶ジジイ、またコピペの発作で発狂中w
598:卵の名無しさん (ﾜｯﾁｮｲ f324-yMPU [149.50.210.17 [上級国民]])
23/07/22 18:32:29.13 54NVUurG0.net
道具箱に追加しておこう。
緯度・経度がらみの計算に使えそう。
# 緯度経度から楕円地球上の距離を計算
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
}
599:卵の名無しさん (ﾜｯﾁｮｲ f324-yMPU [149.50.210.17 [上級国民]])
23/07/22 18:33:26.70 54NVUurG0.net
東大合格者から国立不合格者へのありがたい助言がこれ！
高校数学の質問スレ Part430
ｽﾚﾘﾝｸ(math板:61番)
61 名前：１３２人目の素数さん[sage] 投稿日：2023/07/21(金) 19:18:29.80 ID:KcuTGlEs
>>57
お前が一番の馬鹿だよ
相手しなけりゃいいのに、お前自身が1日だけで30以上も書き込みして、余計にこのスレが腐っていく
純粋に高校数学の話だけをしなさい
＞お前が一番の馬鹿だよ
＞お前が一番の馬鹿だよ
＞お前が一番の馬鹿だよ
ですって、大切なことなので繰り返しましたｗ
600:卵の名無しさん (ﾜｯﾁｮｲ f324-yMPU [149.50.210.17 [上級国民]])
23/07/22 19:35:59.67 54NVUurG0.net
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
７カ国から集まるのに移動距離の総和が最小になる地点の緯度と経度を計算せよ。
その地点に最も近い国はどこか述べよ。
601:卵の名無しさん (ｱｳｱｳｳｰ Sabd-TCAR [106.128.70.2])
23/07/22 21:20:02.90 r8HmaS4wa.net
>>577
尿瓶ジジイって自分の気に食わないレス全員が同じに見える病気なんだなw
602:卵の名無しさん (JP 0Hd3-zEeY [217.138.212.98 [上級国民]])
23/07/23 06:14:06.10 W8dTuzCcH.net
東大合格者から国立不合格者へのありがたい助言がこれ！
高校数学の質問スレ Part430
ｽﾚﾘﾝｸ(math板:61番)
61 名前：１３２人目の素数さん[sage] 投稿日：2023/07/21(金) 19:18:29.80 ID:KcuTGlEs
>>57
お前が一番の馬鹿だよ
相手しなけりゃいいのに、お前自身が1日だけで30以上も書き込みして、余計にこのスレが腐っていく
純粋に高校数学の話だけをしなさい
＞お前が一番の馬鹿だよ
＞お前が一番の馬鹿だよ
＞お前が一番の馬鹿だよ
603:卵の名無しさん (JP 0Hd3-zEeY [217.138.212.98 [上級国民]])
23/07/23 06:15:17.44 W8dTuzCcH.net
＞悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。
ですってｗｗｗ
＞当たり前だろ
＞当たり前だろ
＞当たり前だろ
とドヤ顔で大間違いを投稿！
抗パ剤を高パ剤と誤変換で投稿するのは単純ミスだが
抗ドーパミン薬と投稿するのはタイプミスでも誤変換でもないよな。
604:卵の名無しさん (ｱｳｱｳｳｰ Sabd-TCAR [106.128.70.2])
23/07/23 08:42:37.98 SFdfjNW1a.net
尿瓶ジジイまともな反論は何一つできないからなw
605:卵の名無しさん (ｽﾌﾟｰﾌﾟ Sd73-leiM [1.73.154.206])
23/07/23 09:40:19.03 Y55+EhIqd.net
>>581
久しぶり見に来たらコイツまだコレ言ってるのかwww
頭悪いお前にはこれしか言えることないもんな
これもわざとtypoしたって論破されてるのにwwwジメジメした性格してて本当気持ち悪い奴だよお前は
統合失調症はまだ治らんのか？
606:卵の名無しさん (ｱｳｱｳｳｰ Sabd-TCAR [106.128.70.2])
23/07/23 10:47:31.84 SFdfjNW1a.net
現在は下手に突っ込まれないようここでお得意の脳内医療ネタ()もろくに書き込めず数学板で高校生相手に発狂してはバカにされるの繰り返し、憂さ晴らしにここでコピペで発狂といった具合w
607:卵の名無しさん (ﾜｯﾁｮｲ b9c7-2oYC [124.47.76.122])
23/07/23 13:22:50.59 UToIyy7I0.net
＞悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。
ですってｗｗｗ
＞当たり前だろ
＞当たり前だろ
＞当たり前だろ
とドヤ顔で大間違いを投稿！
608:卵の名無しさん (ｱｳｱｳｳｰ Sabd-TCAR [106.128.71.123])
23/07/23 13:39:30.06 LHFf3ysQa.net
尿瓶ジジイは気に食わないレスは全員同じに見える病気にかかっていて全く煽りになってないことに気づかないホームラン級のバカw
609:卵の名無しさん (ｱｳｱｳｳｰ Sabd-TCAR [106.128.71.123])
23/07/23 13:42:46.07 LHFf3ysQa.net
替え歌荒らしにすら偽医者だのクズ呼ばわりされる始末w
610:卵の名無しさん (ﾜｯﾁｮｲ b9c7-2oYC [124.47.76.122])
23/07/23 16:22:10.87 UToIyy7I0.net
APIMateR apimater:URLﾘﾝｸ({$host})([25]ch\.net|bbspink\.com)$]}
611:卵の名無しさん (ﾜｯﾁｮｲ b9c7-2oYC [124.47.76.122])
23/07/23 16:23:08.21 UToIyy7I0.net
東大合格者から国立不合格者へのありがたい助言がこれ！
高校数学の質問スレ Part430
ｽﾚﾘﾝｸ(math板:61番)
61 名前：１３２人目の素数さん[sage] 投稿日：2023/07/21(金) 19:18:29.80 ID:KcuTGlEs
>>57
お前が一番の馬鹿だよ
相手しなけりゃいいのに、お前自身が1日だけで30以上も書き込みして、余計にこのスレが腐っていく
純粋に高校数学の話だけをしなさい
＞お前が一番の馬鹿だよ
＞お前が一番の馬鹿だよ
＞お前が一番の馬鹿だよ
612:卵の名無しさん (ｱｳｱｳｳｰ Sabd-TCAR [106.128.68.155])
23/07/23 16:57:50.41 mZ+wxT/Ea.net
尿瓶チンパンジジイコピペしか能がないのかw
613:卵の名無しさん (ﾜｯﾁｮｲ 9158-leiM [106.73.2.65])
23/07/23 17:06:09.02 a+W/K+U40.net
>>589
コイツが何で東大合格者だと思うんだよ
全く根拠ないだろ
というか、この替え歌君にボコボコにされて悔しかったのか？www
ボコボコにされた相手にはコピペで対抗
いかにも頭の弱いお前の発想だよ
ちなみに一番の馬鹿はお前だぞwww
614:卵の名無しさん (ｱｳｱｳｳｰ Sabd-TCAR [106.128.71.150])
23/07/23 17:33:24.68 lqQfOF4fa.net
言い返せないとコピペで発狂
マジでチンパンジーw
615:卵の名無しさん (ﾌﾞｰｲﾓ MMad-2oYC [210.138.6.18])
23/07/23 22:53:38.75 33hKJ21QM.net
救急搬送と新入院でインセンティブ4.5諭吉。
久々に両側にGGOのあるコロナ肺炎のCTをみた。
616:卵の名無しさん (ﾌﾞｰｲﾓ MMad-2oYC [210.138.6.18])
23/07/23 22:54:15.86 33hKJ21QM.net
>>591
東大合格に速攻で発狂！！
617:卵の名無しさん (ﾌﾞｰｲﾓ MMad-2oYC [210.138.6.18])
23/07/24 05:52:45.61 y
618:a9IubfJM.net
619:卵の名無しさん (ﾌﾞｰｲﾓ MMad-2oYC [210.138.6.18])
23/07/24 06:27:59.94 ya9IubfJM.net
# 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)
620:卵の名無しさん (ｽﾌﾟｰﾌﾟ Sd73-leiM [1.73.153.28])
23/07/24 07:50:00.52 w6igBrqid.net
>>593
こういう、無駄に略語使うとこが素人臭いんだよなwww
意味がわかって使ってないだろ？
だからいつも突っ込まれるんだぞ
621:卵の名無しさん (ｱｳｱｳｳｰ Sabd-TCAR [106.128.71.190])
23/07/24 09:21:55.47 Ldvz/BNaa.net
胆汁ドレナージで素人バレバレなのでw
というか医療事務じゃないと出てこないw
622:卵の名無しさん (ｱｳｱｳｳｰ Sabd-TCAR [106.128.71.126])
23/07/24 10:22:09.16 zPtCn08Ta.net
言い返せないとしばらくダンマリ決め込んでコピペで発狂
死ぬまで続ける気か？
623:卵の名無しさん (ﾌﾞｰｲﾓ MMad-2oYC [210.138.6.5])
23/07/24 11:56:46.19 Day8w5dSM.net
胆汁ドレナージは普通に使うが。
こういうことを言う医師はまともではないね。
＞悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。
ですってｗｗｗ
＞当たり前だろ
＞当たり前だろ
＞当たり前だろ
とドヤ顔で大間違いを投稿！
624:卵の名無しさん (ﾌﾞｰｲﾓ MMad-2oYC [210.138.6.5])
23/07/24 11:58:38.90 Day8w5dSM.net
救急当番と内視鏡バイトで２０諭吉ゲット！
コロナの救急搬送が立て続けで忙しかった。
625:卵の名無しさん (ﾌﾞｰｲﾓ MMad-2oYC [210.138.6.5])
23/07/24 12:01:49.75 Day8w5dSM.net
これより恥ずかしい投稿を医師板ではみたことがない。
＞悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。
ですってｗｗｗ
＞当たり前だろ
＞当たり前だろ
＞当たり前だろ
とドヤ顔で大間違い！！
626:卵の名無しさん (ｱｳｱｳｳｰ Sabd-TCAR [106.128.69.134])
23/07/24 12:17:24.25 NlJK5bBea.net
>>602
胆汁ドレナージなんて言ってるほうがよっぽど恥ずかしいよ
脳内だから自覚ないと思うけどw
627:卵の名無しさん (ｱｳｱｳｳｰ Sabd-TCAR [106.128.70.118])
23/07/24 12:41:20.13 7Fiupx7ba.net
尿瓶ジジイ、突っ込まれるのが怖いからか前より脳内医療ネタ()は短文w
628:卵の名無しさん (JP 0Hfd-leiM [202.253.111.210])
23/07/24 15:37:34.55 WkpJ9wPeH.net
>>600
胆汁ドレナージは普通には使わねぇよ
さらっと嘘つくなwww
本当にゴミだな
お前、周りから粘着質でキモいって思われてるぞ間違いなく
629:卵の名無しさん (ﾜｯﾁｮｲ c958-XbVB [14.13.16.0 [上級国民]])
23/07/24 16:30:38.18 8cl3Qnmw0.net
>>605
使うよ。
AstrapもMDLも普通に使う。
Homan鈎のフランス後読みは上級者のみ使う。
こういうことは下衆でも言わない。
＞悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。
ですってｗｗｗ
＞当たり前だろ
＞当たり前だろ
＞当たり前だろ
とドヤ顔で大間違いを投稿！
630:卵の名無しさん (JP 0Hd3-zEeY [217.138.212.122 [上級国民]])
23/07/24 16:37:18.50 yZNTF7aqH.net
>>588
これでdat落ちした投稿が読めた。
ｽﾚﾘﾝｸ(math板:157番)
631:卵の名無しさん (ﾜｯﾁｮｲ c958-XbVB [14.13.16.0 [上級国民]])
23/07/24 16:43:47.20 8cl3Qnmw0.net
昔の投稿も見ることができて便利。神アプリだな。
11 １３２人目の素数さん sage 2020/03/10(火) 12:10:41.22 ID:H1fx2jVB
"
SEIR MODEL
dS(t)/dt = mu*(N-S) - b*S(t)*I(t)/N - nu*S(t)
dE(t)/dt = b*S(t)I(t)/N - (mu+sig)*E(t)
dI(t)/dt = sig*E(t) - (mu+g)*I(t)
dR(t)/dt = g*I(t) - mu*R + nu*S(t)
mu
632::自然死亡率 b:感染率(S->I) nu:ワクチン有効率(S->R) sig:発症率(E->I),g:回復率(I->R) " SEIRモデルのパラメータ SEIR2 <- function( # Parameters contact_rate = 10, # number of contacts per day transmission_probability = 0.01, # transmission probability beta = contact_rate * transmission_probability, # tranmission rate infectious_period = 20, # infectious period gamma = 1 / infectious_period, # Prob[infected -> recovered] latent_period = 5, # latent perior sigma = 1/latent_period, # The rate at which an exposed person becomes infective mu = 0, # The natural mortality rate nu = 0 , # vaccination moves people from susceptible to resistant directly, without becoming exposed or infected. Ro = beta/gamma, # Ro - Reproductive number. # Initial values for sub-populations. s = 99, # susceptible hosts e = 0, # exposed hosts i = 1, # infectious hosts r = 0, # recovered hosts # Compute total population. N = s + i + r + e, # Output timepoints. timepoints = seq (0, 365, by=0.5), ... ) 有病率を１％とすると、3000人にクルーズ船でも100人の屋形船でも感染者のピークは変わらないな。 同一時間あたりのcontact_rateとtransmission_probabilityが宴会での方が高いからだろうな。 パラメータを変えてグラフを書いてみた。 https://i.imgur.com/hCfBTyc.png
633:卵の名無しさん (ｱｳｱｳｳｰ Sabd-TCAR [106.128.68.244])
23/07/24 16:45:15.28 K7qj9qqDa.net
>>606
認めたくないだろうけど使いませんw
胆汁ドレナージなんて言ってる時点で脳内医者確定なんだよなw
634:卵の名無しさん (ﾜｯﾁｮｲ 0b12-TCAR [153.137.214.121])
23/07/24 16:47:08.63 tTpqXxCT0.net
>>606
じゃあなんで教科書でもGoogleでも胆汁ドレナージが出てこないんだよタコ
ソース出せよ
635:卵の名無しさん (JP 0Hd3-zEeY [217.138.212.122 [上級国民]])
23/07/24 18:31:08.42 yZNTF7aqH.net
>>597
抗ドーパミン薬の意味はわかってた？？
636:卵の名無しさん (JP 0Hd3-zEeY [217.138.212.122 [上級国民]])
23/07/24 18:33:50.73 yZNTF7aqH.net
＞悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。
ですってｗｗｗ
＞当たり前だろ
＞当たり前だろ
＞当たり前だろ
とドヤ顔で大間違いを投稿！
637:卵の名無しさん (ｱｳｱｳｳｰ Sabd-TCAR [106.128.68.244])
23/07/24 19:12:08.92 K7qj9qqDa.net
抗ドーパミン薬の意味が分かってないのはアンタだろw
638:卵の名無しさん (ｽﾌﾟｰﾌﾟ Sd73-leiM [1.73.153.125])
23/07/24 19:20:37.73 RG128V21d.net
>>611
お前は認めたくないんだろうが>>334で、すでに論破している
これを反論出来ずに永遠とコピペを繰り返すのは負けてることを認めたくないから、レスの物量で誤魔化そうとしてるか
もしくは、どういう意味か理解出来てないからだろwww
個人的には統合失調症で、考えがまとめられないからだと思うが
見えない敵が見えてるのか俺がスレ覗いていない時も永遠とコピペ続けてたよな？やっぱお前は、統合失調症だよ。医者の俺が言うんだから間違いないよ
639:卵の名無しさん (ｱｳｱｳｳｰ Sabd-TCAR [106.128.68.244])
23/07/25 08:37:24.35 R29t5DOLa.net
尿瓶ジジイ高校生相手には吠えまくってるのにここではダンマリかよ
640:卵の名無しさん (ﾜｯﾁｮｲ f324-h0SB [149.50.210.2 [上級国民]])
23/07/25 08:40:57.23 4Uu2jZLX0.net
"
楕円 x^2/a^2+y^2/b^2=1が通る格子点の座標を返してグラフ化する。
"
rm(list=ls())
source('toolmini.R')
'%=%' <- function(x,y) abs(x-y) <
641: .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)
642:卵の名無しさん (ﾜｯﾁｮｲ f324-h0SB [149.50.210.2 [上級国民]])
23/07/25 08:42:07.06 4Uu2jZLX0.net
>>609
小児外科医が使っていたと同業者が投稿していたな。
こういうことは下衆でも言わない。
＞悪性症候群で抗ドーパミン薬止めないなんて当たり前だろ。
ですってｗｗｗ
＞当たり前だろ
＞当たり前だろ
＞当たり前だろ
とドヤ顔で大間違いを投稿！