如何用mathematica解决双变量或者更多变量的迭代问题

题目

如何用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的表达式的那种

答案

{t, p} = {33, 27};
For[i = 0, i < 10, i++,
t = t - 0.05 p;
p = p - 0.15 t;
Print[{t, p}]
];
Clear["`*"]