{VERSION 5 0 "IBM INTEL NT" "5.0" } {USTYLETAB {CSTYLE "Maple Input" -1 0 "Courier" 0 0 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 Input" 2 19 "" 0 1 255 0 0 1 0 0 0 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 "Heading 2" -1 4 1 {CSTYLE "" -1 -1 "Times" 1 14 0 0 0 1 2 1 2 2 2 2 1 1 1 1 }1 1 0 0 4 4 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 Plot " -1 13 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 1 1 1 } 3 1 0 0 0 0 1 0 1 0 2 2 0 1 }{PSTYLE "Title" -1 18 1 {CSTYLE "" -1 -1 "Times" 1 18 0 0 0 1 2 1 1 2 2 2 1 1 1 1 }3 1 0 0 12 12 1 0 1 0 2 2 19 1 }} {SECT 0 {EXCHG {PARA 18 "" 0 "" {TEXT -1 16 "B\351zierova krivka" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "restart; with(plots):" }} {PARA 7 "" 1 "" {TEXT -1 50 "Warning, the name changecoords has been r edefined\n" }}}{SECT 0 {PARA 4 "" 0 "" {TEXT -1 21 "Bernsteinove polyn omy" }}{EXCHG {PARA 0 "> " 0 "" {XPPEDIT 19 1 "B0 := proc(t) ((1 - t) \+ * (1 - t) * (1 - t)) end:\nB1 := proc(t) (3 * t * (1 - t) * (1 - t)) e nd:\nB2 := proc(t) (3 * t * t * (1 - t)) end:\nB3 := proc(t) (t * t * \+ t) end:" "6#C&>%#B0Gf*6#%\"tG7\"6\"F**(,&\"\"\"F-F(!\"\"F-,&F-F-F(F.F- ,&F-F-F(F.F-F*F*F*>%#B1Gf*6#F(7\"F*F***\"\"$F-F(F-,&F-F-F(F.F-,&F-F-F( F.F-F*F*F*>%#B2Gf*6#F(7\"F*F***F7F-F(F-F(F-,&F-F-F(F.F-F*F*F*>%#B3Gf*6 #F(7\"F*F**(F(F-F(F-F(F-F*F*F*" }}}}{EXCHG {PARA 0 "> " 0 "" {XPPEDIT 19 1 "X := 0: Y := 1:" "6#C$>%\"XG\"\"!>%\"YG\"\"\"" }}}{SECT 0 {PARA 4 "" 0 "" {TEXT -1 26 "Suradnice riadiacich bodov" }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 106 "p0[X] := 10: p0[Y] := 40:\np1[X] := 50: p1[Y ] := 200:\np2[X] := 90: p2[Y] := 150:\np3[X] := 130: p3[Y] := 10:" }}} }{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 47 "c := seq([cat(p, i)[X], cat (p, i)[Y]], i=0..3);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"cG6&7$\"#5 \"#S7$\"#]\"$+#7$\"#!*\"$]\"7$\"$I\"F'" }}}{SECT 0 {PARA 4 "" 0 "" {TEXT -1 24 "Body riadiaceho polymonu" }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 25 "body := PLOT(POINTS(c));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%%bodyG-%/INTERFACE_PLOTG6#-%'POINTSG6&7$\"#5\"#S7$\"# ]\"$+#7$\"#!*\"$]\"7$\"$I\"F," }}}}{SECT 0 {PARA 4 "" 0 "" {TEXT -1 16 "Riadiaci polymon" }}{EXCHG {PARA 0 "> " 0 "" {XPPEDIT 19 1 "polyn \+ := PLOT(CURVES([c], LINESTYLE(3), COLOUR(RGB, 1, 0, 0))):" "6#>%&polyn G-%%PLOTG6#-%'CURVESG6%7#%\"cG-%*LINESTYLEG6#\"\"$-%'COLOURG6&%$RGBG\" \"\"\"\"!F6" }}}}{SECT 0 {PARA 4 "" 0 "" {TEXT -1 6 "Krivka" }}{EXCHG {PARA 0 "> " 0 "" {XPPEDIT 19 1 "krivka := plot([p0[X]*B0(t)+p1[X]*B1( t)+p2[X]*B2(t)+p3[X]*B3(t), p0[Y]*B0(t)+p1[Y]*B1(t)+p2[Y]*B2(t)+p3[Y]* B3(t), t=0..1], colour=BLUE):" "6#>%'krivkaG-%%plotG6$7%,**&&%#p0G6#% \"XG\"\"\"-%#B0G6#%\"tGF/F/*&&%#p1G6#F.F/-%#B1G6#F3F/F/*&&%#p2G6#F.F/- %#B2G6#F3F/F/*&&%#p3G6#F.F/-%#B3G6#F3F/F/,**&&F,6#%\"YGF/-F16#F3F/F/*& &F66#FMF/-F96#F3F/F/*&&F=6#FMF/-F@6#F3F/F/*&&FD6#FMF/-FG6#F3F/F//F3;\" \"!F//%'colourG%%BLUEG" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 31 "d isplay(\{body, polyn, krivka\});" }}{PARA 13 "" 1 "" {GLPLOT2D 400 300 300 {PLOTDATA 2 "6'-%'POINTSG6&7$\"#5\"#S7$\"#]\"$+#7$\"#!*\"$]\"7 $\"$I\"F'-%'CURVESG6%7&F&F)F,F/-%*LINESTYLEG6#\"\"$-%'COLOURG6&%$RGBG \"\"\"\"\"!F>-F26$7S7$$F'F>$F(F>7$$\"3/+++]ech7!#;$\"3e&zE0Pbk,&FH7$$ \"3=++](*G:*[\"FH$\"3Q1yvFH7$$\"3)*****\\Fy:fAFH$\"3aT2ke\"[oN )FH7$$\"3_****\\d'*)o\\#FH$\"3Au9'os`0.*FH7$$\"3i****\\(>ZIu#FH$\"3;UK @3kuz'*FH7$$\"3Q++]xOi(*HFH$\"3qqFxc3+I5!#:7$$\"3K****\\FPQ^KFH$\"3'[@ 3,P@n3\"Fho7$$\"3U+++IrS7NFH$\"3YJ9F1w\")R6Fho7$$\"3T*****\\o;Bu$FH$\" 3#obPR2NA=\"Fho7$$\"31*******QS6+%FH$\"3,z,&3Vi>ex8Fho7$$\" 3P+++gs#3u&FH$\"3iy^qY[-(Q\"Fho7$$\"33++]<#Q'**fFH$\"3)[%y>v-0$R\"Fho7 $$\"3%3++DX(3YiFH$\"3!o23c/OYR\"Fho7$$\"3,+++v8B.lFH$\"3u<=,_9/#R\"Fho 7$$\"3')****\\n(p$RnFH$\"3)R(fSjk*eQ\"Fho7$$\"3C+++Dp2%*pFH$\"3_]wEd]H v8Fho7$$\"3?****\\xgkesFH$\"3;//&f:*)*f8Fho7$$\"3[****\\-V&*)[(FH$\"3^ '*G$*GB;V8Fho7$$\"3h+++&\\$pPxFH$\"3E%>os6)Q@8Fho7$$\"3w******>am%*zFH $\"3ygJ'3kK]H\"Fho7$$\"3%*)****\\JigC)FH$\"3K1Z]l%>bE\"Fho7$$\"3'***** \\PIHdd^L7Fho7$$\"3)y****\\kx$f()FH$\"3Y'Q2a]\"3%>\"Fho7$ $\"3;******fG0-!*FH$\"3=@F4)H8_:\"Fho7$$\"3')******\\/;h#*FH$\"3%)*)ez qR>56Fho7$$\"3Y****\\P/&f\\*FH$\"3w4%H4E?j1\"Fho7$$\"3c)*****4zj_(*FH$ \"3R$=qiCq],\"Fho7$$\"3[)***\\<3;%***FH$\"3=#4Bjokxj*FH7$$\"3\"****\\Z =iY-\"Fho$\"3S'Qb@H8/2*FH7$$\"3#******\\'[M\\5Fho$\"3_s=lkDa&[)FH7$$\" 3))***\\PM&=v5Fho$\"320!*yo6&>%yFH7$$\"3/+++'zs+5\"Fho$\"3-N\"Rj4.D>(F H7$$\"33++]5Q_D6Fho$\"3gy,1lb**)\\'FH7$$\"3#****\\x2k2:\"Fho$\"3Q9zo4 \")e#y&FH7$$\"3)******>EdR<\"Fho$\"39QPJ=Kr*4&FH7$$\"3'*****\\o#R0?\"F ho$\"3q'Qr]q4))G%FH7$$\"3$******>`9VA\"Fho$\"3es72*=v&QNFH7$$\"3'**** \\<#Rm\\7Fho$\"3h=dp'zpLr#FH7$$\"3#****\\A_ERF\"Fho$\"3)[Z=f)=q**=FH7$ $F0F>FC-F:6&F<$F>F>F`\\l$\"*++++\"!\")-%+AXESLABELSG6$Q!6\"Fg\\l-%%VIE WG6$%(DEFAULTGF\\]l" 1 2 0 1 10 0 2 9 1 4 2 1.000000 45.000000 45.000000 0 0 "Curve 1" "Curve 2" "Curve 3" }}}}}}{MARK "2 1 0 0" 0 } {VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }