- 【コロナ警戒レベル最高】マジでギリギリな開業医【市中感染】10
396 ：卵の名無しさん[sage]：2020/08/08(土) 04:05:22.88 ID:7Ekoauz2 - >>392
シリツを擁護するとはさては裏口だな。
| - 【コロナ警戒レベル最高】マジでギリギリな開業医【市中感染】10
397 ：卵の名無しさん[sage]：2020/08/08(土) 04:05:44.96 ID:7Ekoauz2 - 8月の出来事
野党「臨時国会開催を」
安倍「断る」
産経「新型インフルエンザ等対策特別措置法改正を」
安倍「断る」
野党「緊急事態宣言を」
安倍「断る」
| - 底辺私立医大を卒業した医者って頭悪いよね？ Part17
400 ：卵の名無しさん[sage]：2020/08/08(土) 05:49:15.88 ID:7Ekoauz2 - ＰＣＲ増えないね
https://i.imgur.com/diHa6Ld.jpg
| - 底辺私立医大を卒業した医者って頭悪いよね？ Part17
401 ：卵の名無しさん[sage]：2020/08/08(土) 05:55:33.74 ID:7Ekoauz2 - f <- function(s,t) s^2 + 4*s*t - 2*t^2 - 3*s + 2
s=t=seq(0,1,0.01)
z=outer(s,t,f)
contour(s,t,z)
| - 底辺私立医大を卒業した医者って頭悪いよね？ Part17
402 ：卵の名無しさん[sage]：2020/08/08(土) 07:09:43.40 ID:7Ekoauz2 - inside <-function(x,y,z){
(x>=0 & z^2+y^2 < 1/2*( sqrt(4*x + 1) + 2*x + 1 - 2*x^2))|
(x<0 & (z^2+y^2 < 1/2*( sqrt(4*x + 1) + 2*x + 1 - 2*x^2)) &
(z^2+y^2 > 1/2*(-sqrt(4*x + 1) + 2*x + 1 - 2*x^2)))
}
N=1e4
x=runif(N,-0.25,2)
y=runif(N,-1.3,1.3)
z=runif(N,-1.3,1.3)
v=diff(range(x))*diff(range(y))*diff(range(z))
w=NULL
counter=0
for(i in 1:N){
if(inside(x[i],y[i],z[i])){
w=rbind(w,c(x[i],y[i],z[i]))
counter=counter+1
}
}
counter/N*v
rgl::plot3d(w[,1],w[,2],w[,3],col='red',asp=1)
rgl::plot3d(w[,1],w[,2],w[,3],col=sample(c('black','red')),asp=1)
rgl::plot3d(w[,1],w[,2],w[,3],col=sample(colours()),asp=1)
|
|