Решение смешанной краевой задачи для гиперболического уравнения разностным методом
Контрольная работа - Компьютеры, программирование
Другие контрольные работы по предмету Компьютеры, программирование
чения же третьего слоя записываются в массив u0.
Для вычисления на четвертом слое используются значения на втором и третьем слоях, которые хранятся в массивах u2 и u0 соответственно. Значения же третьего слоя записываются в массив u1.
И так далее до последнего слоя.*/(i=2;i<=N;i++)
{
octatok=fmod(i,3);(octatok)
{//вычисляются значения на слоях с i=3,6,9,...0: _sloya(i);(j=1;j<M;j++)[j]=2*u2[j]+l*l*(u2[j+1]-2*u2[j]+u2[j-1])/(h*h)-u1[j]-l*l*f(j*h,i*l);[0]=tau1(i*l)*u0[1]/(tau1(i*l)-h*tau2(i*l))-h*w1(i*l)/(tau1(i*l)-h*tau2(i*l));[M]=sigma1(i*l)*u0[M-1]/(sigma1(i*l)+h*sigma2(i*l))+h*w2(i*l)/(sigma1(i*l)+h*sigma2(i*l));(j=0;j<=M;j++)_v_file(u0[j]);;
//вычисляются значения на слоях с i=4,7,11,...1: zapis_sloya(i);(j=1;j<M;j++)[j]=2*u0[j]+l*l*(u0[j+1]-2*u0[j]+u0[j-1])/(h*h)-u2[j]-l*l*f(j*h,i*l);[0]=tau1(i*l)*u1[1]/(tau1(i*l)-h*tau2(i*l))-h*w1(i*l)/(tau1(i*l)-h*tau2(i*l));[M]=sigma1(i*l)*u1[M-1]/(sigma1(i*l)+h*sigma2(i*l))+h*w2(i*l)/(sigma1(i*l)+h*sigma2(i*l));(j=0;j<=M;j++)_v_file(u1[j]);;
//вычисляются значения на слоях с i=2,5,8,...2: zapis_sloya(i);(j=1;j<M;j++)[j]=2*u1[j]+l*l*(u1[j+1]-2*u1[j]+u1[j-1])/(h*h) -u0[j]-l*l*f(j*h,i*l);[0]=tau1(i*l)*u2[1]/(tau1(i*l)-h*tau2(i*l))-h*w1(i*l)/(tau1(i*l)-h*tau2(i*l));[M]=sigma1(i*l)*u2[M-1]/(sigma1(i*l)+h*sigma2(i*l))+h*w2(i*l)/(sigma1(i*l)+h*sigma2(i*l));(j=0;j<=M;j++)_v_file(u2[j]);;
}
}(u0);(u1);(u2);();0;
}