高校数学の質問スレ(医者・東大卒専用) Part438 (899レス)
前次1-
抽出解除 必死チェッカー(本家) (べ) 自ID レス栞 あぼーん

798: 04/29(火)10:05 ID:pY4WJf3b(1/4) AAS
alphaResult = FindRoot[
CDF[BetaDistribution[{x, 5*x}], 1/5] - CDF[BetaDistribution[{x, 5*x}], 1/7] == 0.95,
{x, 15} (* 初期値を設定 *)
];

alpha = x /. alphaResult;
beta = 5 * alpha;

fp[ones_] := CDF[BetaDistribution[{alpha + ones, beta}], 1/7] + (1 - CDF[BetaDistribution[{alpha + ones, beta}], 1/5]);
省5
799: 04/29(火)10:38 ID:pY4WJf3b(2/4) AAS
questtion="良品サイコロは1の目の出る確率の95%信頼区間が[1/7,1/5]に収まるサイコロと定義する。それ以外はFランサイコロと呼ぶ。
チンパンフェチが発狂してサイコロを齧ってしまった。
このサイコロが良品のままかFランかを調べたい。
(1)2回投げたらどちらも1の目がでたときこのサイコロがFランである確率を求めよ。
(2)最初から何回1の目が続いてでたらFランである確率が0.5を超えるか?
計算に必要な条件は適宜決定してよい。
"
省7
800
(1): 04/29(火)18:09 ID:pY4WJf3b(3/4) AAS
library(RcppAlgos)
library(fmsb)
library(matrixStats)

N <- 50

# Generate all combinations
cm <- comboGeneral(0:N, 3, repetition = FALSE)

# Pre-allocate
省38
802: 04/29(火)21:05 ID:pY4WJf3b(4/4) AAS
options(warn = -1)

library(RcppAlgos)
N=50
alpha=0.01
cm=comboGeneral(0:N,3,repetition=FALSE)
f=\(x,Yates=FALSE){
n=rep(N,3)
省24
前次1-
スレ情報 赤レス抽出 画像レス抽出 歴の未読スレ AAサムネイル

ぬこの手 ぬこTOP 2.138s*