1 DEFDBL C, M, X-Z
PRINT "please wait...": os = 12: REM os=Off Set from screen top
pi = 4 * ATN(1): DIM na$(66), ma(66), li(66), cl(66), io(66), in(66),
st(66), dm$(66)
10 SCREEN 12: GOSUB 8888: t = 1
20 WIDTH 80, 25: CLS : RESTORE
PRINT "Particle.exe from NiceMike.com - (c) Copyright 2003
by Michael John Lake +"
PRINT
PRINT "Try to find patterns in the mass of sub-atomic particles."
PRINT
PRINT "1. Mass list"
PRINT "2. Graph of Mass x Mass"
PRINT "3. Graph adding mass=frequency"
PRINT "4. Oscilloscope mass"
PRINT "5. 'Life, the universe, everything...'"
PRINT "6. Mass list #2."
PRINT "7. Loop de loop (:->) "
PRINT "0. Exit"
PRINT
50 PRINT "Enter function number from above "; : INPUT a: WIDTH 80,
50: CLS
IF a = 1 THEN 90
IF a = 2 THEN 100
IF a = 3 THEN 200
IF a = 4 THEN 400
IF a = 5 THEN 500
IF a = 6 THEN 600
IF a = 7 THEN 700
END
90 FOR n = 1 TO 43: m = ma(n): o = m
mv = SQR(1 - 1 / m ^ 2)
mf = SQR((1 + mv) / (1 - mv))
PRINT na$(n), m, 1 / ((1 - mv) * m) / 2
NEXT
98 INPUT "Press <Enter> to continue", a$: GOTO 20
99 REM ---------------------
100 SCREEN 12: GOSUB 8888: WIDTH 80, 60
120 FOR n = 1 TO 57
130 m = ma(n) / 4
140 LINE (m, 0 + os)-(m, 8 + os), cl(n)
150 FOR z = 1 TO 16: FOR zz = z + 1 TO 137
t = 1 / z ^ 2 - 1 / zz ^ 2: LINE (m * t, n * 4 + 10 + os)-(m * t, n
* 4 + 13 + os), z
NEXT: NEXT
160 NEXT
198 INPUT "Press <Enter> to continue", a$: GOTO 20
199 REM +++++++++++++++++++++++++++++++++++++++++
200 SCREEN 12: GOSUB 8888: WIDTH 80, 60
220 FOR x = 0 TO 640 STEP .05: yt = 0
FOR n = 16 TO 26
y = SIN((x * 16384 * (1 / n) ^ 2) / (160 * 4) * pi) * 10
yt = yt + y
CIRCLE (x, y * 2 + 12 * n + 70 + os), .5, 2
NEXT
REM yt = ABS(yt)
CIRCLE (x, yt * 2 + 100 + os), .5, 14
NEXT
298 INPUT "Press <Enter> to continue", a$: GOTO 20
299 REM
400 SCREEN 12: GOSUB 8888: WIDTH 80, 60: s = 5
FOR a = 1 TO 7: b = a + 1
410 FOR e = 0 TO 2 * (a ^ 2 * b ^ 2) STEP 1 / 8
x = SIN((1 / a ^ 2) * e * pi) * a ^ 2 * s
y = SIN((1 / b ^ 2) * e * pi) * b ^ 2 * s
REM y = SIN((1 / a ^ 2 - 1 / b ^ 2) * e * pi) * a ^ 2 * s * 2
420 CIRCLE (y + 320, x + 240 + os), .5, a
430 NEXT: NEXT
498 INPUT "Press <Enter> to continue", a$: GOTO 20
499 REM -i-wish-that-something-with-real-merit-would-show-up-
500 SCREEN 12: GOSUB 8888: WIDTH 80, 60
FOR c = 1 TO 1 STEP -1
510 FOR e = 0 TO 8 ^ 2 * 8 ^ 2 * 2 STEP pi: x = 0: y = 0
FOR n = 3 TO 4
x = x + SIN((ma(n)) * e * pi) * 10 ^ 2 * 1.25
y = y + ABS(SIN((ma(n)) * e * pi) * 10 ^ 2 * 1.25)
NEXT
520 CIRCLE (x * 1.8 + 320, y * 1.8 + 1 + os), .5, 15
NEXT: NEXT
598 INPUT "Press <Enter> to continue", a$: GOTO 20
599 REM ..........
600 SCREEN 12: GOSUB 8888: WIDTH 80, 60
610 FOR n = 1 TO 44: m = ma(n): PRINT na$(n),
620 FOR o = 1 TO 100
630 IF m / (ma(11) * (1 / o ^ 2 - 1 / (o + 1) ^ 2)) <
1 THEN 640
m = m - (ma(11) * (1 / o ^ 2 - 1 / (o + 1) ^ 2)): PRINT o; :
GOTO 630
640 NEXT: PRINT
650 NEXT
698 INPUT "Press <Enter> to continue", a$: GOTO 20
699 REM 1-207.4-264-273-1836------------------------------
700 SCREEN 12: GOSUB 8888: WIDTH 80, 60
FOR o = 2 TO 30: m = ma(o)
710 FOR n = 0 TO 1 STEP 1 / SQR(m)
720 x = SIN(n * pi * 2) * 100: y = SIN(n * pi * 2 + pi / 2) * 100
730 CIRCLE (x + n * 100 * pi * 2 * (m / ma(18)), y * 2 + 240 + os),
.5, cl(o)
740 NEXT: NEXT
798 INPUT "Press <Enter> to continue", a$: GOTO 20
8886 END
8887 REM ________________________________________________________________
8888 REM
8890 FOR n = 1 TO 57: READ na$(n), ma(n), li(n), cl(n), io(n), in(n),
st(n), dm$(n)
8892 ma(n) = ma(n) / .511: NEXT: RETURN
10004 REM classes: 1)electron spin1/2; 2)meson w/S=0; 3)meson w/S=+-1
10005 REM 4)baryon w/I=1/2,S=0; 5)baryon w/I=3/2,S=0; 6)baryon w/I=0,S=-1;10)weak
10006 REM 7)baryon w/I=1,S=-1; 8)baryon w/I=1/2,S=-2; 9)baryon w/I=0,S=-3;11)?
10007 REM note: life in sec./(-)=width in MeV, iso.=isotopic, in.=intrinsic
10008 REM name, mass MeV, life/-width, class, iso.spin, in.spin, strange,
decay mo.
10010 DATA e, .511, 9e32, 1, 0,
.5, 0,
10012 DATA muon,106, 2.2e-6, 1, 0, .5,
0,
10020 DATA pi0, 134.96, 8.4e-17,2,-1, -0.1, 0,yy
10030 DATA pi+-,139.57, 2.60e-8,2,-1, -0.1, 0,uv
11040 DATA K+-, 493.67, 1.24e-8,3, .5, -0.1, 1,uv pipi0
11050 DATA Ks0, 497.67, 8.9e-11,3, .5, -0.1, 1,pi+pi- pi0pi0
11060 ' DATA Kl0, 497.67, 5.2e-8, 3, .5, -0.1, 1,piev piuv pi0pi0pi0
pi+pi-pi0
11070 DATA n, 549, -.0026, 2,+0.1,-0.1,
0,yy pi0pi0pi0 pi+pi-pi0
11080 DATA p, 770, -146,
2,+1, -1, 0,pipi
11090 DATA w, 784, -10,
2,-0.1,-1, 0,pi+pi-pi0
11100 DATA K*892,892, -50, 3, .5, -1,
1,Kpi
11110 DATA P, 938.28, 9e32, 4, .5, +.5,
0,
11120 DATA N, 939.57, 9e32, 4, .5, +.5,
0,
11130 DATA n', 958, -2,
2,+0.1,-0.1, 0,npipi pi+pi-y
11135 DATA S, 975, -999,
11,0,0,0,?
11140 DATA 0, 1019, -4.4, 2,-0.1,-1,
0,K+K- Kl0Ks0 pi+pi-pi0
11150 DATA LAMBDA,1115.6,2.5e-10,6,0, +.5, -1,Npi
11160 DATA SIGMA+,1189.36,.8e-10,7,1, +.5, -1,Npi
11170 DATA SIGMA0,1192.46,1e-14,7, 1, +.5, -1,LAMBDAy
11180 DATA SIGMA-,1197.34,1.48e-10,7,1,+.5, -1,Npi
11190 DATA DEL1236-,1230,-110, 5, 1.5,+1.5, 0,Npi
11191 DATA del1236*,1231,-110, 5, 1.5,+1.5, 0,?
11192 DATA del1236+,1232,-110, 5, 1.5,+1.5, 0,?
11193 DATA del1236++,1234,-110, 5, 1.5,+1.5, 0,?
11200 DATA B, 1237, -120, 2,+1,
+1, 0,wpi
11210 DATA f, 1270, -163, 2,+0.1,+2,
0,pipi
11212 DATA D, 1285, -999, 2,
0, 0, 0, ?
11220 DATA A2, 1310, -100, 2,-1,
+2, 0,ppi npi
11230 DATA XI0, 1314.9, 3e-10, 8, .5, +.5, -2,LAMBDApi
11240 DATA XI-, 1321.3, 1.66e-10,8,.5, +.5, -2,LAMBDApi
11250 DATA SIG1385,1383,-34, 7, 1, +1.5,-1,LAMBDApi
11255 DATA sig1387,1387,-34, 7, 1, +1.5,-1,?
11260 DATA LAM'1405,1405,-40, 6, 0, -.5, -1,SIGMApi
11270 DATA K*1420,1421, -100, 3, .5, +2, 1,Kpi
K*pi
11280 REM DATA N'(1470,1470,-300, 4, .5, +.5, 0,Npi
Npipi
11290 REM DATA N'(1520,1510,-105, 4, .5, -1.5, 0,Npi Npipi
11300 DATA f', 1516, -46, 2,+0.1,+2,
0,KK
11310 DATA LAM'1520,1518,-16, 6, 0, -1.5,-1,NK_ SIGMApi
11320 DATA XI1530,1531, -9, 8, .5, +1.5,-2,XIpi
11330 DATA XI1530-,1535,-16, 8, .5, +1.5,-2,XIpi
11340 DATA p', 1600, -500, 2,+1,
-1, 0,4pi
11350 DATA 0'1675,1664, -141, 2,-0.1, 3, 0,ppi
11360 DATA OHM-,1672.5, 1.3e-10,9, 0, +1.5,-3,XIpi LAMBDAK-
11370 DATA g, 1680, -160, 2,+1,
-3, 0,2pi 4pi
11380 REM DATA N'(1688,1690,-180, 4, .5, +2.5, 0,Npi Npipi
11390 DATA DEL1650,1695,-200, 5, 1.5,-.5, 0,Npipi
Npi
11400 DATA tau lepton,1784,-999,1, 0, .5, 0,group1?
11401 DATA D0, 1865, -999, 2, 0,
0, 0,?
11402 DATA D+, 1869, -999, 2, 0,
0, 0,?
11403 DATA F+, 1970, -999, 2, 0,
0, 0,?
11404 DATA D*, 2010, -999, 2, 0,
0, 0,?
11405 DATA lambdaC,2282,-999, 6, 0, 0,
0,?
11406 DATA nC, 2980, -999, 2, 0,
0, 0,?
11407 DATA psi, 3100, -9999, 2, 0, 0,
0,?
11408 DATA chi, 3415, -999, 2, 0,
0, 0,?
11409 DATA psi3700,3700,-999, 2, 0, 0,
0,?
11411 DATA B+, 5271, -999, 2, 0,
0, 0,?
11412 DATA B0, 5274, -999, 2, 0,
0, 0,?
11413 DATA upsilon,9460,-999, 2, 0, 0,
0,?
11420 DATA w+-, 81000, -999, 10, 0, 1,0,Higgs
11430 DATA Z0(w0),93000,-999, 10, 0, 1,0,?
