Моделирование физических процессов (стр. 2 из 2)

setcolor(3);

line(0,240,640,240);

line(320,0,320,480);

for i:=1 to n do

begin

if i+1<=n then

begin

setlinestyle(0,0,3);

setcolor(7);

line(320+Xf[i],Yf[i]-160,320+Xf[i+1],Yf[i+1]-160);

putpixel(460,240,15);

putpixel(320,40,15);

putpixel(Xf[i]+320,Yf[i]-160,0);

end;

readln;

closeGraph;

end.

Таблица измерений в Pascal, Mathcad:

t	X1	X2	Xm
2	2,077
2,1	2,16
2,2	2,247
2,3	2,341
2,4	2,44
2,5	2,545
2,6	2,656
2,7	2,773
2,8	2,896

X1 – метод Эйлера модифицированный, X2 – метод Рунге – Кутта, Xm – решение в Mathcad

Решение в Mathcad.

Вывод

В результате проделанной работы, я научился решать дифференциальные уравнения и строить к ним график, еще я научился решать такие уравнения в среде Turbo Pascal. Узнал, как решать различные уравнения в MathCAD. Еще я понял, как можно строить различный функции по точкам, с помощью циклов. Так же я понял, как нужно правильно масштабировать графики, в зависимости от заданной функции. Вследствие того, что данная курсовая, была для меня первой серьезной и объемной работой, я научился оформлять серьезные работы.

Список литературы

1. Демидович Б.П., Марон И.А., Шувалова Э.З., Численные методы анализа: Физматгиз, 1963.

2. Немюгин С.А. turbo Pascal. Практикум – СПБ.: Питер, 2009.

3. Немюгин С.А. turbo Pascal. Программирование на языке высокого уровня: Учебник для вузов. – СПБ.: Питер, 2005.

4. М.М. Боженова, Л.А.Москвина.

5. Практическое программирование. Приемы создания программ на языке Паскаль.

6. Основные процедуры и функции модуля graph: http://rsc-team.ru/cgi-bin/index.pl?rzd=2&group=lection&ind=21