Похожие работы на «Решение систем дифференциальных уравнений методом Рунге-Куты 4 порядка »

Решение систем дифференциальных уравнений методом Рунге-Куты 4 порядка
Математика, Решение систем дифференциальных уравнений методом Рунге-Куты 4 порядка , Работа Курсовая ... x=xm+1=xm+h( Уравнение прямой L1 выглядит так: y=ym+y(m(x-xm) так как y(=f(xm(ym) и кроме того( xm+1=xm+h тогда уравнение примет вид ym+1=ym+h*f(xm(ym ...
... Ф(xm(ym(h)=([f(xm(ym)+f(xm+h(ym+y(mh)] 1(2 где y(m=f(xm(ym) 1(3 Уравнение линии L при этом записывается в виде y=ym+(x-xm)Ф(xm(ym(h)( так что ym+1=ym


Обработка экономической информации средствами языка Pascal [нестрогое соответствие]
Кибернетика, Обработка экономической информации средствами языка Pascal, Курсовая ... read(nn);a.e3:=nn; end; writeln; writeln('Изменить цену за 1 шт? (y/n)');c:=readkey; if c=#121 then begin write('Вводим новое:'); read(o);a.e4:=o; end ...
... read(nn);a.e3:=nn; end; writeln; writeln('Изменить цену за 1 шт? (y/n)');c:=readkey; if c=#121 then begin write('Вводим новое:'); read(o);a.e4:=o; end ...


Программирование на языке Турбо Паскаль [нестрогое соответствие]
Программирование и комп-ры, Программирование на языке Турбо Паскаль , Лекции Конспекты студенческие ... pas'); reset(f); while not eof(f) do begin while not eoln(f) do begin read(f,c); write(c); end; readln(f); writeln; end; close(f); readln; end.
... z+b.z; end; procedure VecSub(a,b: tVec3D; var c: tVec3D); begin c.x:=a.x-b.x; c.y:=a.y-b.y; c.z:=a.z-b.z; end; procedure VecMultNum(k: real; a: tVec3D ...


Помехоустойчивое кодирование, распознавание символов [нестрогое соответствие]
Разное, Помехоустойчивое кодирование, распознавание символов, Курсовая ... w+1; repeat {-вносим помехи...-} x := random(BiW); {случайные координаты} y := random(BiH); if (x in [3..BiW-2]) and (y in [3..BiH-2]) then begin if ...
... begin {...то рисуем рамку;100-цвет} for x:=xmin-1 to xmax+1 do f[x,ymin-1]:=100; for x:=xmin-1 to xmax+1 do f[x,ymax+1]:=100; for y:=ymin-1 to ymax+1 ...


Из опыта создания универсальных тестовых редакторов [нестрогое соответствие]
Программирование и комп-ры, Из опыта создания универсальных тестовых редакторов , Рефераты ... 30,5,50,10); TextBackGround(black); clrscr; For i:=1 to d do Begin Writeln(c); Window(10,10,53,20); {окно вопроса} TextBackGround(lightgray); clrscr; ...
... применить и цикл с параметром от 0 до 2} Read(c,b); Write(b); End; Readln(c); Writeln; while not EOLN(c) do Begin {вывод редактируемого вопроса на ...


Аппроксимация [нестрогое соответствие]
Программирование и комп-ры, Аппроксимация, Курсовая ... i]:4:2,' '); end; Create_BC(n,m,x,y,c,b); writeln(f2); writeln(f2,'Матрица системы линейных уравнений для аппроксимации и вектор правых частей); for i ...
... i]:=0; for j:=m+1 downto 1 do z[i]:=z[i]*x[i]+a[j]; z[i]:=z[i]-y[i];end; writeln(f2); writeln(f2,'Вектор коэфициентов аппроксимирующего многочлена по ...


Решение дифференциальных уравнений 1 порядка методом Эйлера [нестрогое соответствие]
Программирование и комп-ры, Решение дифференциальных уравнений 1 порядка методом Эйлера , Работа Курсовая ... производятся по формуле: yk+1 = yk +(k1 +2k2 +2k3 +k4 )/6, (2.1.2) где k1 = Fk h = F(xk , yk )h k2 = F(xk +h/2, yk +k1 /2)h k3 = F(xk +h/2, yk +k2 /2) ...
... x0)=y0, z(x0)=z0, z0=y/0. (2.5.12) 3.Описание алгоритмов решения задачи 3.1.Описание переменных. |Наименование |Тип |Описание | |Входные данные | |Xi ...


Численное решение модельного уравнения диссипации, конвекции и кинетики [нестрогое соответствие]
Математика, Численное решение модельного уравнения диссипации, конвекции и кинетики, Контрольная ... if SelectFunction=1 then Fun_F:=2*t-v*6*Xm+a*3*SQR(Xm)- b*(SQR(Xm)*Xm+SQR(t)); if SelectFunction=2 then Fun_F:=3*SQR(Xm)*SQR(t)+10*Xm+4*SQR(t)*t*Xmv*2 ...
... t)- v*(2*COS(Xm*t)*t- Xm*SIN(Xm*t)*SQR(t)-8*COS(t))+a*(SIN(Xm*t)+Xm*t*COS(Xm*t)- 8*COS(t)*Xm)- b*(Xm*SIN(Xm*t)-4*SQR(Xm)*COS(t)); if SelectFunction=4


Семантический анализ структуры EXE файла и дисассемблер (с примерами и исходниками), вирусология [нестрогое соответствие]
Программирование и комп-ры, Семантический анализ структуры EXE файла и дисассемблер (с примерами и исходниками), вирусология , Работа Курсовая ... out, ' V_'+ Offset+tab+'DW', tab, '?'); end; D: begin Writeln(f_out, ' V_'+ Offset+tab+'DD', tab, '?'); end; end; repeat NextRef:=succ(NextRef) until ...
... case Prefix of NoPrefix: ; CS: begin write(f_out, 'CS:'); Prefix := NoPrefix end; ES: begin write(f_out, 'ES:'); Prefix := NoPrefix end; SS: begin ...


Основные понятия алгоритмического языка [нестрогое соответствие]
Программирование и комп-ры, Основные понятия алгоритмического языка, Курсовая A B C D E F G H I J K L M N O P Q R S T U V W X Y Z a b c d e f g h i j k l m n o p q r s t u v w x y z 2) _ подчеркивание 3) 10 цифр:
... где A и B - нижняя и верхняя границы интервала интегрирования, N - число разбиений интервала интегрирования, h=(B-A)/N, причем N должно быть четным.