{VERSION 5 0 "HP RISC UNIX" "5.0" } {USTYLETAB {CSTYLE "Maple Input" -1 0 "Courier" 0 1 255 0 0 1 0 1 0 0 1 0 0 0 0 1 }{PSTYLE "Normal" -1 0 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 1 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "" 0 256 1 {CSTYLE "" -1 -1 "" 1 18 0 0 0 0 0 0 0 0 0 0 0 0 0 1 }3 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }} {SECT 0 {EXCHG {PARA 256 "" 0 "" {TEXT -1 60 "L\366sung eines nichtlin earen Gleichungssystems mit Resultanten" }{MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "restart; with(plots):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "f := x^2+8*x-40+2*y^2+8*y;" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 27 "g := 3*x^2+18*x-50+y^2+4*y; " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 24 "R := resultant(f, g, x) ;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "L := [solve(R)];" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 118 "for y0 in L do\nfor x0 in [ solve(subs(y=y0, g))] do\nif simplify(subs(x=x0, y=y0, f)) = 0 then pr int([x0, y0]) fi\nod\nod;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 155 "display([\nimplicitplot(f, x=-12..5, y=-12..7, color=red, thickne ss=5),\nimplicitplot(g, x=-12..5, y=-12..7, color=blue, thickness=5)], \nscaling=constrained);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 25 " R2 := resultant(f, g, y);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "L := [solve(R2)];" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "L \+ := \{solve(R2)\};" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 118 "for x 0 in L do\nfor y0 in \{solve(subs(x=x0, f))\} do\nif simplify(subs(x=x 0, y=y0, g)) = 0 then print([x0, y0]) fi\nod\nod;" }}}{EXCHG {PARA 0 " > " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "1 0 0" 21 }{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }