SpherePowerND
# df次元球の表面積 SphereSurface<-function(df,r=1){ 2*r^df*pi^(df/2)/gamma(df/2) } # df次元球の軸と偏角tであるdf-1次元球の表面積 SphereSurfaceAngle<-function(df,t,r=1){ d<-r*abs(sin(t)) ret<-0 if(df==1){ ret<-rep(2,length(t)) }else{ ret<-S…
# df次元球の表面積 SphereSurface<-function(df,r=1){ 2*r^df*pi^(df/2)/gamma(df/2) } # df次元球の軸と偏角tであるdf-1次元球の表面積 SphereSurfaceAngle<-function(df,t,r=1){ d<-r*abs(sin(t)) ret<-0 if(df==1){ ret<-rep(2,length(t)) }else{ ret<-S…