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

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

1(11): 2024/08/09(金)06:22 ID:9Q+t+cCw(1/6) AAS
【質問者必読！！】
まず>>1-5をよく読んでね

このスレは医者・東大卒の人物専用スレです。
その他の人が書き込むことは許されません。

数学@5ch掲示板用掲示板での数学記号の書き方例と一般的な記号の使用例
外部ﾘﾝｸ:mathmathmath.dotera.net

・まずは教科書、参考書、web検索などで調べるようにしましょう。（特に基本的な公式など）
・問題の写し間違いには気をつけましょう。
・長い分母分子を含む分数はきちんと括弧でくくりましょう。
　　（× x+1/x+2　；　 ○((x+1)/(x+2)) ）
省17

3(3): 2024/08/09(金)06:29 ID:9Q+t+cCw(3/6) AAS
AA省

44: 2024/08/15(木)10:18 ID:5ggTekS4(1/2) AAS
bWin <- function(x){# 1 beats 3, 3 beats 2, 2 beats 1
if(length(unique(x))!=2 ) return(0) # no winner
u=sort(unique(x))
if(all(u==c(1,2))) return(sum(x==2)) # how many winners who won by 2
if(all(u==c(2,3))) return(sum(x==3)) # how many winners who won by 3
if(all(u==c(1,3))) return(sum(x==1)) # how many winners who won by 1
}

janken.till.winner.sim <- function(n){ # janken till someone wins
if(n<2) return(NA)
x=sample(1:3,n,replace = TRUE) # janken by n people
省22

48(1): 2024/08/15(木)17:59 ID:bFfiJSUV(2/3) AAS
n=9;
j[n_] :=(
count=0;
Until[Length@Union@a==2,a=RandomChoice[Range[3],n];count++];
b=Sort@Union@a;
If[b=={1,2}, w=Count[a,2]];
If[b=={2,3}, w=Count[a,3]];
If[b=={1,3}, w=Count[a,1]] ;
{w,count}
)
省2

51: 2024/08/15(木)19:23 ID:ysyyeRB1(1/2) AAS
j[n_] :=( (* n人でジャンケンして勝者が決まるまでの回数と勝者の数*)
count=0;
Until[Length@Union@a==2,a=RandomChoice[Range[3],n];count++];
b=Sort@Union@a;
If[b=={1,2}, winners=Count[a,2]];
If[b=={2,3}, winners=Count[a,3]];
If[b=={1,3}, winners=Count[a,1]] ;
{winners,count}
)

sim[n_] :=((* 勝者が一人になるまでの回数　*)
省7

52: 2024/08/15(木)19:23 ID:ysyyeRB1(2/2) AAS
Rに移植

j=\(n){
a=sample(3,n,replace=TRUE)
count=1
while(length(unique(a))!=2){
a=sample(3,n,replace=TRUE)
count=count+1
}
b=sort(unique(a))
if(all(b==c(1,2))) winner=2
省18

113(1): 2024/08/21(水)11:44 ID:trPnwZW4(5/6) AAS
シミュレーションによる検証

Wolfram Language 14.0.0 Engine for Microsoft Windows (64-bit)
Copyright 1988-2023 Wolfram Research, Inc.

In[1]:= j[n_] :=( (* n人でジャンケンして勝者が決まるまでの回数と勝者の数*)
count=0;
Until[Length@Union@a==2,a=RandomChoice[Range[3],n];count++];
b=Sort@Union@a;
If[b=={1,2}, winners=Count[a,2]];
If[b=={2,3}, winners=Count[a,3]];
If[b=={1,3}, winners=Count[a,1]] ;
省22

225: 2024/09/21(土)07:06 ID:cdm6DP8+(1) AAS
library(binom)
ci=binom.confint(324-300,324)
lu=unlist(ci[11,5:6])
LearnBayes::beta.select(list(p=0.025,x=lu[1]),list(p=0.975,x=lu[2]))
# 信頼区間からβ分布の形状係数を算出し代表値を返す
ci2ab=\(l,u,verbose=FALSE,cl=0.95){ # CI : [l,u], cl : confidence level
if(l==u) return(NA)
options(warn = -1)
HDI=\(InvCDF=qbeta,cred=0.95,...){
opt=optimize(\(p) InvCDF(p+cred,...) - InvCDF(p,...),c(0,1-cred))
省46

366: 2024/12/02(月)06:58 ID:5RqvHzG8(1/3) AAS
Leyland[n_]:=(
ymax=Floor@y /. NSolve[2 y^y == n && y>1y,Reals][[1]];
xmax=Floor@x /. NSolve[x^2+2^x==n && x>1x,Reals][[1]];
z=Flatten[Table[{x^y+y^x,x,y},{x,2,xmax},{y,2,ymax}],1];
Select[z,#[[1]]==n&]
)
Leyland[42832853457545958193355601]

368: 2024/12/02(月)07:28 ID:5RqvHzG8(3/3) AAS
LeylandQ[n_]:=(
ymax=Floor@y /. NSolve[2 y^y == n && y>1y,Reals][[1]];
xmax=Floor@x /. NSolve[x^2+2^x==n && x>1x,Reals][[1]];
z=Flatten@Table[x^y+y^x,{x,2,xmax},{y,2,ymax}];
ContainsAny[z,{n}]
)
LeylandQ[42832853457545958193355601]

507(1): 01/05(日)12:23 ID:tuC7O64g(1) AAS
R=3;
r=2;
K=2; (*　ロータ中心と頂点距離/ロータギア半径 *)

apex[t_] := Module[
{p,c,d},
p = {(R-r) Cos[t] + R Cos[(t+Pi)/3], (R-r) Sin[t] + R Sin[(t+Pi)/3]};
c = {(R-r) Cos[t],(R-r) Sin[t]};
d = K(p-c)+c
]
theta=Flatten@{Range[0,6 Pi, Pi/1000]};
省6

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

ｽﾚ情報赤ﾚｽ抽出画像ﾚｽ抽出歴の未読ｽﾚ AAｻﾑﾈｲﾙ

ぬこの手ぬこTOP 1.143s*