Sharp PC-E500/E500S Technikersoftware

ELECTR.222

Äußeres Elektron

ELECTR.222 (9.299 Bytes)

10 ' ELECTRON.222 (Outer electron)
15 CLEAR
20 MERGE "G:COMN.00$"
30 GOSUB *CG
40 QMS$="          *  OUTER ELECTRON  *"
50 GOTO 10000
100 DATA H,1s,@,&C3,S,@,13.599,---,@,---
110 DATA He,1s,&C3,@,&C2,S,@,24.588,&C3,S,@,54.418
120 DATA Li,2s,@,&C3,S,@,5.392,&C2,S,@,75.641
130 DATA Be,2s,&C3,@,&C2,S,@,9.323,&C3,S,@,18.211
140 DATA B,2s,&C3,2p,@,&C3,P,&D2,&F7,&D3,@,8.298,&C2,S,@,25.156
150 DATA C,2s,&C3,2p,&C3,@,&C4,P,&D1,@,11.266,&C3,P,&D2,&F7,&D3,@,24.383
160 DATA N,2s,&C3,2p,&C4,@,&C5,S,@,14.53,&C4,P,&D1,@,29.602
170 DATA O,2s,&C3,2p,&C5,@,&C4,P,&D3,@,13.618,&C5,S,@,35.118
180 DATA F,2s,&C3,2p,&C6,@,&C3,P,&D4,&F7,&D3,@,17.423,&C4,P,&D3,@,34.98
190 DATA Ne,2s,&C3,2p,&C7,@,&C2,S,@,21.565,&C3,P,&D4,&F7,&D3,@,40.964
200 DATA Na,3s,@,&C3,S,@,5.139,&C2,S,@,47.29
210 DATA Mg,3s,&C3,@,&C2,S,@,7.644,&C3,S,@,15.035
220 DATA Al,3s,&C3,3p,@,&C3,P,&D2,&F7,&D3,@,5.986,&C2,S,@,18.828
230 DATA Si,3s,&C3,3p,&C3,@,&C4,P,&D1,@,8.152,&C3,P,&D2,&F7,&D3,@,16.346
240 DATA P,3s,&C3,3p,&C4,@,&C5,S,@,10.487,&C4,P,&D1,@,19.72
250 DATA S,3s,&C3,3p,&C5,@,&C4,P,&D3,@,10.360,&C5,S,@,23.4
260 DATA Cl,3s,&C3,3p,&C6,@,&C3,P,&D4,&F7,&D3,@,12.967,&C4,P,&D3,@,23.80
270 DATA Ar,3s,&C3,3p,&C7,@,&C2,S,@,15.760,&C3,P,&D4,&F7,&D3,@,27.62
280 DATA K,4s,@,&C3,S,@,4.341,&C2,S,@,31.81
290 DATA Ca,4s,&C3,@,&C2,S,@,6.113,&C3,S,@,11.872
300 DATA Sc,3d4s,&C3,@,&C3,D,&D4,&F7,&D3,@,6.54,&C4,D,&D2,@,12.80
310 DATA Ti,3d,&C3,4s,&C3,@,&C4,F,&D3,@,6.82,&C5,F,&D4,&F7,&D3,@,13.557
320 DATA V,3d,&C4,4s,&C3,@,&C5,F,&D4,&F7,&D3,@,6.74,&C6,D,&D1,@,14.65
330 DATA Cr,3d,&C6,4s,@,&C8,S,@,6.765,&C7,S,@,16.49
340 DATA Mn,3d,&C6,4s,&C3,@,&C7,S,@,7.432,&C8,S,@,15.640
350 DATA Fe,3d,&C7,4s,&C3,@,&C6,D,&D5,@,7.87,&C7,D,&DA,&F7,&D3,@,16.18
360 DATA Co,3d,&C8,4s,&C3,@,&C5,F,&DA,&F7,&D3,@,7.864,&C4,F,&D5,@,17.05
370 DATA Ni,3d,&C9,4s,&C3,@,&C4,F,&D5,@,7.635,&C3,D,&D6,&F7,&D3,@,18.15
380 DATA Cu,3d,&C2,&C1,4s,@,&C3,S,@,7.726,&C2,S,@,20.292
390 DATA Zn,3d,&C2,&C1,4s,&C3,@,&C2,S,@,9.394,&C3,S,@,17.964
400 DATA Ga,3d,&C2,&C1,4s,&C3,4p,@,&C3,P,&D2,&F7,&D3,@,5.999,&C2,S,@,20.51
410 DATA Ge,3d,&C2,&C1,4s,&C3,4p,&C3,@,&C4,P,&D1,@,7.900,&C3,P,&D2,&F7,&D3,@,15.935
420 DATA As,3d,&C2,&C1,4s,&C3,4p,&C4,@,&C5,S,@,9.81,&C4,P,&D1,@,18.63
430 DATA Se,3d,&C2,&C1,4s,&C3,4p,&C5,@,&C4,P,&D3,@,9.75,&C5,S,@,21.5
440 DATA Br,3d,&C2,&C1,4s,&C3,4p,&C6,@,&C3,P,&D4,&F7,&D3,@,11.814,&C4,P,&D3,@,21.6
450 DATA Kr,3d,&C2,&C1,4s,&C3,4p,&C7,@,&C2,S,@,14.000,&C3,P,&D4,&F7,&D3,@,24.56
460 DATA Rb,5s,@,&C3,S,@,4.177,&C2,S,@,27.5
470 DATA Sr,5s,&C3,@,&C2,S,@,5.696,&C3,S,@,11.030
480 DATA Y,4d5s,&C3,@,&C3,D,&D4,&F7,&D3,@,6.377,&C2,S,@,12.233
490 DATA Zr,4d,&C3,5s,&C3,@,&C4,F,&D3,@,6.837,&C5,F,&D4,&F7,&D3,@,13.13
500 DATA Nb,4d,&C5,5s,@,&C7,D,&D2,&F7,&D3,@,6.883,&C6,D,&D1,@,14.32
510 DATA Mo,4d,&C6,5s,@,&C8,S,@,7.10,&C7,S,@,16.15
520 DATA Tc,4d,&C6,5s,&C3,@,&C7,S,@,7.28,&C8,S,@,15.26
530 DATA Ru,4d,&C8,5s,@,&C6,F,&D6,@,7.366,&C5,F,&DA,&F7,&D3,@,16.76
540 DATA Rh,4d,&C9,5s,@,&C5,F,&DA,&F7,&D3,@,7.461,&C4,F,&D5,@,18.07
550 DATA Pd,4d,&C2,&C1,@,&C2,S,@,8.33,&C3,D,&D6,&F7,&D3,@,19.42
560 DATA Ag,4d,&C2,&C1,5s,@,&C3,S,@,7.576,&C2,S,@,21.48
570 DATA Cd,4d,&C2,&C1,5s,&C3,@,&C2,S,@,8.994,&C3,S,@,16.908
580 DATA In,4d,&C2,&C1,5s,&C3,5p,@,&C3,P,&D2,&F7,&D3,@,5.786,&C2,S,@,18.833
590 DATA Sn,4d,&C2,&C1,5s,&C3,5p,&C3,@,&C4,P,&D1,@,7.344,&C3,P,&D2,&F7,&D3,@,14.632
600 DATA Sb,4d,&C2,&C1,5s,&C3,5p,&C4,@,&C5,S,@,8.642,&C4,P,&D1,@,16.5
610 DATA Te,4d,&C2,&C1,5s,&C3,5p,&C5,@,&C4,P,&D3,@,9.01,&C5,S,@,18.6
620 DATA I,4d,&C2,&C1,5s,&C3,5p,&C6,@,&C3,P,&D4,&F7,&D3,@,10.459,&C4,P,&D3,@,19.135
630 DATA Xe,4d,&C2,&C1,5s,&C3,5p,&C7,@,&C2,S,@,12.130,&C3,P,&D4,&F7,&D3,@,21.21
640 DATA Cs,6s,@,&C3,S,@,3.894,&C2,S,@,25.1
650 DATA Ba,6s,&C3,@,&C2,S,@,5.212,&C3,S,@,10.001
660 DATA La,5d6s,&C3,@,&C3,D,&D4,&F7,&D3,@,5.61,&C4,F,&D3,@,10.85
670 DATA Ce,4f5d6s,&C3,@,&C5,G,@,---,&C5,H,&D8,&F7,&D3,@,10.55
680 DATA Pr,4f,&C4,6s,&C3,@,&C5,I,&DA,&F7,&D3,@,5.42,&C6,I,&D5,@,10.73
690 DATA Nd,4f,&C5,6s,&C3,@,&C6,I,&D5,@,5.49,&C7,I,&D8,&F7,&D3,@,10.55
700 DATA Pm,4f,&C6,6s,&C3,@,&C7,H,&D6,&F7,&D3,@,5.55,&C8,H,&D3,@,10.90
710 DATA Sm,4f,&C7,6s,&C3,@,&C8,F,&D1,@,5.63,&C9,F,&D2,&F7,&D3,@,11.2
720 DATA Eu,4f,&C8,6s,&C3,@,&C9,S,@,5.68,&CA,S,@,11.245
730 DATA Gd,4f,&C8,5d,6s,&C3,@,&CA,D,&D3,@,6.16,&C2,&C1,D,&D6,&F7,&D3,@,12
740 DATA Tb,4f,&CA,6s,&C3,@,&C7,H,&D2,&D6,&F7,&D3,@,5.98,,@," "
750 DATA Dy,4f,&C2,&C1,6s,&C3,@,I,&D9,@,5.93,,@,11.67
760 DATA Ho,4f,&C2,&C2,6s,&C3,@,&C5,I,&D2,&D6,&F7,&D3,@,6.02,,@,11.80
770 DATA Er,4f,&C2,&C3,6s,&C3,@,&C4,H,&D7,@,6.10,&C5,H,&D2,&D4,&F7,&D3,@,11.93
780 DATA Tm,4f,&C2,&C4,6s,&C3,@,&C3,F,&D8,&F7,&D3,@,6.18,&C4,F,&D5,@,12.05
790 DATA Yb,4f,&C2,&C5,6s,&C3,@,&C2,S,@,6.25,&C3,S,@,12.17
800 DATA Lu,4f,&C2,&C5,5d6s,&C3,@,&C3,D,&D4,&F7,&D3,@,6.15,&C2,S,@,13.9
810 DATA Hf,4f,&C2,&C5,5d,&C3,6s,&C3,@,&C4,F,&D3,@,7.0,&C3,D,&D4,&F7,&D3,@,14.9
820 DATA Ta,4f,&C2,&C5,5d,&C4,6s,&C3,@,&C5,F,&D4,&F7,&D3,@,7.88,&C6,F,&D2,@,16.2
830 DATA W,4f,&C2,&C5,5d,&C5,6s,&C3,@,&C6,D,&D1,@,7.98,&C7,D,&D2,&F7,&D3,@,17.7
840 DATA Re,4f,&C2,&C5,5d,&C6,6s,&C3,@,&C7,S,@,7.87,&C8,S,@,16.6
850 DATA Os,4f,&C2,&C5,5d,&C7,6s,&C3,@,&C6,D,&D5,@,8.7,&C7,D,&DA,&F7,&D3,@,17
860 DATA Ir,4f,&C2,&C5,5d,&C8,6s,&C3,@,&C5,F,&DA,&F7,&D3,@,9.2,,@," "
870 DATA Pt,4f,&C2,&C5,5d,&CA,6s,@,&C4,D,&D4,@,9.0,&C3,D,&D6,&F7,&D3,@,18.56
880 DATA Au,6s,@,&C3,S,@,9.22,&C2,S,@,20.5
890 DATA Hg,6s,&C3,@,&C2,S,@,10.437,&C3,S,@,18.757
900 DATA Tl,6s,&C3,6p,@,&C3,P,&D2,&F7,&D3,@,6.108,&C2,S,@,20.42
910 DATA Pb,6s,&C3,6p,&C3,@,&C4,P,&D1,@,7.415,&C3,P,&D2,&F7,&D3,@,15.032
920 DATA Bi,6s,&C3,6p,&C4,@,&C5,S,@,7.287,&C4,P,&D1,@,16.68
930 DATA Po,6s,&C3,6p,&C5,@,&C4,P,&D3,@,8.43,,@," "
940 DATA At,6s,&C3,6p,&C6,@,&C3,P,&D4,&F7,&D3,@,,,@," "
950 DATA Rn,6s,&C3,6p,&C7,@,&C2,S,@,10.745,&C3,P,&D4,&F7,&D3,@," "
960 DATA Fr,7s,@,&C3,S,@,,&C2,S,@," "
970 DATA Ra,7s,&C3,@,&C2,S,@,5.277,&C3,S,@,10.14
980 DATA Ac,6d7s,&C3,@,&C3,D,&D4,&F7,&D3,@,6.9,&C2 ,S,@,12.1
990 DATA Th,6d,&C3,7s,&C3,@,&C4,F,&D3,@,,&C5,F,&D4,&F7,&D3,@,11.5
1000 DATA Pa,6d,&C4,7s,&C3,@,&C5,K,&D2,&D2,&F7,&D3,@,,,@," "
1010 DATA U,5f,&C4,6d7s,&C3,@,&C6,L,&D7,@,6.08,&C5,I,&DA,&F7,&D3,@," "
1020 DATA Np,5f,&C5,6d7s,&C3,@,&C7,L,&D2,&D2,&F7,&D3,@,5.8,,@," "
1030 DATA Pu,5f,&C7,7s,&C3,@,&C8,F,&D1,@,5.8,&C9,F,&D2,&F7,&D3,@," "
1040 DATA Am,5f,&C8,7s,&C3,@,&C9,S,@,6.05,&CA,S,@," "
1050 DATA Cm,5f,&C8,6d7s,&C3,@,&CA,D,&D3,@,,,@," "
1060 DATA Bk,,@,,@,,,@," "
1070 DATA Cf,,@,,@,,,@," "
10000 QMI=100:QMA=1070:R6=QMI
10020 CLS :PRINT QMS$:Q4$=""
10030 LOCATE 4,2:PRINT "Atomic Symbol= ";:INPUT Q4$
10040 IF Q4$="" THEN R6=QMI:GOTO 10170 ELSE QLN=LEN Q4$
10050 IF QLN=1 THEN 10090 ELSE IF QLN>=3 THEN 10150
10060 QK1$=LEFT$ (Q4$,1):QK2$=RIGHT$ (Q4$,1)
10070 IF QK2$<"A" OR QK2$>"Z" THEN 10090 ELSE Q4$=QK1$+CHR$ (ASC QK2$+&20)
10080 '
10090 R6=0
10100 FOR QI=QMI TO QMA STEP 10
10110 RESTORE QI:READ Q8$
10120 IF Q4$=Q8THEN R6=QI:QI=QMA
10130 NEXT
10140 IF R6<>0 THEN 10170
10150 CLS :PRINT QMS$:LOCATE 11,3:PRINT "Symbol not found"
10160 GOSUB *REK:GOTO 10020
10170 CLS
10180 RESTORE R6:QD1$="":QD2$="":QD3$="":QD4$="":QD5$="":QD6$="":Q8$=""
10190 READ QD1$
10200 READ Q8$:IF Q8$="@" THEN 10240
10210 QCK$=LEFT$ (Q8$,1)
10220 IF QCK$="&" THEN QCK=VAL Q8$:Q8$=CHR$ QCK
10230 QD2$=QD2$+Q8$:GOTO 10200
10240 READ Q8$:IF Q8$="@" THEN 10280
10250 QCK$=LEFT$ (Q8$,1)
10260 IF QCK$="&" THEN QCK=VAL Q8$:Q8$=CHR$ QCK
10270 QD3$=QD3$+Q8$:GOTO 10240
10280 READ QD4$
10290 READ Q8$:IF Q8$="@" THEN 10330
10300 QCK$=LEFT$ (Q8$,1)
10310 IF QCK$="&" THEN QCK=VAL Q8$:Q8$=CHR$ QCK
10320 QD5$=QD5$+Q8$:GOTO 10290
10330 READ QD6$
10340 IF R6<120 THEN QJ=1:GOTO 10420
10350 IF R6<200 THEN QJ=2:GOTO 10420
10360 IF R6<280 THEN QJ=3:GOTO 10420
10370 IF R6<460 THEN QJ=4:GOTO 10420
10380 IF R6<640 THEN QJ=5:GOTO 10420
10390 IF R6<880 THEN QJ=6:GOTO 10420
10400 IF R6<960 THEN QJ=7:GOTO 10420
10410 IF R6<1060 THEN QJ=8 ELSE QJ=1
10420 QNO=(R6-100)/10+1:QNO$=STR$ QNO:QNO$=MID$ (QNO$,2,3):LOCATE 0,0
10430 IF QNO<10 PRINT " ";
10440 QLT=LEN QD1$:QWK$=LEFT$ (QCL$,4-QLT)
10450 PRINT QNO$;":";QD1$;QWK$:LOCATE 7,0
10460 ON QJ GOSUB 10680,10690,10700,10710,10720,10730,10740,10750
10470 QLT=LEN (QD2$+QDX$):QWK$=LEFT$ (QCL$,33-QLT)
10480 PRINT QDX$;QD2$;QWK$:LOCATE 7,1
10490 PRINT "ground state | ionization voltage"
10500 QLT=LEN QD3$:QWK$=LEFT$ (QCL$,8-QLT)
10510 LOCATE 2,2:PRINT "atomic:   ";QD3$;QWK$:LOCATE 20,2
10520 QLT=LEN QD4$:QWK$=LEFT$ (QCL$,7-QLT)
10530 PRINT "| 1st:   ";QD4$;QWK$:LOCATE 36,2:PRINT "V"
10540 QLT=LEN QD5$:QWK$=LEFT$ (QCL$,8-QLT)
10550 LOCATE 2,3:PRINT "ionic :   ";QD5$;QWK$:LOCATE 20,3
10560 QLT=LEN QD6$:QWK$=LEFT$ (QCL$,7-QLT)
10570 PRINT "| 2nd:   ";QD6$;QWK$:LOCATE 36,3:PRINT "V"
10580 Q4$=INKEY$ &1:P1=ASC Q4$
10590 IF P1=4 THEN R6=R6-10:GOTO 10650
10600 IF P1=5 THEN R6=R6+10:GOTO 10650
10610 IF P1=14 THEN R6=R6+100:GOTO 10650
10620 IF P1=15 THEN R6=R6-100:GOTO 10650
10630 IF P1=13 THEN 10000
10640 GOTO 10580
10650 IF R6>QMA THEN R6=QMA
10660 IF R6<QMI THEN R6=QMI
10670 GOTO 10180
10680 QDX$="":RETURN
10690 QDX$="[He] ":RETURN
10700 QDX$="[Ne] ":RETURN
10710 QDX$="[Ar] ":RETURN
10720 QDX$="[Kr] ":RETURN
10730 QDX$="[Xe] ":RETURN
10740 QDX$="{[Xe]4f"+CHR$ &C2+CHR$ &C5+"5d"+CHR$ &C2+CHR$ &C1+"} ":RETURN
10750 QDX$="[Rn] ":RETURN

Generated by (c) Casio FX-850P/FX-880P Notepad 2.02

(c) by mani.becker@web.de - http://blog.manib.bplaced.net