{VERSION 5 0 "IBM INTEL NT" "5.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 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 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 6 
6 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 "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 8 "B-Spline" }}}{SECT 0 
{PARA 3 "" 0 "" {TEXT -1 13 "Implementacia" }}{SECT 0 {PARA 4 "" 0 "" 
{TEXT -1 14 "Bazove funkcie" }}{EXCHG {PARA 0 "> " 0 "" {XPPEDIT 19 1 
"C0 := proc(t) (-(t^3) + 3*(t^2) -3*t + 1)/6 end:\nC1 := proc(t) (3*(t
^3) -6*(t^2) + 4)/6 end:\nC2 := proc(t) (-3*(t^3) + 3*(t^2) + 3*t + 1)
/6 end:\nC3 := proc(t) (t^3)/6 end: " "6#C&>%#C0Gf*6#%\"tG7\"6\"F**&,*
*$F(\"\"$!\"\"*&F.\"\"\"*$F(\"\"#F1F1*&F.F1F(F1F/F1F1F1\"\"'F/F*F*F*>%
#C1Gf*6#F(7\"F*F**&,(*&F.F1*$F(F.F1F1*&F5F1*$F(F3F1F/\"\"%F1F1F5F/F*F*
F*>%#C2Gf*6#F(7\"F*F**&,**&F.F1*$F(F.F1F/*&F.F1*$F(F3F1F1*&F.F1F(F1F1F
1F1F1F5F/F*F*F*>%#C3Gf*6#F(7\"F*F**&F(F.F5F/F*F*F*" }}}}{EXCHG {PARA 
0 "> " 0 "" {MPLTEXT 1 0 15 "X := 0: Y := 1:" }}}{SECT 0 {PARA 4 "" 0 
"" {TEXT -1 26 "Suradnice riadiacich bodov" }}{EXCHG {PARA 0 "> " 0 "
" {XPPEDIT 19 1 "p0[X] := 10: p0[Y] := 10:\np1[X] := 50: p1[Y] := 200:
\np2[X] := 90: p2[Y] := 150:\np3[X] := 130: p3[Y] := 10:\n" "6#C*>&%#p
0G6#%\"XG\"#5>&F&6#%\"YGF)>&%#p1G6#F(\"#]>&F06#F-\"$+#>&%#p2G6#F(\"#!*
>&F96#F-\"$]\">&%#p3G6#F(\"$I\">&FB6#F-F)" }}}{EXCHG {PARA 0 "> " 0 "
" {XPPEDIT 19 1 "c := seq([p||i[0], p||i[1]], i=0..3);\n#body riadiace
ho polynomu\nbody :=  PLOT(POINTS(c)):\n#riadiaci polynom\npolyn := PL
OT(CURVES([c], LINESTYLE(3), COLOUR(RGB, 0, 0, 1))):" "6#C%>%\"cG-%$se
qG6$7$&(%\"pG%\"iG6#\"\"!&(F,F-6#\"\"\"/F-;F/\"\"$>%%bodyG-%%PLOTG6#-%
'POINTSG6#F%>%&polynG-F:6#-%'CURVESG6%7#F%-%*LINESTYLEG6#F6-%'COLOURG6
&%$RGBGF/F/F3" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"cG6&7$\"#5F'7$\"#
]\"$+#7$\"#!*\"$]\"7$\"$I\"F'" }}}}}{SECT 0 {PARA 4 "" 0 "" {TEXT -1 
18 "Vykreslenie krivky" }}{EXCHG {PARA 0 "> " 0 "" {XPPEDIT 19 1 "t :=
 't':\nkrivka := \nplot([p0[X]*C0(t)+p1[X]*C1(t)+p2[X]*C2(t)+p3[X]*C3(
t),\np0[Y]*C0(t)+p1[Y]*C1(t)+p2[Y]*C2(t)+p3[Y]*C3(t), t=0..1],\ntitle \+
= `B-spline krivka`):" "6#C$>%\"tG.F%>%'krivkaG-%%plotG6$7%,**&&%#p0G6
#%\"XG\"\"\"-%#C0G6#F%F3F3*&&%#p1G6#F2F3-%#C1G6#F%F3F3*&&%#p2G6#F2F3-%
#C2G6#F%F3F3*&&%#p3G6#F2F3-%#C3G6#F%F3F3,**&&F06#%\"YGF3-F56#F%F3F3*&&
F96#FPF3-F<6#F%F3F3*&&F@6#FPF3-FC6#F%F3F3*&&FG6#FPF3-FJ6#F%F3F3/F%;\"
\"!F3/%&titleG%0B-spline~krivkaG" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 38 "plots[display](\{body, polyn, krivka\});" }}{PARA 13 
"" 1 "" {GLPLOT2D 400 300 300 {PLOTDATA 2 "6(-%'POINTSG6&7$\"#5F'7$\"#
]\"$+#7$\"#!*\"$]\"7$\"$I\"F'-%'CURVESG6%7&F&F(F+F.-%*LINESTYLEG6#\"\"
$-%'COLOURG6&%$RGBG\"\"!F<\"\"\"-F16$7S7$$F)F<$\"$g\"F<7$$\"3)pmmmh)=(
3&!#;$\"3>SZ%yX!p9;!#:7$$\"35LL$e'40j^FH$\"3Y;`cIpbE;FK7$$\"3smmm6hO[_
FH$\"3)zb*R'[(*)Q;FK7$$\"3&pmm;yYUL&FH$\"3iem.()*f-l\"FK7$$\"3(HLLeF>(
>aFH$\"3wx6Jzt_g;FK7$$\"3]mm;>K'*)\\&FH$\"3Y0#)R\"\\J\"p;FK7$$\"3))***
*\\Kd,\"e&FH$\"3'4/cXZDrn\"FK7$$\"3cmm;fX(em&FH$\"3'>mg\\;FWo\"FK7$$\"
3y****\\U7Y]dFH$\"39Ji?.Bu!p\"FK7$$\"3[LLLV!pu$eFH$\"3%3'z$y))\\ip\"FK
7$$\"3Bmmmhb59fFH$\"3\\0$z#eHG+<FK7$$\"3#*******H,Q+gFH$\"3H'ea()>?Rq
\"FK7$$\"3!*******\\*3q3'FH$\"3?'))>'3Yi1<FK7$$\"3/+++q=\\qhFH$\"3:2t
\\IkM3<FK7$$\"3#pmm\"fBIYiFH$\"3)oveQep\"4<FK7$$\"3fLLLj$[kL'FH$\"3(Ge
XRqX#4<FK7$$\"3wKLL`Q\"GT'FH$\"3]lWvq\\b3<FK7$$\"3')****\\s]k,lFH$\"3+
B(y1c%*oq\"FK7$$\"3YLLL`dF!e'FH$\"3rUf#[VoYq\"FK7$$\"3G++]sgammFH$\"3-
D&QA%HU,<FK7$$\"3#)****\\<ep[nFH$\"3w,2\\wZc(p\"FK7$$\"3MLLLe/TMoFH$\"
3G7ST3^v#p\"FK7$$\"3wLL$eDBJ\"pFH$\"3'Q)zw7bk(o\"FK7$$\"3GmmmTc-)*pFH$
\"3')>%>d//9o\"FK7$$\"3)omm\"f`@'3(FH$\"3'=;j(fO8u;FK7$$\"3O****\\nZ)H
;(FH$\"3)Gf^#>S;n;FK7$$\"3MnmmJy*eC(FH$\"3q[YmY&z*e;FK7$$\"3S+++S^bJtF
H$\"3#4-xKU@)\\;FK7$$\"37+++0TN:uFH$\"3$[:*3c[=S;FK7$$\"3]****\\7RV'\\
(FH$\"3b1yJ/mBI;FK7$$\"3I*****\\@fke(FH$\"3]&4$3gm[=;FK7$$\"31LLL`4Nnw
FH$\"3V(o6jW5tg\"FK7$$\"3[******\\,s`xFH$\"3#>-4m&eu%f\"FK7$$\"3\\mm;z
M)>$yFH$\"3)=>\\@]4Ge\"FK7$$\"3Z+++qfa<zFH$\"3+&yE1@u\"p:FK7$$\"3#GLLe
g`!)*zFH$\"35*>hOd)zb:FK7$$\"3C****\\#G2A3)FH$\"3&Q%fC^\\ET:FK7$$\"3_L
LL$)G[k\")FH$\"3\"335m=Bl_\"FK7$$\"37****\\7yh]#)FH$\"30fH=I,a5:FK7$$
\"3vnmm')fdL$)FH$\"3mOF'plGY\\\"FK7$$\"3Zmmm,FT=%)FH$\"3M[l1Ya%yZ\"FK7
$$\"34LL$e#pa-&)FH$\"3)f0kuW/2Y\"FK7$$\"3W+++Sv&)z&)FH$\"3?w-A<&HXW\"F
K7$$\"3ALLLGUYo')FH$\"3)GmB7,1bU\"FK7$$\"3Wmmm1^rZ()FH$\"3^(3<v%[139FK
7$$\"3R****\\sI@K))FH$\"3)*))Q#f:R!*Q\"FK7$$\"3t****\\2%)38*)FH$\"3y(
\\uI\\E/P\"FK7$$F,F<$\"$N\"F<-F96&F;$F'!\"\"$F<F<Fd\\l-%+AXESLABELSG6$
Q!6\"Fh\\l-%&TITLEG6#%0B-spline~krivkaG-%%VIEWG6$%(DEFAULTGFa]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" }}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}}{MARK 
"0 0 0" 7 }{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 
1 }