{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 185 0 88 0 0 0 2 0 0 0 0 0 0 1 }{CSTYLE "2D Comment" 2 18 "" 0 1 0 0 200 0 0 0 0 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 } {PSTYLE "Normal" -1 0 1 {CSTYLE "" -1 -1 "" 0 1 185 0 241 0 0 0 0 0 0 0 0 0 0 1 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "Heading 1" 0 3 1 {CSTYLE "" -1 -1 "" 1 18 157 0 224 0 0 1 0 0 0 0 0 0 0 1 }1 0 0 0 6 6 0 0 0 0 0 0 -1 0 }{PSTYLE "Heading 2" 3 4 1 {CSTYLE "" -1 -1 "" 1 14 185 0 168 0 0 0 0 0 0 0 0 0 0 1 }0 0 0 -1 4 4 0 0 0 0 0 0 -1 0 } {PSTYLE "Maple Plot" 0 13 1 {CSTYLE "" -1 -1 "" 0 1 179 0 48 0 0 0 0 0 0 0 0 0 0 1 }3 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "Title" 0 18 1 {CSTYLE "" -1 -1 "" 1 18 28 39 126 0 0 1 1 0 0 0 0 0 0 1 }3 0 0 -1 12 12 0 0 0 0 0 0 19 0 }} {SECT 0 {EXCHG {PARA 18 "" 0 "" {TEXT -1 11 "B-Spline 3D" }}}{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:\n\nC1 := proc(t) (3* (t^3) -6*(t^2) + 4)/6 end:\n\nC2 := proc(t) (-3*(t^3) + 3*(t^2) + 3*t \+ + 1)/6 end:\n\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/\"\"%F1F1F5 F/F*F*F*>%#C2Gf*6#F(7\"F*F**&,**&F.F1*$F(F.F1F/*&F.F1*$F(F3F1F1*&F.F1F (F1F1F1F1F1F5F/F*F*F*>%#C3Gf*6#F(7\"F*F**&F(F.F5F/F*F*F*" }}}}{SECT 0 {PARA 4 "" 0 "" {TEXT -1 26 "Suradnice riadiacich bodov" }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 380 "mx := linalg[matrix](4, 4, [\n[0., 80., 160., 240.],\n[0., 80., 160., 240.],\n[0., 80., 160., 240.],\n[0 ., 80., 160., 240.]]):\nmy := linalg[matrix](4, 4, [\n[ 0., 0., 0. , 0.],\n[80., 80., 80., 80.],\n[160., 160., 160., 160.],\n[240., \+ 240., 240., 240.]]):\nmz := linalg[matrix](4, 4, [\n[0., 80., 80., \+ 0.],\n[80., 160., 160., 80.],\n[80., 160., 160., 80.],\n[0., 80., 80 ., 0.]]):" }}}}{SECT 0 {PARA 4 "" 0 "" {TEXT -1 13 "Urcujuca siet" }} {EXCHG {PARA 0 "> " 0 "" {XPPEDIT 19 1 "siet1 := PLOT3D(seq( \n\n \+ CURVES([seq( [mx[i, j], my[i, j], mz[i, j]], i=1..4)], COLOR( RGB, 0, 0, 0)),\n\n j = 1..4)):\n\nsiet2:= PLOT3D(seq( \n \n CURVES([seq( [mx[i, j], my[i, j], mz[i, j]], j=1..4)], COLOR(RGB, 0, 0, 0)),\n\n i = 1..4)):" "6#C$>%&siet1G-%' PLOT3DG6#-%$seqG6$-%'CURVESG6$7#-F*6$7%&%#mxG6$%\"iG%\"jG&%#myG6$F6F7& %#mzG6$F6F7/F6;\"\"\"\"\"%-%&COLORG6&%$RGBG\"\"!FFFF/F7;F@FA>%&siet2G- F'6#-F*6$-F-6$7#-F*6$7%&F46$F6F7&F96$F6F7&F<6$F6F7/F7;F@FA-FC6&FEFFFFF F/F6;F@FA" }}}}{SECT 0 {PARA 4 "" 0 "" {TEXT -1 43 "Vypocet krivky Q p re hodnoty parametra u, v" }}{PARA 0 "" 0 "" {XPPEDIT 18 0 "Q(u, v) = \+ Sum(Sum(P[i,j] * Be[i](u) * Be[j](v), j=0..3), i=0..3)" "6#/-%\"QG6$% \"uG%\"vG-%$SumG6$-F*6$*(&%\"PG6$%\"iG%\"jG\"\"\"-&%#BeG6#F26#F'F4-&F7 6#F36#F(F4/F3;\"\"!\"\"$/F2;F@FA" }}{EXCHG {PARA 0 "> " 0 "" {XPPEDIT 19 1 "Q := proc(u, v)\nlocal i, j, t, nx, ny, nz;\n nx := 0; ny := 0; nz := 0;\n for i from 1 to 4 do\n for j from 1 to 4 do\n t : = C||(i-1)(u) * C||(j-1)(v);\n nx := nx + mx[i, j] * t;\n ny := ny + my[i, j] * t;\n nz := nz + mz[i, j] * t;\n od;\n od; \n [nx, ny, nz]\nend:" "6#>%\"QGf*6$%\"uG%\"vG7(%\"iG%\"jG%\"tG%#nxG%# nyG%#nzG6\"F0C'>F-\"\"!>F.F3>F/F3?(F*\"\"\"F7\"\"%%%trueG?(F+F7F7F8F9C &>F,*&-(%\"CG,&F*F7F7!\"\"6#F'F7-(F@,&F+F7F7FB6#F(F7>F-,&F-F7*&&%#mxG6 $F*F+F7F,F7F7>F.,&F.F7*&&%#myG6$F*F+F7F,F7F7>F/,&F/F7*&&%#mzG6$F*F+F7F ,F7F77%F-F.F/F0F0F0" }}}}}{SECT 0 {PARA 3 "" 0 "" {TEXT -1 18 "Vykresl enie krivky" }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 105 "graf := plot 3d(Q(u, v), u=0..1, v=0..1, grid=[5, 5]):\n#Zobrazenie\nplots[display3 d](\{siet1, siet2, graf\});" }}{PARA 13 "" 1 "" {GLPLOT3D 226 228 228 {PLOTDATA 3 "6+-%'CURVESG6$7&7%$\"\"!F)F(F(7%F($\"#!)F)F+7%F($\"$g\"F) F+7%F($\"$S#F)F(-%&COLORG6&%$RGBGF)F)F)-F$6$7&7%F+F(F+7%F+F+F.7%F+F.F. 7%F+F1F+F3-F$6$7&7%F.F(F+7%F.F+F.7%F.F.F.7%F.F1F+F3-F$6$7&7%F1F(F(7%F1 F+F+7%F1F.F+7%F1F1F(F3-F$6$7&F'F:FAFHF3-F$6$7&F*F;FBFIF3-F$6$7&F-F " 0 "" {MPLTEXT 1 0 0 "" }}}} }{MARK "1 4 1 0" 0 }{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }