Ignore:
Timestamp:
Jun 10, 2016 3:40:55 PM (7 years ago)
Author:
srkline
Message:

A number of simple fixes to make the macros compatible with Igor 7, and in some places back-compatible with Igor 6. There were only a few instances where the IgorVersion? was checked, so it does not caues a huge disruption.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • sans/Dev/trunk/NCNR_User_Procedures/Analysis/Packages/Wrapper_v40.ipf

    r999 r1001  
    822822                         
    823823                endif 
     824 
     825// for Igor 7 -- add the flag /N=0 to force the curve fit to update at each iteration. Some loss in speed 
     826//   over the new default of no update, but the user can see what is happening. 
    824827                 
    825828                // now useCursors, useEps, and useConstr are all handled w/ /NWOK 
     
    827830                 
    828831                if(useResol && useResiduals && useTextBox)              //do it all 
    829                         FuncFit/H=getHStr(hold) /M=2 /NTHR=0 /TBOX=(tb) $funcStr cw, yw[pt1,pt2] /X=xw /W=sw /I=1 /E=eps /D=fitYw /C=constr /STRC=fs /R /NWOK 
     832                        FuncFit/H=getHStr(hold) /N=0 /M=2 /NTHR=0 /TBOX=(tb) $funcStr cw, yw[pt1,pt2] /X=xw /W=sw /I=1 /E=eps /D=fitYw /C=constr /STRC=fs /R /NWOK 
    830833                        break 
    831834                endif 
    832835                 
    833836                if(useResol && useResiduals)            //res + resid 
    834                         FuncFit/H=getHStr(hold) /M=2 /NTHR=0 $funcStr cw, yw[pt1,pt2] /X=xw /W=sw /I=1 /E=eps /D=fitYw /C=constr /STRC=fs /R /NWOK 
     837                        FuncFit/H=getHStr(hold) /N=0 /M=2 /NTHR=0 $funcStr cw, yw[pt1,pt2] /X=xw /W=sw /I=1 /E=eps /D=fitYw /C=constr /STRC=fs /R /NWOK 
    835838                        break 
    836839                endif 
     
    838841                 
    839842                if(useResol && useTextBox)              //res + text 
    840                         FuncFit/H=getHStr(hold) /M=2 /NTHR=0 /TBOX=(tb) $funcStr cw, yw[pt1,pt2] /X=xw /W=sw /I=1 /E=eps /D=fitYw /C=constr /STRC=fs /NWOK 
     843                        FuncFit/H=getHStr(hold) /N=0 /M=2 /NTHR=0 /TBOX=(tb) $funcStr cw, yw[pt1,pt2] /X=xw /W=sw /I=1 /E=eps /D=fitYw /C=constr /STRC=fs /NWOK 
    841844                        break 
    842845                endif 
     
    846849//                      Variable t0 = stopMStimer(-2) 
    847850 
    848                         FuncFit/H=getHStr(hold) /M=2 /NTHR=0 $funcStr cw, yw[pt1,pt2] /X=xw /W=sw /I=1 /E=eps /D=fitYw /C=constr /STRC=fs /NWOK 
     851                        FuncFit/H=getHStr(hold) /N=0 /M=2 /NTHR=0 $funcStr cw, yw[pt1,pt2] /X=xw /W=sw /I=1 /E=eps /D=fitYw /C=constr /STRC=fs /NWOK 
    849852                         
    850853//                      t0 = (stopMSTimer(-2) - t0)*1e-6 
     
    868871/////   same as above, but all without useResol (no /STRC flag) 
    869872                if(useResiduals && useTextBox)          //resid+ text 
    870                         FuncFit/H=getHStr(hold) /M=2 /NTHR=0 /TBOX=(tb) $funcStr cw, yw[pt1,pt2] /X=xw /W=sw /I=1 /E=eps /D=fitYw /C=constr /R /NWOK 
     873                        FuncFit/H=getHStr(hold) /N=0 /M=2 /NTHR=0 /TBOX=(tb) $funcStr cw, yw[pt1,pt2] /X=xw /W=sw /I=1 /E=eps /D=fitYw /C=constr /R /NWOK 
    871874                        break 
    872875                endif 
    873876                 
    874877                if(useResiduals)                //resid 
    875                         FuncFit/H=getHStr(hold) /M=2 /NTHR=0 $funcStr cw, yw[pt1,pt2] /X=xw /W=sw /I=1 /E=eps /D=fitYw /C=constr /R /NWOK 
     878                        FuncFit/H=getHStr(hold) /N=0 /M=2 /NTHR=0 $funcStr cw, yw[pt1,pt2] /X=xw /W=sw /I=1 /E=eps /D=fitYw /C=constr /R /NWOK 
    876879                        break 
    877880                endif 
     
    879882                 
    880883                if(useTextBox)          //text 
    881                         FuncFit/H=getHStr(hold) /M=2 /NTHR=0 /TBOX=(tb) $funcStr cw, yw[pt1,pt2] /X=xw /W=sw /I=1 /E=eps /D=fitYw /C=constr /NWOK 
     884                        FuncFit/H=getHStr(hold) /N=0 /M=2 /NTHR=0 /TBOX=(tb) $funcStr cw, yw[pt1,pt2] /X=xw /W=sw /I=1 /E=eps /D=fitYw /C=constr /NWOK 
    882885                        break 
    883886                endif 
     
    885888                //just a plain vanilla fit 
    886889 
    887                 FuncFit/H=getHStr(hold) /M=2 /NTHR=0 $funcStr cw, yw[pt1,pt2] /X=xw /W=sw /I=1 /E=eps /D=fitYw /C=constr /NWOK 
     890                FuncFit/H=getHStr(hold) /N=0 /M=2 /NTHR=0 $funcStr cw, yw[pt1,pt2] /X=xw /W=sw /I=1 /E=eps /D=fitYw /C=constr /NWOK 
    888891                 
    889892        while(0) 
     
    924927         
    925928        DoUpdate                //force update of table and graph with fitted values (why doesn't this work? - the table still does not update) 
    926          
     929 
     930//      this is the top graph, and I do this in Igor 7 to force update of the infoBox and for the report to appear 
     931        DoWindow/F $(WinName(0,1))       
    927932        // report the results (to the panel?) 
    928933        if(useGenCurveFit) 
Note: See TracChangeset for help on using the changeset viewer.