如何用mathematica解决双变量或者更多变量的迭代问题我知道FoldList可以迭代简单的双变量函数,但是如果是两个变量相互影响怎么办?例:x=x-0.05y,y=y-0.15x,初始x=33,y=27,这样一直迭代下去Print[{x,y}],

来源:学生作业帮助网 编辑:六六作业网 时间:2024/11/25 12:28:20
如何用mathematica解决双变量或者更多变量的迭代问题我知道FoldList可以迭代简单的双变量函数,但是如果是两个变量相互影响怎么办?例:x=x-0.05y,y=y-0.15x,初始x=33,

如何用mathematica解决双变量或者更多变量的迭代问题我知道FoldList可以迭代简单的双变量函数,但是如果是两个变量相互影响怎么办?例:x=x-0.05y,y=y-0.15x,初始x=33,y=27,这样一直迭代下去Print[{x,y}],
如何用mathematica解决双变量或者更多变量的迭代问题
我知道FoldList可以迭代简单的双变量函数,但是如果是两个变量相互影响怎么办?
例:x=x-0.05y,y=y-0.15x,初始x=33,y=27,这样一直迭代下去Print[{x,y}],本来以为For循环可以直接解决的For[i = 0; i < 10,i++,t = 33,t = t - 0.05 p,p = p - 0.15 t;
Print[{p,t}]],但是这个功能好像不支持..求大神给出一个简单地迭代方程,不要直接求出x,y的表达式的那种

如何用mathematica解决双变量或者更多变量的迭代问题我知道FoldList可以迭代简单的双变量函数,但是如果是两个变量相互影响怎么办?例:x=x-0.05y,y=y-0.15x,初始x=33,y=27,这样一直迭代下去Print[{x,y}],
{t, p} = {33, 27};
For[i = 0, i < 10, i++,
t = t - 0.05 p;
p = p - 0.15 t;
Print[{t, p}]
];
Clear["`*"]