{VERSION 6 0 "IBM INTEL NT" "6.0" } {USTYLETAB {CSTYLE "Maple Input" -1 0 "Courier" 0 1 255 0 0 1 0 1 0 2 1 2 0 0 0 1 }{CSTYLE "_cstyle1" -1 202 "Courier" 1 12 255 0 0 1 2 1 2 2 1 2 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 2 0 2 0 2 2 0 1 }{PSTYLE "Hea ding 1" -1 3 1 {CSTYLE "" -1 -1 "Times" 1 18 0 0 0 1 2 1 2 2 2 2 1 1 1 1 }1 1 0 0 8 4 2 0 2 0 2 2 0 1 }{PSTYLE "_pstyle1" -1 200 1 {CSTYLE "" -1 -1 "Courier" 1 12 255 0 0 1 2 1 2 2 1 2 1 1 1 1 }1 1 0 0 0 0 2 0 2 0 2 2 0 1 }{PSTYLE "_pstyle4" -1 203 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 }} {SECT 0 {EXCHG {PARA 200 "> " 0 "" {MPLTEXT 1 202 8 "restart:" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{SECT 0 {PARA 3 "" 0 "" {TEXT -1 19 " \317\360\350\354\345\360 \361 \340\355\350\354\340\366 \350\345\351" }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 71 "#=========== ===========================================================" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 18 "f:=x->exp(sin(x));" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 6 "x0:=1;" }}}{EXCHG {PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 15 "p0:=[x0,f(x0)];" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 19 "p1:=[x0+h,f(x0+h)];" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 14 "with(student):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "m:=slope(p0,p1);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "subs(h=1,m);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 9 "evalf(%);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 35 "h_values:=[seq(1/(i^1/2), i=1..30)];" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 25 "seq(evalf(m), h=h_values);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "y-p0[2]=m*( x-p0[1]);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 13 "isolate(%,y); " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "secant:=unapply(rhs(%), x);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 138 "S:=seq(plot([f(x),s ecant(x)],x=0..4,\n view=[0..4,0..4],color=[red,blue],\n t itle=convert(evalf(m),string)),\n h=h_values):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "with(plots):" }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 44 "display(S,insequence=true,view=[0..4,0..4]);" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 13 "Limit(m,h=0);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 9 "value(%);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 9 "evalf(%);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 13 "diff(f(x),x);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "f1:= unapply(%,x);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 7 "f1(x0);" }} }{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "diff(f(x),x,x);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "f2:=unapply(%,x);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 33 "plot([f(x),f1(x),f2(x)],x=0..10);" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 24 "sol:=\{solve(f2(x)=0,x)\};" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 11 "evalf(sol);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 58 "evalf(arctan(-1/2-1/2*5^(1/2),-1/2* (-2-2*5^(1/2))^(1/2)));" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 31 " per:=select(type,sol,realcons);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 11 "evalf(per);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 22 "\{se q([x,f(x)],x=per)\};" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 9 "eval f(%);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 71 "#================= =====================================================" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "f:=x->sin(x)+1/2;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 14 "with(student):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 24 "leftbox(f(x),x=0..10,6);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 24 "leftsum(f(x),x=0..10,6);" }}}{EXCHG {PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 9 "evalf(%);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "boxes:=[seq(i^2,i=3..14)];" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 44 "seq(evalf(leftsum(f(x),x=0..10,n)),n=boxes);" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 109 "S:=seq(leftbox(f(x),x=0..10 ,n,\n title=convert(evalf(leftsum(f(x),x=0..10,n)),string)),\n \+ n=boxes):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "with(plot s):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 27 "display(S,insequence =true);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 18 "Int(f(x),x=0..10 );" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 9 "value(%);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 9 "evalf(%);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "Int(f(x),x);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 9 "value(%);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "F:=unapply(%,x);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 11 "F(x )- F(0);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "F:=unapply(%,x) ;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 11 "F(10)-F(0);" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 76 "display([plot(F(x),x=0..10,c olor=blue),\n leftbox(f(x),x=0..10,14)]);" }}}{EXCHG {PARA 0 " > " 0 "" {MPLTEXT 1 0 26 "# \327\350\361\353\345\355\355\356\345 \350 \355\362\345\343\360\350\360\356\342\340\355\350\345" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 24 "int(exp(sin(x)),x=0..1);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 31 "evalf(int(exp(sin(x)),x=0..1));" }} }{EXCHG }{EXCHG }}{EXCHG }{EXCHG }{EXCHG }{EXCHG }{EXCHG }{EXCHG } {EXCHG }{EXCHG }{EXCHG }{EXCHG }{EXCHG }{EXCHG }{EXCHG }{EXCHG } {EXCHG }{EXCHG }{EXCHG }{EXCHG }{EXCHG }{EXCHG }{EXCHG }{EXCHG } {EXCHG }{EXCHG }{EXCHG }{EXCHG }{EXCHG }{EXCHG }{EXCHG }{EXCHG } {EXCHG }{EXCHG }{EXCHG }{EXCHG }{EXCHG }{EXCHG }{EXCHG }{EXCHG } {EXCHG }{EXCHG }{EXCHG }{EXCHG }{EXCHG }{EXCHG }{EXCHG }{EXCHG } {EXCHG }{EXCHG }{EXCHG }{EXCHG }{EXCHG }{EXCHG }{EXCHG }{EXCHG } {EXCHG }{EXCHG }{EXCHG }{EXCHG }{EXCHG }{EXCHG }{SECT 0 {PARA 3 "" 0 " " {TEXT -1 12 " \320\377\344 \322\345\351\353\356\360\340" }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "restart:" }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 17 "taylor(f(x),x=a);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 19 "taylor(1/x,x=1, 3);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 18 "series(1/x,x=1,3);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 24 "taylor(1/x+sin(x), x=0);" }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 24 "series(1/x+sin(x), x=0);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 18 "f:=x->exp(sin(x));" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 6 "a:=Pi;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "t aylor(f(x),x=a);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 25 "poly:=c onvert(%,polynom);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 58 "plot( [f(x),poly],x=0..10,view=[0..10,0..3],numpoints=100);" }}}{EXCHG }} {EXCHG }{EXCHG }{EXCHG }{EXCHG }{EXCHG }{EXCHG }{SECT 0 {PARA 3 "" 0 " " {TEXT -1 51 " \320\345\370\345\355\350\345 \344\350\364\364\345\360 \345\355\366\350\340\353\374\355\373\365 \363\360\340\342\355\345\355 \350\351 \361 \357\356\354\356\371\374\376 \360\377\344\356\342" }} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "restart:" }}}{EXCHG {PARA 0 " > " 0 "" {MPLTEXT 1 0 43 "eq:=2*x*diff(y(x),x$2)+diff(y(x),x)+y(x)=0; " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "dsolve(\{eq\},\{y(x)\}) ;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 32 "dsolve(\{eq\},\{y(x)\} ,type=series);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 13 "subs(%,y( x));" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 25 "poly:=convert(%,pol ynom);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "[seq(_C1=i,i=0..5 )];" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "map(subs,%,_C2=1,pol y);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "plot(%,x=1..10);" }} }{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 63 "#-------------------------- ------------------------------------" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "restart:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "taylor(f(t),t);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 30 "eq:=D(t heta)=-1/10*(theta-20);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 18 " ini:=theta(0)=100;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 6 "Order; " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 19 "dev_order:=Order-1;" }} }{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 46 "S:=seq((D@@(dev_order-n))(e q),n=1..dev_order);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 5 "S[3]; " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 22 "lhs(%)=subs(S,rhs(%)); " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 37 "L:=map(z->lhs(z)=subs(S ,rhs(z)),[S]);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 5 "L(0);" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 22 "T:=taylor(theta(t),t);" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 13 "subs(L(0),T);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "subs(ini,%);" }}}{EXCHG {PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 22 "p:=convert(%,polynom);" }}}{EXCHG {PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 16 "plot(p,t=0..30);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 14 "eq; eq(theta);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 31 "dsolve(\{eq(t),ini\},\{theta(t)\});" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 10 "q:=rhs(%);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "plot([p,q],t=0..30);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 68 "#=============================================================== ====" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "with(powseries);" } }}{EXCHG }{EXCHG }{EXCHG }{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 25 "eq n:=convert(eq(t),diff);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 4 "i ni;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "a:=powsolve(\{eqn,in i\});" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 28 "Sum(a(n)*x^n,n=0.. infinity);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 5 "a(0);" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 6 "a(_k);" }}}{EXCHG {PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 5 "a(k);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 13 "tpsform(a,x);" }}}{EXCHG }{EXCHG }}{EXCHG }{EXCHG }{EXCHG } {EXCHG }{EXCHG }{EXCHG }{EXCHG }{EXCHG }{EXCHG }{EXCHG }{EXCHG } {EXCHG }{EXCHG }{EXCHG }{EXCHG }{EXCHG }{EXCHG }{EXCHG }{EXCHG } {EXCHG }{EXCHG }{EXCHG }{EXCHG }{EXCHG }{EXCHG }{EXCHG }{EXCHG } {EXCHG }{EXCHG }{EXCHG }{EXCHG }{EXCHG }{EXCHG }{EXCHG }{EXCHG } {EXCHG }{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{SECT 0 {PARA 3 "" 0 "" {TEXT -1 52 " \327\350\361\353\345\355\355\356\345 \350\355 \362\345\343\360\350\360\356\342\340\355\350\345 \344\350\364\364\345 \360\345\355\366\350\340\353\374\355\373\372 \363\360\340\342\355\345 \355\350\351" }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "restart:" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "eq:=x(t)*diff(x(t),t)=t^2;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "ini:=x(1)=2;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 42 "sol:=dsolve(\{eq,ini\},\{x(t)\},typ e=numeric);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 14 "sol(1);sol(0 );" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 18 "subs(sol(1),x(t));" } }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 22 "subs(sol(0),[t,x(t)]);" }} }{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "with(plots):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 28 "odeplot(sol,[t,x(t)],-1..2);" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 52 "eq1:=diff(x(t),t)=y(t);\neq2 :=diff(y(t),t)=x(t)+y(t);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 19 "ini:=x(0)=2,y(0)=1;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 53 " sol1:=dsolve(\{eq1,eq2,ini\},\{x(t),y(t)\},type=numeric);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "sol1(0);" }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 8 "sol1(1);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 45 "odeplot(sol1,[x(t),y(t)],-3..1,labels=[x,y]);" }}}{EXCHG {PARA 0 " > " 0 "" {MPLTEXT 1 0 60 "odeplot(sol1,[t,x(t),y(t)],-3..1,labels=[t,x ,y],axes=boxed);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 28 "eq:=dif f(y(x),x)=1-2*x*y(x);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "in i:=y(0)=0;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 31 "exact:=dsolve (\{eq,ini\},\{y(x)\});" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 48 "p lot(rhs(exact),x=-5..5,title=`Exact Solution`);" }}}{EXCHG {PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 39 "se:=plot(rhs(exact),x=-5..5,color=red):" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 45 "approx:=dsolve(\{eq,ini\},\{ y(x)\},type=numeric);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 99 "od eplot(approx,[x,y(x)],-5..5,view=[-5..5,-0.6..0.6],\n title=`Nu meric Solution`,color=blue);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 46 "sa:=odeplot(approx,[x,y(x)],-5..5,color=blue):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "display(se,sa);" }}}{EXCHG }{EXCHG } {EXCHG }}{EXCHG }{EXCHG }{EXCHG }{EXCHG }{EXCHG }{EXCHG }{EXCHG } {EXCHG }{EXCHG }{EXCHG }{EXCHG }{EXCHG }{EXCHG }{EXCHG }{EXCHG } {EXCHG }{EXCHG }{EXCHG }{EXCHG }{EXCHG }{EXCHG }{EXCHG }{EXCHG } {EXCHG }{EXCHG }{EXCHG }{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}} {SECT 0 {PARA 3 "" 0 "" {TEXT -1 50 " \301\350\341\353\362\356\362\345 \352\340 \360\340\341\356\362\373 \361 \344\350\364\364\345\360\345 \355\366\350\340\353\374\355\373\354\350 \363\360\340\342\355\345\355 \350\377\354\350" }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "restart: " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 57 "ode1:=diff(y(t),t$2)+si n(t)^2*diff(y(t),t)+y(t)=cos(t)^2;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 22 "ic1:=y(0)=1,D(y)(0)=0;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "dsolve(\{ode1,ic1\},\{y(t)\});" }}}{EXCHG {PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 41 "dsolve(\{ode1,ic1\},\{y(t)\},method=laplace); " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 14 "with(DEtools);" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "nops(%);" }}}{EXCHG {PARA 0 " > " 0 "" {MPLTEXT 1 0 32 "DEplot(ode1,y(t),0..20,[[ic1]]);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 45 "DEplot(ode1,y(t),0..20,[[ic1]],step size=0.2);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 22 "ic2:=y(0)=0,D (y)(0)=1;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 51 "DEplot(ode1,y( t),0..20,[[ic1],[ic2]],stepsize=0.2);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 54 "eq1:=diff(y(t),t)+y(t)+x(t)=0;\neq2:=y(t)=diff(x(t),t );" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 42 "ini1:=x(0)=0,y(0)=5; \nini2:=x(0)=0,y(0)=-5;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 52 " DEplot(\{eq1,eq2\},[x(t),y(t)],-5..5,[[ini1],[ini2]]);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 54 "DEplot3d(\{eq1,eq2\},[x(t),y(t)],-5 ..5,[[ini1],[ini2]]);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 92 "eq 1:=diff(x(t),t)=y(t)+z(t);\neq2:=diff(y(t),t)=-x(t)-y(t);\neq3:=diff(z (t),t)=x(t)+y(t)-z(t);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 29 "i ni1:=[x(0)=1,y(0)=0,z(0)=2];" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 30 "ini2:=[x(0)=0,y(0)=2,z(0)=-1];" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 105 "DEplot3d(\{eq1,eq2,eq3\},[x(t),y(t),z(t)],t=0..10,\n [ini1,ini2],stepsize=0.1,orientation=[-171,58]);" }}}{EXCHG } {EXCHG }}{EXCHG }{EXCHG }{EXCHG }{EXCHG }{EXCHG }{EXCHG }{EXCHG } {EXCHG }{EXCHG }{EXCHG }{EXCHG }{EXCHG }{EXCHG }{EXCHG }{EXCHG } {EXCHG }{EXCHG }{EXCHG }{EXCHG }{EXCHG }{EXCHG }{EXCHG }{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{SECT 0 {PARA 3 "" 0 "" {TEXT -1 28 " \323\361\353\356\342\355\373\345 \342\373\360\340\346\345\355\350 \377 \350 \366\350\352\353\373" }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 61 "#============================================================" } }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "restart:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 5 "t:=5;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 63 "if (t<0) then\n u:=-1\nelif (t>0) then\n u:=1\nelse\n u:=0;\nend if; " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 11 "x:=1;\n y:=3;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 38 "z:=`if`(xy,0,1));" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 66 "for i from 500 to 510 while (not isprime(i)) do\n print(i);\nend do;" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 14 "i;\nisprime(i);" }}}{EXCHG } {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 5 "i:=0;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 98 "do\n i:=i+1;\n if(i>10) then\n break\n end if;\n if \+ is(i,even) then\n next\n end if:\n print(i);\nend do:" }}{PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 6 "'i'=i;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 42 "for char in \"Sevastopol\" do\n char;\nend do;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 38 "for char in \"Moscow\" do\n char;\nend do :" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 7 "x:='x':" }}{PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 10 "Seq:=NULL:" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 56 "for term in (x-1)*(x-3)*(x-5) do\n Seq:=Seq,term;\nend do:" }} {PARA 0 "> " 0 "" {MPLTEXT 1 0 4 "Seq;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 0 "" }}}}{EXCHG }{EXCHG }{EXCHG }{EXCHG }{EXCHG } {EXCHG }{EXCHG }{EXCHG }{EXCHG }{EXCHG }{EXCHG }{EXCHG }{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{SECT 0 {PARA 3 "" 0 "" {TEXT -1 38 " \316\361\356\341\345\355\355\356\361\362\350 \357\360\356\343\360\340 \354\354\350\360\356\342\340\355\350\377 \357\360\356\366\345\344\363 \360" }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 32 "#=================== ============" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "restart:" }} }{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 87 "Signum1:=proc(x)\n if (x<0) then\n -1\n elif (x>0) then\n +1\n else\n 0\n end if:\nend proc:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "Signum1(-2);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 11 "Signum1(1);" }}}{EXCHG {PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 11 "Signum1(0);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 11 "Signum1(a);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 170 "Signum2:=proc(x)\n if type(x,numeric) then\n if (x<0) then\n \+ -1\n elif (x>0) then\n +1\n else\n 0\n end if:\n else\n #'Sig num2'(x)\n 'procname'(args):\n end if:\nend proc:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "Signum2(-2);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 11 "Signum2(a);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{EXCHG } {PARA 203 "" 0 "" {TEXT -1 0 "" }}}{MARK "177" 0 }{VIEWOPTS 1 1 1 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }