[問題] 請教有關遞迴式
不好意思又來問問題了
目前小弟寫到定義分段函數
然後使用遞迴的方式把剩下的函數定義完
舉例如下:
H[-1,x1_,x2_,x3_,n_] :=E^(-x1*x3)*(n!/x2^n)*Sqrt[1/(2*x2)]
然後
H[0,x1_,x2_,x3_,n_]:=
x3/(2*n)*H[-1,x1,x2,x3,n+1]-x1/(2*n)*H[-1,x1,x2,x3,n] /; x2==0.5*x3^2
H[0,x1_,x2_,x3_,n_]:=
n!*(0.5*x1*H[-1,x1,x2,x3,n-1]-0.5*x3*H[-1,x1,x2,x3,n]) /; x2!=0.5*x3^2 ; x1>0
H[0,x1_,x2_,x3_,n_]:=
0.5*x1*H[-1,x1,x2,x3,n-1]-0.5x3*H[-1,x1,x2,x3,n] /; x2!=0.5*x3^2 ; x1<0
H[0,x1_,x2_,x3_,n_]:=
0.5*x3*H[-1,x1,x2,x3,n] /; x2!=0.5*x3^2; x1==0
Table[H[i,x1_,x2_,x3_,n_]:= (1/i)*H[i-2,x1,x2,x3,n+1]-
(x3/i)*H[i-1,x1,x2,x3,n+1]-(x1/i)*H[i-1,x1,x2,x3,n], {i,12}];
最後再把這些函數做些計算處理的時候
出現了遞迴次數超過256次之類的訊息以及後面伴隨很多錯誤訊息
當中似乎出現了什麼問題
是我的定義語法錯誤了嗎?
還是有其他的方法來定義這樣子的遞迴函數?
麻煩各位大師替我解惑!! 謝謝!!
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 140.119.202.13
討論串 (同標題文章)
Mathematica 近期熱門文章
PTT數位生活區 即時熱門文章
