8(@@START.BATBAT38 START c}E q0 \C)CC8`DCeECiD` RP h1$E ȍ @y b Y)hܭ]L]` q  DMD   u j)`0  ,p0i2 &28jJ1f02 9 g iJf0i1)xԍӭ232002XԦ`  *'  } *(L `(  L l pL[,L] C i0 } p  gފދLh ( LD 0  C  C  \i +$+0'}; $(%)  b L[C `D P^߰")(݃   $DD}G@НL]S")M T H0 G$Ș݃ b 8$}$%8(() T `$E0(0)8`$GE` P} Li 8GD }L[ PH >iJ ;  yyB } ' |L[ "E( % H$ H#`L]B  0 G LO<  ( d lH۪!A3 A }jA !B EIC Y$E0 F  < 7 JN8Ndâ!,P h0ʠJd,6 } ' r/ $ ɛ ` '  L[  l }-     }    L[L  }  '  L[   p  ` g  l }) g ' }L[) ̠,L]T-0 |LM N݃:ː6UV LM N L(TU N,)M}LL[IL3GDIɛ ɜ DI  , JȊGм  G I) GȦ=}*GG ȄI1200820I H1E 1h0hIGI2ȢI`FE 0ɛ rɛ$ l '}蚦TTUVD`M L$:;Pyȱ$` r  iȱ$/:ȱ$VWyA**⩀ / }`$***? mL]-+ȱ$ɛ m* ? g. $0f.?'@ wAsTt/` }0: gL  `$0`j`& CpCi s L0JCܢj? I#}𴽎F ގМގ& & 0 C4 08L`0   | 레L] EGȽGȽ}G | E` 8,  }EG)݀G)ȱGȱG`"!L] l!i}栠$8  (IƭIp  h,g+j? 8 ii(Lq)! }S S0$} ) E9`H)N,L]8GH Lq`gNgfj****8jHi h` } 2J  &e2i`"%?&;^$IM ! ! <u hh`$}Ev옝^! 1EHFHjm GHm H`u$Ev`L=? +`!,pFE ȄD8 }q D&E`I0` i`+DOS SYSMOC.I   J ٍ = ) F)}8`Ll T!U<; Ln <JM -18     HH =}D 2 :  /1[F:M #.!  `>C #   #`>   e}L'>/b;\I\o@ @LK~ L  % /e  LL H}H0S0N:;=91D,1ɛK$ɛ`:;ʾ  ,ɛ}`XYȄ #`DTDRLUFFFCICLRSJ==CIYEEONSMDLNOOUAOOOARPLNCL#####PANVBNFR*),-PQOR}a/%<}) j ө  RES L%-, # 3 0 %   4(H 4(` }( 3  #  ZOiۨ L4RE 3 =F S Z +8!} 0+  FF % 4 4& 4(X)Y    # 4 ʤ Ȅ L"}F F LH hL4`*J 0 B B 0a   8#}    Lkl  );<  : ` 0 } T T 7̀΀$}LIl <;`<L 3   #/ ! R( 7 7   7 89i L7 ,(&  %} L480  ` Ln    `   HJJJJ h) ii0 ``0  ,BLV&}[J  B Vso Fhh` GH ,H hɐɀɡ)HDCȱCɛeCD먥D h'}N MSп` ED` OIH`hhXhh  nL Free Fil-SBreakI/O-Error 170Disk f(}ullWrite protectedFile MismatchBad FilenameDOS II+/D - Ver. 6.4plus RUN:Br`čLLockedDe)}vice doneDIR fullNot foundLoad?Bad DOSHex?AbortFromToHD) S)Eh` ɛLn ;LD2:+DOS SY}=ON;RUN"D:PROGRAM.BAS"  L*ʅȥe˅ BECF-m gUr gUȦ 3Lؠ00FATXXLINENUMDIESFXFXFXDATPOPRYXSMMAASTEMXMAXMIADNUMYMIYMANUMMLPRINPRINT,}TEMPAPRNTGRAFKLRLPRDUMPPRNTEABCSTARDUMSLONMEN-} @@@.} !"#$%&/}'()*+,-./01234560}789:SCIENCE HELPERBY ROBERT WITZOFSKY(c)1987, ANTIC PUBLISHING  +1} B022RETURNS VALUE OF FATX FOR CURRENT VALUE OF X6-$G:,($d33SIMPSON FUNCTION CALCULATES VALUE OF IN2}TEGRALnE")4(}8(ERROR: Current inputs not validB BpE$x4 (} (4(#To evaluate the integral it must 3}be++(#split into n divisions. This value&&(determines the accuracy of the%%(answer and the amount of time4}(needed to determine it>(( Value for n" A&2!AP>6-AP46-P:'@ ,$@ ( @ 5}46-@  A (} ((t(|  = ? (((6-@6-+&,' 6-6}6--@'@ @06-6-% @06-6-%" @06-,6-%%7}@$%6]$@'"'@O(for t=P:$B,'B ?='@$]6-%@@ J Bp8}T$ A Ap=0((}ERROR: can't integrate current function: Bp=$ANALYZE DATA A'$ 9}(}(6-@$ A!!( TYPE OF ANALYSIS!(( 1. x vs y( 2. ln x vs. y( 3. x vs. :}ln y  ( 4. ln x vs. ln y ( ( Which type? <)@6-&@H<!@) @A *!(};} STATISTICS!(4*-@@&68,-* #-@6-8,#6-8,""@)"@<}"6-K:,""@)"@"6-K:,968@,-%8@,968@,-$%8@,Y!68@,-%=}8@,=68@,-$%8@,Y68@,-$%8@, ??6-M:+$8@,&8@,$8@,,'+$+&>}@,,, %6-8@,'%6-8@,' 6-6- -@$ #6-O:&8,,%#6-O:&8,,%?}.  8  6-'6-'B A$L ( _M $$( x = P:$B,'BQ l( ((Avg deviation:(l(@} of x P:$B,'B Precision P:'$B,'A%V l( (!(Standard deviation:$(l( of x P:A}$B,'B error P:'M:,$A,'A[  Bp$` ??6-M:+$8@,&8@,$8@,,'+$+&B}@,,,j ( _ _t P"( x=P:B$,'B4-@@P(y=P:B$,'B~ +@C}@(+(Avg deviation: PP( of x P:$B,'B precision P:'$B,'A% PP( oD}f y P:$B,'B precision P:'$B,'A% ((Standard deviation: LL( of x P:$BE},'B error P:'M:,$A,'A LL( of y P:$B,'B error P:'M:,$A,'AF} "((y as a function of x"( A& QQ6-+$8@,&8@,$8@,,'+$8@,&8@,$8@G},, ZZ6-+8@,$8@,&8@,$8@,,'+$8@,&8@,$8@,, 6--@H} &"@&6-O:+$8,%,'8,, ,"@,6-O:+J:,$J:$8,,,'8,, )"@)6-O:+%$K:8,,,'8,, )I}"@)6-O:+J:,$8,#,'8,, !@6-@'  6-% 6-' ;6-P:$B,'B2"@J})"@;6-J:, 6-P:$B,'B )"@)( y= *x +  /"@/( y= K}*exp(*x) 0"@0( y=  + *ln(x) *"@'( y= *x*(( 3(3( corr. cL}o-ef. R: P:$B,'B2 Bp< $ 2 (}2($ERROR: Can't evaluate the given data ( MATH ERROR!M}  Bp$ ..PLOT FUNCTION 'F' OVER INTERVAL X1 -> X2 A3 + (}-@@+( Thinking... 6N}- 6- 6-+&,'+,  6- @06- 6- -  @06-  68,-68,-  O}!6-   6- 6-%  ! +@%@" 1A'A @1@& APP}+ ??,P:+8,&,'&?P,P:&+8,&,'%@P,0 -@D 33/P:+8,&,'&?P,P:&+8,&,'%@Q}P,X  ]  A5PAXIS_ Bpb $ ? +2( ERROR: can't graph this function5(? Bp $ R}**DRAW RELATIVE POSITION OF X & Y AXIS $$(USE WORLD CONVERSION FACTORS) -!* -6-P:6?P&', .S}!* .6-P:%@P%',  6- !6-  6- !T}6- DRAW LINES ,/,/DISPLAY RANGE,6-P:'@, @5,6U}-@5$6-P:'@,. 6-C:,886. 6.=:,86-?:<<:AU,+6.:67A,.I67@,.3; (}6-@|}8;e-@@ ((WHICH PRINTER?+(?(1. Epson/GeminiO( 2. Nec 8023e(3. Prowriter 8510=;( 4. No printer}}B;`)@6-&@H4!@) @V(}ERROR: input not 1 through 4` BQ`L;''BVBVBV~}BVV; B<PRINTER CODEST16N,6.<AN86-@9D6-Q6-6@]6-`$<`6.S01926.[T16}N,6.]AN86-@9D6-Q6-6@]6-`$<6-$> EXIT&>, (}-@@,(} QUIT (Y/N)?0>)@:>""@)"A!(}"D>$>PRINT SCREEN>8 Bb@8@}@P:> F:@,"@Ba>DUMP GR.0 SCREEN>(@>K-@#+-}@931G67%@,.>:,K >(@ >$>DUMP GR.8 SCREEN>''6-F:@,%F:@,$AV%}>(@?7 -$6-?:C:,<%6-?:<%@<%@,[6-?:<%@<%@$},x6-?:<%A<%@$,ucA@'A @&9A@VKA@W6-@]6-c}6-zu6-@6-@'6-@36-@?6-@K6-@Q6-W6-]6-c6-o6-A@u6-|W} 6-6-6-6-!6-'6--6-36-96-E6-@$WAY@4q-@@96-P:H:,$}@,%@G6-$@O6-%\67<,. j6-%@@n q$ 6. -@@}3(@PRESS FORE-@@_(@ RANDOM KEYSq-@@(@7<@,c-@}@/(@ OR A-@@W(@TO BEGINcAd.F:B2y,"@$6-@}. A`PF:Ad,"@3$ A`5g67Ap<Ap,. 567A5S<A5S,. N67A7<A7,.} g67A)<A),. /-@68,-8,+6-%@/ -@06-P:H:,$@,%0}8,"A`b6-8,%@!C6-%P:H:,$@,C6-%@ $P:H:,$@!,cc7<,0>:@2,})7&@ <&@ ,4>:@E,)7%@ <%@ ,4>:@D,A`b997%<%,4>:Ap,)7&<&,4>:Ap,}A`bn67<,.7<,(-6@@I2AD@@&O:,j2@@@&O:,n 9 }@2!,%@@-"@96-@ 68,- $yGD6-?:C:.hhhhhhh}`,<<<,G$D1:SHOGUN.BAS??N:b&DOS SYSb*START BATBb+PROGRAM BAS