高校数学の質問スレ（医者・東大卒専用） Part438

高校数学の質問スレ（医者・東大卒専用） Part438 (991ﾚｽ)
上下前次1-新
抽出解除ﾚｽ栞

ﾘﾛｰﾄﾞ規制です｡10分ほどで解除するので､他のﾌﾞﾗｳｻﾞへ避難してください｡

12(1): 2024/08/11(日)13:29:14.25 ID:y6yg1Hhb(2/6) AAS
(* 三角形ABCで底辺BC=BC,∠A=aA,∠C=aCの時、この三角形の面積は？*)
calc[BC_:4,aA_:Pi/4,aC_:Pi/8] :=(
fn[x_]:=(
If[x==BC,Return[0]];
pB={0,0};
pC={BC,0};
pA={x,-Tan[aC](x-BC)};
ABC=Triangle[{pA,pB,pC}];
(aA-TriangleMeasurement[ABC,{"InteriorAngle",pA}])^2
);
x0 = x /. NMinimize[fn[x],x][[2]];
pB={0,0};
pC={BC,0};
pA={x0,-Tan[aC](x0-BC)};
Area[Triangle[{pA,pB,pC}]]
)
calc[]

25(1): 2024/08/12(月)13:09:48.25 ID:OufDPFxO(1) AAS
>>22
おいもう息してないのか

62: 2024/08/16(金)15:31:11.25 ID:bNupVHmJ(1) AAS
（1）リウヴィルの定理
p, q が自然数のとき
　｜√2 − p/q｜ ≧ (6-4√2)/qq,

∴　√2 ≠ p/q　　　　(無理数)

112: 2024/08/21(水)11:27:27.25 ID:trPnwZW4(4/6) AAS
(* 各回ごとの確率 *)
pn={jan[n,1]};
Total@Flatten@Table[jan[n,x1]jan[x1,1],{x1,2,n}]//AppendTo[pn,#]&;
Total@Flatten@Table[jan[n,x1]jan[x1,x2]jan[x2,1],{x1,2,n},{x2,2,x1}]//AppendTo[pn,#]&;
Total@Flatten@Table[jan[n,x1]jan[x1,x2]jan[x2,x3]jan[x3,1],{x1,2,n},{x2,2,x1},{x3,2,x2}]//AppendTo[pn,#]&;
Total@Flatten@Table[jan[n,x1]jan[x1,x2]jan[x2,x3]jan[x3,x4]jan[x4,1],{x1,2,n},{x2,2,x1},{x3,2,x2},{x4,2,x3}]//AppendTo[pn,#]&;
Total@Flatten@Table[jan[n,x1]jan[x1,x2]jan[x2,x3]jan[x3,x4]jan[x4,x5]jan[x5,1],{x1,2,n},{x2,2,x1},{x3,2,x2},{x4,2,x3},{x5,2,x4}]//AppendTo[pn,#]&;
Total@Flatten@Table[jan[n,x1]jan[x1,x2]jan[x2,x3]jan[x3,x4]jan[x4,x5]jan[x5,x6]jan[x6,1],{x1,2,n},{x2,2,x1},{x3,2,x2},{x4,2,x3},{x5,2,x4},{x6,2,x5}]//AppendTo[pn,#]&;
Total@Flatten@Table[jan[n,x1]jan[x1,x2]jan[x2,x3]jan[x3,x4]jan[x4,x5]jan[x5,x6]jan[x6,x7]jan[x7,1],{x1,2,n},{x2,2,x1},{x3,2,x2},{x4,2,x3},{x5,2,x4},{x6,2,x5},{x7,2,x6}]//AppendTo[pn,#]&;
Total@Flatten@Table[jan[n,x1]jan[x1,x2]jan[x2,x3]jan[x3,x4]jan[x4,x5]jan[x5,x6]jan[x6,x7]jan[x7,x8]jan[x8,1],{x1,2,n},{x2,2,x1},{x3,2,x2},{x4,2,x3},{x5,2,x4},{x6,2,x5},{x7,2,x6},{x8,2,x7}]//AppendTo[pn,#]&;
Total@Flatten@Table[jan[n,x1]jan[x1,x2]jan[x2,x3]jan[x3,x4]jan[x4,x5]jan[x5,x6]jan[x6,x7]jan[x7,x8]jan[x8,x9]jan[x9,1],{x1,2,n},{x2,2,x1},{x3,2,x2},{x4,2,x3},{x5,2,x4},{x6,2,x5},{x7,2,x6},{x8,2,x7},{x9,2,x8}]//AppendTo[pn,#]&
Total@pn

237: 2024/10/25(金)15:59:33.25 ID:t22ya7mF(1) AAS
>>236
尿瓶ジジイまだ生きてたのかよ？死に損ないもいいとこだな

404: 2024/12/09(月)03:01:49.25 ID:qq7wIWnX(1) AAS
スレタイも読めないのに自称医者とか笑わせるよねw

426: 2024/12/17(火)10:31:23.25 ID:FFiopr0X(1) AAS
>>425
今度はこっちを荒らすのかよ。死ねクソ野郎

589(1): 01/20(月)07:07:48.25 ID:VfEp74h/(1) AAS
>>588
結局医者板ではダンマリかよ

590(1): 01/20(月)13:32:41.25 ID:hhX1bSoJ(1) AAS
件のスレ荒らしは小中質問スレみたく閉鎖させるつもりなんだろう

612: 01/23(木)15:36:12.25 ID:SEZTC8QI(1) AAS
>>611
スレタイ読めないアホに何言われても響かないよ
出題の日本語に違和感を持たないってことは同じ人かな

684: 02/06(木)16:51:32.25 ID:Kqo8KOCs(4/6) AAS
>>681
医科歯科大は機械を器具って言うの？
出題も質問って言うの？

685(1): 02/06(木)16:54:47.25 ID:rViXyt0w(9/13) AAS
>>682
あんたは>675の答が出せないアホでしょ。

817: 05/01(木)09:14:13.25 ID:L1qIlz9/(3/4) AAS
事後分布が出せたのであとはオッズ比などの計算も容易。
画像ﾘﾝｸ

837(1): 05/16(金)16:37:03.25 ID:s89ybxV8(1) AAS
イベント発生が人数比で
臨床試験１で　旧薬 vs プラセボで　5/201 vs 19/202
臨床試験２で　新薬 vs　旧薬で　 9/203 vs 5/204
であったとき
(1) 新薬がプラセボより劣る確率を計算せよ。
(2) 新薬はプラセボより有意差をもって有効といえるか？
計算に必要な条件は適宜設定してよい。
例：イベント発生は独立事象である

library(rjags)
library(coda)

worth_than_placebo <- function(r0, n0, r1, n1, r2, n2, r3, n3){
model_string <- '
model {
# 試験 (旧薬 vs 偽薬)
r1 ~ dbin(p1, n1)
p1 ~ dbeta(1, 1)
r0 ~ dbin(p0, n0)
p0 ~ dbeta(1, 1)

# 試験 (新薬 vs 旧薬)
r2 ~ dbin(p2, n2)
p2 ~ dbeta(1, 1)
r3 ~ dbin(p3, n3)
p3 ~ dbeta(1, 1)

# parameters
p2_est <- p2
p0_est <- p0
p2_worse_than_p0 <- step(p2_est - p0_est)
}
'
data <- list(r1=r1 , n1=n1 , r0=r0 ,n0=n0, r2=r2 , n2=n2 , r3=r3 , n3=n3)
jags_model <- jags.model(file=textConnection(model_string), data=data, n.chains=3,
n.adapt=3000, quiet = TRUE)
update(jags_model, n.iter=2000)
jags_samples <- coda.samples(jags_model, variable.names=c("p2_est", "p0_est", "p2_worse_than_p0"),
n.iter=10000, thin=1)
summary(jags_samples)
js <- as.data.frame(as.matrix(jags_samples))
names(js)

source("plotpost.R")
layout(matrix(c(1,2,3,3), 2, 2, byrow=TRUE))
plotpost(js$p2_est, col='lightcoral',xlab="新薬",cex.lab=1.5,main="")
plotpost(js$p0_est, col='lightgray', xlab="プラセボ",cex.lab=1.5,main="")
plotpost(js$p0_est - js$p2_est, compVal = 0, col=c('lightcoral', 'lightgray'),
xlab="プラセボ - 新薬", main="",cex.lab=1.5)
HDInterval::hdi(js$p0_est - js$p2_est) |> print()
mean(js$p2_worse_than_p0)
}

result <- worth_than_placebo(r0=19, n0=202, r1=5, n1=201, r2=9, n2=203, r3=5, n3=204)
print(paste("新薬がプラセボより劣る確率:", result))

911(1): 06/22(日)11:13:03.25 ID:V0T0lOP1(1/2) AAS
>>909
設定ぐらいきちんとしろ
問題文すらまともに書けないのかよwww

上下前次1-新書関写板覧索設栞歴

ｽﾚ情報赤ﾚｽ抽出画像ﾚｽ抽出歴の未読ｽﾚ

ぬこの手ぬこTOP 0.030s