qrêáõBREAËÚØÙCµÊC°SÙX±SØB¤C±C6³BL¤ÉC²COÎOPTIOÎZ±ËZ²SÚCLEAÒC¤C´C¶C¨F¤CR±CR²CR´C³C1°C6·SELECÔSTARÔX²Y±Y²ZLÏZHÉC¸BRËÁÂPÉÅ@‚@ ? @ @c ?CC@@B2y@B‚33@@A4µPAAH@ @!@g"@#@$%&'()*+,-.è RSMAP›òBY JIM PIERSON-PERRY›ü (c) 1986, ANTIC PUBLISHING›""DO NOT RENUMBER THIS PROGRAM›06€-@$F:B2y,"@06€- A@6-M:‚#@%ƒ#@,$$8 COMPUTE FUNCTION, PLOT MAP›BX…-†@@6ƒ-ƒ&‡!6‚-ˆ&‰16Š7‹<Œ,.7‹<Œ,>…'„"P:…'„,K6Š7‹<‹,.*X6Š7Œ<Œ,.*L# A(Ž-@b#6‚-‚%‰V F:,"‘'' A$` APj  ’6“-‹ A`t !”6“-@Q A`~6“-P:+&’,'•,%‹ˆ –6Š7Ž<Ž,.—7“<“, Ž@-„@.( *** Plotting *** @A@P’=!(Š7‹<Œ,7‹<˜,—7…%™<…%™,+ A=AA`—.-„@.( --- Thinking --- œ …¦$°DISABLE BREAK KEY›º=@w€+@A=B7tAÄ$ÎSTART OF MAIN PROGRAM›Ø<<Š;@c,;@g,—;@Q,›;@€,š9@Q,âp +6œ-F:A ,+6-F:A,:6ž-F:A,LA Ar^AA`pAA`çAY+(+€,,$@4ì A6†-%6‹-@16-@=6Ÿ-@I6˜-@U6„-@a6™-@m6 -@y6Œ-@c…6¡-@g‘6–-B6-B2yöL 6‘-Ÿ6¢-„6£-™!6­-@-6®-@q‚y867‹,. C67¡,. L67,.==6—.3A,B.C,D.E,F.G,H.I,J.K,L.M,N.O,P.Q,R.S,T.U,V.W,X.Y,Z AR‹ INTRO›0 (}-™˜0((* -™„*(|  ÒÓÍÁР |2* -™™*(| Response Surface Mapping |<I-™@0(B-@@I(byF[-@@+(Jim Pierson-Perry=-@@[((c) 1986 Antic PublishingK?-@@-(ALL RIGHTS RESERVED?AY@4PŽ-‹A ŽTENTER FUNCTION›^/ (}-@ †/( ÐÌÏÔ ÆÕÎÃÔÉÏΠÉÎÐÕÔ hX -ŸX(JType in the plotting function. Use valid BASIC syntax. The function canrA -†˜A(3use up to 2 independent variables: X and/or Y.|2-Ÿ@2(Press BACKSPACE To Erase Typos†.-Ÿ@ .(Press RETURN When Finished0-†@(Z=%Ž-‹@x,(_0 Žš6AR†-@"6›.06›7‹<,.Z=66Ž-Ÿ¤ ™™˜†K: A®% )™‚‚"AU™% A€¸O‚"A&*Ž!@0(>:‚,_>:@0,86Ž-Ž&‹E6›7Ž<Ž,. O AÂŽ"@AÌYY+‚!@9*‚ @D,)+‚!@D*‚ @X,)+‚!@d*‚ @‘,)‚"@”A`Ö Aà+6›7Ž<Ž,.>:‚,(>:‚,!6Ž-Ž%‹+ AêINSTALL FUNCTION›ôCAY+(+€,,$@4(AR‹.(}1(4(@(1050 ›C(þ' (CONT-††$AB@'&# A%pAB@# –B (}-@†0( ÐÌÏÔ ÐÁÒÁÍÅÔÅÒ ÉÎÐÕÔ BAY@4GET PLOT AXES BOUNDARIES›& -†(ENTER VALUES FOR:0# -Ÿ˜(X-axis minimum= #ˆ: - „( maximum= ¤DA ¤ ˆ A&`-†˜((7‹<@8,7(7‹<@8,A A@N)-Ÿ@%(Y-axis minimum= )¥X"- @( maximum= "¦bG ¦ ¥ A&`-†@.(7‹<@8,=(7‹<@8,G Apl,,ESTIMATE RESPONSE RANGE OVER PLOT AXES›v:-†@:(&PLEASE WAIT- ESTIMATING RESPONSE RANGE€%6‰-+¤&ˆ,' 6‡-+¦&¥,' % A(Š 6‚-ˆ6ƒ-¥” APž 6§-6¨-¨ ƒ-¥¦‡² ‚-ˆ¤‰¼ APÆ  §6§-Ð !¨6¨-Ú ‚ä ƒî –ø@ -† (7‹<@8,-† @(ESTIMATED RESPONSE (Z) RANGE:!-Ÿ@!( Z mimimum= § -„@( maximum= ¨5-†@ 5(!Press  ÓÔÁÒÔ  To Use These Values :-†@!:(&Press  ÏÐÔÉÏΠ To Enter Response Range*" F:,"£6’-§6”-¨" A!p4F:,"‘A! > A H*Ž- @!-†Ž&(7‹<@9,* ŽR$-@  ( Z minimum= $’\"- @( maximum= "”fA ” ’ A&`-† ((7‹<@8,7(7‹<@8,A A!0p!!SET PRINTER - START MAPPING›z= (}-„†1( ÒÅÓÐÏÎÓÅ ÓÕÒÆÁÃÅ ÍÁРÏÕÔÐÕÔ =@„)-@ )(Prepare your printer:Ž - ˜( -Power on˜1 - ™'(-Set paper at top of page1 A¢.-„@ .(Press  ÓÔÁÒÔ  to continue.¬,-„@!,(Press  ÏÐÔÉÏΠ to abort.¶F:,£A"0À$ A'  ©†P:$ –Ê.-„@.( *** Plotting *** Ë.-„@ .( ÔB6‰-+¤&ˆ,'@`'6‡-+¦&¥,'@@96•-+”&’,'@PB6š8‹,-’Þ%Ž-@Q!6š8Ž,-š8Ž&‹,%•% ŽèF A' ((*6Ž-@@&B:›,'8(7‹<Ž,›=(B(F –ò;( (;(7‹<@,X-axis range= ˆ to ¤ü11(7‹<@,Y-axis range= ¥ to ¦ + Ž-‹˜'(7‹<¡,—7Ž<Ž,=š8Ž,+ Ž 46Š7‹<Œ,.7‹<Œ,#Ž-@b„06Š7Ž<Ž,.*4 Ž ,,(Š7‹<@b,7‹<„,—7„<„,=š8„,$ ›. 6ƒ-¦%‡8 !!CALL THE MAPPING SUBROUTINE›B 8-„@.( --- Thinking --- 8 AL 46Š7‹<Œ,.7‹<Œ,#Ž-@b„06Š7Ž<Ž,.*4 ŽV >>(Š7‹<@b,7‹<„,—7@G<@G,=š8@G,` 7Ž-@H@Q3(7‹<¡,—7Ž<Ž,=š8Ž,7 Žj (>:@,t !!MAP COMPLETE - ALLOW RERUNS›~ 1 (}-„†1( ÒÅÓÐÏÎÓÅ ÓÕÒÆÁÃÅ ÍÁРÏÕÔÐÕÔ ˆ + -„Ÿ+(Response Map Output Completed’ ?-@™(  ÏÐÔÉÏÎÓº 0-@@?( ==========œ `-„@ 6(" ÓÔÁÒÔ  - Remap same function withH-@@`(new plot parameters¦ *-„@*( ÏÐÔÉÏΠ- Exit program° 4-@@4(Please Make Your Selectionº F:,"‘A%0Ä F:,"£AÎ A$Ø ALL DONE - EXIT TO BASIC›â I +A œ%A1Až=@‚IAR†ö (Program RSMAP done. 55HANDLE BASIC SYNTAX ERRORS IN THE PLOT FUNCTION›  (} A(` \-@„+(There is a syntax error=-@@\(in your plotting function. ,-@ ,( BASIC Error #F:A•,( 6-„@ 6("Press  ÓÔÁÒÔ  To Re-enter Function2 2-„@!2(Press  ÏÐÔÉÏΠ To Exit Program< ( F:,"£AA`( A0F ( F:,"‘AA`( A%0P A& Z ZZERROR HANDLING CODE TO HANDLE UNREAL PLOT AXIS BOUNDS (MINIMUM GREATER THAN MAXIMUM)›d A(`n ,-†@ ,(The minimum must be lessx :-†@!:(&than the maximum value. Try again.ýýý‚ ?Ž-‹A Ž!-†@ 0(7‹<@8,?(7‹<@8,Œ AA`$– HANDLE PRINTER ERRORS›  A(`ª Y-@  *(Printer Error Detected<-@@Y( BASIC Error #F:A•,´ (-@@((Please Correct¾ ( F:,"‘AA`( A%0È F:,"£A'€Ò A'PÜ *Ž- @-†Ž&(7‹<@8,* Žæ AA` A"0ð **HANDLE ERRORS IN FUNCTION EVALUATION›ú A(` 1 (}-„†1( ÒÅÓÐÏÎÓÅ ÓÕÒÆÁÃÅ ÍÁРÏÕÔÐÕÔ  b-@8( BASIC Error #F:A•, Occurred>-˜Ÿb(During Plot Function Evaluation 1Ž-‹A Ž'AA`1 A$P" ERROR SOUND›, oA@P12†A!@@M2‹A(@@]2@kŽ-‹@ o Ž6  Ž-†2Ž††† Ž$€ D1:RSMAP.BAS