- 底辺私立医大を卒業した医者って頭悪いよね？ Part19
880 ：卵の名無しさん[sage]：2021/04/04(日) 16:49:57.34 ID:TqF3TvRy - # BCが最長辺となる三角形をランダムに描出する。
rtriangle <- function(print=TRUE,...){ # 最長辺：BC＝１
B=0i
C=1+0i
flg=TRUE
while(flg){
b=runif(1,0,pi/2)
c=runif(1,0,pi-b)
A=intsect(B,C+1i*tan(b),C,1i*(tan(c)))
flg <- abs(A-C)>=1 | abs(A-B)>=1
}
if(print){
Plot(0,max(1,Re(A)),0,max(1,Im(A)),asp=1,...)
Polygon(A,B,C)
pt(A,'A') ; pt(B,'B') ; pt(C,'C')
}
return(A)
}
rtriangle(axes=FALSE)
| - 底辺私立医大を卒業した医者って頭悪いよね？ Part19
881 ：卵の名無しさん[sage]：2021/04/04(日) 16:51:21.88 ID:TqF3TvRy - 臨床医に必要な外国語は英語、臨床医に必要なプログラム言語はR.
職種を言えない医療従事者はまず習得していないと思う。
| - 底辺私立医大を卒業した医者って頭悪いよね？ Part19
882 ：卵の名無しさん[sage]：2021/04/04(日) 16:52:30.20 ID:TqF3TvRy - >>879
俺のころは1年で14万4千円だったな。
| - 底辺私立医大を卒業した医者って頭悪いよね？ Part19
884 ：卵の名無しさん[sage]：2021/04/04(日) 17:42:27.65 ID:TqF3TvRy - # BCが最長辺となる∠B,∠Cの組み合わせ
plot(0:90,0:90,type='n',asp=1,ann=F)
sim <- function(b,c,...){
do=pi/180
B=0i
C=1+0i
A=intsect(B,C+1i*tan(b*do),C,1i*(tan(c*do)))
if(abs(A-C)<=1 | abs(A-B)<=1){
points(b,c,...)
}
}
sim=Vectorize(sim)
DEL=replicate(1e4,sim(runif(1,0,90),runif(1,0,90),col=3)
|
|