{VERSION 3 0 "IBM INTEL LINUX" "3.0" } {USTYLETAB {CSTYLE "Maple Input" -1 0 "Courier" 0 1 255 0 0 1 0 1 0 0 1 0 0 0 0 }{CSTYLE "2D Math" -1 2 "Times" 0 1 0 0 0 0 0 0 2 0 0 0 0 0 0 }{CSTYLE "2D Output" 2 20 "" 0 1 0 0 255 1 0 0 0 0 0 0 0 0 0 } {CSTYLE "" -1 256 "" 1 14 0 0 0 0 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 257 "" 1 14 0 0 0 0 0 2 0 0 0 0 0 0 0 }{CSTYLE "" -1 258 "" 1 14 0 0 0 0 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 259 "" 1 12 0 0 0 0 0 2 0 0 0 0 0 0 0 }{CSTYLE "" -1 260 "" 1 12 0 0 0 0 0 0 0 0 0 0 0 0 0 }{CSTYLE " " -1 261 "" 1 12 0 0 0 0 0 2 0 0 0 0 0 0 0 }{CSTYLE "" -1 262 "" 0 1 0 0 0 0 0 2 0 0 0 0 0 0 0 }{CSTYLE "" -1 263 "" 1 18 0 0 0 0 0 2 0 0 0 0 0 0 0 }{CSTYLE "" -1 264 "" 1 14 0 0 0 0 0 2 0 0 0 0 0 0 0 } {CSTYLE "" -1 265 "" 1 14 0 0 0 0 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 266 "" 1 14 0 0 0 0 0 2 0 0 0 0 0 0 0 }{CSTYLE "" -1 267 "" 1 14 0 0 0 0 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 268 "" 1 14 0 0 0 0 0 2 0 0 0 0 0 0 0 }{CSTYLE "" -1 269 "" 1 14 0 0 0 0 0 0 0 0 0 0 0 0 0 }{CSTYLE " " -1 270 "" 1 12 0 0 0 0 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 271 "" 1 14 0 0 0 0 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 272 "" 1 14 0 0 0 0 0 2 0 0 0 0 0 0 0 }{CSTYLE "" -1 273 "" 1 14 0 0 0 0 0 2 0 0 0 0 0 0 0 } {CSTYLE "" -1 274 "" 1 14 0 0 0 0 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 275 "" 1 14 0 0 0 0 0 2 0 0 0 0 0 0 0 }{CSTYLE "" -1 276 "" 1 14 0 0 0 0 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 277 "" 1 14 0 0 0 0 0 2 0 0 0 0 0 0 0 }{CSTYLE "" -1 278 "" 1 14 0 0 0 0 0 2 0 0 0 0 0 0 0 }{CSTYLE " " -1 279 "" 1 14 0 0 0 0 0 2 0 0 0 0 0 0 0 }{CSTYLE "" -1 280 "" 1 14 0 0 0 0 0 2 0 0 0 0 0 0 0 }{CSTYLE "" -1 281 "" 0 1 0 0 0 0 0 1 0 0 0 0 0 0 0 }{CSTYLE "" -1 282 "" 0 1 0 0 0 0 0 1 0 0 0 0 0 0 0 }{CSTYLE " " -1 283 "" 1 14 0 0 0 0 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 284 "" 1 14 0 0 0 0 0 2 0 0 0 0 0 0 0 }{CSTYLE "" -1 285 "" 1 14 0 0 0 0 0 2 0 0 0 0 0 0 0 }{CSTYLE "" -1 286 "" 1 14 0 0 0 0 0 2 0 0 0 0 0 0 0 } {CSTYLE "" -1 287 "" 1 14 0 0 0 0 0 2 0 0 0 0 0 0 0 }{CSTYLE "" -1 288 "" 1 14 0 0 0 0 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 289 "" 1 14 0 0 0 0 0 2 0 0 0 0 0 0 0 }{CSTYLE "" -1 290 "" 1 14 0 0 0 0 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 291 "" 1 14 0 0 0 0 0 2 0 0 0 0 0 0 0 }{CSTYLE " " -1 292 "" 1 14 0 0 0 0 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 293 "" 0 1 0 0 0 0 0 2 0 0 0 0 0 0 0 }{CSTYLE "" -1 294 "" 0 1 0 0 0 0 0 1 0 0 0 0 0 0 0 }{CSTYLE "" -1 295 "" 1 14 0 0 0 0 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 296 "" 1 14 0 0 0 0 0 2 0 0 0 0 0 0 0 }{CSTYLE "" -1 297 "" 1 14 0 0 0 0 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 298 "" 1 14 0 0 0 0 0 2 0 0 0 0 0 0 0 }{CSTYLE "" -1 299 "" 1 14 0 0 0 0 0 0 0 0 0 0 0 0 0 } {CSTYLE "" -1 300 "" 1 14 0 0 0 0 0 2 0 0 0 0 0 0 0 }{CSTYLE "" -1 301 "" 1 14 0 0 0 0 0 2 0 0 0 0 0 0 0 }{CSTYLE "" -1 302 "" 1 14 0 0 0 0 0 2 0 0 0 0 0 0 0 }{CSTYLE "" -1 303 "" 1 14 0 0 0 0 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 304 "" 1 14 0 0 0 0 0 2 0 0 0 0 0 0 0 }{CSTYLE " " -1 305 "" 0 1 0 0 0 0 0 2 0 0 0 0 0 0 0 }{CSTYLE "" -1 306 "" 1 14 0 0 0 0 0 2 0 0 0 0 0 0 0 }{CSTYLE "" -1 307 "" 1 14 0 0 0 0 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 308 "" 1 14 0 0 0 0 0 2 0 0 0 0 0 0 0 } {CSTYLE "" -1 309 "" 1 14 0 0 0 0 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 310 "" 1 14 0 0 0 0 0 2 0 0 0 0 0 0 0 }{CSTYLE "" -1 311 "" 1 14 0 0 0 0 0 2 0 0 0 0 0 0 0 }{CSTYLE "" -1 312 "" 0 1 0 0 0 0 0 2 0 0 0 0 0 0 0 }{CSTYLE "" -1 313 "" 1 14 0 0 0 0 0 2 0 0 0 0 0 0 0 }{CSTYLE "" -1 314 "" 1 12 0 0 0 0 0 0 0 0 0 0 0 0 0 }{PSTYLE "Normal" -1 0 1 {CSTYLE "" -1 -1 "Times" 1 24 0 0 0 0 2 1 2 0 0 0 0 0 0 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "Text Output" -1 2 1 {CSTYLE "" -1 -1 "Co urier" 1 10 0 0 255 1 0 0 0 0 0 1 3 0 3 }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 0 0 0 0 0 1 0 0 0 0 0 0 0 }1 0 0 0 8 4 0 0 0 0 0 0 -1 0 }{PSTYLE "Heading 2" 3 4 1 {CSTYLE "" -1 -1 "" 1 14 0 0 0 0 0 0 0 0 0 0 0 0 0 }0 0 0 -1 8 2 0 0 0 0 0 0 -1 0 }{PSTYLE "" 2 6 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 2 0 0 }0 0 0 -1 -1 -1 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 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "Error" 7 8 1 {CSTYLE "" -1 -1 "" 0 1 255 0 255 1 0 0 0 0 0 0 0 0 0 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "Dia gnostic" 7 9 1 {CSTYLE "" -1 -1 "" 0 1 64 128 64 1 0 0 0 0 0 0 0 0 0 } 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 0 0 0 0 0 0 0 0 0 0 0 }3 3 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "" 11 12 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 }1 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "Title" 0 18 1 {CSTYLE "" -1 -1 "" 1 18 0 0 0 0 0 1 1 0 0 0 0 0 0 }3 0 0 -1 12 12 0 0 0 0 0 0 19 0 }{PSTYLE "R3 Font 0" -1 256 1 {CSTYLE "" -1 -1 "Helve tica" 1 24 0 0 0 0 2 1 2 0 0 0 0 0 0 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "R3 Font 2" -1 257 1 {CSTYLE "" -1 -1 "Courier" 1 24 0 0 0 0 2 1 2 0 0 0 0 0 0 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "" 0 258 1 {CSTYLE "" -1 -1 "" 1 14 0 0 0 0 0 2 0 0 0 0 0 0 0 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "" 0 259 1 {CSTYLE "" -1 -1 "" 1 14 0 0 0 0 0 2 0 0 0 0 0 0 0 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "" 0 260 1 {CSTYLE "" -1 -1 "" 1 14 0 0 0 0 0 2 0 0 0 0 0 0 0 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "" 0 261 1 {CSTYLE "" -1 -1 "" 1 14 0 0 0 0 0 2 0 0 0 0 0 0 0 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "" 0 262 1 {CSTYLE "" -1 -1 "" 1 14 0 0 0 0 0 2 0 0 0 0 0 0 0 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "" 0 263 1 {CSTYLE "" -1 -1 "" 1 14 0 0 0 0 0 0 0 0 0 0 0 0 0 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "" 3 264 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 2 0 0 0 0 0 0 0 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "" 11 265 1 {CSTYLE "" -1 -1 "" 1 14 0 0 0 0 0 2 0 0 0 0 0 0 0 }1 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "" 0 266 1 {CSTYLE "" -1 -1 "" 1 14 0 0 0 0 0 2 0 0 0 0 0 0 0 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "" 0 267 1 {CSTYLE "" -1 -1 "" 1 14 0 0 0 0 0 2 0 0 0 0 0 0 0 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "" 0 268 1 {CSTYLE "" -1 -1 "" 1 14 0 0 0 0 0 2 0 0 0 0 0 0 0 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "" 0 269 1 {CSTYLE "" -1 -1 "" 1 14 0 0 0 0 0 2 0 0 0 0 0 0 0 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "" 0 270 1 {CSTYLE "" -1 -1 "" 1 14 0 0 0 0 0 2 0 0 0 0 0 0 0 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "" 0 271 1 {CSTYLE "" -1 -1 "" 0 18 0 0 0 0 0 2 0 0 0 0 0 0 0 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "" 0 272 1 {CSTYLE "" -1 -1 "" 1 14 0 0 0 0 0 2 0 0 0 0 0 0 0 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "" 0 273 1 {CSTYLE "" -1 -1 "" 1 14 0 0 0 0 0 2 0 0 0 0 0 0 0 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "" 0 274 1 {CSTYLE "" -1 -1 "" 1 14 0 0 0 0 0 2 0 0 0 0 0 0 0 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "" 0 275 1 {CSTYLE "" -1 -1 "" 1 14 0 0 0 0 0 2 0 0 0 0 0 0 0 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "" 0 276 1 {CSTYLE "" -1 -1 "" 1 14 0 0 0 0 0 2 0 0 0 0 0 0 0 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "" 0 277 1 {CSTYLE "" -1 -1 "" 1 14 0 0 0 0 0 2 0 0 0 0 0 0 0 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "" 0 278 1 {CSTYLE "" -1 -1 "" 1 14 0 0 0 0 0 2 0 0 0 0 0 0 0 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "" 0 279 1 {CSTYLE "" -1 -1 "" 1 14 0 0 0 0 0 2 0 0 0 0 0 0 0 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "" 0 280 1 {CSTYLE "" -1 -1 "" 1 14 0 0 0 0 0 0 0 0 0 0 0 0 0 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "" 0 281 1 {CSTYLE "" -1 -1 "" 1 14 0 0 0 0 0 2 0 0 0 0 0 0 0 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "" 0 282 1 {CSTYLE "" -1 -1 "" 1 14 0 0 0 0 0 2 0 0 0 0 0 0 0 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "" 0 283 1 {CSTYLE "" -1 -1 "" 1 14 0 0 0 0 0 0 0 0 0 0 0 0 0 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "" 0 284 1 {CSTYLE "" -1 -1 "" 1 14 0 0 0 0 0 0 0 0 0 0 0 0 0 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "" 0 285 1 {CSTYLE "" -1 -1 "" 1 14 0 0 0 0 0 2 0 0 0 0 0 0 0 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }} {SECT 0 {PARA 18 "" 0 "" {TEXT -1 28 "Polynomy a racionalni funkce" }} {SECT 0 {PARA 264 "" 0 "" {TEXT -1 24 "Polynomy a racionalni fu" } {TEXT 262 0 "" }{TEXT -1 4 "nkce" }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "restart;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 42 "p1:=-3*x +7*x^2-3*x^3+7*x^4;#collected form" }}{PARA 11 "" 1 "" {XPPMATH 20 "6# >%#p1G,*%\"xG!\"$*$)F&\"\"#\"\"\"\"\"(*$)F&\"\"$F+F'*$)F&\"\"%F+F," }} }{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "type(p1, 'polynom');" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#%%trueG" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 13 "whattype(p1);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#%\"+ G" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "ved:=lcoeff(p1);" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#>%$vedG\"\"(" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 19 "stupen:=degree(p1);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%'stupenG\"\"%" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 28 "Scitani a nasobeni pol ynomu:" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 50 "p2:=5*x^5+3*x^3+x^2-2*x+1 ;#expanded canonical form" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#p2G,,* $)%\"xG\"\"&\"\"\"F)*$)F(\"\"$F*F-*$)F(\"\"#F*\"\"\"F(!\"#F1F1" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "2*p1-3*p2+3;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#,**$)%\"xG\"\"#\"\"\"\"#6*$)F&\"\"$F(!#:*$)F&\"\"% F(\"#9*$)F&\"\"&F(F-" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 6 "p1*p 2;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#*&,*%\"xG!\"$*$)F%\"\"#\"\"\"\" \"(*$)F%\"\"$F*F&*$)F%\"\"%F*F+\"\"\",,*$)F%\"\"&F*F6F,F.F'F2F%!\"#F2F 2F2" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 14 "v1:=expand(%);" } {TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#v1G,4*$)%\"xG\"\"'\"\"\"! #<*$)F(\"\"%F*\"#6*$)F(\"\"$F*!#?*$)F(\"\"#F*\"#8F(!\"$*$)F(\"\"(F*\"# c*$)F(\"\"&F*F.*$)F(\"\")F*!#:*$)F(\"\"*F*\"#N" }}}{EXCHG {PARA 0 "" 0 "" {TEXT 278 40 "Maple neprovadi automaticky roznasobeni." }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 11 "(3*x+5)^10;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#*$),&%\"xG\"\"$\"\"&\"\"\"\"#5\"\"\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 19 "expand((3*x+5)^10);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#,8*$)%\"xG\"#5\"\"\"\"&\\!f*$)F&\"\"*F(\"']T)**$)F &\"\")F(\"(D6Q(*$)F&\"\"(F(\")+]!G$*$)F&\"\"'F(\")]7o&**$)F&\"\"&F(\"* +DO\">*$)F&\"\"%F(\"*]7yl#*$)F&\"\"$F(\"*+]7`#*$)F&\"\"#F(\"*DJ?e\"F& \")]Pfe\"(Dcw*\"\"\"" }}}{EXCHG {PARA 265 "" 0 "" {TEXT -1 106 "Cleny \+ polynomu nejsou automaticky usporadany (z pametovych duvodu). Usporada ni provedeme pomoci procedury " }{TEXT 294 4 "sort" }{TEXT -1 46 " (po lynomy tridi sestupne vzhledem ke stupni)." }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 9 "sort(v1);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#,4*$)%\"x G\"\"*\"\"\"\"#N*$)F&\"\")F(!#:*$)F&\"\"(F(\"#c*$)F&\"\"'F(!#<*$)F&\" \"&F(\"\"%*$)F&F9F(\"#6*$)F&\"\"$F(!#?*$)F&\"\"#F(\"#8F&!\"$" }}} {EXCHG {PARA 0 "" 0 "" {TEXT -1 0 "" }{TEXT 311 36 "Sort meni interni \+ datovou strukturu." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "restar t;" }}}{EXCHG {PARA 0 "" 0 "" {TEXT 279 0 "" }{MPLTEXT 1 0 15 "p:=1+x+ x^3+x^2;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"pG,*\"\"\"F&%\"xGF&*$) F'\"\"$\"\"\"F&*$)F'\"\"#F+F&" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "x^3+x^2+x+1;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#,*\"\"\"F$%\"xGF $*$)F%\"\"$\"\"\"F$*$)F%\"\"#F)F$" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "q:=(x-1)*(x^3+x^2+x+1);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"qG*&,&%\"xG\"\"\"!\"\"F(F(,*F(F(F'F(*$)F'\"\"$\"\"\"F(*$)F' \"\"#F.F(F(" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "sort(p);" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#,**$)%\"xG\"\"$\"\"\"\"\"\"*$)F&\"\"#F (F)F&F)F)F)" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 2 "q;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#*&,&%\"xG\"\"\"!\"\"F&F&,**$)F%\"\"$\"\"\"F& *$)F%\"\"#F,F&F%F&F&F&F&" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 5 " ?sort" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 53 "p1:=-3*x+7*x^2-3*x ^3+7*x^4;p2:=5*x^5+3*x^3+x^2-2*x+1;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6 #>%#p1G,*%\"xG!\"$*$)F&\"\"#\"\"\"\"\"(*$)F&\"\"$F+F'*$)F&\"\"%F+F," } }{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#p2G,,*$)%\"xG\"\"&\"\"\"F)*$)F(\" \"$F*F-*$)F(\"\"#F*\"\"\"F(!\"#F1F1" }}}{EXCHG {PARA 0 "" 0 "" {TEXT 280 21 "Urcovani koeficientu:" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 14 "co eff(p2,x^3);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"\"$" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 25 "coeffs(p2, x, 'pow');pow;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6'\"\"\"!\"#\"\"$F#\"\"&" }}{PARA 11 "" 1 "" {XPPMATH 20 "6'\"\"\"%\"xG*$)F$\"\"$\"\"\"*$)F$\"\"#F(*$)F$\"\"&F(" }} }{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 7 "?coeffs" }}}{EXCHG {PARA 0 " > " 0 "" {MPLTEXT 1 0 22 "coeff(x^2-x*(x-1), x);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"\"\"" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 0 "" }{TEXT 302 7 "Prikaz " }{TEXT 303 6 "coeffs" }{TEXT 304 56 " pozaduje polynom v roznasobenem tvaru (collected form)." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 7 "?coeffs" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 23 " p:=x^3-(x-3)*(x^2+x)+1;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"pG,(*$) %\"xG\"\"$\"\"\"\"\"\"*&,&F(F+!\"$F+F+,&*$)F(\"\"#F*F+F(F+F+!\"\"F+F+ " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 10 "coeffs(p);" }}{PARA 8 " " 1 "" {TEXT -1 34 "Error, invalid arguments to coeffs" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 18 "coeffs(expand(p));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6%\"\"\"\"\"$\"\"#" }}}{EXCHG {PARA 270 "" 0 "" {TEXT -1 103 "Jednou se zakladnich operaci pro polynomy je deleni se z bytkem. Maple ma k tomuto ucelu dve procedury: " }{TEXT 281 3 "quo" } {TEXT -1 3 " a " }{TEXT 282 3 "rem" }{TEXT -1 1 "." }}{PARA 0 "> " 0 " " {MPLTEXT 1 0 21 "q:=quo(p2,p1,x, 'r');" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"qG,&%\"xG#\"\"&\"\"(#\"#:\"#\\\"\"\"" }}}{EXCHG {PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 2 "r;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#,*\"\"\"F $*$)%\"xG\"\"$\"\"\"#!#`\"#\\*$)F'\"\"#F)F$F'F*" }}}{EXCHG {PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 20 "testeq(p2=(q*p1+r));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#%%trueG" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "r em(p2,p1,x,'q');" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#,*\"\"\"F$*$)%\"xG \"\"$\"\"\"#!#`\"#\\*$)F'\"\"#F)F$F'F*" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 2 "q;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#,&%\"xG#\"\"&\" \"(#\"#:\"#\\\"\"\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 55 "gcd( p1,p2); #nejvetsi spolecny delitel polynomu p1 a p2" }}{PARA 11 "" 1 " " {XPPMATH 20 "6#,&*$)%\"xG\"\"#\"\"\"\"\"\"F)F)" }}}{EXCHG {PARA 271 "> " 0 "" {MPLTEXT 1 0 19 "pol:=expand(p1*p2);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$polG,4*$)%\"xG\"\"'\"\"\"!#<*$)F(\"\"%F*\"#6*$)F(\" \"$F*!#?*$)F(\"\"#F*\"#8F(!\"$*$)F(\"\"(F*\"#c*$)F(\"\"&F*F.*$)F(\"\") F*!#:*$)F(\"\"*F*\"#N" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 28 "ex pand(sqrt(2+x)*sqrt(3+x));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#*&-%%sqr tG6#,&\"\"#\"\"\"%\"xGF)\"\"\"-F%6#,&\"\"$F)F*F)F+" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 46 "combine(sqrt(2+x)*sqrt(3+x),radical,symboli c);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#*$-%%sqrtG6#,(\"\"'\"\"\"%\"xG \"\"&*$)F*\"\"#\"\"\"F)F/" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "?combine" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 0 "" }{TEXT 283 0 "" } {TEXT 284 62 "Komplikovanejsi jsou algoritmy pro rozklad polynomu na s oucin." }}}{EXCHG {PARA 272 "" 0 "" {TEXT -1 112 "Procedura factor() z apisuje polynom s racionalnimi koeficienty ve tvaru soucinu ireducibil nich polynomu (nad Q)." }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "factor(po l);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#**%\"xG\"\"\",&F$\"\"(!\"$F%F%, (*$)F$\"\"$\"\"\"\"\"&F$!\"#F%F%F%),&*$)F$\"\"#F-F%F%F%F4F-" }}} {EXCHG {PARA 285 "" 0 "" {TEXT -1 67 "Zapis factor(polynom, pole) prov adi rozklad nad algebraickym polem." }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 0 "" }{MPLTEXT 1 0 15 "factor(pol, I);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#*,,(*$)%\"xG\"\"$\"\"\"\"\"&F'!\"#\"\"\"F,F,,&F'\"\"(! \"$F,F,F'F,),&%\"IGF,F'F,\"\"#F)),&F'!\"\"F2F,F3F)" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 9 "p:=x^2+1;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6 #>%\"pG,&*$)%\"xG\"\"#\"\"\"\"\"\"F+F+" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 10 "factor(p);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#,&*$)% \"xG\"\"#\"\"\"\"\"\"F)F)" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 11 "irreduc(p);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#%%trueG" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "factor(p,I);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#,$*&,&%\"IG\"\"\"%\"xGF'F',&F(!\"\"F&F'F'F*" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 13 "irreduc(p,I);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#%&falseG" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 0 "" } {TEXT 307 0 "" }{TEXT 308 46 "Silnejsim nastrojem pro rozklady je proc edura " }{TEXT 309 6 "split " }{TEXT 310 20 "ze smisene knihovny." }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "readlib(split);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#R6%%\"aG%\"xG%\"sG6$%\"fG%\"LG6#%fnCopyright~(c )~1995~Waterloo~Maple~Inc.~All~rights~reserved.G6\"C%>8$--%(readlibG6# %'splitsG6&9$9%.8%-%#ifG6%2\"\"$9#&9\"6#;\"\"%F@%%NULLG@$1F?F@>9&F:*&- -%\"@G6$%&evalaG%'NormalG6#&F06#\"\"\"FU-%(convertG6$-%$mapG6$R6#F&F-F -F-)&F7FT&F76#\"\"#F-F-F-&F0F[o%\"*GFUF-F-F-" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "pol:=8*x^3-12*x;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$polG,&*$)%\"xG\"\"$\"\"\"\"\")F(!#7" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "factor(pol);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6# ,$*&%\"xG\"\"\",&*$)F%\"\"#\"\"\"F*!\"$F&F&\"\"%" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 13 "split(pol,x);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#,$*(%\"xG\"\"\",&F%F&-%'RootOfG6#,&*$)%#_ZG\"\"#\"\"\"F&!\"'F&#F &F/F&,&F%F&F(#!\"\"F/F&\"\")" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "convert(%,'radical');" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#,$*(%\" xG\"\"\",&F%F&*$-%%sqrtG6#\"\"'\"\"\"#F&\"\"#F&,&F%F&F(#!\"\"F/F&\"\") " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "split(x^2+1,x);" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#*&,&%\"xG\"\"\"-%'RootOfG6#,&*$)%#_ZG \"\"#\"\"\"F&F&F&!\"\"F&,&F%F&F'F&F&" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "convert(%,'radical');" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#*&,&%\"xG\"\"\"%\"IG!\"\"F&,&F%F&F'F&F&" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 0 "" }{TEXT 305 0 "" }{TEXT 306 24 "Polynomy vice promenny ch" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 96 "pol:=6*x*y^5+12*y^4+1 4*y^3*x^3 -15*x^2*y^3 + 9*x^3*y^2 - 30*x*y^2 - 35*x^4*y + 18*y*x^2 +21 *x^5;" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$polG,4*&%\"xG\"\"\")%\"yG \"\"&\"\"\"\"\"'*$)F*\"\"%F,\"#7*&)F*\"\"$F,)F'F4F,\"#9*&)F'\"\"#F,F3F ,!#:*&F5F,)F*F9F,\"\"**&F'F,F " 0 "" {MPLTEXT 1 0 54 "sort(pol, [x,y] , 'plex'); #Pure LEXicographic ordering" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#,4*$)%\"xG\"\"&\"\"\"\"#@*&)F&\"\"%F(%\"yG\"\"\"!#N*&)F&\"\"$F() F-F2F(\"#9*&F1F()F-\"\"#F(\"\"**&)F&F7F(F3F(!#:*&F:F(F-F(\"#=*&F&F.)F- F'F(\"\"'*&F&F(F6F(!#I*$)F-F,F(\"#7" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 54 "sort(pol, [y,x], 'plex'); #Pure LEXicographic orderin g" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#,4*&)%\"yG\"\"&\"\"\"%\"xG\"\"\" \"\"'*$)F&\"\"%F(\"#7*&)F&\"\"$F()F)F2F(\"#9*&F1F()F)\"\"#F(!#:*&)F&F7 F(F3F(\"\"**&F:F(F)F(!#I*&F&F*)F)F.F(!#N*&F&F(F6F(\"#=*$)F)F'F(\"#@" } }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 45 "sort(pol, [y,x]); #total d egree term ordering" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#,4*&)%\"yG\"\"& \"\"\"%\"xG\"\"\"\"\"'*&)F&\"\"$F()F)F.F(\"#9*&F-F()F)\"\"#F(!#:*&)F&F 3F(F/F(\"\"**&F&F*)F)\"\"%F(!#N*$)F)F'F(\"#@*$)F&F:F(\"#7*&F6F(F)F(!#I *&F&F(F2F(\"#=" }}}{EXCHG {PARA 273 "" 0 "" {TEXT -1 111 "Nebo se muze me na predchazejici polynom divat jako na polynom v promenne x, polyno my v y jsou pak koeficienty." }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "co llect(pol, x);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#,.*$)%\"xG\"\"&\"\" \"\"#@*&%\"yG\"\"\")F&\"\"%F(!#N*&,&*$)F+\"\"$F(\"#9*$)F+\"\"#F(\"\"*F ,)F&F4F(F,*&,&F+\"#=F2!#:F,)F&F8F(F,*&,&*$)F+F'F(\"\"'F6!#IF,F&F,F,*$) F+F.F(\"#7" }}}{EXCHG {PARA 0 "" 0 "" {TEXT 285 11 "A obracene." }} {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "collect(pol, y);" }}{PARA 12 "" 1 " " {XPPMATH 20 "6#,.*&)%\"yG\"\"&\"\"\"%\"xG\"\"\"\"\"'*$)F&\"\"%F(\"#7 *&,&*$)F)\"\"#F(!#:*$)F)\"\"$F(\"#9F*)F&F8F(F**&,&F6\"\"*F)!#IF*)F&F4F (F**&,&*$)F)F.F(!#NF2\"#=F*F&F*F**$)F)F'F(\"#@" }}}{EXCHG {PARA 0 "" 0 "" {TEXT 286 45 "Priklady na praci s polynomy vice promennych:" }} {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "coeff(pol, x^3);" }}{PARA 11 "" 1 " " {XPPMATH 20 "6#,&*$)%\"yG\"\"$\"\"\"\"#9*$)F&\"\"#F(\"\"*" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 33 "coeffs(pol, x, 'powers'); po wers;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6(,$*$)%\"yG\"\"%\"\"\"\"#7,&*$ )F&\"\"&F(\"\"'*$)F&\"\"#F(!#I,&*$)F&\"\"$F(\"#9F/\"\"*,&F&\"#=F4!#:,$ F&!#N\"#@" }}{PARA 11 "" 1 "" {XPPMATH 20 "6(\"\"\"%\"xG*$)F$\"\"$\"\" \"*$)F$\"\"#F(*$)F$\"\"%F(*$)F$\"\"&F(" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "settime:=time():" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "factor(pol);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#*&,(* $)%\"xG\"\"#\"\"\"\"\"$*&%\"yG\"\"\"F'F-!\"&*$)F,F*F)F(F-,(*$)F'F*F)\" \"(F,\"\"'*&)F,F(F)F'F)F*F-" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 25 "cpu_time:=time()-settime;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%)cp u_timeG$\"#9!\"$" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 19 "Racionalni fu nkce.\n" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 28 "r:=(x^2+3*x+2)/ (x^2+5*x +6);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"rG*&,(*$)%\"xG\"\"#\"\"\" \"\"\"F)\"\"$F*F,F+,(F'F,F)\"\"&\"\"'F,!\"\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 19 "type(r, 'ratpoly');" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#%%trueG" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "w hattype(r);" }{TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#%\"*G" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 41 "numer(r), denom(r); #citatel a jmenovatel" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$,(*$)%\"xG\"\"#\"\"\"\"\"\"F&\"\"$F'F),(F$F)F&\"\"&\"\" 'F)" }}}{EXCHG {PARA 274 "" 0 "" {TEXT -1 151 "Na rozdil od racionalni ch cisel Maple neprovadi automaticke zjednoduseni.\nZjednoduseni prove deme prikazem normal (tak, aby gcd(citatel, jmenovatel)=1)." }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 2 "r;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#*&,( *$)%\"xG\"\"#\"\"\"\"\"\"F'\"\"$F(F*F),(F%F*F'\"\"&\"\"'F*!\"\"" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 10 "normal(r);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#*&,&%\"xG\"\"\"F&F&\"\"\",&\"\"$F&F%F&!\"\"" }}} {EXCHG {PARA 0 "" 0 "" {TEXT 287 92 "Zjednoduseni se provede automatic ky pouze v pripade, ze Maple okamzite pozna spolecne cleny." }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 19 "ff:=(x-1)*numer(r);" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#>%#ffG*&,&%\"xG\"\"\"!\"\"F(F(,(*$)F' \"\"#\"\"\"F(F'\"\"$F-F(F(" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 19 "gg:=(x-1)*denom(r);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#ggG*&,&% \"xG\"\"\"!\"\"F(F(,(*$)F'\"\"#\"\"\"F(F'\"\"&\"\"'F(F(" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 6 "ff/gg;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#*&,(*$)%\"xG\"\"#\"\"\"\"\"\"F'\"\"$F(F*F),(F%F*F'\"\"&\"\"'F*! \"\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 14 "expand(ff)/gg;" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#*&,**$)%\"xG\"\"$\"\"\"\"\"\"*$)F'\"\" #F)F-F'!\"\"!\"#F*F)*&,&F'F*F.F*\"\"\",(F+F*F'\"\"&\"\"'F*\"\"\"!\"\" " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 18 "(x^(100)-1)/(x-1);" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#*&,&*$)%\"xG\"$+\"\"\"\"\"\"\"!\"\"F*F ),&F'F*F+F*!\"\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 10 "normal( %);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#,dw\"\"\"F$%\"xGF$*$)F%\"\"$\" \"\"F$*$)F%\"\"#F)F$*$)F%\"\"%F)F$*$)F%\"\"&F)F$*$)F%\"\"'F)F$*$)F%\"# **F)F$*$)F%\"#(*F)F$*$)F%\"#)*F)F$*$)F%\"#'*F)F$*$)F%\"#&*F)F$*$)F%\"# %*F)F$*$)F%\"#$*F)F$*$)F%\"##*F)F$*$)F%\"#\"*F)F$*$)F%\"#!*F)F$*$)F%\" #*)F)F$*$)F%\"#))F)F$*$)F%\"#()F)F$*$)F%\"#')F)F$*$)F%\"#&)F)F$*$)F%\" #%)F)F$*$)F%\"#$)F)F$*$)F%\"##)F)F$*$)F%\"#\")F)F$*$)F%\"#!)F)F$*$)F% \"#zF)F$*$)F%\"#yF)F$*$)F%\"#xF)F$*$)F%\"#wF)F$*$)F%\"#vF)F$*$)F%\"#uF )F$*$)F%\"#tF)F$*$)F%\"#sF)F$*$)F%\"#rF)F$*$)F%\"#qF)F$*$)F%\"#pF)F$*$ )F%\"#oF)F$*$)F%\"#nF)F$*$)F%\"#mF)F$*$)F%\"#lF)F$*$)F%\"#kF)F$*$)F%\" #jF)F$*$)F%\"#iF)F$*$)F%\"#hF)F$*$)F%\"#gF)F$*$)F%\"#fF)F$*$)F%\"#eF)F $*$)F%\"#dF)F$*$)F%\"#cF)F$*$)F%\"#bF)F$*$)F%\"#aF)F$*$)F%\"#`F)F$*$)F %\"#_F)F$*$)F%\"#^F)F$*$)F%\"#]F)F$*$)F%\"#\\F)F$*$)F%\"#[F)F$*$)F%\"# ZF)F$*$)F%\"#YF)F$*$)F%\"#XF)F$*$)F%\"#WF)F$*$)F%\"#VF)F$*$)F%\"#UF)F$ *$)F%\"#TF)F$*$)F%\"#SF)F$*$)F%\"#RF)F$*$)F%\"#QF)F$*$)F%\"#PF)F$*$)F% \"#OF)F$*$)F%\"#NF)F$*$)F%\"#LF)F$*$)F%\"#MF)F$*$)F%\"#KF)F$*$)F%\"#JF )F$*$)F%\"#IF)F$*$)F%\"#HF)F$*$)F%\"#GF)F$*$)F%\"#FF)F$*$)F%\"#EF)F$*$ )F%\"#DF)F$*$)F%\"#CF)F$*$)F%\"#AF)F$*$)F%\"#@F)F$*$)F%\"#?F)F$*$)F%\" #=F)F$*$)F%\"#F)F$*$)F%\"#BF)F$" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 60 "f:=161*y^3+333*x*y^2+184*y^2+162*x^2*y+144*x*y+77*y+9 9*x+88:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 56 "g:=49*y^2+28*x^2 *y+63*x*y+147*y+36*x^3+32*x^2+117*x+104:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "racfce:=f/g;" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%'ra cfceG*&,2*$)%\"yG\"\"$\"\"\"\"$h\"*&)F)\"\"#F+%\"xG\"\"\"\"$L$*$F.F+\" $%=*&F)F1)F0F/F+\"$i\"*&F)F+F0F+\"$W\"F)\"#xF0\"#**\"#))F1F+,2F3\"#\\F 5\"#GF8\"#jF)\"$Z\"*$)F0F*F+\"#O*$F6F+\"#KF0\"$<\"\"$/\"F1!\"\"" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "normal(racfce);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#*&,(*&%\"yG\"\"\"%\"xGF'\"#=*$)F&\"\"#\"\"\"\"# B\"#6F'F-,(*$)F(F,F-\"\"%F&\"\"(\"#8F'!\"\"" }}}{EXCHG {PARA 0 "" 0 " " {TEXT -1 28 "Rozklad na parcialni zlomky:" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "q:=(x^3+x^2-x+1)/p1;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"qG*&,**$)%\"xG\"\"$\"\"\"\"\"\"*$)F)\"\"#F+F,F)!\"\"F,F,F+,*F)! \"$F-\"\"(F'F2*$)F)\"\"%F+F3!\"\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 25 "convert(q, 'parfrac', x);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#,(*&\"\"\"F%%\"xG!\"\"#!\"\"\"\"$*&F%F%,&F&\"\"(!\"$\" \"\"F'#\"$V\"\"#()*&,&F*F/F&F-F%,&*$)F&\"\"#F%F/F/F/F'#F/\"#H" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 28 "convert(q,'parfrac',x,real); " }}{PARA 12 "" 1 "" {XPPMATH 20 "6#,(*&\"\"\"F%%\"xG!\"\"$!+MLLLL!#5* &F%F%,&F&\"\"\"$!+'G9dG%F*F-F'$\"+f;6[BF**&,&$\"+?$z8C(F*F-F&$\"+u^l*o \"!\"*F%,&*$)F&\"\"#F%F-$F-\"\"!F-F'$\"+H9dG9F*" }}}{EXCHG {PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 21 "convert(%, rational);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#,(*&\"\"\"F%%\"xG!\"\"#!\"\"\"\"$*&F%F%,&F&\"\"\"#!\"$ \"\"(F-F'#\"$V\"\"$4'*&,&#\")a?'e#\")lUrNF-F&#\"#\\\"#HF%,&*$)F&\"\"#F %F-F-F-F'#F-F0" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 25 "convert(q ,'parfrac',x,I);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#,**&,&#!\"(\"#e\" \"\"%\"IG#\"\"$F(\"\"\",&%\"xG!\"\"F*F)!\"\"F)*&F-F-F/F1#F0F,*&,&#\"\" (F(F)F*F+F-,&F/F)F*F)F1F)*&F-F-,&F/F7!\"$F)F1#\"$V\"\"#()" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 29 "convert(q, 'fullparfrac', x);" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#,(*&\"\"\"F%%\"xG!\"\"#!\"\"\"\"$*&F%F %,&F&\"\"\"#!\"$\"\"(F-F'#\"$V\"\"$4'-%$SumG6$*&,&%'_alphaG#F/\"#e#F0F ;F-F%,&F&F-F9F)F'/F9-%'RootOfG6#,&*$)%#_ZG\"\"#F%F-F-F-F-" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "convert(%, radical);" }}{PARA 11 " " 1 "" {XPPMATH 20 "6#,**&\"\"\"F%%\"xG!\"\"#!\"\"\"\"$*&F%F%,&F&\"\" \"#!\"$\"\"(F-F'#\"$V\"\"$4'*&,&#F0\"#eF-%\"IG#F/F7F%,&F&F-F8F)F'F-*&, &F6F-F8#F*F7F%,&F&F-F8F-F'F-" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "1/(x^4-5*x^2+6);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#*&\"\"\"F$,( *$)%\"xG\"\"%F$\"\"\"*$)F(\"\"#F$!\"&\"\"'F*!\"\"" }}}{EXCHG {PARA 0 " > " 0 "" {MPLTEXT 1 0 21 "convert(%,parfrac,x);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#,&*&\"\"\"F%,&*$)%\"xG\"\"#F%\"\"\"!\"#F+!\"\"!\"\"*&F% F%,&F'F+!\"$F+F-F+" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 29 "conve rt(%,parfrac,x,sqrt(2));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#,(*&*$-%%s qrtG6#\"\"#\"\"\"F*,&*$F&F*\"\"\"%\"xGF-!\"\"#F-\"\"%*&*$F&F*F*,&F.F-F ,!\"\"F/#F5F1*&F*F*,&*$)F.F)F*F-!\"$F-F/F-" }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 39 "convert(%,parfrac,x,\{sqrt(2),sqrt(3)\});" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#,**&*$-%%sqrtG6#\"\"#\"\"\"F*,&*$F&F*\"\"%% \"xGF-!\"\"\"\"\"*&*$F&F*F*,&F.F-F,!\"%F/!\"\"*&*$-F'6#\"\"$F*F*,&*$F8 F*F0F.F0F/#F5\"\"'*&*$F8F*F*,&F.F0F" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 38 "ratfun:=(x-a)/(x^5+b*x^4-c*x^2-b*c*x);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%'ratfunG*&,&%\"xG\"\"\"%\"aG!\"\"\"\"\",** $)F'\"\"&F+F(*&%\"bGF()F'\"\"%F+F(*&%\"cGF()F'\"\"#F+F**(F1F+F5F+F'F(F *!\"\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 30 "convert(ratfun, ' parfrac', x);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#,(*&%\"aG\"\"\"*(%\"b G\"\"\"%\"cG\"\"\"%\"xG\"\"\"!\"\"\"\"\"*&,.*&)F(\"\"#F&F*F/!\"\"*(F(F /F*F&F%F/F5*(F(F&F*F&F,F/F/*(F*F&F,F&F%F&F/*&F*F&)F,F4F&F5*(F:F&F3F&F% F&F/F&*(F*\"\"\",&F*F/*$)F(\"\"$F&F/\"\"\",&*$)F,FAF&F/F*F5\"\"\"F.F5* &,&F(F/F%F/F&*(F(\"\"\"F>\"\"\",&F,F/F(F/\"\"\"F.F5" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 14 "2/(2-sqrt(2));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#,$*&\"\"\"F%,&\"\"#\"\"\"*$-%%sqrtG6#F'F%!\"\"!\"\"F'" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 10 "Usmerneni:" }}}{EXCHG {PARA 0 " > " 0 "" {MPLTEXT 1 0 15 "rationalize(%);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#,&\"\"#\"\"\"*$-%%sqrtG6#F$\"\"\"F%" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 14 "z/(1+sqrt(x));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#*&%\"zG\"\"\",&\"\"\"F'*$-%%sqrtG6#%\"xGF%F'!\"\"" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "rationalize(%);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#*&*&%\"zG\"\"\",&!\"\"F&*$-%%sqrtG6#%\"xG\"\"\" F&F&F.,&F-F&F(F&!\"\"" }}}}{SECT 1 {PARA 3 "" 0 "" {TEXT 293 56 "Pozna mky k manipulaci s polynomy a racionalnimi funkcemi" }}{EXCHG {PARA 0 "" 0 "" {TEXT 288 6 "EXPAND" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "souc :=(x^2-x)*(x^2+2*x+1);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%%soucG*&,& *$)%\"xG\"\"#\"\"\"\"\"\"F)!\"\"F,,(F'F,F)F*F,F,F," }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 22 "expform:=expand(souc);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%(expformG,**$)%\"xG\"\"%\"\"\"\"\"\"*$)F(\"\"$F*F+*$) F(\"\"#F*!\"\"F(F2" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "souci n:=(a+b)*(c+d);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%'soucinG*&,&%\"bG \"\"\"%\"aGF(F(,&%\"cGF(%\"dGF(F(" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "expand(soucin);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#,* *&%\"bG\"\"\"%\"cGF&F&*&F%\"\"\"%\"dGF&F&*&F'F)%\"aGF&F&*&F,F)F*F)F&" }}}{EXCHG {PARA 275 "" 0 "" {TEXT -1 57 "Pokud nechceme roznasobovat ( c+d), musime to Maplu sdelit" }}{PARA 276 "" 0 "" {TEXT -1 38 "uvedeni m parametru v procedure expand." }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 29 " expform:=expand(soucin, c+d);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%(ex pformG,&*&,&%\"cG\"\"\"%\"dGF)F)%\"bGF)F)*&F'\"\"\"%\"aGF)F)" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "(x+1)^3;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#*$),&%\"xG\"\"\"F'F'\"\"$\"\"\"" }}}{EXCHG {PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 10 "expand(%);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6# ,**$)%\"xG\"\"$\"\"\"\"\"\"*$)F&\"\"#F(F'F&F'F)F)" }}}{EXCHG {PARA 0 " > " 0 "" {MPLTEXT 1 0 18 "power:=(x+1)^(-2);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%&powerG*&\"\"\"F&*$),&%\"xG\"\"\"F+F+\"\"#F&!\"\"" }} }{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 14 "expand(power);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#*&\"\"\"F$*$),&%\"xG\"\"\"F)F)\"\"#F$!\"\"" }}} {EXCHG {PARA 277 "" 0 "" {TEXT -1 49 "Zaporne mocniny Maple neexpanduj e. Musime provest" }}{PARA 278 "" 0 "" {TEXT -1 28 "umocneni jmenovate le zvlast." }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 34 "numer(power)/expand(d enom(power));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#*&\"\"\"F$,(*$)%\"xG \"\"#F$\"\"\"F(F)F*F*!\"\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "(x+1)^2/((x^2+x)*x);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#*&*$),&%\" xG\"\"\"F(F(\"\"#\"\"\"F**&,&*$)F'F)F*F(F'F(\"\"\"F'\"\"\"!\"\"" }}} {EXCHG {PARA 279 "" 0 "" {TEXT -1 44 "Pouziti expand na racionalni lom enou funkci:" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 10 "expand(%);" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#,(*&%\"xG\"\"\",&*$)F%\"\"#F&\"\"\"F%F +!\"\"F+*&F&F&F'F,F**&F&F&*&F'\"\"\"F%\"\"\"F,F+" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 36 "expand(numer(%%))/expand(denom(%%));" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#*&,(*$)%\"xG\"\"#\"\"\"\"\"\"F'F(F*F*F ),&*$)F'\"\"$F)F*F%F*!\"\"" }}}{EXCHG {PARA 280 "" 0 "" {TEXT -1 6 "FA CTOR" }}}{EXCHG {PARA 281 "" 0 "" {TEXT -1 85 "Factor provadi rozklad \+ polynomu na soucin korenovych cinitelu nad racionalnimi cisly." }} {PARA 282 "" 0 "" {TEXT -1 67 "Zapis factor(polynom, pole) provadi roz klad nad algebraickym polem." }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "q:= x^2+9/25;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"qG,&*$)%\"xG\"\"#\"\" \"\"\"\"#\"\"*\"#DF+" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "fac tor(q,I);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#,$*&,&%\"xG\"\"&%\"IG!\"$ \"\"\",&F&F'F(\"\"$F*#F*\"#D" }}}{PARA 11 "" 1 "" {TEXT -1 0 "" }} {EXCHG {PARA 0 "" 0 "" {TEXT 289 33 "Silnejsim nastrojem je procedura \+ " }{TEXT 290 5 "split" }{TEXT 291 20 " (smisena knihovna)." }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "readlib(split);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#R6%%\"aG%\"xG%\"sG6$%\"fG%\"LG6#%fnCopyright~(c)~1995~W aterloo~Maple~Inc.~All~rights~reserved.G6\"C%>8$--%(readlibG6#%'splits G6&9$9%.8%-%#ifG6%2\"\"$9#&9\"6#;\"\"%F@%%NULLG@$1F?F@>9&F:*&--%\"@G6$ %&evalaG%'NormalG6#&F06#\"\"\"FU-%(convertG6$-%$mapG6$R6#F&F-F-F-)&F7F T&F76#\"\"#F-F-F-&F0F[o%\"*GFUF-F-F-" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "pol:=8*x^3-12*x;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#> %$polG,&*$)%\"xG\"\"$\"\"\"\"\")F(!#7" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 13 "split(pol,x);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#,$*( %\"xG\"\"\",&F%F&-%'RootOfG6#,&*$)%#_ZG\"\"#\"\"\"F&!\"'F&#F&F/F&,&F%F &F(#!\"\"F/F&\"\")" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "conve rt(%,'radical');" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#,$*(%\"xG\"\"\",&F %F&*$-%%sqrtG6#\"\"'\"\"\"#F&\"\"#F&,&F%F&F(#!\"\"F/F&\"\")" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "factor(pol,sqrt(6));" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#,$*(%\"xG\"\"\",&F%\"\"#*$-%%sqrtG6#\" \"'\"\"\"F&F&,&F%F(F)!\"\"F&F(" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "split(x^2+1,x);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#*&,&%\"xG\" \"\"-%'RootOfG6#,&*$)%#_ZG\"\"#\"\"\"F&F&F&!\"\"F&,&F%F&F'F&F&" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "convert(%,'radical');" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#*&,&%\"xG\"\"\"%\"IG!\"\"F&,&F%F&F'F&F &" }}}{EXCHG {PARA 0 "" 0 "" {TEXT 292 6 "NORMAL" }{TEXT -1 0 "" }} {PARA 0 "> " 0 "" {MPLTEXT 1 0 36 "(x-1)*(x+2)/((x+1)*x)+(x-1)/(1+x)^2 ;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#,&*&*&,&%\"xG\"\"\"!\"\"F(F(,&\" \"#F(F'F(F(\"\"\"*&F'\"\"\",&F'F(F(F(\"\"\"!\"\"F(*&F&F,*$)F/\"\"#F,F1 F(" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 0 "" }{TEXT 295 0 "" }{TEXT 296 86 "Vykraceni spolecnych clenu z citatele a jmenovatele, prevod na spolecneho jmenovatele:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 10 "normal(%);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#*&*&,&%\"xG\"\"\"!\"\"F 'F',(*$)F&\"\"#\"\"\"F'F&\"\"%F,F'F'F-*&F&\"\"\"),&F&F'F'F'\"\"#F-!\" \"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "normal(%, expanded); " }}{PARA 11 "" 1 "" {XPPMATH 20 "6#*&,**$)%\"xG\"\"$\"\"\"\"\"\"*$)F' \"\"#F)F(F'!\"#F.F*F),(F%F*F+F-F'F*!\"\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 42 "racfce:=(x^4+x^3-4*x^2-4*x)/(x^3+x^2-x-1);" }}{PARA 2 "" 1 "" {TEXT -1 329 " \+ 4 3 2\n x \+ + x - 4 x - 4 x\n racfce := - -------------------\n \+ 3 2\n x + x \+ - x - 1" }}}{EXCHG {PARA 283 "" 0 "" {TEXT -1 0 "" }{TEXT 297 0 "" } {TEXT 298 84 "U nasledujici posloupnosti prikazu si vsimnete efektu po uziti prikazu expand, factor" }}{PARA 284 "" 0 "" {TEXT -1 0 "" } {TEXT 299 0 "" }{TEXT 300 73 "a normal na racionalni funkci, pripadne \+ na citatele a jmenovatele zvlast." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "factor(racfce);" }}{PARA 2 "" 1 "" {TEXT -1 187 " \+ (x - 2) (x + 2) x\n \+ -----------------\n \+ (x - 1) (x + 1)" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 50 "factor(numer(racfce))/sort(expand(denom(racfce)) );" }}{PARA 2 "" 1 "" {TEXT -1 249 " \+ x (x - 2) (x + 2) (x + 1)\n \+ -------------------------\n \+ 3 2\n x + x \+ - x - 1" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 50 "sort(expand(num er(racfce)))/factor(denom(racfce));" }}{PARA 2 "" 1 "" {TEXT -1 313 " \+ 4 3 2\n \+ x + x - 4 x - 4 x\n \+ --------------------\n \+ 2\n \+ (x - 1) (x + 1)" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 33 "sort(normal(racfce, 'expanded'));" }}{PARA 11 "" 1 " " {XPPMATH 20 "6#*&,&*$)%\"xG\"\"$\"\"\"\"\"\"F'!\"%F),&*$)F'\"\"#F)F* !\"\"F*!\"\"" }}}}{SECT 1 {PARA 4 "" 0 "" {TEXT 263 36 "Nekolik poznam ek k praci se systemem" }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "res tart;" }}}{EXCHG {PARA 263 "" 0 "" {TEXT 259 72 "Vice informaci o tom, jak system pracuje, dosahneme nastavenim promenne " }{TEXT 260 10 "pr intlevel" }{TEXT 261 78 ". \nDefault nastaveni je 1. Zaporna hodnota z namena bez doplnujicich komentaru." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 38 "integrate(1/(x^2+x+1), x=0..infinity);" }}{PARA 11 " " 1 "" {XPPMATH 20 "6#,$*&%#PiG\"\"\"-%%sqrtG6#\"\"$\"\"\"#\"\"#\"\"* " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 11 "printlevel;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"\"\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "printlevel:=100;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#> %+printlevelG\"$+\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 38 "inte grate(1/(x^2+x+1), x=0..infinity);" }}{PARA 9 "" 1 "" {TEXT -1 53 "\{- -> enter int, args = 1/(x^2+x+1), x = 0 .. infinity" }}{PARA 9 "" 1 " " {TEXT -1 116 "value remembered (in int): int/int([1/(x^2+x+1), x = 0 .. infinity], 10, _EnvCauchyPrincipalValue) -> 2/9*Pi*3^(1/2)" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#>%'answerG,$*&%#PiG\"\"\"-%%sqrtG6#\" \"$\"\"\"#\"\"#\"\"*" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#,$*&%#PiG\"\" \"-%%sqrtG6#\"\"$\"\"\"#\"\"#\"\"*" }}{PARA 9 "" 1 "" {TEXT -1 49 "<-- exit int (now at top level) = 2/9*Pi*3^(1/2)\}" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#,$*&%#PiG\"\"\"-%%sqrtG6#\"\"$\"\"\"#\"\"#\"\"*" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 14 "printlevel:=1;" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 16 "Prikaz interface" }}{PARA 0 "" 0 "" {TEXT 314 67 "Slouzi k nastavovani promennych, ovlivnujicich chovani M aplu, napr:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 29 "interface(pr ettyprint=false);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 22 "solve( a*x^2+b*x+c, x);" }}{PARA 6 "" 1 "" {TEXT -1 59 "1/2/a*(-b+(b^2-4*a*c) ^(1/2)) 1/2/a*(-b-(b^2-4*a*c)^(1/2))" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 49 "interface(prettyprint=true);#implicitni nastaveni" }} }{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 25 "interface(prettyprint=1);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 22 "solve(a*x^2+b*x+c, x);" } }{PARA 2 "" 1 "" {TEXT -1 316 " \+ 2 2\n \+ -b + sqrt(b - 4 a c) -b - sqrt(b - 4 a c)\n \+ sol := 1/2 ---------------------, 1/2 ---------------------\n \+ a a " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 25 "interface(prettyprint=2 );" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 22 "solve(a*x^2+b*x+c, x) ;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$,$*&,&%\"bG!\"\"*$-%%sqrtG6#,&*$) F&\"\"#\"\"\"\"\"\"*&%\"aGF1%\"cGF1!\"%F0F1F0F3!\"\"#F1F/,$*&,&F&F'F(F 'F0F3F6F7" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 27 "sol:=solve(a*x ^2+b*x+c, x):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 11 "print(sol) ;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$,$*&,&%\"bG!\"\"*$-%%sqrtG6#,&*$) F&\"\"#\"\"\"\"\"\"*&%\"aGF1%\"cGF1!\"%F0F1F0F3!\"\"#F1F/,$*&,&F&F'F(F 'F0F3F6F7" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "lprint(sol);" }}{PARA 6 "" 1 "" {TEXT -1 59 "1/2/a*(-b+(b^2-4*a*c)^(1/2)) 1/2/a*(- b-(b^2-4*a*c)^(1/2))" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 25 "int erface(verboseproc=2):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "p rint(unassign);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#R6\"6%%\"iG%\"jG%\" nG6#%aoCopyright~(c)~1990~by~the~University~of~Waterloo.~All~rights~re served.GF$C&>8$%&falseG?&8&9\"%%trueG@'/F0.%'assignG>F-F2-%%typeG6$F0% (indexedG-%1unassign/indexedG6#F0-F66$F0F0@$F->F6-%&evalnG6#F6%%NULLGF $FEF$" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 46 "interface(verbosep roc=1):#implicitni nastaveni" }}}{EXCHG {PARA 0 "" 0 "" {TEXT 256 19 " Maplovske knihovny:" }{TEXT 264 66 "\nstandardni (main)\nmiscellaneous (smisena)\npackages (spec. funkce)" }}{PARA 0 "" 0 "" {TEXT 266 15 "s dilena (share)" }}{PARA 0 "" 0 "" {TEXT -1 0 "" }{TEXT 265 0 "" } {TEXT -1 0 "" }{TEXT 257 149 "Pokud volame funkci ze standardni knihov ny, system ji sam zavede do pameti. Funkce ze smisene knihovny musime \+ nacist pomoci prikazu readlib(prikaz). " }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "readlib(mtaylor);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#R6\"6*%\" fG%\"kG%\"vG%\"mG%\"nG%\"sG%\"tG%\"wG6#%aoCopyright~(c)~1991~by~the~Un iversity~of~Waterloo.~All~rights~reserved.GF$C2>8$&9\"6#\"\"\">8&&F46# \"\"#@&-%%typeG6$F8%$setG>F87#-%#opG6#F84-F>6$F8%%listG>F87#F8@$4-F>6$ F8-FI6#<$%%nameG/FS%*algebraicG-%&ERRORG6#%Ginvalid~2nd~argument~(expa nsion~point)G>8)-%$mapG6$R6#%\"xGF$F$F$@%-F>6$9$%\"=G-%$rhsG6#F_o\"\"! F$F$F$F8>F8-Fgn6$RFjnF$F$F$@%F]o-%$lhsGFcoF_oF$F$F$F8>8'-%%nopsGFE@$0F ]p-F_p6#<#FC-FW6#%Hvariables~(2nd~argument)~must~be~uniqueG@%/9#F;>8( \"\"'>F\\q&F46#\"\"$@%/Fjp\"\"%>8+&F46#Fdq>Ffq7#-%\"$G6$F6F]p@$4-F>6$F 8<$-FI6#FS-F@Fdr-FW6#%O2nd~argument~(the~variable(s))~must~be~a~namesG @$34-F>6$F\\q%*nonnegintG0F\\q%)infinityG-FW6#%X3rd~argument~(the~orde r)~must~be~a~non-negative~integerG@$54-F>6$Ffq-FI6#%'posintG0-F_p6#Ffq F]p-FW6#%en4th~argument~(weights)~must~be~a~list~of~positive~integersG >F2-%%subsG6$7#-%$seqG6$/&F86#8%,&*&F[uF6)8*&FfqF\\uF6F6&FenF\\uF6/F]u ;F6F]pF2>F2-Fgn6&%(collectG-Fdt6$/-%\"OGF5Fdo-%'taylorG6%F2FauF\\qF8.% ,distributedG>F2-Fdt6$7#-Fht6$/F[u,&F[uF6Fcu!\"\"Fdu-Fdt6$/FauF6F2F$F$ F$" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 25 "mtaylor(sin(x+y), [x,y]);" }}}{EXCHG {PARA 258 "" 0 "" {TEXT -1 66 "Prikazy z knihovny spec. funkci zpristupnime \+ prikazem with. Napr.:" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 14 "with(stude nt);" }}}{EXCHG {PARA 259 "" 0 "" {TEXT -1 87 "nebo pokud chceme zadat jednu konkretni funkci z daneho baliku, provedeme zadani takto:" }} {PARA 0 "> " 0 "" {MPLTEXT 1 0 31 "student[distance]([1,1],[3,4]);" }} }{EXCHG {PARA 0 "" 0 "" {TEXT 267 0 "" }{TEXT 268 33 "Seznam knihoven \+ ziskame prikazem " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "?index [packages];" }{TEXT -1 0 "" }{TEXT 269 0 "" }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 0 "" }{TEXT 270 0 "" }{TEXT 271 0 " " }{TEXT 272 39 "napovedu ke konkretni knihovne prikazem" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 9 "?student;" }}}{EXCHG {PARA 267 "" 0 "" {TEXT -1 91 "Sdilenou knihovnu (obsahuje procedury, ktere postupne \nvytvareji uzivatele) nacteme prikazem" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "with(share);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 6 "?sha re" }}}{EXCHG {PARA 0 "" 0 "" {TEXT 273 68 "Definice synonym (pouzivam e, kdyz se chceme vyhnout dlouhym jmenum):" }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 8 "restart;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 29 "alias(D = student[distance]);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "D([1,1],[3,4]);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 27 "alias(D=D); #odstrani alias" }}}{EXCHG {PARA 268 "" 0 "" {TEXT -1 17 "Definice zkratek:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 29 "macro(D = student[distance]);" }}}{EXCHG {PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 15 "D([1,1],[3,4]);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 11 "macro(D=D);" }}}{EXCHG {PARA 266 "" 0 "" {TEXT -1 58 "Alias ovlivnuje vstup i vystup, zatimco macro pouze vstup." }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "alias(c=a^2+b^2);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$%\"IG%\"cG" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 2 "c;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#%\"cG" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 14 "1/(a^2+b^2);c;" }}{PARA 11 "" 1 "" {XPPMATH 20 " 6#*&\"\"\"F$%\"cG!\"\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#%\"cG" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "a^2+b^2;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#%\"cG" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 11 "ali as(c=c);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#%\"IG" }}}{EXCHG {PARA 0 " > " 0 "" {MPLTEXT 1 0 17 "macro(c=a^2+b^2);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "1/(a^2+b^2);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#*& \"\"\"F$,&*$)%\"aG\"\"#F$\"\"\"*$)%\"bGF)F$F*!\"\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "a^2+b^2;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6# ,&*$)%\"aG\"\"#\"\"\"\"\"\"*$)%\"bGF'F(F)" }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 2 "c;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#,&*$)%\"aG\"\" #\"\"\"\"\"\"*$)%\"bGF'F(F)" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 11 "macro(c=c);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "restart; " }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 25 "Nacitani a ukladani dat.\n" } {TEXT 258 4 "save" }{TEXT 301 54 " - uklada ve formatu, ktery se da po zdeji opet pouzit " }}{PARA 260 "" 0 "" {TEXT -1 76 " v Maplovske sess ion.\numoznuje ulozeni v internim Maplovskem formatu (.m) a " }}{PARA 261 "" 0 "" {TEXT -1 45 " v \"lidsky citelnem\" (textovem) formatu\nPr .: " }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 34 "pol:=x^2+2*x+1; `cislo ctyri ` :=4;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$polG,(*$)%\"xG\"\"#\"\"\" \"\"\"F(F)F+F+" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%,cislo~ctyriG\"\"% " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 55 "save `datafile.m`; #nut ne uzavreni do levych apostrofu!" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 34 "save pol, `cislo ctyri`, datafile;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "restart;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 4 "pol;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#%$polG" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "read datafile; " }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$polG,(*$)%\"xG\"\"#\"\"\"\"\"\"F(F)F+F+" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#>%,cislo~ctyriG\"\"%" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 4 "pol;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#,( *$)%\"xG\"\"#\"\"\"\"\"\"F&F'F)F)" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "restart;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 18 "read `datafile.m`;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 4 "pol; " }}{PARA 11 "" 1 "" {XPPMATH 20 "6#,(*$)%\"xG\"\"#\"\"\"\"\"\"F&F'F)F )" }}}{EXCHG {PARA 262 "" 0 "" {TEXT -1 193 "V pripade opetneho nacten i souboru datafile jsou instrukce opetne zobrazeny, v pripade datafile .m tomu tak neni (nacitani .m souboru je efektivnejsi). Muzeme ukladat i pouze jednotlive promenne" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "sav e pol, output;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 24 "ssystem(` cat datafile`);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#7$\"\"!QGpol~:=~x^2 +2*x+1;|+`cislo~ctyri`~:=~4;|+6\"" }}}{EXCHG {PARA 269 "" 0 "" {TEXT -1 137 "Maple pri startu prohlizi soubor .mapleinit ve Vasem domovskem adresari (zde muzeme napriklad nacitat knihovny,\nktere casto potrebu jeme)." }}{PARA 0 "" 0 "" {TEXT -1 0 "" }{TEXT 274 0 "" }{TEXT 275 75 "Adresare, ve kterych Maple hleda nacitane knihovny, jsou urcovany pro mennou" }{TEXT -1 0 "" }{TEXT 276 0 "" }{TEXT 277 9 " libname." }} {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "libname;" }}{PARA 12 "" 1 "" {XPPMATH 20 "6%%F/home4/plch/diplomky/srot/pgs/Maplev9GQ;/usr/local/ma pleV51/update6\"Q8/usr/local/mapleV51/libF%" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 37 "libname:=`/home4/plch/maple`,libname;" }{TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 0 "" } }{PARA 12 "" 1 "" {XPPMATH 20 "6#>%(libnameG6&%2/home4/plch/mapleG%F/h ome4/plch/diplomky/srot/pgs/Maplev9GQ;/usr/local/mapleV51/update6\"Q8/ usr/local/mapleV51/libF)" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 " libname;" }}{PARA 12 "" 1 "" {XPPMATH 20 "6&%2/home4/plch/mapleG%F/hom e4/plch/diplomky/srot/pgs/Maplev9GQ;/usr/local/mapleV51/update6\"Q8/us r/local/mapleV51/libF&" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 0 "" }{TEXT 312 0 "" }{TEXT 313 72 "Procedura latex generuje zdrojovy kod LaTeXu pro zadany vzorec (vzorc e):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "readlib(latex):" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 27 "latex((x^2+y^2)/(x^2-y^2)); " }}{PARA 6 "" 1 "" {TEXT -1 42 "\{\\frac \{\{x\}^\{2\}+\{y\}^\{2\}\} \{\{x\}^\{2\}-\{y\}^\{2\}\}\}" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "(x^2+y^2)/(x^2-y^2);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#*&,&*$)% \"xG\"\"#\"\"\"\"\"\"*$)%\"yGF(F)F*F),&F%F*F+!\"\"!\"\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 24 "latex(%, `vzorec1.tex`);" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 18 "polyeq:=x^3-a*x=1;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%'polyeqG/,&*$)%\"xG\"\"$\"\"\"\"\"\"*&%\"a GF,F)F,!\"\"F," }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 22 "sols:=sol ve(polyeq,x);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%%solsG6%,&*$),&\"$3 \"\"\"\"*$-%%sqrtG6#,&*$)%\"aG\"\"$\"\"\"!#7\"#\")F+F5\"#7#F+F4F5#F+\" \"'*&F3F5*$)F)#\"\"\"F4F5!\"\"\"\"#,(F'#!\"\"F8F " 0 "" {MPLTEXT 1 0 14 "sol1:=sols[1];" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%% sol1G,&*$),&\"$3\"\"\"\"*$-%%sqrtG6#,&*$)%\"aG\"\"$\"\"\"!#7\"#\")F*F4 \"#7#F*F3F4#F*\"\"'*&F2F4*$)F(#\"\"\"F3F4!\"\"\"\"#" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 11 "readlib(C):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "C(sol1);" }}{PARA 6 "" 1 "" {TEXT -1 79 " t0 = po w(108.0+12.0*sqrt(-12.0*a*a*a+81.0),0.3333333333333333)/6.0+2.0*a/" }} {PARA 6 "" 1 "" {TEXT -1 58 "pow(108.0+12.0*sqrt(-12.0*a*a*a+81.0),0.3 333333333333333);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 19 "C(sol1 , optimized);" }}{PARA 6 "" 1 "" {TEXT -1 15 " t1 = a*a;" }} {PARA 6 "" 1 "" {TEXT -1 33 " t5 = sqrt(-12.0*t1*a+81.0);" }} {PARA 6 "" 1 "" {TEXT -1 49 " t8 = pow(108.0+12.0*t5,0.3333333333 333333);" }}{PARA 6 "" 1 "" {TEXT -1 28 " t13 = t8/6.0+2.0*a/t8; " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 40 "C(sol1, optimized, file name=`vystup.c`);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}} {PARA 0 "" 0 "" {TEXT -1 0 "" }}}}{MARK "1 92 0 0" 22 }{VIEWOPTS 1 1 0 1 1 1803 }