>>430
そのアルゴリズムでR言語で算出

> g=0
> for(i in 1:(length(P)-1)){
+ g=g+ABC2S(P[i],P[i+1],C)*mean(c(P[i],P[i+1],C))
+ }
> G=g/S
> G
[1] 0.9251606+0.5373762i
Wolframと似たような値が返ってきた。
とりあえず、自分で立式して算出できることが確認できて( ・∀・)ｲｲ!!

PhimoseくんってR言語もWolfram言語も分からないのか？
理工系ならMathematicaでWolfram言語が使えるんじゃないかと思うんだが。
医系ならR言語使いの方が多いかな、ただしシリツ医は除く。