Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Username: Password: oppure
Ipocicloide - IpoC.pas

IpoC.pas

 Caricato da: Poggi Marco
Scarica il programma completo

  1. unit IpoC;
  2.  
  3. interface
  4.  
  5. type cicloide=object
  6.  private
  7.   r, fi, ri:double;
  8.  public
  9.   constructor SettaCicloide(a,b:double);
  10.   destructor DistruggiCicloide;
  11.   function ascissa(alfa:double):double;
  12.   function ordinata(alfa:double):double;
  13. end;
  14.  
  15. implementation
  16.  
  17. constructor cicloide.SettaCicloide(a,b:double);
  18. begin
  19.  r:=a;
  20.  fi:=b;
  21.  ri:=r*fi;
  22. end;
  23.  
  24. function cicloide.ascissa(alfa:double):double;
  25. var de,x:double;
  26. begin
  27.  de:=r-ri;
  28.  x:=de*cos(alfa) - ri*cos((de/ri)*alfa);
  29.  ascissa:=x;
  30. end;
  31.  
  32. function cicloide.ordinata(alfa:double):double;
  33. var de,y:double;
  34. begin
  35.  de:=r-ri;
  36.  y:=de*sin(alfa) + ri*sin((de/ri)*alfa);
  37.  ordinata:=y;
  38. end;
  39.  
  40. destructor cicloide.DistruggiCicloide;
  41. begin
  42.  // distruttore
  43. end;
  44.  
  45. begin
  46.  
  47. end.