我是最近才開始使用Mathematica的新手，有問題想請版上大大幫忙>"<
目的是要解出 Xn,Yn,Zn，其中n=1,2,3,...
經過整理可以得到Zn的三次方程式，式中包含Xn-1,Yn-1,Zn-1
n=1的初始值是自己給的，使用NSolve解出3個根(1實根,2虛根)
將Zn的實根，代入Xn,Yn的方程式，可以得到Xn,Yn
下一步是將Xn,Yn,Zn取代原本的Xn-1,Yn-1,Zn-1，然後重復動作算出Zn+1
最後將X,Y,Z的值畫成3D圖
請問連續代入解方程式，且會自動取實根的部份要怎麼寫呢?