{
  //  σημείωση 1 : Στο παράδειγμα αυτό, κατά τρόπο παραπλανητικό...,
  //               η ακτίνα συμβολίζεται με theta, και
  //               η γωνία  συμβολίζεται με r
  //
  //  σημείωση 2 : Για κάποιον λόγο, το πολικό διάγραμμα που προκύπτει
  //               δεν είναι κεντραρισμένο στο (0,0).
  //               Ως αποτέλεσμα, το σχήμα που προκύπτει δεν είναι ο αναμενόμενος κύκλος.

  double rmin=0;
  double rmax=TMath::Pi()*2;
  double r[1000];
  double theta[1000];
  TF1 *fp1 = new TF1("fp1", "cos(x)", rmin, rmax) ;
  for(int i=0; i<1000; ++i) {
    r[i] = i*(rmax-rmin)/1000 + rmin; // γωνία
    theta[i]=fp1->Eval(r[i]);         // ακτίνα
  }
  TCanvas *Cpol = new TCanvas("Cpol", "TGraphPolar Example", 600,600) ;
  TGraphPolar *gr = new TGraphPolar (1000, r, theta) ;
  gr->SetLineColor(2) ;
  gr->Draw ("AOL");
}