20/12/10 21:36:02.49 Whv7aYu3.net
>>915
とりあえず、回転させたときの体積と表面積を出してみた。（数値積分法による近似解）
> green = function(x) sqrt(r^2-x^2) # 円Oの方程式
> blue = function(x) sqrt(s^2-(x-c)^2) # 円Cの方程式
> red = function(x) sqrt(R^2-(x-a)^2) # 円Aの方程式
>
> VGB=integral(function(x) pi*green(x)^2, -r,b0) # volume green&blue
> VR=integral(function(x) pi*red(x)^2, b0,a+R) # volume red
> VGB+VR
[1] 3.304685217
>
> AG=integral(function(x) 2*pi*green(x), -r,b0) # area green
> AB=integral(function(x) 2*pi*blue(x),b0,c+s) # area blue
> AR=integral(function(x) 2*pi*red(x)^2, c+s,a+R) # area red
> AG+AR
[1] 7.64711703
> AG+AB+AR
[1] 7.830843082