@@ HENON MAPPING IN BASIC7@ BY ROBERT A. KLAHNS@ 8350 AMIGO AVE. #7p@( NORTHRIDGE CA 91324@2 (818) 886-7065@<@F PLEASE FEEL FREE TO CONTACT ME TO@P REPORT BUGS OR TO GATHER@Z INFORMATION ON THE HENONAd SYSTEM OR THE KAM THEOREM.An?Ax THIS PROGRAM IS IN THE PUBLICMA DOMAIN.SAdA GOOD LUCK!jAA 5,1: I1 12:: IA"GO TO 40 COLUMN MODE!": 0,1A"DISPLAY PROGRAM INFORMATION ";: T$A (T$"N") (T$"") 230B (T$"Y") (T$"") 190(B 850BFALSE1:TRUE0:GRIDFALSE:A1.111:L1.2:R1.2:B1.2:T1.2:X00.098:Y00.061:DX00.04:DY.03:OB25:PC500:RE0:G$"N"B INPUT VALUES FOR THIS PLOT&C 0:0,1:1,2:4,1:"INPUT PHASE ANGLE A (IN RADIANS": "BETWEEN 0 AND PI (";: "#.####";;ZC"))":" = ";: "#.####";A;:" ";: AtC: A0 A 250C"INPUT STARTING X COORDANATE":"FOR FIRST ORBIT":" = ";: "##.####";X0;:" ";: X0>D":"INPUT STARTING Y COORDANATE":"FOR FIRST ORBIT":" = ";: "##.####";Y0;:" ";: Y0:D,"INPUT X COORDANATE FOR INCREMENTS":"IN THE ORBITS":" = ";: "##.####";DX0;:" ";: DX0:E6"INPUT Y COORDANATE FOR INCREMENTS":"IN THE ORBITS":" = ";: "##.####";DY0;:" ";: DY0:iE@"INPUT NUMBER OF ORBITS":" = ";: "####";OB;:" ";: OB: OB0 320EJ:"INPUT NUMBER OF POINTS PER ORBIT":" = ";: "####";PC;:" ";: PC: PC0 330FT:"INPUT LEFT WINDOW VALUE":" = ";: "###.####";L;:" ";: LeF^:"INPUT RIGHT WINDOW VALUE":" = ";: "###.####";R;:" ";: RvFh RL 380Fr:"YOU HAVE TO PLOT SOME AREA!": 340F|:"INPUT BOTTOM WINDOW VALUE":" = ";: "###.####";B;:" ";: B = ";: "###.####";T;:" ";: TMG TB 420xG:"YOU HAVE TO PLOT SOME AREA!": 380G:"ENTER IF A GRID IS REQUIRED":"ENTER IF NOT":" = ";: "#";G$;:" ";: G$:GGRID FALSEH (G$"N") (G$"") 4704H (G$"Y") (G$"") 420BHGRIDTRUEH::"ORBITS MAY BE ADVANCED MANUALLY BY":"PRESSING ANY KEY. PRESS ":"WHEN PLOT IS DONE.": 1H1,1: GRIDFALSE 620H DRAW GRID IF REQUESTEDH FIND ORIGIN4IP1.5((0.0L)320(RL)):P2.5((T0.0)200(TB))cI IF ORIGIN OFF SCREEN DRAW AXIS ON MARGINI ((RL)R) ((TB)T) 550I 560I&P1310:P2190I0 1,0,P2 320,P2I: 1,P1,0 P1,200ID J0 20IN 1,32J,P23 32J,P23JX 1,P15,20J P15,20J#Jb JaJlCA(A):SA(A):XOLDX0:YOLDY0:XS320(RL):YS200(TB)pJv J1 OBxJI1J IPC 780JXNXOLDCA(YOLDXOLDXOLD)SAJYNXOLDSA(YOLDXOLDXOLD)CAJP1.5(XNL)XSJP2.5(TYN)YS+K (P10) (P1319) (P20) (P2199) 7209K 1,P1,P2MKXOLDXN:YOLDYNK (XOLD1E16) (YOLD1E16) (XOLD1E16) (YOLD1E16) 770KII1K A$K (A$) 0 650KIPC1: 650K XOLDX0JDX0:YOLDY0JDY0: JL TE: 0: 0,0IL "ENTER TO DISPLAY ANOTHER PLOT":"ENTER TO EXIT ";: T$kL* (T$"Y") (T$"") 240L4 (T$"N") (T$"") 840L>: 800LH 0:LR 0:"WELCOME TO CHAOS 2"L\"------------------" Mf:"CHAOS 2, THE HENON MAPPING PROGRAM":2Mp"THIS PROGRAM WAS INSPIRED BY THE"\Mz"COMPUTER RECREATIONS COLUMN IN THE"M"JULY 1987 SCIENTIFIC AMERICAN. THE"M"ALGORITHM WAS EXTRACTED FROM THE"M"ARTICLE 'HENON MAPPING IN PASCAL' BY" N"DR. GORDON HUGHES IN THE DECEMBER 1986"4N"OF BYTE. PLEASE REFER TO EITHER FOR"ON"MORE INFORMATION.":{N"HENON MAPPINGS SIMULATE THE BEHAVIOR"N"OF PHYSICAL SYSTEMS, SUCH AS THE"N"ASTEROID BELT."N:"FOR STARTERS JUST USE THE DEFAULT":"VALUES."::"GOOD LUCK!"&O:"PRESS ANY KEY WHEN DONE": T$,O