0503132人目の素数さん垢版2018/09/01(土) 00:25:33.05ID:52Ub52jp >>502 行列式det使うと簡単 > po <- c(1/2, sqrt(3)/6, sqrt(2/3)) > pa <- c(0,0,0) > pb <- c(1,0,0) > pc <- c(cos(pi/3), sin(pi/3), 0) > det(cbind(pa-po,pb-po,pc-po))/6 [1] -0.1178511