由
戴忠淵 於 2010年4月25日星期日
上午12:16 發表

Here is a quick way to create a symmetric matrix in Mathematica. The code below creates a generic 6×6 symmetric matrix.
myrule=a_[i_,j_]:>Subscript[a,ToString[Min[i,j]]<>ToString[Max[i,j]]];
am=Array[a,{6,6}]/.myrule;
MatrixForm@am
Tags:
Mathematica 教學,
Teaching
讀者回應 ( 0 意見 )
訂閱發佈留言 (Atom)
發佈留言
Please leave your name and tell me what you thought about this site. Comments, suggestions and views are welcomed.
如果這篇文章對你有幫助,那請留個訊息給我~