Built-in Constants

#include "Scientific Constants"  // WaveMetrics Provided
#include "Atomic Masses"  // WaveMetrics Provided
 
Function IdealGasCalc(n,ToC,V)
   variable n, ToC, V
 
   STRUCTURE ScientificConstants SC
 
   variable T = ToC + SC.TK0C.value   // SC.TK0C.value --> 273.15
 
   return (n*SC.Rg.value*T/V)  // you could also then have SC.Rg.units return the string units for the value
end
 
p1moleat25C1m3 = IdealGasCalc(1,25,1)
 
Function MolarMassCalc(elements,coef)
    wave/T elements
    wave coef
 
    STRUCTURE AtomicMasses AM
 
    variable ic, nt, itsM = 0
    nt = ItemsInList(elements)
 
    for (ic=0;ic<nt;ic+=1)
         itsM += coef[ic]*AM.$(elements[ic]).value  // this nomenclature is supposed to access the proper sub-member
    endfor
 
   return itsM
end
 
M_methane = MolarMassCalc("C;H;",{1,4})

#include "Materials Properties" // User Generated
#include "Crystallography"  // User Generated
 
Function Strain(stress,mtrl)
     variable stress
     string mtrl
 
     STRUCTURE MaterialsProperties MP
 
     if (existsTerm(MP.$(mtrl))==0))
         DoAlert "Your material is not in the database"
         return 0
     endif
 
     return (stress/MP.$(mtrl).E)
end
 
Function CubicUnitCellVolume(mtrl)
    string mtrl
 
    STRUCTURE CubicLatticeParameters LP
 
     if (existsTerm(LP.$(mtrl))==0))
         DoAlert "Your material is not in the database of cubic materials"
         return 0
     endif
    
     return (LP.$(mtrl).ao.value^3)
end