Двойной маятник по методу Эйлера на паскале неправильно строит график

@Ruslan102Ufa · Регистрация: 15.12.2014

Author24 — интернет-сервис помощи студентам

где может быть ошибка

Pascal

program dm;
const n=5000 ;
var H,W,C,M,q:real;
i:integer; s:string;
x1,x2,Vx1,Vx2:array [0..N] of real;
f:text;
begin
assign (f,'d:\ft.dat');rewrite(f);
h:=0.1; w:=3.13; M:=0.001;
Vx1[1]:=0 ;x1[1]:=0;
Vx2[1]:=0 ;x2[1]:=0;
for i:=0 to n-1 do begin
Vx1[0]:=0;
Vx1[i+1]:=Vx1[i]+h*(-w*w*(1+2*M)*x1[i]+M*w*w*x2[i]);
Vx2[0]:=0;
Vx2[i+1]:=Vx2[i]+h*(-w*w*x2[i]+w*w*x1[i]);
x1[i+1]:=x1[i]+h*Vx1[i] ; x2[i+1]:=x2[i]+h*Vx2[i];
end;
for i:=0 to n do begin
writeln (f,' ',i*h,' ',x1[i]+150,' ');write (f,' ',i*h,' ',x2[i]+100,' ');end;
close (f);
end.

@volvo · 15.12.2014, 17:11

В чем выражается ошибка? Файл, который требовался, был создан, никакого графика в программе не строится. Как увидеть ошибку-то?

@Ruslan102Ufa · 15.12.2014, 17:17 **[ТС]**

файл создается,я этот файл засунул в Origin и построил график,но график не такой какой нужен,т.е. на графике маятники не колеблются,значит получается что то в программе не так

@volvo Супер-модератор 32835 / 21172 / 8148 Регистрация: 22.10.2011 Сообщений: 36,431 Записей в блоге: 8
	15.12.2014, 17:11	2
	В чем выражается ошибка? Файл, который требовался, был создан, никакого графика в программе не строится. Как увидеть ошибку-то? 0

@Ruslan102Ufa 0 / 0 / 0 Регистрация: 15.12.2014 Сообщений: 2
	15.12.2014, 17:17 [ТС]	3
	файл создается,я этот файл засунул в Origin и построил график,но график не такой какой нужен,т.е. на графике маятники не колеблются,значит получается что то в программе не так 0