Changeset 379 for sans/Dev/trunk/NCNR_User_Procedures/SANS/Analysis/Models/Packages/Invariant/Invariant_v40.ipf

Timestamp:

Jun 10, 2008 4:00:21 PM (15 years ago)

Author:

srkline

Message:

Removed Angstrom symbol (Mac code) and replaced it with simply a capital "A" so strange symbols won't appear anymore on Win.

File:

• sans/Dev/trunk/NCNR_User_Procedures/SANS/Analysis/Models/Packages/Invariant/Invariant_v40.ipf (modified) (10 diffs)

sans/Dev/trunk/NCNR_User_Procedures/SANS/Analysis/Models/Packages/Invariant/Invariant_v40.ipf

@@ -49 +49 @@
         inv = 2*pi*pi*delta_rho*delta_rho*phi*(1-phi)*1e8
         
-        Printf "The model invariant is %g ^-3 cm^-1\r\r",inv
+        Printf "The model invariant is %g A^-3 cm^-1\r\r",inv
 End
 
@@ -65 +65 @@
         invar = areaXY(qw,integrand,qw[0],qw[num-1])
         
-        return(invar)           //units of ^-3 cm^-1
+        return(invar)           //units of A^-3 cm^-1
 End
 
@@ -85 +85 @@
         invar *= dQv            //correct for the effects of slit-smearing
                 
-        return(invar)           //units of ^-3 cm^-1
+        return(invar)           //units of A^-3 cm^-1
 End
 
@@ -140 +140 @@
         
         Printf "I(q=0) = %g (1/cm)\r",G_coef[0]
-        Printf "Rg = %g ()\r",sqrt(-3*G_coef[1])
+        Printf "Rg = %g (A)\r",sqrt(-3*G_coef[1])
         
         Make/O/D P_coef={0,1,-4}                        //input
@@ -191 +191 @@
         ModifyGraph standoff=0
         Label left "Intensity (1/cm)"
-        Label bottom "q (1/)"
+        Label bottom "q (1/A)"
         ModifyGraph rgb($NameofWave(iw))=(0,0,0)
         ModifyGraph opaque($NameofWave(iw))=1
@@ -251 +251 @@
         DrawText 158,211,"Extrapolation"
         SetDrawEnv fstyle= 1
-        DrawText 58,349,"Units are [^-3 cm^-1]"
+        DrawText 58,349,"Units are [A^-3 cm^-1]"
         SetDrawEnv fstyle= 1
         DrawText 61,16,"Calculate the Invariant"
@@ -332 +332 @@
         
         num=numpnts(qw)
-        Printf "The invariant over the measured q-range %g to %g is %g ^-3 cm^-1\r\r",qw[0],qw[(num-1)],inv
+        Printf "The invariant over the measured q-range %g to %g is %g A^-3 cm^-1\r\r",qw[0],qw[(num-1)],inv
         
         // update the global display on the panel (there is a dependency for the total)
@@ -378 +378 @@
                 
                 Printf "I(q=0) = %g (1/cm)\r",G_coef[0]
-                Printf "Rg = %g ()\r",sqrt(-3*G_coef[1])
+                Printf "Rg = %g (A)\r",sqrt(-3*G_coef[1])
         else
                 //do a power-law fit instead
@@ -400 +400 @@
         
         nume=numpnts(extr_lqq)
-        Printf "The invariant over the q-range %g to %g is %g ^-3 cm^-1\r\r",extr_lqq[0],extr_lqq[(nume-1)],inv
+        Printf "The invariant over the q-range %g to %g is %g A^-3 cm^-1\r\r",extr_lqq[0],extr_lqq[(nume-1)],inv
         
         // update the global display on the panel (there is a dependency for the total)
@@ -450 +450 @@
 
         nume=numpnts(extr_hqq)
-        Printf "The invariant over the q-range %g to %g is %g ^-3 cm^-1\r\r",extr_hqq[0],extr_hqq[(nume-1)],inv
+        Printf "The invariant over the q-range %g to %g is %g A^-3 cm^-1\r\r",extr_hqq[0],extr_hqq[(nume-1)],inv
         
         // update the global display on the panel (there is a dependency for the total)