[問題] 迴圈寫法詢問
各位好
我有先看過說明裡面有關迴圈的範例 可是裡面的都是很單純的舉例
以我現在的程度 我沒辦法類比到我現在碰到的問題
所以來請問大家一下 希望可以幫忙
我現在碰到的問題是解harmonic oscillator 的 eigenvalue problem
我已經定義好了一個矩陣A (9 by 9)
現在我定義一個sv1=Table[1,{9}] (sv是starting vector)
計算 A.sv1 會給我一個新的vector 我們叫他sv2
接下來我要把sv2除以裡面數字最大的那個元素
比如說 sv2是{-9,5,0,0,0,0,2,1,3}就除-9 sv2是{-5,2,3,0,1,2,6,8,12}就除12
這部分我是用以下方法解決(nf=normalized factor)
nf2=
Which[Abs[Max[sv2]]>Abs[Min[sv2],Max[SV2],Abs[Max[sv2]<Abs[Min[sv2]],Min[sv2]
所以上面給我我所需要的元素 除掉後會有一個被normalize過的vector
我們叫其 sv3=sv2/nf2
接下來我要計算A.sv3
然後重複以上步驟 將結果除以裏面數字最大的元素->得到一個normalized的向量
再用A去打
最後我想看我所提出來的那個數字 nf會收斂到多少
這個問題我想很久了 我沒辦法把上述的流程整合成一個迴圈....
請大家幫幫忙 謝謝
--
( ′﹀‵)／︴<>< <>< ><> ><> ><> <><
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 140.113.184.17
※ 文章網址: http://www.ptt.cc/bbs/Mathematica/M.1402395957.A.DA8.html
※ 編輯: bear0418 (140.113.184.17), 06/10/2014 18:27:20
推
06/10 18:52, , 1F
06/10 18:52, 1F
討論串 (同標題文章)
Mathematica 近期熱門文章
PTT數位生活區 即時熱門文章
