wxMaxima version /* quaternion qmul(quaternion l, quaternion r); */ qmul(l,r) := [ l[1]*r[4] + l[4]*r[1] + l[2]*r[3] - l[3]*r[2] , l[2]*r[4] + l[4]*r[2] + l[3]*r[1] - l[1]*r[3] , l[3]*r[4] + l[4]*r[3] + l[1]*r[2] - l[2]*r[1] , l[4]*r[4] - …
引用をストックしました
引用するにはまずログインしてください
引用をストックできませんでした。再度お試しください
限定公開記事のため引用できません。