 Timestamp:
 Mar 12, 2010 5:00:04 PM (13 years ago)
 File:

 1 edited
Legend:
 Unmodified
 Added
 Removed

sans/Dev/trunk/NCNR_User_Procedures/Common/Packages/Invariant/Invariant_v40.ipf
r616 r639 48 48 Macro PrintModelInvariant(delta_rho,phi) 49 49 Variable delta_rho=3e6,phi=0.1 50 Prompt delta_rho,"Contrast (1/A^2)" 51 Prompt phi,"Volume fraction" 52 50 53 // delta_rho [=] 1/A^2 51 54 Variable inv 55 52 56 inv = 2*pi*pi*delta_rho*delta_rho*phi*(1phi)*1e8 53 57 … … 60 64 Macro SolveForVolumeFraction(invariant,delta_rho) 61 65 Variable invariant,delta_rho=6e6 66 Prompt invariant,"Invariant [=] cm^1 A^3" 67 Prompt delta_rho,"Contrast (1/A^2)" 68 62 69 // delta_rho [=] 1/A^2 63 70 Variable phi1,phi2,arg 64 65 71 arg = 1  4*invariant*(1e8)/2/pi/pi/delta_rho/delta_rho 66 72 phi1 = (1  sqrt(arg))/2 67 73 phi2 = (1 + sqrt(arg))/2 68 69 74 Printf "The two solutions for phi are: %8.6f\t and %8.6f\r\r",phi1,phi2 75 76 70 77 End 71 78
Note: See TracChangeset
for help on using the changeset viewer.