Ignore:
Timestamp:
Sep 8, 2011 3:19:48 PM (11 years ago)
Author:
srkline
Message:

Lots of changes to the polarization routines, mostly to incorporate error propagation to the matrix inversion for the polarization correction to the data. Switched the big PolCor? panel to use listboxes to specify files to add together rather than individual popups. Right now 10 files can be added, but this could be expanded to an unlimited number.

Also some minor bug fixes and error handling.

File:
1 edited

Legend:

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

    r824 r829  
    923923                 
    924924                if(useResol && useResiduals && useTextBox)              //do it all 
    925                         FuncFit/H=getHStr(hold) /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 
     925                        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 
    926926                        break 
    927927                endif 
    928928                 
    929929                if(useResol && useResiduals)            //res + resid 
    930                         FuncFit/H=getHStr(hold) /NTHR=0 $funcStr cw, yw[pt1,pt2] /X=xw /W=sw /I=1 /E=eps /D=fitYw /C=constr /STRC=fs /R /NWOK 
     930                        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 
    931931                        break 
    932932                endif 
     
    934934                 
    935935                if(useResol && useTextBox)              //res + text 
    936                         FuncFit/H=getHStr(hold) /NTHR=0 /TBOX=(tb) $funcStr cw, yw[pt1,pt2] /X=xw /W=sw /I=1 /E=eps /D=fitYw /C=constr /STRC=fs /NWOK 
     936                        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 
    937937                        break 
    938938                endif 
     
    964964/////   same as above, but all without useResol (no /STRC flag) 
    965965                if(useResiduals && useTextBox)          //resid+ text 
    966                         FuncFit/H=getHStr(hold) /NTHR=0 /TBOX=(tb) $funcStr cw, yw[pt1,pt2] /X=xw /W=sw /I=1 /E=eps /D=fitYw /C=constr /R /NWOK 
     966                        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 
    967967                        break 
    968968                endif 
    969969                 
    970970                if(useResiduals)                //resid 
    971                         FuncFit/H=getHStr(hold) /NTHR=0 $funcStr cw, yw[pt1,pt2] /X=xw /W=sw /I=1 /E=eps /D=fitYw /C=constr /R /NWOK 
     971                        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 
    972972                        break 
    973973                endif 
     
    975975                 
    976976                if(useTextBox)          //text 
    977                         FuncFit/H=getHStr(hold) /NTHR=0 /TBOX=(tb) $funcStr cw, yw[pt1,pt2] /X=xw /W=sw /I=1 /E=eps /D=fitYw /C=constr /NWOK 
     977                        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 
    978978                        break 
    979979                endif 
     
    981981                //just a plain vanilla fit 
    982982 
    983                 FuncFit/H=getHStr(hold) /NTHR=0 $funcStr cw, yw[pt1,pt2] /X=xw /W=sw /I=1 /E=eps /D=fitYw /C=constr /NWOK 
     983                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 
    984984                 
    985985        while(0) 
     
    14661466        ControlInfo/W=wrapperpanel popup_0 
    14671467        String folderStr=S_Value 
    1468          
    1469         SetDataFolder $("root:"+folderStr) 
     1468 
     1469        ControlInfo/W=WrapperPanel popup_1 
     1470        String funcStr=S_Value 
     1471                         
     1472        if(Stringmatch(funcStr,"Smear*"))               //simple test for smeared function 
     1473                if(DataFolderExists("root:"+folderStr)) 
     1474                        SetDataFolder $("root:"+folderStr) 
     1475                else 
     1476                        SetDataFolder root: 
     1477                endif 
     1478        else 
     1479                SetDataFolder root: 
     1480        endif 
    14701481         
    14711482        Wave M_Covar=M_Covar 
Note: See TracChangeset for help on using the changeset viewer.