Running the program and sending data

Please use this simulator to run the program:

http://www.vavasour.ca/jeff/level1/simulator.html


this way:

1) Copy the program (shown immmediately under this post or alternatively at  http://programminge.blogspot.com/2010/10/program.html ) in the last post
2) Click "open program window" in the simulator
3) Paste the program into the text window
4) Click "OK"
5) After the READY prompt print "RUN" and press ENTER on your keyboard
6) In the left in green you will see a number followed by a comma followed by another number. This first number indicates the experiment number (1 - 3). The second number indicates the loop number within that experiment (1 - 10000).
7) You will see 4 chains (white, red, blue and pink) that represent the random chains and output of the program.
8) The experiment will take about 15 minutes to complete, please be patient!
9) When the experiment is complete please email: programminge@yahoo.com with the following data:

•              In the SUBJECT line put your CITY, COUNTRY e.g. London, England OR if in the states please say CITY, STATE e.g. Los Angeles, California
•              In the BODY put the 7 pieces of data shown to you after the experiment ends e.g. email "1300, 5, 1, 3851, 31, 53, 53"

10) We will do the rest and give regular updates on the results and statistics of the experiments

MANY THANKS FOR YOUR PARTICIPATION!

Any queries or comments please email programminge@yahoo.com

The program

The program for the experiment is below:

1 G=0
2 I=0
3 L=0
4 M=0
5 O=0
6 Q=0
7 R=0
15 FOR Z = 1 TO 3
16 CLS
17 X=0
18 Y=0
19 P=5
20 A=0
30 B=0
40 C=5
50 D=0
60 E=0
70 F=5
81 H=0
82 J=0
83 K=5
84 V=0
85 W=0
100 FOR N=1 TO 10000
400 IF P=1 THEN GOTO 10000
450 IF P=5 THEN X=RND(127)
460 IF P=2 THEN GOTO 11000
470 IF P=5 THEN Y=RND(47)
471 IF P=3 THEN GOTO 12000
472 IF P=4 THEN GOTO 13000
600 COLOUR 4
601 SET(X,Y)
603 LET P=RND(4)
620 IF K=1 THEN GOTO 29500
621 IF K=5 THEN H=RND(127)
623 IF K=2 THEN GOTO 29600
624 IF K=5 THEN J=RND(47)
625 IF K=3 THEN GOTO 29700
626 IF K=4 THEN GOTO 29800
627 COLOUR 13
628 SET(H,J)
630 LET K=RND(4)
4000 IF C=1 THEN GOTO 20000
4500 IF C=5 THEN A=RND(127)
4600 IF C=2 THEN GOTO 21000
4700 IF C=5 THEN B=RND(47)
4710 IF C=3 THEN GOTO 22000
4720 IF C=4 THEN GOTO 23000
6000 COLOUR 1
7000 SET(A,B)
7600 LET C=RND(4)
7610 IF F=1 THEN GOTO 25000
7620 IF F=5 THEN D=RND(127)
7625 IF F=2 THEN GOTO 26000
7630 IF F=5 THEN E=RND(47)
7640 IF F=3 THEN GOTO 27000
7650 IF F=4 THEN GOTO 28000
7670 COLOUR 15
7680 SET(D,E)
7690 LET F=RND(4)
7700 IF X = A LET V = V + 1
7701 IF X = A THEN GOTO 29850
7710 IF X = D LET V = V + 1
7711 IF X = D THEN GOTO 29852
7720 IF X = H LET V = V + 1
7721 IF X = H THEN GOTO 29854
7730 IF A = D LET V = V + 1
7731 IF A = D THEN GOTO 29856
7740 IF A = H LET V = V + 1
7741 IF A = H THEN GOTO 29858
7750 IF D = H LET V = V + 1
7751 IF D = H THEN GOTO 29860
7760 IF Y = B LET W = W + 1
7770 IF Y = E LET W = W + 1
7780 IF Y = J LET W = W + 1
7790 IF B = E LET W = W + 1
7795 IF B = J LET W = W + 1
7799 IF E = J LET W = W + 1
7800 IF V = 1 LET G = G + 1
7810 IF V = 2 LET I = I + 1
7830 IF V > 2 LET L = L + 1
7900 IF W = 1 LET M = M + 1
7910 IF W = 2 LET O = O + 1
7930 IF W > 2 LET Q = Q + 1
7931 COLOUR 2
7934 PRINT Z;
7935 PRINT ",";
7936 PRINT N
7940 V = 0
7950 W = 0
8000 NEXT N
8002 NEXT Z
8005 PRINT "RESULTS"
8009 PRINT "2X: ",
8010 PRINT G
8011 PRINT "3X: ",
8020 PRINT I
8021 PRINT "4X: ",
8030 PRINT L
8031 PRINT "2Y: ",
8040 PRINT M
8041 PRINT "3Y: ",
8050 PRINT O
8051 PRINT "4Y: ",
8053 PRINT Q
8054 PRINT "EXACT MATCHES: ",
8060 PRINT R
8070 PRINT "PLEASE EMAIL RESULTS TO PROGRAMMINGE@YAHOO.COM"
9000 END
9200 GOTO 15
10000 X=X+1
10005 IF X>127 THEN X=127
10010 Y=Y
10020 GOTO 600
11000 Y=Y+1
11005 IF Y>47 THEN Y=47
11010 X=X
11020 GOTO 600
12000 X=X-1
12005 IF X<0 THEN X=0
12010 Y=Y
12020 GOTO 600
13000 Y=Y-1
13005 IF Y<0 THEN Y=0
13010 X=X
13020 GOTO 600
20000 A=A+1
20005 IF A>127 THEN A=127
20010 B=B
20020 GOTO 6000
21000 B=B+1
21005 IF B>47 THEN B=47
21010 A=A
21020 GOTO 6000
22000 A=A-1
22005 IF A<0 THEN A=0
22010 B=B
22020 GOTO 6000
23000 B=B-1
23005 IF B<0 THEN B=0
23010 A=A
23020 GOTO 6000
25000 D=D+1
25005 IF D>127 THEN D=127
25010 E=E
25020 GOTO 7670
26000 E=E+1
26005 IF E>47 THEN E=47
26010 D=D
26020 GOTO 7670
27000 D=D-1
27005 IF D<0 THEN D=0
27010 E=E
27020 GOTO 7670
28000 E=E-1
28005 IF E<0 THEN E=0
28010 D=D
28020 GOTO 7670
29500 H=H+1
29505 IF H>127 THEN H=127
29510 J=J
29520 GOTO 627
29600 J=J+1
29605 IF J>47 THEN J=47
29610 H=H
29620 GOTO 627
29700 H=H-1
29705 IF H<0 THEN H=0
29710 J=J
29720 GOTO 627
29800 J=J-1
29805 IF J<0 THEN J=0
29810 H=H
29820 GOTO 627
29850 IF Y = B LET R = R + 1
29851 GOTO 7710
29852 IF Y = E LET R = R + 1
29853 GOTO 7720
29854 IF Y = J LET R = R + 1
29855 GOTO 7730
29856 IF B = E LET R = R + 1
29857 GOTO 7740
29858 IF B = J LET R = R + 1
29859 GOTO 7750
29860 IF E = J LET R = R + 1
29861 GOTO 7760
Please click here > http://programminge.blogspot.com/2010/10/running-program-and-sending-data.html to learn how to run the program and send us the data you gain from it.

Program description

Language: BASIC

Description: The program initially generates 4 random pairs of X,Y coordinates all within a 47 x 147 grid. The program runs through 10,000 loops where the X,Y coordinate can move up, down, left, right, or remain where it is. This creates 4 chains that are free to move around the grid and interact randomly, but always dependent of the last place the coordinate was. The process is repeated 3 times generating 30,000 X,Y coordinates per chain and in total 120,000 X,Y coordinates. In order to be statistically significant there are 4 chains of data within the same experiment and the experiment is ran 3 times which is the minimum required. Should there be any difference at this level, we will change the numbers accordingly to be more stringent.

Data capture: The program records the amounts of times:

1) 2 X coordinates are identical within the same loop (i.e. 2 chains are on the same X plane)
2) 3 X coordinates are identical within the same loop (i.e. 3 chains are on the same X plane)
3) 4 X coordinates are identical within the same loop (i.e. 4 chains are on the same X plane)
4) 2 Y coordinates are identical within the same loop (i.e. 2 chains are on the same Y plane)
5) 3 Y coordinates are identical within the same loop (i.e. 3 chains are on the same Y plane)
6) 4 Y coordinates are identical within the same loop (i.e. 4 chains are on the same Y plane)
7) X and Y are equal in at least 2 chains within the same loop (i.e.2+ chains interact at the same point in the same time)

Please click here > http://programminge.blogspot.com/2010/10/program.html to see the program itself

Introduction

International programming experiment is an experiment to see if computer programs run differently depending on where you run them in the world.

The hypothesis is that geographical location alters the way in which programs behave due to varying electromagnetic forces - and the subsequent effect on atomic behaviour.

The experiment is simple: run a simple BASIC program (that we have designed) that is based around random number generation and see if there is a statistical difference between countries in which the program is run.

Please click here> http://programminge.blogspot.com/2010/10/program-description.html to see a description of the program.