Changeset 130


Ignore:
Timestamp:
Jul 26, 2007 9:51:43 AM (15 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

Location:
sans/Analysis/branches/ajj_23APR07/IGOR_Package_Files/Put in User Procedures/SANS_Models_v3.00
Files:
16 edited

Legend:

Unmodified
Added
Removed
  • sans/Analysis/branches/ajj_23APR07/IGOR_Package_Files/Put in User Procedures/SANS_Models_v3.00/CoreShell_and_Struct.ipf

    r127 r130  
    206206        Prompt qmax "Enter maximum q-value (^-1) for model: " 
    207207         
    208         if (DataFolderExists("root:HayPenMSA")) 
    209                 Make/O/D/N=17 root:HayPenMSA:gMSAWave 
    210         else 
    211                 NewDataFolder root:HayPenMSA 
    212                 Make/O/D/N=17 root:HayPenMSA:gMSAWave 
     208        if(!DataFolderExists(":HayPenMSA")) 
     209                NewDataFolder :HayPenMSA 
    213210        endif 
     211        Make/O/D/N=17 :HayPenMSA:gMSAWave 
    214212         
    215213        Make/O/D/n=(num) xwave_CSS_SC,ywave_CSS_SC 
     
    241239        SetDataFolder $("root:"+str) 
    242240         
    243         if (DataFolderExists("root:HayPenMSA")) 
    244                 Make/O/D/N=17 root:HayPenMSA:gMSAWave 
    245         else 
    246                 NewDataFolder root:HayPenMSA 
    247                 Make/O/D/N=17 root:HayPenMSA:gMSAWave 
     241        if(!DataFolderExists(":HayPenMSA")) 
     242                NewDataFolder :HayPenMSA 
    248243        endif 
     244        Make/O/D/N=17 :HayPenMSA:gMSAWave 
    249245         
    250246        // Setup parameter table for model function 
  • sans/Analysis/branches/ajj_23APR07/IGOR_Package_Files/Put in User Procedures/SANS_Models_v3.00/Cylinder_and_Struct.ipf

    r127 r130  
    203203        Prompt qmax "Enter maximum q-value (^-1) for model: " 
    204204         
    205         if (DataFolderExists("root:HayPenMSA")) 
    206                 Make/O/D/N=17 root:HayPenMSA:gMSAWave 
    207         else 
    208                 NewDataFolder root:HayPenMSA 
    209                 Make/O/D/N=17 root:HayPenMSA:gMSAWave 
     205        if(!DataFolderExists(":HayPenMSA")) 
     206                NewDataFolder :HayPenMSA 
    210207        endif 
     208        Make/O/D/N=17 :HayPenMSA:gMSAWave 
    211209         
    212210        Make/O/D/n=(num) xwave_CYL_SC,ywave_CYL_SC 
     
    238236        SetDataFolder $("root:"+str) 
    239237         
    240         if (DataFolderExists("root:HayPenMSA")) 
    241                 Make/O/D/N=17 root:HayPenMSA:gMSAWave 
    242         else 
    243                 NewDataFolder root:HayPenMSA 
    244                 Make/O/D/N=17 root:HayPenMSA:gMSAWave 
     238        if(!DataFolderExists(":HayPenMSA")) 
     239                NewDataFolder :HayPenMSA 
    245240        endif 
     241        Make/O/D/N=17 :HayPenMSA:gMSAWave 
    246242         
    247243        // Setup parameter table for model function 
  • sans/Analysis/branches/ajj_23APR07/IGOR_Package_Files/Put in User Procedures/SANS_Models_v3.00/HPMSA.ipf

    r127 r130  
    22#pragma IgorVersion = 6.0 
    33 
    4 // converted to Igor code by Paul Butler 
     4// converted from John Hayter's Fortran to Igor code by Paul Butler 
    55// 
    66Proc PlotHayterPenfoldMSA(num,qmin,qmax) 
     
    1010        Prompt qmin "Enter minimum q-value (A^-1) for model: " 
    1111 
    12         //                       Set up data folder for global variables 
    13         string SaveDF=GetDataFolder(1) 
    14         if (DataFolderExists("root:HayPenMSA")) 
    15                 SetDataFolder root:HayPenMSA 
    16         else 
    17                 NewDataFolder/S root:HayPenMSA 
    18         endif 
    19         //variable/G a,b,c,f,eta,gek,ak,u,v,gamk,seta,sgek,sak,scal,g1, fval, evar 
    20         Make/O/D/N=17 gMSAWave 
    21         SetDataFolder SaveDF 
     12        //      Set up data folder for global variables 
     13        if(!DataFolderExists("root:HayPenMSA")) 
     14                NewDataFolder root:HayPenMSA 
     15        endif 
     16        Make/O/D/N=17 root:HayPenMSA:gMSAWave 
    2217        // 
    2318        make/o/d/n=(num) xwave_hpmsa, ywave_hpmsa, xdiamwave_hpmsa       
     
    2621        make/o/t parameters_hpmsa = {"Diameter (A)","Charge","Volume Fraction","Temperature(K)","monovalent salt conc. (M)","dielectric constant of solvent"} 
    2722        Edit parameters_hpmsa,coef_hpmsa 
    28         Variable/G root:g_HPMSA 
     23        Variable/G root:g_hpmsa 
    2924        g_hpmsa := HayterPenfoldMSA(coef_hpmsa,ywave_hpmsa,xwave_hpmsa) 
    3025//      ywave_hpmsa := HayterPenfoldMSA(coef_hpmsa,xwave_hpmsa) 
  • sans/Analysis/branches/ajj_23APR07/IGOR_Package_Files/Put in User Procedures/SANS_Models_v3.00/NewModels_2006/GaussSpheres_and_Struct.ipf

    r128 r130  
    219219        Prompt qmax "Enter maximum q-value (^-1) for model: " 
    220220         
    221         if (DataFolderExists("root:HayPenMSA")) 
    222                 Make/O/D/N=17 root:HayPenMSA:gMSAWave 
    223         else 
    224                 NewDataFolder root:HayPenMSA 
    225                 Make/O/D/N=17 root:HayPenMSA:gMSAWave 
     221        if(!DataFolderExists(":HayPenMSA")) 
     222                NewDataFolder :HayPenMSA 
    226223        endif 
     224        Make/O/D/N=17 :HayPenMSA:gMSAWave 
    227225 
    228226        Make/O/D/N=(num) xwave_pgs_SC,ywave_pgs_SC 
     
    253251        SetDataFolder $("root:"+str) 
    254252         
    255         if (DataFolderExists("root:HayPenMSA")) 
    256                 Make/O/D/N=17 root:HayPenMSA:gMSAWave 
    257         else 
    258                 NewDataFolder root:HayPenMSA 
    259                 Make/O/D/N=17 root:HayPenMSA:gMSAWave 
     253        if(!DataFolderExists(":HayPenMSA")) 
     254                NewDataFolder :HayPenMSA 
    260255        endif 
     256        Make/O/D/N=17 :HayPenMSA:gMSAWave 
    261257         
    262258        // Setup parameter table for model function 
  • sans/Analysis/branches/ajj_23APR07/IGOR_Package_Files/Put in User Procedures/SANS_Models_v3.00/NewModels_2006/LogNormSpheres_and_Struct.ipf

    r128 r130  
    218218        Prompt qmax "Enter maximum q-value (^-1) for model: " 
    219219         
    220         if (DataFolderExists("root:HayPenMSA")) 
    221                 Make/O/D/N=17 root:HayPenMSA:gMSAWave 
    222         else 
    223                 NewDataFolder root:HayPenMSA 
    224                 Make/O/D/N=17 root:HayPenMSA:gMSAWave 
     220        if(!DataFolderExists(":HayPenMSA")) 
     221                NewDataFolder :HayPenMSA 
    225222        endif 
     223        Make/O/D/N=17 :HayPenMSA:gMSAWave 
    226224 
    227225        Make/O/D/N=(num) xwave_lns_SC,ywave_lns_SC 
     
    252250        SetDataFolder $("root:"+str) 
    253251         
    254         if (DataFolderExists("root:HayPenMSA")) 
    255                 Make/O/D/N=17 root:HayPenMSA:gMSAWave 
    256         else 
    257                 NewDataFolder root:HayPenMSA 
    258                 Make/O/D/N=17 root:HayPenMSA:gMSAWave 
     252        if(!DataFolderExists(":HayPenMSA")) 
     253                NewDataFolder :HayPenMSA 
    259254        endif 
     255        Make/O/D/N=17 :HayPenMSA:gMSAWave 
    260256         
    261257        // Setup parameter table for model function 
  • sans/Analysis/branches/ajj_23APR07/IGOR_Package_Files/Put in User Procedures/SANS_Models_v3.00/NewModels_2006/SchulzSpheres_and_Struct.ipf

    r129 r130  
    222222        Prompt qmax "Enter maximum q-value (^-1) for model: " 
    223223         
    224         if (DataFolderExists("root:HayPenMSA")) 
    225                 Make/O/D/N=17 root:HayPenMSA:gMSAWave 
    226         else 
    227                 NewDataFolder root:HayPenMSA 
    228                 Make/O/D/N=17 root:HayPenMSA:gMSAWave 
     224        if(!DataFolderExists(":HayPenMSA")) 
     225                NewDataFolder :HayPenMSA 
    229226        endif 
     227        Make/O/D/N=17 :HayPenMSA:gMSAWave 
    230228 
    231229        Make/O/D/N=(num) xwave_sch_SC,ywave_sch_SC 
     
    256254        SetDataFolder $("root:"+str) 
    257255         
    258         if (DataFolderExists("root:HayPenMSA")) 
    259                 Make/O/D/N=17 root:HayPenMSA:gMSAWave 
    260         else 
    261                 NewDataFolder root:HayPenMSA 
    262                 Make/O/D/N=17 root:HayPenMSA:gMSAWave 
     256        if(!DataFolderExists(":HayPenMSA")) 
     257                NewDataFolder :HayPenMSA 
    263258        endif 
     259        Make/O/D/N=17 :HayPenMSA:gMSAWave 
    264260         
    265261        // Setup parameter table for model function 
  • sans/Analysis/branches/ajj_23APR07/IGOR_Package_Files/Put in User Procedures/SANS_Models_v3.00/NewModels_2006/Vesicle_UL_and_Struct.ipf

    r128 r130  
    233233        Prompt qmax "Enter maximum q-value (^-1) for model: " 
    234234         
    235         if (DataFolderExists("root:HayPenMSA")) 
    236                 Make/O/D/N=17 root:HayPenMSA:gMSAWave 
    237         else 
    238                 NewDataFolder root:HayPenMSA 
    239                 Make/O/D/N=17 root:HayPenMSA:gMSAWave 
     235        if(!DataFolderExists(":HayPenMSA")) 
     236                NewDataFolder :HayPenMSA 
    240237        endif 
     238        Make/O/D/N=17 :HayPenMSA:gMSAWave 
    241239         
    242240        /// 
     
    269267        SetDataFolder $("root:"+str) 
    270268         
    271         if (DataFolderExists("root:HayPenMSA")) 
    272                 Make/O/D/N=17 root:HayPenMSA:gMSAWave 
    273         else 
    274                 NewDataFolder root:HayPenMSA 
    275                 Make/O/D/N=17 root:HayPenMSA:gMSAWave 
     269        if(!DataFolderExists(":HayPenMSA")) 
     270                NewDataFolder :HayPenMSA 
    276271        endif 
     272        Make/O/D/N=17 :HayPenMSA:gMSAWave 
    277273         
    278274        // Setup parameter table for model function 
  • sans/Analysis/branches/ajj_23APR07/IGOR_Package_Files/Put in User Procedures/SANS_Models_v3.00/OblateCS_and_Struct.ipf

    r127 r130  
    210210        Prompt qmax "Enter maximum q-value (^-1) for model: " 
    211211         
    212         if (DataFolderExists("root:HayPenMSA")) 
    213                 Make/O/D/N=17 root:HayPenMSA:gMSAWave 
    214         else 
    215                 NewDataFolder root:HayPenMSA 
    216                 Make/O/D/N=17 root:HayPenMSA:gMSAWave 
     212        if(!DataFolderExists(":HayPenMSA")) 
     213                NewDataFolder :HayPenMSA 
    217214        endif 
     215        Make/O/D/N=17 :HayPenMSA:gMSAWave 
    218216         
    219217        Make/O/D/n=(num) xwave_OEF_SC,ywave_OEF_SC 
     
    245243        SetDataFolder $("root:"+str) 
    246244         
    247         if (DataFolderExists("root:HayPenMSA")) 
    248                 Make/O/D/N=17 root:HayPenMSA:gMSAWave 
    249         else 
    250                 NewDataFolder root:HayPenMSA 
    251                 Make/O/D/N=17 root:HayPenMSA:gMSAWave 
     245        if(!DataFolderExists(":HayPenMSA")) 
     246                NewDataFolder :HayPenMSA 
    252247        endif 
     248        Make/O/D/N=17 :HayPenMSA:gMSAWave 
    253249         
    254250        // Setup parameter table for model function 
  • sans/Analysis/branches/ajj_23APR07/IGOR_Package_Files/Put in User Procedures/SANS_Models_v3.00/Packages/ModelPicker/SANSModelPicker.ipf

    r42 r130  
    604604 
    605605        list="" 
    606         list += MacroList("PlotSmea*",sep,"KIND:1,NPARAMS:0")                   //smeared plot procedures 
    607         list += MacroList("PlotSmea*",sep,"KIND:1,NPARAMS:1")                   //smeared RPA has 1 parameter 
     606        list += MacroList("PlotSmea*",sep,"KIND:1,NPARAMS:1")                   //smeared plot procedures 
     607        list += MacroList("PlotSmea*",sep,"KIND:1,NPARAMS:2")                   //smeared RPA has 2 parameters 
    608608        String/G root:FileList:MenuItemStr2 = TrimListTo255(list) 
    609609 
  • sans/Analysis/branches/ajj_23APR07/IGOR_Package_Files/Put in User Procedures/SANS_Models_v3.00/PolyCSRatio_and_Struct.ipf

    r127 r130  
    228228        Prompt qmax "Enter maximum q-value (^-1) for model: " 
    229229         
    230         if (DataFolderExists("root:HayPenMSA")) 
    231                 Make/O/D/N=17 root:HayPenMSA:gMSAWave 
    232         else 
    233                 NewDataFolder root:HayPenMSA 
    234                 Make/O/D/N=17 root:HayPenMSA:gMSAWave 
     230        if(!DataFolderExists(":HayPenMSA")) 
     231                NewDataFolder :HayPenMSA 
    235232        endif 
     233        Make/O/D/N=17 :HayPenMSA:gMSAWave 
    236234         
    237235        Make/O/D/n=(num) xwave_PCR_SC,ywave_PCR_SC 
     
    263261        SetDataFolder $("root:"+str) 
    264262         
    265         if (DataFolderExists("root:HayPenMSA")) 
    266                 Make/O/D/N=17 root:HayPenMSA:gMSAWave 
    267         else 
    268                 NewDataFolder root:HayPenMSA 
    269                 Make/O/D/N=17 root:HayPenMSA:gMSAWave 
     263        if(!DataFolderExists(":HayPenMSA")) 
     264                NewDataFolder :HayPenMSA 
    270265        endif 
     266        Make/O/D/N=17 :HayPenMSA:gMSAWave 
    271267         
    272268        // Setup parameter table for model function 
  • sans/Analysis/branches/ajj_23APR07/IGOR_Package_Files/Put in User Procedures/SANS_Models_v3.00/PolyCore_and_Struct.ipf

    r127 r130  
    229229        Prompt qmax "Enter maximum q-value (^-1) for model: " 
    230230         
    231         if (DataFolderExists("root:HayPenMSA")) 
    232                 Make/O/D/N=17 root:HayPenMSA:gMSAWave 
    233         else 
    234                 NewDataFolder root:HayPenMSA 
    235                 Make/O/D/N=17 root:HayPenMSA:gMSAWave 
     231        if(!DataFolderExists(":HayPenMSA")) 
     232                NewDataFolder :HayPenMSA 
    236233        endif 
     234        Make/O/D/N=17 :HayPenMSA:gMSAWave 
    237235         
    238236        Make/O/D/n=(num) xwave_PCF_SC,ywave_PCF_SC 
     
    264262        SetDataFolder $("root:"+str) 
    265263         
    266         if (DataFolderExists("root:HayPenMSA")) 
    267                 Make/O/D/N=17 root:HayPenMSA:gMSAWave 
    268         else 
    269                 NewDataFolder root:HayPenMSA 
    270                 Make/O/D/N=17 root:HayPenMSA:gMSAWave 
     264        if(!DataFolderExists(":HayPenMSA")) 
     265                NewDataFolder :HayPenMSA 
    271266        endif 
     267        Make/O/D/N=17 :HayPenMSA:gMSAWave 
    272268         
    273269        // Setup parameter table for model function 
  • sans/Analysis/branches/ajj_23APR07/IGOR_Package_Files/Put in User Procedures/SANS_Models_v3.00/PolyRectSphere_and_Struct.ipf

    r127 r130  
    220220        Prompt qmax "Enter maximum q-value (^-1) for model: " 
    221221         
    222         if (DataFolderExists("root:HayPenMSA")) 
    223                 Make/O/D/N=17 root:HayPenMSA:gMSAWave 
    224         else 
    225                 NewDataFolder root:HayPenMSA 
    226                 Make/O/D/N=17 root:HayPenMSA:gMSAWave 
     222        if(!DataFolderExists(":HayPenMSA")) 
     223                NewDataFolder :HayPenMSA 
    227224        endif 
     225        Make/O/D/N=17 :HayPenMSA:gMSAWave 
    228226         
    229227        Make/O/D/n=(num) xwave_RECT_SC,ywave_RECT_SC 
     
    255253        SetDataFolder $("root:"+str) 
    256254         
    257         if (DataFolderExists("root:HayPenMSA")) 
    258                 Make/O/D/N=17 root:HayPenMSA:gMSAWave 
    259         else 
    260                 NewDataFolder root:HayPenMSA 
    261                 Make/O/D/N=17 root:HayPenMSA:gMSAWave 
     255        if(!DataFolderExists(":HayPenMSA")) 
     256                NewDataFolder :HayPenMSA 
    262257        endif 
     258        Make/O/D/N=17 :HayPenMSA:gMSAWave 
    263259         
    264260        // Setup parameter table for model function 
  • sans/Analysis/branches/ajj_23APR07/IGOR_Package_Files/Put in User Procedures/SANS_Models_v3.00/ProlateCS_and_Struct.ipf

    r127 r130  
    209209        Prompt qmax "Enter maximum q-value (^-1) for model: " 
    210210         
    211         if (DataFolderExists("root:HayPenMSA")) 
    212                 Make/O/D/N=17 root:HayPenMSA:gMSAWave 
    213         else 
    214                 NewDataFolder root:HayPenMSA 
    215                 Make/O/D/N=17 root:HayPenMSA:gMSAWave 
     211        if(!DataFolderExists(":HayPenMSA")) 
     212                NewDataFolder :HayPenMSA 
    216213        endif 
     214        Make/O/D/N=17 :HayPenMSA:gMSAWave 
    217215         
    218216        Make/O/D/n=(num) xwave_PEF_SC,ywave_PEF_SC 
     
    244242        SetDataFolder $("root:"+str) 
    245243         
    246         if (DataFolderExists("root:HayPenMSA")) 
    247                 Make/O/D/N=17 root:HayPenMSA:gMSAWave 
    248         else 
    249                 NewDataFolder root:HayPenMSA 
    250                 Make/O/D/N=17 root:HayPenMSA:gMSAWave 
     244        if(!DataFolderExists(":HayPenMSA")) 
     245                NewDataFolder :HayPenMSA 
    251246        endif 
     247        Make/O/D/N=17 :HayPenMSA:gMSAWave 
    252248         
    253249        // Setup parameter table for model function 
  • sans/Analysis/branches/ajj_23APR07/IGOR_Package_Files/Put in User Procedures/SANS_Models_v3.00/SmearedRPA.ipf

    r127 r130  
    55// wave that must be carried into the function. 
    66// this can be done with the STRUCT, if extra space is allocated for such 
    7 // 
    8 // in addition, the inputvalues, coefvalues_rpa names are not consistent with other models 
    9 // - it would be nice for users to make all models have a consistent naming scheme 
    107// 
    118// 
     
    4037                make/o/t inputnames={"Deg. Polym. Nc","Vol. Frac. Phic","Spec. Vol. Vc","Scatt. Length Lc","Deg. Polym. Nd","Vol. Frac. Phid","Spec. Vol. Vd","Scatt. LengthLd"} 
    4138                Edit inputnames,inputvalues 
    42                 Make/O/D coefvalues_rpa = {5,5,-.0004,1,0} 
    43                 make/o/t coefnames_rpa = {"Seg. Length bc","Seg. Length bd","Chi Param. Kcd","scale","Background"} 
    44                 Edit coefnames_rpa,coefvalues_rpa 
     39                Make/O/D coef_rpa = {5,5,-.0004,1,0} 
     40                make/o/t parameters_rpa = {"Seg. Length bc","Seg. Length bd","Chi Param. Kcd","scale","Background"} 
     41                Edit parameters_rpa,coef_rpa 
    4542        ENDIF 
    4643 
     
    4946                make/o/t inputnames={"Deg. Polym. Nb","Vol. Frac. Phib","Spec. Vol. Vb","Scatt. Length Lb","Deg. Polym. Nc","Vol. Frac. Phic","Spec. Vol. Vc","Scatt. Length Lc","Deg. Polym. Nd","Vol. Frac. Phid","Spec. Vol. Vd","Scatt. Length Ld"} 
    5047                Edit inputnames,inputvalues 
    51                 Make/O/D coefvalues_rpa = {5,5,5,-.0004,-.0004,-.0004,1,0} 
    52                 make/o/t coefnames_rpa = {"Seg. Length bb","Seg. Length bc","Seg. Length bd","Chi Param. Kbc","Chi Param. Kbd","Chi Param. Kcd","scale","Background"} 
    53                 Edit coefnames_rpa,coefvalues_rpa 
     48                Make/O/D coef_rpa = {5,5,5,-.0004,-.0004,-.0004,1,0} 
     49                make/o/t parameters_rpa = {"Seg. Length bb","Seg. Length bc","Seg. Length bd","Chi Param. Kbc","Chi Param. Kbd","Chi Param. Kcd","scale","Background"} 
     50                Edit parameters_rpa,coef_rpa 
    5451        ENDIF 
    5552 
     
    5855                make/o/t inputnames={"Deg. Polym. Na","Vol. Frac. Phia","Spec. Vol. Va","Scatt. Length La","Deg. Polym. Nb","Vol. Frac. Phib","Spec. Vol. Vb","Scatt. Length Lb","Deg. Polym. Nc","Vol. Frac. Phic","Spec. Vol. Vc","Scatt. Length Lc","Deg. Polym. Nd","Vol. Frac. Phid","Spec. Vol. Vd","Scatt. Length Ld"} 
    5956                Edit inputnames,inputvalues 
    60                 Make/O/D coefvalues_rpa = {5,5,5,5,-.0004,-.0004,-.0004,-.0004,-.0004,-.0004,1,0} 
    61                 make/o/t coefnames_rpa = {"Seg. Length ba","Seg. Length bb","Seg. Length bc","Seg. Length bd","Chi Param. Kab","Chi Param. Kac","Chi Param. Kad","Chi Param. Kbc","Chi Param. Kbd","Chi Param. Kcd","scale","Background"} 
    62                 Edit coefnames_rpa,coefvalues_rpa 
    63         ENDIF 
    64          
    65         ywave_rpa := RPAForm(coefvalues_rpa,xwave_rpa) 
     57                Make/O/D coef_rpa = {5,5,5,5,-.0004,-.0004,-.0004,-.0004,-.0004,-.0004,1,0} 
     58                make/o/t parameters_rpa = {"Seg. Length ba","Seg. Length bb","Seg. Length bc","Seg. Length bd","Chi Param. Kab","Chi Param. Kac","Chi Param. Kad","Chi Param. Kbc","Chi Param. Kbd","Chi Param. Kcd","scale","Background"} 
     59                Edit parameters_rpa,coef_rpa 
     60        ENDIF 
     61         
     62        Variable/G root:g_rpa 
     63        g_rpa := RPAForm(coef_rpa,ywave_rpa,xwave_rpa) 
    6664        Display ywave_rpa vs xwave_rpa 
    6765//      ModifyGraph log=1,marker=29,msize=2,mode=4 
     
    104102                make/o/t inputnames={"Deg. Polym. Nc","Vol. Frac. Phic","Spec. Vol. Vc","Scatt. Length Lc","Deg. Polym. Nd","Vol. Frac. Phid","Spec. Vol. Vd","Scatt. LengthLd"} 
    105103                Edit inputnames,inputvalues 
    106                 Make/O/D smear_coefvalues_rpa = {5,5,-.0004,1,0} 
    107                 make/o/t smear_coefnames_rpa = {"Seg. Length bc","Seg. Length bd","Chi Param. Kcd","scale","Background"} 
    108                 Edit smear_coefnames_rpa,smear_coefvalues_rpa 
     104                Make/O/D smear_coef_rpa = {5,5,-.0004,1,0} 
     105                make/o/t smear_parameters_rpa = {"Seg. Length bc","Seg. Length bd","Chi Param. Kcd","scale","Background"} 
     106                Edit smear_parameters_rpa,smear_coef_rpa 
    109107        ENDIF 
    110108 
     
    113111                make/o/t inputnames={"Deg. Polym. Nb","Vol. Frac. Phib","Spec. Vol. Vb","Scatt. Length Lb","Deg. Polym. Nc","Vol. Frac. Phic","Spec. Vol. Vc","Scatt. Length Lc","Deg. Polym. Nd","Vol. Frac. Phid","Spec. Vol. Vd","Scatt. Length Ld"} 
    114112                Edit inputnames,inputvalues 
    115                 Make/O/D smear_coefvalues_rpa = {5,5,5,-.0004,-.0004,-.0004,1,0} 
    116                 make/o/t smear_coefnames_rpa = {"Seg. Length bb","Seg. Length bc","Seg. Length bd","Chi Param. Kbc","Chi Param. Kbd","Chi Param. Kcd","scale","Background"} 
    117                 Edit smear_coefnames_rpa,smear_coefvalues_rpa 
     113                Make/O/D smear_coef_rpa = {5,5,5,-.0004,-.0004,-.0004,1,0} 
     114                make/o/t smear_parameters_rpa = {"Seg. Length bb","Seg. Length bc","Seg. Length bd","Chi Param. Kbc","Chi Param. Kbd","Chi Param. Kcd","scale","Background"} 
     115                Edit smear_parameters_rpa,smear_coef_rpa 
    118116        ENDIF 
    119117 
     
    122120                make/o/t inputnames={"Deg. Polym. Na","Vol. Frac. Phia","Spec. Vol. Va","Scatt. Length La","Deg. Polym. Nb","Vol. Frac. Phib","Spec. Vol. Vb","Scatt. Length Lb","Deg. Polym. Nc","Vol. Frac. Phic","Spec. Vol. Vc","Scatt. Length Lc","Deg. Polym. Nd","Vol. Frac. Phid","Spec. Vol. Vd","Scatt. Length Ld"} 
    123121                Edit inputnames,inputvalues 
    124                 Make/O/D smear_coefvalues_rpa = {5,5,5,5,-.0004,-.0004,-.0004,-.0004,-.0004,-.0004,1,0} 
    125                 make/o/t smear_coefnames_rpa = {"Seg. Length ba","Seg. Length bb","Seg. Length bc","Seg. Length bd","Chi Param. Kab","Chi Param. Kac","Chi Param. Kad","Chi Param. Kbc","Chi Param. Kbd","Chi Param. Kcd","scale","Background"} 
    126                 Edit smear_coefnames_rpa,smear_coefvalues_rpa 
     122                Make/O/D smear_coef_rpa = {5,5,5,5,-.0004,-.0004,-.0004,-.0004,-.0004,-.0004,1,0} 
     123                make/o/t smear_parameters_rpa = {"Seg. Length ba","Seg. Length bb","Seg. Length bc","Seg. Length bd","Chi Param. Kab","Chi Param. Kac","Chi Param. Kad","Chi Param. Kbc","Chi Param. Kbd","Chi Param. Kcd","scale","Background"} 
     124                Edit smear_parameters_rpa,smear_coef_rpa 
    127125        ENDIF 
    128126         
     
    145143 
    146144/////////////////////////////////////////////////////////////// 
    147  
    148 Function RPAForm(w,x) : FitFunc 
     145//AAO version, uses XOP if available 
     146// simply calls the original single point calculation with 
     147// a wave assignment (this will behave nicely if given point ranges) 
     148Function RPAForm(cw,yw,xw) : FitFunc 
     149        Wave cw,yw,xw 
     150         
     151#if exists("RPAFormX") 
     152        yw = RPAFormX(cw,xw) 
     153#else 
     154        yw = fRPAForm(cw,xw) 
     155#endif 
     156        return(0) 
     157End 
     158 
     159 
     160Function fRPAForm(w,x) : FitFunc 
    149161        Wave w 
    150162        Variable x 
     163         
    151164        Wave var=$"inputvalues" 
    152165        Nvar lCASE=gCASE 
  • sans/Analysis/branches/ajj_23APR07/IGOR_Package_Files/Put in User Procedures/SANS_Models_v3.00/Sphere_and_Struct.ipf

    r127 r130  
    202202        Prompt qmax "Enter maximum q-value (^-1) for model: " 
    203203         
    204         if (DataFolderExists("root:HayPenMSA")) 
    205                 Make/O/D/N=17 root:HayPenMSA:gMSAWave 
    206         else 
    207                 NewDataFolder root:HayPenMSA 
    208                 Make/O/D/N=17 root:HayPenMSA:gMSAWave 
     204        if(!DataFolderExists(":HayPenMSA")) 
     205                NewDataFolder :HayPenMSA 
    209206        endif 
     207        Make/O/D/N=17 :HayPenMSA:gMSAWave 
    210208         
    211209        /// 
     
    238236        SetDataFolder $("root:"+str) 
    239237         
    240         if (DataFolderExists("root:HayPenMSA")) 
    241                 Make/O/D/N=17 root:HayPenMSA:gMSAWave 
    242         else 
    243                 NewDataFolder root:HayPenMSA 
    244                 Make/O/D/N=17 root:HayPenMSA:gMSAWave 
     238        if(!DataFolderExists(":HayPenMSA")) 
     239                NewDataFolder :HayPenMSA 
    245240        endif 
     241        Make/O/D/N=17 :HayPenMSA:gMSAWave 
    246242         
    247243        // Setup parameter table for model function 
  • sans/Analysis/branches/ajj_23APR07/IGOR_Package_Files/Put in User Procedures/SANS_Models_v3.00/UnifEllipsoid_and_Struct.ipf

    r127 r130  
    204204        Prompt qmax "Enter maximum q-value (^-1) for model: " 
    205205         
    206         if (DataFolderExists("root:HayPenMSA")) 
    207                 Make/O/D/N=17 root:HayPenMSA:gMSAWave 
    208         else 
    209                 NewDataFolder root:HayPenMSA 
    210                 Make/O/D/N=17 root:HayPenMSA:gMSAWave 
     206        if(!DataFolderExists(":HayPenMSA")) 
     207                NewDataFolder :HayPenMSA 
    211208        endif 
     209        Make/O/D/N=17 :HayPenMSA:gMSAWave 
    212210         
    213211        Make/O/D/n=(num) xwave_EOR_SC,ywave_EOR_SC 
     
    239237        SetDataFolder $("root:"+str) 
    240238         
    241         if (DataFolderExists("root:HayPenMSA")) 
    242                 Make/O/D/N=17 root:HayPenMSA:gMSAWave 
    243         else 
    244                 NewDataFolder root:HayPenMSA 
    245                 Make/O/D/N=17 root:HayPenMSA:gMSAWave 
     239        if(!DataFolderExists(":HayPenMSA")) 
     240                NewDataFolder :HayPenMSA 
    246241        endif 
     242        Make/O/D/N=17 :HayPenMSA:gMSAWave 
    247243         
    248244        // Setup parameter table for model function 
Note: See TracChangeset for help on using the changeset viewer.