{VERSION 3 0 "IBM INTEL NT" "3.0" } {USTYLETAB {CSTYLE "Maple Input" -1 0 "Courier" 0 1 255 0 0 1 0 1 0 0 1 0 0 0 0 }{PSTYLE "Normal" -1 0 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 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 "Heading 1" 0 3 1 {CSTYLE "" -1 -1 "" 1 18 0 0 0 0 0 1 0 0 0 0 0 0 0 }1 0 0 0 8 4 0 0 0 0 0 0 -1 0 }} {SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "restart;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "with(plots):" }}}{EXCHG {PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 86 "polarplot(2/(cos(theta)+2*sin(theta)),theta=-P i/20..Pi/2 + Pi/10,scaling=CONSTRAINED);" }{TEXT -1 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 19 "solve(x+2*y-2=0,y);" }{TEXT -1 0 " " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "f:=unapply(%,x);" } {TEXT -1 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 39 "plot(f(x),x =-1..4,scaling=CONSTRAINED);" }{TEXT -1 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "restart;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "with(plots):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 36 "polarpl ot(csc(theta),theta=-Pi..Pi);" }{TEXT -1 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 57 "polarplot(sin(theta),theta=-Pi..Pi, scaling=CONS TRAINED);" }{TEXT -1 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 " restart;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "with(plots):" } }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "r=2-2*x;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 18 "x^2+y^2=(2-2*x)^2;" }{TEXT -1 0 "" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 13 "p:=expand(%);" }{TEXT -1 0 " " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "lhs(p)-rhs(p)=0;" } {TEXT -1 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "q:=-3*x^2+8 *x-4;" }{TEXT -1 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 25 "exp and(q-(-3)*(x-8/6)^2);" }{TEXT -1 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 24 "(-3)*(x-8/6)^2+y^2=-4/3;" }{TEXT -1 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 35 "(-3)*(x-8/6)^2*(-3/4)+y^2*(-3/4)=1; " }{TEXT -1 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 85 "implicit plot((-3)*(x-8/6)^2*(-3/4)+y^2*(-3/4)=1,x=-1..3,y=-2..2,scaling=CONSTR AINED);" }{TEXT -1 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 106 " a:=polarplot(2/(1+2*cos(theta)),theta=0..Pi, scaling=CONSTRAINED, disc ont = true, view=[-1..1.5,-10..10]):" }{TEXT -1 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 108 "b:=polarplot(2/(1+2*cos(theta)),theta=Pi ..2*Pi, scaling=CONSTRAINED, discont = true, view=[2.5..4,-10..10]):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "display(\{a,b\});" } {TEXT -1 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "restart;" }} }{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "with(plots):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 31 "f:=theta -> 2/(1+2*cos(theta));" } {TEXT -1 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 127 "P := n -> \+ plot( [ seq( [f(i*2*Pi/100),i*2*Pi/100], i=1..n ) ],style=POINT, symbo l=CIRCLE, coords=polar, view=[-2..4,-10..10] ):" }}}{EXCHG {PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 71 "display( [ seq(P(n),n=1..100)], insequence=tru e, scaling=constrained );" }{TEXT -1 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "restart;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "with(plots):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 67 "polarplot( sqrt(3)+2*sin(theta),theta=-Pi..Pi, scaling=CONSTRAINED);" }{TEXT -1 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 59 "polarplot(sin(2*thet a),theta=-Pi..Pi, scaling=CONSTRAINED);" }{TEXT -1 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "restart;" }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 12 "with(plots):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 25 "plot(sin(2*x),x=-Pi..Pi);" }{TEXT -1 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "restart;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "with(plots):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 111 "a:=polarplot(sqrt(sin(2*theta)),theta=-Pi..-Pi/2, discont = tru e, color=blue, scaling=CONSTRAINED,thickness=2):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 108 "b:=polarplot(sqrt(sin(2*theta)),theta=0..Pi/ 2, discont = true, color=blue, scaling=CONSTRAINED,thickness=2):" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "display(\{a,b\});" }{TEXT -1 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "restart;" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "with(plots):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 63 "polarplot(sin(theta/2),theta=-2*Pi. .2*Pi, scaling=CONSTRAINED);" }{TEXT -1 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "restart;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "with(plots):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 101 "a:=pol arplot(-sqrt(theta),theta=0..4*Pi, discont = true, color=red, scaling= CONSTRAINED,thickness=2):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 101 "b:=polarplot(sqrt(theta),theta=0..4*Pi, discont = true, color=blu e, scaling=CONSTRAINED,thickness=2):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "display(\{a,b\});" }{TEXT -1 0 "" }}}{EXCHG {PARA 0 " > " 0 "" {MPLTEXT 1 0 8 "restart;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "with(plots):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{SECT 1 {PARA 3 "" 0 "" {TEXT -1 18 "Defining a fuction" }} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 242 "FCT:= proc(x)\n if type(x, numeric) then\n if x <= -Pi then 0; \n elif x <= -Pi/2 then e valf(sqrt(sin(2*x)));\n elif x <= 0 then 0;\n elif x <= Pi/2 t hen evalf(sqrt(sin(2*x)));\n else 0;\n fi;\n else\n 'FCT'( x);\n fi;\nend:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 32 "polarpl ot([FCT(x),x],x=-pi..Pi);" }}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "0 0 0" 0 }{VIEWOPTS 1 1 0 1 1 1803 }