Double_t myFun (Double_t *xarg, Double_t *par)
{
  Double_t x = xarg[0] , result = 0.;

  for (int st=0; st<=3; st++)
    result += par[st] * TMath::Power (x, st);

  return result;
}

int macro_funcFunc () 
{
  TCanvas* c1 = new TCanvas ("c1", "", 640, 480);
  TF1* f1 = new TF1 ("myfun1", myFun, -3, 5, 4);
  f1->SetParameters (-1., 1., -6., 1.);
  f1->Draw();
//  c1->Update();
//  cin.ignore();
  return 0;
}