This is a q-basic program that shows two particles
that attract each other, two that repel each
other, and one of each, and how they effect each
other.
Let me know if you have any questions.

Gerald L. O'Barr

To make this program wrok, load it into
q-basic, remove all these introductions, and
be sure that each line is combined into one
line before it is ran.

******************
10 DIM S(2, 9, 9): DIM A(100, 4): DIM B(100, 4)
20 GOTO 8000

100 AXL = 9999: AXR = 9999
110 FOR I = 1 TO 4
120 IF FL(I, 4) AXL THEN AXL = FL(I, 4): LL = I
130 IF FR(I, 4) AXR THEN AXR = FR(I, 4): RR = I
140 NEXT
142 FOR I = 1 TO NNT: xx = SIN(I): NEXT
150 IF AXL AXR THEN 500

190 TH = (FR(RR, 3) * FR(RR, 4) - VR * TR + PR - FR(RR, 5)) / (FR(RR,
3) - VR)
191 C1 = C6: IF MR 600 THEN C1 = C3
192 IF MR = MR0 THEN C1 = C7: IF MR 600 THEN C1 = C4
193 IF MR MR0 THEN C1 = C8: IF MR 600 THEN C1 = C5
195 LINE (PR, TR)-(PR + (TH - TR) * VR, TH), C1
196 IF NB 99 THEN 198
197 B(NB, 2) = VR: B(NB, 3) = TR
198 PR = PR + (TH - TR) * VR: TR = TH: NB = NB + 1
200 M1 = FR(RR, 2): V1 = FR(RR, 3)
202 LINE (PR, TR)-(PR + K3, TR), C1
203 C2 = C3: IF M1 = M THEN C2 = C4
204 LINE (GE - K2, TH)-(GE, TH), C2
205 I = 1: IF MR 600 THEN I = 2
210 J = (M1 - M) / d + 5: K = (MR - MR0) / d + 5: S = S(I, J, K) * d
220 V = (M1 * V1 + MR * VR - (V1 - VR) * SQR(M1 * MR * (M1 - S) / (MR
+ S)))
225 V = V / (M1 + MR)
230 VV1 = (M1 * V1 + MR * VR + (V1 - VR) * SQR(M1 * MR * (MR + S) /
(M1 - S)))
235 VV1 = VV1 / (M1 + MR)
240 MR = MR + S: VR = V
260 FR(RR, 4) = FR(RR, 4) + 8 * T: FR(RR, 1) = FR(RR, 1) + 1
270 M1 = M1 - S: V1 = VV1
275 C1 = C3: IF ML 600 THEN C1 = C6
277 IF ML = ML0 THEN C1 = C4: IF ML 600 THEN C1 = C7
280 IF ML ML0 THEN C1 = C5: IF ML 600 THEN C1 = C8
285 TH = (V1 * TR - VL * TL + PL - PR) / (V1 - VL)
290 LINE (PL, TL)-(PL + (TH - TL) * VL, TH), C1
292 IF NA 99 THEN GOTO 300
295 A(NA, 2) = VL: A(NA, 3) = TL
300 PL = PL + (TH - TL) * VL: TL = TH: NA = NA + 1
302 LINE (PL, TL)-(PL + K3, TL), C1
305 I = 1: IF ML 600 THEN I = 2
310 J = (M1 - M) / d + 5: K = (ML - ML0) / d + 5: S = S(I, J, K) * d
320 V = (M1 * V1 + ML * VL - (V1 - VL) * SQR(M1 * ML * (M1 - S) / (ML
+ S)))
325 V = V / (M1 + ML)
340 ML = ML + S: VL = V:
345 IF TL TE THEN 1830
350 GOTO 100


500 TH = (FL(LL, 3) * FL(LL, 4) - VL * TL + PL - FL(LL, 5)) / (FL(LL,
3) - VL)
501 C1 = C3: IF ML 600 THEN C1 = C6
502 IF ML = ML0 THEN C1 = C4: IF ML 600 THEN C1 = C7
503 IF ML ML0 THEN C1 = C5: IF ML 600 THEN C1 = C8
505 LINE (PL, TL)-(PL + (TH - TL) * VL, TH), C1
507 IF NA 99 GOTO 515
510 A(NA, 2) = VL: A(NA, 3) = TL:
515 PL = PL + (TH - TL) * VL: TL = TH: NA = NA + 1
517 LINE (PL, TL)-(PL - K3, TL), C1
520 M1 = FL(LL, 2): V1 = FL(LL, 3)
523 C2 = C3: IF M1 = M THEN C2 = C4
524 LINE (GS, TH)-(GS + K2, TH), C2
525 I = 1: IF ML 600 THEN I = 2
530 J = (M1 - M) / d + 5: K = (ML - ML0) / d + 5: S = S(I, J, K) * d
535 V = (M1 * V1 + ML * VL - (V1 - VL) * SQR(M1 * ML * (M1 - S) / (ML
+ S)))
540 V = V / (M1 + ML)
545 VV1 = (M1 * V1 + ML * VL + (V1 - VL) * SQR(M1 * ML * (ML + S) /
(M1 - S)))
550 VV1 = VV1 / (M1 + ML)
555 ML = ML + S: VL = V
560 FL(LL, 4) = FL(LL, 4) + 8 * T: FL(LL, 1) = FL(LL, 1) + 1
565 M1 = M1 - S: V1 = VV1
575 C1 = C6: IF MR 600 THEN C1 = C3
577 IF MR = MR0 THEN C1 = C7: IF MR 600 THEN C1 = C4
580 IF MR MR0 THEN C1 = C8: IF MR 600 THEN C1 = C5
585 TH = (V1 * TL - VR * TR + PR - PL) / (V1 - VR)
590 LINE (PR, TR)-(PR + (TH - TR) * VR, TH), C1
595 IF NB 99 THEN GOTO 602
600 B(NB, 2) = VR: B(NB, 3) = TR
602 PR = PR + (TH - TR) * VR: TR = TH: NB = NB + 1
603 LINE (PR, TR)-(PR - K3, TR), C1
605 I = 1: IF MR 600 THEN I = 2
610 J = (M1 - M) / d + 5: K = (MR - MR0) / d + 5: S = S(I, J, K) * d
620 V = (M1 * V1 + MR * VR - (V1 - VR) * SQR(M1 * MR * (M1 - S) / (MR
+ S)))
625 V = V / (M1 + MR)
640 MR = MR + S: VR = V:
645 IF TR TE THEN 1830
650 GOTO 100

1830 IF A(88, 3) * B(88, 3) = 0 THEN 2000
1840 AL = (A(88, 2) - A(80, 2)) / (A(88, 3) - A(80, 3))
1850 AR = (B(88, 2) - B(80, 2)) / (B(88, 3) - B(80, 3))
2000 PRINT "FIGURE "; F1; ". "; N$; " HIT ENTER TO CONTINUE"
2010 IF A(88, 3) * B(88, 3) = 0 THEN 2040
2030 PRINT "LEFT BODY ACCEL. = "; AL; " RIGHT BODY ACCEL. = "; AR
2040 PRINT "ML="; ML0; " VL="; VL0; " MR="; MR0; " VR="; VR0;
2045 PRINT " LB ="; GS; " RB ="; GE; " TS = "; TS; " TE = "; TE;
2047 INPUT "", A
2050 IF A = 1 THEN 10
2090 PRINT " d = "; d; ". ENTER 1 FOR A NEW RUN, 2 to stop!"
2110 PRINT "HIT ENTER KEY TO RETURN TO ORIGINAL INFORMATION. ";
2115 INPUT "", A
2117 IF A = 2 THEN END
2120 IF A 0 THEN 2050
2130 GOTO 2000

8000 SCREEN 0: PRINT : PRINT :
8005 CLS : PRINT : PRINT : PRINT " Welcome to O'Barr's At Program"
8006 PRINT : N$ = "O'Barr 4.0, 19 June 2004."
8007 PRINT " Version: "; N$
8010 KEY OFF: d$ = CHR$(27): PRINT : PRINT
8015 PRINT " Input 2 for FIGURE 2: Two 800 bodies, attraction
(gravity like)."
8020 PRINT " Input 3 for FIGURE 3: Two 400 bodies, repulsion."
8025 PRINT " Input 4 for FIGURE 4: 400 body chasing 800 body,
translation."
8026 PRINT
8030 PRINT : INPUT " CHOOSE FIGURE, Input 2, 3 or 4: ", F1
8032 PRINT
8035 IF F1 = 2 THEN ML = 800: VL = 3.6: PL = 1990: MR = 800:
8036 IF F1 = 2 THEN VR = -3.6: PR = 2010: GOTO 8055
8040 IF F1 = 3 THEN ML = 400: VL = -8.3: PL = 1949: MR = 400:
8041 IF F1 = 3 THEN VR = 8.3: PR = 2050: GOTO 8055
8045 IF F1 = 4 THEN ML = 400: VL = 7: PL = 2025: MR = 800:
8047 IF F1 = 4 THEN VR = 4: PR = 2050: GOTO 8055
8048 GOTO 8030

8055 PRINT : NA = 1: NB = 1
8057 PRINT " To control hit indicators, field entry points, or ":
8060 PRINT "time control functions to observe actions, enter 1.";
8061 PRINT " Or just hit RETURN to skip these controls. "; :
8062 INPUT " "; I: IF I = 1 THEN 8067
8065 GOTO 8125
8067 PRINT :
8070 INPUT "Time control function, 1 to 500, fast to slower:"; NNT
8072 INPUT "Field entry points indications, 0 to 2:"; K2
8075 INPUT "Indication of all hits, 0 to 2:"; K3

8125 M = 100: V0 = 100000!: T = .125: LB = 0: RB = 4000: C3 = 3:
8130 C4 = 12: C5 = 5: C6 = 14: C7 = 10: C8 = 1
8135 d = 1

8140 FL(1, 2) = M: FL(2, 2) = M: FL(3, 2) = M + d: FL(4, 2) = M - d
8150 FR(1, 2) = M: FR(2, 2) = M: FR(3, 2) = M + d: FR(4, 2) = M - d
8155 FL(1, 4) = T: FL(2, 4) = T * 2: FL(3, 4) = T * 5: FL(4, 4) = T *
6
8160 FOR I = 1 TO 4
8170 FL(I, 5) = LB: FR(I, 5) = RB
8180 FR(I, 4) = FL(I, 4) + T * 2
8190 FL(I, 1) = 1: FR(I, 1) = 1
8200 FL(I, 3) = V0 * SQR(M / FL(I, 2))
8210 FR(I, 3) = -V0 * SQR(M / FR(I, 2))
8220 NEXT
8250 FOR I = 1 TO 9
8260 S(1, 4, I) = -1: IF I 4 THEN S(1, 4, I) = 0
8270 S(1, 5, I) = 0
8280 S(1, 6, I) = 1: IF I 6 THEN S(1, 6, I) = 0
8290 S(2, 4, I) = 0
8300 S(2, 5, I) = 1: IF I 4 THEN S(2, 5, I) = -1
8310 S(2, 6, I) = 0
8320 NEXT

8350 ML0 = ML: VL0 = VL: PL0 = PL: TL = 0
8380 MR0 = MR: VR0 = VR: PR0 = PR: TR = 0
8540 CLS : PRINT
8550 PRINT : PRINT N$; ":"; " THE PARTICLES IN FIGURE"; F1; "A":
PRINT
8560 PRINT " (1) (2) (3) (4)
(5)"
8570 PRINT " N MASS VELOCITY TIME
POSITION "
8580 PRINT :
8590 PRINT " LEFT ";
8600 FOR I = 1 TO 5: PRINT USING "########.##"; FL(1, I); : NEXT:
PRINT :
8610 PRINT " FIELD ";
8620 FOR I = 1 TO 5: PRINT USING "########.##"; FL(2, I); : NEXT:
PRINT :
8630 PRINT " ATS ";
8640 FOR I = 1 TO 5: PRINT USING "########.##"; FL(3, I); : NEXT:
PRINT :
8650 PRINT " ";
8660 FOR I = 1 TO 5: PRINT USING "########.##"; FL(4, I); : NEXT:
PRINT :
8670 PRINT :
8680 PRINT " LEFT BODY 1.00"; : PRINT USING "########.##"; ML0;
VL0; TL; PL0
8690 PRINT " RIGHT BODY 1.00"; : PRINT USING "########.##"; MR0;
VR0; TR; PR0
8700 PRINT : PRINT " RIGHT ";
8710 FOR I = 1 TO 5: PRINT USING "########.##"; FR(1, I); : NEXT:
PRINT :
8720 PRINT " FIELD ";
8730 FOR I = 1 TO 5: PRINT USING "########.##"; FR(2, I); : NEXT:
PRINT :
8740 PRINT " ATS ";
8750 FOR I = 1 TO 5: PRINT USING "########.##"; FR(3, I); : NEXT:
PRINT :
8760 PRINT " ";
8770 FOR I = 1 TO 5: PRINT USING "########.##"; FR(4, I); : NEXT:
PRINT :
8820 PRINT : PRINT : INPUT "HIT ENTER TO CONTINUE", I

8900 CLS : PRINT : PRINT : PRINT
8905 PRINT " THE EXCHANGE OF MASS BETWEEN PARTICLES, TIMES d, A":
PRINT
8906 PRINT : PRINT " FOR ALL 400 MASS PARTICLES, or WHERE M 600."
8910 PRINT : PRINT "S(1,9,9) 2 3 4 5 6 7 8"
8930 PRINT " M-3d M-2d M-d M M+d M+2d M+3d"
8940 PRINT "6 m+d "; : FOR I = 2 TO 8: PRINT S(1, 6, I); " "; :
NEXT: PRINT :
8950 PRINT "5 m "; : FOR I = 2 TO 8: PRINT S(1, 5, I); " "; :
NEXT: PRINT :
8960 PRINT "4 m-d "; : FOR I = 2 TO 8: PRINT S(1, 4, I); " "; :
NEXT: PRINT :
8965 PRINT : PRINT : PRINT " FOR ALL 800 MASS PARTICLES, or WHERE M
600."
8970 PRINT : PRINT "S(2,9,9) 2 3 4 5 6 7 8"
8980 PRINT " M-3d M-2d M-d M M+d M+2d M+3d"
8990 PRINT "6 m+d "; : FOR I = 2 TO 8: PRINT S(2, 6, I); " "; :
NEXT: PRINT :
9000 PRINT "5 m "; : FOR I = 2 TO 8: PRINT S(2, 5, I); " "; :
NEXT: PRINT :
9010 PRINT "4 m-d "; : FOR I = 2 TO 8: PRINT S(2, 4, I); " "; :
NEXT: PRINT :
9020 PRINT " d*d*V0/(ML0*M*4) = "; : PRINT d * d * V0 / (ML0 * M * 4)
9030 PRINT : INPUT "HIT RETURN WHEN READY TO CONTINUE", I

9290 TS = 0: TE = 25: GS = 1940: GE = 2060:
9300 TS1 = 0: TSD = 5: GS1 = 1940: GSD = 40

9380 SCREEN 9: WINDOW (GS, TS)-(GE, TE)
9390 VIEW (0, 65)-(639, 349): LINE (GS, TE)-(GE, TS), 7, B
9392 FOR I = 0 TO (TE - TS) / TSD: LINE (GS, TS1 + I * TSD)-(GE, TS1 +
I * TSD): NEXT
9394 FOR I = 0 TO (GE - GS) / GSD: LINE (GS1 + I * GSD, TE)-(GS1 + I *
GSD, TS): NEXT

9400 LINE (GS, .75 * TSD)-(GS + K2 + GSD / 10, .75 * TSD), C5
9410 LINE (GS, .5 * TSD)-(GS + K2 + GSD / 10, .5 * TSD), C4
9420 LINE (GS, .25 * TSD)-(GS + K2 + GSD / 10, .25 * TSD), C3
9430 LINE (GE, .75 * TSD)-(GE - K2 - GSD / 10, .75 * TSD), C8
9440 LINE (GE, .5 * TSD)-(GE - K2 - GSD / 10, .5 * TSD), C7
9450 LINE (GE, .25 * TSD)-(GE - K2 - GSD / 10, .25 * TSD), C6
9500 VIEW PRINT 1 TO 3: GOTO 100

Q-basic At Program:

In
I have posted a demonstration of the At Theory.
This is a q-basic program that shows two particles
that attract each other, two that repel each
other, and one of each, and how they effect each
other.

This q-basic program shows three of the four
Figures used in one of the At Theories presented on
my home page. This program uses two 800 mass
particles in Figure 2 that shows attraction towards
each other. Figure 3 shows two 400 mass particles
that repel each other. And Figure 4 shows how an 800
and a 400 mass particle affect each other. These
masses, of 800 and 400, are purely arbitrary. Their
actual mass could be anything. These particles must
be as small as or smaller than quarks.
The means of having attraction or repelling is
dependent upon field particles that are entering in a
totally symmetrical way from the right and from the
left. These field particles have mass 99, 100, and
101. Again, their actual masses could be anything,
as small as gluons, etc. There is a set of 4 that
enters from each side for each 1 unit of time, two
100 masses, and one each of the 101 and 99, for each
set. Each particle initially has the identical
kinetic energy, that equivalent to the 100 mass field
particle with a velocity of 100,000 units. Again,
any and all values, at this point in the theory, are
purely arbitrary.
Their interaction with the 800 and 400 masses are
simple spalls. If a spall is the exact same mass as
the particle causing the spall, then no changes are
seen in any of the colliding particles, no change in
their velocities or in the direction of their
velocities. This assumes that the spall represents
the 'leaving' of the incoming field particle. The
only time there are any kinematics effects seen is
when the spall mass is different than the incoming
particle that collided. The effect due to this
difference in mass is non-linear. The computer
calculates all effects that occur, and keeps track of
where each particle goes as a function of time and
the interactions that occur.
If one observes, the field particles that are
coming in have an average mass of 100, with a
dispersion of +/-1 mass unit. When these field
particles interact with a particle in an 800 mass
range, then the dispersion generally goes to a
maximum, with most or all the particles being either
99 or 101 mass unit. When they interact with a
400 mass range particle, then their dispersion
generally reduced to nearly zero, where most or all
the field particles are just 100 mass units.
These changes in the dispersion in the field do
not generally affect the average mass of any 800 or
400 particle, or the average for the field particles
themselves. But they do result in net forces being
developed. And the net forces are found to be
exactly equal and opposite if and where the changes
in the dispersion, as a total between the two effects
being considered, return the overall dispersion to
the same as before the interactions began. These are
all important points in the theory!
The results, as seen in these figures, show very
definitely that these 400 and 800 particles are
constantly being hit back and forth, as each set of
field particles collide with them. But these back
and forth motions do end up with some net effect that
results in the over-all attractions or repulsion.
Therefore, these figures are showing much more than
just attractions and repulsions. These Figures are
also showing an effect that can be related to the
uncertainty principle found in QM. The particles in
the at theory appear to have a degree of uncertainty
in their exact mass, their exact positions, their
velocities, their momentum, and their energies.
These are all automatic pluses to this theory.
Please try to get this program to work on your
computer. You must load the program up on your
compiler. You must make sure that those lines of the
program that were too long to remain as one line are
joined together in the compiler. All the lines are
numbered to be sure you can figure all this out!
Please let me know if there are any troubles!
Please do not overlook the importance of what is
being observed. For example, no Newtonian like
interaction has ever produced attraction between two
objects, where perfect conservation of mass,
momentum, and kinetic energy exists. So what is
being seen here is a first! It is extremely
important, and is the first indication we have of
explaining forces such as gravity. And on top of
this, we have the QM effects automatically existing
along with these forces.


Thanks for reading.
Gerald L. O'Barr

P.S. If you run this program at a large enough scale
so that the jumping around of these particles are too
small to be seen, and all you see are the overall
effects, then these 'particles' would be 'seen' to be
as normal particles are seen, just smooth motions.
This is exactly as we know things to be as we cross
over between the QM world into our normal world. The
changing (increasing) of the mass of these particles
will also do the same thing, if the dispersions
remain constant, etc.