Ignore:
Timestamp:
Apr 24, 2017 2:04:29 PM (6 years ago)
Author:
srkline
Message:

Adding utilities to calculate transmission. Added V_Transmission.ipf file. Getting the functionality to work, user interface or incorporation into the data reduction protocol is still to be decided.

File:
1 edited

Legend:

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

    r1027 r1033  
    387387         
    388388        return outputPath 
     389End 
     390 
     391 
     392 
     393// 
     394// this will only load the data into RAW, overwriting whatever is there. no copy is put in rawVSANS 
     395// 
     396Function V_LoadAndPlotRAW_wName(fname) 
     397        String fname 
     398 
     399        Variable err=   V_LoadHDF5Data(fname,"RAW")                     // load the data  
     400//      Print "Load err = "+num2str(err) 
     401        if(!err) 
     402                SVAR hdfDF = root:file_name                     // last file loaded, may not be the safest way to pass 
     403                String folder = StringFromList(0,hdfDF,".") 
     404                 
     405                // this (in SANS) just passes directly to fRawWindowHook() 
     406                V_UpdateDisplayInformation("RAW")               // plot the data in whatever folder type 
     407                                 
     408                // set the global to display ONLY if the load was called from here, not from the  
     409                // other routines that load data (to read in values) 
     410                SVAR gLastFile =        root:Packages:NIST:VSANS:Globals:gLastLoadedFile 
     411                gLastFile = hdfDF 
     412        endif 
    389413End 
    390414 
     
    11201144End 
    11211145 
     1146//********************* 
     1147// List utilities 
     1148//********************* 
     1149Function/WAVE V_List2TextWave(list,sep,waveStr) 
     1150        String list,sep,waveStr 
     1151         
     1152        Variable n= ItemsInList(list,sep) 
     1153        Make/O/T/N=(n) $waveStr= StringFromList(p,list,sep) 
     1154        return $waveStr 
     1155End 
     1156 
     1157Function/WAVE V_List2NumWave(list,sep,waveStr) 
     1158        String list,sep,waveStr 
     1159         
     1160        Variable n= ItemsInList(list,sep) 
     1161        Make/O/D/N=(n) $waveStr= str2num( StringFromList(p,list,sep) ) 
     1162        return $waveStr 
     1163End 
     1164 
     1165Function /S V_TextWave2List(w,sep) 
     1166        Wave/T w 
     1167        String sep 
     1168         
     1169        String newList="" 
     1170        Variable n=numpnts(w),ii=0 
     1171        do 
     1172                newList += w[ii] + sep 
     1173                ii+=1 
     1174        while(ii<n) 
     1175        return(newList) 
     1176End 
     1177 
     1178//for numerical waves 
     1179Function/S V_NumWave2List(w,sep) 
     1180        Wave w 
     1181        String sep 
     1182         
     1183        String newList="",temp="" 
     1184        Variable n=numpnts(w),ii=0,val 
     1185        do 
     1186                val=w[ii] 
     1187                temp="" 
     1188                sprintf temp,"%g",val 
     1189                newList += temp 
     1190                newList += sep 
     1191                ii+=1 
     1192        while(ii<n) 
     1193        return(newList) 
     1194End 
Note: See TracChangeset for help on using the changeset viewer.