Ignore:
Timestamp:
Mar 24, 2017 2:13:01 PM (6 years ago)
Author:
srkline
Message:

First pass at routines to interactively combine and mask VSANS 1-D data sets. Based on masking as done in the USANS Desmearing panel.

Location:
sans/Dev/trunk/NCNR_User_Procedures/Reduction/VSANS
Files:
1 added
6 edited

Legend:

Unmodified
Added
Removed
  • sans/Dev/trunk/NCNR_User_Procedures/Reduction/VSANS/VC_DetectorBinning_Q.ipf

    r1022 r1030  
    13211321// and if it is, it will be removed 
    13221322// 
    1323 Function ClearAllIQIfDisplayed(type) 
    1324         String type 
     1323Function ClearAllIQIfDisplayed(type,winNameStr) 
     1324        String type,winNameStr 
    13251325 
    13261326//      String folderList = ksWorkFolderListShort 
     
    13301330        for(ii=0;ii<ItemsInList(ksWorkFolderListShort);ii+=1) 
    13311331                fldr = StringFromList(ii, ksWorkFolderListShort, ";") 
    1332                 ClearIQIfDisplayed(fldr,type) 
     1332                ClearIQIfDisplayed(fldr,type,winNameStr) 
    13331333        endfor 
    13341334        // just in case 
     
    13381338end 
    13391339 
    1340 Function ClearIQIfDisplayed(fldr,type) 
    1341         String fldr,type 
     1340Function ClearIQIfDisplayed(fldr,type,winNameStr) 
     1341        String fldr,type,winNameStr 
    13421342 
    13431343        SetDataFolder $("root:Packages:NIST:VSANS:"+fldr) 
     
    13491349                endif 
    13501350        else 
    1351                 CheckDisplayed/W=V_1D_Data $("iBin_qxqy_"+type) 
     1351                CheckDisplayed/W=$winNameStr $("iBin_qxqy_"+type) 
    13521352                if(V_flag==1) 
    1353                         RemoveFromGraph/W=V_1D_Data $("iBin_qxqy_"+type) 
     1353                        RemoveFromGraph/W=$winNameStr $("iBin_qxqy_"+type) 
    13541354                endif 
    13551355        endif 
  • sans/Dev/trunk/NCNR_User_Procedures/Reduction/VSANS/VSANS_Includes.ipf

    r1029 r1030  
    9191#include "V_Marquee_Operations" 
    9292#include "V_RealTimeUpdate" 
     93#include "V_Combine_1D" 
    9394 
    9495 
     96 
  • sans/Dev/trunk/NCNR_User_Procedures/Reduction/VSANS/V_DIVUtils.ipf

    r1025 r1030  
    1414// 
    1515// 
     16 
     17 
     18 
     19/// TODO: 
     20// -- this is the basic renormalization that is done in PRODIV. see that file for all of the  
     21//    details of how it's used 
     22// -- update to VSANS file locations and data reads 
     23// -- expand this to do a basic renormalization of all 9 panels, and move the data into the  
     24//    appropriate locations for saving as a DIV file. 
     25// 
     26// 
     27 
     28//works on the data in "type" folder (expecting data to be reduced to the COR level) 
     29//sums all of the data, and normalizes by the number of cells (=pixelX*pixelY) 
     30// calling procedure must make sure that the folder is on linear scale FIRST 
     31Function V_NormalizeDIV(type) 
     32        String type 
     33         
     34        WAVE data=$("root:Packages:NIST:"+type+":data") 
     35        WAVE data_lin=$("root:Packages:NIST:"+type+":linear_data") 
     36        WAVE data_err=$("root:Packages:NIST:"+type+":linear_data_error") 
     37         
     38        Variable totCts=sum(data,Inf,-Inf)              //sum all of the data 
     39        NVAR pixelX = root:myGlobals:gNPixelsX 
     40        NVAR pixelY = root:myGlobals:gNPixelsY 
     41 
     42         
     43        data /= totCts 
     44        data *= pixelX*pixelY 
     45         
     46        data_lin /= totCts 
     47        data_lin *= pixelX*pixelY 
     48         
     49        data_err /= totCts 
     50        data_err *= pixelX*pixelY 
     51                 
     52        return(0) 
     53End 
     54 
     55 
     56 
     57 
     58 
     59 
    1660 
    1761// TODO 
  • sans/Dev/trunk/NCNR_User_Procedures/Reduction/VSANS/V_DataPlotting.ipf

    r1027 r1030  
    105105// TODO: 
    106106// x- "B" detector is currently skipped - Q is not yet calculated 
    107         String str 
    108         sprintf str,"(\"%s\",%d)",workType,binType 
     107        String str,winStr="V_1D_Data" 
     108        sprintf str,"(\"%s\",%d,\"%s\")",workType,binType,winStr 
    109109         
    110110        Execute ("V_Back_IQ_Graph"+str) 
     
    384384// just rebin 
    385385// 
     386// see V_CombineModePopup() in V_Combine_1D.ipf for a duplicate verison of this function 
     387// 
    386388Function V_BinningModePopup(ctrlName,popNum,popStr) : PopupMenuControl 
    387389        String ctrlName 
     
    393395        V_QBinAllPanels(type,popNum) 
    394396 
    395         String str 
    396         sprintf str,"(\"%s\",%d)",Type,popNum 
     397        String str,winStr="V_1D_Data" 
     398        sprintf str,"(\"%s\",%d,\"%s\")",type,popNum,winStr 
    397399 
    398400        Execute ("V_Back_IQ_Graph"+str) 
     
    451453// input "type" is the data type and defines the folder 
    452454// 
    453 Proc V_Middle_IQ_Graph(type,binType)  
     455Proc V_Middle_IQ_Graph(type,binType,winNameStr)  
    454456        String type 
    455457        Variable binType 
     458        String winNameStr 
    456459 
    457460//      binType = V_GetBinningPopMode() 
     
    468471 
    469472        if(binType==1) 
    470                 ClearAllIQIfDisplayed("MLRTB") 
    471                 ClearAllIQIfDisplayed("MLR") 
    472                 ClearAllIQIfDisplayed("MTB")            //this returns to root: 
    473                 ClearAllIQIfDisplayed("MT")      
    474                 ClearAllIQIfDisplayed("ML")      
    475                 ClearAllIQIfDisplayed("MR")      
    476                 ClearAllIQIfDisplayed("MB")                      
     473                ClearAllIQIfDisplayed("MLRTB",winNameStr) 
     474                ClearAllIQIfDisplayed("MLR",winNameStr) 
     475                ClearAllIQIfDisplayed("MTB",winNameStr)         //this returns to root: 
     476                ClearAllIQIfDisplayed("MT",winNameStr 
     477                ClearAllIQIfDisplayed("ML",winNameStr 
     478                ClearAllIQIfDisplayed("MR",winNameStr 
     479                ClearAllIQIfDisplayed("MB",winNameStr)                   
    477480                SetDataFolder $("root:Packages:NIST:VSANS:"+type) 
    478                 CheckDisplayed/W=V_1D_Data iBin_qxqy_ML 
    479                  
    480                 if(V_flag==0) 
    481                         AppendtoGraph/W=V_1D_Data iBin_qxqy_ML vs qBin_qxqy_ML 
    482                         AppendToGraph/W=V_1D_Data iBin_qxqy_MR vs qBin_qxqy_MR 
    483                         AppendToGraph/W=V_1D_Data iBin_qxqy_MT vs qBin_qxqy_MT 
    484                         AppendToGraph/W=V_1D_Data iBin_qxqy_MB vs qBin_qxqy_MB 
    485                         ModifyGraph/W=V_1D_Data mode=4 
    486                         ModifyGraph/W=V_1D_Data marker=19 
    487                         ModifyGraph/W=V_1D_Data rgb(iBin_qxqy_ML)=(65535,0,0),rgb(iBin_qxqy_MB)=(1,16019,65535),rgb(iBin_qxqy_MR)=(65535,0,0),rgb(iBin_qxqy_MT)=(1,16019,65535) 
    488                         ModifyGraph/W=V_1D_Data msize=2 
    489                         ModifyGraph/W=V_1D_Data muloffset(iBin_qxqy_ML)={0,4},muloffset(iBin_qxqy_MB)={0,2},muloffset(iBin_qxqy_MR)={0,8} 
    490                         ModifyGraph/W=V_1D_Data grid=1 
    491                         ModifyGraph/W=V_1D_Data log=1 
    492                         ModifyGraph/W=V_1D_Data mirror=2 
     481                CheckDisplayed/W=$winNameStr iBin_qxqy_ML 
     482                 
     483                if(V_flag==0) 
     484                        AppendtoGraph/W=$winNameStr iBin_qxqy_ML vs qBin_qxqy_ML 
     485                        AppendToGraph/W=$winNameStr iBin_qxqy_MR vs qBin_qxqy_MR 
     486                        AppendToGraph/W=$winNameStr iBin_qxqy_MT vs qBin_qxqy_MT 
     487                        AppendToGraph/W=$winNameStr iBin_qxqy_MB vs qBin_qxqy_MB 
     488                        ModifyGraph/W=$winNameStr mode=4 
     489                        ModifyGraph/W=$winNameStr marker=19 
     490                        ModifyGraph/W=$winNameStr rgb(iBin_qxqy_ML)=(65535,0,0),rgb(iBin_qxqy_MB)=(1,16019,65535),rgb(iBin_qxqy_MR)=(65535,0,0),rgb(iBin_qxqy_MT)=(1,16019,65535) 
     491                        ModifyGraph/W=$winNameStr msize=2 
     492                        ModifyGraph/W=$winNameStr muloffset(iBin_qxqy_ML)={0,4},muloffset(iBin_qxqy_MB)={0,2},muloffset(iBin_qxqy_MR)={0,8} 
     493                        ModifyGraph/W=$winNameStr grid=1 
     494                        ModifyGraph/W=$winNameStr log=1 
     495                        ModifyGraph/W=$winNameStr mirror=2 
    493496                endif            
    494497        endif 
     
    496499        if(binType==2) 
    497500// clear EVERYTHING 
    498                 ClearAllIQIfDisplayed("MLRTB") 
    499                 ClearAllIQIfDisplayed("MLR") 
    500                 ClearAllIQIfDisplayed("MTB")            //this returns to root: 
    501                 ClearAllIQIfDisplayed("MT")      
    502                 ClearAllIQIfDisplayed("ML")      
    503                 ClearAllIQIfDisplayed("MR")      
    504                 ClearAllIQIfDisplayed("MB")              
     501                ClearAllIQIfDisplayed("MLRTB",winNameStr) 
     502                ClearAllIQIfDisplayed("MLR",winNameStr) 
     503                ClearAllIQIfDisplayed("MTB",winNameStr)         //this returns to root: 
     504                ClearAllIQIfDisplayed("MT",winNameStr 
     505                ClearAllIQIfDisplayed("ML",winNameStr 
     506                ClearAllIQIfDisplayed("MR",winNameStr 
     507                ClearAllIQIfDisplayed("MB",winNameStr)           
    505508         
    506509//              ClearAllIQIfDisplayed("MLRTB") 
     
    512515 
    513516                SetDataFolder $("root:Packages:NIST:VSANS:"+type) 
    514                 CheckDisplayed/W=V_1D_Data iBin_qxqy_MLR 
    515                  
    516                 if(V_flag==0) 
    517                         AppendtoGraph/W=V_1D_Data iBin_qxqy_MLR vs qBin_qxqy_MLR 
    518                         AppendToGraph/W=V_1D_Data iBin_qxqy_MTB vs qBin_qxqy_MTB 
    519                         ModifyGraph/W=V_1D_Data mode=4 
    520                         ModifyGraph/W=V_1D_Data marker=19 
    521                         ModifyGraph/W=V_1D_Data rgb(iBin_qxqy_MLR)=(65535,0,0),rgb(iBin_qxqy_MTB)=(1,16019,65535) 
    522                         ModifyGraph/W=V_1D_Data msize=2 
    523                         ModifyGraph/W=V_1D_Data muloffset(iBin_qxqy_MLR)={0,2} 
    524                         ModifyGraph/W=V_1D_Data grid=1 
    525                         ModifyGraph/W=V_1D_Data log=1 
    526                         ModifyGraph/W=V_1D_Data mirror=2 
    527                         Label/W=V_1D_Data left "Intensity (1/cm)" 
    528                         Label/W=V_1D_Data bottom "Q (1/A)" 
     517                CheckDisplayed/W=$winNameStr iBin_qxqy_MLR 
     518                 
     519                if(V_flag==0) 
     520                        AppendtoGraph/W=$winNameStr iBin_qxqy_MLR vs qBin_qxqy_MLR 
     521                        AppendToGraph/W=$winNameStr iBin_qxqy_MTB vs qBin_qxqy_MTB 
     522                        ModifyGraph/W=$winNameStr mode=4 
     523                        ModifyGraph/W=$winNameStr marker=19 
     524                        ModifyGraph/W=$winNameStr rgb(iBin_qxqy_MLR)=(65535,0,0),rgb(iBin_qxqy_MTB)=(1,16019,65535) 
     525                        ModifyGraph/W=$winNameStr msize=2 
     526                        ModifyGraph/W=$winNameStr muloffset(iBin_qxqy_MLR)={0,2} 
     527                        ModifyGraph/W=$winNameStr grid=1 
     528                        ModifyGraph/W=$winNameStr log=1 
     529                        ModifyGraph/W=$winNameStr mirror=2 
     530                        Label/W=$winNameStr left "Intensity (1/cm)" 
     531                        Label/W=$winNameStr bottom "Q (1/A)" 
    529532                endif    
    530533                         
     
    533536        if(binType==3) 
    534537// clear EVERYTHING 
    535                 ClearAllIQIfDisplayed("MLRTB") 
    536                 ClearAllIQIfDisplayed("MLR") 
    537                 ClearAllIQIfDisplayed("MTB")            //this returns to root: 
    538                 ClearAllIQIfDisplayed("MT")      
    539                 ClearAllIQIfDisplayed("ML")      
    540                 ClearAllIQIfDisplayed("MR")      
    541                 ClearAllIQIfDisplayed("MB")              
     538                ClearAllIQIfDisplayed("MLRTB",winNameStr) 
     539                ClearAllIQIfDisplayed("MLR",winNameStr) 
     540                ClearAllIQIfDisplayed("MTB",winNameStr)         //this returns to root: 
     541                ClearAllIQIfDisplayed("MT",winNameStr 
     542                ClearAllIQIfDisplayed("ML",winNameStr 
     543                ClearAllIQIfDisplayed("MR",winNameStr 
     544                ClearAllIQIfDisplayed("MB",winNameStr)           
    542545         
    543546//              ClearAllIQIfDisplayed("MLR") 
     
    549552         
    550553                SetDataFolder $("root:Packages:NIST:VSANS:"+type) 
    551                 CheckDisplayed/W=V_1D_Data iBin_qxqy_MLRTB 
    552                  
    553                 if(V_flag==0) 
    554                         AppendtoGraph/W=V_1D_Data iBin_qxqy_MLRTB vs qBin_qxqy_MLRTB 
    555                         ModifyGraph/W=V_1D_Data mode=4 
    556                         ModifyGraph/W=V_1D_Data marker=19 
    557                         ModifyGraph/W=V_1D_Data rgb(iBin_qxqy_MLRTB)=(65535,0,0) 
    558                         ModifyGraph/W=V_1D_Data msize=2 
    559                         ModifyGraph/W=V_1D_Data grid=1 
    560                         ModifyGraph/W=V_1D_Data log=1 
    561                         ModifyGraph/W=V_1D_Data mirror=2 
    562                         Label/W=V_1D_Data left "Intensity (1/cm)" 
    563                         Label/W=V_1D_Data bottom "Q (1/A)" 
     554                CheckDisplayed/W=$winNameStr iBin_qxqy_MLRTB 
     555                 
     556                if(V_flag==0) 
     557                        AppendtoGraph/W=$winNameStr iBin_qxqy_MLRTB vs qBin_qxqy_MLRTB 
     558                        ModifyGraph/W=$winNameStr mode=4 
     559                        ModifyGraph/W=$winNameStr marker=19 
     560                        ModifyGraph/W=$winNameStr rgb(iBin_qxqy_MLRTB)=(65535,0,0) 
     561                        ModifyGraph/W=$winNameStr msize=2 
     562                        ModifyGraph/W=$winNameStr grid=1 
     563                        ModifyGraph/W=$winNameStr log=1 
     564                        ModifyGraph/W=$winNameStr mirror=2 
     565                        Label/W=$winNameStr left "Intensity (1/cm)" 
     566                        Label/W=$winNameStr bottom "Q (1/A)" 
    564567                endif    
    565568                         
     
    568571        if(binType==4)          // slit aperture binning - MT, ML, MR, MB are averaged 
    569572// clear EVERYTHING 
    570                 ClearAllIQIfDisplayed("MLRTB") 
    571                 ClearAllIQIfDisplayed("MLR") 
    572                 ClearAllIQIfDisplayed("MTB")            //this returns to root: 
    573                 ClearAllIQIfDisplayed("MT")      
    574                 ClearAllIQIfDisplayed("ML")      
    575                 ClearAllIQIfDisplayed("MR")      
    576                 ClearAllIQIfDisplayed("MB")              
     573                ClearAllIQIfDisplayed("MLRTB",winNameStr) 
     574                ClearAllIQIfDisplayed("MLR",winNameStr) 
     575                ClearAllIQIfDisplayed("MTB",winNameStr)         //this returns to root: 
     576                ClearAllIQIfDisplayed("MT",winNameStr 
     577                ClearAllIQIfDisplayed("ML",winNameStr 
     578                ClearAllIQIfDisplayed("MR",winNameStr 
     579                ClearAllIQIfDisplayed("MB",winNameStr)           
    577580         
    578581         
     
    582585                 
    583586                SetDataFolder $("root:Packages:NIST:VSANS:"+type) 
    584                 CheckDisplayed/W=V_1D_Data iBin_qxqy_ML 
    585                  
    586                 if(V_flag==0) 
    587                         AppendToGraph/W=V_1D_Data iBin_qxqy_ML vs qBin_qxqy_ML 
    588                         AppendToGraph/W=V_1D_Data iBin_qxqy_MR vs qBin_qxqy_MR 
    589                         AppendToGraph/W=V_1D_Data iBin_qxqy_MT vs qBin_qxqy_MT 
    590                         AppendToGraph/W=V_1D_Data iBin_qxqy_MB vs qBin_qxqy_MB 
    591                         ModifyGraph/W=V_1D_Data mode=4 
    592                         ModifyGraph/W=V_1D_Data marker=19 
    593                         ModifyGraph/W=V_1D_Data rgb(iBin_qxqy_ML)=(65535,0,0),rgb(iBin_qxqy_MB)=(1,16019,65535),rgb(iBin_qxqy_MR)=(65535,0,0),rgb(iBin_qxqy_MT)=(1,16019,65535) 
    594                         ModifyGraph/W=V_1D_Data msize=2 
    595                         ModifyGraph/W=V_1D_Data muloffset(iBin_qxqy_ML)={0,4},muloffset(iBin_qxqy_MB)={0,2},muloffset(iBin_qxqy_MR)={0,8} 
    596                         ModifyGraph/W=V_1D_Data grid=1 
    597                         ModifyGraph/W=V_1D_Data log=1 
    598                         ModifyGraph/W=V_1D_Data mirror=2 
     587                CheckDisplayed/W=$winNameStr iBin_qxqy_ML 
     588                 
     589                if(V_flag==0) 
     590                        AppendToGraph/W=$winNameStr iBin_qxqy_ML vs qBin_qxqy_ML 
     591                        AppendToGraph/W=$winNameStr iBin_qxqy_MR vs qBin_qxqy_MR 
     592                        AppendToGraph/W=$winNameStr iBin_qxqy_MT vs qBin_qxqy_MT 
     593                        AppendToGraph/W=$winNameStr iBin_qxqy_MB vs qBin_qxqy_MB 
     594                        ModifyGraph/W=$winNameStr mode=4 
     595                        ModifyGraph/W=$winNameStr marker=19 
     596                        ModifyGraph/W=$winNameStr rgb(iBin_qxqy_ML)=(65535,0,0),rgb(iBin_qxqy_MB)=(1,16019,65535),rgb(iBin_qxqy_MR)=(65535,0,0),rgb(iBin_qxqy_MT)=(1,16019,65535) 
     597                        ModifyGraph/W=$winNameStr msize=2 
     598                        ModifyGraph/W=$winNameStr muloffset(iBin_qxqy_ML)={0,4},muloffset(iBin_qxqy_MB)={0,2},muloffset(iBin_qxqy_MR)={0,8} 
     599                        ModifyGraph/W=$winNameStr grid=1 
     600                        ModifyGraph/W=$winNameStr log=1 
     601                        ModifyGraph/W=$winNameStr mirror=2 
    599602                endif            
    600603                         
     
    615618// 
    616619// 
    617 Proc V_Front_IQ_Graph(type,binType)  
     620Proc V_Front_IQ_Graph(type,binType,winNameStr)  
    618621        String type 
    619622        Variable binType 
     623        String winNameStr 
    620624 
    621625 
     
    635639                 
    636640        if(binType==1) 
    637                 ClearAllIQIfDisplayed("FLRTB") 
    638                  
    639                 ClearAllIQIfDisplayed("FLR") 
    640                 ClearAllIQIfDisplayed("FTB") 
    641  
    642                 ClearAllIQIfDisplayed("FT")      
    643                 ClearAllIQIfDisplayed("FL")      
    644                 ClearAllIQIfDisplayed("FR")      
    645                 ClearAllIQIfDisplayed("FB") 
     641                ClearAllIQIfDisplayed("FLRTB",winNameStr) 
     642                 
     643                ClearAllIQIfDisplayed("FLR",winNameStr) 
     644                ClearAllIQIfDisplayed("FTB",winNameStr) 
     645 
     646                ClearAllIQIfDisplayed("FT",winNameStr 
     647                ClearAllIQIfDisplayed("FL",winNameStr 
     648                ClearAllIQIfDisplayed("FR",winNameStr 
     649                ClearAllIQIfDisplayed("FB",winNameStr) 
    646650                                 
    647651                SetDataFolder $("root:Packages:NIST:VSANS:"+type) 
    648                 CheckDisplayed/W=V_1D_Data iBin_qxqy_FL 
    649                  
    650                 if(V_flag==0) 
    651                         AppendtoGraph/W=V_1D_Data iBin_qxqy_FL vs qBin_qxqy_FL 
    652                         AppendToGraph/W=V_1D_Data iBin_qxqy_FR vs qBin_qxqy_FR 
    653                         AppendToGraph/W=V_1D_Data iBin_qxqy_FT vs qBin_qxqy_FT 
    654                         AppendToGraph/W=V_1D_Data iBin_qxqy_FB vs qBin_qxqy_FB 
    655                         ModifyGraph/W=V_1D_Data mode=4 
    656                         ModifyGraph/W=V_1D_Data marker=19 
    657                         ModifyGraph/W=V_1D_Data rgb(iBin_qxqy_FL)=(39321,26208,1),rgb(iBin_qxqy_FB)=(2,39321,1),rgb(iBin_qxqy_FR)=(39321,26208,1),rgb(iBin_qxqy_FT)=(2,39321,1) 
    658                         ModifyGraph/W=V_1D_Data msize=2 
    659                         ModifyGraph/W=V_1D_Data muloffset(iBin_qxqy_FL)={0,4},muloffset(iBin_qxqy_FB)={0,2},muloffset(iBin_qxqy_FR)={0,8} 
    660                         ModifyGraph/W=V_1D_Data grid=1 
    661                         ModifyGraph/W=V_1D_Data log=1 
    662                         ModifyGraph/W=V_1D_Data mirror=2 
     652                CheckDisplayed/W=$winNameStr iBin_qxqy_FL 
     653                 
     654                if(V_flag==0) 
     655                        AppendtoGraph/W=$winNameStr iBin_qxqy_FL vs qBin_qxqy_FL 
     656                        AppendToGraph/W=$winNameStr iBin_qxqy_FR vs qBin_qxqy_FR 
     657                        AppendToGraph/W=$winNameStr iBin_qxqy_FT vs qBin_qxqy_FT 
     658                        AppendToGraph/W=$winNameStr iBin_qxqy_FB vs qBin_qxqy_FB 
     659                        ModifyGraph/W=$winNameStr mode=4 
     660                        ModifyGraph/W=$winNameStr marker=19 
     661                        ModifyGraph/W=$winNameStr rgb(iBin_qxqy_FL)=(39321,26208,1),rgb(iBin_qxqy_FB)=(2,39321,1),rgb(iBin_qxqy_FR)=(39321,26208,1),rgb(iBin_qxqy_FT)=(2,39321,1) 
     662                        ModifyGraph/W=$winNameStr msize=2 
     663                        ModifyGraph/W=$winNameStr muloffset(iBin_qxqy_FL)={0,4},muloffset(iBin_qxqy_FB)={0,2},muloffset(iBin_qxqy_FR)={0,8} 
     664                        ModifyGraph/W=$winNameStr grid=1 
     665                        ModifyGraph/W=$winNameStr log=1 
     666                        ModifyGraph/W=$winNameStr mirror=2 
    663667                endif            
    664668        endif 
     
    666670        if(binType==2) 
    667671        // clear EVERYTHING 
    668                 ClearAllIQIfDisplayed("FLRTB") 
    669                  
    670                 ClearAllIQIfDisplayed("FLR") 
    671                 ClearAllIQIfDisplayed("FTB") 
    672  
    673                 ClearAllIQIfDisplayed("FT")      
    674                 ClearAllIQIfDisplayed("FL")      
    675                 ClearAllIQIfDisplayed("FR")      
    676                 ClearAllIQIfDisplayed("FB") 
     672                ClearAllIQIfDisplayed("FLRTB",winNameStr) 
     673                 
     674                ClearAllIQIfDisplayed("FLR",winNameStr) 
     675                ClearAllIQIfDisplayed("FTB",winNameStr) 
     676 
     677                ClearAllIQIfDisplayed("FT",winNameStr 
     678                ClearAllIQIfDisplayed("FL",winNameStr 
     679                ClearAllIQIfDisplayed("FR",winNameStr 
     680                ClearAllIQIfDisplayed("FB",winNameStr) 
    677681//              ClearAllIQIfDisplayed("FLRTB") 
    678682//              ClearAllIQIfDisplayed("FT")      
     
    682686 
    683687                SetDataFolder $("root:Packages:NIST:VSANS:"+type) 
    684                 CheckDisplayed/W=V_1D_Data iBin_qxqy_FLR 
    685                  
    686                 if(V_flag==0) 
    687                         AppendtoGraph/W=V_1D_Data iBin_qxqy_FLR vs qBin_qxqy_FLR 
    688                         AppendToGraph/W=V_1D_Data iBin_qxqy_FTB vs qBin_qxqy_FTB 
    689                         ModifyGraph/W=V_1D_Data mode=4 
    690                         ModifyGraph/W=V_1D_Data marker=19 
    691                         ModifyGraph/W=V_1D_Data rgb(iBin_qxqy_FLR)=(39321,26208,1),rgb(iBin_qxqy_FTB)=(2,39321,1) 
    692                         ModifyGraph/W=V_1D_Data msize=2 
    693                         ModifyGraph/W=V_1D_Data muloffset(iBin_qxqy_FLR)={0,2} 
    694                         ModifyGraph/W=V_1D_Data grid=1 
    695                         ModifyGraph/W=V_1D_Data log=1 
    696                         ModifyGraph/W=V_1D_Data mirror=2 
    697                         Label/W=V_1D_Data left "Intensity (1/cm)" 
    698                         Label/W=V_1D_Data bottom "Q (1/A)" 
     688                CheckDisplayed/W=$winNameStr iBin_qxqy_FLR 
     689                 
     690                if(V_flag==0) 
     691                        AppendtoGraph/W=$winNameStr iBin_qxqy_FLR vs qBin_qxqy_FLR 
     692                        AppendToGraph/W=$winNameStr iBin_qxqy_FTB vs qBin_qxqy_FTB 
     693                        ModifyGraph/W=$winNameStr mode=4 
     694                        ModifyGraph/W=$winNameStr marker=19 
     695                        ModifyGraph/W=$winNameStr rgb(iBin_qxqy_FLR)=(39321,26208,1),rgb(iBin_qxqy_FTB)=(2,39321,1) 
     696                        ModifyGraph/W=$winNameStr msize=2 
     697                        ModifyGraph/W=$winNameStr muloffset(iBin_qxqy_FLR)={0,2} 
     698                        ModifyGraph/W=$winNameStr grid=1 
     699                        ModifyGraph/W=$winNameStr log=1 
     700                        ModifyGraph/W=$winNameStr mirror=2 
     701                        Label/W=$winNameStr left "Intensity (1/cm)" 
     702                        Label/W=$winNameStr bottom "Q (1/A)" 
    699703                endif    
    700704                         
     
    703707        if(binType==3) 
    704708// clear EVERYTHING 
    705                 ClearAllIQIfDisplayed("FLRTB") 
    706                  
    707                 ClearAllIQIfDisplayed("FLR") 
    708                 ClearAllIQIfDisplayed("FTB") 
    709  
    710                 ClearAllIQIfDisplayed("FT")      
    711                 ClearAllIQIfDisplayed("FL")      
    712                 ClearAllIQIfDisplayed("FR")      
    713                 ClearAllIQIfDisplayed("FB")      
     709                ClearAllIQIfDisplayed("FLRTB",winNameStr) 
     710                 
     711                ClearAllIQIfDisplayed("FLR",winNameStr) 
     712                ClearAllIQIfDisplayed("FTB",winNameStr) 
     713 
     714                ClearAllIQIfDisplayed("FT",winNameStr 
     715                ClearAllIQIfDisplayed("FL",winNameStr 
     716                ClearAllIQIfDisplayed("FR",winNameStr 
     717                ClearAllIQIfDisplayed("FB",winNameStr 
    714718         
    715719//              ClearAllIQIfDisplayed("FLR") 
     
    721725         
    722726                SetDataFolder $("root:Packages:NIST:VSANS:"+type) 
    723                 CheckDisplayed/W=V_1D_Data iBin_qxqy_FLRTB 
    724                  
    725                 if(V_flag==0) 
    726                         AppendtoGraph/W=V_1D_Data iBin_qxqy_FLRTB vs qBin_qxqy_FLRTB 
    727                         ModifyGraph/W=V_1D_Data mode=4 
    728                         ModifyGraph/W=V_1D_Data marker=19 
    729                         ModifyGraph/W=V_1D_Data rgb(iBin_qxqy_FLRTB)=(39321,26208,1) 
    730                         ModifyGraph/W=V_1D_Data msize=2 
    731                         ModifyGraph/W=V_1D_Data grid=1 
    732                         ModifyGraph/W=V_1D_Data log=1 
    733                         ModifyGraph/W=V_1D_Data mirror=2 
    734                         Label/W=V_1D_Data left "Intensity (1/cm)" 
    735                         Label/W=V_1D_Data bottom "Q (1/A)" 
     727                CheckDisplayed/W=$winNameStr iBin_qxqy_FLRTB 
     728                 
     729                if(V_flag==0) 
     730                        AppendtoGraph/W=$winNameStr iBin_qxqy_FLRTB vs qBin_qxqy_FLRTB 
     731                        ModifyGraph/W=$winNameStr mode=4 
     732                        ModifyGraph/W=$winNameStr marker=19 
     733                        ModifyGraph/W=$winNameStr rgb(iBin_qxqy_FLRTB)=(39321,26208,1) 
     734                        ModifyGraph/W=$winNameStr msize=2 
     735                        ModifyGraph/W=$winNameStr grid=1 
     736                        ModifyGraph/W=$winNameStr log=1 
     737                        ModifyGraph/W=$winNameStr mirror=2 
     738                        Label/W=$winNameStr left "Intensity (1/cm)" 
     739                        Label/W=$winNameStr bottom "Q (1/A)" 
    736740                endif    
    737741                         
     
    740744        if(binType==4)          // slit aperture binning - MT, ML, MR, MB are averaged 
    741745// clear EVERYTHING 
    742                 ClearAllIQIfDisplayed("FLRTB") 
    743                  
    744                 ClearAllIQIfDisplayed("FLR") 
    745                 ClearAllIQIfDisplayed("FTB") 
    746  
    747                 ClearAllIQIfDisplayed("FT")      
    748                 ClearAllIQIfDisplayed("FL")      
    749                 ClearAllIQIfDisplayed("FR")      
    750                 ClearAllIQIfDisplayed("FB")      
     746                ClearAllIQIfDisplayed("FLRTB",winNameStr) 
     747                 
     748                ClearAllIQIfDisplayed("FLR",winNameStr) 
     749                ClearAllIQIfDisplayed("FTB",winNameStr) 
     750 
     751                ClearAllIQIfDisplayed("FT",winNameStr 
     752                ClearAllIQIfDisplayed("FL",winNameStr 
     753                ClearAllIQIfDisplayed("FR",winNameStr 
     754                ClearAllIQIfDisplayed("FB",winNameStr 
    751755         
    752756         
     
    756760                 
    757761                SetDataFolder $("root:Packages:NIST:VSANS:"+type) 
    758                 CheckDisplayed/W=V_1D_Data iBin_qxqy_FL 
    759                  
    760                 if(V_flag==0) 
    761                         AppendtoGraph/W=V_1D_Data iBin_qxqy_FL vs qBin_qxqy_FL 
    762                         AppendToGraph/W=V_1D_Data iBin_qxqy_FR vs qBin_qxqy_FR 
    763                         AppendToGraph/W=V_1D_Data iBin_qxqy_FT vs qBin_qxqy_FT 
    764                         AppendToGraph/W=V_1D_Data iBin_qxqy_FB vs qBin_qxqy_FB 
    765                         ModifyGraph/W=V_1D_Data mode=4 
    766                         ModifyGraph/W=V_1D_Data marker=19 
    767                         ModifyGraph/W=V_1D_Data rgb(iBin_qxqy_FL)=(39321,26208,1),rgb(iBin_qxqy_FB)=(2,39321,1),rgb(iBin_qxqy_FR)=(39321,26208,1),rgb(iBin_qxqy_FT)=(2,39321,1) 
    768                         ModifyGraph/W=V_1D_Data msize=2 
    769                         ModifyGraph/W=V_1D_Data muloffset(iBin_qxqy_FL)={0,4},muloffset(iBin_qxqy_FB)={0,2},muloffset(iBin_qxqy_FR)={0,8} 
    770                         ModifyGraph/W=V_1D_Data grid=1 
    771                         ModifyGraph/W=V_1D_Data log=1 
    772                         ModifyGraph/W=V_1D_Data mirror=2 
     762                CheckDisplayed/W=$winNameStr iBin_qxqy_FL 
     763                 
     764                if(V_flag==0) 
     765                        AppendtoGraph/W=$winNameStr iBin_qxqy_FL vs qBin_qxqy_FL 
     766                        AppendToGraph/W=$winNameStr iBin_qxqy_FR vs qBin_qxqy_FR 
     767                        AppendToGraph/W=$winNameStr iBin_qxqy_FT vs qBin_qxqy_FT 
     768                        AppendToGraph/W=$winNameStr iBin_qxqy_FB vs qBin_qxqy_FB 
     769                        ModifyGraph/W=$winNameStr mode=4 
     770                        ModifyGraph/W=$winNameStr marker=19 
     771                        ModifyGraph/W=$winNameStr rgb(iBin_qxqy_FL)=(39321,26208,1),rgb(iBin_qxqy_FB)=(2,39321,1),rgb(iBin_qxqy_FR)=(39321,26208,1),rgb(iBin_qxqy_FT)=(2,39321,1) 
     772                        ModifyGraph/W=$winNameStr msize=2 
     773                        ModifyGraph/W=$winNameStr muloffset(iBin_qxqy_FL)={0,4},muloffset(iBin_qxqy_FB)={0,2},muloffset(iBin_qxqy_FR)={0,8} 
     774                        ModifyGraph/W=$winNameStr grid=1 
     775                        ModifyGraph/W=$winNameStr log=1 
     776                        ModifyGraph/W=$winNameStr mirror=2 
    773777                endif            
    774778                         
     
    783787// x- currently  hard-wired == 1 
    784788// 
     789// 
     790//      type = the data folder 
     791// binType = numerical index of the bin type (1->4) 
     792//  one;two;four;slit 
     793// winNameStr = the name of the target window 
     794// 
    785795////////////to plot the back panel I(q) 
    786 Proc V_Back_IQ_Graph(type,binType) 
     796Proc V_Back_IQ_Graph(type,binType,winNameStr) 
    787797        String type 
    788798        Variable binType 
     799        String winNameStr 
    789800         
    790801//      SetDataFolder root:Packages:NIST:VSANS:VCALC:entry:instrument:detector_B 
     
    794805//      binType = V_GetBinningPopMode() 
    795806         
     807 
    796808        SetDataFolder $("root:Packages:NIST:VSANS:"+type)        
    797809 
    798810        if(binType==1 || binType==2 || binType==3) 
    799811         
    800                 ClearAllIQIfDisplayed("B") 
     812                ClearAllIQIfDisplayed("B",winNameStr) 
    801813                SetDataFolder $("root:Packages:NIST:VSANS:"+type)        
    802                 CheckDisplayed/W=V_1D_Data iBin_qxqy_B 
    803                  
    804                 if(V_flag==0) 
    805                         AppendtoGraph/W=V_1D_Data iBin_qxqy_B vs qBin_qxqy_B 
    806                         ModifyGraph/W=V_1D_Data mode=4 
    807                         ModifyGraph/W=V_1D_Data marker=19 
    808                         ModifyGraph/W=V_1D_Data rgb(iBin_qxqy_B)=(1,52428,52428) 
    809                         ModifyGraph/W=V_1D_Data msize=2 
    810                         ModifyGraph/W=V_1D_Data grid=1 
    811                         ModifyGraph/W=V_1D_Data log=1 
    812                         ModifyGraph/W=V_1D_Data mirror=2 
     814                CheckDisplayed/W=$winNameStr iBin_qxqy_B 
     815                 
     816                if(V_flag==0) 
     817                        AppendtoGraph/W=$winNameStr iBin_qxqy_B vs qBin_qxqy_B 
     818                        ModifyGraph/W=$winNameStr mode=4 
     819                        ModifyGraph/W=$winNameStr marker=19 
     820                        ModifyGraph/W=$winNameStr rgb(iBin_qxqy_B)=(1,52428,52428) 
     821                        ModifyGraph/W=$winNameStr msize=2 
     822                        ModifyGraph/W=$winNameStr grid=1 
     823                        ModifyGraph/W=$winNameStr log=1 
     824                        ModifyGraph/W=$winNameStr mirror=2 
    813825                endif 
     826                 
     827//              ClearAllIQIfDisplayed("B") 
     828//              SetDataFolder $("root:Packages:NIST:VSANS:"+type)        
     829//              CheckDisplayed/W=V_1D_Data iBin_qxqy_B 
     830//               
     831//              if(V_flag==0) 
     832//                      AppendtoGraph/W=V_1D_Data iBin_qxqy_B vs qBin_qxqy_B 
     833//                      ModifyGraph/W=V_1D_Data mode=4 
     834//                      ModifyGraph/W=V_1D_Data marker=19 
     835//                      ModifyGraph/W=V_1D_Data rgb(iBin_qxqy_B)=(1,52428,52428) 
     836//                      ModifyGraph/W=V_1D_Data msize=2 
     837//                      ModifyGraph/W=V_1D_Data grid=1 
     838//                      ModifyGraph/W=V_1D_Data log=1 
     839//                      ModifyGraph/W=V_1D_Data mirror=2 
     840//              endif 
     841                 
    814842        endif 
    815843 
     
    817845        if(binType==4) 
    818846         
    819                 ClearAllIQIfDisplayed("B") 
     847                ClearAllIQIfDisplayed("B",winNameStr) 
    820848                SetDataFolder $("root:Packages:NIST:VSANS:"+type)        
    821                 CheckDisplayed/W=V_1D_Data iBin_qxqy_B 
    822                  
    823                 if(V_flag==0) 
    824                         AppendtoGraph/W=V_1D_Data iBin_qxqy_B vs qBin_qxqy_B 
    825                         ModifyGraph/W=V_1D_Data mode=4 
    826                         ModifyGraph/W=V_1D_Data marker=19 
    827                         ModifyGraph/W=V_1D_Data rgb(iBin_qxqy_B)=(1,52428,52428) 
    828                         ModifyGraph/W=V_1D_Data msize=2 
    829                         ModifyGraph/W=V_1D_Data grid=1 
    830                         ModifyGraph/W=V_1D_Data log=1 
    831                         ModifyGraph/W=V_1D_Data mirror=2 
     849                CheckDisplayed/W=$winNameStr iBin_qxqy_B 
     850                 
     851                if(V_flag==0) 
     852                        AppendtoGraph/W=$winNameStr iBin_qxqy_B vs qBin_qxqy_B 
     853                        ModifyGraph/W=$winNameStr mode=4 
     854                        ModifyGraph/W=$winNameStr marker=19 
     855                        ModifyGraph/W=$winNameStr rgb(iBin_qxqy_B)=(1,52428,52428) 
     856                        ModifyGraph/W=$winNameStr msize=2 
     857                        ModifyGraph/W=$winNameStr grid=1 
     858                        ModifyGraph/W=$winNameStr log=1 
     859                        ModifyGraph/W=$winNameStr mirror=2 
    832860                endif 
    833861        endif 
  • sans/Dev/trunk/NCNR_User_Procedures/Reduction/VSANS/V_IQ_Utilities.ipf

    r1027 r1030  
    55// 
    66// Operation does no scaling, only the basic (default) trim of the ends, concatenate, sort, and save 
    7 // -- if data has been converted to WORK and hte solid angle correction was done, then the data 
     7// -- if data has been converted to WORK and the solid angle correction was done, then the data 
    88//   is per unit solid angle, and matches up - at least the simulated data does... 
     9//   It should match up in real VSANS data since the flux conditions are identical for 
     10//   all panels, only the geometry is different. 
    911// 
    1012// 
     
    360362// -- resolution waves are ignored, since they don't exist (yet) 
    361363// -- only a sort is done, no rescaling of data sets 
    362 //    (it's too late now anyways, since the data was concatenated 
     364//    (it's too late now anyways, since the data was concatenated) 
    363365// 
    364366// see Auto_Sort() in the SANS Automation ipf for the rest of the details of 
  • sans/Dev/trunk/NCNR_User_Procedures/Reduction/VSANS/V_Protocol_Reduction.ipf

    r1027 r1030  
    10711071Proc V_PickAProtocol(protocol) 
    10721072        String Protocol 
    1073         Prompt Protocol "Pick A Protocol",popup, WaveList("*",";","") 
     1073        Prompt Protocol "Pick A Protocol",popup, WaveList("*",";","TEXT:1") 
    10741074         
    10751075        String/G  root:Packages:NIST:VSANS:Globals:Protocols:gProtoStr = protocol 
     
    10781078Proc V_DeleteAProtocol(protocol) 
    10791079        String Protocol 
    1080 //      Prompt Protocol "Delete A Protocol",popup, WaveList("*",";","") 
     1080//      Prompt Protocol "Delete A Protocol",popup, WaveList("*",";","TEXT:1") 
    10811081        Prompt Protocol "Delete A Protocol",popup, V_DeletableProtocols() 
    10821082 
     
    10851085 
    10861086Function/S V_DeletableProtocols() 
    1087         String list=WaveList("*",";","") 
     1087        String list=WaveList("*",";","TEXT:1") 
    10881088 
    10891089        list= RemoveFromList("Base", list  , ";") 
     
    20162016// TODO: 
    20172017// x- "B" detector is currently skipped - Q is not yet calculated 
    2018         String str 
    2019         sprintf str,"(\"%s\",%d)",activeType,binType 
     2018 
     2019        String str,winStr="V_1D_Data" 
     2020        sprintf str,"(\"%s\",%d,\"%s\")",activeType,binType,winStr 
     2021 
    20202022         
    20212023        Execute ("V_Back_IQ_Graph"+str) 
Note: See TracChangeset for help on using the changeset viewer.