Changeset 1115 for sans/Dev/trunk/NCNR_User_Procedures/Reduction/SANS

Timestamp:

Sep 13, 2018 2:03:34 PM (5 years ago)

Author:

srkline

Message:

attempting to put the zip file of the package in some accessible location since webster has been cut off.

Location:

sans/Dev/trunk/NCNR_User_Procedures/Reduction/SANS

Files:

• EventModeProcessing.ipf (modified) (1 diff)
• Menu.ipf (modified) (1 diff)

sans/Dev/trunk/NCNR_User_Procedures/Reduction/SANS/EventModeProcessing.ipf

@@ -4349 +4349 @@
         
 End
+
+
+
+Proc InsertTimeReset(period)
+        Variable period
+        
+        fInsertTimeReset(period)
+End
+
+
+//
+// for event data where a time reset signal was not sent, but the data is
+// actually periodic. This function will reset the time at the input period.
+// This assumes that you accurately know the period, and that the start time
+// of the data coincides with the start time of the period, otherwise the 
+// time reset will happen in the middle of the cycle.
+//
+// period = period of reset (s)
+//
+Function fInsertTimeReset(period)
+        Variable period
+        
+        SetDataFolder root:Packages:NIST:Event:
+        
+        Wave rescaledTime = rescaledTime
+        Wave timePt = timePt
+        Variable rollTime,rollTicks,ii,delta
+        
+        Variable period_ticks
+        
+        period_ticks = period*1e7               //period in ticks
+        
+
+        for(ii=0;ii<numpnts(rescaledTime)-1;ii+=1)
+                if(rescaledTime[ii] > period)
+                        MultiThread timePt[ii,] -= period_ticks
+                        MultiThread rescaledTime[ii,] -= period
+                endif
+        endfor
+
+// updates the longest time (as does every operation of adjusting the data)
+        NVAR t_longest = root:Packages:NIST:Event:gEvent_t_longest
+        t_longest = waveMax(rescaledTime)
+        SetDataFolder root:
+
+        return(0)
+End
+

sans/Dev/trunk/NCNR_User_Procedures/Reduction/SANS/Menu.ipf

@@ -55 +55 @@
                 "Add Current Slice",AccumulateSlices(1)
                 "Display Accumulated Slices",AccumulateSlices(2)        
+                "-"
+                "Insert Time Reset",InsertTimeReset()
         End
         "-"