ベクトルの外積を定義してみる。関数名をcrossとして (%iXX) define(cross(u,v), [u[2]*v[3]-u[3]*v[2], u[3]*v[1]-u[1]*v[3], u[1]*v[2]-u[2]*v[1]]); (%oXX) cross(u,v):=[u[2]*v[3]-v[2]*u[3],v[1]*u[3]-u[1]*v[3],u[1]*v[2]-v[1]*u[2]]定義内容の表示 (%…