新しく発言する EXIT インデックスへ

２×２の実正方行列による複素数の計算

　　２×２の実正方行列による複素数の計算 山中和義 2008/10/01 19:19:30 
　　└つづき 山中和義 2008/10/01 19:20:12 
　　　├!４×４の実行列によるクォータニオン（四元... 山中和義 2008/10/01 19:21:51 
　　　│├つづき 山中和義 2008/10/01 19:23:37 
　　　│└つづき 山中和義 2008/10/01 19:24:24 

Re: !４×４の実行列によるクォータニオン（四元...	返事を書く ノートメニュー
山中和義 <drdlxujciw> 2008/10/01 19:24:24
つづき DIM q(4,4),qq(4,4) !結果 CALL QuatConj(q1,q) !共役 q' CALL dispQuat("q1'=",q) MAT q=q1+q2 !加算 q1+q2 CALL dispQuat("q1+q2=",q) MAT q=q1-q2 !減算 q1-q2 CALL dispQuat("q1-q2=",q) MAT q=(-3)*q2 !実数倍 CALL dispQuat("(-3)*q1=",q) MAT q=q1*q2 !乗算 q1*q2 CALL dispQuat("q1*q2=",q) MAT q=q2*q1 !q2*q1 CALL dispQuat("q2*q1=",q) !q1*q2≠q2*q1 CALL QuatABS(q1,q) !ノルム CALL dispQuat("|q1|=",q) PRINT DET(q1); SQR(DET(q1)); DET(q1)^(1/4) !検算 CALL QuatRe(q1,q) CALL dispQuat("Re(q1)=",q) CALL QuatIm(q1,q) CALL dispQuat("Im(q1)=",q) CALL QuatDOT(q1,q2,q) !内積 CALL dispQuat("(q1,q2)=",q) PRINT 3*(-2)+2*(-4)+(-1)*1+(-2)*(-3) !検算 CALL Quat(0,1,2,3, q1) !ベクトル(1,2,3) CALL Quat(0,-1,1,2, q2) !ベクトル(-1,1,2) CALL QuatCROSS(q1,q2,q) CALL dispQuat("q1×q2=",q) !外積 END

　　　└!２×２の複素行列によるクォータニオン（四... 山中和義 2008/10/01 19:27:00 
　　　　└つづき 山中和義 2008/10/01 19:28:00 

インデックスへ EXIT
新規発言を反映させるにはブラウザの更新ボタンを押してください。