110 REM PROGRAM #1 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 2055

2055 IF C = 6 THEN 2060 ELSE 2057

2057 IF C = -6 THEN 2060 ELSE 2600

2060 IF W = 0 THEN 2100 ELSE 2070

2070 IF W = 3 THEN 2100 ELSE 2080

2080 REM IF W = 6 THEN 2100 ELSE 2600

2090 IF W = 9 THEN 2100 ELSE 2600

2100 P = P + 1

2110 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