Changeset 130 for sans/Analysis/branches/ajj_23APR07/IGOR_Package_Files/Put in User Procedures/SANS_Models_v3.00/NewModels_2006/SchulzSpheres_and_Struct.ipf

Timestamp:

Jul 26, 2007 9:51:43 AM (16 years ago)

Author:

srkline

Message:

-Fixed RPA and HPMSA functions to be up-to-date and use data folders properly for the smeared calculations.

-Changed the coef/param naming scheme for RPA to be consistent with all other models.

-SANSModelPicker now finds Smeared Plot Procs with the correct number of parameters to populate the menus

File:

• sans/Analysis/branches/ajj_23APR07/IGOR_Package_Files/Put in User Procedures/SANS_Models_v3.00/NewModels_2006/SchulzSpheres_and_Struct.ipf (modified) (2 diffs)

sans/Analysis/branches/ajj_23APR07/IGOR_Package_Files/Put in User Procedures/SANS_Models_v3.00/NewModels_2006/SchulzSpheres_and_Struct.ipf

@@ -222 +222 @@
         Prompt qmax "Enter maximum q-value (^-1) for model: "
         
-        if (DataFolderExists("root:HayPenMSA"))
-                Make/O/D/N=17 root:HayPenMSA:gMSAWave
-        else
-                NewDataFolder root:HayPenMSA
-                Make/O/D/N=17 root:HayPenMSA:gMSAWave
+        if(!DataFolderExists(":HayPenMSA"))
+                NewDataFolder :HayPenMSA
         endif
+        Make/O/D/N=17 :HayPenMSA:gMSAWave
 
         Make/O/D/N=(num) xwave_sch_SC,ywave_sch_SC
@@ -256 +254 @@
         SetDataFolder $("root:"+str)
         
-        if (DataFolderExists("root:HayPenMSA"))
-                Make/O/D/N=17 root:HayPenMSA:gMSAWave
-        else
-                NewDataFolder root:HayPenMSA
-                Make/O/D/N=17 root:HayPenMSA:gMSAWave
+        if(!DataFolderExists(":HayPenMSA"))
+                NewDataFolder :HayPenMSA
         endif
+        Make/O/D/N=17 :HayPenMSA:gMSAWave
         
         // Setup parameter table for model function