{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 "2D Math" -1 2 "Times" 0 1 0 0 0 0 0 0 2 0 0 0 0 0 0 1 }{CSTYLE "2D Output" 2 20 "" 0 1 0 0 255 1 0 0 0 0 0 0 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 1 0 1 0 2 2 0 1 }{PSTYLE "Warning" -1 7 1 {CSTYLE "" -1 -1 "Courier" 1 10 0 0 255 1 2 2 2 2 2 1 1 1 3 1 }1 1 0 0 0 0 1 0 1 0 2 2 0 1 }{PSTYLE "Maple Output" -1 11 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 1 1 1 }3 3 0 0 0 0 1 0 1 0 2 2 0 1 }{PSTYLE "Maple Output" -1 12 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 1 1 1 }1 3 0 0 0 0 1 0 1 0 2 2 0 1 }} {SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 9 "restart: " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 11 "with(Plot):" }}}{EXCHG {PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 6009 "with(Maplets[Elements]):\n\nmegaplot:=proc() ::integer;\nPLOT1;PLOT2;PLOT3;PLOT4;\ncolor1;color2;color3;color4;\nax es1;axes2;axes3;axes4;\ncolor1:=Maplets:-Tools:-Get('DDB1');\naxes1:=M aplets:-Tools:-Get('CB1');\nPLOT1:=op(1,op(1,plot(Maplets:-Tools:-Get( 'TF1'::algebraic,corrections),x=Maplets:-Tools:-Get('R1'::range,correc tions),axes=none)));if(Maplets:-Tools:-Get('RB2'('value')::boolean))th en \nPLOT2:=op(1,op(1,plot(Maplets:-Tools:-Get('TF2'::algebraic,corre ctions),x=Maplets:-Tools:-Get('R2'::range,corrections)))); color2:=Map lets:-Tools:-Get('DDB2');\n axes2:=Maplets:-Tools:-Get('CB2');\nend if ;\nif(Maplets:-Tools:-Get('RB3'('value')::boolean))then\nPLOT2:=op(1,o p(1,plot(Maplets:-Tools:-Get('TF2'::algebraic,corrections),x=Maplets:- Tools:-Get('R2'::range,corrections))));PLOT3:=op(1,op(1,plot(Maplets:- Tools:-Get('TF3'::algebraic,corrections),x=Maplets:-Tools:-Get('R3'::r ange,corrections))));PLOT4:=op(1,op(1,plot(Maplets:-Tools:-Get('TF4':: algebraic,corrections),x=Maplets:-Tools:-Get('R4'::range,corrections)) )); color2:=Maplets:-Tools:-Get('DDB2');\n color3:=Maplets:-Tools:-G et('DDB3');\n color4:=Maplets:-Tools:-Get('DDB4');\n axes2:=Maplets: -Tools:-Get('CB2');\n axes3:=Maplets:-Tools:-Get('CB3');\n axes4:=Ma plets:-Tools:-Get('CB4');\n end if;\n#print(PLOT1);\n#print(PLOT2);\n# print(PLOT3);\n#print(PLOT4);\nif(Maplets:-Tools:-Get('RB2'('value'):: boolean))then\nMaplets:-Tools:-Set(PL1('value')=PLOT(CURVES(PLOT1),CUR VES(PLOT2),COLOR(PLOT3),CURVES(PLOT4),CURVES([[0,-10],[0,10]]),AXESSTY LE(none),COLOUR(GREEN)));\nend if;\nif(Maplets:-Tools:-Get('RB3'('valu e')::boolean))then\nplotter\nend if;\nend proc;\n\nqty:=proc(c::intege r)::integer;\n if (c=1) then \n plots_qty:=1;\n Maplets:-Tools:-Set( 'TF2'('visible') = false);\n Maplets:-Tools:-Set('TF3'('visible') = f alse);\n Maplets:-Tools:-Set('TF4'('visible') = false); \n Maplets:- Tools:-Set('CB2'('visible') = false);\n Maplets:-Tools:-Set('CB3'('vi sible') = false);\n Maplets:-Tools:-Set('CB4'('visible') = false);\n \+ Maplets:-Tools:-Set('DDB2'('visible') = false);\n Maplets:-Tools:-Se t('DDB3'('visible') = false);\n Maplets:-Tools:-Set('DDB4'('visible') = false); \n Maplets:-Tools:-Set('R2'('visible') = false);\n Maplet s:-Tools:-Set('R3'('visible') = false);\n Maplets:-Tools:-Set('R4'('v isible') = false) \n end if;\n if (c=2) then \n plots_qty:=2;\n Mapl ets:-Tools:-Set('TF2'('visible') = true);\n Maplets:-Tools:-Set('TF3' ('visible') = false);\n Maplets:-Tools:-Set('TF4'('visible') = false) ; \n Maplets:-Tools:-Set('CB2'('visible') = true);\n Maplets:-Tools: -Set('CB3'('visible') = false);\n Maplets:-Tools:-Set('CB4'('visible' ) = false);\n Maplets:-Tools:-Set('DDB2'('visible') = true);\n Maple ts:-Tools:-Set('DDB3'('visible') = false);\n Maplets:-Tools:-Set('DDB 4'('visible') = false); \n Maplets:-Tools:-Set('R2'('visible') = true );\n Maplets:-Tools:-Set('R3'('visible') = false);\n Maplets:-Tools: -Set('R4'('visible') = false) \n end if;\n if (c=4) then \n plots_qty :=4; \n Maplets:-Tools:-Set('TF2'('visible') = true);\n Maplets:-Too ls:-Set('TF3'('visible') = true);\n Maplets:-Tools:-Set('TF4'('visibl e') = true); \n Maplets:-Tools:-Set('CB2'('visible') = true);\n Mapl ets:-Tools:-Set('CB3'('visible') = true);\n Maplets:-Tools:-Set('CB4' ('visible') = true);\n Maplets:-Tools:-Set('DDB2'('visible') = true); \n Maplets:-Tools:-Set('DDB3'('visible') = true);\n Maplets:-Tools:- Set('DDB4'('visible') = true); \n Maplets:-Tools:-Set('R2'('visible') = true);\n Maplets:-Tools:-Set('R3'('visible') = true);\n Maplets:- Tools:-Set('R4'('visible') = true) \n end if;\nend proc;\n\nmaplet2d : = Maplet(Window('menubar'='MB1',layout=BoxLayout(\n BoxColumn(border =true,\n BoxRow(\nBoxCell(halign=left,\"Select Plots Qty:\"),\nBoxC ell(RadioButton['RB1'](\"1\", 'value'=true, 'group'='BG1','onclick' = \+ Evaluate('function'=\"qty(1)\"))),\nBoxCell(RadioButton['RB2'](\"2\", \+ 'value'=false, 'group'='BG1','onclick' = Evaluate('function'=\"qty(2) \"))),\nBoxCell(RadioButton['RB3'](\"4\", 'value'=false, 'group'='BG1' ,'onclick' = Evaluate('function'=\"qty(4)\")))),\n BoxRow(\nBoxCell (halign=left,\"Functions of 'x':\"),\nBoxCell(halign=right,\"Axes:\"), \nBoxCell(halign=center,\"Plot Color:\"),\nBoxCell(halign=center,\"Ran ges:\")),\n BoxRow(\nBoxCell(halign=right, TextField['TF1'](\"\")), \nBoxCell(CheckBox['CB1'](caption=\"axes\")),\nBoxCell(DropDownBox['DD B1'](\"Green\",sort([\"Red\",\"Green\",\"Blue\",\"Yellow\"],lexorder)) ),\nBoxCell(TextField['R1'](\"\"))),\n BoxRow(\nBoxCell(halign=righ t, TextField['TF2'](\"\",visible=false)),\nBoxCell(CheckBox['CB2'](cap tion=\"axes\",visible=false)),\nBoxCell(DropDownBox['DDB2'](\"Red\",so rt([\"Red\",\"Green\",\"Blue\",\"Yellow\"],lexorder),visible=false)), \nBoxCell(TextField['R2'](\"\",visible=false))),\n BoxRow(\nBoxCell (halign=right, TextField['TF3'](\"\",visible=false)),\nBoxCell(CheckBo x['CB3'](caption=\"axes\",visible=false)),\nBoxCell(DropDownBox['DDB3' ](\"Blue\",sort([\"Red\",\"Green\",\"Blue\",\"Yellow\"],lexorder),visi ble=false)),\nBoxCell(TextField['R3'](\"\",visible=false))),\n BoxR ow(\nBoxCell(halign=right, TextField['TF4'](\"\",visible=false)),\nBox Cell(CheckBox['CB4'](caption=\"axes\",visible=false)),\nBoxCell(DropDo wnBox['DDB4'](\"Yellow\",sort([\"Red\",\"Green\",\"Blue\",\"Yellow\"], lexorder),visible=false)),\nBoxCell(TextField['R4'](\"\",visible=false ))),\n BoxRow(\nBoxCell(\nPlotter['PL1']())),\n BoxRow(\nBoxCell (halign=left,Button(\"Plot\", Evaluate('function'=\"megaplot()\"))),\n BoxCell(halign=right,Button(\"OK\", Shutdown('a'))))\n))),\n\n#Evaluat e('PL1' = 'plot(TF1,x=R1)')\n\nMenuBar['MB1'](\n Menu(\"File\", M enuItem(\"Close\", Shutdown(\"Closed from menu\"))),Menu(\"Help\", Men uItem(\"About\", RunWindow(About)),MenuItem(\"Help\", RunWindow(About) ))),\n####About Window####\nWindow[About](\n title=\"About...\",heigh t=200,width=400,\n layout=BoxLayout(\n BoxColumn(\n BoxRow(borde r=true,\n BoxCell(\"This programm was designed by Elendil\")),\n \+ BoxRow(\n BoxCell(Label(Image(\"C:\\\\image.jpg\")))),\n BoxR ow(\n BoxCell(\n Button[About_Close](\n caption=\"Close \", onclick=CloseWindow(About)\n )\n )\n )\n )\n ) \n ) ,\nButtonGroup['BG1']()\n):\nresult := Maplets[Display](maplet2d);" }} {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }{TEXT -1 0 "" }}{PARA 7 "" 1 "" {TEXT -1 71 "Warning, `color1` is implicitly declared local to procedu re `megaplot`\n" }}{PARA 7 "" 1 "" {TEXT -1 70 "Warning, `axes1` is im plicitly declared local to procedure `megaplot`\n" }}{PARA 7 "" 1 "" {TEXT -1 70 "Warning, `PLOT1` is implicitly declared local to procedur e `megaplot`\n" }}{PARA 7 "" 1 "" {TEXT -1 70 "Warning, `PLOT2` is imp licitly declared local to procedure `megaplot`\n" }}{PARA 7 "" 1 "" {TEXT -1 71 "Warning, `color2` is implicitly declared local to procedu re `megaplot`\n" }}{PARA 7 "" 1 "" {TEXT -1 70 "Warning, `axes2` is im plicitly declared local to procedure `megaplot`\n" }}{PARA 7 "" 1 "" {TEXT -1 70 "Warning, `PLOT3` is implicitly declared local to procedur e `megaplot`\n" }}{PARA 7 "" 1 "" {TEXT -1 70 "Warning, `PLOT4` is imp licitly declared local to procedure `megaplot`\n" }}{PARA 7 "" 1 "" {TEXT -1 71 "Warning, `color3` is implicitly declared local to procedu re `megaplot`\n" }}{PARA 7 "" 1 "" {TEXT -1 71 "Warning, `color4` is i mplicitly declared local to procedure `megaplot`\n" }}{PARA 7 "" 1 "" {TEXT -1 70 "Warning, `axes3` is implicitly declared local to procedur e `megaplot`\n" }}{PARA 7 "" 1 "" {TEXT -1 70 "Warning, `axes4` is imp licitly declared local to procedure `megaplot`\n" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%)megaplotGf+6\"6.%'color1G%&axes1G%&PLOT1G%&PLOT2G%'c olor2G%&axes2G%&PLOT3G%&PLOT4G%'color3G%'color4G%&axes3G%&axes4GF&F&C5 8&8'8*8+8$8(8,8-8%8)8.8/>F9-__%(MapletsG%&ToolsG%$GetG6#.%%DDB1G>F=-FC 6#.%$CB1G>F5-%#opG6$\"\"\"-FR6$FT-%%plotG6%-FC6$'.%$TF1G%*algebraicG%, correctionsG/%\"xG-FC6$'.%#R1G%&rangeGFjn/%%axesG%%noneG@$-FC6#'-.%$RB 2G6#.%&valueG%(booleanGC%>F6-FR6$FT-FR6$FT-FX6$-FC6$'.%$TF2GFinFjn/F\\ o-FC6$'.%#R2GFboFjn>F:-FC6#.%%DDB2G>F>-FC6#.%$CB2G@$-FC6#'-.%$RB3GF]pF `pC+>F6Fcp>F7-FR6$FT-FR6$FT-FX6$-FC6$'.%$TF3GFinFjn/F\\o-FC6$'.%#R3GFb oFjn>F8-FR6$FT-FR6$FT-FX6$-FC6$'.%$TF4GFinFjn/F\\o-FC6$'.%#R4GFboFjn>F :Feq>F;-FC6#.%%DDB3G>F<-FC6#.%%DDB4G>F>Fjq>F?-FC6#.%$CB3G>F@-FC6#.%$CB 4G@$Fgo-_FD%$SetG6#/-%$PL1GF]p-%%PLOTG6)-%'CURVESG6#F5-F]w6#F6-%&COLOR G6#F7-F]w6#F8-F]w6#7$7$\"\"!!#57$Fjw\"#5-%*AXESSTYLEG6#Feo-%'COLOURG6# %&GREENG@$F_r%(plotterGF&F&F&%(integerG" }}{PARA 7 "" 1 "" {TEXT -1 69 "Warning, `plots_qty` is implicitly declared local to procedure `qt y`\n" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$qtyGf+6#'%\"cG%(integerG6#% *plots_qtyG6\"F,C%@$/9$\"\"\"C/>8$F1-__%(MapletsG%&ToolsG%$SetG6#/-.%$ TF2G6#.%(visibleG%&falseG-F66#/-.%$TF3GF@FC-F66#/-.%$TF4GF@FC-F66#/-.% $CB2GF@FC-F66#/-.%$CB3GF@FC-F66#/-.%$CB4GF@FC-F66#/-.%%DDB2GF@FC-F66#/ -.%%DDB3GF@FC-F66#/-.%%DDB4GF@FC-F66#/-.%#R2GF@FC-F66#/-.%#R3GF@FC-F66 #/-.%#R4GF@FC@$/F0\"\"#C/>F4Fbq-F66#/F=%%trueGFDFJ-F66#/FSFhqFVFfn-F66 #/F_oFhqFboFho-F66#/FapFhqFdpFjp@$/F0\"\"%C/>F4FdrFeq-F66#/FGFhq-F66#/ FMFhqFiq-F66#/FYFhq-F66#/FinFhqF\\r-F66#/FeoFhq-F66#/F[pFhqF_r-F66#/Fg pFhq-F66#/F]qFhqF,F,F,F)" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%'resultG 6\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }{XPPMATH 20 "6#>% \"aG-%/INTERFACE_PLOTG6%-%'CURVESG6$7bp7$$\"\"!F.F-7$$\"3GLLL3x&)*3\"! #=$\"3s-w#GX,x3\"F27$$\"3emmm;arz@F2$\"3#omk:3'\\i@F27$$\"3v***\\7y%*z 7$F2$\"3[5PuXZBxIF27$$\"3[LL$e9ui2%F2$\"3Y%>(=1EKkRF27$$\"3nmmm\"z_\"4 iF2$\"3!et=0V)zc;***F27$$\"3%om;zR'ok;FQ$\"3yv)3Dkbf&**F27$ $\"3OLL3_(>/x\"FQ$\"3YD_%>A89!)*F27$$\"33++D1J:w=FQ$\"3:bBEMvRP&*F27$$ \"3+n;HdG\"\\)>FQ$\"3IhFB$p@Z:*F27$$\"3oLLL3En$4#FQ$\"3)4J8vCkQm)F27$$ \"3#pmmT!RE&G#FQ$\"3A'y&=(*>UavF27$$\"3D+++D.&4]#FQ$\"3[Ywmr_5xfF27$$ \"3?+++]jB4EFQ$\"3I(*3>8(\\c2&F27$$\"3;+++vB__d.-P@F27 $$\"3pL$eky#*4-$FQ$\"3$yDI)*QxI?\"F27$$\"3&om;z*ev:JFQ$\"3Wz2mE\")Q$e# !#>7$$\"3>+]7.%Q%GKFQ$!350zC#HiOn)F]t7$$\"3_LLL347TLFQ$!3=h!o%p'p?)>F2 7$$\"3#QLL3xxlV$FQ$!3)Q!=Q-hD2HF27$$\"3nLLLLY.KNFQ$!3:ewW!prf!QF27$$\" 33++D\"o7Tv$FQ$!3ku9$eu6$\\dF27$$\"3?LLL$Q*o]RFQ$!3(3plbvSmB(F27$$\"3m ++D\"=lj;%FQ$!3ivrBn3'fa)F27$$\"3S++vV&R4hG(*F27$$\"3CML$e9Ege%FQ$!31\"HW$[$o-#**F27$$\"3hL3F W;ANYFQ$!39FK4$yS-(**F27$$\"3'QL3F9UV&f@v**F27$$\"3/+](=7 O*))[FQ$!3t'*RX0*fX%)*F27$$\"3emm;/T1&*\\FQ$!3-8VK[r7.'*F27$$\"3Vm;/^7 I0^FQ$!3yAnMw#zzB*F27$$\"3=nm\"zRQb@&FQ$!3e`.(*3Iog()F27$$\"3:++v=>Y2a FQ$!3Ys&>3\"*p+o(F27$$\"3Znm;zXu9cFQ$!3[e$[XTIw>'F27$$\"3yLLe9i\"=s&FQ $!3-OkE/nXB`F27$$\"34+++]y))GeFQ$!3]kkp&Q6$)Q%F27$$\"3k++DcljLfFQ$!3me )\\\\\")QZU$F27$$\"3H++]i_QQgFQ$!3S^C@eLiBCF27$$\"3U+](=-N(RhFQ$!3bg=t \\!)eH9F27$$\"3b++D\"y%3TiFQ$!3YAva:!4)3UF]t7$$\"3G+]P4kh`jFQ$\"3!R40^ s)GPqF]t7$$\"3+++]P![hY'FQ$\"3XJ%4'pkV>=F27$$\"3KmmT5FEnlFQ$\"3+L>G5&> F!GF27$$\"3iKLL$Qx$omFQ$\"3CT&opXrtv$F27$$\"3Y+++v.I%)oFQ$\"3Wf1etUibc F27$$\"3?mm\"zpe*zqFQ$\"3]yt\"GgV5:(F27$$\"3;,++D\\'QH(FQ$\"3#39p/6J>Z )F27$$\"3%HL$e9S8&\\(FQ$\"3)*e%p:c@IO*F27$$\"3%om;/6E.g(FQ$\"3G#GQ,f:+ o*F27$$\"3s++D1#=bq(FQ$\"3mi/mI`***))*F27$$\"3yL3xc/%pv(FQ$\"3-&*Q\"z) >&H&**F27$$\"3#om\"H2FO3yFQ$\"37Rn1sjf*)**F27$$\"3')*\\7y&\\yfyFQ$\"33 dZj2;$)****F27$$\"3\"HLL$3s?6zFQ$\"35k:3O1j$)**F27$$\"3!*)\\i!R:/lzFQ$ \"3]=Q%4&=RQ**F27$$\"3yl;zpe()=!)FQ$\"3)p4G%=sNk)*F27$$\"3mK3_+-rs!)FQ $\"31/@4\\7uh(*F27$$\"3a***\\7`Wl7)FQ$\"3Ntx1m7%3j*F27$$\"3cL$e*[ACI#) FQ$\"3K&3#QS:X+$*F27$$\"3enmmm*RRL)FQ$\"35TM/J;9q))F27$$\"3%zmmTvJga)F Q$\"3%zM2T<%R*p(F27$$\"3]MLe9tOc()FQ$\"37=j(GL%R(>'F27$$\"3oo;H#e0I&)) FQ$\"3kJvTvOB6aF27$$\"31,++]Qk\\*)FQ$\"3#*>#pz1xXd%F27$$\"3#)omT5ASg!* FQ$\"3#>%*p`)4mjNF27$$\"3![LL3dg6<*FQ$\"3A!Q?&pE24DF27$$\"3K,+voTAq#*F Q$\"3ee82`ARR:F27$$\"3%ymmmw(Gp$*FQ$\"3]#p#QF@ " 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 {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 {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 {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 7 "" 1 "" {TEXT -1 32 "Warnin g, premature end of input\n" }}}}{MARK "2 0 0" 1094 }{VIEWOPTS 1 1 1 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }