我是最近才开始使用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图
请问连续代入解方程式，且会自动取实根的部份要怎么写呢?