3次元ラプラシアンの極座標表示をMaximaで求める
TwitterのTLで3次元ラプラシアンの極座標表示の手計算の話題が流れていました。手書きで解こうとは全く思えないのでフリーの数式処理ソフトのMaximaで解いてみます。数式処理ソフトを使う時点ですでに力づくなのですがなるべくさらっと見えるように書いてみます。
kill(all);depends(f,[r,tht,phi]);depends([r,tht,phi],[x,y,z]);eqx:x=r*sin(tht)*cos(phi);eqy:y=r*sin(tht)*sin