>	restart:#'therm_const.mw'.20-06-2005.

Set of generic data made globally available

Velocidad de la luz en el vacío:

>	Const:=[c[o]=2.99792458e8*m_/s_]:

Constante de Planck:

>	Const:=[op(Const),h[P]= 6.626076e-34*J_*s_]:

Número de Avogadro:

>	Const:=[op(Const),N[A]= 6.022137e23/mol_]:

Constante de Boltzmann:

>	Const:=[op(Const),k[B]= 1.380540e-23*J_/K_]:

Constante de los gases:

>	Const:=[op(Const),R[u]=8.314*J_/(mol_*K_)]:

Constante de Stefan-Boltzmann:

>	Const:=[op(Const),sigma=5.670e-8*W_/(m_^2*K_^4)]:

1a constante de radiación, A de Planck:

>	Const:=[op(Const),A[P]=3.743e-16*W_*m_^2]:

2a constante de radiación, B de Planck:

>	Const:=[op(Const),B[P]= 0.01439*m_*K_]:

Constante de Wien (desplazamiento):

>	Const:=[op(Const),C[W]=2.8976e-3*m_*K_]:

Constante solar:

>	Const:=[op(Const),C[s]=1370*W_/m_^2]:

Earth surface mean values:

>	Const:=[op(Const),T0=288*K_,p0=1e5*Pa_,R[T]=6370e3*m_,g=9.80665*m_/s_^2]:

Aux. reference values:

>	Const:=[op(Const),T[tr]=273.16*K_,p[tr]=611*Pa_,T25=(25+273)*K_]:

Aux. constants: c21_=0.21, c79=0.79, Mva_=M[H2O]/M[aire]

>	Const:=[op(Const),c21=0.21,c79=0.79,Mva=0.018/0.0289]:

>	Const:=op(Const);

To assume SI units to avoid Maple ambiguities

>	assume(m_>0,kg_>0,s_>0,N_>0,Pa_>0,J_>0,W_>0,K_>0,mol_>0); SI_units0:=m_=1,kg_=1,s_=1,N_=1,Pa_=1,J_=1,W_=1,K_=1,mol_=1:SI0:=SI_units0;

To group units

>

SI_units1:=kg_/(m_*s_^2)=Pa_,kg_*m_/s_^2=N_,kg_*m_^2/s_^2=J_,kg_*m_^2/s_^3=W_,N_*m_=J_,J_/s_=W_,N_/m_^2=Pa_,kg_*m_^2/(s_^2*K_)=J_/K_,kg_*m_^2/(s_^2*mol_)=J_/mol_,kg_*m_^2/(s_^2*mol_*K_)=J_/(mol_*K_),kg_*m_^2/(s_^3*K_)=W_/K_,kg_/s_^3=W_/m_^2,m_^2/s_^2=J_/kg_,m_^2/(s_^2*K_)=J_/(kg_*K_),kg_/s_^3=W_/m_^2,kg_/(s_^3*K_)=W_/(m_^2*K_),kg_*m_/(s_^3*K_)=W_/(m_*K_),sqrt(J_/kg_)=m_/s_:SI1:=SI_units1;

To ungroup units

>	SI_units2:=N_=kg_*m_/s_^2,J_=kg_*m_^2/s_^2,W_=kg_*m_^2/s_^3,Pa_=kg_/(m_*s_^2):SI2:=SI_units2;

WARNING. A list of all variables follows, to copy and paste to the save command (after Maple7 there is no saving all). CAUTION: After pasting all, I must MANUALLY delete system variables: like RealRange_...

>	sort([anames()]);

>	save Const,J_,K_,N_,Pa_,SI0,SI1,SI2,W_,kg_,m_,mol_,s_, "../therm_const.m":

>