home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / World_Of_Computer_Software-02-385-Vol-1of3.iso / m / mcademo3.zip / STANDARD.HBK / STANDARD.HBK
Text File  |  1991-06-28  |  25KB  |  989 lines
  1. STANDARD HANDBOOK
  2. ;; Copyright 1990,1991 MathSoft Inc, Cambridge, MA
  3. 447    F    15; acos
  4. 453    F    16; acosh
  5. 480    F    17; angle
  6. 511    F    1; APPEND
  7. 514    F    2; APPENDPRN
  8. 473    F    69; ar
  9. 445    F    18; asin
  10. 451    F    19; asinh
  11. 449    F    20; atan
  12. 455    F    21; atanh
  13. 529    F    22; augment
  14. 477    F    23; ceil
  15. 497    F    24; cfft
  16. 508    F    25; cnorm
  17. 523    F    26; cols
  18. 504    F    27; corr
  19. 446    F    28; cos
  20. 452    F    29; cosh
  21. 487    F    88; cot
  22. 493    F    91; coth
  23. 485    F    87; csc
  24. 491    F    90; csch
  25. 533    F    75; csort
  26. 515    F    30; cspline
  27. 481    F    67; DELT
  28. 530    F    78; eigenvals
  29. 531    F    79; eigenvec
  30. 482    F    68; EPSILON
  31. 502    F    31; erf
  32. 456    F    32; exp
  33. 495    F    33; Fft
  34. 478    F    34; floor
  35. 505    F    65; GAMMA
  36. 520    F    35; hist
  37. 465    F    80; I0
  38. 467    F    81; I1
  39. 498    F    36; icfft
  40. 528    F    37; identity
  41. 474    F    38; if
  42. 496    F    39; ifft
  43. 472    F    3; Im
  44. 469    F    82; In
  45. 507    F    40; intercept
  46. 516    F    41; interp
  47. 459    F    4; J0
  48. 461    F    5; J1
  49. 463    F    6; Jn
  50. 466    F    83; K0
  51. 468    F    84; K1
  52. 470    F    85; Kn
  53. 524    F    42; last
  54. 521    F    43; length
  55. 518    F    44; linterp
  56. 457    F    45; ln
  57. 458    F    46; log
  58. 517    F    47; lspline
  59. 525    F    48; max
  60. 500    F    49; mean
  61. 526    F    50; min
  62. 479    F    51; mod
  63. 476    F    66; PHI
  64. 519    F    52; pspline
  65. 471    F    9; Re
  66. 509    F    7; READ
  67. 512    F    8; READPRN
  68. 534    F    77; reverse
  69. 499    F    53; rnd
  70. 522    F    55; rows
  71. 535    F    76; psort
  72. 483    F    86; sec
  73. 489    F    89; sech
  74. 444    F    56; sin
  75. 450    F    57; sinh
  76. 506    F    59; slope
  77. 532    F    74; sort
  78. 501    F    60; stdev
  79. 527    F    70; t
  80. 448    F    61; tan
  81. 454    F    62; tanh
  82. 475    F    63; until
  83. 503    F    64; var
  84. 510    F    10; WRITE
  85. 513    F    11; WRITEPRN
  86. 460    F    12; Y0
  87. 462    F    13; Y1
  88. 464    F    14; Yn
  89. ;************** GREEK PALETTE *******************
  90. ;LOWER CASE
  91. 909    D    {3}a ;alpha
  92. 910    D    {3}b ;beta
  93. 930    D    {3}c ;chi
  94. 912    D    {3}d ;delta
  95. 913    D    {3}e ;epsilon
  96. 915    D    {3}h ;eta
  97. 911    D    {3}g ;gamma
  98. 917    D    {3}i ;iota
  99. 918    D    {3}k ;kappa
  100. 919    D    {3}l ;lambda
  101. 920    D    {3}m ;mu
  102. 921    D    {3}n ;nu
  103. 932    D    {3}w ;omega
  104. 923    D    {3}o ;omicron
  105. 929    D    {3}f ;phi
  106. 924    D    {3}p ;pi
  107. 931    D    {3}y ;psi
  108. 925    D    {3}r ;rho
  109. 926    D    {3}s ;sigma
  110. 927    D    {3}t ;tau
  111. 916    D    {3}q ;theta
  112. 928    D    {3}u ;upsilon
  113. 922    D    {3}x ;xi
  114. 914    D    {3}z ;zeta;UPPER CASE
  115. 933    D    {3}A ;alpha
  116. 934    D    {3}B ;beta
  117. 954    D    {3}C ;chi
  118. 936    D    {3}D ;delta
  119. 937    D    {3}E ;epsilon
  120. 939    D    {3}H ;eta
  121. 935    D    {3}G ;gamma
  122. 941    D    {3}I ;iota
  123. 942    D    {3}K ;kappa
  124. 943    D    {3}L ;lambda
  125. 944    D    {3}M ;mu
  126. 945    D    {3}N ;nu
  127. 956    D    {3}W ;omega
  128. 947    D    {3}O ;omicron
  129. 953    D    {3}F ;phi
  130. 948    D    {3}P ;pi
  131. 955    D    {3}Y ;psi
  132. 949    D    {3}R ;rho
  133. 950    D    {3}S ;sigma
  134. 951    D    {3}T ;tau
  135. 940    D    {3}Q ;theta
  136. 952    D    {3}U ;upsilon
  137. 946    D    {3}X ;xi
  138. 938    D    {3}Z ;zeta
  139. ;****************** OPERATOR PALETTE ****************
  140. 17    C    43   ;+ PLUS
  141. 22    C    45   ;- MINUS
  142. 23    C    94   ;  POWER
  143. 24    C    33   ;! FACTORIAL
  144. 25    C    34   ;" CONJ
  145. 26    C    92   ;\ SQRT
  146. 27    C    36   ;$ SUM
  147. 28    C    35   ;# PROD
  148. 29    C    38   ;& INTEGRAL
  149. 30    C    63   ;? DERIVATIVE
  150. 31    C    124  ;| ABSVAL
  151. 32    C    -141 ;  CROSSPROD
  152. 36    C    91   ;[ SUBSCRIPT
  153. 37    C    -144 ;  SIGMASUM
  154. 38    C    -143 ;  MATCOL
  155. 39    C    -142 ;  TRANSPOSE
  156. 45    C    -136 ;  EQUALS
  157. 41    C    -138 ;  GTEQ
  158. 42    C    -139 ;  LTEQ
  159. 43    C    62   ;> GTHAN
  160. 44    C    60   ;< LTHAN
  161. 40    C    -140 ;  VECTORIZE
  162. 46    C    -137 ;  NOTEQUALS
  163. 18    C    -150 ;  EQNBREAK
  164. 20    C    42   ;* TIMES
  165. 21    C    47   ;/ DIVIDE
  166. ; ********************* GEOMETRY *************************
  167. ;TRIANGLE atriangle
  168. 1187    P    atriangl.pas
  169. 1188    D    1/2*b*h
  170. 1241    D    1/2*a*b*sin(Θ)
  171. 1189    P    a3triang.pas
  172. 1190    D    a+b+c
  173. ;TRAPEZOID atrapezo
  174. 1195    P    atrapezo.pas
  175. 1196    D    1/2*h*(a+b)
  176. 1197    D    a+b+h*(1/sin(Θ)+1/sin(φ))
  177. ;RECTANGLE arectang
  178. 1198    P    arectang.pas
  179. 1199    D    a*b
  180. 1200    D    2*a+2*b
  181. ;PARALLELOGRAM aparalle
  182. 1191    P    aparalle.pas
  183. 1192    D    b*h
  184. 1193    D    a*b*sin(Θ)
  185. 1194    D    2*a+2*b
  186. ;ELLIPSE aellipse
  187. 1209    P    aellipse.pas
  188. 1210    D    π*a*b
  189. 1211    D    4*a*(0&π/2`\(1-((a^2-b^2)/a^2)*sin(Θ)^2)&Θ)
  190. 1212    D    2*π*\(1/2*(a^2+b^2))
  191. ;SEGMENT OF CIRCLE OF RADIUS R asegcirr
  192. 1207    P    asegcirc.pas
  193. 1208    D    1/2*r^2*(Θ-sin(Θ))
  194. ;REGULAR POLYGON INSCRIBED IN CIRCLE 
  195. 1204    P    asegcirc.pas
  196. 1205    D    1/2*n*r^2*sin(2*π/n)
  197. 1206    D    2*n*r*sin(π/n)
  198. ;CIRCLE INSIDE POLYGON
  199. 1201    P    asegcirc.pas
  200. 1202    D    n*r^2*tan(π/n)
  201. 1203    D    2*n*r*tan(π/n)
  202. ;PARABOLIC SEGMENT asegpara
  203. 1213    P    asegcirc.pas
  204. 1214    D    2/3*a*b
  205. 1215    D    1/2*\(b^2+16*a^2)+b^2/(8*a)*ln((4*a+\(b^2+16*a^2))/b)
  206. ;CIRCLE OF RADIUS r
  207. 1216    P    asegcirc.pas
  208. 1217    D    π*r^2
  209. 1218    D    2*π*r
  210. ;SECTOR OF CIRCLE
  211. 1219    P    asegcirc.pas
  212. 1220    D    1/2*r^2*Θ
  213. 1221    D    r*Θ
  214. ;***************** VOLUME ************************
  215. ;CIRCULAR CYLINDER
  216. 968    P    vcircyrp.pas
  217. 969    D    π*r^2*h
  218. 970    D    π*r^2*l*sin(Θ)
  219. 971    D    2*π*r*l
  220. 972    D    2*π*r*h/sin(Θ)
  221. 973    D    2*π*r*h*csc(Θ);PARALLELIPIPED
  222. 974    P    vparacrp.pas
  223. 975    D    A*h
  224. 976    D    a*b*c*sin(Θ);RIGHT CIRCULAR CYLINDER
  225. 977    P    vrcicyrp.pas
  226. 978    D    π*r^2*h
  227. 979    D    2*π*r*h;RECTANGULAR PRISM
  228. 980    P    vrecparp.pas
  229. 981    D    a*b*c
  230. 982    D    2*(a*b+a*c+b*c);SPHERE
  231. 983    P    vspherep.pas
  232. 984    D    4/3*π*r^3
  233. 985    D    4*π*r^2;GENERAL CYLINDER
  234. 986    P    vcycrsap.pas
  235. 987    D    A*h
  236. 988    D    A*l*sin(Θ)
  237. 989    D    A*h*csc(Θ)
  238. 990    D    p*l
  239. 991    D    p*h/sin(Θ)
  240. 992    D    p*h*csc(Θ);CONE
  241. 993    P    vrcicorp.pas
  242. 994    D    1/3*π*r^2*h
  243. 995    D    π*r*\(r^2+h^2)
  244. 996    D    π*r*l;PYRAMID
  245. 997    P    vpyrabap.pas
  246. 998    D    1/3*A*h;SPHERICAL CAP
  247. 999    P    vsphcarp.pas
  248. 1000    D    1/3*π*h^2*(3*r-h)
  249. 1001    D    2*π*r*h
  250. ;CENTROIDS
  251. ;TRIANGULAR AREA
  252. 1010    P    ctriangp.pas
  253. 1011    D    h/3 ;ctriang1;QUARTER0AR AREA
  254. 1012    P    cqrtrcrp.pas
  255. 1013    D    (4*r)/(3*π) ;cqrtrcr1
  256. 1014    D    (4*r)/(3*π) ;cqrtrcr2;SEMICIRCULAR AREA
  257. 1036    P    csmcrclp.pas
  258. 1037    D    0 ;csmcrcl1
  259. 1038    D    (4*r)/(3*π) ;csmcrcl2;SEMIPARABOLIC AREA
  260. 1018    P    csmprblp.pas
  261. 1019    D    3*a/8 ;csmprbl1
  262. 1020    D    3*h/5 ;csmprbl2;PARABOLIC AREA
  263. 1015    P    cparabop.pas
  264. 1016    D    0 ;cparabo1
  265. 1017    D    3*h/5 ;cparabo2;PARABOLIC SPANDREL
  266. 1021    P    cprspndp.pas
  267. 1022    D    3*a/4 ;cprspnd1
  268. 1023    D    3*h/10 ;cprspnd2
  269. ;*************** CONSTANT ***************************
  270. 1284    D  299792458*m/sec    ;Velocity of light  
  271. 1285    D  1.6021917*10^-19*coul    ;Electron charge
  272. 1286    D  6.626196*10^-34*joule*sec    ;Planck's constant
  273. 1287    D  6.022169*10^23/mole    ;Avogadro's number
  274. 1288    D  1.660531*10^-27*kg    ;Atomic mass unit
  275. 1289    D  9.109558*10^-31*kg    ;Electron rest mass
  276. 1290    D  1.672614*10^-27*kg    ;Proton rest mass
  277. 1291    D  1.674920*10^-27*kg    ;Neutron rest mass
  278. 1292    D  186284*mi/sec ;Speed of light in a vacuum
  279. 1293    D  1.602189*10^-19*coul ;Elementary charge
  280. 1294    D  8.85418782*10^-12*farad/m ;Permittivity 
  281. 1295    D  4*π*10^-7*henry/m ;Permeability constant
  282. 1296    D  1.7588028*10^11*coul/kg ;El charge to mass 
  283. 1297    D  1836.109 ;Ratio of proton mass to electron mass
  284. 1298    D  1.3196217*10^-15*m     ;Neutron Compton wvl
  285. 1299    D  1.883566*10^-28*kg ;Muon rest mass
  286. 1300    D  2.817939*10^-15*m ;Classical electron radius
  287. 1301    D  2.6751270*10^8*rad/(sec*tesla) ;Gyromagnetic r
  288. 1302    D  3.636947*10^-4*joule*sec*kg^-1 ;Quan of circ
  289. 1303    D  0.02241383*m^3/mole ;Molar vol ideal gas at STP
  290. 1304    D  9.648670*10^7*coul/mole ;Faraday 
  291. 1305    D  5.66961*10^-8*watt/(m^2*K^4) ;Stefan-Boltzmann 
  292. 1306    D  1.097373177*10^7/m ;Rydberg constant
  293. 1307    D  6.6732*10^-11*newton*m^2*kg^-2 ;gravitational 
  294. 1308    D  5.291771*10^-11*m ;Bohr radius
  295. 1309    D  9.284851*10^-24*joule/tesla ;Elect mag moment
  296. 1310    D  1.4106203*10^-26*joule/tesla ;Proton mag moment
  297. 1311    D  9.274096*10^-24*joule/tesla ;Bohr magneton
  298. 1312    D  5.050951*10^-27*joule/tesla ;Nuclear magneton
  299. 1313    D  7.297351*10^-3        ;Fine structure
  300. 1314    D  2.4263096*10^-12*m     ;Electron Compton 
  301. 1315    D  1.3214409*10^-15*m     ;Proton Compton wvl
  302. 1317    D  8.31434*10^3*joule/(kmole*K) ;Gas const
  303. 1318    D  1.380622*10^-23*joule/K     ;Boltzmann's c
  304. 1319    D  4.992579*10^-24*joule*m     ;First radiation 
  305. 1320    D  1.438833*10^-2*m*K     ;Second radiation 
  306. 1321    D  6.6732*10^-11*newton*m^2/kg^2     ;gravitati 
  307. ;*************** LIQUID ***************************
  308. ;DENSITIES OF COMMON LIQUIDS
  309. 178    D  65.493*lb/ft^3    ;Acetic Acid
  310. 179    D  48.98*lb/ft^3    ;Acetone
  311. 180    D  49.01*lb/ft^3    ;Alcohol, ethyl
  312. 181    D  49.10*lb/ft^3    ;Alcohol, methyl
  313. 182    D  49.94*lb/ft^3    ;Alcohol propyl
  314. 183    D  51.411*lb/ft^3    ;Ammonia (aqua)
  315. 184    D  54.55*lb/ft^3    ;Benzene
  316. 186    D  78.72*lb/ft^3    ;Carbon disulfide
  317. 187    D  98.91*lb/ft^3    ;Carbon tetrachloride
  318. 188    D  59.69*lb/ft^3    ;Castor oil
  319. 189    D  91.44*lb/ft^3    ;Chloroform
  320. 190    D  45.34*lb/ft^3    ;Decane
  321. 191    D  47.11*lb/ft^3    ;Dodecane
  322. 192    D  44.54*lb/ft^3    ;Ether
  323. 193    D  68.47*lb/ft^3    ;Ethylene Glycol
  324. 194    D  92.14*lb/ft^3    ;Fluorine refrigerant R-11
  325. ;SPECIFIC GRAVITIES OF COMMON LIQUIDS
  326. 405    D  1.049; Acetic Acid
  327. 406    D  0.787; Acetone
  328. 407    D  0.787; Alcohol, ethyl
  329. 408    D  0.789; Alcohol, methyl
  330. 409    D  0.802; Alcohol propyl
  331. 410    D  0.826; Ammonia (aqua)
  332. 411    D  0.876; Benzene
  333. 413    D  1.265; Carbon disulfide
  334. 414    D  1.59; Carbon tetrachloride
  335. 415    D  0.96; Castor oil
  336. 416    D  1.47; Chloroform
  337. 417    D  0.728; Decane
  338. 418    D  0.757; Dodecane
  339. 419    D  0.716; Ether
  340. 420    D  1.100; Ethylene Glycol
  341. 421    D  1.480; Fluorine refrigerant R-11
  342. 422    D  1.315; Fluorine refrigerant R-12
  343. 423    D  1.197; Fluorine refrigerant R-22
  344. 424    D  1.263; Glycerine
  345. 425    D  0.681; Heptane
  346. 426    D  0.657; Hexane
  347. 428    D  0.823; Kerosene
  348. 429    D  0.93; Linseed oil
  349. 431    D  0.701; Octane
  350. 432    D  1.07; Phenol
  351. 433    D  0.495; Propane
  352. 434    D  0.516; Propylene
  353. 435    D  0.968; Propylene Glycol
  354. 436    D  1.03; Sea Water
  355. 437    D  0.865; Toluene
  356. 438    D  0.87; Turpentine
  357. 439    D  1.000; Water
  358. ;SOUND VELOCITIES OF COMMON LIQUIDS
  359. 195    D  1584*m/sec    ;Acetic Acid
  360. 196    D  1174*m/sec    ;Acetone
  361. 197    D  1144*m/sec    ;Alcohol, ethyl
  362. 198    D  1103*m/sec    ;Alcohol, methyl
  363. 199    D  1205*m/sec    ;Alcohol, propyl
  364. 201    D  1298*m/sec    ;Benzene
  365. 203    D  1149*m/sec    ;Carbon disulfide
  366. 204    D  924*m/sec    ;Carbon tet
  367. 205    D  1474*m/sec    ;Castor oil
  368. 206    D  995*m/sec    ;Chloroform
  369. 209    D  985*m/sec    ;Ether
  370. 210    D  1644*m/sec    ;Ethylene Glycol
  371. ;SURFACE TENSIONS OF COMMON LIQUIDS
  372. 265    D  27.3*dyne/cm    ;Acetic Acid
  373. 266    D  23.1*dyne/cm    ;Acetone
  374. 267    D  22.33*dyne/cm    ;Alcohol, ethyl
  375. 268    D  22.2*dyne/cm    ;Alcohol, methyl
  376. 269    D   23.5*dyne/cm    ;Alcohol, propyl
  377. 271    D  28.18*dyne/cm    ;Benzene
  378. 272    D  41.5*dyne/cm    ;Bromine
  379. 273    D  32.33*dyne/cm    ;Carbon disulfide
  380. 274    D  26.3*dyne/cm    ;Carbon tet
  381. 276    D  27.14*dyne/cm    ;Chloroform
  382. 277    D  23.43*dyne/cm    ;Decane
  383. 279    D  16.42*dyne/cm    ;Ether
  384. 280    D  48.2*dyne/cm    ;Ethylene Glycol
  385. 281    D  18.3*dyne/cm    ;Fluorine refr R-11
  386. 282    D  8.87*dyne/cm    ;Fluorine refr R-12
  387. 283    D  8.35*dyne/cm    ;Fluorine refr R-22
  388. ;DIELECTRIC CONSTANTS OF COMMON LIQUIDS
  389. 230    D  6.15        ;Acetic Acid
  390. 231    D  20.7        ;Acetone
  391. 232    D  24.3        ;Alcohol, ethyl
  392. 233    D  32.6        ;Alcohol, methyl
  393. 234    D  20.1        ;Alcohol, propyl
  394. 235    D  16.9        ;Ammonia (aqua)
  395. 236    D  2.2        ;Benzene
  396. 237    D  3.20        ;Bromine
  397. 238    D  2.64        ;Carbon disulfide
  398. 239    D  2.23        ;Carbon tet
  399. 240    D  4.7        ;Castor oil
  400. 241    D  4.8        ;Chloroform
  401. 242    D  2.0        ;Decane
  402. 244    D  4.3        ;Ether
  403. 245    D  37.7        ;Ethylene Glycol
  404. ;REFRACTIVE INDICES OF COMMON LIQUIDS
  405. 300    D  1.37 ;Acetic Acid
  406. 301    D  1.36 ;Acetone
  407. 302    D  1.36 ;Alcohol, ethyl
  408. 303    D  1.33 ;Alcohol, methyl
  409. 304    D  1.38 ;Alcohol, propyl
  410. 306    D  1.50 ;Benzene
  411. 308    D  1.63 ;Carbon disulfide
  412. 309    D  1.46 ;Carbon tet
  413. 311    D  1.44 ;Chloroform
  414. ;VISCOSITY
  415. 335    D  1.155*poise/100    ;Acetic Acid
  416. 336    D  0.316*poise/100    ;Acetone
  417. 337    D  1.095*poise/100    ;Alcohol, ethyl
  418. 338    D  0.56*poise/100    ;Alcohol, methyl
  419. 339    D  1.92*poise/100    ;Alcohol, propyl
  420. 341    D  0.601*poise/100    ;Benzene
  421. 342    D  0.95*poise/100    ;Bromine
  422. 343    D  0.36*poise/100    ;Carbon disulfide
  423. 344    D  0.91*poise/100    ;Carbon tet
  424. 345    D  650*poise/100    ;Castor oil
  425. 346    D  0.53*poise/100    ;Chloroform
  426. 347    D  0.859*poise/100    ;Decane
  427. 348    D  1.374*poise/100    ;Dodecane
  428. 349    D  0.223*poise/100    ;Ether
  429. 350    D  16.2*poise/100    ;Ethylene Glycol
  430. 351    D  0.42*poise/100    ;Fluorine refr R-11
  431. ;MOLECULAR WEIGHT
  432. 370    D  60.0537*gm    ;Acetic Acid
  433. 371    D  58.081*gm    ;Acetone
  434. 372    D  46.070*gm    ;Alcohol, ethyl
  435. 373    D  32.043*gm    ;Alcohol, methyl
  436. 374    D  60.098*gm    ;Alcohol, propyl
  437. 375    D  17.698*gm    ;Ammonia (aqua)
  438. 376    D  78.117*gm    ;Benzene
  439. 377    D  159.818*gm    ;Bromine
  440. 378    D  76.140*gm    ;Carbon disulfide
  441. 379    D  153.824*gm    ;Carbon tet
  442. 381    D  119.378*gm    ;Chloroform
  443. 382    D  142.290*gm    ;Decane
  444. 383    D  170.345*gm    ;Dodecane
  445. 384    D  74.125*gm    ;Ether
  446. 385    D  62.070*gm    ;Ethylene Glycol
  447. 386    D  137.369*gm    ;Fluorine refr R-11
  448. ;ELECTRICAL OSCILLATORS
  449. ;RC PHASE SHIFT
  450. 128    P    oscrcphp.pas
  451. 129    P    oscrcphg.pas
  452. 130    P    oscrcphf.pas
  453. ;TUNED OUTPUT
  454. 131    P    osctunep.pas
  455. 132    P    osctuneg.pas
  456. 133    P    osctunef.pas
  457. ;COLPITTS
  458. 134    P    osccolpp.pas
  459. 135    P    osccolpg.pas
  460. 136    P    osccolpf.pas
  461. ;COORDINATE TRANSFORMATIONS
  462. ;PASTE PICTURES
  463. 1264    P    t2drectp.pas
  464. 1274    P    t3drectp.pas
  465. 1270    P    tcylindp.pas
  466. 1263    P    tpolarcp.pas;PASTE FORMULAS;RECTANGULAR TO POLAR
  467. 1261    D    r(x,y):\(x^2+y^2)
  468. 1262    D    Θ(x,y):angle(x,y);POLAR TO RECTANGULAR
  469. 1265    D    x(r,Θ):r*cos(Θ)
  470. 1266    D    y(r,Θ):r*sin(Θ);CYLINDRICAL TO RECTANGULAR
  471. 1267    D    x(r,Θ,Z):r*cos(Θ)
  472. 1268    D    y(r,Θ,Z):r*sin(Θ)
  473. 1269    D    z(r,Θ,Z):Z;RECTANGULAR TO CYLINDRICAL
  474. 1271    D    r(x,y,z):\(x^2+y^2+z^2)
  475. 1272    D    Θ(x,y,z):angle(x,y)
  476. 1273    D    Z(x,y,z):z
  477. ;CAPACITANCE
  478. 900    P    zparallp.pas
  479. 899    D    ε*A/d
  480. 902    P    zcoaxiap.pas
  481. 901    D    2*π*ε*d/ln(r.2/r.1)
  482. 904    P    zisolatp.pas
  483. 903    D    4*π*ε*r
  484. 906    P    zconcenp.pas
  485. 905    D    4*π*ε/(1/r.1-1/r.2)
  486. ;UNITS
  487. 51    D    kW
  488. 52    D    lb
  489. 53    D    lbf
  490. 54    D    liter
  491. 55    D    m
  492. 56    D    mi
  493. 57    D    min
  494. 58    D    mL
  495. 59    D    mm
  496. 60    D    mph
  497. 61    D    newton
  498. 62    D    oersted
  499. 63    D    ohm
  500. 64    D    oz
  501. 65    D    Pa
  502. 66    D    poise
  503. 67    D    psi
  504. 68    D    rad
  505. 69    D    sec
  506. 70    D    siemens
  507. 71    D    slug
  508. 72    D    statamp
  509. 73    D    statcoul
  510. 74    D    statfarad
  511. 75    D    stathenry
  512. 76    D    statohm
  513. 77    D    statseimens
  514. 78    D    stattesla
  515. 79    D    statvolt
  516. 80    D    statweber
  517. 81    D    stokes
  518. 82    D    tesla
  519. 83    D    ton
  520. 84    D    tonne
  521. 85    D    torr
  522. 86    D    volt
  523. 87    D    watt
  524. 88    D    weber
  525. 89    D    yd
  526. 90    D    yr
  527. 91    D    acre
  528. 92    D    amp
  529. 93    D    atm
  530. 94    D    BTU
  531. 95    D    cal
  532. 96    D    cm
  533. 97    D    coul
  534. 98    D    day
  535. 99    D    deg
  536. 100    D    dyne
  537. 101    D    erg
  538. 102    D    farad
  539. 103    D    fl_oz
  540. 104    D    ft
  541. 105    D    g
  542. 106    D    gal
  543. 107    D    gm
  544. 108    D    hectare
  545. 109    D    henry
  546. 110    D    hp
  547. 111    D    hr
  548. 112    D    in
  549. 113    D    in_Hg
  550. 114    D    joule
  551. 115    D    kcal
  552. 116    D    kg
  553. 117    D    kgf
  554. 118    D    km
  555. 119    D    kph
  556. 120    D    c 
  557. 121    D    c_
  558. 122    D    gauss
  559. ;THERMAL CONDUCTIVITIES
  560. 657    D    137*BTU/(hr*ft)    ;Aluminum
  561. 658    D    10.7*BTU/(hr*ft)    ;Antimony
  562. 659    D    126*BTU/(hr*ft)    ;Beryllium
  563. 660    D    4.9*BTU/(hr*ft)    ;Bismuth
  564. 661    D    54*BTU/(hr*ft)    ;Cadmium
  565. 662    D    52*BTU/(hr*ft)    ;Chromium
  566. 663    D    40*BTU/(hr*ft)    ;Cobalt
  567. 664    D    230*BTU/(hr*ft)    ;Copper
  568. 665    D    182*BTU/(hr*ft)    ;Gold
  569. 666    D    85.0*BTU/(hr*ft)    ;Iridium
  570. 667    D    46.4*BTU/(hr*ft)    ;Iron
  571. 668    D    20.0*BTU/(hr*ft)    ;Lead
  572. 669    D    91.9*BTU/(hr*ft)    ;Magnesium
  573. 670    D    4.85*BTU/(hr*ft)    ;Mercury
  574. 671    D    81*BTU/(hr*ft)    ;Molybdenum
  575. 672    D    52*BTU/(hr*ft)    ;Nickel
  576. ;SPECIFIC GRAVITIES
  577. 673    D    2.70    ;Aluminum
  578. 674    D    6.69    ;Antimony
  579. 675    D    1.85    ;Beryllium
  580. 676    D    9.75    ;Bismuth
  581. 677    D    8.65    ;Cadmium
  582. 678    D    7.2    ;Chromium
  583. 679    D    8.9    ;Cobalt
  584. 680    D    8.96    ;Copper
  585. 681    D    19.32    ;Gold
  586. 682    D    22.42    ;Iridium
  587. 683    D    7.87    ;Iron
  588. 684    D    11.35    ;Lead
  589. 685    D    1.74    ;Magnesium
  590. 686    D    7.33    ;Manganese
  591. 687    D    13.546    ;Mercury
  592. 688    D    10.22    ;Molybdenum
  593. 689    D    8.90    ;Nickel
  594. ;COEFFICIENTS OF LINEAR EXPANSION
  595. 690    D    14*10^-6    ;Aluminum
  596. 691    D    5*10^-6    ;Antimony
  597. 692    D    6.7*10^-6    ;Beryllium
  598. 693    D    7.2*10^-6    ;Bismuth
  599. 694    D    17*10^-6    ;Cadmium
  600. 695    D    3.3*10^-6    ;Chromium
  601. 696    D    6.7*10^-6    ;Cobalt
  602. 697    D    9.2*10^-6    ;Copper
  603. 698    D    7.9*10^-6    ;Gold
  604. 699    D    3.3*10^-6    ;Iridium
  605. 700    D    6.7*10^-6    ;Iron
  606. 701    D    16*10^-6    ;Lead
  607. 702    D    14*10^-6    ;Magnesium
  608. 703    D    12*10^-6    ;Manganese
  609. 704    D    3.0*10^-6    ;Molybdenum
  610. 705    D    7.4*10^-6    ;Nickel
  611. ;ELECTRICAL RESISTIVITIES
  612. 706    D    2.655*10^-6*ohm*cm    ;Aluminum
  613. 707    D    41.8*10^-6*ohm*cm    ;Antimony
  614. 708    D    4.0*10^-6*ohm*cm    ;Beryllium
  615. 709    D    115*10^-6*ohm*cm    ;Bismuth
  616. 710    D    7.4*10^-6*ohm*cm    ;Cadmium
  617. 711    D    13*10^-6*ohm*cm    ;Chromium
  618. 712    D    9*10^-6*ohm*cm    ;Cobalt
  619. 713    D    1.673*10^-6*ohm*cm    ;Copper
  620. 714    D    2.35*10^-6*ohm*cm    ;Gold
  621. 715    D    5.3*10^-6*ohm*cm    ;Iridium
  622. 716    D    9.7*10^-6*ohm*cm    ;Iron
  623. 717    D    20.6*10^-6*ohm*cm    ;Lead
  624. 718    D    4.45*10^-6*ohm*cm    ;Magnesium
  625. 719    D    185*10^-6*ohm*cm    ;Manganese
  626. 720    D    98.4*10^-6*ohm*cm    ;Mercury
  627. 721    D    5.2*10^-6*ohm*cm    ;Molybdenum
  628. 722    D    6.85*10^-6*ohm*cm    ;Nickel
  629. ;POISSON'S RATIOS
  630. 741    D    0.33    ;Aluminum
  631. 742    D    0.027    ;Beryllium
  632. 743    D    0.36    ;Copper
  633. 744    D    0.42    ;Gold
  634. 745    D    0.43    ;Lead
  635. 746    D    0.35    ;Magnesium
  636. 747    D    0.32    ;Molybdenum
  637. 748    D    0.31    ;Nickel
  638. 749    D    0.39    ;Platinum
  639. 750    D    0.18    ;Plutonium
  640. 751    D    0.37    ;Silver
  641. 752    D    0.35    ;Tantalum
  642. 753    D    0.27    ;Thorium
  643. 754    D    0.33    ;Tin
  644. 755    D    0.3    ;Titanium
  645. 756    D    0.28    ;Tungsten
  646. 757    D    0.21    ;Uranium
  647. 758    D    0.25    ;Zinc
  648. ;MODULI OF ELASTICITY
  649. 759    D    10.0*10^6*psi    ;Aluminum
  650. 760    D    11.3*10^6*psi    ;Antimony
  651. 761    D    42*10^6*psi    ;Beryllium
  652. 762    D    4.6*10^6*psi    ;Bismuth
  653. 763    D    8*10^6*psi    ;Cadmium
  654. 764    D    36*10^6*psi    ;Chromium
  655. 765    D    30*10^6*psi    ;Cobalt
  656. 766    D    17*10^6*psi    ;Copper
  657. 767    D    10.8*10^6*psi    ;Gold
  658. 768    D    75*10^6*psi    ;Iridium
  659. 769    D    28.5*10^6*psi    ;Iron
  660. 770    D    2.0*10^6*psi    ;Lead
  661. 771    D    6.4*10^6*psi    ;Magnesium
  662. 772    D    23*10^6*psi    ;Manganese
  663. 773    D    40*10^6*psi    ;Molybdenum
  664. 774    D    31*10^6*psi    ;Nickel
  665. ;APPROXIMATE MELTING POINT
  666. 791    D    1220    ;Aluminum
  667. 792    D    1170    ;Antimony
  668. 793    D    2345    ;Beryllium
  669. 794    D    521    ;Bismuth
  670. 795    D    610    ;Cadmium
  671. 796    D    3380    ;Chromium
  672. 797    D    2723    ;Cobalt
  673. 798    D    1983    ;Copper
  674. 799    D    1945    ;Gold
  675. 800    D    4440    ;Iridium
  676. 801    D    2797    ;Iron
  677. 802    D    621    ;Lead
  678. 803    D    1200    ;Magnesium
  679. 804    D    2271    ;Manganese
  680. 805    D    -38    ;Mercury
  681. 806    D    4750    ;Molybdenum
  682. 807    D    2647    ;Nickel
  683. ;TEMPERATURE COEFFICIENTS OF RESISTIVITY
  684. 826    D    0.004    ;Aluminum
  685. 827    D    0.0036    ;Antimony
  686. 828    D    0.025    ;Beryllium
  687. 829    D    0.004    ;Bismuth
  688. 830    D    0.004    ;Cadmium
  689. 831    D    0.0009    ;Cerium
  690. 832    D    0.003    ;Chromium
  691. 833    D    0.006    ;Cobalt
  692. 834    D    0.004    ;Copper
  693. 835    D    0.0035    ;Gold
  694. 836    D    0.004    ;Hafnium
  695. 837    D    0.005    ;Indium
  696. 838    D    0.0039    ;Iridium
  697. 839    D    0.006    ;Iron
  698. 840    D    0.004    ;Lead
  699. 841    D    0.005    ;Lithium
  700. 842    D    0.003    ;Magnesium
  701. 843    D    0.0009    ;Mercury
  702. 844    D    0.004    ;Molybdenum
  703. 845    D    0.006    ;Nickel
  704. ;DENSITY
  705. 1044    D    2.6*gm/cm^3    ;Agate
  706. 1045    D    2.7*gm/cm^3    ;Alabaster, carbonate
  707. 1046    D    2.3*gm/cm^3    ;Alabaster, sulfate
  708. 1047    D    2.6*gm/cm^3    ;Albite
  709. 1048    D    1.1*gm/cm^3    ;Amber
  710. 1049    D    3.0*gm/cm^3    ;Amphiboles
  711. 1050    D    2.75*gm/cm^3    ;Anorthite
  712. 1051    D    2.4*gm/cm^3    ;Asbestos
  713. 1052    D    1.8*gm/cm^3    ;Asbestos slate
  714. 1053    D    1.1*gm/cm^3    ;Asphalt
  715. 1054    D    2.7*gm/cm^3    ;Basalt
  716. 1055    D    0.95*gm/cm^3    ;Beeswax
  717. 1056    D    2.7*gm/cm^3    ;Beryl
  718. 1057    D    2.9*gm/cm^3    ;Biotite
  719. 1058    D    1.8*gm/cm^3    ;Bone
  720. 1059    D    1.8*gm/cm^3    ;Brick
  721. 1060    D    0.86*gm/cm^3    ;Butter
  722. 1061    D    4.3*gm/cm^3    ;Calamine
  723. 1062    D    2.7*gm/cm^3    ;Calcspar
  724. 1063    D    0.99*gm/cm^3    ;Camphor
  725. 1064    D    0.95*gm/cm^3    ;Cautchouc
  726. 1065    D    0.69*gm/cm^3    ;Cardboard
  727. 1066    D    1.4*gm/cm^3    ;Celluloid
  728. 1067    D    2.8*gm/cm^3    ;Cement, set
  729. 1068    D    2.0*gm/cm^3    ;Chalk
  730. 1069    D    0.57*gm/cm^3    ;Charcoal, oak
  731. 1070    D    0.3*gm/cm^3    ;Charcoal, pine
  732. 1071    D    8.12*gm/cm^3    ;Cinnabar
  733. 1072    D    2.2*gm/cm^3    ;Clay
  734. 1073    D    1.5*gm/cm^3    ;Coal, anthracite
  735. 1074    D    1.2*gm/cm^3    ;Coal, bituminous
  736. 1075    D    0.90*gm/cm^3    ;Cocoa Butter
  737. 1076    D    1.4*gm/cm^3    ;Coke
  738. 1077    D    1.09*gm/cm^3    ;Copal
  739. 1078    D    0.24*gm/cm^3    ;Cork
  740. 1079    D    0.54*gm/cm^3    ;Cork linoleum
  741. 1080    D    3.9*gm/cm^3    ;Corundum
  742. 1081    D    3.26*gm/cm^3    ;Diamond
  743. 1082    D    2.84*gm/cm^3    ;Dolomite
  744. 1083    D    1.15*gm/cm^3    ;Ebonite
  745. 1084    D    4.0*gm/cm^3    ;Emery
  746. 1085    D    3.26*gm/cm^3    ;Epidote
  747. 1086    D    2.6*gm/cm^3    ;Feldspar
  748. 1087    D    2.63*gm/cm^3    ;Flint
  749. 1088    D    3.18*gm/cm^3    ;Fluorite
  750. 1089    D    7.4*gm/cm^3    ;Galena
  751. 1090    D    1.2*gm/cm^3    ;Gamboge
  752. 1091    D    3.73*gm/cm^3    ;Garnet
  753. 1092    D    1.88*gm/cm^3    ;Gas Carbon
  754. 1093    D    1.27*gm/cm^3    ;Gelatin
  755. 1094    D    2.6*gm/cm^3    ;Glass, common 
  756. 1095    D    4.4*gm/cm^3    ;Glass, flint
  757. 1096    D    1.27*gm/cm^3    ;Glue
  758. 1097    D    2.7*gm/cm^3    ;Granite
  759. 1098    D    2.5*gm/cm^3    ;Graphite
  760. 1099    D    1.35*gm/cm^3    ;Gum arabic
  761. 1100    D    2.32*gm/cm^3    ;Gypsum
  762. 1101    D    5.1*gm/cm^3    ;Hematite
  763. 1102    D    3.0*gm/cm^3    ;Hornblende
  764. 1103    D    0.92*gm/cm^3    ;Ice
  765. 1104    D    1.87*gm/cm^3    ;Ivory
  766. 1105    D    0.86*gm/cm^3    ;Leather, dry
  767. 1106    D    1.35*gm/cm^3    ;Lime, slaked
  768. 1107    D    2.5*gm/cm^3    ;Limestone
  769. 1108    D    1.18*gm/cm^3    ;Linoleum
  770. 1109    D    5.1*gm/cm^3    ;Magnetite
  771. 1110    D    3.9*gm/cm^3    ;Malachite
  772. 1111    D    2.6*gm/cm^3    ;Marble
  773. 1112    D    1.13*gm/cm^3    ;Meerschaum
  774. ;SPECIFIC GRAVITY
  775. 1113    D    1.4    ;Asbestos cement board
  776. 1114    D    1.0    ;Asbestos millboard
  777. 1115    D    1.1    ;Asphalt
  778. 1116    D    0.95    ;Beeswax
  779. 1117    D    1.75    ;Brick, common
  780. 1118    D    2.0    ;Brick, hard
  781. 1119    D    2.0    ;Chalk
  782. 1120    D    0.4    ;Charcoal, wood
  783. 1121    D    1.5    ;Coal, anthracite
  784. 1122    D    1.2    ;Coal, bituminous
  785. 1123    D    1.4    ;Concrete, light
  786. 1124    D    2.2    ;Concrete, stone
  787. 1125    D    0.2    ;Corkboard
  788. 1126    D    1.4    ;Earth, dry
  789. 1127    D    0.24    ;Fiberboard, light
  790. 1128    D    1.1    ;Fiber hardboard
  791. 1129    D    2.1    ;Firebrick
  792. 1130    D    2.5    ;Glass, window
  793. 1131    D    0.8    ;Gypsum board
  794. 1132    D    0.1    ;Hairfelt
  795. 1133    D    0.9    ;Ice (32 deg.)
  796. ;SPECIFIC HEAT
  797. 1134    D    0.2*cal/gm    ;Asb cement board
  798. 1135    D    0.2*cal/gm    ;Asbestos millboard
  799. 1136    D    0.4*cal/gm    ;Asphalt
  800. 1137    D    0.82*cal/gm    ;Beeswax
  801. 1138    D    0.22*cal/gm    ;Brick, common
  802. 1139    D    0.24*cal/gm    ;Brick, hard
  803. 1140    D    0.215*cal/gm    ;Chalk
  804. 1141    D    0.24*cal/gm    ;Charcoal, wood
  805. 1142    D    0.3*cal/gm    ;Coal, anthracite
  806. 1143    D    0.33*cal/gm    ;Coal, bituminous
  807. 1144    D    0.23*cal/gm    ;Concrete, light
  808. 1145    D    0.18*cal/gm    ;Concrete, stone
  809. 1146    D    0.45*cal/gm    ;Corkboard
  810. 1147    D    0.3*cal/gm    ;Earth, dry
  811. 1148    D    0.6*cal/gm    ;Fiberboard, light
  812. 1149    D    0.5*cal/gm    ;Fiber hardboard
  813. 1150    D    0.25*cal/gm    ;Firebrick
  814. 1151    D    0.2*cal/gm    ;Glass, window
  815. 1152    D    0.26*cal/gm    ;Gypsum board
  816. 1153    D    0.5*cal/gm    ;Hairfelt
  817. 1154    D    0.5*cal/gm    ;Ice (32 deg.)
  818. ;THERMAL CONDUCTIVITY
  819. 1155    D    0.35*BTU/(hr*ft)    ;Asbess cement board
  820. 1156    D    0.08*BTU/(hr*ft)    ;Asbestos millboard
  821. 1157    D    0.42*BTU/(hr*ft)    ;Brick, common
  822. 1158    D    0.75*BTU/(hr*ft)    ;Brick, hard
  823. 1159    D    0.48*BTU/(hr*ft)    ;Chalk
  824. 1160    D    0.05*BTU/(hr*ft)    ;Charcoal, wood
  825. 1161    D    0.25*BTU/(hr*ft)    ;Concrete, light
  826. 1162    D    1.0*BTU/(hr*ft)    ;Concrete, stone
  827. 1163    D    0.025*BTU/(hr*ft)    ;Corkboard
  828. 1164    D    0.85*BTU/(hr*ft)    ;Earth, dry
  829. 1165    D    0.035*BTU/(hr*ft)    ;Fiberboard, light
  830. 1166    D    0.12*BTU/(hr*ft)    ;Fiber hardboard
  831. 1167    D    0.8*BTU/(hr*ft)    ;Firebrick
  832. 1168    D    0.55*BTU/(hr*ft)    ;Glass, window
  833. 1169    D    0.1*BTU/(hr*ft)    ;Gypsum board
  834. 1170    D    0.03*BTU/(hr*ft)    ;Hairfelt
  835. 1171    D    1.25*BTU/(hr*ft)    ;Ice (32 deg.)
  836. ;MOMENTS OF INERTIA
  837. ;SLENDER ROD
  838. 1229    D    I.y:1/12*m*L^2
  839. 1228    D    I.z:1/12*m*L^2
  840. ;THIN RECTANGULAR PLATE
  841. 1231    D    I.x:1/12*m*(b^2+c^2)
  842. 1230    D    I.y:1/12*m*c^2
  843. 1234    D    I.z:1/12*m*b^2
  844. ;RECTANGULAR PRISM
  845. 1245    D    I.x:1/12*m*(b^2+c^2)
  846. 1246    D    I.y:1/12*m*(c^2+a^2)
  847. 1247    D    I.z:1/12*m*(a^2+b^2)
  848. ;THIN DISK
  849. 1232    D    I.x:1/2*m*r^2
  850. 1233    D    I.y:1/4*m*r^2
  851. 1235    D    I.z:1/4*m*r^2
  852. ;CIRCULAR CYLINDER
  853. 1244    D    I.x:1/2*m*a^2
  854. 1236    D    I.y:1/12*m*(3*a^2+L^2)
  855. 1237    D    I.z:1/12*m*(3*a^2+L^2)
  856. ;PICTURES
  857. 1253    P    momreprp.pas
  858. 1248    P    momslrdp.pas
  859. 1254    P    momcicyp.pas
  860. 1250    P    momthdip.pas
  861. 1249    P    momthrep.pas
  862. ;ANTENNAS
  863. ;SHORT DIPOLE
  864. 869    P    antshdip.pas
  865. 870    D    ((1j)*{3}h*k*L*I.0)/(4*{3}p*r)*(e)^((-1j*k*r))*sin({3}q)
  866. 871    D    (-1j*(k)^(2)*L)/(4*{3}p*r)*M.0*(e)^((-1j*k*r))*sin({3}q)
  867. ;;DIPOLE
  868. 872    P    antdipop.pas
  869. 873    D    1j*({3}h)*(I.0*(e)^((-1j*k*r)))/(2*{3}p*r)*(cos(k*L*cos({3}q))-cos(k*L))/(sin({3}q))
  870. ;;SMALL LOOP
  871. 874    P    antsmlop.pas
  872. 875    D    (({3}h)*(k*a))/(2*r)*I.0*(e)^((-1j*k*r))*J1(k*a*sin({3}q))
  873. ;;ANNULAR SLOT
  874. 876    P    antanslp.pas
  875. 877    D    (k*V.0*a)/(r)*(e)^((-1j*k*r))*J1(k*a*sin({3}q))
  876. ;;THIN HALF-WAVE SLOT
  877. 878    P    antthhwp.pas
  878. 879    D    1j*(V.0)/({3}p*r)*(e)^((-1j*k*r))
  879. 880    D    (-1j*V.0)/({3}p*r)*(e)^((-1j*k*r))*cos(({3}p)/(2)*sin({3}q))
  880. ;ATOMIC NUMBERS
  881. 539    D  89    ;Actinium (Ac)
  882. 540    D  47    ;Silver (Ag)
  883. 541    D  13    ;Aluminum (Al)
  884. 542    D  95    ;Americium (Am)
  885. 543    D  18    ;Argon (Ar)
  886. 544    D  33    ;Arsenic (As)
  887. 545    D  85    ;Astatine(At)
  888. 546    D  79    ;Gold (Au)
  889. 547    D  5    ;Boron (B)
  890. 548    D  56    ;Barium (Ba)
  891. 549    D  4    ;Berylium (Be)
  892. 550    D  83    ;Bismuth (Bi)
  893. 551    D  97    ;Berkelium
  894. 552    D  35    ;Bromine (Br)
  895. 553    D  6    ;Carbon (C)
  896. 554    D  20    ;Calcium (Ca)
  897. 555    D  48    ;Cadmium (Cd)
  898. 556    D  58    ;Cerium (Ce)
  899. 557    D  98    ;Californium (Cf)
  900. 558    D  17    ;Chlorine (Cl)
  901. 559    D  96    ;Curium (Cm)
  902. 560    D  27    ;Cobalt (Co)
  903. 561    D  24    ;Chromium (Cr)
  904. 562    D  55    ;Cesium (Cs)
  905. 563    D  29    ;Copper (Cu)
  906. 564    D  66    ;Dysprosium (Dy)
  907. 565    D  68    ;Erbium (Er)
  908. 566    D  99    ;Einsteinium (Es)
  909. 567    D  63    ;Europium (Eu)
  910. 568    D  9    ;Fluorine (F)
  911. 569    D  26    ;Iron (Fe)
  912. 570    D  100    ;Fermium (Fm)
  913. 571    D  87    ;Francium (Fr)
  914. 572    D  31    ;Gallium (Ga)
  915. 573    D  64    ;Gadolinium (Gd)
  916. 574    D  32    ;Germanium (Ge)
  917. 575    D  1    ;Hydrogen (H)
  918. 576    D  105    ;Hahnium (Ha)
  919. 577    D  2    ;Helium (He)
  920. 578    D  72    ;Hafnium (Hf)
  921. 579    D  80    ;Mercury (Hg)
  922. 580    D  67    ;Holmium (Ho)
  923. 581    D  53    ;Iodine (I)
  924. 582    D  49    ;Indium (In)
  925. 583    D  77    ;Iridium (Ir)
  926. 584    D  19    ;Potassium (K)
  927. 585    D  36    ;Krypton (Kr)
  928. 586    D  57    ;Lanthanum (La)
  929. 587    D  3    ;Lithium (Li)
  930. 588    D  71    ;Lutetium (Lu)
  931. 589    D  103    ;Lawrencium (Lr)
  932. 590    D  101    ;Mendelevium (Md)
  933. 591    D  12    ;Magnesium (Mg)
  934. ;ATOMIC WEIGHTS
  935. 592    D  227    ;Actinium (Ac)
  936. 593    D  107.870    ;Silver (Ag)
  937. 594    D  26.982    ;Aluminum (Al)
  938. 595    D  243    ;Americium (Am)
  939. 596    D  39.948    ;Argon (Ar)
  940. 597    D  74.922    ;Arsenic (As)
  941. 598    D  210    ;Astatine(At)
  942. 599    D  196.967    ;Gold (Au)
  943. 600    D  10.811    ;Boron (B)
  944. 601    D  137.34    ;Barium (Ba)
  945. 602    D  9.012    ;Berylium (Be)
  946. 603    D  208.980    ;Bismuth (Bi)
  947. 604    D  247    ;Berkelium (Bk)
  948. 605    D  79.909    ;Bromine (Br)
  949. 606    D  12.011    ;Carbon (C)
  950. 607    D  40.08    ;Calcium (Ca)
  951. 608    D  112.40    ;Cadmium (Cd)
  952. 609    D  140.12    ;Cerium (Ce)
  953. 610    D  251    ;Californium (Cf)
  954. 611    D  35.453    ;Chlorine (Cl)
  955. 612    D  247    ;Curium (Cm)
  956. 613    D  58.933    ;Cobalt (Co)
  957. 614    D  51.996    ;Chromium (Cr)
  958. 615    D  132.905    ;Cesium (Cs)
  959. 616    D  63.54    ;Copper (Cu)
  960. 617    D  162.50    ;Dysprosium (Dy)
  961. 618    D  167.26    ;Erbium (Er)
  962. 619    D  254    ;Einsteinium (Es)
  963. 620    D  151.96    ;Europium (Eu)
  964. 621    D  18.998    ;Fluorine (F)
  965. 622    D  55.847    ;Iron (Fe)
  966. 623    D  257    ;Fermium (Fm)
  967. 624    D  223    ;Francium (Fr)
  968. 625    D  69.72    ;Gallium (Ga)
  969. 626    D  157.25    ;Gadolinium (Gd)
  970. 627    D  72.59    ;Germanium (Ge)
  971. 628    D  1.008    ;Hydrogen (H)
  972. 629    D  260    ;Hahnium (Ha)
  973. 630    D  4.003    ;Helium (He)
  974. 631    D  178.49    ;Hafnium (Hf)
  975. 632    D  200.59    ;Mercury (Hg)
  976. 633    D  164.930    ;Holmium (Ho)
  977. 634    D  126.904    ;Iodine (I)
  978. 635    D  114.82    ;Indium (In)
  979. 636    D  192.2    ;Iridium (Ir)
  980. 637    D  39.102    ;Potassium (K)
  981. 638    D  83.80    ;Krypton (Kr)
  982. 639    D  138.91    ;Lanthanum (La)
  983. 640    D  6.939    ;Lithium (Li)
  984. 641    D  174.97    ;Lutetium (Lu)
  985. 642    D  257    ;Lawrencium (Lr)
  986. 643    D  256    ;Mendelevium (Md)
  987. 644    D  24.312 ;Magnesium
  988. 645    D  54.938 ;Manganese
  989.