Program Test_curve_param;
  Uses Param_P;
  var P:punti;i:integer;a,b,h, ra,rb,c:real;
  {Ipocicloide:ra raggio cerchio base, rb raggio cerchio interno (rulletta)}
  {c (+/-) di quanto il punto tracciante ‚ esterno o interno alla rulletta}
 begin ra:=3;rb:=1;c:=0;
  with P do
  begin num:=800;
   a:=0; b:=2*pi; h:=(b-a)/num; {se il grafico non si chiude, aumentare b}
   {Se per• ra/rb ‚ irrazionale, il grafico ‚ aperto!}
   for i:=0 to num do
   begin x[i]:=(ra+rb)*cos(a)-(rb+c)*cos((ra/rb+1)*a);
         y[i]:=(ra+rb)*sin(a)-(rb+c)*sin((ra/rb+1)*a);
    a:=a+h
   end;
  end;
  Param(p);
 end.
 (*Cambiare, volendo, gli estremi a e b, *)
 (*Cambiare, volendo, le funziono x[i] e y[i] *)