{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 "_cstyle2" -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 }} {SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "restart:" }}}{EXCHG } {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 50 "#=========================== ======================" }}}{EXCHG }{EXCHG }{SECT 0 {PARA 3 "" 0 "" {TEXT -1 20 " \320\340\341\356\362\340 \361 \357\356\353\350\355\356 \354\340\354\350" }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 202 22 "poly:= x+x^2-x^3+1-x^4;" }{MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 5 "poly;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 11 "so rt(poly);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 5 "poly;" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 30 "mul_var_poly:=y^3+x^2*y^2+x^ 3;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 25 "sort(mul_var_poly,[x, y]);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 30 "Mul_var_poly:=x^2*y ^2+y^5+x^3;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 25 "sort(Mul_var _poly,[x,y]);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 25 "sort(Mul_v ar_poly,[y,x]);" }}}{EXCHG }{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 40 " big_poly:=x*y+z*x*y+y*x^2-z*y*x^2+x+z*x;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "collect(big_poly,x);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "collect(big_poly,z);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 47 "#==============================================" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "r:=rem(x^3+x+1,x^2+x+1,x);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "q:=quo(x^3+x+1,x^2+x+1,x) ;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 25 "collect((x^2+x+1)*q+r, x);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "divide(x^3-y^3,x-y); " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 19 "rem(x^3-y^3,x-y,x);" }} }{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "poly:=x^2+3*x-4;" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "subs(x=2,poly);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "eval(poly,x=2);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 32 "mul_var_poly:=y^2*x-2*y+x^2*y+1;" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 30 "subs(\{y=1,x=-1\},mul_var_po ly);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 60 "#================== =========================================" }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 26 "poly:=3*z^3-z^2+2*z-3*z+1;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "coeff(poly,z^2);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 13 "degree(poly);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "poly:=(x+2)*x^2-x^2*(1+n);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "coeff(poly,x^2);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "new_poly:=collect(poly,x);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "coeff(new_poly,x^2);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 60 "#==================================================== =======" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 37 "poly1:=x^6-x^5-9 *x^4+x^3+20*x^2+12*x;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 14 "fa ctor(poly1);" }}}{EXCHG }{EXCHG }{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 11 "poly2:=x+3;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "poly3: =expand(poly2^6);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 14 "factor (poly3);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "solve(\{poly3=0 \},\{x\});" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "factor(x^3+y^ 3);" }}}{EXCHG }}{EXCHG }{SECT 0 {PARA 3 "" 0 "" {TEXT -1 15 " \317 \360\345\344\345\353\373 \350 \360\377\344\373" }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 53 "#=============================================== =====" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 41 "f:=x->(x^2-2*x+1)/ (x^4+3*x^3-7*x^2+ x+2);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 " Limit(f(x),x=1);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 9 "value(%) ;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "Limit(tan(x),x=Pi/2,le ft);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 9 "value(%);" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 52 "Limit(tan(x),x=Pi/2,left)=li mit(tan(x),x=Pi/2,left);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 27 "Limit(tan(x),x=Pi/2,right);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 9 "value(%);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 22 "f:=x->sin (4*x)*cos(x);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "fs:=series (f(x),x=0);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "p:=convert(f s,polynom);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 61 "plot(\{f(x), p\},x=-1..1,-2..2,title=`sin(4x)cos(x) -- Series`);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 6 "Order;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 10 "Order:=12;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "fs:=series(f(x),x=0);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "p:=convert(fs,polynom);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 100 "plot(\{f(x),p\},x=-1..1,-2..2,\n title=\"sin(4x)cos(x) -- Series Order 12\",titlefont=[TIMES,BOLD,12]);" }}}{EXCHG }{EXCHG }}{EXCHG } {SECT 0 {PARA 3 "" 0 "" {TEXT -1 39 " \310\355\362\345\343\360\350\360 \356\342\340\355\350\345, \344\356\357\356\353\355\350\362\345\353\374 \355\373\345 \363\361\353\356\342\350\377" }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "f:=x->x*sin(a*x)+b*x^2;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 13 "Diff(f(x),x);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 13 "df:=value(%);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 10 "In t(df,x);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 9 "value(%);" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "simplify(%);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "Int(df,x=1..2);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 9 "value(%);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "Int(exp(-x^2),x);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 9 "value(%);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 22 "g:=t->exp(-a*t)*ln(t);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 24 "Int(g(t),t=0..infinity);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 9 "value(%);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "assume(a> 0);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 29 "ans:=Int(g(t),t=0..i nfinity);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 9 "value(%);" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 9 "about(a);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 13 "evalf(gamma);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "ans:=subs(a='a',ans);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 7 "a:='a';" }}}{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 }{EXCHG }{EXCHG }{EXCHG }{EXCHG }{EXCHG }{EXCHG }{EXCHG } {EXCHG }{EXCHG }{EXCHG }{EXCHG }{EXCHG }{EXCHG }{EXCHG }{EXCHG }{SECT 0 {PARA 3 "" 0 "" {TEXT -1 27 " \304\350\364\364\345\360\345\355\366 \350\340\353\374\355\373\345 \363\360\340\342\355\345\355\350\377" }} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 63 "#=========================== ===================================" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 47 "ode1:=\{diff(y(t),t,t)+5*diff(y(t),t)+6*y(t)=0\};" }} }{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "ic:=\{y(0)=0,D(y)(0)=1\};" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 36 "soln:=dsolve(ode1 union i c, \{y(t)\});" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "subs(soln, y(t));" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "y1:=unapply(%,t); " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 6 "y1(a);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "subs(y=y1,ode1);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "eval(%);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 14 "subs(y=y1,ic);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "eval (%);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 44 "#------------------ -------------------------" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 30 "y:=unapply(subs(soln,y(t)),t);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 5 "ode1;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 3 "ic; " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 7 "y:='y';" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 45 "#---------------------------------- ----------" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 52 "ode2:=10^6*di ff(y(x),x,x,x,x)=Dirac(x-2)-Dirac(x-4);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 24 "iv:=y(0)=0,D(D(y))(0)=0;" }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 24 "bc:=y(5)=0,D(D(y))(5)=0;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 34 "soln:=dsolve(\{ode2,bc,iv\},\{y(x)\});" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "subs(soln,y(x)):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "y:=unapply(%,x);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 5 "ode2;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "simplify(%);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 3 "iv;" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 3 "bc;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 71 "plot(y(x),x=-1..6,axes=BOXED,\n title=`Solution to a a 4th Order BVP`);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 7 " y:='y';" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 50 "de_sys:=\{diff(y (x),x,x)=z(x),diff(z(x),x,x)=y(x)\};" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 33 "soln:=dsolve(de_sys,\{z(x),y(x)\});" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 30 "y:=unapply(subs(soln,y(x)),x);" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "y(1); evalf(%);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 7 "y:='y';" }}}{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 7 " \+ \317\340\352\345\362\373" }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 59 " #==========================================================" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 14 "with(student);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 22 "distance([1,1],[3,4]);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 31 "student[distance]([1,1],[3,4]);" }} }{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 46 "with(student,distance);\ndi stance([1,1],[3,4]);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 40 "#-- -------------------------------------" }}}{EXCHG {PARA 200 "> " 0 "" {MPLTEXT 1 202 6 "?with;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 202 40 "#---------------------------------------" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 14 "with(student):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "f:=x->-2/3*x^2+x;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "(f(x+h)-f(x))/h;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 13 "Limit(%,h=0);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 9 "value(%);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "subs(x= 0,%);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 68 "showtangent(f(x),x =0,scaling=constrained,view=-10..10,ytickmarks=4);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 22 "intercept(y=f(x),y=0);" }}}{EXCHG {PARA 0 " > " 0 "" {MPLTEXT 1 0 25 "middlebox(f(x),x=0..3/2);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 28 "middlebox(f(x),x=0..3/2,10);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 28 "middlesum(f(x),x=0..3/2,10);" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 19 "value(%); evalf(%);" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 27 "middlesum(f(x),x=0..3/2,n); " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "Limit(%,n=infinity);" } }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 19 "value(%); evalf(%);" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 19 "Int(f(x),x=0..3/2);" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 9 "value(%);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 25 "interface(verboseproc=2);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "eval(middlebox);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 25 "interface(verboseproc=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 }}{MARK "152" 0 }{VIEWOPTS 1 1 1 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }