我是Mathematica編程的初學者。我的代碼沒有按預期運行。我想知道有沒有人可以檢查出什麼問題?這是代碼的一部分。mathematica中的函數迭代
F[{k_, n_, x_}] =
Which[k == 0, f[a, b, x],
k == 1, g[a, b, n, x],
k == 2, h[c, d, n, x]]
G[x_] = F[{0, 0, x}]
While[Extract[G[x], 1] != 3, G[x_] = F[G[x]]]
功能f
,g
和h
由Which
定義爲是F
,而且都是矢量值,從而是有意義的迭代F
。我想達到的是:給定初始值{0,0,x}
,繼續迭代F
,直到F
的第一個組件變爲3
。有什麼,例如語法錯誤,在上面的代碼?
謝謝!
是的,NestWhile似乎在工作。謝謝您的幫助。 – 2012-08-01 23:11:31