2011-09-11から1日間の記事一覧

たとえば

ソースは、非常に重いのだが… SimplexVolume<-function(x,Factorial=FALSE){ n<-length(x[,1]) #d<-t(x[2:n,])-x[1,] d<-apply(x,2,FUN="diff") if(Factorial){ ret<-log(abs(det(d))) - lfactorial(n-1) }else{ ret<-log(abs(det(d))) } return(ret) } Simp…

3次元最小全域木