.UCUSBLINERESEECSDTITLSPRBLDODDNDAAIDTYNDIMNDATINNRECPXNAMYNAMA1DTYPXIYISLDUMFMAOIINPXXSVARYSNUSIGSXYJAOPFDFDDFDFDDFDFDDFDRTCONCONINTFICONWASIGPNDIMNDIMNDIMXYXSCINCYSCINCGR08GDROFNNAMEXTNDIMCON@2@$$A@@ $ $  @ @@Ae@@A@@@A<  F  A@P dd@P @ !; " #@$@%@&A' (@V)@)A*\ +AA, -@A. /0A@1@&234@P56@E789:;<=A> ?>@>ABAAC DAEF F@G@H@IA`J@K@ L?PM@N@O~ P Q R@S) T! U V@W?PMATH PAD 1.00BY M.K. ONEILLCOPYRIGHT (C) 1988""SUBMITTED TO ANALOG MAGAZINE$$FOR PUBLICATION, FEBRUARY 1988% A%GO TO INITIALIZE/MENUUTILITY SUBROUTINESH-@@!1( Ӡ٠>)@H @8#1-@@!1( Ӡ٠$+( ESC TO PRINT+)@%"@' A&4-@@)-@@-(1 4$(T-@@/(ҠĠԠ9 @`C @M @0P'T 2! @@!! @@3 B$<j-@@%6-@&A2@r@E g2AD@j$FQ-@@/(ҠĠԠ9 @`C @M @0Q P5 (}(-@ &B:,'@,(2( 5$Z.-@@.( ERROR # F:A,[==( OCCURED AT LINE AV$F:A,%F:A,\$cSCREEN DUMPd Ae+-@ +-@@7g 1h67&@,.>:, i 3 kAR@t A v9-@@%( PRINT ERROR/ @9 @0x B$""DATA ENTRY MENU AND ROUTINES3 (}( -( ٯ3( !( 1 - Š!( !( 2 - Ҡ!( !( 3 - Ԡ!( !( 4 - נ!( !( 5 - Πՠ!( G( SELECT OPTION 1-5 +6-@76-AA @PG6-#"@ A# A#"@ AP# A#"@ A# A#"@ AP# A"@ A& (} ( Š&( L*(" SELECT 1) ALL POINTS OR 2) RANGE 66-@B6-APL @P#"@ A!# AI ( #(ENTER RANGE (LO,HI) - @p96-AP?I B6-&%@6-&K -)68@<,-8@<%,G68@<,-8@<%,K $? (}( #( 9( Ӻ?( 3-(% 1 - ŠӠ3( 3-(% 2 - ŠӠĠ3( 3-(% 3 - ĠӠ3( 3-(% 4 - ̠Π3( 3-(% 5 - ؠӠǩ3( F ( $( SELECT OPTION (1-5) 06-@<6-AF @P6-@#"@ A# Ap 6-#"@ A # ApV ( 2(# ENTER TOTAL NUMBER OF DATA POINTS :6-&F6-A P @PV6- "6- A@ R ( 0(! SELECT 1)APPEND OR 2) OVERWRITE <6-@H6-A"R @P "@6- A@ 6-%@6-%1 (}( +( ٠1( & -+ 6-, @@6-AU-I-@@-(ENTER DATA POINT 3( 7(I-@@0 AP%5 7 B Ap8"@ A:$D* (}$( ̠*( FU ( -(ENTER POLYNOMIAL DEGREE (<5): 96-@E6-AO @PU6-I-KY-@@5(ENTER COEFFICIENT  : ? @pK6-AOY BL-@@(M 68,- N$X& (} ( Ԡ&( Y!( ( 0 TO EXIT )!( ];( EDIT DATA POINT6-+6-A5 @P;6-^" A _% @@6-A% AP%b Al B$C"( %( NO DATA/ @`9 @0C A#"@ A# A6-@6-@ 6-%!6- @-@@#"@( #( :!@( 0-@"@4(:(  - A %  @5!6-%@!! A Ap" A2 (},( ̠2( 2-.( A()= 8,2  @5$, @&( ؠ,( A@-@( ( -@(8<, (| 8<%@, "A@ @5"$(8@<,$S.6-+8@<,&@,$@%@P(8@<,7<%@ ,S$&#(8@<,8@<,&$(( (X) : %68@<,-($@( (X,TYPE) : ,68@<,-=68@<,-@$=( (X,Y) : )68@<,-:68@<,-=$* (}*(CURRENT DATANAMES:  3 ( ( CHANGE (Y/N) !)0Y3 A! ( (ENTER X NAME: ! -!@( )(ENTER Y NAME: -  Ap$ ( (}(( Ġ%B-@"6-8@<,B6-+&@,$@%@*#7<%@,4 # A / AP4@)(ENTER IDENTIFIER FOR DATA TYPE -@67<%@ ,.R z$' (}!( ؠ'( T (ENTER ORDER OF MATRIX: ,6-@86-A B @PH6-T6-@-@ A P $' (}!( ؠ'( 0-@@0( ENTER ROW  VALUES-@%@b @p6-A b+-@@/(A-@@S(VALUE  Wb68<,-  BE(ROW  :!-@0(8<, 4 E(8<%@,$ (  ( CORRECT (Y/N) $ 0Y6-&@$ANALYSIS ROUTINES0 (}( *( 0( *$( 1 - ̠*( *$( 2 - ҠΠ*( *$( 3 - ԠӠԠ*( *$( 4 - ŠΠ*( *$( 5 - Šؠ*(  ( 6 - Πՠ ( G( SELECT OPTION 1-6 +6-@76-AA @PG6-&#"@ A# A'#"@ A!# A)#"@ A"# A*#"@ A## A+#"@ A0# A,"@ AkSTATISTICAL ANALYSISl0 (}*( ̠0( qJ!@,(DATA TYPE DOES NOT MATCH6 @`@ @0J A s A9pv"@ A 6-0-@"6-8@<,, A90 + A9 @! A9P+ @5 A 6-@W-@"6-8@<,.6-8 A9I6-8@<,S A9W -@8," A P A9 @8"( $( ̠ . A9P8 A R#6-+&@,$@%@)( H( ź 7<%@ ,R A9P @5 *$3LINEAR REGRESSION40 (}*( Ҡ0( 9J@,(DATA TYPE DOES NOT MATCH6 @`@ @0J A!; A9p>6-H_-@"6-8@<,.6-@8 A9I6-8@<,U6-@_ A9M'#6-%8@<,$8@<,' R!6-8@,!6-8@,f/6-@ A9%6-@/ A9pHH68@,-+8@,$8@,$&,'+8@,$8@,$&,r1168,-8@,&8@,$8@,t4(6-8@,$8@,'8@,46-@x @zb( Ҡ!6-8@,+ A5:(SLOPE= I6-8,S A5b(Y(X=0)= {+ 6- A5+(CORR=  N=  @5 @# (  (6-@# A9P# (  (6-@# A9P @5$LEAST SQUARES0 (}*( ԠӠ0( J@,(DATA TYPE DOES NOT MATCH6 @`@ @0J A"_!(ENTER ORDER OF POLYNOMIAL;(TO BE FIT (1 TO 5): E @pQ6-A"U_ B A9`SETUP LS MATRIX)-@6-@)6-@4-@#68<,-8<,%06-$8<,4 06-8@<,"6-%@06-%@_-@#68<,-8<,%568<,-8<,%H6-$8@<,[6-$8@<,_  -@6-%@5-@%@168<&@,-8<,5   A80) @)( ̠( Ӡ#( ORDER: #( A-6-8,$ A5*( =(A()= A  @5$3 (}( -( ̠3(  ?"((POLYNOMIAL UNDEFINED2 @`< @0?$ -'( 1 - ŠƬƧƧƠ-(  *$( 2 - ĠӠƠƨة*(  *$( 3 - ŠȠ*(  *$( 4 - ŠҠ*(  $( 5 - Ӡՠ$(  G( SELECT OPTION 1-5 +6-@76-A#A @PG6- #"@ A%# A# #"@ A&# A# #"@ A'P# A# #"@ A)# A# "@$ 0 (}( 0( ƨةƧةƧة W-@@-(ENTER VALUE OF X= 7 @pC6-A%GQ BW(  3 A76- A7#6-- A7 36- . 6- A5.( F[x]=  . 6- A5.( d(F[x])/dx=  . 6- A5.( d2(F[x])/dx2=   @5$( - (}'( ĠӠƠƨة-( ) [( )-26-8,< A5W(A(%@)= [ * N ( &( ENTER X INTERVAL (X): 26-A`>6-A&H @PN6-- C6-@6-)6-%?76-&?C6-?%2 "8,"" A'04 - 6- A76-# A7-6-%$5 - 6- A76-# A7-6-&$9 U 6-%6- A7!6-+ A716-K$ )$ U A':  6-6-%$< U 6-&6- A7!6-+ A716-K$ )$ U A'=  6-6-&$A  ! A&0C  )!6 A&F 1-@@( '"@1 A&PK W(&@ ROOTS FOUND4-@&@=6-8,G A5S( X= W P  @5 A&`Z +( NO ROOTS FOUND! @`+ @0d $ 6- A76-  A76-  6-&' A76- O:,  A'0 A'% '6-%@!@' A'" A' W-@@5(ROOT  DID NOT CONVERGEC( X= M @0W A'' #!6-%?#6- # 6-&?#6- & A76- A7#6-&$ _-@@;(ROOT  =  IN  ITERSD68,-R6-%@\ @0_$ - (}'( ŠȠ-(  M@)"6(DATA TYPE DOES NOT MATCH@ @`J @0M$ 6- A9p ?-@"6-8@<,, A75O:, ? A'X "6-+8@<,,'" A9   $ A9 A9P! @5$$T - (}'( ŠҠ-( Y I ( #(ENTER RANGE (LO,HI) - @p96-A)?I B^ 1 6- A7%6-6-) A7%16-&h $ ( $( INTEGRAL OF F(X) OVERi 5 6- A55( THE RANGE (,) =   @5$ 0 (}*( Šؠ0(  C@,(DATA TYPE DOES NOT MATCH6 @`@ @0C$ 6-&@ A80 ) @)( Π ( Ӡ #( ORDER: #(  I-6-8,$ A5*( E(A(%@)= I  6- @5$ ROUND-OFF VALUE 6-+P:$%?I,,'$sCALCULATE F(X)t? 6-8,+-&@6@86-$%8,< ?$}CALCULATE F'(X)~<6-&-@6@56-$%8,$9 <$CALCULATE F''(X)H6-&-@6@A6-$%8,$$+&@,E H$INTEGRAL AT XH6-&-6@A6-+%8,'+%@,,$E H$TRIAGNLZ AUG. MATRIXG-@%@/-@%@?68<,-8<,C G  A8u-@-%@%@%6-8<,'8<,%-%@68<,-8<,&$8<,     8868,-8%@<%@,'8%@<%@,&-@6@&6--%@%@!6-%8&@,$8<,! ,,68&@,-+8<%@,&,'8<,  A8#=(MATRIX REDUCTION FAILED) @`3 @= @0( B$;DO STAT. SUMS<868,-8,%!68,-8,%$568,-8,%@8$ECALC. STATISTICSF/68,-8,'8,/68,-8,'8,&8,$8,G868,-M:8,,568,-M:8,$8,'+8,&@,,8$mPRINT STATISTICSn# ( #( # OF POINTS= 8,oN ( 6-8, A5*(MEAN= 36-8,= A5N( VARIANCE= pJ ( 6-8, A5*(SIGS= 36-8,= A5J(SIGP= q$wINITLZE MATRICESxc-@-@068<,-A68<,-X68&@,-\ ` c$INITLZE STAT ARRAYSc- 68,-/68,->68,-M68,-\68,-` c$p' (}!(ԠΠ'( rG&( PLOT 1) UPPER RIGHT QUADRANTG( 2) ALL FOUR QUADRANTSs@ ( ( ENTER CHOICE: *6-@66-A`@ @Pt?6-A`6-@'"@36-@?6-AvuA ( A( GRID SIZE : A& (X) BY &@ (Y)vN ( &( ENTER X INTERVAL (X): 26-AE>6-A`H @PN6-w#6-+A&,'#6-@'xH ( ENTER Y INTERVAL (Y): ,6-A86-A`B @PH6-y#6-+&@,'#6-@'z6 ( 6( GRID SCALE(*10):  (X) BY  (Y)}T ( ( 4( PRESS ANY KEY TO BEGIN PLOTT( PRESS X TO ABORT PLOT ~N ( .( PRESS ANY KEY TO EXIT PLOT N( PRESS P TO PRINT )@>:,4X Ad` +@$@ Ae8! Af! Ag2 @`)@7>:,4P Ai<C +AR@90@C AdSETUP GRIDi,@/Ak,@/An6-@p,&@/%@r6-%@t A  Aex6-@z,&@/%@|6-%@~ A Ae"996-?:C:,:@',A>:@,/-%@996.>:,*67A,.>:,967@,.D6-?:A6<:@',K>:A,>:,  B3>:@',@ AiP!9-@@%( PRINT ERROR/ @9 @0&$X1 (}( +( įŠ1( _!!( 1 - Š`!!( 2 - Ġa!!( 3 - ŠŠb##( Ԡc!!( 4 - ٠g!!( 5 - ΠՠlC ( ( SELECT 1-5 '6-@36-Ap= @PC6-v#"@ Aq# Apx#"@ As# Ap{#"@ ApP# Ap}#"@ Av# Ap"@ A?7@<@,41567@<@,.2? ApR67@<@,.1$" (}"( ŠD" @`0( ϠϠ: @0D ArP) 6. 67@6,.)67@,.4 ( ,(ENTER DATASET TITLE (1-36 CHR)04( Au5 Ar@5@@Q(@(@*(@7(@D(@Q(@"@(@-@) 6. 67@6,.)67@,.U@,67@,.=:8@<,,U67@%<@$,.=:8@<,,`"@%-@%@?6-+&@,$%@\67<%&@,.=:8<,,` (@  ArP C ( ( SAVE ERROR/( FILENAME: 9 @C @0R@ B$ (}( Ġ) 6. 67@6,.)67@,. Au5 At @5@@Q@@*@7@D@Q@"@@-@) 6. 67@6,.)67@,.@R@.68@<,-A:7@<,,R68@<,-A:7@% QP67@,.<67@<@%B:,,.7@'A'K ApV$" (}"( ٠) 6. 67@,.)67@,.'67@,.'67@,.*.MPD5 AvP@5@@2-@@d$@.(2 % B@" @5%$"6. INPUT DATA") 6. 67@6,.)67@,."6.X DATA6.Y DATA") 6. 67A,.)67@,."66-6-'6-36-@6$'#TITLE PAGE,MAIN MENU(#R +AR@90@K@@R(} *# ( +#%%(      ,#$$(     -###(     .#""(     /#!!(    0#(  1#( 2#!!(   4# (    5#(   6#(   7#(    8#(   9# ( :#(  VER. 1.0 ;#(  BY M.K. ONEILL <#(  COPYRIGHT 1988 =#@@#SET UP ARRAYS#A6-@6-A'6-@36-@A6-%@#56-A6-@')6->56-?P#!!9<,9,9,;@6,#9,9,9,;@,#9,9<,9<,9,#RR;@6,;@6,;@,;@,;@,;@,;@,#11;@,;@,;A,;@,##6. 6.D1:#6..MPD# A!#.@.@@K:#4-@@ 4(Ǡ̠#:;A,$-@@a("6A5%: #ll104,104,141,21,6,104,141,20,6,104,141,27,6,104,141,26,6,160,193,173,255,255,136,240,35,141,255,255,238#cc26,6,240,21,173,20,6,56,233,40,141,20,6,144,4,24,76,19,6,206,21,6,76,19,6,238,27,6,76,33,6,96#B;Ah,#Ac.-@Ah2">67,.>:,B #FF104,201,4,240,9,170,240,5,104,104,202,208,251,96,104,133,215,104#LL133,214,104,104,168,104,133,217,104,133,216,104,104,240,236,133,212,24#JJ165,214,101,88,133,214,165,89,101,215,133,215,152,240,15,165,214,105#HH64,133,214,165,215,105,1,133,215,136,208,241,132,221,160,0,132,220#BB177,216,160,0,170,16,1,136,132,213,138,41,96,208,4,169,64,16#@@14,201,32,208,4,169,0,16,6,201,64,208,2,169,32,133,218,138#BB41,31,5,218,133,218,169,0,162,3,6,218,42,202,208,250,109,244#JJ2,133,219,164,221,177,218,69,213,164,220,145,214,200,132,220,196,212#]]208,182,24,165,214,105,40,133,214,144,2,230,215,230,221,169,8,197,221,208,159,96,207,96# (}#''( ȠĠΠՠ#+ ( ( %(Š+( #( 1 - Ԡ#( 2 - Š#( 3 - ůĠ#( 4 - Ԡ#( 5 - Ԡ$C ( ( SELECT 1-5 '6-@36-A= @PC6-$"@ A$"@ A$"@ Ap$"@ A`|$"@ A&#@@#+' D:MATHPAD.BAS