Return to units CVS log

Up to [LON-CAPA] / loncom / mupad_utils / units

Added the perl file that generates a Mupad readable units file from an easy to read input_file
these files are all that is needed to configure Mupad to handle units correctly.
Ben

protect( m );
am := ( 10^(-18)*m ):
protect(am);
cm := ( 10^(-2)*m ):
protect(cm);
dm := ( 10^(-1)*m ):
protect(dm);
Em := ( 10^(18)*m ):
protect(Em);
fm := ( 10^(-15)*m ):
protect(fm);
Gm := ( 10^(9)*m ):
protect(Gm);
hm := ( 10^(2)*m ):
protect(hm);
km := ( 10^(3)*m ):
protect(km);
mm := ( 10^(-3)*m ):
protect(mm);
Mm := ( 10^(6)*m ):
protect(Mm);
nm := ( 10^(-9)*m ):
protect(nm);
Pm := ( 10^(15)*m ):
protect(Pm);
pm := ( 10^(-12)*m ):
protect(pm);
Tm := ( 10^(12)*m ):
protect(Tm);
um := ( 10^(-6)*m ):
protect(um);
ym := ( 10^(-24)*m ):
protect(ym);
Ym := ( 10^(24)*m ):
protect(Ym);
zm := ( 10^(-21)*m ):
protect(zm);
Zm := ( 10^(21)*m ):
protect(Zm);


protect( s );
as := ( 10^(-18)*s ):
protect(as);
cs := ( 10^(-2)*s ):
protect(cs);
ds := ( 10^(-1)*s ):
protect(ds);
Es := ( 10^(18)*s ):
protect(Es);
fs := ( 10^(-15)*s ):
protect(fs);
Gs := ( 10^(9)*s ):
protect(Gs);
hs := ( 10^(2)*s ):
protect(hs);
ks := ( 10^(3)*s ):
protect(ks);
ms := ( 10^(-3)*s ):
protect(ms);
Ms := ( 10^(6)*s ):
protect(Ms);
ns := ( 10^(-9)*s ):
protect(ns);
Ps := ( 10^(15)*s ):
protect(Ps);
ps := ( 10^(-12)*s ):
protect(ps);
Ts := ( 10^(12)*s ):
protect(Ts);
us := ( 10^(-6)*s ):
protect(us);
ys := ( 10^(-24)*s ):
protect(ys);
Ys := ( 10^(24)*s ):
protect(Ys);
zs := ( 10^(-21)*s ):
protect(zs);
Zs := ( 10^(21)*s ):
protect(Zs);


g:=(0.001*kg);
protect( g );
ag := ( 10^(-18)*g ):
protect(ag);
cg := ( 10^(-2)*g ):
protect(cg);
dg := ( 10^(-1)*g ):
protect(dg);
Eg := ( 10^(18)*g ):
protect(Eg);
fg := ( 10^(-15)*g ):
protect(fg);
Gg := ( 10^(9)*g ):
protect(Gg);
hg := ( 10^(2)*g ):
protect(hg);
mg := ( 10^(-3)*g ):
protect(mg);
Mg := ( 10^(6)*g ):
protect(Mg);
ng := ( 10^(-9)*g ):
protect(ng);
Pg := ( 10^(15)*g ):
protect(Pg);
pg := ( 10^(-12)*g ):
protect(pg);
Tg := ( 10^(12)*g ):
protect(Tg);
ug := ( 10^(-6)*g ):
protect(ug);
yg := ( 10^(-24)*g ):
protect(yg);
Yg := ( 10^(24)*g ):
protect(Yg);
zg := ( 10^(-21)*g ):
protect(zg);
Zg := ( 10^(21)*g ):
protect(Zg);


protect( kg );


L:=(10^3*cm^3);
protect( L );
aL := ( 10^(-18)*L ):
protect(aL);
cL := ( 10^(-2)*L ):
protect(cL);
dL := ( 10^(-1)*L ):
protect(dL);
EL := ( 10^(18)*L ):
protect(EL);
fL := ( 10^(-15)*L ):
protect(fL);
GL := ( 10^(9)*L ):
protect(GL);
hL := ( 10^(2)*L ):
protect(hL);
kL := ( 10^(3)*L ):
protect(kL);
mL := ( 10^(-3)*L ):
protect(mL);
ML := ( 10^(6)*L ):
protect(ML);
nL := ( 10^(-9)*L ):
protect(nL);
PL := ( 10^(15)*L ):
protect(PL);
pL := ( 10^(-12)*L ):
protect(pL);
TL := ( 10^(12)*L ):
protect(TL);
uL := ( 10^(-6)*L ):
protect(uL);
yL := ( 10^(-24)*L ):
protect(yL);
YL := ( 10^(24)*L ):
protect(YL);
zL := ( 10^(-21)*L ):
protect(zL);
ZL := ( 10^(21)*L ):
protect(ZL);


N:=(m*kg/s^2);
protect( N );
aN := ( 10^(-18)*N ):
protect(aN);
cN := ( 10^(-2)*N ):
protect(cN);
dN := ( 10^(-1)*N ):
protect(dN);
EN := ( 10^(18)*N ):
protect(EN);
fN := ( 10^(-15)*N ):
protect(fN);
GN := ( 10^(9)*N ):
protect(GN);
hN := ( 10^(2)*N ):
protect(hN);
kN := ( 10^(3)*N ):
protect(kN);
mN := ( 10^(-3)*N ):
protect(mN);
MN := ( 10^(6)*N ):
protect(MN);
nN := ( 10^(-9)*N ):
protect(nN);
PN := ( 10^(15)*N ):
protect(PN);
pN := ( 10^(-12)*N ):
protect(pN);
TN := ( 10^(12)*N ):
protect(TN);
uN := ( 10^(-6)*N ):
protect(uN);
yN := ( 10^(-24)*N ):
protect(yN);
YN := ( 10^(24)*N ):
protect(YN);
zN := ( 10^(-21)*N ):
protect(zN);
ZN := ( 10^(21)*N ):
protect(ZN);


Pa:=(N/m^2);
protect( Pa );
aPa := ( 10^(-18)*Pa ):
protect(aPa);
cPa := ( 10^(-2)*Pa ):
protect(cPa);
dPa := ( 10^(-1)*Pa ):
protect(dPa);
EPa := ( 10^(18)*Pa ):
protect(EPa);
fPa := ( 10^(-15)*Pa ):
protect(fPa);
GPa := ( 10^(9)*Pa ):
protect(GPa);
hPa := ( 10^(2)*Pa ):
protect(hPa);
kPa := ( 10^(3)*Pa ):
protect(kPa);
mPa := ( 10^(-3)*Pa ):
protect(mPa);
MPa := ( 10^(6)*Pa ):
protect(MPa);
nPa := ( 10^(-9)*Pa ):
protect(nPa);
PPa := ( 10^(15)*Pa ):
protect(PPa);
pPa := ( 10^(-12)*Pa ):
protect(pPa);
TPa := ( 10^(12)*Pa ):
protect(TPa);
uPa := ( 10^(-6)*Pa ):
protect(uPa);
yPa := ( 10^(-24)*Pa ):
protect(yPa);
YPa := ( 10^(24)*Pa ):
protect(YPa);
zPa := ( 10^(-21)*Pa ):
protect(zPa);
ZPa := ( 10^(21)*Pa ):
protect(ZPa);


protect( A );
aA := ( 10^(-18)*A ):
protect(aA);
cA := ( 10^(-2)*A ):
protect(cA);
dA := ( 10^(-1)*A ):
protect(dA);
EA := ( 10^(18)*A ):
protect(EA);
fA := ( 10^(-15)*A ):
protect(fA);
GA := ( 10^(9)*A ):
protect(GA);
hA := ( 10^(2)*A ):
protect(hA);
kA := ( 10^(3)*A ):
protect(kA);
mA := ( 10^(-3)*A ):
protect(mA);
MA := ( 10^(6)*A ):
protect(MA);
nA := ( 10^(-9)*A ):
protect(nA);
PA := ( 10^(15)*A ):
protect(PA);
pA := ( 10^(-12)*A ):
protect(pA);
TA := ( 10^(12)*A ):
protect(TA);
uA := ( 10^(-6)*A ):
protect(uA);
yA := ( 10^(-24)*A ):
protect(yA);
YA := ( 10^(24)*A ):
protect(YA);
zA := ( 10^(-21)*A ):
protect(zA);
ZA := ( 10^(21)*A ):
protect(ZA);


Hz:=(1/s);
protect( Hz );
aHz := ( 10^(-18)*Hz ):
protect(aHz);
cHz := ( 10^(-2)*Hz ):
protect(cHz);
dHz := ( 10^(-1)*Hz ):
protect(dHz);
EHz := ( 10^(18)*Hz ):
protect(EHz);
fHz := ( 10^(-15)*Hz ):
protect(fHz);
GHz := ( 10^(9)*Hz ):
protect(GHz);
hHz := ( 10^(2)*Hz ):
protect(hHz);
kHz := ( 10^(3)*Hz ):
protect(kHz);
mHz := ( 10^(-3)*Hz ):
protect(mHz);
MHz := ( 10^(6)*Hz ):
protect(MHz);
nHz := ( 10^(-9)*Hz ):
protect(nHz);
PHz := ( 10^(15)*Hz ):
protect(PHz);
pHz := ( 10^(-12)*Hz ):
protect(pHz);
THz := ( 10^(12)*Hz ):
protect(THz);
uHz := ( 10^(-6)*Hz ):
protect(uHz);
yHz := ( 10^(-24)*Hz ):
protect(yHz);
YHz := ( 10^(24)*Hz ):
protect(YHz);
zHz := ( 10^(-21)*Hz ):
protect(zHz);
ZHz := ( 10^(21)*Hz ):
protect(ZHz);


J:=(N*m);
protect( J );
aJ := ( 10^(-18)*J ):
protect(aJ);
cJ := ( 10^(-2)*J ):
protect(cJ);
dJ := ( 10^(-1)*J ):
protect(dJ);
EJ := ( 10^(18)*J ):
protect(EJ);
fJ := ( 10^(-15)*J ):
protect(fJ);
GJ := ( 10^(9)*J ):
protect(GJ);
hJ := ( 10^(2)*J ):
protect(hJ);
kJ := ( 10^(3)*J ):
protect(kJ);
mJ := ( 10^(-3)*J ):
protect(mJ);
MJ := ( 10^(6)*J ):
protect(MJ);
nJ := ( 10^(-9)*J ):
protect(nJ);
PJ := ( 10^(15)*J ):
protect(PJ);
pJ := ( 10^(-12)*J ):
protect(pJ);
TJ := ( 10^(12)*J ):
protect(TJ);
uJ := ( 10^(-6)*J ):
protect(uJ);
yJ := ( 10^(-24)*J ):
protect(yJ);
YJ := ( 10^(24)*J ):
protect(YJ);
zJ := ( 10^(-21)*J ):
protect(zJ);
ZJ := ( 10^(21)*J ):
protect(ZJ);


W:=(J/s);
protect( W );
aW := ( 10^(-18)*W ):
protect(aW);
cW := ( 10^(-2)*W ):
protect(cW);
dW := ( 10^(-1)*W ):
protect(dW);
EW := ( 10^(18)*W ):
protect(EW);
fW := ( 10^(-15)*W ):
protect(fW);
GW := ( 10^(9)*W ):
protect(GW);
hW := ( 10^(2)*W ):
protect(hW);
kW := ( 10^(3)*W ):
protect(kW);
mW := ( 10^(-3)*W ):
protect(mW);
MW := ( 10^(6)*W ):
protect(MW);
nW := ( 10^(-9)*W ):
protect(nW);
PW := ( 10^(15)*W ):
protect(PW);
pW := ( 10^(-12)*W ):
protect(pW);
TW := ( 10^(12)*W ):
protect(TW);
uW := ( 10^(-6)*W ):
protect(uW);
yW := ( 10^(-24)*W ):
protect(yW);
YW := ( 10^(24)*W ):
protect(YW);
zW := ( 10^(-21)*W ):
protect(zW);
ZW := ( 10^(21)*W ):
protect(ZW);


hp:=(745.7*W);
protect( hp );
ahp := ( 10^(-18)*hp ):
protect(ahp);
chp := ( 10^(-2)*hp ):
protect(chp);
dhp := ( 10^(-1)*hp ):
protect(dhp);
Ehp := ( 10^(18)*hp ):
protect(Ehp);
fhp := ( 10^(-15)*hp ):
protect(fhp);
Ghp := ( 10^(9)*hp ):
protect(Ghp);
hhp := ( 10^(2)*hp ):
protect(hhp);
khp := ( 10^(3)*hp ):
protect(khp);
mhp := ( 10^(-3)*hp ):
protect(mhp);
Mhp := ( 10^(6)*hp ):
protect(Mhp);
nhp := ( 10^(-9)*hp ):
protect(nhp);
Php := ( 10^(15)*hp ):
protect(Php);
php := ( 10^(-12)*hp ):
protect(php);
Thp := ( 10^(12)*hp ):
protect(Thp);
uhp := ( 10^(-6)*hp ):
protect(uhp);
yhp := ( 10^(-24)*hp ):
protect(yhp);
Yhp := ( 10^(24)*hp ):
protect(Yhp);
zhp := ( 10^(-21)*hp ):
protect(zhp);
Zhp := ( 10^(21)*hp ):
protect(Zhp);


eV:=(1.6021892*10^(-19)*J);
protect( eV );
aeV := ( 10^(-18)*eV ):
protect(aeV);
ceV := ( 10^(-2)*eV ):
protect(ceV);
deV := ( 10^(-1)*eV ):
protect(deV);
EeV := ( 10^(18)*eV ):
protect(EeV);
feV := ( 10^(-15)*eV ):
protect(feV);
GeV := ( 10^(9)*eV ):
protect(GeV);
heV := ( 10^(2)*eV ):
protect(heV);
keV := ( 10^(3)*eV ):
protect(keV);
meV := ( 10^(-3)*eV ):
protect(meV);
MeV := ( 10^(6)*eV ):
protect(MeV);
neV := ( 10^(-9)*eV ):
protect(neV);
PeV := ( 10^(15)*eV ):
protect(PeV);
peV := ( 10^(-12)*eV ):
protect(peV);
TeV := ( 10^(12)*eV ):
protect(TeV);
ueV := ( 10^(-6)*eV ):
protect(ueV);
yeV := ( 10^(-24)*eV ):
protect(yeV);
YeV := ( 10^(24)*eV ):
protect(YeV);
zeV := ( 10^(-21)*eV ):
protect(zeV);
ZeV := ( 10^(21)*eV ):
protect(ZeV);


V:=(J/C);
protect( V );
aV := ( 10^(-18)*V ):
protect(aV);
cV := ( 10^(-2)*V ):
protect(cV);
dV := ( 10^(-1)*V ):
protect(dV);
EV := ( 10^(18)*V ):
protect(EV);
fV := ( 10^(-15)*V ):
protect(fV);
GV := ( 10^(9)*V ):
protect(GV);
hV := ( 10^(2)*V ):
protect(hV);
kV := ( 10^(3)*V ):
protect(kV);
mV := ( 10^(-3)*V ):
protect(mV);
MV := ( 10^(6)*V ):
protect(MV);
nV := ( 10^(-9)*V ):
protect(nV);
PV := ( 10^(15)*V ):
protect(PV);
pV := ( 10^(-12)*V ):
protect(pV);
TV := ( 10^(12)*V ):
protect(TV);
uV := ( 10^(-6)*V ):
protect(uV);
yV := ( 10^(-24)*V ):
protect(yV);
YV := ( 10^(24)*V ):
protect(YV);
zV := ( 10^(-21)*V ):
protect(zV);
ZV := ( 10^(21)*V ):
protect(ZV);


ohm:=(V/A);
protect( ohm );
aohm := ( 10^(-18)*ohm ):
protect(aohm);
cohm := ( 10^(-2)*ohm ):
protect(cohm);
dohm := ( 10^(-1)*ohm ):
protect(dohm);
Eohm := ( 10^(18)*ohm ):
protect(Eohm);
fohm := ( 10^(-15)*ohm ):
protect(fohm);
Gohm := ( 10^(9)*ohm ):
protect(Gohm);
hohm := ( 10^(2)*ohm ):
protect(hohm);
kohm := ( 10^(3)*ohm ):
protect(kohm);
mohm := ( 10^(-3)*ohm ):
protect(mohm);
Mohm := ( 10^(6)*ohm ):
protect(Mohm);
nohm := ( 10^(-9)*ohm ):
protect(nohm);
Pohm := ( 10^(15)*ohm ):
protect(Pohm);
pohm := ( 10^(-12)*ohm ):
protect(pohm);
Tohm := ( 10^(12)*ohm ):
protect(Tohm);
uohm := ( 10^(-6)*ohm ):
protect(uohm);
yohm := ( 10^(-24)*ohm ):
protect(yohm);
Yohm := ( 10^(24)*ohm ):
protect(Yohm);
zohm := ( 10^(-21)*ohm ):
protect(zohm);
Zohm := ( 10^(21)*ohm ):
protect(Zohm);


ohms:=(V/A);
protect( ohms );
aohms := ( 10^(-18)*ohms ):
protect(aohms);
cohms := ( 10^(-2)*ohms ):
protect(cohms);
dohms := ( 10^(-1)*ohms ):
protect(dohms);
Eohms := ( 10^(18)*ohms ):
protect(Eohms);
fohms := ( 10^(-15)*ohms ):
protect(fohms);
Gohms := ( 10^(9)*ohms ):
protect(Gohms);
hohms := ( 10^(2)*ohms ):
protect(hohms);
kohms := ( 10^(3)*ohms ):
protect(kohms);
mohms := ( 10^(-3)*ohms ):
protect(mohms);
Mohms := ( 10^(6)*ohms ):
protect(Mohms);
nohms := ( 10^(-9)*ohms ):
protect(nohms);
Pohms := ( 10^(15)*ohms ):
protect(Pohms);
pohms := ( 10^(-12)*ohms ):
protect(pohms);
Tohms := ( 10^(12)*ohms ):
protect(Tohms);
uohms := ( 10^(-6)*ohms ):
protect(uohms);
yohms := ( 10^(-24)*ohms ):
protect(yohms);
Yohms := ( 10^(24)*ohms ):
protect(Yohms);
zohms := ( 10^(-21)*ohms ):
protect(zohms);
Zohms := ( 10^(21)*ohms ):
protect(Zohms);


Ohm:=(V/A);
protect( Ohm );
aOhm := ( 10^(-18)*Ohm ):
protect(aOhm);
cOhm := ( 10^(-2)*Ohm ):
protect(cOhm);
dOhm := ( 10^(-1)*Ohm ):
protect(dOhm);
EOhm := ( 10^(18)*Ohm ):
protect(EOhm);
fOhm := ( 10^(-15)*Ohm ):
protect(fOhm);
GOhm := ( 10^(9)*Ohm ):
protect(GOhm);
hOhm := ( 10^(2)*Ohm ):
protect(hOhm);
kOhm := ( 10^(3)*Ohm ):
protect(kOhm);
mOhm := ( 10^(-3)*Ohm ):
protect(mOhm);
MOhm := ( 10^(6)*Ohm ):
protect(MOhm);
nOhm := ( 10^(-9)*Ohm ):
protect(nOhm);
POhm := ( 10^(15)*Ohm ):
protect(POhm);
pOhm := ( 10^(-12)*Ohm ):
protect(pOhm);
TOhm := ( 10^(12)*Ohm ):
protect(TOhm);
uOhm := ( 10^(-6)*Ohm ):
protect(uOhm);
yOhm := ( 10^(-24)*Ohm ):
protect(yOhm);
YOhm := ( 10^(24)*Ohm ):
protect(YOhm);
zOhm := ( 10^(-21)*Ohm ):
protect(zOhm);
ZOhm := ( 10^(21)*Ohm ):
protect(ZOhm);


Ohms:=(V/A);
protect( Ohms );
aOhms := ( 10^(-18)*Ohms ):
protect(aOhms);
cOhms := ( 10^(-2)*Ohms ):
protect(cOhms);
dOhms := ( 10^(-1)*Ohms ):
protect(dOhms);
EOhms := ( 10^(18)*Ohms ):
protect(EOhms);
fOhms := ( 10^(-15)*Ohms ):
protect(fOhms);
GOhms := ( 10^(9)*Ohms ):
protect(GOhms);
hOhms := ( 10^(2)*Ohms ):
protect(hOhms);
kOhms := ( 10^(3)*Ohms ):
protect(kOhms);
mOhms := ( 10^(-3)*Ohms ):
protect(mOhms);
MOhms := ( 10^(6)*Ohms ):
protect(MOhms);
nOhms := ( 10^(-9)*Ohms ):
protect(nOhms);
POhms := ( 10^(15)*Ohms ):
protect(POhms);
pOhms := ( 10^(-12)*Ohms ):
protect(pOhms);
TOhms := ( 10^(12)*Ohms ):
protect(TOhms);
uOhms := ( 10^(-6)*Ohms ):
protect(uOhms);
yOhms := ( 10^(-24)*Ohms ):
protect(yOhms);
YOhms := ( 10^(24)*Ohms ):
protect(YOhms);
zOhms := ( 10^(-21)*Ohms ):
protect(zOhms);
ZOhms := ( 10^(21)*Ohms ):
protect(ZOhms);


hr:=(3600*s);
protect( hr );
ahr := ( 10^(-18)*hr ):
protect(ahr);
chr := ( 10^(-2)*hr ):
protect(chr);
dhr := ( 10^(-1)*hr ):
protect(dhr);
Ehr := ( 10^(18)*hr ):
protect(Ehr);
fhr := ( 10^(-15)*hr ):
protect(fhr);
Ghr := ( 10^(9)*hr ):
protect(Ghr);
hhr := ( 10^(2)*hr ):
protect(hhr);
khr := ( 10^(3)*hr ):
protect(khr);
mhr := ( 10^(-3)*hr ):
protect(mhr);
Mhr := ( 10^(6)*hr ):
protect(Mhr);
nhr := ( 10^(-9)*hr ):
protect(nhr);
Phr := ( 10^(15)*hr ):
protect(Phr);
phr := ( 10^(-12)*hr ):
protect(phr);
Thr := ( 10^(12)*hr ):
protect(Thr);
uhr := ( 10^(-6)*hr ):
protect(uhr);
yhr := ( 10^(-24)*hr ):
protect(yhr);
Yhr := ( 10^(24)*hr ):
protect(Yhr);
zhr := ( 10^(-21)*hr ):
protect(zhr);
Zhr := ( 10^(21)*hr ):
protect(Zhr);


minutes:=(60*s);
protect( minutes );
aminutes := ( 10^(-18)*minutes ):
protect(aminutes);
cminutes := ( 10^(-2)*minutes ):
protect(cminutes);
dminutes := ( 10^(-1)*minutes ):
protect(dminutes);
Eminutes := ( 10^(18)*minutes ):
protect(Eminutes);
fminutes := ( 10^(-15)*minutes ):
protect(fminutes);
Gminutes := ( 10^(9)*minutes ):
protect(Gminutes);
hminutes := ( 10^(2)*minutes ):
protect(hminutes);
kminutes := ( 10^(3)*minutes ):
protect(kminutes);
mminutes := ( 10^(-3)*minutes ):
protect(mminutes);
Mminutes := ( 10^(6)*minutes ):
protect(Mminutes);
nminutes := ( 10^(-9)*minutes ):
protect(nminutes);
Pminutes := ( 10^(15)*minutes ):
protect(Pminutes);
pminutes := ( 10^(-12)*minutes ):
protect(pminutes);
Tminutes := ( 10^(12)*minutes ):
protect(Tminutes);
uminutes := ( 10^(-6)*minutes ):
protect(uminutes);
yminutes := ( 10^(-24)*minutes ):
protect(yminutes);
Yminutes := ( 10^(24)*minutes ):
protect(Yminutes);
zminutes := ( 10^(-21)*minutes ):
protect(zminutes);
Zminutes := ( 10^(21)*minutes ):
protect(Zminutes);


day:=(24*hr);
protect( day );
aday := ( 10^(-18)*day ):
protect(aday);
cday := ( 10^(-2)*day ):
protect(cday);
dday := ( 10^(-1)*day ):
protect(dday);
Eday := ( 10^(18)*day ):
protect(Eday);
fday := ( 10^(-15)*day ):
protect(fday);
Gday := ( 10^(9)*day ):
protect(Gday);
hday := ( 10^(2)*day ):
protect(hday);
kday := ( 10^(3)*day ):
protect(kday);
mday := ( 10^(-3)*day ):
protect(mday);
Mday := ( 10^(6)*day ):
protect(Mday);
nday := ( 10^(-9)*day ):
protect(nday);
Pday := ( 10^(15)*day ):
protect(Pday);
pday := ( 10^(-12)*day ):
protect(pday);
Tday := ( 10^(12)*day ):
protect(Tday);
uday := ( 10^(-6)*day ):
protect(uday);
yday := ( 10^(-24)*day ):
protect(yday);
Yday := ( 10^(24)*day ):
protect(Yday);
zday := ( 10^(-21)*day ):
protect(zday);
Zday := ( 10^(21)*day ):
protect(Zday);


rad:=(1);
protect( rad );
arad := ( 10^(-18)*rad ):
protect(arad);
crad := ( 10^(-2)*rad ):
protect(crad);
frad := ( 10^(-15)*rad ):
protect(frad);
mrad := ( 10^(-3)*rad ):
protect(mrad);
nrad := ( 10^(-9)*rad ):
protect(nrad);
prad := ( 10^(-12)*rad ):
protect(prad);
urad := ( 10^(-6)*rad ):
protect(urad);
yrad := ( 10^(-24)*rad ):
protect(yrad);
zrad := ( 10^(-21)*rad ):
protect(zrad);


deg:=(1.745329*10^(-2)*rad);
protect( deg );
adeg := ( 10^(-18)*deg ):
protect(adeg);
cdeg := ( 10^(-2)*deg ):
protect(cdeg);
ddeg := ( 10^(-1)*deg ):
protect(ddeg);
Edeg := ( 10^(18)*deg ):
protect(Edeg);
fdeg := ( 10^(-15)*deg ):
protect(fdeg);
Gdeg := ( 10^(9)*deg ):
protect(Gdeg);
hdeg := ( 10^(2)*deg ):
protect(hdeg);
kdeg := ( 10^(3)*deg ):
protect(kdeg);
mdeg := ( 10^(-3)*deg ):
protect(mdeg);
Mdeg := ( 10^(6)*deg ):
protect(Mdeg);
ndeg := ( 10^(-9)*deg ):
protect(ndeg);
Pdeg := ( 10^(15)*deg ):
protect(Pdeg);
pdeg := ( 10^(-12)*deg ):
protect(pdeg);
Tdeg := ( 10^(12)*deg ):
protect(Tdeg);
udeg := ( 10^(-6)*deg ):
protect(udeg);
ydeg := ( 10^(-24)*deg ):
protect(ydeg);
Ydeg := ( 10^(24)*deg ):
protect(Ydeg);
zdeg := ( 10^(-21)*deg ):
protect(zdeg);
Zdeg := ( 10^(21)*deg ):
protect(Zdeg);


mmHg:=(1.33322*10^2*Pa);
protect( mmHg );


torr:=(mmHg);
protect( torr );
atorr := ( 10^(-18)*torr ):
protect(atorr);
ctorr := ( 10^(-2)*torr ):
protect(ctorr);
dtorr := ( 10^(-1)*torr ):
protect(dtorr);
Etorr := ( 10^(18)*torr ):
protect(Etorr);
ftorr := ( 10^(-15)*torr ):
protect(ftorr);
Gtorr := ( 10^(9)*torr ):
protect(Gtorr);
htorr := ( 10^(2)*torr ):
protect(htorr);
ktorr := ( 10^(3)*torr ):
protect(ktorr);
mtorr := ( 10^(-3)*torr ):
protect(mtorr);
Mtorr := ( 10^(6)*torr ):
protect(Mtorr);
ntorr := ( 10^(-9)*torr ):
protect(ntorr);
Ptorr := ( 10^(15)*torr ):
protect(Ptorr);
ptorr := ( 10^(-12)*torr ):
protect(ptorr);
Ttorr := ( 10^(12)*torr ):
protect(Ttorr);
utorr := ( 10^(-6)*torr ):
protect(utorr);
ytorr := ( 10^(-24)*torr ):
protect(ytorr);
Ytorr := ( 10^(24)*torr ):
protect(Ytorr);
ztorr := ( 10^(-21)*torr ):
protect(ztorr);
Ztorr := ( 10^(21)*torr ):
protect(Ztorr);


Bq:=(1/s);
protect( Bq );
aBq := ( 10^(-18)*Bq ):
protect(aBq);
cBq := ( 10^(-2)*Bq ):
protect(cBq);
dBq := ( 10^(-1)*Bq ):
protect(dBq);
EBq := ( 10^(18)*Bq ):
protect(EBq);
fBq := ( 10^(-15)*Bq ):
protect(fBq);
GBq := ( 10^(9)*Bq ):
protect(GBq);
hBq := ( 10^(2)*Bq ):
protect(hBq);
kBq := ( 10^(3)*Bq ):
protect(kBq);
mBq := ( 10^(-3)*Bq ):
protect(mBq);
MBq := ( 10^(6)*Bq ):
protect(MBq);
nBq := ( 10^(-9)*Bq ):
protect(nBq);
PBq := ( 10^(15)*Bq ):
protect(PBq);
pBq := ( 10^(-12)*Bq ):
protect(pBq);
TBq := ( 10^(12)*Bq ):
protect(TBq);
uBq := ( 10^(-6)*Bq ):
protect(uBq);
yBq := ( 10^(-24)*Bq ):
protect(yBq);
YBq := ( 10^(24)*Bq ):
protect(YBq);
zBq := ( 10^(-21)*Bq ):
protect(zBq);
ZBq := ( 10^(21)*Bq ):
protect(ZBq);


Gy:=(J/kg);
protect( Gy );
aGy := ( 10^(-18)*Gy ):
protect(aGy);
cGy := ( 10^(-2)*Gy ):
protect(cGy);
dGy := ( 10^(-1)*Gy ):
protect(dGy);
EGy := ( 10^(18)*Gy ):
protect(EGy);
fGy := ( 10^(-15)*Gy ):
protect(fGy);
GGy := ( 10^(9)*Gy ):
protect(GGy);
hGy := ( 10^(2)*Gy ):
protect(hGy);
kGy := ( 10^(3)*Gy ):
protect(kGy);
mGy := ( 10^(-3)*Gy ):
protect(mGy);
MGy := ( 10^(6)*Gy ):
protect(MGy);
nGy := ( 10^(-9)*Gy ):
protect(nGy);
PGy := ( 10^(15)*Gy ):
protect(PGy);
pGy := ( 10^(-12)*Gy ):
protect(pGy);
TGy := ( 10^(12)*Gy ):
protect(TGy);
uGy := ( 10^(-6)*Gy ):
protect(uGy);
yGy := ( 10^(-24)*Gy ):
protect(yGy);
YGy := ( 10^(24)*Gy ):
protect(YGy);
zGy := ( 10^(-21)*Gy ):
protect(zGy);
ZGy := ( 10^(21)*Gy ):
protect(ZGy);


Sv:=(J/kg);
protect( Sv );
aSv := ( 10^(-18)*Sv ):
protect(aSv);
cSv := ( 10^(-2)*Sv ):
protect(cSv);
dSv := ( 10^(-1)*Sv ):
protect(dSv);
ESv := ( 10^(18)*Sv ):
protect(ESv);
fSv := ( 10^(-15)*Sv ):
protect(fSv);
GSv := ( 10^(9)*Sv ):
protect(GSv);
hSv := ( 10^(2)*Sv ):
protect(hSv);
kSv := ( 10^(3)*Sv ):
protect(kSv);
mSv := ( 10^(-3)*Sv ):
protect(mSv);
MSv := ( 10^(6)*Sv ):
protect(MSv);
nSv := ( 10^(-9)*Sv ):
protect(nSv);
PSv := ( 10^(15)*Sv ):
protect(PSv);
pSv := ( 10^(-12)*Sv ):
protect(pSv);
TSv := ( 10^(12)*Sv ):
protect(TSv);
uSv := ( 10^(-6)*Sv ):
protect(uSv);
ySv := ( 10^(-24)*Sv ):
protect(ySv);
YSv := ( 10^(24)*Sv ):
protect(YSv);
zSv := ( 10^(-21)*Sv ):
protect(zSv);
ZSv := ( 10^(21)*Sv ):
protect(ZSv);


C:=(A*s);
protect( C );
aC := ( 10^(-18)*C ):
protect(aC);
cC := ( 10^(-2)*C ):
protect(cC);
dC := ( 10^(-1)*C ):
protect(dC);
EC := ( 10^(18)*C ):
protect(EC);
fC := ( 10^(-15)*C ):
protect(fC);
GC := ( 10^(9)*C ):
protect(GC);
hC := ( 10^(2)*C ):
protect(hC);
kC := ( 10^(3)*C ):
protect(kC);
mC := ( 10^(-3)*C ):
protect(mC);
MC := ( 10^(6)*C ):
protect(MC);
nC := ( 10^(-9)*C ):
protect(nC);
PC := ( 10^(15)*C ):
protect(PC);
pC := ( 10^(-12)*C ):
protect(pC);
TC := ( 10^(12)*C ):
protect(TC);
uC := ( 10^(-6)*C ):
protect(uC);
yC := ( 10^(-24)*C ):
protect(yC);
YC := ( 10^(24)*C ):
protect(YC);
zC := ( 10^(-21)*C ):
protect(zC);
ZC := ( 10^(21)*C ):
protect(ZC);


S:=(1/Ohm);
protect( S );
aS := ( 10^(-18)*S ):
protect(aS);
cS := ( 10^(-2)*S ):
protect(cS);
dS := ( 10^(-1)*S ):
protect(dS);
ES := ( 10^(18)*S ):
protect(ES);
fS := ( 10^(-15)*S ):
protect(fS);
GS := ( 10^(9)*S ):
protect(GS);
hS := ( 10^(2)*S ):
protect(hS);
kS := ( 10^(3)*S ):
protect(kS);
mS := ( 10^(-3)*S ):
protect(mS);
MS := ( 10^(6)*S ):
protect(MS);
nS := ( 10^(-9)*S ):
protect(nS);
PS := ( 10^(15)*S ):
protect(PS);
pS := ( 10^(-12)*S ):
protect(pS);
TS := ( 10^(12)*S ):
protect(TS);
uS := ( 10^(-6)*S ):
protect(uS);
yS := ( 10^(-24)*S ):
protect(yS);
YS := ( 10^(24)*S ):
protect(YS);
zS := ( 10^(-21)*S ):
protect(zS);
ZS := ( 10^(21)*S ):
protect(ZS);


F:=(C/V);
protect( F );
aF := ( 10^(-18)*F ):
protect(aF);
cF := ( 10^(-2)*F ):
protect(cF);
dF := ( 10^(-1)*F ):
protect(dF);
EF := ( 10^(18)*F ):
protect(EF);
fF := ( 10^(-15)*F ):
protect(fF);
GF := ( 10^(9)*F ):
protect(GF);
hF := ( 10^(2)*F ):
protect(hF);
kF := ( 10^(3)*F ):
protect(kF);
mF := ( 10^(-3)*F ):
protect(mF);
MF := ( 10^(6)*F ):
protect(MF);
nF := ( 10^(-9)*F ):
protect(nF);
PF := ( 10^(15)*F ):
protect(PF);
pF := ( 10^(-12)*F ):
protect(pF);
TF := ( 10^(12)*F ):
protect(TF);
uF := ( 10^(-6)*F ):
protect(uF);
yF := ( 10^(-24)*F ):
protect(yF);
YF := ( 10^(24)*F ):
protect(YF);
zF := ( 10^(-21)*F ):
protect(zF);
ZF := ( 10^(21)*F ):
protect(ZF);


T:=(V*s/m^2);
protect( T );
aT := ( 10^(-18)*T ):
protect(aT);
cT := ( 10^(-2)*T ):
protect(cT);
dT := ( 10^(-1)*T ):
protect(dT);
ET := ( 10^(18)*T ):
protect(ET);
fT := ( 10^(-15)*T ):
protect(fT);
GT := ( 10^(9)*T ):
protect(GT);
hT := ( 10^(2)*T ):
protect(hT);
kT := ( 10^(3)*T ):
protect(kT);
mT := ( 10^(-3)*T ):
protect(mT);
MT := ( 10^(6)*T ):
protect(MT);
nT := ( 10^(-9)*T ):
protect(nT);
PT := ( 10^(15)*T ):
protect(PT);
pT := ( 10^(-12)*T ):
protect(pT);
TT := ( 10^(12)*T ):
protect(TT);
uT := ( 10^(-6)*T ):
protect(uT);
yT := ( 10^(-24)*T ):
protect(yT);
YT := ( 10^(24)*T ):
protect(YT);
zT := ( 10^(-21)*T ):
protect(zT);
ZT := ( 10^(21)*T ):
protect(ZT);


Wb:=(V*s);
protect( Wb );
aWb := ( 10^(-18)*Wb ):
protect(aWb);
cWb := ( 10^(-2)*Wb ):
protect(cWb);
dWb := ( 10^(-1)*Wb ):
protect(dWb);
EWb := ( 10^(18)*Wb ):
protect(EWb);
fWb := ( 10^(-15)*Wb ):
protect(fWb);
GWb := ( 10^(9)*Wb ):
protect(GWb);
hWb := ( 10^(2)*Wb ):
protect(hWb);
kWb := ( 10^(3)*Wb ):
protect(kWb);
mWb := ( 10^(-3)*Wb ):
protect(mWb);
MWb := ( 10^(6)*Wb ):
protect(MWb);
nWb := ( 10^(-9)*Wb ):
protect(nWb);
PWb := ( 10^(15)*Wb ):
protect(PWb);
pWb := ( 10^(-12)*Wb ):
protect(pWb);
TWb := ( 10^(12)*Wb ):
protect(TWb);
uWb := ( 10^(-6)*Wb ):
protect(uWb);
yWb := ( 10^(-24)*Wb ):
protect(yWb);
YWb := ( 10^(24)*Wb ):
protect(YWb);
zWb := ( 10^(-21)*Wb ):
protect(zWb);
ZWb := ( 10^(21)*Wb ):
protect(ZWb);


H:=(V*s/A);
protect( H );
aH := ( 10^(-18)*H ):
protect(aH);
cH := ( 10^(-2)*H ):
protect(cH);
dH := ( 10^(-1)*H ):
protect(dH);
EH := ( 10^(18)*H ):
protect(EH);
fH := ( 10^(-15)*H ):
protect(fH);
GH := ( 10^(9)*H ):
protect(GH);
hH := ( 10^(2)*H ):
protect(hH);
kH := ( 10^(3)*H ):
protect(kH);
mH := ( 10^(-3)*H ):
protect(mH);
MH := ( 10^(6)*H ):
protect(MH);
nH := ( 10^(-9)*H ):
protect(nH);
PH := ( 10^(15)*H ):
protect(PH);
pH := ( 10^(-12)*H ):
protect(pH);
TH := ( 10^(12)*H ):
protect(TH);
uH := ( 10^(-6)*H ):
protect(uH);
yH := ( 10^(-24)*H ):
protect(yH);
YH := ( 10^(24)*H ):
protect(YH);
zH := ( 10^(-21)*H ):
protect(zH);
ZH := ( 10^(21)*H ):
protect(ZH);


sr:=(1);
protect( sr );
asr := ( 10^(-18)*sr ):
protect(asr);
csr := ( 10^(-2)*sr ):
protect(csr);
dsr := ( 10^(-1)*sr ):
protect(dsr);
Esr := ( 10^(18)*sr ):
protect(Esr);
fsr := ( 10^(-15)*sr ):
protect(fsr);
Gsr := ( 10^(9)*sr ):
protect(Gsr);
hsr := ( 10^(2)*sr ):
protect(hsr);
ksr := ( 10^(3)*sr ):
protect(ksr);
msr := ( 10^(-3)*sr ):
protect(msr);
Msr := ( 10^(6)*sr ):
protect(Msr);
nsr := ( 10^(-9)*sr ):
protect(nsr);
Psr := ( 10^(15)*sr ):
protect(Psr);
psr := ( 10^(-12)*sr ):
protect(psr);
Tsr := ( 10^(12)*sr ):
protect(Tsr);
usr := ( 10^(-6)*sr ):
protect(usr);
ysr := ( 10^(-24)*sr ):
protect(ysr);
Ysr := ( 10^(24)*sr ):
protect(Ysr);
zsr := ( 10^(-21)*sr ):
protect(zsr);
Zsr := ( 10^(21)*sr ):
protect(Zsr);


lm:=(cd*sr);
protect( lm );
alm := ( 10^(-18)*lm ):
protect(alm);
clm := ( 10^(-2)*lm ):
protect(clm);
dlm := ( 10^(-1)*lm ):
protect(dlm);
Elm := ( 10^(18)*lm ):
protect(Elm);
flm := ( 10^(-15)*lm ):
protect(flm);
Glm := ( 10^(9)*lm ):
protect(Glm);
hlm := ( 10^(2)*lm ):
protect(hlm);
klm := ( 10^(3)*lm ):
protect(klm);
mlm := ( 10^(-3)*lm ):
protect(mlm);
Mlm := ( 10^(6)*lm ):
protect(Mlm);
nlm := ( 10^(-9)*lm ):
protect(nlm);
Plm := ( 10^(15)*lm ):
protect(Plm);
plm := ( 10^(-12)*lm ):
protect(plm);
Tlm := ( 10^(12)*lm ):
protect(Tlm);
ulm := ( 10^(-6)*lm ):
protect(ulm);
ylm := ( 10^(-24)*lm ):
protect(ylm);
Ylm := ( 10^(24)*lm ):
protect(Ylm);
zlm := ( 10^(-21)*lm ):
protect(zlm);
Zlm := ( 10^(21)*lm ):
protect(Zlm);


lx:=(cd*sr/m^2);
protect( lx );
alx := ( 10^(-18)*lx ):
protect(alx);
clx := ( 10^(-2)*lx ):
protect(clx);
dlx := ( 10^(-1)*lx ):
protect(dlx);
Elx := ( 10^(18)*lx ):
protect(Elx);
flx := ( 10^(-15)*lx ):
protect(flx);
Glx := ( 10^(9)*lx ):
protect(Glx);
hlx := ( 10^(2)*lx ):
protect(hlx);
klx := ( 10^(3)*lx ):
protect(klx);
mlx := ( 10^(-3)*lx ):
protect(mlx);
Mlx := ( 10^(6)*lx ):
protect(Mlx);
nlx := ( 10^(-9)*lx ):
protect(nlx);
Plx := ( 10^(15)*lx ):
protect(Plx);
plx := ( 10^(-12)*lx ):
protect(plx);
Tlx := ( 10^(12)*lx ):
protect(Tlx);
ulx := ( 10^(-6)*lx ):
protect(ulx);
ylx := ( 10^(-24)*lx ):
protect(ylx);
Ylx := ( 10^(24)*lx ):
protect(Ylx);
zlx := ( 10^(-21)*lx ):
protect(zlx);
Zlx := ( 10^(21)*lx ):
protect(Zlx);




cal:=(4.1868*J);
protect( cal );
acal := ( 10^(-18)*cal ):
protect(acal);
ccal := ( 10^(-2)*cal ):
protect(ccal);
dcal := ( 10^(-1)*cal ):
protect(dcal);
Ecal := ( 10^(18)*cal ):
protect(Ecal);
fcal := ( 10^(-15)*cal ):
protect(fcal);
Gcal := ( 10^(9)*cal ):
protect(Gcal);
hcal := ( 10^(2)*cal ):
protect(hcal);
kcal := ( 10^(3)*cal ):
protect(kcal);
mcal := ( 10^(-3)*cal ):
protect(mcal);
Mcal := ( 10^(6)*cal ):
protect(Mcal);
ncal := ( 10^(-9)*cal ):
protect(ncal);
Pcal := ( 10^(15)*cal ):
protect(Pcal);
pcal := ( 10^(-12)*cal ):
protect(pcal);
Tcal := ( 10^(12)*cal ):
protect(Tcal);
ucal := ( 10^(-6)*cal ):
protect(ucal);
ycal := ( 10^(-24)*cal ):
protect(ycal);
Ycal := ( 10^(24)*cal ):
protect(Ycal);
zcal := ( 10^(-21)*cal ):
protect(zcal);
Zcal := ( 10^(21)*cal ):
protect(Zcal);


inch:=(2.54*cm);
protect( inch );
ainch := ( 10^(-18)*inch ):
protect(ainch);
cinch := ( 10^(-2)*inch ):
protect(cinch);
dinch := ( 10^(-1)*inch ):
protect(dinch);
Einch := ( 10^(18)*inch ):
protect(Einch);
finch := ( 10^(-15)*inch ):
protect(finch);
Ginch := ( 10^(9)*inch ):
protect(Ginch);
hinch := ( 10^(2)*inch ):
protect(hinch);
kinch := ( 10^(3)*inch ):
protect(kinch);
minch := ( 10^(-3)*inch ):
protect(minch);
Minch := ( 10^(6)*inch ):
protect(Minch);
ninch := ( 10^(-9)*inch ):
protect(ninch);
Pinch := ( 10^(15)*inch ):
protect(Pinch);
pinch := ( 10^(-12)*inch ):
protect(pinch);
Tinch := ( 10^(12)*inch ):
protect(Tinch);
uinch := ( 10^(-6)*inch ):
protect(uinch);
yinch := ( 10^(-24)*inch ):
protect(yinch);
Yinch := ( 10^(24)*inch ):
protect(Yinch);
zinch := ( 10^(-21)*inch ):
protect(zinch);
Zinch := ( 10^(21)*inch ):
protect(Zinch);


ft:=(12*inch);
protect( ft );
aft := ( 10^(-18)*ft ):
protect(aft);
cft := ( 10^(-2)*ft ):
protect(cft);
dft := ( 10^(-1)*ft ):
protect(dft);
Eft := ( 10^(18)*ft ):
protect(Eft);
Gft := ( 10^(9)*ft ):
protect(Gft);
hft := ( 10^(2)*ft ):
protect(hft);
kft := ( 10^(3)*ft ):
protect(kft);
mft := ( 10^(-3)*ft ):
protect(mft);
Mft := ( 10^(6)*ft ):
protect(Mft);
nft := ( 10^(-9)*ft ):
protect(nft);
Pft := ( 10^(15)*ft ):
protect(Pft);
pft := ( 10^(-12)*ft ):
protect(pft);
Tft := ( 10^(12)*ft ):
protect(Tft);
uft := ( 10^(-6)*ft ):
protect(uft);
yft := ( 10^(-24)*ft ):
protect(yft);
Yft := ( 10^(24)*ft ):
protect(Yft);
zft := ( 10^(-21)*ft ):
protect(zft);
Zft := ( 10^(21)*ft ):
protect(Zft);


mile:=(5280*ft);
protect( mile );
amile := ( 10^(-18)*mile ):
protect(amile);
cmile := ( 10^(-2)*mile ):
protect(cmile);
dmile := ( 10^(-1)*mile ):
protect(dmile);
Emile := ( 10^(18)*mile ):
protect(Emile);
fmile := ( 10^(-15)*mile ):
protect(fmile);
Gmile := ( 10^(9)*mile ):
protect(Gmile);
hmile := ( 10^(2)*mile ):
protect(hmile);
kmile := ( 10^(3)*mile ):
protect(kmile);
mmile := ( 10^(-3)*mile ):
protect(mmile);
Mmile := ( 10^(6)*mile ):
protect(Mmile);
nmile := ( 10^(-9)*mile ):
protect(nmile);
Pmile := ( 10^(15)*mile ):
protect(Pmile);
pmile := ( 10^(-12)*mile ):
protect(pmile);
Tmile := ( 10^(12)*mile ):
protect(Tmile);
umile := ( 10^(-6)*mile ):
protect(umile);
ymile := ( 10^(-24)*mile ):
protect(ymile);
Ymile := ( 10^(24)*mile ):
protect(Ymile);
zmile := ( 10^(-21)*mile ):
protect(zmile);
Zmile := ( 10^(21)*mile ):
protect(Zmile);


lb:=(0.45359237*kg);
protect( lb );
alb := ( 10^(-18)*lb ):
protect(alb);
clb := ( 10^(-2)*lb ):
protect(clb);
dlb := ( 10^(-1)*lb ):
protect(dlb);
Elb := ( 10^(18)*lb ):
protect(Elb);
flb := ( 10^(-15)*lb ):
protect(flb);
Glb := ( 10^(9)*lb ):
protect(Glb);
hlb := ( 10^(2)*lb ):
protect(hlb);
klb := ( 10^(3)*lb ):
protect(klb);
mlb := ( 10^(-3)*lb ):
protect(mlb);
Mlb := ( 10^(6)*lb ):
protect(Mlb);
nlb := ( 10^(-9)*lb ):
protect(nlb);
Plb := ( 10^(15)*lb ):
protect(Plb);
plb := ( 10^(-12)*lb ):
protect(plb);
Tlb := ( 10^(12)*lb ):
protect(Tlb);
ulb := ( 10^(-6)*lb ):
protect(ulb);
ylb := ( 10^(-24)*lb ):
protect(ylb);
Ylb := ( 10^(24)*lb ):
protect(Ylb);
zlb := ( 10^(-21)*lb ):
protect(zlb);
Zlb := ( 10^(21)*lb ):
protect(Zlb);


oz:=(1.77185*10^(-3)*kg);
protect( oz );
aoz := ( 10^(-18)*oz ):
protect(aoz);
coz := ( 10^(-2)*oz ):
protect(coz);
doz := ( 10^(-1)*oz ):
protect(doz);
Eoz := ( 10^(18)*oz ):
protect(Eoz);
foz := ( 10^(-15)*oz ):
protect(foz);
Goz := ( 10^(9)*oz ):
protect(Goz);
hoz := ( 10^(2)*oz ):
protect(hoz);
koz := ( 10^(3)*oz ):
protect(koz);
moz := ( 10^(-3)*oz ):
protect(moz);
Moz := ( 10^(6)*oz ):
protect(Moz);
noz := ( 10^(-9)*oz ):
protect(noz);
Poz := ( 10^(15)*oz ):
protect(Poz);
poz := ( 10^(-12)*oz ):
protect(poz);
Toz := ( 10^(12)*oz ):
protect(Toz);
uoz := ( 10^(-6)*oz ):
protect(uoz);
yoz := ( 10^(-24)*oz ):
protect(yoz);
Yoz := ( 10^(24)*oz ):
protect(Yoz);
zoz := ( 10^(-21)*oz ):
protect(zoz);
Zoz := ( 10^(21)*oz ):
protect(Zoz);


yard:=(0.9144*m);
protect( yard );
ayard := ( 10^(-18)*yard ):
protect(ayard);
cyard := ( 10^(-2)*yard ):
protect(cyard);
dyard := ( 10^(-1)*yard ):
protect(dyard);
Eyard := ( 10^(18)*yard ):
protect(Eyard);
fyard := ( 10^(-15)*yard ):
protect(fyard);
Gyard := ( 10^(9)*yard ):
protect(Gyard);
hyard := ( 10^(2)*yard ):
protect(hyard);
kyard := ( 10^(3)*yard ):
protect(kyard);
myard := ( 10^(-3)*yard ):
protect(myard);
Myard := ( 10^(6)*yard ):
protect(Myard);
nyard := ( 10^(-9)*yard ):
protect(nyard);
Pyard := ( 10^(15)*yard ):
protect(Pyard);
pyard := ( 10^(-12)*yard ):
protect(pyard);
Tyard := ( 10^(12)*yard ):
protect(Tyard);
uyard := ( 10^(-6)*yard ):
protect(uyard);
yyard := ( 10^(-24)*yard ):
protect(yyard);
Yyard := ( 10^(24)*yard ):
protect(Yyard);
zyard := ( 10^(-21)*yard ):
protect(zyard);
Zyard := ( 10^(21)*yard ):
protect(Zyard);


n_mi:=(6080*ft);
protect( n_mi );
an_mi := ( 10^(-18)*n_mi ):
protect(an_mi);
cn_mi := ( 10^(-2)*n_mi ):
protect(cn_mi);
dn_mi := ( 10^(-1)*n_mi ):
protect(dn_mi);
En_mi := ( 10^(18)*n_mi ):
protect(En_mi);
fn_mi := ( 10^(-15)*n_mi ):
protect(fn_mi);
Gn_mi := ( 10^(9)*n_mi ):
protect(Gn_mi);
hn_mi := ( 10^(2)*n_mi ):
protect(hn_mi);
kn_mi := ( 10^(3)*n_mi ):
protect(kn_mi);
mn_mi := ( 10^(-3)*n_mi ):
protect(mn_mi);
Mn_mi := ( 10^(6)*n_mi ):
protect(Mn_mi);
nn_mi := ( 10^(-9)*n_mi ):
protect(nn_mi);
Pn_mi := ( 10^(15)*n_mi ):
protect(Pn_mi);
pn_mi := ( 10^(-12)*n_mi ):
protect(pn_mi);
Tn_mi := ( 10^(12)*n_mi ):
protect(Tn_mi);
un_mi := ( 10^(-6)*n_mi ):
protect(un_mi);
yn_mi := ( 10^(-24)*n_mi ):
protect(yn_mi);
Yn_mi := ( 10^(24)*n_mi ):
protect(Yn_mi);
zn_mi := ( 10^(-21)*n_mi ):
protect(zn_mi);
Zn_mi := ( 10^(21)*n_mi ):
protect(Zn_mi);


rod:=(1210*yd^2);
protect( rod );
arod := ( 10^(-18)*rod ):
protect(arod);
crod := ( 10^(-2)*rod ):
protect(crod);
drod := ( 10^(-1)*rod ):
protect(drod);
Erod := ( 10^(18)*rod ):
protect(Erod);
frod := ( 10^(-15)*rod ):
protect(frod);
Grod := ( 10^(9)*rod ):
protect(Grod);
hrod := ( 10^(2)*rod ):
protect(hrod);
krod := ( 10^(3)*rod ):
protect(krod);
mrod := ( 10^(-3)*rod ):
protect(mrod);
Mrod := ( 10^(6)*rod ):
protect(Mrod);
nrod := ( 10^(-9)*rod ):
protect(nrod);
Prod := ( 10^(15)*rod ):
protect(Prod);
prod := ( 10^(-12)*rod ):
protect(prod);
Trod := ( 10^(12)*rod ):
protect(Trod);
urod := ( 10^(-6)*rod ):
protect(urod);
yrod := ( 10^(-24)*rod ):
protect(yrod);
Yrod := ( 10^(24)*rod ):
protect(Yrod);
zrod := ( 10^(-21)*rod ):
protect(zrod);
Zrod := ( 10^(21)*rod ):
protect(Zrod);


acre:=(4840*yd^2);
protect( acre );
aacre := ( 10^(-18)*acre ):
protect(aacre);
cacre := ( 10^(-2)*acre ):
protect(cacre);
dacre := ( 10^(-1)*acre ):
protect(dacre);
Eacre := ( 10^(18)*acre ):
protect(Eacre);
facre := ( 10^(-15)*acre ):
protect(facre);
Gacre := ( 10^(9)*acre ):
protect(Gacre);
hacre := ( 10^(2)*acre ):
protect(hacre);
kacre := ( 10^(3)*acre ):
protect(kacre);
macre := ( 10^(-3)*acre ):
protect(macre);
Macre := ( 10^(6)*acre ):
protect(Macre);
nacre := ( 10^(-9)*acre ):
protect(nacre);
Pacre := ( 10^(15)*acre ):
protect(Pacre);
pacre := ( 10^(-12)*acre ):
protect(pacre);
Tacre := ( 10^(12)*acre ):
protect(Tacre);
uacre := ( 10^(-6)*acre ):
protect(uacre);
yacre := ( 10^(-24)*acre ):
protect(yacre);
Yacre := ( 10^(24)*acre ):
protect(Yacre);
zacre := ( 10^(-21)*acre ):
protect(zacre);
Zacre := ( 10^(21)*acre ):
protect(Zacre);


lbf:=(4.44822*N);
protect( lbf );
albf := ( 10^(-18)*lbf ):
protect(albf);
clbf := ( 10^(-2)*lbf ):
protect(clbf);
dlbf := ( 10^(-1)*lbf ):
protect(dlbf);
Elbf := ( 10^(18)*lbf ):
protect(Elbf);
flbf := ( 10^(-15)*lbf ):
protect(flbf);
Glbf := ( 10^(9)*lbf ):
protect(Glbf);
hlbf := ( 10^(2)*lbf ):
protect(hlbf);
klbf := ( 10^(3)*lbf ):
protect(klbf);
mlbf := ( 10^(-3)*lbf ):
protect(mlbf);
Mlbf := ( 10^(6)*lbf ):
protect(Mlbf);
nlbf := ( 10^(-9)*lbf ):
protect(nlbf);
Plbf := ( 10^(15)*lbf ):
protect(Plbf);
plbf := ( 10^(-12)*lbf ):
protect(plbf);
Tlbf := ( 10^(12)*lbf ):
protect(Tlbf);
ulbf := ( 10^(-6)*lbf ):
protect(ulbf);
ylbf := ( 10^(-24)*lbf ):
protect(ylbf);
Ylbf := ( 10^(24)*lbf ):
protect(Ylbf);
zlbf := ( 10^(-21)*lbf ):
protect(zlbf);
Zlbf := ( 10^(21)*lbf ):
protect(Zlbf);


dyn:=(10^(-5)*N);
protect( dyn );
adyn := ( 10^(-18)*dyn ):
protect(adyn);
cdyn := ( 10^(-2)*dyn ):
protect(cdyn);
ddyn := ( 10^(-1)*dyn ):
protect(ddyn);
Edyn := ( 10^(18)*dyn ):
protect(Edyn);
fdyn := ( 10^(-15)*dyn ):
protect(fdyn);
Gdyn := ( 10^(9)*dyn ):
protect(Gdyn);
hdyn := ( 10^(2)*dyn ):
protect(hdyn);
kdyn := ( 10^(3)*dyn ):
protect(kdyn);
mdyn := ( 10^(-3)*dyn ):
protect(mdyn);
Mdyn := ( 10^(6)*dyn ):
protect(Mdyn);
ndyn := ( 10^(-9)*dyn ):
protect(ndyn);
Pdyn := ( 10^(15)*dyn ):
protect(Pdyn);
pdyn := ( 10^(-12)*dyn ):
protect(pdyn);
Tdyn := ( 10^(12)*dyn ):
protect(Tdyn);
udyn := ( 10^(-6)*dyn ):
protect(udyn);
ydyn := ( 10^(-24)*dyn ):
protect(ydyn);
Ydyn := ( 10^(24)*dyn ):
protect(Ydyn);
zdyn := ( 10^(-21)*dyn ):
protect(zdyn);
Zdyn := ( 10^(21)*dyn ):
protect(Zdyn);


bar:=(10^5*Pa);
protect( bar );
abar := ( 10^(-18)*bar ):
protect(abar);
cbar := ( 10^(-2)*bar ):
protect(cbar);
dbar := ( 10^(-1)*bar ):
protect(dbar);
Ebar := ( 10^(18)*bar ):
protect(Ebar);
fbar := ( 10^(-15)*bar ):
protect(fbar);
Gbar := ( 10^(9)*bar ):
protect(Gbar);
hbar := ( 10^(2)*bar ):
protect(hbar);
kbar := ( 10^(3)*bar ):
protect(kbar);
mbar := ( 10^(-3)*bar ):
protect(mbar);
Mbar := ( 10^(6)*bar ):
protect(Mbar);
nbar := ( 10^(-9)*bar ):
protect(nbar);
Pbar := ( 10^(15)*bar ):
protect(Pbar);
pbar := ( 10^(-12)*bar ):
protect(pbar);
Tbar := ( 10^(12)*bar ):
protect(Tbar);
ubar := ( 10^(-6)*bar ):
protect(ubar);
ybar := ( 10^(-24)*bar ):
protect(ybar);
Ybar := ( 10^(24)*bar ):
protect(Ybar);
zbar := ( 10^(-21)*bar ):
protect(zbar);
Zbar := ( 10^(21)*bar ):
protect(Zbar);


atm:=(760*torr);
protect( atm );
aatm := ( 10^(-18)*atm ):
protect(aatm);
catm := ( 10^(-2)*atm ):
protect(catm);
datm := ( 10^(-1)*atm ):
protect(datm);
Eatm := ( 10^(18)*atm ):
protect(Eatm);
fatm := ( 10^(-15)*atm ):
protect(fatm);
Gatm := ( 10^(9)*atm ):
protect(Gatm);
hatm := ( 10^(2)*atm ):
protect(hatm);
katm := ( 10^(3)*atm ):
protect(katm);
matm := ( 10^(-3)*atm ):
protect(matm);
Matm := ( 10^(6)*atm ):
protect(Matm);
natm := ( 10^(-9)*atm ):
protect(natm);
Patm := ( 10^(15)*atm ):
protect(Patm);
patm := ( 10^(-12)*atm ):
protect(patm);
Tatm := ( 10^(12)*atm ):
protect(Tatm);
uatm := ( 10^(-6)*atm ):
protect(uatm);
yatm := ( 10^(-24)*atm ):
protect(yatm);
Yatm := ( 10^(24)*atm ):
protect(Yatm);
zatm := ( 10^(-21)*atm ):
protect(zatm);
Zatm := ( 10^(21)*atm ):
protect(Zatm);


Btu:=(1.05506*10^3*J);
protect( Btu );
aBtu := ( 10^(-18)*Btu ):
protect(aBtu);
cBtu := ( 10^(-2)*Btu ):
protect(cBtu);
dBtu := ( 10^(-1)*Btu ):
protect(dBtu);
EBtu := ( 10^(18)*Btu ):
protect(EBtu);
fBtu := ( 10^(-15)*Btu ):
protect(fBtu);
GBtu := ( 10^(9)*Btu ):
protect(GBtu);
hBtu := ( 10^(2)*Btu ):
protect(hBtu);
kBtu := ( 10^(3)*Btu ):
protect(kBtu);
mBtu := ( 10^(-3)*Btu ):
protect(mBtu);
MBtu := ( 10^(6)*Btu ):
protect(MBtu);
nBtu := ( 10^(-9)*Btu ):
protect(nBtu);
PBtu := ( 10^(15)*Btu ):
protect(PBtu);
pBtu := ( 10^(-12)*Btu ):
protect(pBtu);
TBtu := ( 10^(12)*Btu ):
protect(TBtu);
uBtu := ( 10^(-6)*Btu ):
protect(uBtu);
yBtu := ( 10^(-24)*Btu ):
protect(yBtu);
YBtu := ( 10^(24)*Btu ):
protect(YBtu);
zBtu := ( 10^(-21)*Btu ):
protect(zBtu);
ZBtu := ( 10^(21)*Btu ):
protect(ZBtu);




protect( mol );


angstrom:=(10^(-10)*m);
protect( angstrom );


k:=(1.380658*10^(-23)*J/K);
protect( k );


e:=(1.60217733*10^(-19)*C);
protect( e );


h:=(6.6260755*10^(-34)*J*s);
protect( h );


h_bar:=(1.05459*10^(-34)*J*s);
protect( h_bar );


c:=(2.99792458*10^8*m/s);
protect( c );


G:=(6.67259*10^(-11)*N*(m^2)/(kg^2));
protect( G );


R:=(8.314510*J/(mol*K));
protect( R );


AU:=(1.49598*10^11*m);
protect( AU );


unassignunits:=proc(n)
 begin
if n="constant" then
unassign( mol, angstrom, k, e, h, h_bar, c, G, R, AU):
end_if;
if n="English" then
unassign( cal, acal, ccal, dcal, Ecal, fcal, Gcal, hcal, kcal, mcal, Mcal, ncal, Pcal, pcal, Tcal, ucal, ycal, Ycal, zcal, Zcal, inch, ainch, cinch, dinch, Einch, finch, Ginch, hinch, kinch, minch, Minch, ninch, Pinch, pinch, Tinch, uinch, yinch, Yinch, zinch, Zinch, ft, aft, cft, dft, Eft, Gft, hft, kft, mft, Mft, nft, Pft, pft, Tft, uft, yft, Yft, zft, Zft, mile, amile, cmile, dmile, Emile, fmile, Gmile, hmile, kmile, mmile, Mmile, nmile, Pmile, pmile, Tmile, umile, ymile, Ymile, zmile, Zmile, lb, alb, clb, dlb, Elb, flb, Glb, hlb, klb, mlb, Mlb, nlb, Plb, plb, Tlb, ulb, ylb, Ylb, zlb, Zlb, oz, aoz, coz, doz, Eoz, foz, Goz, hoz, koz, moz, Moz, noz, Poz, poz, Toz, uoz, yoz, Yoz, zoz, Zoz, yard, ayard, cyard, dyard, Eyard, fyard, Gyard, hyard, kyard, myard, Myard, nyard, Pyard, pyard, Tyard, uyard, yyard, Yyard, zyard, Zyard, n_mi, an_mi, cn_mi, dn_mi, En_mi, fn_mi, Gn_mi, hn_mi, kn_mi, mn_mi, Mn_mi, nn_mi, Pn_mi, pn_mi, Tn_mi, un_mi, yn_mi, Yn_mi, zn_mi, Zn_mi, rod, arod, crod, drod, Erod, frod, Grod, hrod, krod, mrod, Mrod, nrod, Prod, prod, Trod, urod, yrod, Yrod, zrod, Zrod, acre, aacre, cacre, dacre, Eacre, facre, Gacre, hacre, kacre, macre, Macre, nacre, Pacre, pacre, Tacre, uacre, yacre, Yacre, zacre, Zacre, lbf, albf, clbf, dlbf, Elbf, flbf, Glbf, hlbf, klbf, mlbf, Mlbf, nlbf, Plbf, plbf, Tlbf, ulbf, ylbf, Ylbf, zlbf, Zlbf, dyn, adyn, cdyn, ddyn, Edyn, fdyn, Gdyn, hdyn, kdyn, mdyn, Mdyn, ndyn, Pdyn, pdyn, Tdyn, udyn, ydyn, Ydyn, zdyn, Zdyn, bar, abar, cbar, dbar, Ebar, fbar, Gbar, hbar, kbar, mbar, Mbar, nbar, Pbar, pbar, Tbar, ubar, ybar, Ybar, zbar, Zbar, atm, aatm, catm, datm, Eatm, fatm, Gatm, hatm, katm, matm, Matm, natm, Patm, patm, Tatm, uatm, yatm, Yatm, zatm, Zatm, Btu, aBtu, cBtu, dBtu, EBtu, fBtu, GBtu, hBtu, kBtu, mBtu, MBtu, nBtu, PBtu, pBtu, TBtu, uBtu, yBtu, YBtu, zBtu, ZBtu):
end_if;
if n="SI" then
unassign( m, am, cm, dm, Em, fm, Gm, hm, km, mm, Mm, nm, Pm, pm, Tm, um, ym, Ym, zm, Zm, s, as, cs, ds, Es, fs, Gs, hs, ks, ms, Ms, ns, Ps, ps, Ts, us, ys, Ys, zs, Zs, g, ag, cg, dg, Eg, fg, Gg, hg, mg, Mg, ng, Pg, pg, Tg, ug, yg, Yg, zg, Zg, kg, L, aL, cL, dL, EL, fL, GL, hL, kL, mL, ML, nL, PL, pL, TL, uL, yL, YL, zL, ZL, N, aN, cN, dN, EN, fN, GN, hN, kN, mN, MN, nN, PN, pN, TN, uN, yN, YN, zN, ZN, Pa, aPa, cPa, dPa, EPa, fPa, GPa, hPa, kPa, mPa, MPa, nPa, PPa, pPa, TPa, uPa, yPa, YPa, zPa, ZPa, A, aA, cA, dA, EA, fA, GA, hA, kA, mA, MA, nA, PA, pA, TA, uA, yA, YA, zA, ZA, Hz, aHz, cHz, dHz, EHz, fHz, GHz, hHz, kHz, mHz, MHz, nHz, PHz, pHz, THz, uHz, yHz, YHz, zHz, ZHz, J, aJ, cJ, dJ, EJ, fJ, GJ, hJ, kJ, mJ, MJ, nJ, PJ, pJ, TJ, uJ, yJ, YJ, zJ, ZJ, W, aW, cW, dW, EW, fW, GW, hW, kW, mW, MW, nW, PW, pW, TW, uW, yW, YW, zW, ZW, hp, ahp, chp, dhp, Ehp, fhp, Ghp, hhp, khp, mhp, Mhp, nhp, Php, php, Thp, uhp, yhp, Yhp, zhp, Zhp, eV, aeV, ceV, deV, EeV, feV, GeV, heV, keV, meV, MeV, neV, PeV, peV, TeV, ueV, yeV, YeV, zeV, ZeV, V, aV, cV, dV, EV, fV, GV, hV, kV, mV, MV, nV, PV, pV, TV, uV, yV, YV, zV, ZV, ohm, aohm, cohm, dohm, Eohm, fohm, Gohm, hohm, kohm, mohm, Mohm, nohm, Pohm, pohm, Tohm, uohm, yohm, Yohm, zohm, Zohm, ohms, aohms, cohms, dohms, Eohms, fohms, Gohms, hohms, kohms, mohms, Mohms, nohms, Pohms, pohms, Tohms, uohms, yohms, Yohms, zohms, Zohms, Ohm, aOhm, cOhm, dOhm, EOhm, fOhm, GOhm, hOhm, kOhm, mOhm, MOhm, nOhm, POhm, pOhm, TOhm, uOhm, yOhm, YOhm, zOhm, ZOhm, Ohms, aOhms, cOhms, dOhms, EOhms, fOhms, GOhms, hOhms, kOhms, mOhms, MOhms, nOhms, POhms, pOhms, TOhms, uOhms, yOhms, YOhms, zOhms, ZOhms, hr, ahr, chr, dhr, Ehr, fhr, Ghr, hhr, khr, mhr, Mhr, nhr, Phr, phr, Thr, uhr, yhr, Yhr, zhr, Zhr, minutes, aminutes, cminutes, dminutes, Eminutes, fminutes, Gminutes, hminutes, kminutes, mminutes, Mminutes, nminutes, Pminutes, pminutes, Tminutes, uminutes, yminutes, Yminutes, zminutes, Zminutes, day, aday, cday, dday, Eday, fday, Gday, hday, kday, mday, Mday, nday, Pday, pday, Tday, uday, yday, Yday, zday, Zday, rad, arad, crad, frad, mrad, nrad, prad, urad, yrad, zrad, deg, adeg, cdeg, ddeg, Edeg, fdeg, Gdeg, hdeg, kdeg, mdeg, Mdeg, ndeg, Pdeg, pdeg, Tdeg, udeg, ydeg, Ydeg, zdeg, Zdeg, mmHg, torr, atorr, ctorr, dtorr, Etorr, ftorr, Gtorr, htorr, ktorr, mtorr, Mtorr, ntorr, Ptorr, ptorr, Ttorr, utorr, ytorr, Ytorr, ztorr, Ztorr, Bq, aBq, cBq, dBq, EBq, fBq, GBq, hBq, kBq, mBq, MBq, nBq, PBq, pBq, TBq, uBq, yBq, YBq, zBq, ZBq, Gy, aGy, cGy, dGy, EGy, fGy, GGy, hGy, kGy, mGy, MGy, nGy, PGy, pGy, TGy, uGy, yGy, YGy, zGy, ZGy, Sv, aSv, cSv, dSv, ESv, fSv, GSv, hSv, kSv, mSv, MSv, nSv, PSv, pSv, TSv, uSv, ySv, YSv, zSv, ZSv, C, aC, cC, dC, EC, fC, GC, hC, kC, mC, MC, nC, PC, pC, TC, uC, yC, YC, zC, ZC, S, aS, cS, dS, ES, fS, GS, hS, kS, mS, MS, nS, PS, pS, TS, uS, yS, YS, zS, ZS, F, aF, cF, dF, EF, fF, GF, hF, kF, mF, MF, nF, PF, pF, TF, uF, yF, YF, zF, ZF, T, aT, cT, dT, ET, fT, GT, hT, kT, mT, MT, nT, PT, pT, TT, uT, yT, YT, zT, ZT, Wb, aWb, cWb, dWb, EWb, fWb, GWb, hWb, kWb, mWb, MWb, nWb, PWb, pWb, TWb, uWb, yWb, YWb, zWb, ZWb, H, aH, cH, dH, EH, fH, GH, hH, kH, mH, MH, nH, PH, pH, TH, uH, yH, YH, zH, ZH, sr, asr, csr, dsr, Esr, fsr, Gsr, hsr, ksr, msr, Msr, nsr, Psr, psr, Tsr, usr, ysr, Ysr, zsr, Zsr, lm, alm, clm, dlm, Elm, flm, Glm, hlm, klm, mlm, Mlm, nlm, Plm, plm, Tlm, ulm, ylm, Ylm, zlm, Zlm, lx, alx, clx, dlx, Elx, flx, Glx, hlx, klx, mlx, Mlx, nlx, Plx, plx, Tlx, ulx, ylx, Ylx, zlx, Zlx):
end_if;
end_proc;