Фигура Лиссажу

[Nikolas_555]

Задание: на одном экране в двух разных окнах построить два графика сложения гармонических функций, зависящих от параметра t. В первом окне выводится результат колебаний, происходящих в двух взаимно перпендикулярных плоскостях (Фигура Лиссажу):

F1=sin(k1*t), F2=cos(k2*t).

Во втором окне изображается результат сложения двух колебаний, происходящих в одной плоскости биения:

F3=sin(k3*t)+cos(k4*t), F4=t, где:
t принадлежит промежутку [-n*Pi;n*Pi]
n=1,2,...,10.
k1=4;
k2=2;
k3=10.2;
k4=10.4;

Вот я написал прогу:

Uses CRT,Graph;
Const x=550;
      y=550;
      x0=250;
      y0=250;
      n=10;
Var x1,y1,x2,y2,x3,y3,x4,y4:integer;
    t:real;
    gd,gm:integer;
Begin
 
  gm:=0;
  gd:=0;
  initgraph(gd,gm,'');
 
  setcolor(15);
 t:=-pi*n;
  while t<=pi*n do
    begin
      x1:=x+round(100*sin(4*t));
      y1:=y+round(100*sin(4*t));
 
 
      x2:=x+round(100*cos(2*t));
      y2:=y+round(100*cos(2*t));
 
 
      x3:=x0+round(100*Sin(10.2*t)+100*Cos(10.4*t));
      y3:=y0+round(100*Sin(10.4*t)+100*Cos(10.2*t));
 
 
      x4:=x0+round(100*t);
      y4:=y0+round(100*t);
 
      putpixel(x1,y1,4);
      putpixel(x2,y2,4);
      putpixel(x3,y3,6);
      putpixel(x4,y4,6);
 
      t:=t+0.001*pi;
    end;
    readLn;
End.

Но выводит она не тот график, что сказано в задании. Подскажите, в чём ошибка?



___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.