From ganiear@bucknell.edu Wed Sep 17 01:21 EDT 1997
From: David Ganiear <ganiear@bucknell.edu>
To: "'kozick@bucknell.edu'" <kozick@bucknell.edu>
Subject: HW 8 (Dave Ganiear and Tom Pankake)
Date: Wed, 17 Sep 1997 01:20:54 -0400

Prof. Kozick,
	Here is a copy of the program for HW 8.  Tom and I worked on it together.  Have a nice day.




  

begin 600 hw8s.m
M)2!(;VUE=V]R:R X.B @4')O8FQE;2 Q+C,T(&EN('1H92!+86UE;B](96-K
M('1E>'0N"B4@1&%V92!'86YI96%R#0HE(%1O;2!086YK86ME#0HE(#DM,38M
M.3<*)2!%3$5#(#,R,"P@1F%L;" Q.3DW+"!2:6-H($MO>FEC:PH*)2!.3U1%
M.B @34%43$%"(&1O97,@;F]T(&%L;&]W(&%N(&EN9&5X(&]F('IE<F\@:6X@
M=F5C=&]R<RX*)2 @(" @(" @5&AU<R!T:&4@87)R87D@:6YD97@@=VEL;"!B
M92!O;F4@9W)E871E<B!T:&%N('1H92!T:6UE(&EN9&5X+@HE(" @(" @("!)
M;B!O=&AE<B!W;W)D<RP@=&AE(&1I<V-R971E+71I;64@<VEG;F%L('9A;'5E
M('E;;ET@=VEL;"!B90HE(" @(" @("!S=&]R960@870@87)R87D@;&]C871I
M;VX@>5MN*S%=+@H*)2!087)T<R!A+60Z("!Y6VY=(#T@,"XU*GE;;BTQ72 K
M('A;;ETL("!N(#T@,"P@,2P@+BXN+" Q, HE(" @(" @(" @(" @('=I=&@@
M:6YI=&EA;"!C;VYD:71I;VX@>5LM,5T@/2 P+@H*>6EN:70@/2 P.PIN(#T@
M,#HQ,#L))2!696-T;W(@;V8@=&EM97,@870@=VAI8V@@=V4@=VEL;"!E=F%L
M=6%T92!S>7-T96T@;W5T<'5T+@H@(" @(" @(" @(" @(" @)2!4:&ES('=I
M;&P@8F4@=7-E9"!F;W(@<&QO='1I;F<N"@HE(%!A<G0@83H@>%MN72 ]('5;
M;ETL(&]U='!U="!Y,5MN70H*>" ](#$["GDQ*#$I(#T@,"XU*GEI;FET("L@
M>#L))2!$;R!T:6UE(&X],"!S97!A<F%T96QY('1O(&AA;F1L92!I;FET:6%L
M(&-O;F1I=&EO;BX*"F9O<B!I/3(Z,3$))2!#;VUP=71E('-Y<W1E;2!O=71P
M=71S(&9O<B!T:6UE<R Q+" R+" N+BXL(#$P"B @>" ](#$["B @>3$H:2D@
M/2 P+C4J>3$H:2TQ*2 K('@["F5N9 H*9FEG=7)E*#$I"24@4&QO="!O=71P
M=70@<VEG;F%L('DQ6VY="G-T96TH;BP@>3$I"G1I=&QE*"=0<F]B;&5M(#$N
M,S0@*&$I)RD*>&QA8F5L*"=4:6UE(&EN9&5X("AN*2<I"GEL86)E;"@G>3%;
M;ETG*0H*)2!087)T(&(Z('A;;ET@/2 R=5MN72P@;W5T<'5T('DR6VY=#0H-
M"G@@/2 R.PT*>3(H,2D@/2 P+C4J>6EN:70@*R!X.PDE($1O('1I;64@;CTP
M('-E<&%R871E;'D@=&\@:&%N9&QE(&EN:71I86P@8V]N9&ET:6]N+@T*#0IF
M;W(@:3TR.C$Q"24@0V]M<'5T92!S>7-T96T@;W5T<'5T<R!F;W(@=&EM97,@
M,2P@,BP@+BXN+" Q, T*("!X(#T@,CL-"B @>3(H:2D@/2 P+C4J>3(H:2TQ
M*2 K('@[#0IE;F0-"@T*9FEG=7)E*#(I"24@4&QO="!O=71P=70@<VEG;F%L
M('DR6VY=#0IS=&5M*&XL('DR*0T*=&ET;&4H)U!R;V)L96T@,2XS-" H8BDG
M*0T*>&QA8F5L*"=4:6UE(&EN9&5X("AN*2<I#0IY;&%B96PH)WDR6VY=)RD-
M"@T*)2!087)T(&,Z('A;;ET@/2!S:6XH<&DJ;B\T*75;;ETL(&]U='!U="!Y
M,UMN70T*#0IX(#T@<VEN*'!I*FDO-"D[#0IY,R@Q*2 ](# N-2IY:6YI=" K
M('@["24@1&\@=&EM92!N/3 @<V5P87)A=&5L>2!T;R!H86YD;&4@:6YI=&EA
M;"!C;VYD:71I;VXN#0H-"F9O<B!I/3(Z,3$))2!#;VUP=71E('-Y<W1E;2!O
M=71P=71S(&9O<B!T:6UE<R Q+" R+" N+BXL(#$P#0H@('@@/2!S:6XH<&DJ
M:2\T*3L-"B @>3,H:2D@/2 P+C4J>3,H:2TQ*2 K('@[#0IE;F0-"@T*9FEG
M=7)E*#,I"24@4&QO="!O=71P=70@<VEG;F%L('DS6VY=#0IS=&5M*&XL('DS
M*0T*=&ET;&4H)U!R;V)L96T@,2XS-" H8RDG*0T*>&QA8F5L*"=4:6UE(&EN
M9&5X("AN*2<I#0IY;&%B96PH)WDS6VY=)RD-"@T*)2!087)T(&0Z('A;;ET@
M/2 R=5MN72 K('-I;BAP:2IN+S0I=5MN72P@;W5T<'5T('DT6VY=#0H-"G@@
M/2 R("L@<VEN*'!I*FDO-"D[#0IY-"@Q*2 ](# N-2IY:6YI=" K('@["24@
M1&\@=&EM92!N/3 @<V5P87)A=&5L>2!T;R!H86YD;&4@:6YI=&EA;"!C;VYD
M:71I;VXN#0H-"F9O<B!I/3(Z,3$))2!#;VUP=71E('-Y<W1E;2!O=71P=71S
M(&9O<B!T:6UE<R Q+" R+" N+BXL(#$P#0H@('@@/2 R("L@<VEN*'!I*FDO
M-"D[#0H@('DT*&DI(#T@,"XU*GDT*&DM,2D@*R!X.PT*96YD#0H-"F9I9W5R
M92@T*0DE(%!L;W0@;W5T<'5T('-I9VYA;"!Y-%MN70T*<W1E;2AN+"!Y-"D-
M"G1I=&QE*"=0<F]B;&5M(#$N,S0@*&0I)RD-"GAL86)E;"@G5&EM92!I;F1E
M>" H;BDG*0T*>6QA8F5L*"=Y-%MN72<I#0H-"B4E)24E)24E)24E)24E)24E
M)24E)24E)24E)24E)24E)24E)24E)24E)24E)24E)24E)24E)24E)24E)24E
M)24E)24E)24E)24E)24E)24E)24E)24E)24E)24-"B5087)T("AE*0T*>6EN
M:70@/2 M,3L-"FX@/2 P.C$P.PDE(%9E8W1O<B!O9B!T:6UE<R!A="!W:&EC
M:"!W92!W:6QL(&5V86QU871E('-Y<W1E;2!O=71P=70N#0H@(" @(" @(" @
M(" @(" @)2!4:&ES('=I;&P@8F4@=7-E9"!F;W(@<&QO='1I;F<N#0H-"B4@
M4&%R="!A.B!X6VY=(#T@=5MN72P@;W5T<'5T('DQ6VY=#0H-"G@@/2 Q.PT*
M>3$H,2D@/2 P+C4J>6EN:70@*R!X.PDE($1O('1I;64@;CTP('-E<&%R871E
M;'D@=&\@:&%N9&QE(&EN:71I86P@8V]N9&ET:6]N+@T*#0IF;W(@:3TR.C$Q
M"24@0V]M<'5T92!S>7-T96T@;W5T<'5T<R!F;W(@=&EM97,@,2P@,BP@+BXN
M+" Q, T*("!X(#T@,3L-"B @>3$H:2D@/2 P+C4J>3$H:2TQ*2 K('@[#0IE
M;F0-"@T*9FEG=7)E*#4I"24@4&QO="!O=71P=70@<VEG;F%L('DQ6VY=#0IS
M=&5M*&XL('DQ*0T*=&ET;&4H)U!R;V)L96T@,2XS-" H82DG*0T*>&QA8F5L
M*"=4:6UE(&EN9&5X("AN*2<I#0IY;&%B96PH)WDQ6VY=)RD-"@T*)2!087)T
M(&(Z('A;;ET@/2 R=5MN72P@;W5T<'5T('DR6VY=#0H-"G@@/2 R.PT*>3(H
M,2D@/2 P+C4J>6EN:70@*R!X.PDE($1O('1I;64@;CTP('-E<&%R871E;'D@
M=&\@:&%N9&QE(&EN:71I86P@8V]N9&ET:6]N+@T*#0IF;W(@:3TR.C$Q"24@
M0V]M<'5T92!S>7-T96T@;W5T<'5T<R!F;W(@=&EM97,@,2P@,BP@+BXN+" Q
M, T*("!X(#T@,CL-"B @>3(H:2D@/2 P+C4J>3(H:2TQ*2 K('@[#0IE;F0-
M"@T*9FEG=7)E*#8I"24@4&QO="!O=71P=70@<VEG;F%L('DR6VY=#0IS=&5M
M*&XL('DR*0T*=&ET;&4H)U!R;V)L96T@,2XS-" H8BDG*0T*>&QA8F5L*"=4
M:6UE(&EN9&5X("AN*2<I#0IY;&%B96PH)WDR6VY=)RD-"@T*)2!087)T(&,Z
M('A;;ET@/2!S:6XH<&DJ;B\T*75;;ETL(&]U='!U="!Y,UMN70T*#0IX(#T@
M<VEN*'!I*FDO-"D[#0IY,R@Q*2 ](# N-2IY:6YI=" K('@["24@1&\@=&EM
M92!N/3 @<V5P87)A=&5L>2!T;R!H86YD;&4@:6YI=&EA;"!C;VYD:71I;VXN
M#0H-"F9O<B!I/3(Z,3$))2!#;VUP=71E('-Y<W1E;2!O=71P=71S(&9O<B!T
M:6UE<R Q+" R+" N+BXL(#$P#0H@('@@/2!S:6XH<&DJ:2\T*3L-"B @>3,H
M:2D@/2 P+C4J>3,H:2TQ*2 K('@[#0IE;F0-"@T*9FEG=7)E*#<I"24@4&QO
M="!O=71P=70@<VEG;F%L('DS6VY=#0IS=&5M*&XL('DS*0T*=&ET;&4H)U!R
M;V)L96T@,2XS-" H8RDG*0T*>&QA8F5L*"=4:6UE(&EN9&5X("AN*2<I#0IY
M;&%B96PH)WDS6VY=)RD-"@T*)2!087)T(&0Z('A;;ET@/2 R=5MN72 K('-I
M;BAP:2IN+S0I=5MN72P@;W5T<'5T('DT6VY=#0H-"G@@/2 R("L@<VEN*'!I
M*FDO-"D[#0IY-"@Q*2 ](# N-2IY:6YI=" K('@["24@1&\@=&EM92!N/3 @
M<V5P87)A=&5L>2!T;R!H86YD;&4@:6YI=&EA;"!C;VYD:71I;VXN#0H-"F9O
M<B!I/3(Z,3$))2!#;VUP=71E('-Y<W1E;2!O=71P=71S(&9O<B!T:6UE<R Q
M+" R+" N+BXL(#$P#0H@('@@/2 R("L@<VEN*'!I*FDO-"D[#0H@('DT*&DI
M(#T@,"XU*GDT*&DM,2D@*R!X.PT*96YD#0H-"F9I9W5R92@X*0DE(%!L;W0@
M;W5T<'5T('-I9VYA;"!Y-%MN70T*<W1E;2AN+"!Y-"D-"G1I=&QE*"=0<F]B
M;&5M(#$N,S0@*&0I)RD-"GAL86)E;"@G5&EM92!I;F1E>" H;BDG*0T*>6QA
68F5L*"=Y-%MN72<I#0H-"@T*#0H-"B@G
`
end

begin 600 hw8s2.m
M)2!(;VUE=V]R:R X.B @4')O8FQE;2 Q+C,T(&EN('1H92!+86UE;B](96-K
M('1E>'0N"B4@1&%V92!'86YI96%R#0HE(%1O;2!086YK86ME#0HE(#DM,38M
M.3<*)2!%3$5#(#,R,"P@1F%L;" Q.3DW+"!2:6-H($MO>FEC:PH*)2!.3U1%
M.B @34%43$%"(&1O97,@;F]T(&%L;&]W(&%N(&EN9&5X(&]F('IE<F\@:6X@
M=F5C=&]R<RX*)2 @(" @(" @5&AU<R!T:&4@87)R87D@:6YD97@@=VEL;"!B
M92!O;F4@9W)E871E<B!T:&%N('1H92!T:6UE(&EN9&5X+@HE(" @(" @("!)
M;B!O=&AE<B!W;W)D<RP@=&AE(&1I<V-R971E+71I;64@<VEG;F%L('9A;'5E
M('E;;ET@=VEL;"!B90HE(" @(" @("!S=&]R960@870@87)R87D@;&]C871I
M;VX@>5MN*S%=+@H*)2!087)T(&8Z("!Y6VY=(#T@,"XQ*BAY6VXM,5TI7C(@
M*R!X6VY=+" @;B ](# L(#$L("XN+BP@,3 *)2 @(" @(" @(" @("!W:71H
M(&EN:71I86P@8V]N9&ET:6]N('E;+3%=(#T@,"X*"GEI;FET(#T@,#L*;B ]
M(# Z,3 ["24@5F5C=&]R(&]F('1I;65S(&%T('=H:6-H('=E('=I;&P@979A
M;'5A=&4@<WES=&5M(&]U='!U="X*(" @(" @(" @(" @(" @("4@5&AI<R!W
M:6QL(&)E('5S960@9F]R('!L;W1T:6YG+@H*)2!087)T(&$Z('A;;ET@/2!U
M6VY=+"!O=71P=70@>3%;;ET*"G@@/2 Q.PIY,2@Q*2 ](# N,2HH>6EN:70I
M7C(@*R!X.PDE($1O('1I;64@;CTP('-E<&%R871E;'D@=&\@:&%N9&QE(&EN
M:71I86P@8V]N9&ET:6]N+@H*9F]R(&D],CHQ,0DE($-O;7!U=&4@<WES=&5M
M(&]U='!U=',@9F]R('1I;65S(#$L(#(L("XN+BP@,3 *("!X(#T@,3L*("!Y
M,2AI*2 ](# N,2HH>3$H:2TQ*2E>,B K('@["F5N9 H*9FEG=7)E*#$I"24@
M4&QO="!O=71P=70@<VEG;F%L('DQ6VY="G-T96TH;BP@>3$I"G1I=&QE*"=0
M<F]B;&5M(#$N,S0@*&8O82DG*0IX;&%B96PH)U1I;64@:6YD97@@*&XI)RD*
M>6QA8F5L*"=Y,5MN72<I"@HE(%!A<G0@8CH@>%MN72 ](#)U6VY=+"!O=71P
M=70@>3);;ET-"@T*>" ](#([#0IY,B@Q*2 ](# N,2HH>6EN:70I7C(@*R!X
M.PDE($1O('1I;64@;CTP('-E<&%R871E;'D@=&\@:&%N9&QE(&EN:71I86P@
M8V]N9&ET:6]N+@T*#0IF;W(@:3TR.C$Q"24@0V]M<'5T92!S>7-T96T@;W5T
M<'5T<R!F;W(@=&EM97,@,2P@,BP@+BXN+" Q, T*("!X(#T@,CL-"B @>3(H
M:2D@/2 P+C$J*'DR*&DM,2DI7C(@*R!X.PT*96YD#0H-"F9I9W5R92@R*0DE
M(%!L;W0@;W5T<'5T('-I9VYA;"!Y,EMN70T*<W1E;2AN+"!Y,BD-"G1I=&QE
M*"=0<F]B;&5M(#$N,S0@*&8O8BDG*0T*>&QA8F5L*"=4:6UE(&EN9&5X("AN
M*2<I#0IY;&%B96PH)WDR6VY=)RD-"@T*)2!087)T(&,Z('A;;ET@/2!S:6XH
M<&DJ;B\T*75;;ETL(&]U='!U="!Y,UMN70T*#0IX(#T@<VEN*'!I*FDO-"D[
M#0IY,R@Q*2 ](# N,2HH>6EN:70I7C(@*R!X.PDE($1O('1I;64@;CTP('-E
M<&%R871E;'D@=&\@:&%N9&QE(&EN:71I86P@8V]N9&ET:6]N+@T*#0IF;W(@
M:3TR.C$Q"24@0V]M<'5T92!S>7-T96T@;W5T<'5T<R!F;W(@=&EM97,@,2P@
M,BP@+BXN+" Q, T*("!X(#T@<VEN*'!I*FDO-"D[#0H@('DS*&DI(#T@,"XQ
M*BAY,RAI+3$I*5XR("L@>#L-"F5N9 T*#0IF:6=U<F4H,RD))2!0;&]T(&]U
M='!U="!S:6=N86P@>3-;;ET-"G-T96TH;BP@>3,I#0IT:71L92@G4')O8FQE
M;2 Q+C,T("AF+V,I)RD-"GAL86)E;"@G5&EM92!I;F1E>" H;BDG*0T*>6QA
M8F5L*"=Y,UMN72<I#0H-"B4@4&%R="!D.B!X6VY=(#T@,G5;;ET@*R!S:6XH
M<&DJ;B\T*75;;ETL(&]U='!U="!Y-%MN70T*#0IX(#T@,B K('-I;BAP:2II
M+S0I.PT*>30H,2D@/2 P+C$J*'EI;FET*5XR("L@>#L))2!$;R!T:6UE(&X]
M,"!S97!A<F%T96QY('1O(&AA;F1L92!I;FET:6%L(&-O;F1I=&EO;BX-"@T*
M9F]R(&D],CHQ,0DE($-O;7!U=&4@<WES=&5M(&]U='!U=',@9F]R('1I;65S
M(#$L(#(L("XN+BP@,3 -"B @>" ](#(@*R!S:6XH<&DJ:2\T*3L-"B @>30H
M:2D@/2 P+C$J*'DT*&DM,2DI7C(@*R!X.PT*96YD#0H-"F9I9W5R92@T*0DE
M(%!L;W0@;W5T<'5T('-I9VYA;"!Y-%MN70T*<W1E;2AN+"!Y-"D-"G1I=&QE
M*"=0<F]B;&5M(#$N,S0@*&8O9"DG*0T*>&QA8F5L*"=4:6UE(&EN9&5X("AN
:*2<I#0IY;&%B96PH)WDT6VY=)RD-"@T*#0IA
`
end



