I try to solve this system:
V[n+1]=Max[1/2(W[n]+V[n]),W[n]]
W[n+1]=2+1/5*V[n]+4/5*W[n]
V[0]=W[0]=0
I try to do it with rsolve:
RSolve[{V[n + 1] == Max[1/2*(V[n] + W[n]), W[n] - 1],
W[n + 1] == 2 + 1/5*V[n] + 4/5*W[n], V[0] == 0, W[0] == 0}, {V[n],
W[n]}, n]
But it just gives the same as output, what am i doing wrong?
I think it has something to do with the Max[a,b] function in it, how can i solve this?
regards
herbert
ps mathematica 7.0