Графика в Паскале.

[Kaligyla]

Ув. программисты, помогите с написанием проги для описания движения тела вокруг притягивающего тела. Вот та,на сколько я понимаю,чушь которую я понаписал почитав сей форум:

program ex1;
var
X0,X,L,dr,dr1:integer;
Y,a,v,B,m,rn:real;
begin
rn:=-exp(ln(L)*3)*m*a/G*M*m
 G:=6.67*exp(ln(10)*(-11));
writeln('m=');read(m);
writeln('a=');read(a);
writeln('B=');read(B);
writeln('m=');read(m);
writeln('L=');read(L);
begin
Uses Grapf,crt;
dr:=Detect;
InitGrapf(dr,dr1);
if GrapfResult <> GrOk then
begin
writeln('grapf error');halt;
end;
X0:=round(GetMaxX/2); Y+round(sqrt(L*L/4);
ellipse(X0,Y;r);
end;
end.

Необходимо,что бы значения масс и ускорения вводились пользователем.Цель программы: графически показать зависимость траектории движения тела от масс его самого и притягивающего центра, и ускорения. Заранее спасибо (если есть предложения выходящие за рамки форума,прошу писать на мыло).

[s-andriano]

Может, Вам вредно читать форумы, если после этого пишете чушь?
Если хотите помощи, напишите подробно, что именно должна делать программа.

[Kaligyla]

прога должна вывести окружность не большого радиуса(центр притяжения) и орбиту по которой будет двигаться тело заданной массы и с определенным ускорением

Графика должна строиться на основе 2-го закона Ньютона. Т.е. - rn:=-exp(ln(L)*3)*m*a/G*M*m

[s-andriano]

Исходя из чего определять, каков он - этот небольшой радиус, а также радиус орбиты?
И для чего нужна масса?

[Kaligyla]

Небольшой радиус=окружность любого(произвольного(удобного) радиуса),которая всего-навсего
являет собой центр притяжения. Орбита движения 2-го тела строится вокруг первого.
основа задачи-закон всемирного тяготения: am=-GMm/R^3*r, где a-ускорение 2-го тела,m-его масса,G-постоянная= 6.67*exp(ln(10)*(-11)) или 6,67*10^-11,M-масса тела,являющегося центром притяжения, R-расстояние между телами в начальный момент времени,r-радиус-вектор описывающий орбиту движения тела.

[s-andriano]

Ну, во-первых, насколько я понимаю, масса малого тела m у нас сокращается, т.е. она нас не интересует.
Во-вторых, я так понял, единственное, что Вам нужно сделать, это нарисовать две окружности с общим центром. Но для этого нужно знать радиусы этих окружностей, а формул для их вычисления Вы не приводите.

[Kaligyla]

две окружности я и сам нарисую). дело не в этом. задача строится по типу Земля-спутник. массы тут никакие не сокращаются-все как раз и зависит от них(ну и от ускорения).

в общем,ввел массу большого тела,маленького,его ускорение, и радиус вектор должен описать траекторию движения маленького тела(спутника) вокруг большого.

подробнее тут http://inf.1september.ru/articlef.php?ID=200600801

[s-andriano]

Тогда не понимаю, что Вам нужно.

Да, Ваша ссылка у меня открывается кракозябрами.