График-код

[logoleha]

Привет всем, помогите пожалуйста. Это код графика y=exp(x1*ln(3)); , я не понимаю часть этого кода(выделена красным), обьясните пожалуйста!!!

procedure graf;
var
  Form1: TForm1;

implementation

uses Unit2;

{$R *.dfm}
procedure graf;
 const n=30;
var x,y,x2,y2,i,j:integer;
x1,y1,x3,y3:real;
s,s1:array[1..20] of string;
begin
for j:=1 to 20 do begin
s[j]:=inttostr(j);
s1[j]:=inttostr(-j);
end;
with  form1.Canvas do
 begin
 Pen.Color:=form1.ColorDialog1.Color;
 pen.Width:=2;
 textout(Form1.ClientWidth div 2-30,5,'Y');
 textout(form1.clientwidth-20,form1.clientheight div 2-25,'X');
 textout(form1.clientwidth div 2-10,form1.clientheight div 2-15,'0');
 MoveTo(form1.clientwidth div 2,0);
 lineTo(form1.clientwidth div 2,form1.clientheight);
 MoveTo(0,form1.clientheight div 2);
 lineTo(form1.clientwidth,form1.clientheight div 2);
 for x:= 0 to  form1.clientwidth do
 begin
 x1:=(-form1.clientwidth div 2+x)/n;
 y1:= exp(x1*ln(3));
 y:=-round(y1*n)+form1.clientheight div 2;
 Moveto(x,y);
 x2:=x+2;
 x3:=(-form1.clientwidth div 2+x2)/n;
 y3:= exp(x3*ln(3));
 y2:=-round(y3*n)+form1.clientheight div 2;
 pen.Width:=2;
 lineto(x2,y2);
 end;  
pen.Width:=1;
 pen.Color:=clblack;
 for i:= 1 to 20   do
 begin
 //X
  moveto(form1.clientwidth div 2-i*n,form1.clientheight div 2-7);
 lineto(form1.clientwidth div 2-i*n,form1.clientheight div 2+7);
 moveto(form1.clientwidth div 2+i*n,form1.clientheight div 2-7);
 lineto(form1.clientwidth div 2+i*n,form1.clientheight div 2+7);
 textout(form1.clientwidth div 2-i*n,form1.clientheight div 2+23,s1[i]);
 textout(form1.clientwidth div 2+i*n,form1.clientheight div 2+23,s[i]);
 //Y
  moveto(form1.clientwidth div 2-7,form1.clientheight div 2-i*n);
 lineto(form1.clientwidth div 2+7,form1.clientheight div 2-i*n);
 moveto(form1.clientwidth div 2-7,form1.clientheight div 2+i*n);
 lineto(form1.clientwidth div 2+7,form1.clientheight div 2+i*n);
 textout(form1.clientwidth div 2+23,form1.clientheight div 2-i*n,s[i]);
 textout(form1.clientwidth div 2+23,form1.clientheight div 2+i*n,s1[i]);
 end;
 end;
end;

[Kotofff]

В общем код рабочий ?
Что именно непонятно в "красном" куске кода ?
Становишься курсором на что-нибудь "непонятное" и жмешь F1 - вылазит справка ...

[Lime]

Сообщение от Kotofff

В общем код рабочий ?
Что именно непонятно в "красном" куске кода ?
Становишься курсором на что-нибудь "непонятное" и жмешь F1 - вылазит справка ...

Видимо он не понял мат части .