3変数で関数を作ってNelder-Meadで数値解をだすと

最小のDの座標は
> d + E
[1] 0.4710071 0.3526619 1.3526619
のとき
> opt$value
[1] 1.571811

最大は
> d + E
[1] -2 2 3
> opt$value
[1] 3.741657

厳密解は東大合格者に任せた。