23/05/08 02:34:57.80 X7W/s4Lv0.net
ABC2S=\(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))
}
abc2s=\(A,B,C) abs(Im((A-C)*Conj(B-C)))/2
ABC2S(A,B,C)==0.5
abc2s(A,B,C)==0.5
> ABC2S(A,B,C)==0.5
[1] FALSE
> abc2s(A,B,C)==0.5
[1] TRUE