{VERSION 6 0 "IBM INTEL NT" "6.0" } {USTYLETAB {CSTYLE "Maple Input" -1 0 "Courier" 0 1 255 0 0 1 0 1 0 0 1 0 0 0 0 1 }{CSTYLE "" -1 256 "" 0 1 0 0 0 0 0 1 0 0 0 0 0 0 0 0 } {CSTYLE "" -1 257 "" 1 18 0 0 0 0 0 0 0 0 0 0 0 0 0 0 }{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 1 0 1 0 2 2 0 1 }{PSTYLE "Heading 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 1 0 1 0 2 2 0 1 }{PSTYLE "Normal" -1 256 1 {CSTYLE "" -1 -1 "Times" 1 18 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 }{PSTYLE "Normal" -1 257 1 {CSTYLE "" -1 -1 "Times" 1 14 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 0 "> " 0 "" {MPLTEXT 1 0 8 "restart:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{SECT 0 {PARA 3 "" 0 "" {TEXT -1 20 " \316\370\350\341\352\350 \350 \350\361\352\353\376\367\345\355 \350\377" }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 28 "f:=proc(a,b)\n a /b:\nend proc:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 11 "r:=f(1/0) :;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 112 "try\n r:=f(1,0)\ncat ch:\n lastexception:\n error \"\314\373 \357\356\351\354\340\353\350 \+ \375\362\363 \356\370\350\341\352\363: %1\",lasterror\nfinally\n r:=in finity\nend try;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 2 "r;" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 4 "r/2;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 4 "r*0;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 5 "#----" }{TEXT -1 0 "" }{MPLTEXT 1 0 46 "----------------------------- -----------------" }}}{EXCHG {PARA 256 "" 0 "" {TEXT -1 9 " \324\363 \355\352\366\350\377 " }{TEXT 256 10 "timelimit " }{TEXT -1 20 "\350 \+ \360\345\340\353\350\347\340\366\350\377 \362\340\351\354\345\360\340 " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 27 "f:=proc()\n do\n end do :\nend:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "timelimit(1,f()) ;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 204 "Time:=proc(t,Tend,ed) \n local T:\n T:=0;\n do\n try \n timelimit(t,f())\n catch:\n if T>(Tend-1) then\n break \n end if:\n T:=T+1;\n print(cat(con vert(T,string),\" \",ed)):\n end try:\n end do:\nend proc:" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "Time(1,10,\"sec\"):" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 30 "StringTools[FormatTime](\"%X \");" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 48 "old:=time();\n Time(0.1,100 ,\"\"):\nres:=time()-old;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 30 "String Tools[FormatTime](\"%X\");" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 5 "#----" }{TEXT -1 0 "" }{MPLTEXT 1 0 46 "--------------------------- -------------------" }}}{EXCHG {PARA 256 "" 0 "" {TEXT -1 26 " \302 \373\365\356\344 \350\347 \342\353\356\346\345\355\355\356\343\356 \+ \366\350\352\353\340" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 145 "tr y\n for i to 5 do\n for j to 4 do\n if (i=3 and j=2) then\n erro r i:\n #break;\n end if:\n print(i,j):\n end do:\n end do:\nca tch:\nend try;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 38 "print(cat(\"Resul t:\",\" i=\",i,\" j=\",j));" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{SECT 0 {PARA 3 "" 0 "" {TEXT -1 30 " \320\340\341\356\362\340 \361 \340\360\343\363 \354\345\355\362\340\354\350 \357\360\356\366\345\344\363\360" }} {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 123 "f_OKR:=proc()\n global gr_OKR:\n gr_OKR:=CURVES(op([ 1,1],plot([1+2*cos(t),0+2*sin(t),t=0..2*Pi])),COLOR(RGB,1,0,1))\nend p roc:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 131 "f_PS:=proc()\n glo bal gr_PS:\n gr_PS:=POINTS(op(op([1,1],plot([0+1*cos(t),1+1*sin(t),t=0 ..2*Pi]))),COLOR(RGB,0.2,0.5,0.2)):\nend proc:" }}}{EXCHG {PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 8 "f_OKR():" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 7 "f_PS():" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 297 "F:=proc( )\n global gr_OKR,gr_PS:\n if nargs>1 then\n error \"Need only one \+ parameter\":\n return\n end if:\n if args[1]=true then\n PLOT(gr _OKR,gr_PS):\n elif (args[1]=1) then\n PLOT(gr_OKR)\n elif (args[1 ]=2) then\n PLOT(gr_PS)\n else\n error \"Set parameter in true, 1 or 2\"\n end if\nend proc:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 7 "F(1,2);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 25 "# F(true) o r F(1) or F(2)" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "display(F (true));" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 5 "F(1);" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 5 "F(2);" }}}{EXCHG {PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 5 "F(3);" }}}{EXCHG {PARA 256 "" 0 "" {TEXT -1 25 " \317\360\356\342\345\360\352\340 \362\350\357\356\342 \340\360\343 \363\354\345\355\362\340" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 102 "g:=proc(n::integer)\n local i,S:\n S:=0:\n for i from 1 to n do\n S:=S+i^2;\n end do:\n return S:\nend proc:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 5 "g(3);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 7 "g(3.1);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 28 "Lst:=[2.3,7.1 ,-3.4,10,12.9];" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 11 "lst:=[3, 4];" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 126 "SelectSum:=proc(L:: list(realcons),l::list(integer))\n local i,P:\n P:=1;\n for i in l do \n P:=P+L[i]\n end do:\n return P\nend proc:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 19 "SelectSum(Lst,lst);" }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 25 "SelectSum(Lst,[1.2,3.1]);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 27 "SelectSum([a,1.2,3,c],lst);" }}}{EXCHG {PARA 0 " > " 0 "" {MPLTEXT 1 0 31 "SelectSum([I,1.2,3,1+2*I],lst);" }}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{SECT 0 {PARA 3 "" 0 "" {TEXT -1 15 " \316\357\360\345\360\340\362\356\360 use" }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 43 "use f=sin, g=cos in\n f(x)^2+g(x)^2\nend use; " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "m:=Matrix(4,4,(i,j)->i+ j);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 94 "use LinearAlgebra in \n Determinant(m);\n Rank(m);\n CharacteristicPolynomial(m,`lambda`)\n end use;" }}}}{SECT 0 {PARA 3 "" 0 "" {TEXT -1 7 " \314\356\344\363 \353\350" }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "restart:" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 99 "f:=proc()\n local Plus, Minu s:\n Plus:=(a,b)->a+b;\n Minus:=(a,b)->a-b;\n return Plus,Minus\nend proc:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "PM:=f();" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 11 "PM[1](1,2);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 11 "PM[2](1,2);" }}}{EXCHG {PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 178 "F:=module()\n export Plus,Minus:\n descriptio n \"Plus and Minus Module\":\n option `Copyright (c) 2004 MSU All righ ts reserved`:\n Plus:=(a,b)->a+b;\n Minus:=(a,b)->a-b;\nend module :" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "eval(F);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 13 "F:-Plus(1,2);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 14 "F:-Minus(1,2);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 13 "F[Plus](1,2);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 14 "F[Minus](1,2);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 265 " F:=module()\n export Plus,Minus,One,SumOneTwo:\n local Two:\n descript ion \"Plus and Minus Module\":\n option `Copyright (c) 2004 MSU All ri ghts reserved`:\n One:=1;\n Two:=2;\n Plus:=(a,b)->a+b;\n Minu s:=(a,b)->a-b;\n SumOneTwo:=proc() One+Two end proc;\nend module:" } }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 7 "F:-One;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 7 "F:-Two;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "F:-SumOneTwo();" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 10 "F:-One:=0;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 7 "F:-One;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 10 "F:-Two:=3;" } }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "F:-SumOneTwo();" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "F:-Plus(21,11);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "F:-Minus(21,11);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 11 "exports(F);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "member(SumOneTwo,F);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 14 "member(Two,F);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 257 "" 0 "" {TEXT -1 1 " " }{TEXT 257 6 "\317 \360\350\354\345\360" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "rest art:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "with(plots):" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 417 "Point:=proc()\n module()\n \+ export Get,Set,SetColor,Create,Show,Hide;\n local X,Y,Color;\n Get: =proc() [X,Y] end proc:\n Set:=proc(x,y) X:=x: Y:=y end proc:\n SetC olor:=proc(c) Color:=c end proc:\n Create:=proc(x,y,c) X:=x: Y:=y: Co lor:=c end proc:\n Show:=proc() PLOT(POINTS([X,Y],Color,SYMBOL(CIRCLE ,12))) end proc:\n Hide:=proc() PLOT(POINTS([X,Y],COLOR(RGB,1,1,1),SY MBOL(CIRCLE,12))) end proc\n end module:\nend proc:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 94 "macro(Red=COLOR(RGB,1,0,0)):\nmacro(Grey= COLOR(RGB,0.9,0.9,0.9)):\nmacro(Blue=COLOR(RGB,0,0,1)):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 11 "p:=Point():" }{TEXT -1 0 "" }} {PARA 0 "> " 0 "" {MPLTEXT 1 0 19 "p:-Create(1,1,Red):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 11 "q:=Point():" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 24 "q:-Create(1/2,1/2,Blue):" }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 52 "display([p:-Show(),q:-Show()],view=[0..3/2,0..3/2]) ;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 14 "with(Maplets):" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 24 "with(Maplets[Elements]):" }} }{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 31 "P:=Point():\nP:-Create(1,1, Red):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 68 "Show:=proc()\n Map lets:-Tools:-Set('Pl'('value')=P:-Show())\nend proc:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 68 "Hide:=proc()\n Maplets:-Tools:-Set('Pl'(' value')=P:-Hide())\nend proc:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 488 "M:=Maplet(\n Window(\n title=\"Points\",\n menubar='MB',\n l ayout=BoxLayout(\n BoxColumn(\n BoxRow(\n BoxCell(\n Plo tter[Pl]('value'=PLOT(VIEW(0..1.5,0..1.5)))\n )\n ),\n BoxRo w(\n BoxCell(\n Button(\"Show\",onclick=Evaluate(function=\"S how\"))\n ),\n BoxCell(\n Button(\"Hide\",onclick=Evaluat e(function=\"Hide\"))\n ),\n BoxCell(\n Button(\"Close\", onclick=Shutdown())\n )\n )\n )\n )\n ),\n MenuBar[MB](Menu( \"File\", MenuItem(\"Close\", Shutdown())))\n):" }}}{EXCHG {PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 11 "Display(M);" }}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{SECT 0 {PARA 3 "" 0 "" {TEXT -1 42 " \321\356 \365\360\340\355\345\355\350\345 \361\356\347\344\340\355\355\373\365 \+ \350\347\356\341\360\340\346\345\355\350\351 \342 \364\340\351\353\340 \365" }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "restart:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 22 "currentdir(\"E:/Temp\");" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 37 "plotsetup(gif,plotoutput=`pl ot.gif`);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "plot(sin,-4..4 );" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 75 "plotsetup(gif,plotout put=`plotsmall.gif`,plotoptions=`width=30,height=30`);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "plot(sin,-4..4);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 38 "plotsetup(jpeg,plotoutput=`plot.jpg`);" } }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "plot(sin,-4..4);" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 13 "?plot[device]" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 19 "plotsetup(default);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "plot(sin,-4..4);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{SECT 0 {PARA 3 "" 0 "" {TEXT -1 39 " \302\373\357\356\353\355\345\355\350\345 \352 \356\354\340\355\344 \356\357\345\360\340\366\350\356\355\355\356\351 \+ \361\350\361\362\345\354\373" }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "currentdir(\"D:\\\\Temp\");" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "system(\"mkdir D:\\\\temp1\");" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "system(\"rmdir D:\\\\temp1\");" }}}{EXCHG {PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 25 "result := ssystem(\"dir\"):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 14 "print(result);" }}}}{SECT 0 {PARA 3 "" 0 "" {TEXT -1 30 " \317\360\350\354\345\360 \361\356\360\362\350\360\356 \342\352\350 \357\356 \350\355\344\345\352\361\340\354" }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "restart:" }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 78 "Result:=\{a[6]=Pi/2,a[4]=10,a[2]=Pi/2,a0=0,a[7]=Pi/ 4,a[1]=Pi,a[3]=0,a[5]=8/Pi\};" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 163 "MySort:=proc(Result::set)\n local r0;\n r0:=\{a0=subs(Result,a0 )\}:\n [op(Result minus r0)]:\n sort(%,(x,y)->evalb((op(lhs(x)) < op(l hs(y))))):\n [op(r0),op(%)]\nend proc:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "MySort(Result);" }}}{EXCHG }{EXCHG }{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}}{MARK "14" 0 }{VIEWOPTS 1 1 1 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }