tp7 / LISSAGU

program julius;
uses crt,graph;
var max,sh,h,t,a1,a2,w1,w2,f1,f2:real;
gd,gm,mx,my,px,py,ox,oy:integer;

function x(t:real):real;begin x:=a1*cos(w1*t+f1);end;
function y(t:real):real;begin y:=a2*cos(w2*t+f2);end;
begin

write('Input amplitude a1 = '); read(a1);
write('Input amplitude a2 = '); read(a2);
write('Input angle frequency w1 = ');read(w1);
write('Input angle frequency w2 = ');read(w2);
write('Input start fase f1 = ');read(f1);
write('Input start fase f2 = ');read(f2);

gd:=detect;
initgraph (gd,gm,'d:\TP\BGI');
mx:=getmaxx;
my:=getmaxy;
setcolor(12);
line(mx div 2,0,mx div 2,my);
line(0,my div 2,mx,my div 2);
setcolor(15);
ox:=my div 2;oy:=mx div 2;
if w1>=w2 then h:=10/(w1*1000) else h:=10/(w2*1000);
if a1>=a2 then max:=a1*1.5 else max:=a2*1.5;
sh:=max/ox;
t:=0;
px:=oy+round(x(t)/sh);
py:=ox-round(y(t)/sh);
moveto(px,py);
while t<=10 do
begin t:=t+h;
px:=oy+round(x(t)/sh);
py:=ox-round(y(t)/sh);
lineto(px,py);
end;
readln;
repeat until keypressed;
end.