Обьясните, что делает это программа???

[~Леди~]

Помогите!!! обясните, пожалуйсто что выполняе эта программа...
Я понимаю, что стороит график... но там очень много условий...
Есои можете от напишите просто словами что делает это программа...
по сути она должна строить прямоугольный график... только мне нужно написать на другом языке... а я не пойму что решается в этой задаче...

(если не трудно то обьясните максимально доступно ... например так: т.е. если такое условие... то выполняет эту формулу если другон то другую... я хочу понять эту задачу...)

implementation
 var t,p,a,tn,tk:real;
    e,k:integer;
    h,sw:array [0..1000] of real;

  procedure graphic;
label 10;
var yy,tt,s,dt,ttt:real;
    i:integer;
begin
tt:=tn;
dt:=t/30;
Form1.Chart1.Series[0].Clear;
Form1.Chart1.Series[1].Clear;
Form1.Chart1.Series[2].Clear;
Form1.Chart1.Series[3].Clear;
Form1.Chart2.Series[0].Clear;
Form1.Chart2.Series[1].Clear;
Form1.Chart2.Series[2].Clear;
Form1.Chart3.Series[0].Clear;
while tt<tk do
begin
s:=0;
for i:=0 to k do
begin
if i>0 then h[i]:=2*a*sin(i*pi*t/p)/(i*pi)
else
begin
h[i]:=a*t/p;
goto 10;
end;
s:=s+h[i]*cos(2*i*pi*tt/p);
10: Form1.Chart1.Series[2].AddXY(i/p,abs(h[i]),' ',Clblack);
Form1.Chart1.Series[1].AddXY(i/p,abs(h[i]),' ',Clblack);
if i=0 then sw[i]:=h[i]*2
else
sw[i]:=2*a*sin(i*pi*t/p)/(i*pi);
end;
Form1.Chart2.Series[0].AddXY(tt,s+a*t/(p),' ',Clred);
Form1.Chart2.Series[1].AddXY(tt,h[1]*cos(2*pi*tt/p),' ',Clred);
Form1.Chart2.Series[2].AddXY(tt,h[3]*cos(3*2*pi*tt/p),' ',Clred);
tt:=tt+dt;
end;
for i:=0 to k do
  begin
    ttt:=i*p;
    while ttt<(i+1)*p do
      begin
        if ((ttt>=i*p) and (ttt<=i*p+t)) then
             yy:=a
           else yy:=0;
         Form1.Chart3.Series[0].AddXY(ttt-t/2,yy,' ',clblue);
         ttt:=ttt+dt;
       end;
   end;
end;
end;

Заранее спасибо!!!

Буду рада любой помощи =)))




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

[Sparkman]

У меня она ничего не делает, так как обработчик не заходит в цикл
Вы бы хоть сказали, что в глобальных переменных находится.

[Stilet]

Кросспост наказуем!