Annotation of loncom/mupad_utils/units/units, revision 1.1
1.1 ! tyszkabe 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>