Changeset 639


Ignore:
Timestamp:
Mar 12, 2010 5:00:04 PM (12 years ago)
Author:
srkline
Message:

Corrections to the documentation for the invariant, no real changes to the ipf file - I made some changes but took them back out.

Location:
sans/Dev/trunk
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • sans/Dev/trunk/NCNR_User_Procedures/Common/Packages/Invariant/Invariant_v40.ipf

    r616 r639  
    4848Macro PrintModelInvariant(delta_rho,phi) 
    4949        Variable delta_rho=3e-6,phi=0.1 
     50        Prompt delta_rho,"Contrast (1/A^2)" 
     51        Prompt phi,"Volume fraction" 
     52         
    5053        // delta_rho [=] 1/A^2 
    5154        Variable inv 
     55 
    5256        inv = 2*pi*pi*delta_rho*delta_rho*phi*(1-phi)*1e8 
    5357         
     
    6064Macro SolveForVolumeFraction(invariant,delta_rho) 
    6165        Variable invariant,delta_rho=6e-6 
     66        Prompt invariant,"Invariant [=] cm^-1 A^-3" 
     67        Prompt delta_rho,"Contrast (1/A^2)" 
     68         
    6269        // delta_rho [=] 1/A^2 
    6370        Variable phi1,phi2,arg 
    64          
    6571        arg = 1 - 4*invariant*(1e-8)/2/pi/pi/delta_rho/delta_rho 
    6672        phi1 = (1 - sqrt(arg))/2 
    6773        phi2 = (1 + sqrt(arg))/2 
    68          
    6974        Printf "The two solutions for phi are: %8.6f\t and %8.6f\r\r",phi1,phi2 
     75 
     76         
    7077End 
    7178 
Note: See TracChangeset for help on using the changeset viewer.