例子
先假設一個初始溫度場,6個節點溫度都假設為0
即剛開始 a(i)=0
b(i)=a(i) 'b(i)用來記錄存放初始溫度作比較
wucha=1
do while wucha>0.001 '知道誤差滿足收斂要求才退出回圈
for i=1 to 6
a(i)=(a(i+1)+a(i-1))/2.05 'a(i)用前后兩個點溫度不斷地計算迭代
a(5)=a(4)
wucha=0
wucha=wucha+(abs(a(i)-b(i)))/7
loop
print a(i)
問題只程式只能算1到6一次回圈 而不能將新的a(i)替代進去,不能判斷收斂,怎么才能判斷收斂條件(就是誤差小于0)回圈才結束呢,?
uj5u.com熱心網友回復:
http://download.csdn.net/detail/veron_04/3058640轉載請註明出處,本文鏈接:https://www.uj5u.com/gongcheng/128876.html
標籤:VB基礎類
上一篇:關于不能洗掉程式本身!
