home *** CD-ROM | disk | FTP | other *** search
- Program Graphdmo;
- USES GP;
- VAR
- Theta : REAL;
- J : INTEGER;
- BEGIN
- BeginGraphic(Gdrvr, Gmode);
-
- DefineWindow(1,0,33,50,100);
- MakeWorldAndAxes(1,1,0,12*Pi,-10,10,Green,Green,
- 'X',Cyan,'Damped Sin(X)',Cyan,'Window 1',White);
-
- DefineWindow(2,34,66,50,100);
- MakeWorldAndAxes(2,2,0,12*Pi,-20,20,Blue,Blue,
- 'X',Cyan,'Damped Sin(X)',Cyan,'Window 2',White);
-
- DefineWindow(3,67,100,50,100);
- MakeWorldAndAxes(3,3,0,12*Pi,-30,30,Red,Red,
- 'X',Cyan,'Damped Sin(X)',Cyan,'Window 3',White);
-
- DefineWindow(4,0,33,0,49);
- MakeWorldAndAxes(4,4,0,12*Pi,-40,40,Yellow,Yellow,
- 'X',Cyan,'Damped Sin(X)',Cyan,'Window 4',White);
-
- DefineWindow(5,34,66,0,49);
- MakeWorldAndAxes(5,5,0,12*Pi,-50,50,LightGray,DarkGray,
- 'X',Cyan,'Damped Sin(X)',Cyan,'Window 5',White);
-
- DefineWindow(6,67,100,0,49);
- MakeWorldAndAxes(6,6,0,12*Pi,-60,60,White,White,
- 'X',Yellow,'Damped Sin(X)',Green,'Window 6',Magenta);
-
- Theta := 0.0;
-
- WHILE Theta <= 12*Pi DO
- BEGIN
- For J := 1 to 6 DO
- BEGIN
- SelectWindow(J);
- SelectWorld(J);
- PlotPoint(Theta, j*10*Exp(-J*Theta/40)*Sin(J*Theta),J);
- END;
- Theta := Theta + 0.01;
- END;
- ReadLn;
- EndGraphic;
- END.
-