u have written your code with as complicated as names you can do ! and have put every thing in a very complicated do loop ! so it makes you make mistakes much !
i changed your initial conditons to :
and this line of your code like this :
r_nach_1[i+2] (t):= r_nach_1[i+1](t) + alpha*(B1*(iter_psi_c1_1(t)) + (c1*iter_psi_c2_1(t))); instead of defining function.
i extracted your code , and for first loop,(setting i=1) it is done correctly. thus changed i=2 and got another recursive error !
and becuase of complexness of your code ! i can not find the souce ! maybe some one else can help !