{VERSION 4 0 "IBM INTEL NT" "4.0" } {USTYLETAB {CSTYLE "Maple Input" -1 0 "Courier" 0 1 255 0 0 1 0 1 0 0 1 0 0 0 0 1 }{CSTYLE "2D Math" -1 2 "Times" 0 1 0 0 0 0 0 0 2 0 0 0 0 0 0 1 }{CSTYLE "2D Output" 2 20 "" 0 1 0 0 255 1 0 0 0 0 0 0 0 0 0 1 } {PSTYLE "Normal" -1 0 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 1 1 1 }1 1 0 0 0 0 1 0 1 0 2 2 0 1 }{PSTYLE "Maple Output" -1 11 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 1 1 1 }3 3 0 0 0 0 1 0 1 0 2 2 0 1 }} {SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 31 "a:=4;b:=7;r:=8;c:=-3 ;d:=1;s:=4;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 52 "S[1]:=(x-a)^ 2+(y-b)^2-r^2;S[2]:=(x-c)^2+(y-d)^2-s^2;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>&%\"SG6#\"\"\",(*$),&%\"xGF'%\"aG!\"\"\"\"#F'F'*$),&%\"yGF'%\"b GF.F/F'F'*$)%\"rGF/F'F." }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>&%\"SG6#\" \"#,(*$),&%\"xG\"\"\"%\"cG!\"\"F'F-F-*$),&%\"yGF-%\"dGF/F'F-F-*$)%\"sG F'F-F/" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 38 "S[1]:=expand(S[1] );S[2]:=expand(S[2]);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 10 "S[ 1]-S[2];" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 14 "Y:=solve(%,y); " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "subs(y=Y,S[1]);" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 14 "X:=solve(%,x);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "Y:=subs(x=X[i],Y) $i=1..2;" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 40 "y-Y[1]-(Y[1]-Y[2])/(X[1]-X[2 ])*(x-X[1]);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#,(%\"yG\"\"\"&%\"YG6#F %!\"\"*&*&,&F&F%&F'6#\"\"#F)F%,&%\"xGF%&%\"XGF(F)F%F%,&F2F%&F3F.F)F)F) " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 14 "Y:=solve(%,y);" }}} {EXCHG {PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 0 "" } }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 96 "plots[implicitplot](\{S[1] ,S[2],S[1]-S[2]\},x=-9..12,y=-5..15,scaling=constrained,numpoints=1000 );" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 5 "r:=4:" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 142 " \+ \+ --> A8" }}}}{MARK "0 0 0" 0 }{VIEWOPTS 1 1 0 3 2 1804 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }