{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 224 191 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 "" 0 1 226 191 147 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 "Text Output" -1 2 1 {CSTYLE "" -1 -1 "Courier" 1 10 0 0 255 1 0 0 0 0 0 1 3 0 0 1 } 1 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "Heading 1" 0 3 1 {CSTYLE "" -1 -1 "" 1 18 185 0 0 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 "Warning" 2 7 1 {CSTYLE "" -1 -1 "" 0 1 0 0 255 1 0 0 0 0 0 0 1 0 0 1 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "Maple Output " 0 11 1 {CSTYLE "" -1 -1 "" 0 1 0 0 39 0 0 0 0 0 0 0 0 0 0 1 }3 3 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "Maple Plot" 0 13 1 {CSTYLE "" -1 -1 "" 0 1 145 76 236 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 226 191 172 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 14 "Ferguson Curve" }}}{SECT 0 {PARA 3 "" 0 "" {TEXT -1 13 "Implement\341cia" }}{EXCHG {PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 41 "with(linalg):with(plots):\nX := 0: Y := 1:" }} {PARA 7 "" 1 "" {TEXT -1 80 "Warning, the protected names norm and tra ce have been redefined and unprotected\n" }}{PARA 7 "" 1 "" {TEXT -1 50 "Warning, the name changecoords has been redefined\n" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 13 "B\341zov\341 Matica" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 131 "M := matrix(4, 4,[[ 2, -2, 1, 1],[-3, 3, -2, -1], [ 0, 0, 1, 0],[ 1, 0, 0, 0]]);\nT := matrix(1, 4, ['t'^3, 't'^2, 't', 1]);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"MG-%'matrixG6#7&7&\" \"#!\"#\"\"\"F,7&!\"$\"\"$F+!\"\"7&\"\"!F2F,F27&F,F2F2F2" }}{PARA 11 " " 1 "" {XPPMATH 20 "6#>%\"TG-%'matrixG6#7#7&*$)%\"tG\"\"$\"\"\"*$)F,\" \"#F.F,F." }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 37 "S\372radnice riadiac ich bodov a vektorov" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 105 "F[X] := 10 : F[Y] := 10: F1[X] := 300: F1[Y] := 30:\nG[X] := 50: G[Y] := 10: G 1[X] := 100: G1[Y] := -10:" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 23 "Mat ice bodov a vektorov" }}{PARA 0 "> " 0 "" {XPPEDIT 19 1 "PX := matrix( 4, 1, [ [F[X]],\n\n [G[X]],\n\n \+ [F1[X]],\n\n [G1[X]] ]);\n\n\nPY := matrix(4, 1, [ [F[Y]],\n\n [G[Y]],\n\n [F1 [Y]],\n\n [G1[Y]] ]);" "6#C$>%#PXG-%'matrixG6%\"\" %\"\"\"7&7#&%\"FG6#%\"XG7#&%\"GG6#F07#&%#F1G6#F07#&%#G1G6#F0>%#PYG-F'6 %F)F*7&7#&F.6#%\"YG7#&F36#FE7#&F76#FE7#&F;6#FE" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#PXG-%'matrixG6#7&7#\"#57#\"#]7#\"$+$7#\"$+\"" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#>%#PYG-%'matrixG6#7&7#\"#5F)7#\"#I7#!# 5" }}}{EXCHG {PARA 0 "> " 0 "" {XPPEDIT 19 1 "C := evalm(T &* M);\n\nC 1 := evalm(C &* PX); C2 := evalm(C &* PY);" "6#C%>%\"CG-%&evalmG6#-%#& *G6$%\"TG%\"MG>%#C1G-F'6#-F*6$F%%#PXG>%#C2G-F'6#-F*6$F%%#PYG" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"CG-%'matrixG6#7#7&,(*$)%\"tG\"\"$\"\"\" \"\"#*&F.F/)F-F0F/!\"\"F/F/,&F+!\"#*&F.F/F2F/F/,(F+F/*&F0F/F2F/F3F-F/, &F+F/*$F2F/F3" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#C1G-%'matrixG6#7#7 #,**$)%\"tG\"\"$\"\"\"\"$?$*&\"$!eF/)F-\"\"#F/!\"\"\"#5F/*&\"$+$F/F-F/ F/" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#C2G-%'matrixG6#7#7#,**$)%\"tG \"\"$\"\"\"\"#?*&\"#]F/)F-\"\"#F/!\"\"\"#5F/*&\"#IF/F-F/F/" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 14 "Riadniace body" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 50 "body := PLOT(POINTS([F[X], F[Y]], [G[X], G[Y]])):" } }}{EXCHG {PARA 0 "" 0 "" {TEXT -1 18 "Vykreslenie krlvky" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 52 "t := 't':krivka := plot([C1[1,1], C2[1,1], t= 0..1]):" }}}}{SECT 0 {PARA 3 "" 0 "" {TEXT -1 6 "Uk\341\236ka" }} {EXCHG {PARA 0 "> " 0 "" {XPPEDIT 19 1 "display(\{body, krivka\});" "6 #-%(displayG6#<$%%bodyG%'krivkaG" }}{PARA 13 "" 1 "" {GLPLOT2D 301 301 301 {PLOTDATA 2 "6&-%'POINTSG6$7$\"#5F'7$\"#]F'-%'CURVESG6$7gn7$$F '\"\"!F/7$$\"3rt!>ib4,K\"!#;$\"3D&e\"QDW5K5F47$$\"3?&)*y')H*oE;F4$\"3? 4:?&fOI1\"F47$$\"3%y.N$p&GE)=F4$\"3En;cy)3!*3\"F47$$\"3lfCw&yw'G@F4$\" 3@!Q]\"F47$$\"3eq(4utL07$F4$\" 3`7\"Q,DRp@\"F47$$\"3:mEvu\"*)*QLF4$\"3&=pz*)=++C\"F47$$\"3c&z(=e)oia$ F4$\"3wZ#oHt[?E\"F47$$\"3%=c$*R$RmGPF4$\"3G301#*))f\"G\"F47$$\"31J>_!f S=!RF4$\"3sXcFtII+8F47$$\"3y9-Gn'R;2%F4$\"3#)Qy/@6z=8F47$$\"3L-IOND'>B %F4$\"3\"[UHPh(RO8F47$$\"39!>S9.&RMXF4$\"3OmP=tJ2q8F47$$\"3)*yI?a\\@)z %F4$\"3zeq,Sj0+9F47$$\"3>u'y)G%*GK]F4$\"3IWx69OGF9F47$$\"3MJ1pL**o3_F4 $\"3C<()G#)oK[9F47$$\"3)zZn/#\\mv`F4$\"3?+,$=7L)o9F47$$\"3&4c\">\"e2:^ &F4$\"3%*pe&HtZh[\"F47$$\"3W*\\GmEqSh&F4$\"3U&exNXT)*\\\"F47$$\"3mSB'e E(e%o&F4$\"36P-#*Q^#)4:F47$$\"317'4G]#GUdF4$\"34'p1fGw(=:F47$$\"3!Q9CB nm/x&F4$\"3u*4=$>J(R_\"F47$$\"396q6mbpydF4$\"3F/9LcW-E:F47$$\"3;WO6\"G Y7y&F4$\"3F*z'QT=QF:F47$$\"3#)[j1Zu(*ydF4$\"32LC,Vv,G:F47$$\"3#\\2zg)y ksdF4$\"3))zcq#yL\"G:F47$$\"3-jwF\">[7w&F4$\"3\"=YA.Bxw_\"F47$$\"3M:\" y:g?au&F4$\"3Y(olm8Cm_\"F47$$\"3(>]&F4$\"3(f!)*G2jC+:F47$$\"3-Q#=RQf%4aF4$\"3kYN`qRJ)[\"F47$$ \"3Q[^YxudA`F4$\"3i*QjwpTkZ\"F47$$\"3%yy%>w_uB_F4$\"3-/3W!>p@Y\"F47$$ \"3=o'\\V3jz6&F4$\"33P&Q$*[`fW\"F47$$\"3&HTSQu\\E,&F4$\"3f*eoI7b(G9F47 $$\"3LvDKw\"42\"\\F4$\"3Uozw'>j4T\"F47$$\"3_Z_^INV*z%F4$\"37elGJS+!R\" F47$$\"36hD,Xb!Hq%F4$\"3#>?[%p#*>q8F47$$\"3i\\!Q9.8`g%F4$\"3eK0UrR:[8F 47$$\"3YSS\\Kn)G`UZF8F47$$\"3AX8Vn!4DW%F4$\"3!>'\\a>-@/8F4 7$$\"3_i?$o5jkP%F4$\"31t)RZI(z\"G\"F47$$\"3h.'*p+c`>VF4$\"3qfwPu`$zD\" F47$$\"3!R\")3*Rc`xUF4$\"37.0S&z#GM7F47$$\"3s$))[2Ll)\\UF4$\"3txX=gGH4 7F47$$\"3@p(3<#3uSUF4$\"3CVnH6W6&=\"F47$$\"33oz?+;+^UF4$\"33/uj9'*Qg6F 47$$\"3s0\"yA,MDG%F4$\"3$\\LC6j#)f8\"F47$$\"3jqq>)R'zJVF4$\"3Yypo)[]P6 \"F47$$\"3xAe'pX!*RT%F4$\"3A/!4t!\\h)3\"F47$$\"3&HngUIAC^%F4$\"3o4a^5u am5F47$$\"3)3<@/&H.XYF4$\"3f#3lskeN/\"F47$$\"3/'GG\"HEL+[F4$\"3WjG8%[z @-\"F47$$F)F0F/-%'COLOURG6&%$RGBG$F'!\"\"$F0F0Fa^l-%+AXESLABELSG6$Q!6 \"Fe^l-%%VIEWG6$%(DEFAULTGFj^l" 1 2 0 1 10 0 2 9 1 4 2 1.000000 45.000000 45.000000 0 0 "Curve 1" "Curve 2" }}}}}}{MARK "2 1 1 0" 0 } {VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }