- 底辺私立医大を卒業した医者って頭悪いよね？ Part17
313 ：卵の名無しさん[sage]：2020/07/30(木) 09:43:48.43 ID:cu0H18iC - θ傾けたワイングラスの支柱方向に積分
回転軸をy軸にしてy=tの断面での関数
x=(t-y0)/tan(θ) + x0
z=sqrt(acos(-t)+x^2)
| - 底辺私立医大を卒業した医者って頭悪いよね？ Part17
314 ：卵の名無しさん[sage]：2020/07/30(木) 09:56:37.86 ID:cu0H18iC - x=z=seq(-pi,pi,0.1)
f<-function(x,z) -cos(sqrt(x^2+z^2))
f=Vectorize(f)
y=outer(x,z,f)
contour(x,z,y)
abline
| - 底辺私立医大を卒業した医者って頭悪いよね？ Part17
315 ：卵の名無しさん[sage]：2020/07/30(木) 10:00:48.69 ID:cu0H18iC - x=z=seq(-pi,pi,0.1)
f<-function(x,z) -cos(sqrt(x^2+z^2))
f=Vectorize(f)
y=outer(x,z,f)
t=runif(1,-1,1)
contour(x,z,y,level=t)
abline(v=(t-y0)/tan(θ)+ x0)
| - 【コロナ警戒レベル最高】マジでギリギリな開業医【市中感染】10
192 ：''[sage]：2020/07/30(木) 10:35:42.25 ID:cu0H18iC - >>185
これをどうやってミンシュガーにつなげるかだな
| - 底辺私立医大を卒業した医者って頭悪いよね？ Part17
316 ：卵の名無しさん[sage]：2020/07/30(木) 11:15:24.84 ID:cu0H18iC - >>313
theta=pi/19
x=z=seq(-pi,pi,0.1)
f<-function(x,z) -cos(sqrt(x^2+z^2))
f=Vectorize(f)
y=outer(x,z,f)
(t=runif(1,-1,1))
contour(x,z,y,level=t)
z0=0
df <- function(x) (x*sin(sqrt(x^2 + z0^2)))/sqrt(x^2 + z0^2)
df=Vectorize(df)
x0=uniroot(function(x) df(x)-tan(theta),c(pi/2,pi+1e-12),tol=1e-12)$root
y0=f(x0,0)
abline(v=(t-y0)/tan(theta)+ x0)
| - 底辺私立医大を卒業した医者って頭悪いよね？ Part17
317 ：卵の名無しさん[sage]：2020/07/30(木) 18:00:19.02 ID:cu0H18iC - moon <- function(m,r=1){ # moon area above horizon
x1= -sqrt(r^2-m^2)
x2= sqrt(r^2-m^2)
if(m>0) {
a=function(x) sqrt(r^2-x^2)-m
integrate(a,x1,x2)$value
}else{
b=function(x) m+sqrt(r^2-x^2)
pi*r^2-integrate(b,x1,x2)$value
}
}
|
|