loncom/mupad_utils/units/units - view

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 (23 years, 9 months 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_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;