d ----- THE FORMULAS AND THE IDEA FOR THIS PROGRAM CAME FROM Ad ----- AN ARTICLE IN THE MAY 1988 ISSUE OF SCIENTIFIC AMER.sd ----- COMPUTER RECREATIONS BY A. K. DEWDNEYyd(d2 "CSHIRNHAUSEN OR IRCLE IPPOPEDE OWDITCH "d< "ILLERS MADNESS ";A$dF A$"C" dP A$"H"  eZ A$"B"  ed A$"M" [en A$"C" A$"T" A$"H" A$"B" A$"M" 2ex --------------------- TSCHINHAUSEN ---------------------ee )"**** TSCHIRNHAUSEN'S CUBIC ****"e:  )"THE PARAMETERS ARE : X=3A(T^2-3)+f  )" Y=AT(T^2-3)"Wf:  )"THE RANGE OF T IS -4.4 TO 4.4"f  )"A MUST BE KEPT LOW TRY .2 TO 1.2 IN STEPS OF .2"f:  ): "INITIAL VALUE OF A";A1f  ): "ENDING VALUE";A2f  ): "STEP";ASTEPfg AA1 A2 ASTEP0g T   #zFgX A(TT)c[gYAT(TT)wgg (X,Y)og Twg" A}g,g ---------------------- CIRCLE --------------------gg "ENTER C";Cg I hgXC(I)hYC(I)w h (X,Y)hTh ------------------------ HIPPOPEDE ------------------------Zhh L(, ): "TO PLAY WITH THIS CURVE YOU NEED TO"h  ) "VARY THE FOR/NEXT LOOPS (A & B) IN THE "h  ) "FORMULAS: X=2COS(T)SQR(AB-B^2SIN(T))"/i&  ) " Y=SSIN(T)SQR(AB-B^2SIN(T))"^i0 "START A";A1: "FINAL A";A2: "STEP";ASTi: "START B";B1: "FINAL B";B2: "STEP";BSTiDiN AA1 A2 ASTiX BB1 B2 BSTib T  il ()"c"iv L(,): "T=";Tj L(,): "A=";A&j L(,): "B=";B3jFT(T)SjF(((AB)(BBFTFT)))fjX(T)FyjY(T)Fwj (X,Y)j Tj Bj Aj ()"d"jj  -------------------- BOWITCH -------------------#k*: L(, ): "BOWDITCH CURVES ARE A CLASS THAT ARE"Yk4 L(, ): "GOVERNED BY THE FOLLOWING FORMULAS:"k> L( , ): " X=AxSIN(CT+D)"kH L( , ): " Y=BxSIN(T)"kR L( , ): "THE CONSTANTS A & B DEFINE A RECTANGLE"#l\ L(, ): "A(320) UNITS LONG & B(230) UNITS HIGH. THE "[lf L(, ): "CONSTANTS C & D MAKE THE DIFFERENCE."dlpAmlzBnl  ): "ENTER C";Cl  ): "ENTER D";Dl ()"c"ll T m --- WHEN DRAWING ELIPSES TRY REMOVING THE NEXT GOTO SO2m --- THAT D WILL VARY & ROTATE THE ELIPSES