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 ("c1", "", 640, 480);
  TF1 f1 ("myfun1", myFun, -3, 5, 4);
  f1.SetParameters (-1., 1., -6., 1.);
  f1.Draw();
  c1.Update();
  cin.ignore();
  return 0;
}