mathematicaによるシミュレーション教えてください

[0043 名無しさん＠１周年 NG NG]

ExpandのポリシーとしてAbs[a + I b]^2を展開したりは
しないのかな。
TargetFunctionsを適当に変えてやるとイケる。