source: Sophya/trunk/SophyaPI/PIext/piafitting.cc@ 385

Last change on this file since 385 was 385, checked in by ercodmgr, 26 years ago

user function for fit cmv 13/8/99
File size: 46.4 KB
Line 
1//CMVBUG reste pb suivant sous Linux-egcs (OSF1-cxx c'est ok):
2//openppf cmvwppf.ppf
3//fitw h1g g2 p:4500,45,10,900
4//delobjs h1g
5//clic sur FIT -> OK
6//clic sur FIT 2sd fois -> core dump!!!
7//
8//
9#include <stdio.h>
10#include <stdlib.h>
11#include <ctype.h>
12
13#include <iostream.h>
14
15#include <typeinfo>
16
17#include "piafitting.h"
18#include "strutil.h"
19
20#include "generalfit.h"
21
22#include "fct1dfit.h"
23#include "fct2dfit.h"
24
25#include "matrix.h"
26#include "cvector.h"
27#include "ntuple.h"
28#include "cimage.h"
29
30#include "histos.h"
31#include "histos2.h"
32#include "ntuple.h"
33#include "hisprof.h"
34
35#include "nobjmgr.h"
36#include "pistdimgapp.h"
37
38////////////////////////////////////////////////////////////////////
39////---------- Classe de fenetre de fit interactive ------------////
40////////////////////////////////////////////////////////////////////
41class PIAFitterWind : public PIWindow {
42public :
43 PIAFitterWind(PIStdImgApp* par, PIAFitter* fiter);
44 virtual ~PIAFitterWind();
45 virtual void Show();
46 virtual void Process(PIMessage msg, PIMsgHandler* sender, void* data=NULL);
47 void SetState(void);
48protected :
49 PIStdImgApp* mDap;
50 PIAFitter* mFitter;
51 PILabel** lab; int nlab;
52 PIText** txt; int ntxt;
53 PIButton** but; int nbut;
54 PICheckBox** ckb; int nckb;
55 PIOptMenu** pom; int npom;
56 bool ReFillGData;
57 int saveI1,saveI2, saveJ1, saveJ2;
58 double ErrValue;
59};
60
61////////////////////////////////////////////////////////////////////////
62//| --------------- Fit Lineaire a 1 et 2 dimensions ---------------
63//| Syntaxe:
64//| fitlin nom pnn [o:.aa,bb,cc, o;dd,ee,ff o:gg,hh,jj,kk etc...]
65//| avec:
66//| nom : cf commentaire ordre "fit"
67//| pnn : fit polynome degre nn avec classe Poly (lineaire) 1D ou 2D
68//| o:aa,...,bb : cf commentaires ordre "fit"
69//|
70////////////////////////////////////////////////////////////////////////
71//| --------------- Fit d'objets a 1 et 2 dimensions ---------------
72//| avec interface d'aide graphique
73//| Syntaxe:
74//| fitw nom func
75//| [p:p1,p2,...,pn s:s1,s2,...,sn m:m1,m2,...,mn M:M1,mM2,...,Mn f:f1,...,fn]
76//| [o:.aa,bb,cc, o;dd,ee,ff o:gg,hh,jj,kk etc...]
77//| cf commentaire ordre "fit"
78//|
79////////////////////////////////////////////////////////////////////////
80//| --------------- Fit d'objets a 1 et 2 dimensions ---------------
81//| Syntaxe:
82//| fit nom func
83//| [p:p1,p2,...,pn s:s1,s2,...,sn m:m1,m2,...,mn M:M1,mM2,...,Mn f:f1,...,fn]
84//| [o:.aa,bb,cc, o;dd,ee,ff o:gg,hh,jj,kk etc...]
85//|----- OBJET -----
86//| nom : nom de l'objet qui peut etre:
87//| fit-1D: Vector,Histo1D,HProf ou GeneraFitData(1D)
88//| fit-2D: Matrix,Histo2D,Image<T> ou GeneraFitData(2D)
89//|
90//|----- FUNCTION -----
91//| func : pnn : fit polynome degre nn avec GeneralFit (non-lineaire) 1D ou 2D
92//| : gnn : fit gaussienne (hauteur) + polynome de degre nn 1D
93//| : g : fit gaussienne (hauteur) 1D
94//| : enn : fit exponentielle + polynome de degre nn 1D
95//| : e : fit exponentielle 1D
96//| : Gnn : fit gaussienne (volume) + polynome de degre nn 1D
97//| : G : fit gaussienne (volume) 1D
98//| : : fit gaussienne+fond (volume) 2D
99//| : Gi : fit gaussienne+fond integree (volume) 2D
100//| : d : fit DL de gaussienne+fond (volume) 2D
101//| : di : fit DL de gaussienne+fond integree (volume) 2D
102//| : D : fit DL de gaussienne+fond avec coeff variable p6 (volume) 2D
103//| : Di : fit DL de gaussienne+fond integree avec coeff variable p6 (volume) 2D
104//| : M : fit Moffat+fond (expos=p6) (volume) 2D
105//| : Mi : fit Moffat+fond integree (expos=p6) (volume) 2D
106//| : Autre : fonction definie par l'utilisateur (cf commentaires ci apres)
107//|
108//|----- INIT PARAMETRES ET ETAT DU FIT -----
109//| p : p1,...,pn : valeur d'initialisation des parametres (def=0)
110//| s : s1,...,sn : valeur des steps de depart (def=1)
111//| m : m1,...,mn : valeur des minima (def=1)
112//| M : M1,...,Mn : valeur des maxima (def=-1) (max<=min : pas de limite)
113//| f : f1,...,fn : si >=1 parametre fixe sinon libre (def=0)
114//| - Remarque: si pi,si,mi ou Mi = '!' la valeur correspondante n'est pas changee
115//|
116//|----- OPTIONS -----
117//| o : options "o:Eaa.b,eaa.b,f,r,caa.b,Xaa.b"
118//| F : initialisation a partir des resultats et de l'etat du fit precedent
119//| (option non prioritaire sur les definitions p:,s:,m:,M:,f:o:)
120//| f : generation d'un Objet identique contenant la fonction fittee
121//| r : generation d'un Objet identique contenant les residus
122//| Xaa.b : aa.b valeur du DXi2 d'arret (def=1.e-3)
123//| Naa : aa nombre maximum d'iterations (def=100)
124//| la : niveau "a" de print: a=niveau de print Fit1/2D
125//| da : niveau "a" de debug: a=niveau de GeneralFit
126//| Ii1/i2 : numeros des bins X de l'histos utilises pour le fit [i1,i2]
127//|2D Jj1/j2 : numeros des bins Y de l'histos utilises pour le fit [j1,j2]
128//| - L'erreur est celle associee a l'objet (si elle existe),
129//| elle est mise a 1 sinon, sauf si E... ou e... est precise:
130//| Eaa.b : si |val|>=1 erreur = aa.b*sqrt(|val|)
131//| si |val|<1 erreur = aa.b
132//| si aa.b <=0 alors aa.b=1.0
133//| E seul est equivalent a E1.0
134//| eaa.b : erreur = aa.b
135//| si aa.b <=0 alors aa.b=1.0
136//| e seul est equivalent a e1.0
137//| xaa.b : demande de centrage: on fit x-aa.b au lieu de x)
138//| x : demande de centrage: on fit x-xc au lieu de x
139//| avec xc=abscisse du milieu de l'histogramme
140//| Actif pour exp+poly 1D, poly 1D
141//| Pour gauss+poly 1D, xc est le centre de la gaussienne.
142//|2D yaa.b et y : idem "xaa.b et x" mais pour y
143//|
144////////////////////////////////////////////////////////////////////////
145//| --------------- Def des fcts de fit par l'utilisateur ---------------
146//| Pour definir une fonction parametree utilisateur:
147//| Un exemple de fichier contenant des fonctions a fitter: PIext/userfitfunex.c
148//| > crfitfil nom_fichier nom_fonction nvar npar
149//| pour creer un squelette de fichier C contenant la fonction a fitter
150//| nom_fichier : nom du fichier ou est le code de la fonction
151//| c'est un fichier C de nom blabla.c
152//| nom_fonction : nom de la fonction ex: gauss2
153//| nvar : nombre de variables x[] (1D=1, 2D=2, etc...)
154//| npar : nombre de parametre p[]
155//| - La fonction est donc F(x[];p[]), soit par ex:
156//| double gauss2(double const* x,double const* p)
157//| - L'utilisateur a la possibilite de donner egalement la fonction
158//| retournant les derivees de la fonction par rapport aux parametres
159//| double gauss2_der(double const* x,double const* p,double* dp)
160//| ou dp[i] = dF(x[];p[])/dp[i]
161//| Par convention, cette fonction a le meme nom suivi de "_der"
162//| > crfitfun nom_fichier nom_fonction nvar npar
163//| Permet de compiler le fichier "nom_fichier" et de linker
164//| la fonction "nom_fonction"
165//| - Un meme fichier peut contenir plusieurs fonctions a fitter
166//|
167////////////////////////////////////////////////////////////////////////
168
169/* --Methode-- */
170PIAFitter::PIAFitter(PIACmd *piac, PIStdImgApp* app)
171: mApp(app), FWindFit(NULL)
172, mNObj(""), mObj(NULL), mGData(NULL)
173, mNPar(0), mNVar(0), mNBinX(0), mNBinY(0), mNData(0)
174, mPar(1), mStep(1), mMin(1), mMax(1), mFix(1)
175, mParSave(1), mStepSave(1), mMinSave(1), mMaxSave(1), mFixSave(1)
176, mFit(NULL)
177, mV(NULL), mH(NULL), mM(NULL), mH2(NULL), mIm(NULL), mG(NULL)
178, mFunction(NULL), mFName(""), mFunc(NULL)
179, mDlUFunc(NULL), mNameFitFunc(""), mFitFunc(NULL), mFitFuncDer(NULL)
180, mUFNVar(0), mUFNPar(0)
181{
182// Init et Set des options
183mPar=0.; mStep=1.; mMin=1.; mMax=-1.; mFix=0.;
184mParSave=0.; mStepSave=1.; mMinSave=1.; mMaxSave=-1.; mFixSave=0.;
185ResetOptions();
186mOptSave = mOpt;
187
188// enregistrement des ordres de fit
189string kw, usage;
190
191kw = "fit";
192usage = "Fitting function to DataObjects (Histo, Histo2D, Vector, ...)";
193usage += "\n Usage: fit nomobj func [Options]";
194usage += "\n [p:p1,...,pn s:s1,...,sn m:m1,...,mn M:M1,...,Mn o:... o:...]";
195piac->RegisterCommand(kw,usage,this,"Fitting");
196
197kw = "fitw";
198usage = "Fitting function to DataObjects with Interactive Window Help";
199usage += "\n Usage: fitw nomobj func [Options]";
200usage += "\n [p:p1,...,pn s:s1,...,sn m:m1,...,mn M:M1,...,Mn o:... o:...]";
201piac->RegisterCommand(kw,usage,this,"Fitting");
202
203kw = "fitlin";
204usage = "Linear Fitting of Polynoms to DataObjects";
205usage += "\n Usage: fitlin nomobj func [o:... o:...]";
206piac->RegisterCommand(kw,usage,this,"Fitting");
207
208kw = "crfitfun";
209usage = "Creation et link de function utilisateur pour le fit";
210usage += "\n Usage: crfitfun file func nvar npar";
211piac->RegisterCommand(kw,usage,this,"Fitting");
212
213kw = "crfitfil";
214usage = "Creation de fichier C pour function utilisateur du fit";
215usage += "\n Usage: crfitfil file func nvar npar";
216piac->RegisterCommand(kw,usage,this,"Fitting");
217}
218
219/* --Methode-- */
220PIAFitter::~PIAFitter()
221{
222if(mFit != NULL) {delete mFit; mFit=NULL;}
223if(mFunction != NULL) {delete mFunction; mFunction=NULL;}
224if(mFunc != NULL) {delete mFunc; mFunc=NULL;}
225if(mGData != NULL) {delete mGData; mGData=NULL;}
226if(FWindFit != NULL) {delete FWindFit; FWindFit=NULL;}
227if (mDlUFunc != NULL) {delete mDlUFunc; mDlUFunc=NULL;}
228}
229
230/* --Methode-- */
231void PIAFitter::ResetDPointer(void)
232// Reset des pointeurs sur les donnees
233{
234mNObj = ""; mObj=NULL;
235mV=NULL; mH=NULL; mM=NULL; mH2=NULL; mIm=NULL; mG=NULL;
236}
237
238/* --Methode-- */
239void PIAFitter::ResetOptions(void)
240// Reset des options
241{
242mOpt.okres = mOpt.okfun = false;
243mOpt.polcx = mOpt.polcy = 0;
244mOpt.xc = mOpt.yc = 0.;
245mOpt.stc2 = 1.e-3;
246mOpt.nstep = 100;
247mOpt.err_e = mOpt.err_E = -1.;
248mOpt.lp = 1; mOpt.lpg = 0;
249mOpt.i1 = mOpt.j1 = mOpt.i2 = mOpt.j2 = -1;
250mOpt.fromlastfit = false;
251}
252
253/* --Methode-- */
254void PIAFitter::DecodeOptions(string opt)
255// Decodage des options a partir des chaines de caracteres
256{
257ResetOptions();
258if(opt.length()<=0) return;
259
260size_t p,q; string dum;
261opt = "," + opt + ",";
262
263if(strstr(opt.c_str(),",F,")) // init options/param a partir du fit precedent
264 {mOpt = mOptSave; mOpt.fromlastfit = true;}
265if(strstr(opt.c_str(),",r,")) mOpt.okres = true; // residus
266if(strstr(opt.c_str(),",f,")) mOpt.okfun = true; // fonction fittee
267if(strstr(opt.c_str(),",x")) { // Demande de centrage (fit X=x-xc)
268 mOpt.polcx = 2; // Le centrage est calcule automatiquement
269 p = opt.find(",x"); q = opt.find_first_of(',',p+1);
270 dum = opt.substr(p,q-p);
271 if(dum.length()>2) {
272 sscanf(dum.c_str(),",x%lf",&mOpt.xc);
273 mOpt.polcx = 1; // Le centrage est fixe par la valeur lue
274 }
275}
276if(strstr(opt.c_str(),",y")) { // Demande de centrage (fit Y=y-yc)
277 mOpt.polcy = 2; // Le centrage est calcule automatiquement
278 p = opt.find(",y"); q = opt.find_first_of(',',p+1);
279 dum = opt.substr(p,q-p);
280 if(dum.length()>2) {
281 sscanf(dum.c_str(),",y%lf",&mOpt.yc);
282 mOpt.polcy = 1; // Le centrage est fixe par la valeur lue
283 }
284}
285if(strstr(opt.c_str(),",E")) { // Erreurs imposees a "sqrt(val)" ou "aa.b*sqrt(val)"
286 p = opt.find(",E"); q = opt.find_first_of(',',p+1);
287 dum = opt.substr(p,q-p);
288 if(dum.length()>2) sscanf(dum.c_str(),",E%lf",&mOpt.err_E);
289 if(mOpt.err_E<=0.) mOpt.err_E = 1.; //mOpt.err_e=-1.;
290}
291if(strstr(opt.c_str(),",e")) { // Erreurs imposees a "1" ou "aa.b"
292 p = opt.find(",e"); q = opt.find_first_of(',',p+1);
293 dum = opt.substr(p,q-p);
294 if(dum.length()>2) sscanf(dum.c_str(),",e%lf",&mOpt.err_e);
295 if(mOpt.err_e<=0.) mOpt.err_e = 1.; //mOpt.err_E=-1.;
296}
297if(strstr(opt.c_str(),",X")) { // Valeur du StopChi2
298 p = opt.find(",X"); q = opt.find_first_of(',',p+1);
299 dum = opt.substr(p,q-p);
300 if(dum.length()>2) sscanf(dum.c_str(),",X%lf",&mOpt.stc2);
301}
302if(strstr(opt.c_str(),",N")) { // Nombre maximum d'iterations
303 p = opt.find(",N"); q = opt.find_first_of(',',p+1);
304 dum = opt.substr(p,q-p);
305 if(dum.length()>2) sscanf(dum.c_str(),",N%d",&mOpt.nstep);
306}
307if(strstr(opt.c_str(),",l")) { // niveau de print
308 p = opt.find(",l"); q = opt.find_first_of(',',p+1);
309 dum = opt.substr(p,q-p);
310 if(dum.length()>2) sscanf(dum.c_str(),",l%d",&mOpt.lp);
311}
312if(strstr(opt.c_str(),",d")) { // niveau de debug du fit
313 p = opt.find(",d"); q = opt.find_first_of(',',p+1);
314 dum = opt.substr(p,q-p);
315 if(dum.length()>2) sscanf(dum.c_str(),",d%d",&mOpt.lpg);
316}
317if(strstr(opt.c_str(),",I")) { // intervalle de fit selon X
318 p = opt.find(",I"); q = opt.find_first_of(',',p+1);
319 dum = opt.substr(p,q-p);
320 if(dum.length()>2) sscanf(dum.c_str(),",I%d/%d",&mOpt.i1,&mOpt.i2);
321}
322if(strstr(opt.c_str(),",J")) { // intervalle de fit selon Y
323 p = opt.find(",J"); q = opt.find_first_of(',',p+1);
324 dum = opt.substr(p,q-p);
325 if(dum.length()>2) sscanf(dum.c_str(),",J%d/%d",&mOpt.j1,&mOpt.j2);
326}
327
328return;
329}
330
331/* --Methode-- */
332void PIAFitter::DecodeObject(string obj)
333// Decodage de l'objet a fitter
334{
335NamedObjMgr omg;
336AnyDataObj* mobj = omg.GetObj(obj);
337if(mobj == NULL)
338 {cout<<"PIAFitter::DecodeObject Error , Pas d'objet de nom "<<obj<<endl;
339 return;}
340
341// Reset
342ResetDPointer();
343mNVar = mNBinX = mNBinY = mNData = 0;
344
345mObj = mobj; mNObj = obj;
346string ctyp = typeid(*mObj).name();
347
348// 1D
349if (typeid(*mObj) == typeid(Vector)) {
350 mNVar = 1;
351 mV = (Vector*) mObj; mNBinX = mV->NElts(); mNBinY = 1;
352 }
353else if ( (typeid(*mObj) == typeid(HProf)) || (typeid(*mObj) == typeid(Histo)) ) {
354 mNVar = 1;
355 mH = (Histo*) mObj; mNBinX = mH->NBins(); mNBinY = 1;
356 }
357// 2D
358else if (typeid(*mObj) == typeid(Matrix)) {
359 mNVar = 2;
360 mM = (Matrix*) mObj; mNBinX = mM->NCol(); mNBinY =mM->NRows();
361 }
362else if (typeid(*mObj) == typeid(Histo2D)) {
363 mNVar = 2;
364 mH2 = (Histo2D*) mObj; mNBinX = mH2->NBinX(); mNBinY = mH2->NBinY();
365 }
366else if (typeid(*mObj) == typeid(GeneralFitData)) {
367 mG = (GeneralFitData*) mObj; mNBinX = mG->NData(); mNBinY = 1;
368 if( mG->NVar()==1) mNVar = 1;
369 else if(mG->NVar()==2) mNVar = 2;
370 else
371 {cout<<"PIAFitter::DecodeObject Error: \n"
372 <<" GeneralFitData ne peut avoir que 1 ou 2 variables d'abscisse: "
373 <<((GeneralFitData*) mObj)->NVar()<<endl;
374 return;}
375 }
376else if (dynamic_cast<RzImage*>(mObj)) {
377 mNVar = 2;
378 mIm = (RzImage*) mObj; mNBinX = mIm->XSize(); mNBinY = mIm->YSize();
379 }
380else {
381 cout<<"PIAFitter::DecodeObject Error , Objet n'est pas un "
382 <<"Histo1D/HProf/Vector/Histo2D/Image/Matrix/GeneralFitData "<<ctyp<<endl;
383 return;
384 }
385
386mNData = mNBinX*mNBinY;
387if(mNData<=0) {
388 cout<<"L'objet a "<<mNBinX<<","<<mNBinY<<" bins ("<<mNData<<")"<<endl;
389 return;
390}
391
392return;
393}
394
395/* --Methode-- */
396void PIAFitter::CheckOptions(void)
397// Check consistence des choix des options
398// ATTENTION: cette methode a besoin que l'objet a fitter soit deja lu
399{
400if(mOpt.lp<0) mOpt.lp = 0;
401if(mOpt.lpg<0) mOpt.lpg = 0;
402mOpt.i1 = (mOpt.i1<0||mOpt.i1>=mNBinX)? 0: mOpt.i1;
403mOpt.i2 = (mOpt.i2<0||mOpt.i2>=mNBinX||mOpt.i2<=mOpt.i1)? mNBinX-1: mOpt.i2;
404if(mNVar>=2) {
405 mOpt.j1 = (mOpt.j1<0||mOpt.j1>=mNBinY)? 0: mOpt.j1;
406 mOpt.j2 = (mOpt.j2<0||mOpt.j2>=mNBinY||mOpt.j2<=mOpt.j1)? mNBinY-1: mOpt.j2;
407} else mOpt.j2 = mOpt.j1 = 0;
408if(mOpt.polcx==2) {
409 if(mV||mM) mOpt.xc = (mOpt.i2-mOpt.i1+1)/2.;
410 else if(mH) mOpt.xc = (mH->XMin()+mH->XMax())/2.;
411 else if(mH2) mOpt.xc = (mH2->XMin()+mH2->XMax())/2.;
412 else if(mG) {double mini,maxi; mG->GetMinMax(2,mini,maxi); mOpt.xc=(mini+maxi)/2.;}
413 else if(mIm) {mOpt.xc = mIm->XOrg() * mIm->XPxSize()*(mOpt.i2-mOpt.i1+1)/2.;}
414}
415if(mOpt.polcy==2 && mNVar>=2) {
416 if(mM) mOpt.yc = (mOpt.j2-mOpt.j1+1)/2.;
417 if(mH2) mOpt.yc = (mH2->YMin()+mH2->YMax())/2.;
418 if(mG) {double mini,maxi; mG->GetMinMax(12,mini,maxi); mOpt.yc=(mini+maxi)/2.;}
419 if(mIm) {mOpt.yc = mIm->YOrg() * mIm->YPxSize()*(mOpt.j2-mOpt.j1+1)/2.;}
420}
421if(mOpt.err_e>0.) mOpt.err_E=-1.;
422if(mOpt.err_E>0.) mOpt.err_e =-1.;
423if(mOpt.stc2<=0.) mOpt.stc2 = 1.e-3;
424if(mOpt.nstep<2) mOpt.nstep = 100;
425
426return;
427}
428
429/* --Methode-- */
430void PIAFitter::PrintOptions(void)
431// Print des options
432{
433cout<<"Fit["<<mNBinX<<","<<mNBinY<<"] ("<<mNData<<") dim="<<mNVar<<":"
434 <<" Int=["<<mOpt.i1<<","<<mOpt.i2<<"],["<<mOpt.j1<<","<<mOpt.j2<<"]"<<endl
435 <<" Cent="<<mOpt.polcx<<","<<mOpt.polcy<<","<<mOpt.xc<<"+x"<<","<<mOpt.yc<<"+y"
436 <<" TypE="<<mOpt.err_e<<","<<mOpt.err_E
437 <<" StpX2="<<mOpt.stc2<<" Nstep="<<mOpt.nstep<<endl
438 <<" Init.LFit="<<mOpt.fromlastfit
439 <<" lp,lpg="<<mOpt.lp<<","<<mOpt.lpg<<endl;
440return;
441}
442
443/* --Methode-- */
444void PIAFitter::FillGData(void)
445// Fill generalfitdata pour le fit
446// ATTENTION: cette methode a besoin que les options soient decodees et checkees
447{
448if(mNData<=0) return;
449if(mGData!=NULL) {delete mGData; mGData=NULL;}
450mGData = new GeneralFitData(mNVar,mNData,0);
451
452for(int i=mOpt.i1;i<=mOpt.i2;i++) for(int j=mOpt.j1;j<=mOpt.j2;j++) {
453 double x,y=0.,f,e;
454
455 if(mV)
456 {x= (double) i; f=(*mV)(i); e=1.;}
457 else if(mH)
458 {x=mH->BinCenter(i); f=(*mH)(i); e=(mH->HasErrors())?mH->Error(i):1.;}
459 else if(mM)
460 {x=(double) i; y=(double) j; f=(*mM)(j,i); e=1.;}
461 else if(mH2)
462 {float xf,yf; mH2->BinCenter(i,j,xf,yf); x=(double)xf; y=(double)yf;
463 f=(*mH2)(i,j); e=(mH2->HasErrors())?mH2->Error(i,j):1.;}
464 else if(mIm)
465 {x=mIm->XOrg()+(i+0.5)*mIm->XPxSize(); y=mIm->YOrg()+(j+0.5)*mIm->YPxSize();
466 f=mIm->DValue(i,j); e=1.;}
467 else if(mG&&mNVar==1) {x= mG->X(i); f=mG->Val(i); e=mG->EVal(i);}
468 else if(mG&&mNVar==2) {x= mG->X(i); y=mG->Y(i); f=mG->Val(i); e=mG->EVal(i);}
469 else x=y=f=e=0.;
470
471 // Gestion des erreurs a utiliser
472 if(mOpt.err_e>0.) e=mOpt.err_e;
473 else if(mOpt.err_E>0.) {e=(f<-1.||f>1.)?mOpt.err_E*sqrt(fabs(f)):mOpt.err_E;}
474
475 // Remplissage de generalfitdata
476 if(mFName[0]=='p') {x -= mOpt.xc; if(mNVar>=2) y -= mOpt.yc;}
477 if(mNVar==1) mGData->AddData1(x,f,e);
478 else if(mNVar==2) mGData->AddData2(x,y,f,e);
479}
480
481if(mGData->NData()<=0) {
482 cout<<"Pas de donnees dans GeneralFitData: "<<mGData->NData()<<endl;
483 return;
484}
485
486if(mOpt.lpg>1) {
487 mGData->PrintStatus();
488 mGData->PrintData(0);
489 mGData->PrintData(mGData->NData()-1);
490}
491
492return;
493}
494
495/* --Methode-- */
496void PIAFitter::DecodeFunction(string func)
497// Fonction a fitter
498// ATTENTION: cette methode a besoin que les donnees soient lues
499{
500if(func.length()<=0)
501 {cout<<"PIAFitter::DecodeFunction Donnez un nom de fonction a fitter."<<endl;
502 return;}
503if(mFunction!=NULL) {delete mFunction; mFunction=NULL;}
504if(mFunc!=NULL) {delete mFunc; mFunc=NULL;}
505mNPar=0;
506
507if(func == mNameFitFunc) { // Fonction utilisateur
508 mFunc = new GeneralFunc(mUFNVar,mUFNPar,mFitFunc,mFitFuncDer);
509 mNPar = mUFNPar;
510} else if(func[0]=='p' && mNVar==1) { //polynome
511 int degre=0; if(func.length()>1) sscanf(func.c_str()+1,"%d",&degre);
512 cout<<"Fit polynome 1D de degre "<<degre<<endl;
513 Polyn1D* myf = new Polyn1D(degre,mOpt.xc);
514 mFunction = myf; mNPar = mFunction->NPar(); mFName = func;
515
516} else if(func[0]=='e' && mNVar==1) { //exponentielle
517 int degre=-1; if(func.length()>1) sscanf(func.c_str()+1,"%d",&degre);
518 cout<<"Fit d'exponentielle+polynome 1D de degre "<<degre<<endl;
519 Exp1DPol* myf;
520 if(degre>=0) myf = new Exp1DPol((unsigned int)degre,mOpt.xc);
521 else myf = new Exp1DPol(mOpt.xc);
522 mFunction = myf; mNPar = mFunction->NPar(); mFName = func;
523
524} else if(func[0]=='g' && mNVar==1) { //gaussienne en hauteur
525 int degre=-1; if(func.length()>1) sscanf(func.c_str()+1,"%d",&degre);
526 cout<<"Fit de Gaussienne_en_hauteur+polynome 1D de degre "<<degre<<endl;
527 Gauss1DPol* myf;
528 if(degre>=0) myf = new Gauss1DPol((unsigned int)degre,((mOpt.polcx)?true:false));
529 else { bool bfg = (mOpt.polcx)?true:false; myf = new Gauss1DPol(bfg); }
530 mFunction = myf; mNPar = mFunction->NPar(); mFName = func;
531
532} else if(func[0]=='G' && mNVar==1) { //gaussienne en volume
533 int degre=-1; if(func.length()>1) sscanf(func.c_str()+1,"%d",&degre);
534 cout<<"Fit de Gaussienne_en_volume+polynome 1D de degre "<<degre<<endl;
535 GaussN1DPol* myf;
536 if(degre>=0) myf = new GaussN1DPol((unsigned int)degre,((mOpt.polcx)?true:false));
537 else { bool bfg = (mOpt.polcx)?true:false; myf = new GaussN1DPol(bfg); }
538 mFunction = myf; mNPar = mFunction->NPar(); mFName = func;
539
540} else if(func[0]=='p' && mNVar==2) { //polynome 2D
541 int degre=0; if(func.length()>1) sscanf(func.c_str()+1,"%d",&degre);
542 cout<<"Fit polynome 2D de degre "<<degre<<endl;
543 Polyn2D* myf = new Polyn2D(degre,mOpt.xc,mOpt.yc);
544 mFunction = myf; mNPar = mFunction->NPar(); mFName = func;
545
546} else if(func[0]=='G' && mNVar==2) { //gaussienne+fond en volume
547 int integ=0; if(func.length()>1) if(func[1]=='i') integ=1;
548 cout<<"Fit de Gaussienne+Fond 2D integ="<<integ<<endl;
549 if(integ) {GauRhInt2D* myf = new GauRhInt2D; mFunction = myf;}
550 else {GauRho2D* myf = new GauRho2D; mFunction = myf;}
551 mNPar = mFunction->NPar(); mFName = func;
552
553} else if(func[0]=='d' && mNVar==2) { //DL gaussienne+fond en volume
554 int integ=0; if(func.length()>1) if(func[1]=='i') integ=1;
555 cout<<"Fit de DL de Gaussienne+Fond 2D integ="<<integ<<endl;
556 if(integ) {GdlRhInt2D* myf = new GdlRhInt2D; mFunction = myf;}
557 else {GdlRho2D* myf = new GdlRho2D; mFunction = myf;}
558 mNPar = mFunction->NPar(); mFName = func;
559
560} else if(func[0]=='D' && mNVar==2) { //DL gaussienne+fond avec coeff variable p6 en volume
561 int integ=0; if(func.length()>1) if(func[1]=='i') integ=1;
562 cout<<"Fit de DL de Gaussienne+Fond avec coeff variable (p6) 2D integ="<<integ<<endl;
563 if(integ) {Gdl1RhInt2D* myf = new Gdl1RhInt2D; mFunction = myf;}
564 else {Gdl1Rho2D* myf = new Gdl1Rho2D; mFunction = myf;}
565 mNPar = mFunction->NPar(); mFName = func;
566
567} else if(func[0]=='M' && mNVar==2) { //Moffat+fond (volume)
568 int integ=0; if(func.length()>1) if(func[1]=='i') integ=1;
569 cout<<"Fit de Moffat+Fond (expos=p6) 2D integ="<<integ<<endl;
570 if(integ) {MofRhInt2D* myf = new MofRhInt2D; mFunction = myf;}
571 else {MofRho2D* myf = new MofRho2D; mFunction = myf;}
572 mNPar = mFunction->NPar(); mFName = func;
573
574} else {
575 cout<<"Fonction "<<func<<" inconnue pour la dim "<<mNVar<<endl;
576 return;
577}
578
579return;
580}
581
582/* --Methode-- */
583void PIAFitter::ReSetParam(void)
584// Pour (re)dimensionner les tableaux des parametres
585// ATTENTION: cette methode a besoin que la fonction soit connue
586{
587if(mNPar==0) return;
588mPar.Realloc(mNPar); mPar=0.;
589mStep.Realloc(mNPar); mStep=1.;
590mMin.Realloc(mNPar); mMin=1.;
591mMax.Realloc(mNPar); mMax=-1.;
592mFix.Realloc(mNPar); mFix=0.;
593return;
594}
595
596/* --Methode-- */
597void PIAFitter::InitParFromLastFit(void)
598// Initialisation du fit a partir des resultats du fit precedent
599// (Les arguments de la ligne de commande sont prioritaires)
600// ATTENTION: cette methode a besoin que la fonction soit connue
601{
602if(mNPar==0) return;
603int n = mParSave.NElts();
604if(n==0) return;
605
606for(int i=0;i<mNPar;i++) {
607 if(i>=n) break;
608 mPar(i) = mParSave(i);
609 mStep(i) = mStepSave(i);
610 mMin(i) = mMinSave(i);
611 mMax(i) = mMaxSave(i);
612 mFix(i) = mFixSave(i);
613}
614
615return;
616}
617
618/* --Methode-- */
619void PIAFitter::DecodeParam(string par,string step,string min,string max,string fix)
620// Decodage des parametres
621// ATTENTION: cette methode a besoin que la fonction soit connue
622// et que les options soient decodees
623{
624if(mNPar==0) return;
625ReSetParam();
626if(mOpt.fromlastfit) InitParFromLastFit();
627Vector* v=NULL; string* s=NULL;
628for(int j=0;j<5;j++) {
629 if(j==0) {v=&mPar; s=&par;} else if(j==1) {v=&mStep; s=&step;}
630 else if(j==2) {v=&mMin; s=&min;} else if(j==3) {v=&mMax; s=&max;}
631 else if(j==4) {v=&mFix; s=&fix;}
632 if(s->length()>0) *s += ",";
633 for(int i=0;i<mNPar;i++) {
634 if(s->length()<=0) break;
635 if((*s)[0]!='!') sscanf(s->c_str(),"%lf",&(*v)(i));
636 size_t p = s->find_first_of(',') + 1;
637 if(p>=s->length()) *s = ""; else *s = s->substr(p);
638 }
639}
640return;
641}
642
643/* --Methode-- */
644int PIAFitter::DoFit(void)
645// Fit avec generalfit
646{
647if(mNPar==0) return -1000;
648if((mFunction==NULL && mFunc==NULL) || mGData==NULL) {
649 cout<<"PIAFitter::DoFit error: mFunction,mFunc="<<mFunction<<","<<mFunc
650 <<" mGData="<<mGData<<endl;
651 return -1001;
652}
653// classe GeneraFit
654if(mFit != NULL) {delete mFit; mFit= NULL;}
655if(mFunction) mFit= new GeneralFit(mFunction);
656 else mFit= new GeneralFit(mFunc);
657// Options et Set de GeneralFit
658mFit->SetDebug(mOpt.lpg);
659mFit->SetData(mGData);
660mFit->SetStopChi2(mOpt.stc2);
661mFit->SetMaxStep(mOpt.nstep);
662{for(int i=0;i<mNPar;i++) {
663 char str[10];
664 sprintf(str,"P%d",i);
665 mFit->SetParam(i,str,mPar(i),mStep(i),mMin(i),mMax(i));
666 if((int)(mFix(i)+0.001)>=1.) mFit->SetFix(i);
667}}
668if(mOpt.lp>1) mFit->PrintFit();
669
670// Fit
671mParSave = mPar;
672mStepSave = mStep; mMinSave = mMin; mMaxSave = mMax; mFixSave = mFix;
673mOptSave = mOpt;
674double c2r = -1.;
675int rcfit = mFit->Fit();
676if(mOpt.lp>0) mFit->PrintFit();
677if(rcfit>0) {
678 c2r = mFit->GetChi2Red();
679 cout<<"C2r_Reduit = "<<c2r<<" nstep="<<mFit->GetNStep()<<" rc="<<rcfit<<endl;
680 for(int i=0;i<mNPar;i++) mParSave(i)=mFit->GetParm(i);
681} else {
682 cout<<"echec Fit, rc = "<<rcfit<<" nstep="<<mFit->GetNStep()<<endl;
683 mFit->PrintFitErr(rcfit);
684}
685
686return rcfit;
687}
688
689/* --Methode-- */
690void PIAFitter::FitFunRes(void)
691// Mise a disposition des resultats (fonction fitee et residus)
692{
693if(mFit && (mOpt.okres||mOpt.okfun)) {
694 NamedObjMgr omg;
695 string nomres = mNObj + "_res";
696 string nomfun = mNObj + "_fun";
697 if(mV) {
698 if(mOpt.okres) {Vector* ob = mV->FitResidus(*mFit); if(ob) omg.AddObj(ob,nomres);}
699 if(mOpt.okfun) {Vector* ob = mV->FitFunction(*mFit); if(ob) omg.AddObj(ob,nomfun);}
700 } else if(mH) {
701 if(mOpt.okres) {Histo* ob = mH->FitResidus(*mFit); if(ob) omg.AddObj(ob,nomres);}
702 if(mOpt.okfun) {Histo* ob = mH->FitFunction(*mFit); if(ob) omg.AddObj(ob,nomfun);}
703 } else if(mM) {
704 if(mOpt.okres) {Matrix* ob = mM->FitResidus(*mFit); if(ob) omg.AddObj(ob,nomres);}
705 if(mOpt.okfun) {Matrix* ob = mM->FitFunction(*mFit); if(ob) omg.AddObj(ob,nomfun);}
706 } else if(mH2) {
707 if(mOpt.okres) {Histo2D* ob = mH2->FitResidus(*mFit); if(ob) omg.AddObj(ob,nomres);}
708 if(mOpt.okfun) {Histo2D* ob = mH2->FitFunction(*mFit); if(ob) omg.AddObj(ob,nomfun);}
709 } else if(mIm) {
710 if(mOpt.okres) {
711 RzImage* ob = mIm->FitResidus(*mFit);
712 if(ob) {ImageR4* rob = new ImageR4(*ob); omg.AddObj(rob,nomres); delete ob;}
713 }
714 if(mOpt.okfun) {
715 RzImage* ob = mIm->FitFunction(*mFit);
716 if(ob) {ImageR4* rob = new ImageR4(*ob); omg.AddObj(rob,nomfun); delete ob;}
717 }
718 } else if(mG) {
719 if(mOpt.okres) {GeneralFitData* ob = mG->FitResidus(*mFit); if(ob) omg.AddObj(ob,nomres);}
720 if(mOpt.okfun) {GeneralFitData* ob = mG->FitFunction(*mFit); if(ob) omg.AddObj(ob,nomfun);}
721 }
722}
723return;
724}
725
726/* --Methode-- */
727void PIAFitter::LinFit(void)
728// Fit lineaire de polynomes
729{
730if(mFName.length()<=0)
731 {cout<<"PIAFitter::LinFit Donnez un nom de fonction a fitter."<<endl;
732 return;}
733if(!mGData)
734 {cout<<"PIAFitter::LinFit pas de Data."<<endl; return;}
735if(mFName[0]!='p')
736 {cout<<"PIAFitter::LinFit fonction non prevue "<<mFName<<endl;
737 return;}
738int degre = 0;
739if(mFName.length()>1) sscanf(mFName.c_str()+1,"%d",&degre);
740
741if(mNVar==1) { // Fit lineaire de polynome 1D
742 cout<<"Fit (lineaire) 1D polynome de degre "<<degre<<endl;
743 Poly p1(0);
744 double c2rl = mGData->PolFit(0,p1,degre);
745 cout<<"C2r_lineaire = "<<c2rl<<endl;
746 if(mOpt.lp>0) cout<<p1<<endl;
747} else if(mNVar==2) { // Fit lineaire de polynome 2D
748 cout<<"Fit (lineaire) polynome 2D de degre "<<degre<<endl;
749 Poly2 p2(0);
750 double c2rl = mGData->PolFit(0,1,p2,degre);
751 cout<<"C2r_lineaire = "<<c2rl<<endl;
752 if(mOpt.lp>0) cout<<p2<<endl;
753}
754
755return;
756}
757
758/* --Methode-- */
759void PIAFitter::LinkFitFunc(string const& fname, string const& funcname
760 ,int nvar,int npar)
761// Compilation et link dynamique de la fonction a fitter
762{
763if(nvar<1 || npar<1) return;
764if(mDlUFunc != NULL) {delete mDlUFunc; mDlUFunc=NULL;}
765mFitFunc = NULL; mFitFuncDer = NULL;
766mUFNVar= mUFNPar = 0; mNameFitFunc = "";
767
768// On compile le fichier C, on fabrique un .so et on l'ouvre
769mDlUFunc = PDynLinkMgr::BuildFromCFile(fname);
770if(mDlUFunc == NULL)
771 {cerr<<"PIAFitter::LinkFitFunc() Erreur building .so "<<endl; return;}
772
773// On recupere la fonction de fit
774mFitFunc = (DlUserFitFunc) mDlUFunc->GetFunction(funcname);
775if(mFitFunc == NULL) // Probleme, on n'a pas trouve etc ...
776 {cerr<<"PIAFitter::LinkFitFunc() Erreur linking function"<<funcname<<endl;
777 delete mDlUFunc; mDlUFunc = NULL; return;}
778
779// On recupere la fonction des derivees
780string fnameder = funcname+"_der";
781mFitFuncDer = (DlUserFitFuncDer) mDlUFunc->GetFunction(fnameder);
782if(mFitFuncDer == NULL)
783 {cout<<"PIAFitter::LinkFitFunc() No derive for"<<fnameder<<endl;}
784
785// Variables et pointeurs definissant le link a la fonction utilisateur
786mNameFitFunc = funcname;
787mUFNVar = nvar;
788mUFNPar = npar;
789cout<<"PIAFitter::LinkFitFunc() UserFitFunc="<<mNameFitFunc
790 <<" NVar="<<mUFNVar<<" NPar="<<mUFNPar<<endl;
791
792return;
793}
794
795/* --Methode-- */
796void PIAFitter::PrepareFitFuncCFile(string const& fname, string const& funcname
797 , int nvar, int npar)
798// Pour ecrire un squelette des fichier C avec pour une fonction a fitter
799{
800if(fname.length()<=0 || funcname.length()<=0 || nvar<=0 || npar <=0) {
801 cerr<<"PIAFitter::PrepareFitFuncCFile: error "
802 <<" nvar="<<nvar<<" npar="<<npar<<endl
803 <<" file_name="<<fname<<" func_name="<<funcname<<endl
804 <<" ---- No File Created ! ----"<<endl;
805 return;
806}
807
808FILE* fip = fopen(fname.c_str(),"w");
809if(fip==NULL)
810 {cerr<<"PIAFitter::PrepareFitFuncCFile: error opening file for writing\n"
811 <<fname<<endl; return;}
812
813fprintf(fip,"#include <stdio.h>\n#include <stdlib.h>\n#include <math.h>\n\n");
814fprintf(fip,"/* - many functions can be written in this file: */\n");
815fprintf(fip,"/* here is an exemple for creation of function %s */\n\n"
816 ,funcname.c_str());
817fprintf(fip,"double %s(double const* x,double const* p)\n",funcname.c_str());
818fprintf(fip,"/* Function : F(x[0-%d];p[0-%d]) */\n",nvar-1,npar-1);
819fprintf(fip,"/* variables x1=x[0],x2=x[1],...,x%d=x[%d] */\n",nvar,nvar-1);
820fprintf(fip,"/* parameters p1=p[0],p2=p[1],...,p%d=p[%d] */\n",nvar,nvar-1);
821fprintf(fip,"{\n val = F(x[];p[]);\n return(val);\n}\n\n");
822string fder = funcname + "_der";
823fprintf(fip,"/* That function is optional */\n");
824fprintf(fip,"/*\n");
825fprintf(fip,"double %s(double const* x,double const* p,double* dp)\n",fder.c_str());
826fprintf(fip,"{\n");
827for(int i=0;i<npar;i++) fprintf(fip," dp[%d] = dF(x[];p[])/dp[%d]\n",i,i);
828fprintf(fip," val = F(x[];p[]);\n return(val);\n}\n\n");
829fprintf(fip,"*/\n");
830
831fclose(fip);
832}
833
834/* --Methode-- */
835int PIAFitter::Execute(string& kw, vector<string>& tokens)
836// Execution des commandes de fit : "fit" et "fitw"
837{
838////// Les commandes pour creer les fonctions de fit utilisateur
839if(kw == "crfitfil") {
840 if (tokens.size() < 4)
841 {cout<<"Usage:crfitfil filename funcname nvar npar"<<endl;return(-1);}
842 int nvar = atoi(tokens[2].c_str()), npar = atoi(tokens[3].c_str());
843 PrepareFitFuncCFile(tokens[0],tokens[1],nvar,npar);
844 return(0);
845} else if (kw == "crfitfun") {
846 if (tokens.size() < 4)
847 {cout<<"Usage:crfitfun filename funcname nvar npar"<<endl;return(-1);}
848 int nvar = atoi(tokens[2].c_str()), npar = atoi(tokens[3].c_str());
849 LinkFitFunc(tokens[0],tokens[1],nvar,npar);
850 return(0);
851}
852
853////// Les commandes pour fitter
854if(tokens.size() < 2) {
855 cout
856 <<"Usage:fit nomobj func [Options]\n"
857 <<" ou fitw nomobj func [Options]\n"
858 <<" avec Options: [p:p1,...,pn s:s1,...,sn m:m1,...,mn \n"
859 <<" M:M1,...,Mn f:f1,...,fn o:.,.,. o:.,.,.]\n"
860 <<" ou fitlin nomobj func [o:.,.,. o:.,.,.]\n";
861 return(-1);
862}
863// decodage des arguments de la commande
864string mSp,mSs,mSm,mSM,mSf,mSo;
865mSp=""; mSs=""; mSm=""; mSM=""; mSf=""; mSo="";
866if(tokens.size()>2)
867 for(int ip=2;ip<(int)tokens.size();ip++) {
868 if(tokens[ip].length()<=2) continue;
869 const char *c = tokens[ip].c_str();
870 if(c[1]!=':') continue;
871 if(c[0]=='p') mSp=c+2;
872 else if(c[0]=='s') mSs=c+2;
873 else if(c[0]=='m') mSm=c+2;
874 else if(c[0]=='M') mSM=c+2;
875 else if(c[0]=='f') mSf=c+2;
876 else if(c[0]=='o') {mSo += ","; mSo += c+2;}
877 }
878// Execution des commandes
879DecodeOptions(mSo);
880DecodeObject(tokens[0]);
881CheckOptions();
882if(mOpt.lp>0) PrintOptions();
883FillGData();
884DecodeFunction(tokens[1]);
885DecodeParam(mSp,mSs,mSm,mSM,mSf);
886if (kw == "fit") {
887 int rc = DoFit();
888 if(rc>=0) FitFunRes();
889} else if (kw == "fitlin") {
890 LinFit();
891} else if (kw == "fitw") {
892 if(FWindFit!=NULL) {delete FWindFit; FWindFit=NULL;}
893 FWindFit = new PIAFitterWind(mApp,this);
894 FWindFit->Show();
895}
896
897return(0);
898}
899
900////////////////////////////////////////////////////////////////////
901////---------- Classe de fenetre de fit interactive ------------////
902////////////////////////////////////////////////////////////////////
903
904/* --Methode-- */
905PIAFitterWind::PIAFitterWind(PIStdImgApp* par, PIAFitter* fiter)
906: PIWindow((PIMsgHandler*)par, "PIAFitter", PIWK_normal, 240, 240, 150, 150)
907, mDap(par), mFitter(fiter), ReFillGData(false)
908, saveI1(0), saveI2(0), saveJ1(0), saveJ2(0), ErrValue(1.)
909{
910int npar = mFitter->mNPar;
911
912// Alloc de la taille
913nlab = 14+npar; lab = new PILabel*[nlab]; {for(int i=0;i<nlab;i++) lab[i]=NULL;}
914ntxt = 10+4*npar; txt = new PIText*[ntxt]; {for(int i=0;i<ntxt;i++) txt[i]=NULL;}
915nbut = 5; but = new PIButton*[nbut]; {for(int i=0;i<nbut;i++) but[i]=NULL;}
916nckb = 2+npar; ckb = new PICheckBox*[nckb]; {for(int i=0;i<nckb;i++) ckb[i]=NULL;}
917npom = 3; pom = new PIOptMenu*[npom]; {for(int i=0;i<npom;i++) pom[i]=NULL;}
918
919// On definit la taille a partir de la taille par defaut des composantes
920// bsx,bsy = environ 6 lettres
921int bsx,bsy;
922par->PrefCompSz(bsx, bsy);
923int spx = (bsx>=10) ? bsx/10 : 1; // intervalle entre lettres X
924int spy = (bsy>=6) ? bsy/6 : 1; // intervalle entre lettres Y
925
926int wszx = (5*bsx+5*spx)+spx;
927int wszy = 8*(bsy+spy)+npar*(bsy+spy)+spy;
928SetSize(wszx, wszy);
929int cpx,cpy;
930
931// new ligne
932cpx = spx; cpy = spy;
933lab[0] = new PILabel(this,mFitter->mNObj.c_str(),4*bsx,bsy,cpx,cpy);
934lab[0]->SetBinding(PIBK_elastic,PIBK_elastic, PIBK_elastic,PIBK_elastic);
935
936// new ligne
937cpx = spx; cpy += bsy+spy;
938but[0] = new PIButton(this,"Fr.Last",111,bsx,bsy,cpx,cpy);
939but[0]->SetBinding(PIBK_elastic,PIBK_elastic, PIBK_elastic,PIBK_elastic);
940cpx += bsx+spx;
941but[1] = new PIButton(this,"Default",222,bsx,bsy,cpx,cpy);
942but[1]->SetBinding(PIBK_elastic,PIBK_elastic, PIBK_elastic,PIBK_elastic);
943cpx += bsx+spx;
944ckb[0] = new PICheckBox(this,"Gen Fun",1001,bsx,bsy,cpx,cpy);
945ckb[0]->SetBinding(PIBK_elastic,PIBK_elastic, PIBK_elastic,PIBK_elastic);
946cpx += bsx+2*spx;
947ckb[1] = new PICheckBox(this,"Res",1002,bsx,bsy,cpx,cpy);
948ckb[1]->SetBinding(PIBK_elastic,PIBK_elastic, PIBK_elastic,PIBK_elastic);
949
950// new ligne
951cpx = spx; cpy += bsy+spy;
952pom[0] = new PIOptMenu(this,"Err def",1.5*bsx,bsy,cpx,cpy);
953 pom[0]->AppendItem("Err def",2101);
954 pom[0]->AppendItem("Err cste",2102);
955 pom[0]->AppendItem("Err sqrt",2103);
956pom[0]->SetBinding(PIBK_elastic,PIBK_elastic, PIBK_elastic,PIBK_elastic);
957cpx += int(1.5*bsx+spx);
958txt[0] = new PIText(this,"",bsx,bsy,cpx,cpy);
959txt[0]->SetBinding(PIBK_elastic,PIBK_elastic, PIBK_elastic,PIBK_elastic);
960cpx += bsx+spx;
961lab[1] = new PILabel(this,"Prt,dbg",bsx,bsy,cpx,cpy);
962lab[1]->SetBinding(PIBK_elastic,PIBK_elastic, PIBK_elastic,PIBK_elastic);
963cpx += bsx+spx;
964txt[1] = new PIText(this,"",bsx,bsy,cpx,cpy);
965txt[1]->SetBinding(PIBK_elastic,PIBK_elastic, PIBK_elastic,PIBK_elastic);
966
967// new ligne
968cpx = spx; cpy += bsy+spy;
969lab[2] = new PILabel(this,"Stop Xi2",1.25*bsx,bsy,cpx,cpy);
970lab[2]->SetBinding(PIBK_elastic,PIBK_elastic, PIBK_elastic,PIBK_elastic);
971cpx += int(1.25*bsx+spx);
972txt[2] = new PIText(this,"",bsx,bsy,cpx,cpy);
973txt[2]->SetBinding(PIBK_elastic,PIBK_elastic, PIBK_elastic,PIBK_elastic);
974cpx += bsx+spx;
975lab[3] = new PILabel(this,"Iter",bsx, bsy, cpx, cpy);
976lab[3]->SetBinding(PIBK_elastic,PIBK_elastic, PIBK_elastic,PIBK_elastic);
977cpx += bsx+spx;
978txt[3] = new PIText(this,"",bsx,bsy,cpx,cpy);
979txt[3]->SetBinding(PIBK_elastic,PIBK_elastic, PIBK_elastic,PIBK_elastic);
980
981// new ligne
982cpx = spx; cpy += bsy+spy;
983lab[4] = new PILabel(this,"Range X",bsx,bsy,cpx,cpy);
984lab[4]->SetBinding(PIBK_elastic,PIBK_elastic, PIBK_elastic,PIBK_elastic);
985cpx += bsx+spx;
986txt[4] = new PIText(this,"",0.75*bsx,bsy,cpx,cpy);
987txt[4]->SetBinding(PIBK_elastic,PIBK_elastic, PIBK_elastic,PIBK_elastic);
988cpx += int(0.75*bsx+spx);
989txt[5] = new PIText(this,"",0.75*bsx,bsy,cpx,cpy);
990txt[5]->SetBinding(PIBK_elastic,PIBK_elastic, PIBK_elastic,PIBK_elastic);
991cpx += int(0.75*bsx+spx);
992lab[5] = new PILabel(this,"Y",bsx/2,bsy,cpx,cpy);
993lab[5]->SetBinding(PIBK_elastic,PIBK_elastic, PIBK_elastic,PIBK_elastic);
994cpx += int(bsx/2.+spx);
995txt[6] = new PIText(this,"",0.75*bsx,bsy,cpx,cpy);
996txt[6]->SetBinding(PIBK_elastic,PIBK_elastic, PIBK_elastic,PIBK_elastic);
997cpx += int(0.75*bsx+spx);
998txt[7] = new PIText(this,"",0.75*bsx,bsy,cpx,cpy);
999txt[7]->SetBinding(PIBK_elastic,PIBK_elastic, PIBK_elastic,PIBK_elastic);
1000
1001// new ligne
1002cpx = spx; cpy += bsy+spy;
1003lab[6] = new PILabel(this,"Cent",bsx/2,bsy,cpx,cpy);
1004lab[6]->SetBinding(PIBK_elastic,PIBK_elastic, PIBK_elastic,PIBK_elastic);
1005cpx += int(bsx/2.+spx);
1006pom[1] = new PIOptMenu(this,"X.No",1.25*bsx,bsy,cpx,cpy);
1007 pom[1]->AppendItem("X.No",2001);
1008 pom[1]->AppendItem("X.Value",2002);
1009 pom[1]->AppendItem("X.Auto",2003);
1010pom[1]->SetBinding(PIBK_elastic,PIBK_elastic, PIBK_elastic,PIBK_elastic);
1011cpx += int(1.25*bsx+spx);
1012txt[8] = new PIText(this,"",bsx,bsy,cpx,cpy);
1013txt[8]->SetBinding(PIBK_elastic,PIBK_elastic, PIBK_elastic,PIBK_elastic);
1014cpx += bsx+spx;
1015pom[2] = new PIOptMenu(this,"Y.No",1.25*bsx,bsy,cpx,cpy);
1016 pom[2]->AppendItem("Y.No",2011);
1017 pom[2]->AppendItem("Y.Value",2012);
1018 pom[2]->AppendItem("Y.Auto",2013);
1019pom[2]->SetBinding(PIBK_elastic,PIBK_elastic, PIBK_elastic,PIBK_elastic);
1020cpx += int(1.25*bsx+spx);
1021txt[9] = new PIText(this,"",bsx,bsy,cpx,cpy);
1022txt[9]->SetBinding(PIBK_elastic,PIBK_elastic, PIBK_elastic,PIBK_elastic);
1023
1024// new ligne
1025cpx = spx; cpy += bsy+spy;
1026but[2] = new PIButton(this, "Dismiss",777,bsx,bsy,cpx,cpy);
1027but[2]->SetBinding(PIBK_elastic,PIBK_elastic, PIBK_elastic,PIBK_elastic);
1028cpx += bsx+spx;
1029but[3] = new PIButton(this, "Check",666,bsx,bsy,cpx,cpy);
1030but[3]->SetBinding(PIBK_elastic,PIBK_elastic, PIBK_elastic,PIBK_elastic);
1031cpx += bsx+spx;
1032but[4] = new PIButton(this, "Fit",333,bsx,bsy,cpx,cpy);
1033but[4]->SetBinding(PIBK_elastic,PIBK_elastic, PIBK_elastic,PIBK_elastic);
1034cpx += bsx+spx;
1035lab[7] = new PILabel(this,mFitter->mFName.c_str(),2*bsx,bsy,cpx,cpy);
1036lab[7]->SetBinding(PIBK_elastic,PIBK_elastic, PIBK_elastic,PIBK_elastic);
1037
1038// new ligne
1039cpx = spx; cpy += bsy+spy;
1040lab[8] = new PILabel(this,"Par",bsx/2,bsy,cpx,cpy);
1041lab[8]->SetBinding(PIBK_elastic,PIBK_elastic, PIBK_elastic,PIBK_elastic);
1042cpx += int(bsx/2.+spx);
1043lab[9] = new PILabel(this,"Fx",bsx/3,bsy,cpx,cpy);
1044lab[9]->SetBinding(PIBK_elastic,PIBK_elastic, PIBK_elastic,PIBK_elastic);
1045cpx += int(bsx/3.+spx);
1046lab[10] = new PILabel(this,"Init",bsx,bsy,cpx,cpy);
1047lab[10]->SetBinding(PIBK_elastic,PIBK_elastic, PIBK_elastic,PIBK_elastic);
1048cpx += bsx+spx;
1049lab[11] = new PILabel(this,"Step",bsx,bsy,cpx,cpy);
1050lab[11]->SetBinding(PIBK_elastic,PIBK_elastic, PIBK_elastic,PIBK_elastic);
1051cpx += bsx+spx;
1052lab[12] = new PILabel(this,"Min",bsx,bsy,cpx,cpy);
1053lab[12]->SetBinding(PIBK_elastic,PIBK_elastic, PIBK_elastic,PIBK_elastic);
1054cpx += bsx+spx;
1055lab[13] = new PILabel(this,"Max",bsx,bsy,cpx,cpy);
1056lab[13]->SetBinding(PIBK_elastic,PIBK_elastic, PIBK_elastic,PIBK_elastic);
1057
1058// new lines: Parametres (npar lignes)
1059if(npar>0) {
1060 for(int i=0;i<npar;i++) {
1061 cpx = spx; cpy += bsy+spy;
1062 char str[8]; sprintf(str,"P%d",i);
1063 lab[14+i] = new PILabel(this,str,bsx/2,bsy,cpx,cpy);
1064 lab[14+i]->SetBinding(PIBK_elastic,PIBK_elastic, PIBK_elastic,PIBK_elastic);
1065 cpx += int(bsx/2.+spx);
1066 // Attention pas de message entre 1500 et 2000 (permet 500 parametres!)
1067 ckb[2+i] = new PICheckBox(this,"",1500+i,bsx/3,bsy,cpx,cpy+bsy/2);
1068 ckb[2+i]->SetBinding(PIBK_elastic,PIBK_elastic, PIBK_elastic,PIBK_elastic);
1069 cpx+=int(bsx/3.+spx);
1070 for(int j=0;j<4;j++) {
1071 txt[10+4*i+j] = new PIText(this,"",bsx,bsy,cpx,cpy);
1072 txt[10+4*i+j]->SetBinding(PIBK_elastic,PIBK_elastic, PIBK_elastic,PIBK_elastic);
1073 cpx += bsx+spx;
1074 }
1075 }
1076}
1077
1078return;
1079}
1080
1081/* --Methode-- */
1082PIAFitterWind::~PIAFitterWind()
1083{
1084int i;
1085for(i=0;i<nlab;i++) if(lab[i]) {delete lab[i]; lab[i]=NULL;}
1086for(i=0;i<ntxt;i++) if(txt[i]) {delete txt[i]; txt[i]=NULL;}
1087for(i=0;i<nbut;i++) if(but[i]) {delete but[i]; but[i]=NULL;}
1088for(i=0;i<nckb;i++) if(ckb[i]) {delete ckb[i]; ckb[i]=NULL;}
1089for(i=0;i<npom;i++) if(pom[i]) {delete pom[i]; pom[i]=NULL;}
1090if(lab) {delete lab; lab=NULL; nlab=0;}
1091if(txt) {delete txt; txt=NULL; ntxt=0;}
1092if(but) {delete but; but=NULL; nbut=0;}
1093if(ckb) {delete ckb; ckb=NULL; nckb=0;}
1094if(pom) {delete pom; pom=NULL; npom=0;}
1095}
1096
1097/* --Methode-- */
1098void PIAFitterWind::Show()
1099{
1100//mDap->SetBlocked();
1101SetState();
1102PIWindow::Show();
1103return;
1104}
1105
1106/* --Methode-- */
1107void PIAFitterWind::SetState(void)
1108// Ecriture et positionnement des ckb et txt
1109{
1110int npar = mFitter->mNPar;
1111
1112// Les check-boxes
1113ckb[0]->SetState(mFitter->mOpt.okfun);
1114ckb[1]->SetState(mFitter->mOpt.okres);
1115if(npar>0)
1116 for(int i=0;i<npar;i++) ckb[2+i]->SetState((mFitter->mFix(i)>=1.)?true:false);
1117
1118// Les champs textes
1119char str[128]; string dum;
1120sprintf(str,"%f",ErrValue); dum=str; txt[0]->SetText(dum);
1121sprintf(str,"%d,%d",mFitter->mOpt.lp,mFitter->mOpt.lpg); dum=str; txt[1]->SetText(dum);
1122sprintf(str,"%f",mFitter->mOpt.stc2); dum=str; txt[2]->SetText(dum);
1123sprintf(str,"%d",mFitter->mOpt.nstep); dum=str; txt[3]->SetText(dum);
1124sprintf(str,"%d",mFitter->mOpt.i1); dum=str; txt[4]->SetText(dum);
1125sprintf(str,"%d",mFitter->mOpt.i2); dum=str; txt[5]->SetText(dum);
1126sprintf(str,"%d",mFitter->mOpt.j1); dum=str; txt[6]->SetText(dum);
1127sprintf(str,"%d",mFitter->mOpt.j2); dum=str; txt[7]->SetText(dum);
1128sprintf(str,"%f",mFitter->mOpt.xc); dum=str; txt[8]->SetText(dum);
1129sprintf(str,"%f",mFitter->mOpt.yc); dum=str; txt[9]->SetText(dum);
1130if(npar>0) {
1131 for(int i=0;i<npar;i++) {
1132 sprintf(str,"%f",mFitter->mPar(i)); dum=str; txt[10+4*i+0]->SetText(dum);
1133 sprintf(str,"%f",mFitter->mStep(i)); dum=str; txt[10+4*i+1]->SetText(dum);
1134 sprintf(str,"%f",mFitter->mMin(i)); dum=str; txt[10+4*i+2]->SetText(dum);
1135 sprintf(str,"%f",mFitter->mMax(i)); dum=str; txt[10+4*i+3]->SetText(dum);
1136 }
1137}
1138
1139return;
1140}
1141
1142/* --Methode-- */
1143void PIAFitterWind::Process(PIMessage msg, PIMsgHandler* sender, void* data)
1144{
1145int lp = (mFitter->mOpt.lp>2)?1:0;;
1146int npar = mFitter->mNPar;
1147
1148// Decodage des messages, init et dismiss
1149msg = UserMsg(msg);
1150if(msg ==777) {
1151 if(lp) cout<<"Dismiss"<<endl;
1152 //mDap->SetReady();
1153 Hide();
1154 return;
1155}
1156
1157// L'objet existe t-il encore?
1158NamedObjMgr omg;
1159if(omg.GetObj(mFitter->mNObj) == NULL) {
1160 cout<<"PIAFitterWind::Process Error , Pas d'objet de nom "
1161 <<mFitter->mNObj<<endl;
1162 mFitter->ResetDPointer(); return;
1163}
1164
1165// On recupere les champs textes
1166string dum; char str[128];
1167// Attention gestion du type d'erreur
1168dum=txt[0]->GetText(); strcpy(str,dum.c_str()); strip(str,'B',' ');
1169 sscanf(str,"%lf",&ErrValue); if(ErrValue<=0.) ErrValue=1.;
1170 if(mFitter->mOpt.err_e>0. ) mFitter->mOpt.err_e = ErrValue;
1171 if(mFitter->mOpt.err_E>0. ) mFitter->mOpt.err_E = ErrValue;
1172dum=txt[1]->GetText(); strcpy(str,dum.c_str()); strip(str,'B',' ');
1173 sscanf(str,"%d,%d",&(mFitter->mOpt.lp),&(mFitter->mOpt.lpg));
1174dum=txt[2]->GetText(); strcpy(str,dum.c_str()); strip(str,'B',' ');
1175 sscanf(str,"%lf",&(mFitter->mOpt.stc2));
1176dum=txt[3]->GetText(); strcpy(str,dum.c_str()); strip(str,'B',' ');
1177 sscanf(str,"%d",&(mFitter->mOpt.nstep));
1178// Attention si les valeurs de mOpt.i1/.i2/.j1/.j2 ont ete changees
1179dum=txt[4]->GetText(); strcpy(str,dum.c_str()); strip(str,'B',' ');
1180 sscanf(str,"%d",&(mFitter->mOpt.i1));
1181dum=txt[5]->GetText(); strcpy(str,dum.c_str()); strip(str,'B',' ');
1182 sscanf(str,"%d",&(mFitter->mOpt.i2));
1183dum=txt[6]->GetText(); strcpy(str,dum.c_str()); strip(str,'B',' ');
1184 sscanf(str,"%d",&(mFitter->mOpt.j1));
1185dum=txt[7]->GetText(); strcpy(str,dum.c_str()); strip(str,'B',' ');
1186 sscanf(str,"%d",&(mFitter->mOpt.j2));
1187 if(saveI1!=mFitter->mOpt.i1 || saveI2!=mFitter->mOpt.i2 ||
1188 saveJ1!=mFitter->mOpt.j1 || saveJ2!=mFitter->mOpt.j2 ) {
1189 if(lp)
1190 cout<<"Range changed: I("<<saveI1<<","<<saveI2
1191 <<") -> I("<<mFitter->mOpt.i1<<","<<mFitter->mOpt.i2
1192 <<") ou J("<<saveJ1<<","<<saveJ2
1193 <<") -> J("<<mFitter->mOpt.j1<<","<<mFitter->mOpt.j2
1194 <<")"<<endl;
1195 ReFillGData = true;
1196 saveI1=mFitter->mOpt.i1; saveI2=mFitter->mOpt.i2;
1197 saveJ1=mFitter->mOpt.j1; saveJ2=mFitter->mOpt.j2;
1198 }
1199dum=txt[8]->GetText(); strcpy(str,dum.c_str()); strip(str,'B',' ');
1200 sscanf(str,"%lf",&(mFitter->mOpt.xc));
1201dum=txt[9]->GetText(); strcpy(str,dum.c_str()); strip(str,'B',' ');
1202 sscanf(str,"%lf",&(mFitter->mOpt.yc));
1203
1204if(npar>0) {
1205 for(int i=0;i<npar;i++) {
1206 dum=txt[10+4*i+0]->GetText(); strcpy(str,dum.c_str()); strip(str,'B',' ');
1207 sscanf(str,"%lf",&(mFitter->mPar(i)));
1208 dum=txt[10+4*i+1]->GetText(); strcpy(str,dum.c_str()); strip(str,'B',' ');
1209 sscanf(str,"%lf",&(mFitter->mStep(i)));
1210 dum=txt[10+4*i+2]->GetText(); strcpy(str,dum.c_str()); strip(str,'B',' ');
1211 sscanf(str,"%lf",&(mFitter->mMin(i)));
1212 dum=txt[10+4*i+3]->GetText(); strcpy(str,dum.c_str()); strip(str,'B',' ');
1213 sscanf(str,"%lf",&(mFitter->mMax(i)));
1214 }
1215}
1216
1217// Decodage des messages, suite
1218if(msg ==666) {
1219 if(lp) cout<<"Check"<<endl;
1220 mFitter->CheckOptions();
1221 if(ReFillGData) mFitter->FillGData();
1222 ReFillGData = false;
1223}
1224else if(msg ==111) {
1225 if(lp) cout<<"Update from last"<<endl;
1226 mFitter->ResetOptions();
1227 mFitter->mOpt = mFitter->mOptSave;
1228 mFitter->ReSetParam();
1229 mFitter->InitParFromLastFit();
1230 ReFillGData = true;
1231}
1232else if(msg ==222) {
1233 if(lp) cout<<"Default options/par"<<endl;
1234 mFitter->ResetOptions();
1235 mFitter->ReSetParam();
1236 ReFillGData = true;
1237}
1238else if(msg ==333) {
1239 if(lp) cout<<"Do the fit"<<endl;
1240 mFitter->CheckOptions();
1241 if(ReFillGData) mFitter->FillGData();
1242 ReFillGData = false;
1243 int rc = mFitter->DoFit();
1244 if(rc>=0) mFitter->FitFunRes();
1245}
1246else if(msg==1001) {
1247 if(ckb[0]->GetState()) {
1248 if(lp) cout<<"Gen fitted function"<<endl;
1249 mFitter->mOpt.okfun = true;
1250 } else if(!ckb[0]->GetState()) {
1251 if(lp) cout<<"No Gen fitted function"<<endl;
1252 mFitter->mOpt.okfun = false;
1253 }
1254}
1255else if(msg==1002) {
1256 if(ckb[1]->GetState()) {
1257 if(lp) cout<<"Gen fitted residus"<<endl;
1258 mFitter->mOpt.okres = true;
1259 } else if(!ckb[1]->GetState()) {
1260 if(lp) cout<<"No Gen fitted residus"<<endl;
1261 mFitter->mOpt.okres = false;
1262 }
1263}
1264else if(2101<=msg && msg<=2103) {
1265 mFitter->mOpt.err_e = mFitter->mOpt.err_E = -1.;
1266 if(msg==2102) mFitter->mOpt.err_e = ErrValue;
1267 else if(msg==2103) mFitter->mOpt.err_E = ErrValue;
1268 if(lp) cout<<"Err_cste="<<mFitter->mOpt.err_e
1269 <<" Err_sqrt="<<mFitter->mOpt.err_E
1270 <<" ErrValue="<<ErrValue<<endl;
1271 ReFillGData = true;
1272}
1273else if(2001<=msg && msg<=2003) {
1274 mFitter->mOpt.polcx = msg-2001;
1275 if(lp) cout<<"Centrage X polcx="<<mFitter->mOpt.polcx
1276 <<" xc="<<mFitter->mOpt.xc<<endl;
1277 ReFillGData = true;
1278}
1279else if(2011<=msg && msg<=2013) {
1280 mFitter->mOpt.polcx = msg-2011;
1281 if(lp) cout<<"Centrage Y polcy="<<mFitter->mOpt.polcy
1282 <<" yc="<<mFitter->mOpt.yc<<endl;
1283 ReFillGData = true;
1284}
1285else if(msg>=1500 && msg<2000) {
1286 int ip = msg-1500;
1287 if(ckb[2+ip]->GetState()) {
1288 if(lp) cout<<"Fix Param "<<ip<<endl;
1289 mFitter->mFix(ip) = 1.001;
1290 } else if(!ckb[2+ip]->GetState()) {
1291 if(lp) cout<<"Not Fix Param "<<ip<<endl;
1292 mFitter->mFix(ip) = 0.;
1293 }
1294}
1295
1296mFitter->CheckOptions();
1297SetState();
1298if(mFitter->mOpt.lp>1) mFitter->PrintOptions();
1299
1300return;
1301}
Note: See TracBrowser for help on using the repository browser.