Units&Constants.tcl

• Procedure to define units and constants

# ----Units&Constants.tcl---------------------------------------------------------

set in 1.; # define basic units

set sec 1.;

set kip 1.;

set ksi [expr $kip/pow($in,2)]; # define dependent units

set psi [expr $ksi/1000.];

set ft [expr 12.*$in];

set lb [expr $kip/1000];

set pcf [expr $lb/pow($ft,3)];

set ksi [expr $kip/pow($in,2)];

set psi [expr $ksi/1000.];

set cm [expr $in/2.54]; # define metric units

set meter [expr 100.*$cm];

set MPa [expr 145*$psi];

set PI [expr 2*asin(1.0)]; # define constants

set g [expr 32.2*$ft/pow($sec,2)];

set U 1.e10; # a really large number

set u [expr 1/$U]; # a really small number