File:
[LON-CAPA] /
loncom /
mupad_utils /
units /
units
Revision
1.1:
download - view:
text,
annotated -
select for diffs
Thu Aug 10 20:17:57 2000 UTC (24 years, 1 month ago) by
tyszkabe
Branches:
MAIN
CVS tags:
version_2_9_X,
version_2_9_99_0,
version_2_9_1,
version_2_9_0,
version_2_8_X,
version_2_8_99_1,
version_2_8_99_0,
version_2_8_2,
version_2_8_1,
version_2_8_0,
version_2_7_X,
version_2_7_99_1,
version_2_7_99_0,
version_2_7_1,
version_2_7_0,
version_2_6_X,
version_2_6_99_1,
version_2_6_99_0,
version_2_6_3,
version_2_6_2,
version_2_6_1,
version_2_6_0,
version_2_5_X,
version_2_5_99_1,
version_2_5_99_0,
version_2_5_2,
version_2_5_1,
version_2_5_0,
version_2_4_X,
version_2_4_99_0,
version_2_4_2,
version_2_4_1,
version_2_4_0,
version_2_3_X,
version_2_3_99_0,
version_2_3_2,
version_2_3_1,
version_2_3_0,
version_2_2_X,
version_2_2_99_1,
version_2_2_99_0,
version_2_2_2,
version_2_2_1,
version_2_2_0,
version_2_1_X,
version_2_1_99_3,
version_2_1_99_2,
version_2_1_99_1,
version_2_1_99_0,
version_2_1_3,
version_2_1_2,
version_2_1_1,
version_2_1_0,
version_2_12_X,
version_2_11_X,
version_2_11_5_msu,
version_2_11_5,
version_2_11_4_uiuc,
version_2_11_4_msu,
version_2_11_4,
version_2_11_3_uiuc,
version_2_11_3_msu,
version_2_11_3,
version_2_11_2_uiuc,
version_2_11_2_msu,
version_2_11_2_educog,
version_2_11_2,
version_2_11_1,
version_2_11_0_RC3,
version_2_11_0_RC2,
version_2_11_0_RC1,
version_2_11_0,
version_2_10_X,
version_2_10_1,
version_2_10_0_RC2,
version_2_10_0_RC1,
version_2_10_0,
version_2_0_X,
version_2_0_99_1,
version_2_0_2,
version_2_0_1,
version_2_0_0,
version_1_99_3,
version_1_99_2,
version_1_99_1_tmcc,
version_1_99_1,
version_1_99_0_tmcc,
version_1_99_0,
version_1_3_X,
version_1_3_3,
version_1_3_2,
version_1_3_1,
version_1_3_0,
version_1_2_X,
version_1_2_99_1,
version_1_2_99_0,
version_1_2_1,
version_1_2_0,
version_1_1_X,
version_1_1_99_5,
version_1_1_99_4,
version_1_1_99_3,
version_1_1_99_2,
version_1_1_99_1,
version_1_1_99_0,
version_1_1_3,
version_1_1_2,
version_1_1_1,
version_1_1_0,
version_1_0_99_3,
version_1_0_99_2,
version_1_0_99_1,
version_1_0_99,
version_1_0_3,
version_1_0_2,
version_1_0_1,
version_1_0_0,
version_0_99_5,
version_0_99_4,
version_0_99_3,
version_0_99_2,
version_0_99_1,
version_0_99_0,
version_0_6_2,
version_0_6,
version_0_5_1,
version_0_5,
version_0_4,
stable_2002_spring,
stable_2002_july,
stable_2002_april,
stable_2001_fall,
loncapaMITrelate_1,
language_hyphenation_merge,
language_hyphenation,
conference_2003,
bz6209-base,
bz6209,
bz5969,
bz2851,
STABLE,
PRINT_INCOMPLETE_base,
PRINT_INCOMPLETE,
HEAD,
GCI_3,
GCI_2,
GCI_1,
BZ5971-printing-apage,
BZ5434-fox,
BZ4492-merge,
BZ4492-feature_horizontal_radioresponse
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
1:
2:
3: protect( m );
4: am := ( 10^(-18)*m ):
5: protect(am);
6: cm := ( 10^(-2)*m ):
7: protect(cm);
8: dm := ( 10^(-1)*m ):
9: protect(dm);
10: Em := ( 10^(18)*m ):
11: protect(Em);
12: fm := ( 10^(-15)*m ):
13: protect(fm);
14: Gm := ( 10^(9)*m ):
15: protect(Gm);
16: hm := ( 10^(2)*m ):
17: protect(hm);
18: km := ( 10^(3)*m ):
19: protect(km);
20: mm := ( 10^(-3)*m ):
21: protect(mm);
22: Mm := ( 10^(6)*m ):
23: protect(Mm);
24: nm := ( 10^(-9)*m ):
25: protect(nm);
26: Pm := ( 10^(15)*m ):
27: protect(Pm);
28: pm := ( 10^(-12)*m ):
29: protect(pm);
30: Tm := ( 10^(12)*m ):
31: protect(Tm);
32: um := ( 10^(-6)*m ):
33: protect(um);
34: ym := ( 10^(-24)*m ):
35: protect(ym);
36: Ym := ( 10^(24)*m ):
37: protect(Ym);
38: zm := ( 10^(-21)*m ):
39: protect(zm);
40: Zm := ( 10^(21)*m ):
41: protect(Zm);
42:
43:
44: protect( s );
45: as := ( 10^(-18)*s ):
46: protect(as);
47: cs := ( 10^(-2)*s ):
48: protect(cs);
49: ds := ( 10^(-1)*s ):
50: protect(ds);
51: Es := ( 10^(18)*s ):
52: protect(Es);
53: fs := ( 10^(-15)*s ):
54: protect(fs);
55: Gs := ( 10^(9)*s ):
56: protect(Gs);
57: hs := ( 10^(2)*s ):
58: protect(hs);
59: ks := ( 10^(3)*s ):
60: protect(ks);
61: ms := ( 10^(-3)*s ):
62: protect(ms);
63: Ms := ( 10^(6)*s ):
64: protect(Ms);
65: ns := ( 10^(-9)*s ):
66: protect(ns);
67: Ps := ( 10^(15)*s ):
68: protect(Ps);
69: ps := ( 10^(-12)*s ):
70: protect(ps);
71: Ts := ( 10^(12)*s ):
72: protect(Ts);
73: us := ( 10^(-6)*s ):
74: protect(us);
75: ys := ( 10^(-24)*s ):
76: protect(ys);
77: Ys := ( 10^(24)*s ):
78: protect(Ys);
79: zs := ( 10^(-21)*s ):
80: protect(zs);
81: Zs := ( 10^(21)*s ):
82: protect(Zs);
83:
84:
85: g:=(0.001*kg);
86: protect( g );
87: ag := ( 10^(-18)*g ):
88: protect(ag);
89: cg := ( 10^(-2)*g ):
90: protect(cg);
91: dg := ( 10^(-1)*g ):
92: protect(dg);
93: Eg := ( 10^(18)*g ):
94: protect(Eg);
95: fg := ( 10^(-15)*g ):
96: protect(fg);
97: Gg := ( 10^(9)*g ):
98: protect(Gg);
99: hg := ( 10^(2)*g ):
100: protect(hg);
101: mg := ( 10^(-3)*g ):
102: protect(mg);
103: Mg := ( 10^(6)*g ):
104: protect(Mg);
105: ng := ( 10^(-9)*g ):
106: protect(ng);
107: Pg := ( 10^(15)*g ):
108: protect(Pg);
109: pg := ( 10^(-12)*g ):
110: protect(pg);
111: Tg := ( 10^(12)*g ):
112: protect(Tg);
113: ug := ( 10^(-6)*g ):
114: protect(ug);
115: yg := ( 10^(-24)*g ):
116: protect(yg);
117: Yg := ( 10^(24)*g ):
118: protect(Yg);
119: zg := ( 10^(-21)*g ):
120: protect(zg);
121: Zg := ( 10^(21)*g ):
122: protect(Zg);
123:
124:
125: protect( kg );
126:
127:
128: L:=(10^3*cm^3);
129: protect( L );
130: aL := ( 10^(-18)*L ):
131: protect(aL);
132: cL := ( 10^(-2)*L ):
133: protect(cL);
134: dL := ( 10^(-1)*L ):
135: protect(dL);
136: EL := ( 10^(18)*L ):
137: protect(EL);
138: fL := ( 10^(-15)*L ):
139: protect(fL);
140: GL := ( 10^(9)*L ):
141: protect(GL);
142: hL := ( 10^(2)*L ):
143: protect(hL);
144: kL := ( 10^(3)*L ):
145: protect(kL);
146: mL := ( 10^(-3)*L ):
147: protect(mL);
148: ML := ( 10^(6)*L ):
149: protect(ML);
150: nL := ( 10^(-9)*L ):
151: protect(nL);
152: PL := ( 10^(15)*L ):
153: protect(PL);
154: pL := ( 10^(-12)*L ):
155: protect(pL);
156: TL := ( 10^(12)*L ):
157: protect(TL);
158: uL := ( 10^(-6)*L ):
159: protect(uL);
160: yL := ( 10^(-24)*L ):
161: protect(yL);
162: YL := ( 10^(24)*L ):
163: protect(YL);
164: zL := ( 10^(-21)*L ):
165: protect(zL);
166: ZL := ( 10^(21)*L ):
167: protect(ZL);
168:
169:
170: N:=(m*kg/s^2);
171: protect( N );
172: aN := ( 10^(-18)*N ):
173: protect(aN);
174: cN := ( 10^(-2)*N ):
175: protect(cN);
176: dN := ( 10^(-1)*N ):
177: protect(dN);
178: EN := ( 10^(18)*N ):
179: protect(EN);
180: fN := ( 10^(-15)*N ):
181: protect(fN);
182: GN := ( 10^(9)*N ):
183: protect(GN);
184: hN := ( 10^(2)*N ):
185: protect(hN);
186: kN := ( 10^(3)*N ):
187: protect(kN);
188: mN := ( 10^(-3)*N ):
189: protect(mN);
190: MN := ( 10^(6)*N ):
191: protect(MN);
192: nN := ( 10^(-9)*N ):
193: protect(nN);
194: PN := ( 10^(15)*N ):
195: protect(PN);
196: pN := ( 10^(-12)*N ):
197: protect(pN);
198: TN := ( 10^(12)*N ):
199: protect(TN);
200: uN := ( 10^(-6)*N ):
201: protect(uN);
202: yN := ( 10^(-24)*N ):
203: protect(yN);
204: YN := ( 10^(24)*N ):
205: protect(YN);
206: zN := ( 10^(-21)*N ):
207: protect(zN);
208: ZN := ( 10^(21)*N ):
209: protect(ZN);
210:
211:
212: Pa:=(N/m^2);
213: protect( Pa );
214: aPa := ( 10^(-18)*Pa ):
215: protect(aPa);
216: cPa := ( 10^(-2)*Pa ):
217: protect(cPa);
218: dPa := ( 10^(-1)*Pa ):
219: protect(dPa);
220: EPa := ( 10^(18)*Pa ):
221: protect(EPa);
222: fPa := ( 10^(-15)*Pa ):
223: protect(fPa);
224: GPa := ( 10^(9)*Pa ):
225: protect(GPa);
226: hPa := ( 10^(2)*Pa ):
227: protect(hPa);
228: kPa := ( 10^(3)*Pa ):
229: protect(kPa);
230: mPa := ( 10^(-3)*Pa ):
231: protect(mPa);
232: MPa := ( 10^(6)*Pa ):
233: protect(MPa);
234: nPa := ( 10^(-9)*Pa ):
235: protect(nPa);
236: PPa := ( 10^(15)*Pa ):
237: protect(PPa);
238: pPa := ( 10^(-12)*Pa ):
239: protect(pPa);
240: TPa := ( 10^(12)*Pa ):
241: protect(TPa);
242: uPa := ( 10^(-6)*Pa ):
243: protect(uPa);
244: yPa := ( 10^(-24)*Pa ):
245: protect(yPa);
246: YPa := ( 10^(24)*Pa ):
247: protect(YPa);
248: zPa := ( 10^(-21)*Pa ):
249: protect(zPa);
250: ZPa := ( 10^(21)*Pa ):
251: protect(ZPa);
252:
253:
254: protect( A );
255: aA := ( 10^(-18)*A ):
256: protect(aA);
257: cA := ( 10^(-2)*A ):
258: protect(cA);
259: dA := ( 10^(-1)*A ):
260: protect(dA);
261: EA := ( 10^(18)*A ):
262: protect(EA);
263: fA := ( 10^(-15)*A ):
264: protect(fA);
265: GA := ( 10^(9)*A ):
266: protect(GA);
267: hA := ( 10^(2)*A ):
268: protect(hA);
269: kA := ( 10^(3)*A ):
270: protect(kA);
271: mA := ( 10^(-3)*A ):
272: protect(mA);
273: MA := ( 10^(6)*A ):
274: protect(MA);
275: nA := ( 10^(-9)*A ):
276: protect(nA);
277: PA := ( 10^(15)*A ):
278: protect(PA);
279: pA := ( 10^(-12)*A ):
280: protect(pA);
281: TA := ( 10^(12)*A ):
282: protect(TA);
283: uA := ( 10^(-6)*A ):
284: protect(uA);
285: yA := ( 10^(-24)*A ):
286: protect(yA);
287: YA := ( 10^(24)*A ):
288: protect(YA);
289: zA := ( 10^(-21)*A ):
290: protect(zA);
291: ZA := ( 10^(21)*A ):
292: protect(ZA);
293:
294:
295: Hz:=(1/s);
296: protect( Hz );
297: aHz := ( 10^(-18)*Hz ):
298: protect(aHz);
299: cHz := ( 10^(-2)*Hz ):
300: protect(cHz);
301: dHz := ( 10^(-1)*Hz ):
302: protect(dHz);
303: EHz := ( 10^(18)*Hz ):
304: protect(EHz);
305: fHz := ( 10^(-15)*Hz ):
306: protect(fHz);
307: GHz := ( 10^(9)*Hz ):
308: protect(GHz);
309: hHz := ( 10^(2)*Hz ):
310: protect(hHz);
311: kHz := ( 10^(3)*Hz ):
312: protect(kHz);
313: mHz := ( 10^(-3)*Hz ):
314: protect(mHz);
315: MHz := ( 10^(6)*Hz ):
316: protect(MHz);
317: nHz := ( 10^(-9)*Hz ):
318: protect(nHz);
319: PHz := ( 10^(15)*Hz ):
320: protect(PHz);
321: pHz := ( 10^(-12)*Hz ):
322: protect(pHz);
323: THz := ( 10^(12)*Hz ):
324: protect(THz);
325: uHz := ( 10^(-6)*Hz ):
326: protect(uHz);
327: yHz := ( 10^(-24)*Hz ):
328: protect(yHz);
329: YHz := ( 10^(24)*Hz ):
330: protect(YHz);
331: zHz := ( 10^(-21)*Hz ):
332: protect(zHz);
333: ZHz := ( 10^(21)*Hz ):
334: protect(ZHz);
335:
336:
337: J:=(N*m);
338: protect( J );
339: aJ := ( 10^(-18)*J ):
340: protect(aJ);
341: cJ := ( 10^(-2)*J ):
342: protect(cJ);
343: dJ := ( 10^(-1)*J ):
344: protect(dJ);
345: EJ := ( 10^(18)*J ):
346: protect(EJ);
347: fJ := ( 10^(-15)*J ):
348: protect(fJ);
349: GJ := ( 10^(9)*J ):
350: protect(GJ);
351: hJ := ( 10^(2)*J ):
352: protect(hJ);
353: kJ := ( 10^(3)*J ):
354: protect(kJ);
355: mJ := ( 10^(-3)*J ):
356: protect(mJ);
357: MJ := ( 10^(6)*J ):
358: protect(MJ);
359: nJ := ( 10^(-9)*J ):
360: protect(nJ);
361: PJ := ( 10^(15)*J ):
362: protect(PJ);
363: pJ := ( 10^(-12)*J ):
364: protect(pJ);
365: TJ := ( 10^(12)*J ):
366: protect(TJ);
367: uJ := ( 10^(-6)*J ):
368: protect(uJ);
369: yJ := ( 10^(-24)*J ):
370: protect(yJ);
371: YJ := ( 10^(24)*J ):
372: protect(YJ);
373: zJ := ( 10^(-21)*J ):
374: protect(zJ);
375: ZJ := ( 10^(21)*J ):
376: protect(ZJ);
377:
378:
379: W:=(J/s);
380: protect( W );
381: aW := ( 10^(-18)*W ):
382: protect(aW);
383: cW := ( 10^(-2)*W ):
384: protect(cW);
385: dW := ( 10^(-1)*W ):
386: protect(dW);
387: EW := ( 10^(18)*W ):
388: protect(EW);
389: fW := ( 10^(-15)*W ):
390: protect(fW);
391: GW := ( 10^(9)*W ):
392: protect(GW);
393: hW := ( 10^(2)*W ):
394: protect(hW);
395: kW := ( 10^(3)*W ):
396: protect(kW);
397: mW := ( 10^(-3)*W ):
398: protect(mW);
399: MW := ( 10^(6)*W ):
400: protect(MW);
401: nW := ( 10^(-9)*W ):
402: protect(nW);
403: PW := ( 10^(15)*W ):
404: protect(PW);
405: pW := ( 10^(-12)*W ):
406: protect(pW);
407: TW := ( 10^(12)*W ):
408: protect(TW);
409: uW := ( 10^(-6)*W ):
410: protect(uW);
411: yW := ( 10^(-24)*W ):
412: protect(yW);
413: YW := ( 10^(24)*W ):
414: protect(YW);
415: zW := ( 10^(-21)*W ):
416: protect(zW);
417: ZW := ( 10^(21)*W ):
418: protect(ZW);
419:
420:
421: hp:=(745.7*W);
422: protect( hp );
423: ahp := ( 10^(-18)*hp ):
424: protect(ahp);
425: chp := ( 10^(-2)*hp ):
426: protect(chp);
427: dhp := ( 10^(-1)*hp ):
428: protect(dhp);
429: Ehp := ( 10^(18)*hp ):
430: protect(Ehp);
431: fhp := ( 10^(-15)*hp ):
432: protect(fhp);
433: Ghp := ( 10^(9)*hp ):
434: protect(Ghp);
435: hhp := ( 10^(2)*hp ):
436: protect(hhp);
437: khp := ( 10^(3)*hp ):
438: protect(khp);
439: mhp := ( 10^(-3)*hp ):
440: protect(mhp);
441: Mhp := ( 10^(6)*hp ):
442: protect(Mhp);
443: nhp := ( 10^(-9)*hp ):
444: protect(nhp);
445: Php := ( 10^(15)*hp ):
446: protect(Php);
447: php := ( 10^(-12)*hp ):
448: protect(php);
449: Thp := ( 10^(12)*hp ):
450: protect(Thp);
451: uhp := ( 10^(-6)*hp ):
452: protect(uhp);
453: yhp := ( 10^(-24)*hp ):
454: protect(yhp);
455: Yhp := ( 10^(24)*hp ):
456: protect(Yhp);
457: zhp := ( 10^(-21)*hp ):
458: protect(zhp);
459: Zhp := ( 10^(21)*hp ):
460: protect(Zhp);
461:
462:
463: eV:=(1.6021892*10^(-19)*J);
464: protect( eV );
465: aeV := ( 10^(-18)*eV ):
466: protect(aeV);
467: ceV := ( 10^(-2)*eV ):
468: protect(ceV);
469: deV := ( 10^(-1)*eV ):
470: protect(deV);
471: EeV := ( 10^(18)*eV ):
472: protect(EeV);
473: feV := ( 10^(-15)*eV ):
474: protect(feV);
475: GeV := ( 10^(9)*eV ):
476: protect(GeV);
477: heV := ( 10^(2)*eV ):
478: protect(heV);
479: keV := ( 10^(3)*eV ):
480: protect(keV);
481: meV := ( 10^(-3)*eV ):
482: protect(meV);
483: MeV := ( 10^(6)*eV ):
484: protect(MeV);
485: neV := ( 10^(-9)*eV ):
486: protect(neV);
487: PeV := ( 10^(15)*eV ):
488: protect(PeV);
489: peV := ( 10^(-12)*eV ):
490: protect(peV);
491: TeV := ( 10^(12)*eV ):
492: protect(TeV);
493: ueV := ( 10^(-6)*eV ):
494: protect(ueV);
495: yeV := ( 10^(-24)*eV ):
496: protect(yeV);
497: YeV := ( 10^(24)*eV ):
498: protect(YeV);
499: zeV := ( 10^(-21)*eV ):
500: protect(zeV);
501: ZeV := ( 10^(21)*eV ):
502: protect(ZeV);
503:
504:
505: V:=(J/C);
506: protect( V );
507: aV := ( 10^(-18)*V ):
508: protect(aV);
509: cV := ( 10^(-2)*V ):
510: protect(cV);
511: dV := ( 10^(-1)*V ):
512: protect(dV);
513: EV := ( 10^(18)*V ):
514: protect(EV);
515: fV := ( 10^(-15)*V ):
516: protect(fV);
517: GV := ( 10^(9)*V ):
518: protect(GV);
519: hV := ( 10^(2)*V ):
520: protect(hV);
521: kV := ( 10^(3)*V ):
522: protect(kV);
523: mV := ( 10^(-3)*V ):
524: protect(mV);
525: MV := ( 10^(6)*V ):
526: protect(MV);
527: nV := ( 10^(-9)*V ):
528: protect(nV);
529: PV := ( 10^(15)*V ):
530: protect(PV);
531: pV := ( 10^(-12)*V ):
532: protect(pV);
533: TV := ( 10^(12)*V ):
534: protect(TV);
535: uV := ( 10^(-6)*V ):
536: protect(uV);
537: yV := ( 10^(-24)*V ):
538: protect(yV);
539: YV := ( 10^(24)*V ):
540: protect(YV);
541: zV := ( 10^(-21)*V ):
542: protect(zV);
543: ZV := ( 10^(21)*V ):
544: protect(ZV);
545:
546:
547: ohm:=(V/A);
548: protect( ohm );
549: aohm := ( 10^(-18)*ohm ):
550: protect(aohm);
551: cohm := ( 10^(-2)*ohm ):
552: protect(cohm);
553: dohm := ( 10^(-1)*ohm ):
554: protect(dohm);
555: Eohm := ( 10^(18)*ohm ):
556: protect(Eohm);
557: fohm := ( 10^(-15)*ohm ):
558: protect(fohm);
559: Gohm := ( 10^(9)*ohm ):
560: protect(Gohm);
561: hohm := ( 10^(2)*ohm ):
562: protect(hohm);
563: kohm := ( 10^(3)*ohm ):
564: protect(kohm);
565: mohm := ( 10^(-3)*ohm ):
566: protect(mohm);
567: Mohm := ( 10^(6)*ohm ):
568: protect(Mohm);
569: nohm := ( 10^(-9)*ohm ):
570: protect(nohm);
571: Pohm := ( 10^(15)*ohm ):
572: protect(Pohm);
573: pohm := ( 10^(-12)*ohm ):
574: protect(pohm);
575: Tohm := ( 10^(12)*ohm ):
576: protect(Tohm);
577: uohm := ( 10^(-6)*ohm ):
578: protect(uohm);
579: yohm := ( 10^(-24)*ohm ):
580: protect(yohm);
581: Yohm := ( 10^(24)*ohm ):
582: protect(Yohm);
583: zohm := ( 10^(-21)*ohm ):
584: protect(zohm);
585: Zohm := ( 10^(21)*ohm ):
586: protect(Zohm);
587:
588:
589: ohms:=(V/A);
590: protect( ohms );
591: aohms := ( 10^(-18)*ohms ):
592: protect(aohms);
593: cohms := ( 10^(-2)*ohms ):
594: protect(cohms);
595: dohms := ( 10^(-1)*ohms ):
596: protect(dohms);
597: Eohms := ( 10^(18)*ohms ):
598: protect(Eohms);
599: fohms := ( 10^(-15)*ohms ):
600: protect(fohms);
601: Gohms := ( 10^(9)*ohms ):
602: protect(Gohms);
603: hohms := ( 10^(2)*ohms ):
604: protect(hohms);
605: kohms := ( 10^(3)*ohms ):
606: protect(kohms);
607: mohms := ( 10^(-3)*ohms ):
608: protect(mohms);
609: Mohms := ( 10^(6)*ohms ):
610: protect(Mohms);
611: nohms := ( 10^(-9)*ohms ):
612: protect(nohms);
613: Pohms := ( 10^(15)*ohms ):
614: protect(Pohms);
615: pohms := ( 10^(-12)*ohms ):
616: protect(pohms);
617: Tohms := ( 10^(12)*ohms ):
618: protect(Tohms);
619: uohms := ( 10^(-6)*ohms ):
620: protect(uohms);
621: yohms := ( 10^(-24)*ohms ):
622: protect(yohms);
623: Yohms := ( 10^(24)*ohms ):
624: protect(Yohms);
625: zohms := ( 10^(-21)*ohms ):
626: protect(zohms);
627: Zohms := ( 10^(21)*ohms ):
628: protect(Zohms);
629:
630:
631: Ohm:=(V/A);
632: protect( Ohm );
633: aOhm := ( 10^(-18)*Ohm ):
634: protect(aOhm);
635: cOhm := ( 10^(-2)*Ohm ):
636: protect(cOhm);
637: dOhm := ( 10^(-1)*Ohm ):
638: protect(dOhm);
639: EOhm := ( 10^(18)*Ohm ):
640: protect(EOhm);
641: fOhm := ( 10^(-15)*Ohm ):
642: protect(fOhm);
643: GOhm := ( 10^(9)*Ohm ):
644: protect(GOhm);
645: hOhm := ( 10^(2)*Ohm ):
646: protect(hOhm);
647: kOhm := ( 10^(3)*Ohm ):
648: protect(kOhm);
649: mOhm := ( 10^(-3)*Ohm ):
650: protect(mOhm);
651: MOhm := ( 10^(6)*Ohm ):
652: protect(MOhm);
653: nOhm := ( 10^(-9)*Ohm ):
654: protect(nOhm);
655: POhm := ( 10^(15)*Ohm ):
656: protect(POhm);
657: pOhm := ( 10^(-12)*Ohm ):
658: protect(pOhm);
659: TOhm := ( 10^(12)*Ohm ):
660: protect(TOhm);
661: uOhm := ( 10^(-6)*Ohm ):
662: protect(uOhm);
663: yOhm := ( 10^(-24)*Ohm ):
664: protect(yOhm);
665: YOhm := ( 10^(24)*Ohm ):
666: protect(YOhm);
667: zOhm := ( 10^(-21)*Ohm ):
668: protect(zOhm);
669: ZOhm := ( 10^(21)*Ohm ):
670: protect(ZOhm);
671:
672:
673: Ohms:=(V/A);
674: protect( Ohms );
675: aOhms := ( 10^(-18)*Ohms ):
676: protect(aOhms);
677: cOhms := ( 10^(-2)*Ohms ):
678: protect(cOhms);
679: dOhms := ( 10^(-1)*Ohms ):
680: protect(dOhms);
681: EOhms := ( 10^(18)*Ohms ):
682: protect(EOhms);
683: fOhms := ( 10^(-15)*Ohms ):
684: protect(fOhms);
685: GOhms := ( 10^(9)*Ohms ):
686: protect(GOhms);
687: hOhms := ( 10^(2)*Ohms ):
688: protect(hOhms);
689: kOhms := ( 10^(3)*Ohms ):
690: protect(kOhms);
691: mOhms := ( 10^(-3)*Ohms ):
692: protect(mOhms);
693: MOhms := ( 10^(6)*Ohms ):
694: protect(MOhms);
695: nOhms := ( 10^(-9)*Ohms ):
696: protect(nOhms);
697: POhms := ( 10^(15)*Ohms ):
698: protect(POhms);
699: pOhms := ( 10^(-12)*Ohms ):
700: protect(pOhms);
701: TOhms := ( 10^(12)*Ohms ):
702: protect(TOhms);
703: uOhms := ( 10^(-6)*Ohms ):
704: protect(uOhms);
705: yOhms := ( 10^(-24)*Ohms ):
706: protect(yOhms);
707: YOhms := ( 10^(24)*Ohms ):
708: protect(YOhms);
709: zOhms := ( 10^(-21)*Ohms ):
710: protect(zOhms);
711: ZOhms := ( 10^(21)*Ohms ):
712: protect(ZOhms);
713:
714:
715: hr:=(3600*s);
716: protect( hr );
717: ahr := ( 10^(-18)*hr ):
718: protect(ahr);
719: chr := ( 10^(-2)*hr ):
720: protect(chr);
721: dhr := ( 10^(-1)*hr ):
722: protect(dhr);
723: Ehr := ( 10^(18)*hr ):
724: protect(Ehr);
725: fhr := ( 10^(-15)*hr ):
726: protect(fhr);
727: Ghr := ( 10^(9)*hr ):
728: protect(Ghr);
729: hhr := ( 10^(2)*hr ):
730: protect(hhr);
731: khr := ( 10^(3)*hr ):
732: protect(khr);
733: mhr := ( 10^(-3)*hr ):
734: protect(mhr);
735: Mhr := ( 10^(6)*hr ):
736: protect(Mhr);
737: nhr := ( 10^(-9)*hr ):
738: protect(nhr);
739: Phr := ( 10^(15)*hr ):
740: protect(Phr);
741: phr := ( 10^(-12)*hr ):
742: protect(phr);
743: Thr := ( 10^(12)*hr ):
744: protect(Thr);
745: uhr := ( 10^(-6)*hr ):
746: protect(uhr);
747: yhr := ( 10^(-24)*hr ):
748: protect(yhr);
749: Yhr := ( 10^(24)*hr ):
750: protect(Yhr);
751: zhr := ( 10^(-21)*hr ):
752: protect(zhr);
753: Zhr := ( 10^(21)*hr ):
754: protect(Zhr);
755:
756:
757: minutes:=(60*s);
758: protect( minutes );
759: aminutes := ( 10^(-18)*minutes ):
760: protect(aminutes);
761: cminutes := ( 10^(-2)*minutes ):
762: protect(cminutes);
763: dminutes := ( 10^(-1)*minutes ):
764: protect(dminutes);
765: Eminutes := ( 10^(18)*minutes ):
766: protect(Eminutes);
767: fminutes := ( 10^(-15)*minutes ):
768: protect(fminutes);
769: Gminutes := ( 10^(9)*minutes ):
770: protect(Gminutes);
771: hminutes := ( 10^(2)*minutes ):
772: protect(hminutes);
773: kminutes := ( 10^(3)*minutes ):
774: protect(kminutes);
775: mminutes := ( 10^(-3)*minutes ):
776: protect(mminutes);
777: Mminutes := ( 10^(6)*minutes ):
778: protect(Mminutes);
779: nminutes := ( 10^(-9)*minutes ):
780: protect(nminutes);
781: Pminutes := ( 10^(15)*minutes ):
782: protect(Pminutes);
783: pminutes := ( 10^(-12)*minutes ):
784: protect(pminutes);
785: Tminutes := ( 10^(12)*minutes ):
786: protect(Tminutes);
787: uminutes := ( 10^(-6)*minutes ):
788: protect(uminutes);
789: yminutes := ( 10^(-24)*minutes ):
790: protect(yminutes);
791: Yminutes := ( 10^(24)*minutes ):
792: protect(Yminutes);
793: zminutes := ( 10^(-21)*minutes ):
794: protect(zminutes);
795: Zminutes := ( 10^(21)*minutes ):
796: protect(Zminutes);
797:
798:
799: day:=(24*hr);
800: protect( day );
801: aday := ( 10^(-18)*day ):
802: protect(aday);
803: cday := ( 10^(-2)*day ):
804: protect(cday);
805: dday := ( 10^(-1)*day ):
806: protect(dday);
807: Eday := ( 10^(18)*day ):
808: protect(Eday);
809: fday := ( 10^(-15)*day ):
810: protect(fday);
811: Gday := ( 10^(9)*day ):
812: protect(Gday);
813: hday := ( 10^(2)*day ):
814: protect(hday);
815: kday := ( 10^(3)*day ):
816: protect(kday);
817: mday := ( 10^(-3)*day ):
818: protect(mday);
819: Mday := ( 10^(6)*day ):
820: protect(Mday);
821: nday := ( 10^(-9)*day ):
822: protect(nday);
823: Pday := ( 10^(15)*day ):
824: protect(Pday);
825: pday := ( 10^(-12)*day ):
826: protect(pday);
827: Tday := ( 10^(12)*day ):
828: protect(Tday);
829: uday := ( 10^(-6)*day ):
830: protect(uday);
831: yday := ( 10^(-24)*day ):
832: protect(yday);
833: Yday := ( 10^(24)*day ):
834: protect(Yday);
835: zday := ( 10^(-21)*day ):
836: protect(zday);
837: Zday := ( 10^(21)*day ):
838: protect(Zday);
839:
840:
841: rad:=(1);
842: protect( rad );
843: arad := ( 10^(-18)*rad ):
844: protect(arad);
845: crad := ( 10^(-2)*rad ):
846: protect(crad);
847: frad := ( 10^(-15)*rad ):
848: protect(frad);
849: mrad := ( 10^(-3)*rad ):
850: protect(mrad);
851: nrad := ( 10^(-9)*rad ):
852: protect(nrad);
853: prad := ( 10^(-12)*rad ):
854: protect(prad);
855: urad := ( 10^(-6)*rad ):
856: protect(urad);
857: yrad := ( 10^(-24)*rad ):
858: protect(yrad);
859: zrad := ( 10^(-21)*rad ):
860: protect(zrad);
861:
862:
863: deg:=(1.745329*10^(-2)*rad);
864: protect( deg );
865: adeg := ( 10^(-18)*deg ):
866: protect(adeg);
867: cdeg := ( 10^(-2)*deg ):
868: protect(cdeg);
869: ddeg := ( 10^(-1)*deg ):
870: protect(ddeg);
871: Edeg := ( 10^(18)*deg ):
872: protect(Edeg);
873: fdeg := ( 10^(-15)*deg ):
874: protect(fdeg);
875: Gdeg := ( 10^(9)*deg ):
876: protect(Gdeg);
877: hdeg := ( 10^(2)*deg ):
878: protect(hdeg);
879: kdeg := ( 10^(3)*deg ):
880: protect(kdeg);
881: mdeg := ( 10^(-3)*deg ):
882: protect(mdeg);
883: Mdeg := ( 10^(6)*deg ):
884: protect(Mdeg);
885: ndeg := ( 10^(-9)*deg ):
886: protect(ndeg);
887: Pdeg := ( 10^(15)*deg ):
888: protect(Pdeg);
889: pdeg := ( 10^(-12)*deg ):
890: protect(pdeg);
891: Tdeg := ( 10^(12)*deg ):
892: protect(Tdeg);
893: udeg := ( 10^(-6)*deg ):
894: protect(udeg);
895: ydeg := ( 10^(-24)*deg ):
896: protect(ydeg);
897: Ydeg := ( 10^(24)*deg ):
898: protect(Ydeg);
899: zdeg := ( 10^(-21)*deg ):
900: protect(zdeg);
901: Zdeg := ( 10^(21)*deg ):
902: protect(Zdeg);
903:
904:
905: mmHg:=(1.33322*10^2*Pa);
906: protect( mmHg );
907:
908:
909: torr:=(mmHg);
910: protect( torr );
911: atorr := ( 10^(-18)*torr ):
912: protect(atorr);
913: ctorr := ( 10^(-2)*torr ):
914: protect(ctorr);
915: dtorr := ( 10^(-1)*torr ):
916: protect(dtorr);
917: Etorr := ( 10^(18)*torr ):
918: protect(Etorr);
919: ftorr := ( 10^(-15)*torr ):
920: protect(ftorr);
921: Gtorr := ( 10^(9)*torr ):
922: protect(Gtorr);
923: htorr := ( 10^(2)*torr ):
924: protect(htorr);
925: ktorr := ( 10^(3)*torr ):
926: protect(ktorr);
927: mtorr := ( 10^(-3)*torr ):
928: protect(mtorr);
929: Mtorr := ( 10^(6)*torr ):
930: protect(Mtorr);
931: ntorr := ( 10^(-9)*torr ):
932: protect(ntorr);
933: Ptorr := ( 10^(15)*torr ):
934: protect(Ptorr);
935: ptorr := ( 10^(-12)*torr ):
936: protect(ptorr);
937: Ttorr := ( 10^(12)*torr ):
938: protect(Ttorr);
939: utorr := ( 10^(-6)*torr ):
940: protect(utorr);
941: ytorr := ( 10^(-24)*torr ):
942: protect(ytorr);
943: Ytorr := ( 10^(24)*torr ):
944: protect(Ytorr);
945: ztorr := ( 10^(-21)*torr ):
946: protect(ztorr);
947: Ztorr := ( 10^(21)*torr ):
948: protect(Ztorr);
949:
950:
951: Bq:=(1/s);
952: protect( Bq );
953: aBq := ( 10^(-18)*Bq ):
954: protect(aBq);
955: cBq := ( 10^(-2)*Bq ):
956: protect(cBq);
957: dBq := ( 10^(-1)*Bq ):
958: protect(dBq);
959: EBq := ( 10^(18)*Bq ):
960: protect(EBq);
961: fBq := ( 10^(-15)*Bq ):
962: protect(fBq);
963: GBq := ( 10^(9)*Bq ):
964: protect(GBq);
965: hBq := ( 10^(2)*Bq ):
966: protect(hBq);
967: kBq := ( 10^(3)*Bq ):
968: protect(kBq);
969: mBq := ( 10^(-3)*Bq ):
970: protect(mBq);
971: MBq := ( 10^(6)*Bq ):
972: protect(MBq);
973: nBq := ( 10^(-9)*Bq ):
974: protect(nBq);
975: PBq := ( 10^(15)*Bq ):
976: protect(PBq);
977: pBq := ( 10^(-12)*Bq ):
978: protect(pBq);
979: TBq := ( 10^(12)*Bq ):
980: protect(TBq);
981: uBq := ( 10^(-6)*Bq ):
982: protect(uBq);
983: yBq := ( 10^(-24)*Bq ):
984: protect(yBq);
985: YBq := ( 10^(24)*Bq ):
986: protect(YBq);
987: zBq := ( 10^(-21)*Bq ):
988: protect(zBq);
989: ZBq := ( 10^(21)*Bq ):
990: protect(ZBq);
991:
992:
993: Gy:=(J/kg);
994: protect( Gy );
995: aGy := ( 10^(-18)*Gy ):
996: protect(aGy);
997: cGy := ( 10^(-2)*Gy ):
998: protect(cGy);
999: dGy := ( 10^(-1)*Gy ):
1000: protect(dGy);
1001: EGy := ( 10^(18)*Gy ):
1002: protect(EGy);
1003: fGy := ( 10^(-15)*Gy ):
1004: protect(fGy);
1005: GGy := ( 10^(9)*Gy ):
1006: protect(GGy);
1007: hGy := ( 10^(2)*Gy ):
1008: protect(hGy);
1009: kGy := ( 10^(3)*Gy ):
1010: protect(kGy);
1011: mGy := ( 10^(-3)*Gy ):
1012: protect(mGy);
1013: MGy := ( 10^(6)*Gy ):
1014: protect(MGy);
1015: nGy := ( 10^(-9)*Gy ):
1016: protect(nGy);
1017: PGy := ( 10^(15)*Gy ):
1018: protect(PGy);
1019: pGy := ( 10^(-12)*Gy ):
1020: protect(pGy);
1021: TGy := ( 10^(12)*Gy ):
1022: protect(TGy);
1023: uGy := ( 10^(-6)*Gy ):
1024: protect(uGy);
1025: yGy := ( 10^(-24)*Gy ):
1026: protect(yGy);
1027: YGy := ( 10^(24)*Gy ):
1028: protect(YGy);
1029: zGy := ( 10^(-21)*Gy ):
1030: protect(zGy);
1031: ZGy := ( 10^(21)*Gy ):
1032: protect(ZGy);
1033:
1034:
1035: Sv:=(J/kg);
1036: protect( Sv );
1037: aSv := ( 10^(-18)*Sv ):
1038: protect(aSv);
1039: cSv := ( 10^(-2)*Sv ):
1040: protect(cSv);
1041: dSv := ( 10^(-1)*Sv ):
1042: protect(dSv);
1043: ESv := ( 10^(18)*Sv ):
1044: protect(ESv);
1045: fSv := ( 10^(-15)*Sv ):
1046: protect(fSv);
1047: GSv := ( 10^(9)*Sv ):
1048: protect(GSv);
1049: hSv := ( 10^(2)*Sv ):
1050: protect(hSv);
1051: kSv := ( 10^(3)*Sv ):
1052: protect(kSv);
1053: mSv := ( 10^(-3)*Sv ):
1054: protect(mSv);
1055: MSv := ( 10^(6)*Sv ):
1056: protect(MSv);
1057: nSv := ( 10^(-9)*Sv ):
1058: protect(nSv);
1059: PSv := ( 10^(15)*Sv ):
1060: protect(PSv);
1061: pSv := ( 10^(-12)*Sv ):
1062: protect(pSv);
1063: TSv := ( 10^(12)*Sv ):
1064: protect(TSv);
1065: uSv := ( 10^(-6)*Sv ):
1066: protect(uSv);
1067: ySv := ( 10^(-24)*Sv ):
1068: protect(ySv);
1069: YSv := ( 10^(24)*Sv ):
1070: protect(YSv);
1071: zSv := ( 10^(-21)*Sv ):
1072: protect(zSv);
1073: ZSv := ( 10^(21)*Sv ):
1074: protect(ZSv);
1075:
1076:
1077: C:=(A*s);
1078: protect( C );
1079: aC := ( 10^(-18)*C ):
1080: protect(aC);
1081: cC := ( 10^(-2)*C ):
1082: protect(cC);
1083: dC := ( 10^(-1)*C ):
1084: protect(dC);
1085: EC := ( 10^(18)*C ):
1086: protect(EC);
1087: fC := ( 10^(-15)*C ):
1088: protect(fC);
1089: GC := ( 10^(9)*C ):
1090: protect(GC);
1091: hC := ( 10^(2)*C ):
1092: protect(hC);
1093: kC := ( 10^(3)*C ):
1094: protect(kC);
1095: mC := ( 10^(-3)*C ):
1096: protect(mC);
1097: MC := ( 10^(6)*C ):
1098: protect(MC);
1099: nC := ( 10^(-9)*C ):
1100: protect(nC);
1101: PC := ( 10^(15)*C ):
1102: protect(PC);
1103: pC := ( 10^(-12)*C ):
1104: protect(pC);
1105: TC := ( 10^(12)*C ):
1106: protect(TC);
1107: uC := ( 10^(-6)*C ):
1108: protect(uC);
1109: yC := ( 10^(-24)*C ):
1110: protect(yC);
1111: YC := ( 10^(24)*C ):
1112: protect(YC);
1113: zC := ( 10^(-21)*C ):
1114: protect(zC);
1115: ZC := ( 10^(21)*C ):
1116: protect(ZC);
1117:
1118:
1119: S:=(1/Ohm);
1120: protect( S );
1121: aS := ( 10^(-18)*S ):
1122: protect(aS);
1123: cS := ( 10^(-2)*S ):
1124: protect(cS);
1125: dS := ( 10^(-1)*S ):
1126: protect(dS);
1127: ES := ( 10^(18)*S ):
1128: protect(ES);
1129: fS := ( 10^(-15)*S ):
1130: protect(fS);
1131: GS := ( 10^(9)*S ):
1132: protect(GS);
1133: hS := ( 10^(2)*S ):
1134: protect(hS);
1135: kS := ( 10^(3)*S ):
1136: protect(kS);
1137: mS := ( 10^(-3)*S ):
1138: protect(mS);
1139: MS := ( 10^(6)*S ):
1140: protect(MS);
1141: nS := ( 10^(-9)*S ):
1142: protect(nS);
1143: PS := ( 10^(15)*S ):
1144: protect(PS);
1145: pS := ( 10^(-12)*S ):
1146: protect(pS);
1147: TS := ( 10^(12)*S ):
1148: protect(TS);
1149: uS := ( 10^(-6)*S ):
1150: protect(uS);
1151: yS := ( 10^(-24)*S ):
1152: protect(yS);
1153: YS := ( 10^(24)*S ):
1154: protect(YS);
1155: zS := ( 10^(-21)*S ):
1156: protect(zS);
1157: ZS := ( 10^(21)*S ):
1158: protect(ZS);
1159:
1160:
1161: F:=(C/V);
1162: protect( F );
1163: aF := ( 10^(-18)*F ):
1164: protect(aF);
1165: cF := ( 10^(-2)*F ):
1166: protect(cF);
1167: dF := ( 10^(-1)*F ):
1168: protect(dF);
1169: EF := ( 10^(18)*F ):
1170: protect(EF);
1171: fF := ( 10^(-15)*F ):
1172: protect(fF);
1173: GF := ( 10^(9)*F ):
1174: protect(GF);
1175: hF := ( 10^(2)*F ):
1176: protect(hF);
1177: kF := ( 10^(3)*F ):
1178: protect(kF);
1179: mF := ( 10^(-3)*F ):
1180: protect(mF);
1181: MF := ( 10^(6)*F ):
1182: protect(MF);
1183: nF := ( 10^(-9)*F ):
1184: protect(nF);
1185: PF := ( 10^(15)*F ):
1186: protect(PF);
1187: pF := ( 10^(-12)*F ):
1188: protect(pF);
1189: TF := ( 10^(12)*F ):
1190: protect(TF);
1191: uF := ( 10^(-6)*F ):
1192: protect(uF);
1193: yF := ( 10^(-24)*F ):
1194: protect(yF);
1195: YF := ( 10^(24)*F ):
1196: protect(YF);
1197: zF := ( 10^(-21)*F ):
1198: protect(zF);
1199: ZF := ( 10^(21)*F ):
1200: protect(ZF);
1201:
1202:
1203: T:=(V*s/m^2);
1204: protect( T );
1205: aT := ( 10^(-18)*T ):
1206: protect(aT);
1207: cT := ( 10^(-2)*T ):
1208: protect(cT);
1209: dT := ( 10^(-1)*T ):
1210: protect(dT);
1211: ET := ( 10^(18)*T ):
1212: protect(ET);
1213: fT := ( 10^(-15)*T ):
1214: protect(fT);
1215: GT := ( 10^(9)*T ):
1216: protect(GT);
1217: hT := ( 10^(2)*T ):
1218: protect(hT);
1219: kT := ( 10^(3)*T ):
1220: protect(kT);
1221: mT := ( 10^(-3)*T ):
1222: protect(mT);
1223: MT := ( 10^(6)*T ):
1224: protect(MT);
1225: nT := ( 10^(-9)*T ):
1226: protect(nT);
1227: PT := ( 10^(15)*T ):
1228: protect(PT);
1229: pT := ( 10^(-12)*T ):
1230: protect(pT);
1231: TT := ( 10^(12)*T ):
1232: protect(TT);
1233: uT := ( 10^(-6)*T ):
1234: protect(uT);
1235: yT := ( 10^(-24)*T ):
1236: protect(yT);
1237: YT := ( 10^(24)*T ):
1238: protect(YT);
1239: zT := ( 10^(-21)*T ):
1240: protect(zT);
1241: ZT := ( 10^(21)*T ):
1242: protect(ZT);
1243:
1244:
1245: Wb:=(V*s);
1246: protect( Wb );
1247: aWb := ( 10^(-18)*Wb ):
1248: protect(aWb);
1249: cWb := ( 10^(-2)*Wb ):
1250: protect(cWb);
1251: dWb := ( 10^(-1)*Wb ):
1252: protect(dWb);
1253: EWb := ( 10^(18)*Wb ):
1254: protect(EWb);
1255: fWb := ( 10^(-15)*Wb ):
1256: protect(fWb);
1257: GWb := ( 10^(9)*Wb ):
1258: protect(GWb);
1259: hWb := ( 10^(2)*Wb ):
1260: protect(hWb);
1261: kWb := ( 10^(3)*Wb ):
1262: protect(kWb);
1263: mWb := ( 10^(-3)*Wb ):
1264: protect(mWb);
1265: MWb := ( 10^(6)*Wb ):
1266: protect(MWb);
1267: nWb := ( 10^(-9)*Wb ):
1268: protect(nWb);
1269: PWb := ( 10^(15)*Wb ):
1270: protect(PWb);
1271: pWb := ( 10^(-12)*Wb ):
1272: protect(pWb);
1273: TWb := ( 10^(12)*Wb ):
1274: protect(TWb);
1275: uWb := ( 10^(-6)*Wb ):
1276: protect(uWb);
1277: yWb := ( 10^(-24)*Wb ):
1278: protect(yWb);
1279: YWb := ( 10^(24)*Wb ):
1280: protect(YWb);
1281: zWb := ( 10^(-21)*Wb ):
1282: protect(zWb);
1283: ZWb := ( 10^(21)*Wb ):
1284: protect(ZWb);
1285:
1286:
1287: H:=(V*s/A);
1288: protect( H );
1289: aH := ( 10^(-18)*H ):
1290: protect(aH);
1291: cH := ( 10^(-2)*H ):
1292: protect(cH);
1293: dH := ( 10^(-1)*H ):
1294: protect(dH);
1295: EH := ( 10^(18)*H ):
1296: protect(EH);
1297: fH := ( 10^(-15)*H ):
1298: protect(fH);
1299: GH := ( 10^(9)*H ):
1300: protect(GH);
1301: hH := ( 10^(2)*H ):
1302: protect(hH);
1303: kH := ( 10^(3)*H ):
1304: protect(kH);
1305: mH := ( 10^(-3)*H ):
1306: protect(mH);
1307: MH := ( 10^(6)*H ):
1308: protect(MH);
1309: nH := ( 10^(-9)*H ):
1310: protect(nH);
1311: PH := ( 10^(15)*H ):
1312: protect(PH);
1313: pH := ( 10^(-12)*H ):
1314: protect(pH);
1315: TH := ( 10^(12)*H ):
1316: protect(TH);
1317: uH := ( 10^(-6)*H ):
1318: protect(uH);
1319: yH := ( 10^(-24)*H ):
1320: protect(yH);
1321: YH := ( 10^(24)*H ):
1322: protect(YH);
1323: zH := ( 10^(-21)*H ):
1324: protect(zH);
1325: ZH := ( 10^(21)*H ):
1326: protect(ZH);
1327:
1328:
1329: sr:=(1);
1330: protect( sr );
1331: asr := ( 10^(-18)*sr ):
1332: protect(asr);
1333: csr := ( 10^(-2)*sr ):
1334: protect(csr);
1335: dsr := ( 10^(-1)*sr ):
1336: protect(dsr);
1337: Esr := ( 10^(18)*sr ):
1338: protect(Esr);
1339: fsr := ( 10^(-15)*sr ):
1340: protect(fsr);
1341: Gsr := ( 10^(9)*sr ):
1342: protect(Gsr);
1343: hsr := ( 10^(2)*sr ):
1344: protect(hsr);
1345: ksr := ( 10^(3)*sr ):
1346: protect(ksr);
1347: msr := ( 10^(-3)*sr ):
1348: protect(msr);
1349: Msr := ( 10^(6)*sr ):
1350: protect(Msr);
1351: nsr := ( 10^(-9)*sr ):
1352: protect(nsr);
1353: Psr := ( 10^(15)*sr ):
1354: protect(Psr);
1355: psr := ( 10^(-12)*sr ):
1356: protect(psr);
1357: Tsr := ( 10^(12)*sr ):
1358: protect(Tsr);
1359: usr := ( 10^(-6)*sr ):
1360: protect(usr);
1361: ysr := ( 10^(-24)*sr ):
1362: protect(ysr);
1363: Ysr := ( 10^(24)*sr ):
1364: protect(Ysr);
1365: zsr := ( 10^(-21)*sr ):
1366: protect(zsr);
1367: Zsr := ( 10^(21)*sr ):
1368: protect(Zsr);
1369:
1370:
1371: lm:=(cd*sr);
1372: protect( lm );
1373: alm := ( 10^(-18)*lm ):
1374: protect(alm);
1375: clm := ( 10^(-2)*lm ):
1376: protect(clm);
1377: dlm := ( 10^(-1)*lm ):
1378: protect(dlm);
1379: Elm := ( 10^(18)*lm ):
1380: protect(Elm);
1381: flm := ( 10^(-15)*lm ):
1382: protect(flm);
1383: Glm := ( 10^(9)*lm ):
1384: protect(Glm);
1385: hlm := ( 10^(2)*lm ):
1386: protect(hlm);
1387: klm := ( 10^(3)*lm ):
1388: protect(klm);
1389: mlm := ( 10^(-3)*lm ):
1390: protect(mlm);
1391: Mlm := ( 10^(6)*lm ):
1392: protect(Mlm);
1393: nlm := ( 10^(-9)*lm ):
1394: protect(nlm);
1395: Plm := ( 10^(15)*lm ):
1396: protect(Plm);
1397: plm := ( 10^(-12)*lm ):
1398: protect(plm);
1399: Tlm := ( 10^(12)*lm ):
1400: protect(Tlm);
1401: ulm := ( 10^(-6)*lm ):
1402: protect(ulm);
1403: ylm := ( 10^(-24)*lm ):
1404: protect(ylm);
1405: Ylm := ( 10^(24)*lm ):
1406: protect(Ylm);
1407: zlm := ( 10^(-21)*lm ):
1408: protect(zlm);
1409: Zlm := ( 10^(21)*lm ):
1410: protect(Zlm);
1411:
1412:
1413: lx:=(cd*sr/m^2);
1414: protect( lx );
1415: alx := ( 10^(-18)*lx ):
1416: protect(alx);
1417: clx := ( 10^(-2)*lx ):
1418: protect(clx);
1419: dlx := ( 10^(-1)*lx ):
1420: protect(dlx);
1421: Elx := ( 10^(18)*lx ):
1422: protect(Elx);
1423: flx := ( 10^(-15)*lx ):
1424: protect(flx);
1425: Glx := ( 10^(9)*lx ):
1426: protect(Glx);
1427: hlx := ( 10^(2)*lx ):
1428: protect(hlx);
1429: klx := ( 10^(3)*lx ):
1430: protect(klx);
1431: mlx := ( 10^(-3)*lx ):
1432: protect(mlx);
1433: Mlx := ( 10^(6)*lx ):
1434: protect(Mlx);
1435: nlx := ( 10^(-9)*lx ):
1436: protect(nlx);
1437: Plx := ( 10^(15)*lx ):
1438: protect(Plx);
1439: plx := ( 10^(-12)*lx ):
1440: protect(plx);
1441: Tlx := ( 10^(12)*lx ):
1442: protect(Tlx);
1443: ulx := ( 10^(-6)*lx ):
1444: protect(ulx);
1445: ylx := ( 10^(-24)*lx ):
1446: protect(ylx);
1447: Ylx := ( 10^(24)*lx ):
1448: protect(Ylx);
1449: zlx := ( 10^(-21)*lx ):
1450: protect(zlx);
1451: Zlx := ( 10^(21)*lx ):
1452: protect(Zlx);
1453:
1454:
1455:
1456:
1457: cal:=(4.1868*J);
1458: protect( cal );
1459: acal := ( 10^(-18)*cal ):
1460: protect(acal);
1461: ccal := ( 10^(-2)*cal ):
1462: protect(ccal);
1463: dcal := ( 10^(-1)*cal ):
1464: protect(dcal);
1465: Ecal := ( 10^(18)*cal ):
1466: protect(Ecal);
1467: fcal := ( 10^(-15)*cal ):
1468: protect(fcal);
1469: Gcal := ( 10^(9)*cal ):
1470: protect(Gcal);
1471: hcal := ( 10^(2)*cal ):
1472: protect(hcal);
1473: kcal := ( 10^(3)*cal ):
1474: protect(kcal);
1475: mcal := ( 10^(-3)*cal ):
1476: protect(mcal);
1477: Mcal := ( 10^(6)*cal ):
1478: protect(Mcal);
1479: ncal := ( 10^(-9)*cal ):
1480: protect(ncal);
1481: Pcal := ( 10^(15)*cal ):
1482: protect(Pcal);
1483: pcal := ( 10^(-12)*cal ):
1484: protect(pcal);
1485: Tcal := ( 10^(12)*cal ):
1486: protect(Tcal);
1487: ucal := ( 10^(-6)*cal ):
1488: protect(ucal);
1489: ycal := ( 10^(-24)*cal ):
1490: protect(ycal);
1491: Ycal := ( 10^(24)*cal ):
1492: protect(Ycal);
1493: zcal := ( 10^(-21)*cal ):
1494: protect(zcal);
1495: Zcal := ( 10^(21)*cal ):
1496: protect(Zcal);
1497:
1498:
1499: inch:=(2.54*cm);
1500: protect( inch );
1501: ainch := ( 10^(-18)*inch ):
1502: protect(ainch);
1503: cinch := ( 10^(-2)*inch ):
1504: protect(cinch);
1505: dinch := ( 10^(-1)*inch ):
1506: protect(dinch);
1507: Einch := ( 10^(18)*inch ):
1508: protect(Einch);
1509: finch := ( 10^(-15)*inch ):
1510: protect(finch);
1511: Ginch := ( 10^(9)*inch ):
1512: protect(Ginch);
1513: hinch := ( 10^(2)*inch ):
1514: protect(hinch);
1515: kinch := ( 10^(3)*inch ):
1516: protect(kinch);
1517: minch := ( 10^(-3)*inch ):
1518: protect(minch);
1519: Minch := ( 10^(6)*inch ):
1520: protect(Minch);
1521: ninch := ( 10^(-9)*inch ):
1522: protect(ninch);
1523: Pinch := ( 10^(15)*inch ):
1524: protect(Pinch);
1525: pinch := ( 10^(-12)*inch ):
1526: protect(pinch);
1527: Tinch := ( 10^(12)*inch ):
1528: protect(Tinch);
1529: uinch := ( 10^(-6)*inch ):
1530: protect(uinch);
1531: yinch := ( 10^(-24)*inch ):
1532: protect(yinch);
1533: Yinch := ( 10^(24)*inch ):
1534: protect(Yinch);
1535: zinch := ( 10^(-21)*inch ):
1536: protect(zinch);
1537: Zinch := ( 10^(21)*inch ):
1538: protect(Zinch);
1539:
1540:
1541: ft:=(12*inch);
1542: protect( ft );
1543: aft := ( 10^(-18)*ft ):
1544: protect(aft);
1545: cft := ( 10^(-2)*ft ):
1546: protect(cft);
1547: dft := ( 10^(-1)*ft ):
1548: protect(dft);
1549: Eft := ( 10^(18)*ft ):
1550: protect(Eft);
1551: Gft := ( 10^(9)*ft ):
1552: protect(Gft);
1553: hft := ( 10^(2)*ft ):
1554: protect(hft);
1555: kft := ( 10^(3)*ft ):
1556: protect(kft);
1557: mft := ( 10^(-3)*ft ):
1558: protect(mft);
1559: Mft := ( 10^(6)*ft ):
1560: protect(Mft);
1561: nft := ( 10^(-9)*ft ):
1562: protect(nft);
1563: Pft := ( 10^(15)*ft ):
1564: protect(Pft);
1565: pft := ( 10^(-12)*ft ):
1566: protect(pft);
1567: Tft := ( 10^(12)*ft ):
1568: protect(Tft);
1569: uft := ( 10^(-6)*ft ):
1570: protect(uft);
1571: yft := ( 10^(-24)*ft ):
1572: protect(yft);
1573: Yft := ( 10^(24)*ft ):
1574: protect(Yft);
1575: zft := ( 10^(-21)*ft ):
1576: protect(zft);
1577: Zft := ( 10^(21)*ft ):
1578: protect(Zft);
1579:
1580:
1581: mile:=(5280*ft);
1582: protect( mile );
1583: amile := ( 10^(-18)*mile ):
1584: protect(amile);
1585: cmile := ( 10^(-2)*mile ):
1586: protect(cmile);
1587: dmile := ( 10^(-1)*mile ):
1588: protect(dmile);
1589: Emile := ( 10^(18)*mile ):
1590: protect(Emile);
1591: fmile := ( 10^(-15)*mile ):
1592: protect(fmile);
1593: Gmile := ( 10^(9)*mile ):
1594: protect(Gmile);
1595: hmile := ( 10^(2)*mile ):
1596: protect(hmile);
1597: kmile := ( 10^(3)*mile ):
1598: protect(kmile);
1599: mmile := ( 10^(-3)*mile ):
1600: protect(mmile);
1601: Mmile := ( 10^(6)*mile ):
1602: protect(Mmile);
1603: nmile := ( 10^(-9)*mile ):
1604: protect(nmile);
1605: Pmile := ( 10^(15)*mile ):
1606: protect(Pmile);
1607: pmile := ( 10^(-12)*mile ):
1608: protect(pmile);
1609: Tmile := ( 10^(12)*mile ):
1610: protect(Tmile);
1611: umile := ( 10^(-6)*mile ):
1612: protect(umile);
1613: ymile := ( 10^(-24)*mile ):
1614: protect(ymile);
1615: Ymile := ( 10^(24)*mile ):
1616: protect(Ymile);
1617: zmile := ( 10^(-21)*mile ):
1618: protect(zmile);
1619: Zmile := ( 10^(21)*mile ):
1620: protect(Zmile);
1621:
1622:
1623: lb:=(0.45359237*kg);
1624: protect( lb );
1625: alb := ( 10^(-18)*lb ):
1626: protect(alb);
1627: clb := ( 10^(-2)*lb ):
1628: protect(clb);
1629: dlb := ( 10^(-1)*lb ):
1630: protect(dlb);
1631: Elb := ( 10^(18)*lb ):
1632: protect(Elb);
1633: flb := ( 10^(-15)*lb ):
1634: protect(flb);
1635: Glb := ( 10^(9)*lb ):
1636: protect(Glb);
1637: hlb := ( 10^(2)*lb ):
1638: protect(hlb);
1639: klb := ( 10^(3)*lb ):
1640: protect(klb);
1641: mlb := ( 10^(-3)*lb ):
1642: protect(mlb);
1643: Mlb := ( 10^(6)*lb ):
1644: protect(Mlb);
1645: nlb := ( 10^(-9)*lb ):
1646: protect(nlb);
1647: Plb := ( 10^(15)*lb ):
1648: protect(Plb);
1649: plb := ( 10^(-12)*lb ):
1650: protect(plb);
1651: Tlb := ( 10^(12)*lb ):
1652: protect(Tlb);
1653: ulb := ( 10^(-6)*lb ):
1654: protect(ulb);
1655: ylb := ( 10^(-24)*lb ):
1656: protect(ylb);
1657: Ylb := ( 10^(24)*lb ):
1658: protect(Ylb);
1659: zlb := ( 10^(-21)*lb ):
1660: protect(zlb);
1661: Zlb := ( 10^(21)*lb ):
1662: protect(Zlb);
1663:
1664:
1665: oz:=(1.77185*10^(-3)*kg);
1666: protect( oz );
1667: aoz := ( 10^(-18)*oz ):
1668: protect(aoz);
1669: coz := ( 10^(-2)*oz ):
1670: protect(coz);
1671: doz := ( 10^(-1)*oz ):
1672: protect(doz);
1673: Eoz := ( 10^(18)*oz ):
1674: protect(Eoz);
1675: foz := ( 10^(-15)*oz ):
1676: protect(foz);
1677: Goz := ( 10^(9)*oz ):
1678: protect(Goz);
1679: hoz := ( 10^(2)*oz ):
1680: protect(hoz);
1681: koz := ( 10^(3)*oz ):
1682: protect(koz);
1683: moz := ( 10^(-3)*oz ):
1684: protect(moz);
1685: Moz := ( 10^(6)*oz ):
1686: protect(Moz);
1687: noz := ( 10^(-9)*oz ):
1688: protect(noz);
1689: Poz := ( 10^(15)*oz ):
1690: protect(Poz);
1691: poz := ( 10^(-12)*oz ):
1692: protect(poz);
1693: Toz := ( 10^(12)*oz ):
1694: protect(Toz);
1695: uoz := ( 10^(-6)*oz ):
1696: protect(uoz);
1697: yoz := ( 10^(-24)*oz ):
1698: protect(yoz);
1699: Yoz := ( 10^(24)*oz ):
1700: protect(Yoz);
1701: zoz := ( 10^(-21)*oz ):
1702: protect(zoz);
1703: Zoz := ( 10^(21)*oz ):
1704: protect(Zoz);
1705:
1706:
1707: yard:=(0.9144*m);
1708: protect( yard );
1709: ayard := ( 10^(-18)*yard ):
1710: protect(ayard);
1711: cyard := ( 10^(-2)*yard ):
1712: protect(cyard);
1713: dyard := ( 10^(-1)*yard ):
1714: protect(dyard);
1715: Eyard := ( 10^(18)*yard ):
1716: protect(Eyard);
1717: fyard := ( 10^(-15)*yard ):
1718: protect(fyard);
1719: Gyard := ( 10^(9)*yard ):
1720: protect(Gyard);
1721: hyard := ( 10^(2)*yard ):
1722: protect(hyard);
1723: kyard := ( 10^(3)*yard ):
1724: protect(kyard);
1725: myard := ( 10^(-3)*yard ):
1726: protect(myard);
1727: Myard := ( 10^(6)*yard ):
1728: protect(Myard);
1729: nyard := ( 10^(-9)*yard ):
1730: protect(nyard);
1731: Pyard := ( 10^(15)*yard ):
1732: protect(Pyard);
1733: pyard := ( 10^(-12)*yard ):
1734: protect(pyard);
1735: Tyard := ( 10^(12)*yard ):
1736: protect(Tyard);
1737: uyard := ( 10^(-6)*yard ):
1738: protect(uyard);
1739: yyard := ( 10^(-24)*yard ):
1740: protect(yyard);
1741: Yyard := ( 10^(24)*yard ):
1742: protect(Yyard);
1743: zyard := ( 10^(-21)*yard ):
1744: protect(zyard);
1745: Zyard := ( 10^(21)*yard ):
1746: protect(Zyard);
1747:
1748:
1749: n_mi:=(6080*ft);
1750: protect( n_mi );
1751: an_mi := ( 10^(-18)*n_mi ):
1752: protect(an_mi);
1753: cn_mi := ( 10^(-2)*n_mi ):
1754: protect(cn_mi);
1755: dn_mi := ( 10^(-1)*n_mi ):
1756: protect(dn_mi);
1757: En_mi := ( 10^(18)*n_mi ):
1758: protect(En_mi);
1759: fn_mi := ( 10^(-15)*n_mi ):
1760: protect(fn_mi);
1761: Gn_mi := ( 10^(9)*n_mi ):
1762: protect(Gn_mi);
1763: hn_mi := ( 10^(2)*n_mi ):
1764: protect(hn_mi);
1765: kn_mi := ( 10^(3)*n_mi ):
1766: protect(kn_mi);
1767: mn_mi := ( 10^(-3)*n_mi ):
1768: protect(mn_mi);
1769: Mn_mi := ( 10^(6)*n_mi ):
1770: protect(Mn_mi);
1771: nn_mi := ( 10^(-9)*n_mi ):
1772: protect(nn_mi);
1773: Pn_mi := ( 10^(15)*n_mi ):
1774: protect(Pn_mi);
1775: pn_mi := ( 10^(-12)*n_mi ):
1776: protect(pn_mi);
1777: Tn_mi := ( 10^(12)*n_mi ):
1778: protect(Tn_mi);
1779: un_mi := ( 10^(-6)*n_mi ):
1780: protect(un_mi);
1781: yn_mi := ( 10^(-24)*n_mi ):
1782: protect(yn_mi);
1783: Yn_mi := ( 10^(24)*n_mi ):
1784: protect(Yn_mi);
1785: zn_mi := ( 10^(-21)*n_mi ):
1786: protect(zn_mi);
1787: Zn_mi := ( 10^(21)*n_mi ):
1788: protect(Zn_mi);
1789:
1790:
1791: rod:=(1210*yd^2);
1792: protect( rod );
1793: arod := ( 10^(-18)*rod ):
1794: protect(arod);
1795: crod := ( 10^(-2)*rod ):
1796: protect(crod);
1797: drod := ( 10^(-1)*rod ):
1798: protect(drod);
1799: Erod := ( 10^(18)*rod ):
1800: protect(Erod);
1801: frod := ( 10^(-15)*rod ):
1802: protect(frod);
1803: Grod := ( 10^(9)*rod ):
1804: protect(Grod);
1805: hrod := ( 10^(2)*rod ):
1806: protect(hrod);
1807: krod := ( 10^(3)*rod ):
1808: protect(krod);
1809: mrod := ( 10^(-3)*rod ):
1810: protect(mrod);
1811: Mrod := ( 10^(6)*rod ):
1812: protect(Mrod);
1813: nrod := ( 10^(-9)*rod ):
1814: protect(nrod);
1815: Prod := ( 10^(15)*rod ):
1816: protect(Prod);
1817: prod := ( 10^(-12)*rod ):
1818: protect(prod);
1819: Trod := ( 10^(12)*rod ):
1820: protect(Trod);
1821: urod := ( 10^(-6)*rod ):
1822: protect(urod);
1823: yrod := ( 10^(-24)*rod ):
1824: protect(yrod);
1825: Yrod := ( 10^(24)*rod ):
1826: protect(Yrod);
1827: zrod := ( 10^(-21)*rod ):
1828: protect(zrod);
1829: Zrod := ( 10^(21)*rod ):
1830: protect(Zrod);
1831:
1832:
1833: acre:=(4840*yd^2);
1834: protect( acre );
1835: aacre := ( 10^(-18)*acre ):
1836: protect(aacre);
1837: cacre := ( 10^(-2)*acre ):
1838: protect(cacre);
1839: dacre := ( 10^(-1)*acre ):
1840: protect(dacre);
1841: Eacre := ( 10^(18)*acre ):
1842: protect(Eacre);
1843: facre := ( 10^(-15)*acre ):
1844: protect(facre);
1845: Gacre := ( 10^(9)*acre ):
1846: protect(Gacre);
1847: hacre := ( 10^(2)*acre ):
1848: protect(hacre);
1849: kacre := ( 10^(3)*acre ):
1850: protect(kacre);
1851: macre := ( 10^(-3)*acre ):
1852: protect(macre);
1853: Macre := ( 10^(6)*acre ):
1854: protect(Macre);
1855: nacre := ( 10^(-9)*acre ):
1856: protect(nacre);
1857: Pacre := ( 10^(15)*acre ):
1858: protect(Pacre);
1859: pacre := ( 10^(-12)*acre ):
1860: protect(pacre);
1861: Tacre := ( 10^(12)*acre ):
1862: protect(Tacre);
1863: uacre := ( 10^(-6)*acre ):
1864: protect(uacre);
1865: yacre := ( 10^(-24)*acre ):
1866: protect(yacre);
1867: Yacre := ( 10^(24)*acre ):
1868: protect(Yacre);
1869: zacre := ( 10^(-21)*acre ):
1870: protect(zacre);
1871: Zacre := ( 10^(21)*acre ):
1872: protect(Zacre);
1873:
1874:
1875: lbf:=(4.44822*N);
1876: protect( lbf );
1877: albf := ( 10^(-18)*lbf ):
1878: protect(albf);
1879: clbf := ( 10^(-2)*lbf ):
1880: protect(clbf);
1881: dlbf := ( 10^(-1)*lbf ):
1882: protect(dlbf);
1883: Elbf := ( 10^(18)*lbf ):
1884: protect(Elbf);
1885: flbf := ( 10^(-15)*lbf ):
1886: protect(flbf);
1887: Glbf := ( 10^(9)*lbf ):
1888: protect(Glbf);
1889: hlbf := ( 10^(2)*lbf ):
1890: protect(hlbf);
1891: klbf := ( 10^(3)*lbf ):
1892: protect(klbf);
1893: mlbf := ( 10^(-3)*lbf ):
1894: protect(mlbf);
1895: Mlbf := ( 10^(6)*lbf ):
1896: protect(Mlbf);
1897: nlbf := ( 10^(-9)*lbf ):
1898: protect(nlbf);
1899: Plbf := ( 10^(15)*lbf ):
1900: protect(Plbf);
1901: plbf := ( 10^(-12)*lbf ):
1902: protect(plbf);
1903: Tlbf := ( 10^(12)*lbf ):
1904: protect(Tlbf);
1905: ulbf := ( 10^(-6)*lbf ):
1906: protect(ulbf);
1907: ylbf := ( 10^(-24)*lbf ):
1908: protect(ylbf);
1909: Ylbf := ( 10^(24)*lbf ):
1910: protect(Ylbf);
1911: zlbf := ( 10^(-21)*lbf ):
1912: protect(zlbf);
1913: Zlbf := ( 10^(21)*lbf ):
1914: protect(Zlbf);
1915:
1916:
1917: dyn:=(10^(-5)*N);
1918: protect( dyn );
1919: adyn := ( 10^(-18)*dyn ):
1920: protect(adyn);
1921: cdyn := ( 10^(-2)*dyn ):
1922: protect(cdyn);
1923: ddyn := ( 10^(-1)*dyn ):
1924: protect(ddyn);
1925: Edyn := ( 10^(18)*dyn ):
1926: protect(Edyn);
1927: fdyn := ( 10^(-15)*dyn ):
1928: protect(fdyn);
1929: Gdyn := ( 10^(9)*dyn ):
1930: protect(Gdyn);
1931: hdyn := ( 10^(2)*dyn ):
1932: protect(hdyn);
1933: kdyn := ( 10^(3)*dyn ):
1934: protect(kdyn);
1935: mdyn := ( 10^(-3)*dyn ):
1936: protect(mdyn);
1937: Mdyn := ( 10^(6)*dyn ):
1938: protect(Mdyn);
1939: ndyn := ( 10^(-9)*dyn ):
1940: protect(ndyn);
1941: Pdyn := ( 10^(15)*dyn ):
1942: protect(Pdyn);
1943: pdyn := ( 10^(-12)*dyn ):
1944: protect(pdyn);
1945: Tdyn := ( 10^(12)*dyn ):
1946: protect(Tdyn);
1947: udyn := ( 10^(-6)*dyn ):
1948: protect(udyn);
1949: ydyn := ( 10^(-24)*dyn ):
1950: protect(ydyn);
1951: Ydyn := ( 10^(24)*dyn ):
1952: protect(Ydyn);
1953: zdyn := ( 10^(-21)*dyn ):
1954: protect(zdyn);
1955: Zdyn := ( 10^(21)*dyn ):
1956: protect(Zdyn);
1957:
1958:
1959: bar:=(10^5*Pa);
1960: protect( bar );
1961: abar := ( 10^(-18)*bar ):
1962: protect(abar);
1963: cbar := ( 10^(-2)*bar ):
1964: protect(cbar);
1965: dbar := ( 10^(-1)*bar ):
1966: protect(dbar);
1967: Ebar := ( 10^(18)*bar ):
1968: protect(Ebar);
1969: fbar := ( 10^(-15)*bar ):
1970: protect(fbar);
1971: Gbar := ( 10^(9)*bar ):
1972: protect(Gbar);
1973: hbar := ( 10^(2)*bar ):
1974: protect(hbar);
1975: kbar := ( 10^(3)*bar ):
1976: protect(kbar);
1977: mbar := ( 10^(-3)*bar ):
1978: protect(mbar);
1979: Mbar := ( 10^(6)*bar ):
1980: protect(Mbar);
1981: nbar := ( 10^(-9)*bar ):
1982: protect(nbar);
1983: Pbar := ( 10^(15)*bar ):
1984: protect(Pbar);
1985: pbar := ( 10^(-12)*bar ):
1986: protect(pbar);
1987: Tbar := ( 10^(12)*bar ):
1988: protect(Tbar);
1989: ubar := ( 10^(-6)*bar ):
1990: protect(ubar);
1991: ybar := ( 10^(-24)*bar ):
1992: protect(ybar);
1993: Ybar := ( 10^(24)*bar ):
1994: protect(Ybar);
1995: zbar := ( 10^(-21)*bar ):
1996: protect(zbar);
1997: Zbar := ( 10^(21)*bar ):
1998: protect(Zbar);
1999:
2000:
2001: atm:=(760*torr);
2002: protect( atm );
2003: aatm := ( 10^(-18)*atm ):
2004: protect(aatm);
2005: catm := ( 10^(-2)*atm ):
2006: protect(catm);
2007: datm := ( 10^(-1)*atm ):
2008: protect(datm);
2009: Eatm := ( 10^(18)*atm ):
2010: protect(Eatm);
2011: fatm := ( 10^(-15)*atm ):
2012: protect(fatm);
2013: Gatm := ( 10^(9)*atm ):
2014: protect(Gatm);
2015: hatm := ( 10^(2)*atm ):
2016: protect(hatm);
2017: katm := ( 10^(3)*atm ):
2018: protect(katm);
2019: matm := ( 10^(-3)*atm ):
2020: protect(matm);
2021: Matm := ( 10^(6)*atm ):
2022: protect(Matm);
2023: natm := ( 10^(-9)*atm ):
2024: protect(natm);
2025: Patm := ( 10^(15)*atm ):
2026: protect(Patm);
2027: patm := ( 10^(-12)*atm ):
2028: protect(patm);
2029: Tatm := ( 10^(12)*atm ):
2030: protect(Tatm);
2031: uatm := ( 10^(-6)*atm ):
2032: protect(uatm);
2033: yatm := ( 10^(-24)*atm ):
2034: protect(yatm);
2035: Yatm := ( 10^(24)*atm ):
2036: protect(Yatm);
2037: zatm := ( 10^(-21)*atm ):
2038: protect(zatm);
2039: Zatm := ( 10^(21)*atm ):
2040: protect(Zatm);
2041:
2042:
2043: Btu:=(1.05506*10^3*J);
2044: protect( Btu );
2045: aBtu := ( 10^(-18)*Btu ):
2046: protect(aBtu);
2047: cBtu := ( 10^(-2)*Btu ):
2048: protect(cBtu);
2049: dBtu := ( 10^(-1)*Btu ):
2050: protect(dBtu);
2051: EBtu := ( 10^(18)*Btu ):
2052: protect(EBtu);
2053: fBtu := ( 10^(-15)*Btu ):
2054: protect(fBtu);
2055: GBtu := ( 10^(9)*Btu ):
2056: protect(GBtu);
2057: hBtu := ( 10^(2)*Btu ):
2058: protect(hBtu);
2059: kBtu := ( 10^(3)*Btu ):
2060: protect(kBtu);
2061: mBtu := ( 10^(-3)*Btu ):
2062: protect(mBtu);
2063: MBtu := ( 10^(6)*Btu ):
2064: protect(MBtu);
2065: nBtu := ( 10^(-9)*Btu ):
2066: protect(nBtu);
2067: PBtu := ( 10^(15)*Btu ):
2068: protect(PBtu);
2069: pBtu := ( 10^(-12)*Btu ):
2070: protect(pBtu);
2071: TBtu := ( 10^(12)*Btu ):
2072: protect(TBtu);
2073: uBtu := ( 10^(-6)*Btu ):
2074: protect(uBtu);
2075: yBtu := ( 10^(-24)*Btu ):
2076: protect(yBtu);
2077: YBtu := ( 10^(24)*Btu ):
2078: protect(YBtu);
2079: zBtu := ( 10^(-21)*Btu ):
2080: protect(zBtu);
2081: ZBtu := ( 10^(21)*Btu ):
2082: protect(ZBtu);
2083:
2084:
2085:
2086:
2087: protect( mol );
2088:
2089:
2090: angstrom:=(10^(-10)*m);
2091: protect( angstrom );
2092:
2093:
2094: k:=(1.380658*10^(-23)*J/K);
2095: protect( k );
2096:
2097:
2098: e:=(1.60217733*10^(-19)*C);
2099: protect( e );
2100:
2101:
2102: h:=(6.6260755*10^(-34)*J*s);
2103: protect( h );
2104:
2105:
2106: h_bar:=(1.05459*10^(-34)*J*s);
2107: protect( h_bar );
2108:
2109:
2110: c:=(2.99792458*10^8*m/s);
2111: protect( c );
2112:
2113:
2114: G:=(6.67259*10^(-11)*N*(m^2)/(kg^2));
2115: protect( G );
2116:
2117:
2118: R:=(8.314510*J/(mol*K));
2119: protect( R );
2120:
2121:
2122: AU:=(1.49598*10^11*m);
2123: protect( AU );
2124:
2125:
2126: unassignunits:=proc(n)
2127: begin
2128: if n="constant" then
2129: unassign( mol, angstrom, k, e, h, h_bar, c, G, R, AU):
2130: end_if;
2131: if n="English" then
2132: 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):
2133: end_if;
2134: if n="SI" then
2135: 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):
2136: end_if;
2137: end_proc;
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>