{VERSION 2 3 "IBM INTEL NT" "2.3" } {USTYLETAB {CSTYLE "Maple Input" -1 0 "Courier" 0 1 255 0 0 1 0 1 0 0 1 0 0 0 0 }{CSTYLE "2D Math" -1 2 "Times" 0 1 116 111 127 0 0 0 2 0 0 0 0 0 0 }{CSTYLE "2D Output" 2 20 "" 0 1 0 0 255 1 0 0 0 0 0 0 0 0 0 } {PSTYLE "Normal" -1 0 1 {CSTYLE "" -1 -1 "" 0 1 0 0 112 0 0 0 0 0 0 0 0 0 0 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "Maple Output" 0 11 1 {CSTYLE "" -1 -1 "" 0 1 150 0 172 0 0 0 0 0 0 0 0 0 0 }1 3 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "Title" 0 18 1 {CSTYLE "" -1 -1 "" 1 18 104 168 230 0 0 1 1 0 0 0 0 0 0 }3 0 0 -1 12 12 0 0 0 0 0 0 19 0 }{PSTYLE "Author" 0 19 1 {CSTYLE "" -1 -1 "" 0 1 197 191 130 0 0 0 0 0 0 0 0 0 0 }3 0 0 -1 8 8 0 0 0 0 0 0 -1 0 }} {SECT 0 {EXCHG {PARA 18 "" 0 "top_s04_1" {TEXT -1 29 "4.1 Implicit Di fferentiation" }}{PARA 19 "" 0 "" {TEXT -1 25 "Art Belmonte, Summer 19 96" }}{PARA 0 "" 0 "" {TEXT -1 119 "These are the shaded gray examples which appear in Section 4.1. In-line plots have been removed to conse rve disk space." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 44 "restart; with(plots): eq:=3*x*y = x^3 + y^3;" }}{PARA 11 "" 1 "" {XPPMATH 20 " 6#>%#eqG/,$*&%\"xG\"\"\"%\"yGF)\"\"$,&*$F(F+F)*$F*F+F)" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 56 "implicitplot(eq, x=-3..3, y=-3..3, \+ scaling=constrained);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 27 "x: =1.5; fsolve(eq, y=1..2);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"xG$\" #:!\"\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#$\"+++++:!\"*" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 79 "x:='x'; implicitplot(eq, x=1.25..1. 75,\n y=1.25..1.75, scaling=constrained);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"xGF$" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 71 " implicitplot(eq, x=1.49..1.51,\n y=1.49..1.51, scaling=constrained );" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 39 "eq:=3*x*y = x^3 + y^3 ; subs(y=y(x), \");" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#eqG/,$*&%\"x G\"\"\"%\"yGF)\"\"$,&*$F(F+F)*$F*F+F)" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#/,$*&%\"xG\"\"\"-%\"yG6#F&F'\"\"$,&*$F&F+F'*$F(F+F'" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 36 "diff(\", x); solve(\", diff(y(x), x ));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#/,&-%\"yG6#%\"xG\"\"$*&F(\"\"\" -%%diffG6$F%F(F+F),&*$F(\"\"#F)*&F%F1F,F+F)" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#*&,&-%\"yG6#%\"xG\"\"\"*$F(\"\"#!\"\"F),&F(F,*$F%F+F)F, " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 33 "subs(y(x)=y, \"); Dy:=s implify(\");" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#*&,&%\"yG\"\"\"*$%\"xG \"\"#!\"\"F&,&F(F**$F%F)F&F*" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#DyG *&,&%\"yG\"\"\"*$%\"xG\"\"#!\"\"F(,&F*F,*$F'F+F(F," }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "m:=subs(x=3/2, y=3/2, Dy);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"mG!\"\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "0 0 0" 0 }{VIEWOPTS 1 1 0 1 1 1803 }