Ignore:
Timestamp:
Sep 10, 2009 3:45:30 PM (13 years ago)
Author:
srkline
Message:

in SASCALC - changed some of the logic to allow 2D simulation

in MultiScatter_MC:

  • changed results wave to report coherent multiple scattering counters correctly (also changed XOP)
  • added save of 1D sim data

in U_CALC:

  • adjusted display for optimal view on windows
  • 7 angle ranges now (added defaults, propagated where all controls are modified)
  • added the angle axis correctly now as a free axis, with a hook linked to the bottom axis
  • removed XS and trans calculations, as integration of ran_dev isn't well

in USANS_EmptyWaves:

  • double precision waves
File:
1 edited

Legend:

Unmodified
Added
Removed
  • sans/Dev/trunk/NCNR_User_Procedures/Reduction/USANS/USANS_EmptyWaves.ipf

    r547 r551  
    99        num=numpnts(w) 
    1010         
    11         printf "Make/O/N=%d  %s\r\r",num,name 
     11        printf "Make/O/D/N=%d  %s\r\r",num,name 
    1212 
    1313        for(ii=0;ii<num;ii+=1) 
     
    2323         
    2424//Write2Save(CR_EC_0p25Gd,"CR_0p25") 
    25   Make/O/N=44  CR_0p25 
     25  Make/O/D/N=44  CR_0p25 
    2626 
    2727  CR_0p25[0] = 3873.7 
     
    7272// 
    7373///Write2Save(Q_EC_0p25Gd,"Q_0p25") 
    74   Make/O/N=44  Q_0p25 
     74  Make/O/D/N=44  Q_0p25 
    7575 
    7676  Q_0p25[0] = 5.52469e-06 
     
    120120 
    121121//¥Write2Save(CR_EC_0p50Gd,"CR_0p50") 
    122   Make/O/N=38  CR_0p50 
     122  Make/O/D/N=38  CR_0p50 
    123123 
    124124  CR_0p50[0] = 15828.3 
     
    162162   
    163163//¥Write2Save(Q_EC_0p50Gd,"Q_0p50") 
    164   Make/O/N=38  Q_0p50 
     164  Make/O/D/N=38  Q_0p50 
    165165 
    166166  Q_0p50[0] = 3.68132e-06 
     
    204204   
    205205//  ¥Write2Save(CR_EC_0p625Gd,"CR_0p625") 
    206   Make/O/N=111  CR_0p625 
     206  Make/O/D/N=111  CR_0p625 
    207207 
    208208  CR_0p625[0] = 21097 
     
    319319   
    320320//¥Write2Save(Q_EC_0p625Gd,"Q_0p625") 
    321   Make/O/N=111  Q_0p625 
     321  Make/O/D/N=111  Q_0p625 
    322322 
    323323  Q_0p625[0] = 4.51567e-06 
     
    435435 
    436436//¥Write2Save(CR_EB_1p75Cd,"CR_1p75") 
    437   Make/O/N=62  CR_1p75 
     437  Make/O/D/N=62  CR_1p75 
    438438 
    439439  CR_1p75[0] = 56049.9 
     
    501501   
    502502//¥Write2Save(Q_EB_1p75Cd,"Q_1p75") 
    503   Make/O/N=62  Q_1p75 
     503  Make/O/D/N=62  Q_1p75 
    504504 
    505505  Q_1p75[0] = 2.39312e-06 
     
    567567 
    568568//¥Write2Save(CR_EB_2p0Cd,"CR_2p0") 
    569   Make/O/N=98  CR_2p0 
     569  Make/O/D/N=98  CR_2p0 
    570570 
    571571  CR_2p0[0] = 56491 
     
    669669   
    670670//¥Write2Save(Q_EB_2p0Cd,"Q_2p0") 
    671   Make/O/N=98  Q_2p0 
     671  Make/O/D/N=98  Q_2p0 
    672672 
    673673  Q_2p0[0] = 1.4972e-06 
Note: See TracChangeset for help on using the changeset viewer.