{VERSION 6 0 "Windows 2000" "6.0" } {USTYLETAB {PSTYLE "Heading 4" -1 20 1 {CSTYLE "" -1 -1 "Times" 1 10 0 0 0 1 1 1 2 2 2 2 1 0 0 1 }1 1 0 0 0 0 2 0 2 0 2 2 -1 1 }{PSTYLE "Ord ered List 5" -1 200 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 0 0 1 }1 1 0 0 3 3 2 144 2 0 2 2 -1 1 }{PSTYLE "Ordered List 1" -1 201 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 0 0 1 }1 1 0 0 3 3 2 0 2 0 2 2 -1 1 }{PSTYLE "Text Output" -1 2 1 {CSTYLE "" -1 -1 "Courier" 1 10 0 0 255 1 2 2 2 2 2 1 1 0 0 1 }1 1 0 0 0 0 2 0 2 0 2 2 -1 1 }{PSTYLE "Bullet Item" -1 15 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 0 0 1 }1 1 0 0 3 3 2 0 2 0 2 2 -1 1 }{PSTYLE "Lef t Justified Maple Output" -1 12 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 0 0 1 }1 1 0 0 0 0 2 0 2 0 2 2 -1 1 }{PSTYLE "Help" -1 10 1 {CSTYLE "" -1 -1 "Courier" 1 9 0 0 255 1 2 2 2 2 2 1 1 0 0 1 }1 1 0 0 0 0 2 0 2 0 2 2 -1 1 }{PSTYLE "Author" -1 19 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 0 0 1 }3 1 0 0 8 8 2 0 2 0 2 2 -1 1 }{PSTYLE "Diagnostic" -1 9 1 {CSTYLE "" -1 -1 "Courier" 1 10 64 128 64 1 2 2 2 2 2 1 1 0 0 1 }1 1 0 0 0 0 2 0 2 0 2 2 -1 1 }{PSTYLE "Headi ng 2" -1 4 1 {CSTYLE "" -1 -1 "Times" 1 14 0 0 0 1 2 1 2 2 2 2 1 0 0 1 }1 1 0 0 8 2 2 0 2 0 2 2 -1 1 }{PSTYLE "Ordered List 3" -1 202 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 0 0 1 }1 1 0 0 3 3 2 72 2 0 2 2 -1 1 }{PSTYLE "Maple Plot" -1 13 1 {CSTYLE "" -1 -1 "Tim es" 1 12 0 0 0 1 2 2 2 2 2 2 1 0 0 1 }3 1 0 0 0 0 2 0 2 0 2 2 -1 1 } {PSTYLE "Normal" -1 0 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 0 0 1 }1 1 0 0 0 0 2 0 2 0 2 2 -1 1 }{PSTYLE "Dash Item" -1 16 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 0 0 1 }1 1 0 0 3 3 2 0 2 0 2 2 -1 1 }{PSTYLE "Heading 3" -1 5 1 {CSTYLE "" -1 -1 "Times " 1 12 0 0 0 1 1 1 2 2 2 2 1 0 0 1 }1 1 0 0 0 0 2 0 2 0 2 2 -1 1 } {PSTYLE "Ordered List 4" -1 203 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 0 0 1 }1 1 0 0 3 3 2 108 2 0 2 2 -1 1 }{PSTYLE "Maple \+ Output" -1 11 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 0 0 1 }3 1 0 0 0 0 2 0 2 0 2 2 -1 1 }{PSTYLE "Line Printed Output" -1 6 1 {CSTYLE "" -1 -1 "Courier" 1 10 0 0 255 1 2 2 2 2 2 1 1 0 0 1 }1 1 0 0 0 0 2 0 2 0 2 2 -1 1 }{PSTYLE "List Item" -1 14 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 0 0 1 }1 1 0 0 3 3 2 0 2 0 2 2 -1 1 }{PSTYLE "Warning" -1 7 1 {CSTYLE "" -1 -1 "Courier" 1 10 0 0 255 1 2 2 2 2 2 1 1 0 0 1 }1 1 0 0 0 0 2 0 2 0 2 2 -1 1 }{PSTYLE "Error" -1 8 1 {CSTYLE "" -1 -1 "Courier" 1 10 255 0 255 1 2 2 2 2 2 1 1 0 0 1 }1 1 0 0 0 0 2 0 2 0 2 2 -1 1 }{PSTYLE "Fixed Width" -1 17 1 {CSTYLE "" -1 -1 "Courier" 1 10 0 0 0 1 2 2 2 2 2 2 1 0 0 1 }3 1 0 0 0 0 2 0 2 0 2 2 -1 1 }{PSTYLE "Heading 1" -1 3 1 {CSTYLE "" -1 -1 "Times" 1 18 0 0 0 1 2 1 2 2 2 2 1 0 0 1 }1 1 0 0 8 4 2 0 2 0 2 2 -1 1 }{PSTYLE "Title " -1 18 1 {CSTYLE "" -1 -1 "Times" 1 18 0 0 0 1 2 1 1 2 2 2 1 0 0 1 }3 1 0 0 12 12 2 0 2 0 2 2 -1 1 }{PSTYLE "Ordered List 2" -1 204 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 0 0 1 }1 1 0 0 3 3 2 36 2 0 2 2 -1 1 }{CSTYLE "Help Variable" -1 25 "Courier" 1 12 0 0 0 1 2 2 2 2 2 2 0 0 0 1 }{CSTYLE "Text" -1 200 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 0 0 0 1 }{CSTYLE "Help Bold" -1 39 "Times" 1 12 0 0 0 1 2 1 2 2 2 2 0 0 0 1 }{CSTYLE "Page Number" -1 33 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 0 0 0 1 }{CSTYLE "2D Math Italic Small" -1 201 "Times" 1 1 0 0 0 1 1 2 2 2 2 2 0 0 0 1 }{CSTYLE "Help Nonterminal" -1 24 "Courier" 1 12 0 0 0 1 2 1 2 2 2 2 0 0 0 1 }{CSTYLE "Default" -1 38 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 0 0 0 1 }{CSTYLE "Maple Comment" -1 21 "Courier" 1 12 0 0 0 1 2 1 2 2 2 2 0 0 0 1 }{CSTYLE "Maple Input" -1 0 "Courier" 1 12 255 0 0 1 2 1 2 2 1 2 0 0 0 1 }{CSTYLE "2D Math Small" -1 7 "Times " 1 1 0 0 0 1 2 2 2 2 2 2 0 0 0 1 }{CSTYLE "Help Fixed" -1 23 "Courier " 1 10 0 0 0 1 2 2 2 2 2 2 0 0 0 1 }{CSTYLE "Popup" -1 31 "Times" 1 12 0 128 128 1 1 2 1 2 2 2 0 0 0 1 }{CSTYLE "Plot Title" -1 27 "Times" 1 10 0 0 0 1 2 1 2 2 2 2 0 0 0 1 }{CSTYLE "2D Input" -1 19 "Times" 1 12 255 0 0 1 2 2 2 2 1 2 0 0 0 1 }{CSTYLE "Copyright" -1 34 "Times" 1 10 0 0 0 1 2 2 2 2 2 2 0 0 0 1 }{CSTYLE "Maple Input Placeholder" -1 202 "Courier" 1 12 200 0 200 1 2 1 2 2 1 2 0 0 0 1 }{CSTYLE "2D Math Bold Small" -1 10 "Times" 1 1 0 0 0 1 2 1 2 2 2 2 0 0 0 1 }{CSTYLE "2D Mat h" -1 2 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 0 0 0 1 }{CSTYLE "Help Notes" -1 37 "Times" 1 12 0 0 0 1 2 1 2 2 2 2 0 0 0 1 }{CSTYLE "Help Underli ned Bold" -1 41 "Times" 1 12 0 0 0 1 1 1 2 2 2 2 0 0 0 1 }{CSTYLE "Hyp erlink" -1 17 "Times" 1 12 0 128 128 1 2 2 1 2 2 2 0 0 0 1 }{CSTYLE "2 D Math Symbol 2" -1 16 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 0 0 0 1 } {CSTYLE "Plot Text" -1 28 "Times" 1 8 0 0 0 1 2 2 2 2 2 2 0 0 0 1 } {CSTYLE "Help Italic" -1 42 "Times" 1 12 0 0 0 1 1 2 2 2 2 2 0 0 0 1 } {CSTYLE "Output Labels" -1 29 "Times" 1 8 0 0 0 1 2 2 2 2 2 2 0 0 0 1 }{CSTYLE "Help Heading" -1 26 "Times" 1 14 0 0 0 1 2 1 2 2 2 2 0 0 0 1 }{CSTYLE "Help Normal" -1 30 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 0 0 0 1 }{CSTYLE "2D Comment" -1 18 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 0 0 0 1 }{CSTYLE "Help Maple Name" -1 35 "Times" 1 12 104 64 92 1 2 1 2 2 2 2 0 0 0 1 }{CSTYLE "2D Output" -1 20 "Times" 1 12 0 0 255 1 2 2 2 2 2 2 0 0 0 1 }{CSTYLE "Dictionary Hyperlink" -1 45 "Times" 1 12 147 0 15 1 2 2 1 2 2 2 0 0 0 1 }{CSTYLE "Help Emphasized" -1 22 "Times" 1 12 0 0 0 1 1 2 2 2 2 2 0 0 0 1 }{CSTYLE "Help Italic Bold" -1 40 "Times" 1 12 0 0 0 1 1 2 2 2 2 2 0 0 0 1 }{CSTYLE "LaTeX" -1 32 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 0 0 0 1 }{CSTYLE "Help Menus" -1 36 "Times" 1 12 0 0 0 1 2 1 2 2 2 2 0 0 0 1 }{CSTYLE "Prompt" -1 1 "Courier" 1 12 0 0 0 1 2 1 2 2 2 2 0 0 0 1 }{CSTYLE "Help Underlined" -1 44 "Times" 1 12 0 0 0 1 2 2 1 2 2 2 0 0 0 1 }{CSTYLE "Help Underlined Italic" -1 43 "Times" 1 12 0 0 0 1 1 2 1 2 2 2 0 0 0 1 }{CSTYLE "2D Math Bold" -1 5 "Times" 1 12 0 0 0 1 2 1 2 2 2 2 0 0 0 1 }{CSTYLE "2D Math Italic" -1 3 "Times " 1 12 0 0 0 1 1 2 2 2 2 2 0 0 0 1 }{PSTYLE "" -1 205 1 {CSTYLE "" -1 -1 "Courier" 1 10 0 0 255 1 2 2 2 2 2 1 2 0 0 1 }1 1 0 0 0 0 2 0 2 0 2 2 -1 1 }} {SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 81 "restart: with(plots) : with(plottools): with(Maplets): with(Maplets[Elements]): \n" } {MPLTEXT 1 0 2 "\n" }{MPLTEXT 1 0 2 "\n" }{MPLTEXT 1 0 23 " PlotOptio n:=proc() \n" }{MPLTEXT 1 0 2 "\n" }{MPLTEXT 1 0 13 "global ppp:\n" } {MPLTEXT 1 0 2 "\n" }{MPLTEXT 1 0 179 "ppp:=gra1(Maplets:-Tools:-Get(a ::positive),Maplets:-Tools:-Get(b::positive),Maplets:-Tools:-Get(p::po sitive),Maplets:-Tools:-Get(q::positive), Maplets:-Tools:-Get(N::integ er) );\n" }{MPLTEXT 1 0 2 "\n" }{MPLTEXT 1 0 12 "end proc: \n" } {MPLTEXT 1 0 2 "\n" }{MPLTEXT 1 0 2 "\n" }{MPLTEXT 1 0 2 "\n" } {MPLTEXT 1 0 17 "Gra := Maplet( \n" }{MPLTEXT 1 0 124 " Window[W1] (title=\"Gra \256 by P.Koscielniak, J.Ombach and J.Szczepanski\", height=650, width=660, menubar=MB1, \n" }{MPLTEXT 1 0 24 " 'layo ut' = BL1),\n" }{MPLTEXT 1 0 175 " MenuBar[MB1](Menu(\"Zamknij\", Men uItem(\"Zamknij\", Shutdown() )) ,Menu(\"Parametry\", MenuItem(\"Przyw roc\", 'onclick'='A3' ), MenuItem(\"Wyczysc\", 'onclick'='A2' ) )),\n" }{MPLTEXT 1 0 4 " \n" }{MPLTEXT 1 0 22 "BoxLayout[BL1]( \n" } {MPLTEXT 1 0 7 " \n" }{MPLTEXT 1 0 66 " BoxColumn(inset=0, spac ing=0, background=COLOR(RGB,1,1,4/5),\n" }{MPLTEXT 1 0 2 "\n" } {MPLTEXT 1 0 2 "\n" }{MPLTEXT 1 0 2 "\n" }{MPLTEXT 1 0 97 "BoxRow(Labe l(\"Ilosc gier N=\", 'font' = Font(\"default\", bold, 12)),TextField[N ](\"200\",5), \n" }{MPLTEXT 1 0 145 "Label(\" \+ \"), Button(\"Zatwierdz dane\", 'onclick'='A1',backg round=COLOR(RGB,209/255,209/255,83/85), \n" }{MPLTEXT 1 0 63 " \+ 'font' = Font(\"default\", bold, 12))),\n" }{MPLTEXT 1 0 2 "\n" }{MPLTEXT 1 0 4 " \n" }{MPLTEXT 1 0 87 "BoxRow(Label(\"Kapit al pierwszego gracza a=\", 'font' = Font(\"default\", bold, 12)),\n" } {MPLTEXT 1 0 134 " TextField[a](\"10\",10),Label(\"Kapital drug iego gracza b=\",'font' = Font(\"default\", bold, 12)),TextField[b](\" 20\",10)),\n" }{MPLTEXT 1 0 2 "\n" }{MPLTEXT 1 0 2 "\n" }{MPLTEXT 1 0 251 "BoxRow(Label(\"Prawdopodobienstwo wygranej pierwszego gracza p=\" , 'font' = Font(\"default\", bold, 12)),TextField[p](\"0.5\",7),Label( \"Prawdopodobienstwo wygranej drugiego gracza q=\",'font' = Font(\"def ault\", bold, 12)),TextField[q](\"0.4\",7)),\n" }{MPLTEXT 1 0 2 "\n" } {MPLTEXT 1 0 38 "[Plotter[P1](ppp, continuous=false),\n" }{MPLTEXT 1 0 58 " [ Button(\"Animuj\",SetOption(P1('play')=true)),\n" } {MPLTEXT 1 0 58 " Button(\"Stop\",SetOption(P1('`stop`')=true )),\n" }{MPLTEXT 1 0 59 " Button(\"Pauza\",SetOption(P1('paus e')=true)) ,\n" }{MPLTEXT 1 0 63 " Button(\"Poczatek\",SetOpti on(P1('to_start')=true)),\n" }{MPLTEXT 1 0 63 " Button(\"Koni ec\",SetOption(P1('to_end')=true)) ]],\n" }{MPLTEXT 1 0 75 " [ \+ Button(\"Krok do tylu\",SetOption(P1('frame_backwards')=true)),\n" } {MPLTEXT 1 0 77 " Button(\"Krok do przodu\",SetOption(P1('fra me_forward')=true)) ],\n" }{MPLTEXT 1 0 19 " [ \"Powtarzaj\",\n" } {MPLTEXT 1 0 45 " CheckBox[CONTINUOUS](value=false,\n" } {MPLTEXT 1 0 70 " onchange=SetOption(target=P1, `option `='continuous',\n" }{MPLTEXT 1 0 59 " A rgument(CONTINUOUS))) ],\n" }{MPLTEXT 1 0 22 " [ \"Tempo\",\n" }{MPLTEXT 1 0 39 " Slider[DELAY](20..500, 200,\n" }{MPLTEXT 1 0 121 " onchange=SetOption(target=P1, `option`='delay ', Argument(DELAY) ),background=COLOR(RGB,1,1/2,1/2) )] \n" } {MPLTEXT 1 0 16 " )), \n" }{MPLTEXT 1 0 2 "\n" }{MPLTEXT 1 0 48 "Action['A1']( Evaluate('P1'='PlotOption()')), \n" }{MPLTEXT 1 0 3 " \n" }{MPLTEXT 1 0 117 "Action['A2']( SetOption('N'=\"\"),SetOption(' a'=\"\"),SetOption('b'=\"\"),SetOption('p'=\"\"),SetOption('q'=\"\")), \n" }{MPLTEXT 1 0 130 "Action['A3']( SetOption('N'=\"200\"),SetOption( 'a'=\"10\"),SetOption('b'=\"20\"),SetOption('p'=\"0.5\"),SetOption('q' =\"0.4\")) \n" }{MPLTEXT 1 0 4 "):\n" }{MPLTEXT 1 0 2 "\n" }{MPLTEXT 1 0 85 "########################### END OF MAPLET DEFINITION ######### #####################\n" }{MPLTEXT 1 0 2 "\n" }{MPLTEXT 1 0 2 "\n" } {MPLTEXT 1 0 25 "gra1 := proc(a,b,p,q,N)\n" }{MPLTEXT 1 0 33 "local r, dimP, P,p0, PT,i,pp,n:\n" }{MPLTEXT 1 0 72 "if a*b*N > 10^6 then plot (0,x=0..5,title =\"Za duzy iloczyn a*b*N\") \n" }{MPLTEXT 1 0 61 "eli f p+q>1 then plot(0,x=0..5,title =\"Za duza suma p+q\") \n" }{MPLTEXT 1 0 6 "else\n" }{MPLTEXT 1 0 2 "\n" }{MPLTEXT 1 0 2 "\n" }{MPLTEXT 1 0 2 "\n" }{MPLTEXT 1 0 18 "r := 1 - p - q: \n" }{MPLTEXT 1 0 20 "dimP \+ := a + b + 1:\n" }{MPLTEXT 1 0 39 "P := matrix(dimP,dimP,[0$dimP*dimP] ):\n" }{MPLTEXT 1 0 67 "P[1,1] := 1: P[1,2] := 0: P[dimP,dimP] := 1: P [dimP,dimP-1] := 0:\n" }{MPLTEXT 1 0 29 "for i from 2 to dimP - 1 do\n " }{MPLTEXT 1 0 43 "P[i,i-1] := q: P[i,i] := r: P[i,i+1] := p\n" } {MPLTEXT 1 0 5 "od:\n" }{MPLTEXT 1 0 35 "pp[0] := matrix(dimP,1,[0$dim P]):\n" }{MPLTEXT 1 0 20 "pp[0][a+1,1] := 1:\n" }{MPLTEXT 1 0 21 "PT : = transpose(P):\n" }{MPLTEXT 1 0 2 "\n" }{MPLTEXT 1 0 22 "for n from 1 to N do\n" }{MPLTEXT 1 0 31 "pp[n] := evalm(PT&*pp[n-1]): \n" } {MPLTEXT 1 0 2 "\n" }{MPLTEXT 1 0 5 "od:\n" }{MPLTEXT 1 0 2 "\n" } {MPLTEXT 1 0 222 "return( plots[display]([seq(plots[pointplot]([seq([i -1,pp[n][i,1]],i = 1..dimP)], symbolsize = 20, color = brown,title = c at(\"po \",convert(n,string),\" grach\"), view = [0..dimP,0..1]), n = \+ 0..N)], insequence = true));\n" }{MPLTEXT 1 0 2 "\n" }{MPLTEXT 1 0 2 " \n" }{MPLTEXT 1 0 9 "end if:\n" }{MPLTEXT 1 0 2 "\n" }{MPLTEXT 1 0 11 "end proc:\n" }{MPLTEXT 1 0 2 "\n" }{MPLTEXT 1 0 2 "\n" }{MPLTEXT 1 0 2 "\n" }}{PARA 7 "" 1 "" {TEXT 203 51 "Warning, the name changecoords \+ has been redefined\n" }}{PARA 7 "" 1 "" {TEXT 203 59 "Warning, the ass igned name arrow now has a global binding\n" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 13 "Display(Gra);" }}{PARA 205 "" 1 "" {TEXT 200 38 "I nitializing Java runtime environment." }}}{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 "" }}}} {MARK "0 0 0" 0 }{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }