Changeset 974 for sans/XOP_Dev/MonteCarlo/MonteCarlo.r

Timestamp:

Jan 19, 2016 11:48:55 AM (7 years ago)

Author:

srkline

Message:

adding the function for the basic metropolis algorithm.

File:

• sans/XOP_Dev/MonteCarlo/MonteCarlo.r (modified) (2 diffs)

sans/XOP_Dev/MonteCarlo/MonteCarlo.r

@@ -4 +4 @@
         0x01, 0x00, final, 0x00, 0,                             /* version bytes and country integer */
         "1.00",
-        "1.00, © 1993 WaveMetrics, Inc., all rights reserved."
+        "1.00, ￜ 1993 WaveMetrics, Inc., all rights reserved."
 };
 
@@ -155 +155 @@
                         NT_FP64,                                                // stop index
                 },
-                
+        
+                "MetropolisX",          /* function name */
+                F_UTIL | F_THREADSAFE | F_EXTERNAL,                                     /* function category == UTILITY */
+                NT_FP64,                                                        /* return value type */                 
+                {
+                        NT_FP64 + WAVE_TYPE,                    // UofR
+                        NT_FP64 + WAVE_TYPE,                    // XYZ waves
+                        NT_FP64 + WAVE_TYPE,
+                        NT_FP64 + WAVE_TYPE,
+                        NT_FP64 + WAVE_TYPE,                    // energy wave
+                        NT_FP64,                                                // radius
+                        NT_FP64,                                                // tVox
+                        NT_FP64,                                                // nVox
+                        NT_FP64,                                                // nIterations
+                        NT_FP64,                                                // gCount
+                },
         }
 };