Здравствуйте. У меня следующая проблема. Есть цикл от 1 до n, в каждой итерации 3 раза задаётся система 2 диф.ур-ний, и каждую систему он решает метод Рунге. При этом передаёт конечные значения решений, на вход начальных следующей системе. Например, sol:rk([f1,psi1],[psi1,psi],[psi1I,psiI],[tau,i-1,i-1+t1,h]), len:length(sol), tgI:sol[len][1], psiI:sol[len][3], psi1I:sol[len][2], Потом он эти значения psiI и psi1I передаёт на след. сис-му в качестве начальных и т.д.
Проблема заключается в следующем. Почему-то в некоторых итерациях он делает количество шагов на 1 меньше чем должно. Например, отрезок от 0 до 0.1 шаг 0.01, а он проходит всего 10 шагов. И соответственно передаёт не те значения. При чём может на i=1,4 посчитать неверное количество шагов, а на i=2,3 все верно.
Если кто-нибудь знает решение данной проблемы, буду премного благодарен.