110 REM PROGRAM #2 TO TEST QUARK THEORY

120 REM ***************************************

130 REM DEFINE VARIABLES

140 REM H = NUMBER OF HEAVY PARTICLES

150 REM L = NUMBER OF LIGHT PARTICLES

160 REM N = TOTAL NUMBER OF ITERATIONS

170 REM HP = HEAVY POSITIVE PARTICLES

180 REM HN = HEAVY NEGATIVE PARTICLES

190 REM LP = LIGHT POSITIVE PARTICLES

200 REM LN = LIGHT NEGATIVE PARTICLES

210 REM MAT = MASS CANCELLATIONS (HEAVY TO LIGHT)

220 REM P = NUMBER OF PRINTS

230 REM W = MASS (3 = 1p, 0 = 1e)

240 REM C = CHARGE (3 = +e, -3 = -e)

990 REM ***************************************

1000 PRINT

1100 C = 0: N = 0

1150 FOR K = 7 TO 7

1200 FOR H = K - 1 TO K

1300 FOR L = K - 1 TO K

1400 FOR HP = 0 TO H

1410 HN = H - HP

1500 FOR LP = 0 TO L

1510 LN = L - LP

1520 C = HP - HN + LP - LN

1530 IF H > L THEN M = L ELSE M = H

1600 FOR MAT = 1 TO M

1610 W = H - MAT

1620 N = N + 1

1630 IF H = L THEN 2600

2000 IF C = 3 THEN 2060 ELSE 2050

2050 IF C = -3 THEN 2060 ELSE 2600

2055 REM IF C = 6 THEN 2060 ELSE 2057

2057 REM IF C = -6 THEN 2060 ELSE 2600

2060 IF W = 0 THEN 2100 ELSE 2070

2065 REM IF W = 2 THEN 2100 ELSE 2070

2070 IF W = 3 THEN 2100 ELSE 2600

2080 REM IF W = 6 THEN 2100 ELSE 2600

2090 REM IF W = 9 THEN 2100 ELSE 2600

2100 IF HP < LP THEN PPAIR = HP ELSE PPAIR = LP

2110 IF HN < LN THEN NPAIR = HN ELSE NPAIR = LN

2120 TEST = PPAIR + NPAIR - MAT

2130 IF TEST < 0 THEN 2600

2200 IF W = 0 THEN 2500 ELSE 2300

2300 IF L > H THEN 2600

2310 HPPAIR = HP - PPAIR

2320 HNPAIR = HN - NPAIR

2330 LPPAIR = LP - PPAIR

2340 LNPAIR = LN - NPAIR

2350 PNHPAIR = ABS(HPPAIR - HNPAIR)

2360 PNLPAIR = ABS(LPPAIR - LNPAIR)

2370 IF PNHPAIR = 1 THEN 2500 ELSE 2600

2380 IF PNLPAIR = 1 THEN 2500 ELSE 2600

2500 REM

2540 P = P + 1

2550 PRINT N; P; " H "; H; " HP "; HP; " HN "; HN; " L "; L; " LP "; LP; " LN "; LN; " C "; C; " MAT "; MAT; " W "; W

2600 NEXT MAT

2700 NEXT LP

2800 NEXT HP

2900 NEXT L

3000 NEXT H

3050 NEXT K

4000 END

Home Begin Preface Acknowledgements Contents Chapter 1 Chapter 2 Chapter 3 Chapter 4 Chapter 5 Chapter 6 Chapter 7 Chapter 8 Chapter 9 Chapter 10 Chapter 11 Chapter 12 Chapter 13 Chapter 14 Chapter 15 Chapter 16 Chapter 17 Chapter 18 Appendix A Appendix B1 Appendix B2 Appendix C1 Appendix C2 Appendix D Appendix E Appendix F Appendix G General References Future Books About the Front Cover About the Author Index