21/01/07 07:19:44.87 n6NiS4+G.net
>>241
手計算は面倒なので、Rにやってもらった。
ABC2S <- function(A,B,C){
a=abs(B-C)
b=abs(C-A)
c=abs(A-B)
s=(a+b+c)/2
sqrt(s*(s-a)*(s-b)*(s-c))
}
A=1+1i
B=6+1i
C=5+2i
gr=as.matrix(expand.grid(1:6,1:6))
ACP <- function(x,y){
P=x+1i*y
ABC2S(A,C,P)
}
data.frame(x=gr[,1],y=gr[,2],APC=mapply(ACP,gr[,1],gr[,2]))