Program Test_Grafic_tpu;
Uses Grafix_p;
 var a,b,h:real;i:Integer;P:punti;
 begin a:=-2*pi;b:=2*pi;
  With P do
  begin Num:=300;h:=(b-a)/Num;
   for i:=0 to Num do
   begin x[i]:=a;y[i]:=Sin(2*a)*exp(-a/8);a:=a+h
   end
  end;
  grafica(P);
 end.