高校数学の質問スレ Part436

>>487
御神託

f1[b_,c_] :=(
pA={Cos[0],Sin[0]};
pB={Cos[b],Sin[b]};
pC={Cos[c],Sin[c]};
(pB-pA).(pC-pA)
)
Maximize[{f1[b,c], -Pi<=b<=Pi && -Pi<=c<=Pi},{b,c}]

f2[b_,c_] :=(
pA={Cos[0],Sin[0]};
pB={Cos[b],Sin[b]};
pC={Cos[c],Sin[c]};
AB=pB-pA;
BC=pC-pB;
CA=pA-pC;
BA=-AB;
CB=-BC;
AC=-CA;
AB.AC+BA.BC+CA.CB
)
Maximize[{f2[b,c], -Pi<=b<=Pi && -Pi<=c<=Pi},{b,c}]

問題
上記を他の言語に移植せよ。