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

Timestamp:

Oct 18, 2012 11:36:06 AM (10 years ago)

Author:

srkline

Message:

added tic/toc to the SANS_Utilities for quick timing tests

File:

• sans/Dev/trunk/NCNR_User_Procedures/Reduction/SANS/SANS_Utilities.ipf (modified) (1 diff)

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

@@ -18 +18 @@
 // 29MAR07 SRK
 //
+
+/////
+// @ IgorExchange
+//TicToc
+//Posted April 16th, 2009 by bgallarda
+//      ¥       in Programming 6.10.x
+        
+function tic()
+        variable/G tictoc = startMSTimer
+end
+ 
+function toc()
+        NVAR/Z tictoc
+        variable ttTime = stopMSTimer(tictoc)
+        printf "%g seconds\r", (ttTime/1e6)
+        killvariables/Z tictoc
+end
+
+
+Function testTicToc()
+ 
+        tic()
+        variable i
+        For(i=0;i<10000;i+=1)
+                make/O/N=512 temp = gnoise(2)
+                FFT temp
+        Endfor
+        killwaves/z temp
+        toc()
+End