{VERSION 6 0 "IBM INTEL LINUX" "6.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 Output" 2 20 "" 0 1 0 0 255 1 0 0 0 0 0 0 0 0 0 1 } {CSTYLE "" -1 259 "" 0 12 0 0 0 0 0 2 0 0 0 0 0 0 0 1 }{CSTYLE "" -1 260 "" 0 12 0 0 0 0 0 0 0 0 0 0 0 0 0 1 }{CSTYLE "" -1 261 "" 0 12 0 0 0 0 0 2 0 0 0 0 0 0 0 1 }{CSTYLE "" -1 262 "" 0 1 0 0 0 0 0 2 0 0 0 0 0 0 0 1 }{CSTYLE "" -1 263 "" 1 24 0 0 0 0 0 0 0 0 0 0 0 0 0 1 } {CSTYLE "" -1 267 "" 1 14 0 0 0 0 0 0 0 0 0 0 0 0 0 1 }{CSTYLE "" -1 268 "" 0 14 0 0 0 0 0 2 0 0 0 0 0 0 0 1 }{CSTYLE "" -1 273 "" 0 14 0 0 0 0 0 2 0 0 0 0 0 0 0 1 }{CSTYLE "" -1 278 "" 0 14 0 0 0 0 0 2 0 0 0 0 0 0 0 1 }{CSTYLE "" -1 283 "" 1 14 0 0 0 0 0 0 0 0 0 0 0 0 0 1 } {CSTYLE "" -1 284 "" 0 14 0 0 0 0 0 2 0 0 0 0 0 0 0 1 }{CSTYLE "" -1 287 "" 0 14 0 0 0 0 0 2 0 0 0 0 0 0 0 1 }{CSTYLE "" -1 293 "" 1 24 0 0 0 0 0 2 0 0 0 0 0 0 0 1 }{CSTYLE "" -1 295 "" 1 14 0 0 0 0 0 0 0 0 0 0 0 0 0 1 }{CSTYLE "" -1 296 "" 0 14 0 0 0 0 0 2 0 0 0 0 0 0 0 1 } {CSTYLE "" -1 303 "" 0 14 0 0 0 0 0 0 0 0 0 0 0 0 0 1 }{CSTYLE "" -1 304 "" 0 14 0 0 0 0 0 2 0 0 0 0 0 0 0 1 }{CSTYLE "" -1 305 "" 0 1 0 0 0 0 0 2 0 0 0 0 0 0 0 1 }{CSTYLE "" -1 306 "" 0 14 0 0 0 0 0 2 0 0 0 0 0 0 0 1 }{CSTYLE "" -1 307 "" 0 14 0 0 0 0 0 0 0 0 0 0 0 0 0 1 } {CSTYLE "" -1 308 "" 0 14 0 0 0 0 0 2 0 0 0 0 0 0 0 1 }{CSTYLE "" -1 309 "" 0 14 0 0 0 0 0 0 0 0 0 0 0 0 0 1 }{CSTYLE "" -1 311 "" 0 14 0 0 0 0 0 2 0 0 0 0 0 0 0 1 }{CSTYLE "" -1 312 "" 0 1 0 0 0 0 0 2 0 0 0 0 0 0 0 1 }{CSTYLE "" -1 313 "" 0 14 0 0 0 0 0 2 0 0 0 0 0 0 0 1 } {CSTYLE "" -1 317 "" 0 1 0 0 0 0 0 2 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 318 "" 0 1 0 0 0 0 0 2 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 319 "" 0 14 0 0 0 0 0 2 0 0 0 0 0 0 0 1 }{CSTYLE "" -1 320 "" 0 1 0 0 0 0 0 2 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 321 "" 0 1 0 0 0 0 0 2 0 0 0 0 0 0 0 0 } {CSTYLE "" -1 322 "" 1 14 0 0 0 0 0 2 0 0 0 0 0 0 0 1 }{CSTYLE "" -1 323 "" 1 14 0 0 0 0 0 2 0 0 0 0 0 0 0 1 }{CSTYLE "" -1 324 "" 0 14 0 0 0 0 0 2 0 0 0 0 0 0 0 1 }{CSTYLE "" -1 325 "" 0 14 0 0 0 0 0 0 0 0 0 0 0 0 0 1 }{CSTYLE "" -1 326 "" 0 14 0 0 0 0 0 2 0 0 0 0 0 0 0 1 } {CSTYLE "" -1 327 "" 1 24 0 0 0 0 0 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 328 "" 1 14 0 0 0 0 0 2 0 0 0 0 0 0 0 1 }{CSTYLE "" -1 329 "" 0 14 0 0 0 0 0 2 0 0 0 0 0 0 0 1 }{CSTYLE "" -1 330 "" 0 1 0 0 0 0 0 2 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 331 "" 0 1 0 0 0 0 0 2 0 0 0 0 0 0 0 0 } {CSTYLE "" -1 332 "" 0 1 0 0 0 0 0 2 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 333 "" 0 1 0 0 0 0 0 2 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 334 "" 0 1 0 0 0 0 0 2 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 335 "" 0 1 0 0 0 0 0 2 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 336 "" 0 1 0 0 0 0 0 2 0 0 0 0 0 0 0 0 } {CSTYLE "" -1 337 "" 0 1 0 0 0 0 0 2 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 338 "" 0 1 0 0 0 0 0 2 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 339 "" 0 1 0 0 0 0 0 2 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 340 "" 0 1 0 0 0 0 0 2 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 341 "" 1 24 0 0 0 0 0 0 0 0 0 0 0 0 0 0 } {CSTYLE "" -1 342 "" 0 1 0 0 0 0 0 2 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 343 "" 0 1 0 0 0 0 0 2 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 344 "" 0 1 0 0 0 0 0 2 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 345 "" 1 14 0 0 0 0 0 2 0 0 0 0 0 0 0 1 }{CSTYLE "" -1 346 "" 0 1 0 0 0 0 0 2 0 0 0 0 0 0 0 0 } {CSTYLE "" -1 347 "" 1 12 0 0 0 0 0 2 0 0 0 0 0 0 0 1 }{CSTYLE "" -1 348 "" 0 1 0 0 0 0 0 2 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 349 "" 0 1 0 0 0 0 0 2 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 350 "" 0 1 0 0 0 0 0 2 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 351 "" 0 1 0 0 0 0 0 2 0 0 0 0 0 0 0 0 } {CSTYLE "" -1 352 "" 0 1 0 0 0 0 0 2 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 353 "" 0 1 0 0 0 0 0 2 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 354 "" 1 24 0 0 0 0 0 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 355 "" 0 1 0 0 0 0 0 2 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 356 "" 0 1 0 0 0 0 0 2 0 0 0 0 0 0 0 0 } {CSTYLE "" -1 357 "" 0 1 0 0 0 0 0 2 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 358 "" 0 1 0 0 0 0 0 2 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 359 "" 0 1 0 0 0 0 0 2 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 360 "" 0 1 0 0 0 0 0 2 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 361 "" 0 1 0 0 0 0 0 2 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 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 3 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 0 0 0 0 0 1 0 0 0 0 0 0 0 1 }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 1 }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 1 }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 1 }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 1 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "Diagnostic" 7 9 1 {CSTYLE "" -1 -1 " " 0 1 64 128 64 1 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 "Maple Output" 0 11 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 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 "" 11 12 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 1 }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 1 }3 0 0 -1 12 12 0 0 0 0 0 0 19 0 }{PSTYLE "R3 Fo nt 0" -1 256 1 {CSTYLE "" -1 -1 "Helvetica" 1 24 0 0 0 0 2 1 2 0 0 0 0 0 0 1 }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 1 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "" 0 263 1 {CSTYLE "" -1 -1 "" 0 14 0 0 0 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 "" 3 264 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 2 0 0 0 0 0 0 0 1 }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 1 }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 1 }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 1 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "" 0 286 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 2 0 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 43 "p1:=-3*x +7*x^2-3*x^3+7*x^4;#collected form\n" }}{PARA 11 "" 1 "" {XPPMATH 20 " 6#>%#p1G,**&\"\"$\"\"\"%\"xGF(!\"\"*&\"\"(F()F)\"\"#F(F(*&F'F()F)F'F(F **&F,F()F)\"\"%F(F(" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "type (p1, 'polynom');\n" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#%%trueG" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 14 "whattype(p1);\n" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#%\"+G" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "ved:=lcoeff(p1);\n" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$vedG\" \"(" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "stupen:=degree(p1); \n" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%'stupenG\"\"%" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 27 "Scitani a nasobeni polynomu" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 51 "p2:=5*x^5+3*x^3+x^2-2*x+1;#expanded canonical form\n" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#p2G,,*&\"\"&\" \"\")%\"xGF'F(F(*&\"\"$F()F*F,F(F(*$)F*\"\"#F(F(*&F0F(F*F(!\"\"F(F(" } }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 13 "2*p1-3*p2+3;\n" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#,**&\"#6\"\"\")%\"xG\"\"#F&F&*&\"#:F&)F(\"\" $F&!\"\"*&\"#9F&)F(\"\"%F&F&*&F+F&)F(\"\"&F&F." }}}{EXCHG {PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 7 "p1*p2;\n" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#*&, **&\"\"$\"\"\"%\"xGF'!\"\"*&\"\"(F')F(\"\"#F'F'*&F&F')F(F&F'F)*&F+F')F (\"\"%F'F'F',,*&\"\"&F')F(F5F'F'*&F&F'F/F'F'*$F,F'F'*&F-F'F(F'F)F'F'F' " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "v1:=expand(%);\n" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#>%#v1G,4*&\"#<\"\"\")%\"xG\"\"'F(!\"\" *&\"#6F()F*\"\"%F(F(*&\"#?F()F*\"\"$F(F,*&\"#8F()F*\"\"#F(F(*&F4F(F*F( F,*&\"#cF()F*\"\"(F(F(*&F0F()F*\"\"&F(F(*&\"#:F()F*\"\")F(F,*&\"#NF()F *\"\"*F(F(" }}}{EXCHG {PARA 0 "" 0 "" {TEXT 278 90 "Maple neprovadi au tomaticky roznasobeni, coz vypada jako nevyhoda, ale ve skutecnosti ne ni" }{TEXT 322 1 "." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "(3*x +5)^10;\n" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#*$),&*&\"\"$\"\"\"%\"xGF( F(\"\"&F(\"#5F(" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "expand(( 3*x+5)^10);\n" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#,8*&\"&\\!f\"\"\")%\" xG\"#5F&F&*&\"']T)*F&)F(\"\"*F&F&*&\"(D6Q(F&)F(\"\")F&F&*&\")+]!G$F&)F (\"\"(F&F&*&\")]7o&*F&)F(\"\"'F&F&*&\"*+DO\">F&)F(\"\"&F&F&*&\"*]7yl#F &)F(\"\"%F&F&*&\"*+]7`#F&)F(\"\"$F&F&*&\"*DJ?e\"F&)F(\"\"#F&F&*&\")]Pf eF&F(F&F&\"(Dcw*F&" }}}{EXCHG {PARA 286 "" 0 "" {TEXT -1 150 "Cleny po lynomu nejsou automaticky usporadany (z pametovych duvodu). Usporadani provedeme pomoci procedury sort (sestupne vzhledem ke stupni polynomu )." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 10 "sort(v1);\n" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#,4*&\"#N\"\"\")%\"xG\"\"*F&F&*&\"#:F&)F(\"\" )F&!\"\"*&\"#cF&)F(\"\"(F&F&*&\"# " 0 "" {MPLTEXT 1 0 8 "res tart;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "p:=1+x+x^3+x^2;\n " }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"pG,*\"\"\"F&%\"xGF&*$)F'\"\"$F &F&*$)F'\"\"#F&F&" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 13 "x^3+x^ 2+x+1;\n" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#,*\"\"\"F$%\"xGF$*$)F%\"\" $F$F$*$)F%\"\"#F$F$" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 24 "q:=( x-1)*(x^3+x^2+x+1);\n" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"qG*&,&%\" xG\"\"\"F(!\"\"F(,*F(F(F'F(*$)F'\"\"$F(F(*$)F'\"\"#F(F(F(" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 9 "sort(p);\n" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#,**$)%\"xG\"\"$\"\"\"F(*$)F&\"\"#F(F(F&F(F(F(" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 3 "q;\n" }}{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 5 "?sort" }}} {EXCHG {PARA 0 "" 0 "" {TEXT -1 0 "" }{TEXT 317 21 "Urcovani koeficien tu." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 54 "p1:=-3*x+7*x^2-3*x^3 +7*x^4;p2:=5*x^5+3*x^3+x^2-2*x+1;\n" }}{PARA 11 "" 1 "" {XPPMATH 20 "6 #>%#p1G,**&\"\"$\"\"\"%\"xGF(!\"\"*&\"\"(F()F)\"\"#F(F(*&F'F()F)F'F(F* *&F,F()F)\"\"%F(F(" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#p2G,,*&\"\"& \"\"\")%\"xGF'F(F(*&\"\"$F()F*F,F(F(*$)F*\"\"#F(F(*&F0F(F*F(!\"\"F(F( " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "coeff(p2,x^3);\n" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#\"\"$" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "coeffs(p2, x, 'pow');pow;\n" }}{PARA 11 "" 1 "" {XPPMATH 20 "6'\"\"\"!\"#\"\"$F#\"\"&" }}{PARA 11 "" 1 "" {XPPMATH 20 "6'\"\"\"%\"xG*$)F$\"\"$F#*$)F$\"\"#F#*$)F$\"\"&F#" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "coeff(x^2-x*(x-1), x);\n" }}{PARA 11 "" 1 " " {XPPMATH 20 "6#\"\"\"" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 0 "" } {TEXT 319 7 "Prikaz " }{TEXT 303 6 "coeffs" }{TEXT 304 56 " pozaduje p olynom v roznasobenem tvaru (collected form)." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 7 "?coeffs" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 24 "p:=x^3-(x-3)*(x^2+x)+1;\n" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>% \"pG,(*$)%\"xG\"\"$\"\"\"F**&,&F(F*F)!\"\"F*,&*$)F(\"\"#F*F*F(F*F*F-F* F*" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 11 "coeffs(p);\n" }} {PARA 8 "" 1 "" {TEXT -1 35 "Error, invalid arguments to coeffs\n" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 19 "coeffs(expand(p));\n" }} {PARA 11 "" 1 "" {XPPMATH 20 "6%\"\"\"\"\"$\"\"#" }}}{EXCHG {PARA 0 " " 0 "" {TEXT -1 0 "" }{TEXT 318 103 "Jednou ze zakladnich operaci pro \+ polynomy je deleni se zbytkem. Maple ma k tomuto ucelu dve procedury: \+ " }{TEXT -1 4 "quo " }{TEXT 320 2 "a " }{TEXT -1 3 "rem" }{TEXT 321 1 "." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 22 "q:=quo(p2,p1,x, 'r'); \n" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"qG,&*(\"\"&\"\"\"\"\"(!\"\"% \"xGF(F(#\"#:\"#\\F(" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 3 "r;\n " }}{PARA 11 "" 1 "" {XPPMATH 20 "6#,*\"\"\"F$*&#\"#`\"#\\F$*$)%\"xG\" \"$F$F$!\"\"*$)F+\"\"#F$F$*&#F'F(F$F+F$F-" }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 21 "testeq(p2=(q*p1+r));\n" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#%%trueG" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 18 "r em(p2,p1,x,'q');\n" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#,*\"\"\"F$*&#\"# `\"#\\F$*$)%\"xG\"\"$F$F$!\"\"*$)F+\"\"#F$F$*&#F'F(F$F+F$F-" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 3 "q;\n" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#,&*(\"\"&\"\"\"\"\"(!\"\"%\"xGF&F&#\"#:\"#\\F&" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 56 "gcd(p1,p2); #nejvetsi spolec ny delitel polynomu p1 a p2\n" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#,&*$) %\"xG\"\"#\"\"\"F(F(F(" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "p ol:=expand(p1*p2);\n" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$polG,4*&\"# <\"\"\")%\"xG\"\"'F(!\"\"*&\"#6F()F*\"\"%F(F(*&\"#?F()F*\"\"$F(F,*&\"# 8F()F*\"\"#F(F(*&F4F(F*F(F,*&\"#cF()F*\"\"(F(F(*&F0F()F*\"\"&F(F(*&\"# :F()F*\"\")F(F,*&\"#NF()F*\"\"*F(F(" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 29 "expand(sqrt(2+x)*sqrt(3+x));\n" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#*&,&\"\"#\"\"\"%\"xGF&#F&F%,&\"\"$F&F'F&F(" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 48 "expand(combine(sqrt(2+x)*sqrt(3+x), symbolic));\n" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#*$,(\"\"'\"\"\"*$)% \"xG\"\"#F&F&*&\"\"&F&F)F&F&#F&F*" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 0 "" }{TEXT 283 0 "" }{TEXT 284 61 "Komplikovanejsi jsou algoritmy pro rozklad polynomu na soucin" }{TEXT 323 2 ". " }{TEXT 324 10 "Procedur a " }{TEXT 325 7 "factor " }{TEXT 326 91 "zapisuje polynom s racionaln imi koeficienty ve tvaru soucinu ireducibilnich polynomu nad Q." }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 13 "factor(pol);\n" }}{PARA 11 " " 1 "" {XPPMATH 20 "6#**%\"xG\"\"\",&*&\"\"(F%F$F%F%\"\"$!\"\"F%,(*&\" \"&F%)F$F)F%F%*&\"\"#F%F$F%F*F%F%F%),&*$)F$F0F%F%F%F%F0F%" }}}{EXCHG {PARA 285 "" 0 "" {TEXT 327 66 "Zapis factor(polynom, pole) provadi ro zklad nad algebraickym polem" }{TEXT -1 1 "." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "factor(pol, I);\n" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#*,%\"xG\"\"\",(*&\"\"&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%" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 10 "p:=x^2+1;\n" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"pG,&*$)%\"xG\"\"#\"\"\"F*F*F*" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 11 "factor(p);\n" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#,&*$)%\"xG\"\"#\"\"\"F(F(F(" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "irreduc(p);\n" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#%%trueG" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 13 "factor(p,I);\n" }}{PARA 11 " " 1 "" {XPPMATH 20 "6#*&,&%\"xG\"\"\"^#!\"\"F&F&,&F%F&^#F&F&F&" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 14 "irreduc(p,I);\n" }}{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 \+ procedura " }{TEXT 309 6 "split " }{TEXT 329 20 "z knihovny polytools " }{TEXT 328 1 "." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "pol:=8 *x^3-12*x;\n" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$polG,&*&\"\")\"\"\" )%\"xG\"\"$F(F(*&\"#7F(F*F(!\"\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 13 "factor(pol);\n" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#,$* (\"\"%\"\"\"%\"xGF&,&*&\"\"#F&)F'F*F&F&\"\"$!\"\"F&F&" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 25 "polytools[split](pol,x);\n" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#,$**\"\")\"\"\"%\"xGF&,&F'F&*&#F&\"\"# F&-%'RootOfG6#,&*$)%#_ZGF+F&F&\"\"'!\"\"F&F4F&,&F'F&*&#F&F+F&F,F&F&F&F &" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 22 "convert(%,'radical'); \n" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#,$**\"\")\"\"\"%\"xGF&,&F'F&*&\" \"#!\"\"\"\"'#F&F*F+F&,&F'F&*&F*F+F,F-F&F&F&" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 27 "polytools[split](x^2+1,x);\n" }}{PARA 11 "" 1 " " {XPPMATH 20 "6#*&,&%\"xG\"\"\"-%'RootOfG6#,&*$)%#_ZG\"\"#F&F&F&F&!\" \"F&,&F%F&F'F&F&" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 22 "convert (%,'radical');\n" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#*&,&%\"xG\"\"\"^#! \"\"F&F&,&F%F&^#F&F&F&" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 0 "" } {TEXT 305 0 "" }{TEXT 306 24 "Polynomy vice promennych" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 97 "pol:=6*x*y^5+12*y^4+14*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;\n" }} {PARA 12 "" 1 "" {XPPMATH 20 "6#>%$polG,4*(\"\"'\"\"\"%\"xGF()%\"yG\" \"&F(F(*&\"#7F()F+\"\"%F(F(*(\"#9F()F+\"\"$F()F)F4F(F(*(\"#:F()F)\"\"# F(F3F(!\"\"*(\"\"*F(F5F()F+F9F(F(*(\"#IF(F)F(F=F(F:*(\"#NF()F)F0F(F+F( F:*(\"#=F(F+F(F8F(F(*&\"#@F()F)F,F(F(" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 55 "sort(pol, [x,y], 'plex'); #Pure LEXicographic orderin g\n" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#,4*&\"#@\"\"\")%\"xG\"\"&F&F&*( \"#NF&)F(\"\"%F&%\"yGF&!\"\"*(\"#9F&)F(\"\"$F&)F.F3F&F&*(\"\"*F&F2F&)F .\"\"#F&F&*(\"#:F&)F(F8F&F4F&F/*(\"#=F&F;F&F.F&F&*(\"\"'F&F(F&)F.F)F&F &*(\"#IF&F(F&F7F&F/*&\"#7F&)F.F-F&F&" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 55 "sort(pol, [y,x], 'plex'); #Pure LEXicographic orderin g\n" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#,4*(\"\"'\"\"\")%\"yG\"\"&F&%\" xGF&F&*&\"#7F&)F(\"\"%F&F&*(\"#9F&)F(\"\"$F&)F*F2F&F&*(\"#:F&F1F&)F*\" \"#F&!\"\"*(\"\"*F&)F(F7F&F3F&F&*(\"#IF&F;F&F*F&F8*(\"#NF&F(F&)F*F.F&F 8*(\"#=F&F(F&F6F&F&*&\"#@F&)F*F)F&F&" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 46 "sort(pol, [x,y]); #total degree term ordering\n" }} {PARA 12 "" 1 "" {XPPMATH 20 "6#,4*(\"#9\"\"\")%\"xG\"\"$F&)%\"yGF)F&F &*(\"\"'F&F(F&)F+\"\"&F&F&*&\"#@F&)F(F/F&F&*(\"#NF&)F(\"\"%F&F+F&!\"\" *(\"\"*F&F'F&)F+\"\"#F&F&*(\"#:F&)F(F;F&F*F&F7*&\"#7F&)F+F6F&F&*(\"#=F &F>F&F+F&F&*(\"#IF&F(F&F:F&F7" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 0 " " }{TEXT 330 110 "Nebo se muzeme na predchazejici polynom divat jako n a polynom v promenne x, polynomy v y jsou pak koeficienty." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "collect(pol, x);\n" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#,.*&\"#@\"\"\")%\"xG\"\"&F&F&*(\"#NF&)F(\"\"%F&%\" yGF&!\"\"*&,&*&\"#9F&)F.\"\"$F&F&*&\"\"*F&)F.\"\"#F&F&F&)F(F5F&F&*&,&* &\"#=F&F.F&F&*&\"#:F&F4F&F/F&)F(F9F&F&*&,&*&\"#IF&F8F&F/*&\"\"'F&)F.F) F&F&F&F(F&F&*&\"#7F&)F.F-F&F&" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 0 " " }{TEXT 331 11 "A obracene:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "collect(pol, y);\n" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#,.*(\"\"' \"\"\"%\"xGF&)%\"yG\"\"&F&F&*&\"#7F&)F)\"\"%F&F&*&,&*&\"#:F&)F'\"\"#F& !\"\"*&\"#9F&)F'\"\"$F&F&F&)F)F9F&F&*&,&*&\"\"*F&F8F&F&*&\"#IF&F'F&F5F &)F)F4F&F&*&,&*&\"#NF&)F'F.F&F5*&\"#=F&F3F&F&F&F)F&F&*&\"#@F&)F'F*F&F& " }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 0 "" }{TEXT 332 45 "Priklady na p raci s polynomy vice promennych." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "coeff(pol, x^3);\n" }}{PARA 11 "" 1 "" {XPPMATH 20 "6 #,&*&\"#9\"\"\")%\"yG\"\"$F&F&*&\"\"*F&)F(\"\"#F&F&" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 34 "coeffs(pol, x, 'powers'); powers;\n" }} {PARA 11 "" 1 "" {XPPMATH 20 "6(,$*&\"#7\"\"\")%\"yG\"\"%F&F&,&*&\"#IF &)F(\"\"#F&!\"\"*&\"\"'F&)F(\"\"&F&F&,&*&\"#9F&)F(\"\"$F&F&*&\"\"*F&F- F&F&,&*&\"#=F&F(F&F&*&\"#:F&F7F&F/,$*&\"#NF&F(F&F/\"#@" }}{PARA 11 "" 1 "" {XPPMATH 20 "6(\"\"\"%\"xG*$)F$\"\"$F#*$)F$\"\"#F#*$)F$\"\"%F#*$) F$\"\"&F#" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "settime:=time( ):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 13 "factor(pol);\n" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#*&,(*&\"\"#\"\"\")%\"yG\"\"$F'F'*(\"\" &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'" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "c pu_time:=time()-settime;\n" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%)cpu_t imeG$\"#?!\"$" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 0 "" }{TEXT 333 0 " " }{TEXT -1 17 "Racionalni funkce" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 29 "r:=(x^2+3*x+2)/ (x^2+5*x+6);\n" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"rG*&,(*$)%\"xG\"\"#\"\"\"F+*&\"\"$F+F)F+F+F*F+F+,( \"\"'F+F'F+*&\"\"&F+F)F+F+!\"\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "type(r, 'ratpoly');\n" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#%%tru eG" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 13 "whattype(r);\n" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#%\"*G" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 42 "numer(r), denom(r); #citatel a jmenovatel\n" }}{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 "" {TEXT -1 0 "" } {TEXT 334 73 "Narozdil od racionalnich cisel Maple neprovadi automatic ke zjednoduseni. " }}{PARA 0 "" 0 "" {TEXT -1 0 "" }{TEXT 335 32 "Zjed noduseni provedeme prikazem " }{TEXT -1 7 "normal " }{TEXT 336 37 "(ta k, ze gcd(citatel, jmenovatel)=1)." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 3 "r;\n" }}{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 11 "normal(r);\n" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#*&,&%\"xG\"\"\"F&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 20 "ff:=(x-1)*numer(r);\n" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#>%#ffG*&,&%\"xG\"\"\"F(!\"\"F(,(*$)F' \"\"#F(F(*&\"\"$F(F'F(F(F-F(F(" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "gg:=(x-1)*denom(r);\n" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#gg G*&,&%\"xG\"\"\"F(!\"\"F(,(\"\"'F(*$)F'\"\"#F(F(*&\"\"&F(F'F(F(F(" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 7 "ff/gg;\n" }}{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 15 "expand(ff)/gg;\n" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#*(,**$)%\"xG\"\"$ \"\"\"F)*&\"\"#F))F'F+F)F)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 19 "(x^(100) -1)/(x-1);\n" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#*&,&*$)%\"xG\"$+\"\"\" \"F)F)!\"\"F),&F'F)F)F*F*" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 11 "normal(%);\n" }}{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%\"#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%\"#MF$F$*$)F%\"#LF$F$*$)F%\"#KF$F$*$ )F%\"#JF$F$*$)F%\"#IF$F$*$)F%\"#HF$F$*$)F%\"#GF$F$*$)F%\"\"'F$F$*$)F% \"\"(F$F$*$)F%\"\")F$F$*$)F%\"\"*F$F$*$)F%\"#FF$F$*$)F%\"#EF$F$*$)F%\" #DF$F$*$)F%\"#BF$F$*$)F%\"#AF$F$*$)F%\"#@F$F$*$)F%\"#CF$F$*$)F%\"#?F$F $*$)F%\"#=F$F$*$)F%\"#F$F$*$)F%\"#8F$F$*$)F%\"#6F$F$*$)F%\"#5F$F$*$)F%\"#7F$F$*$)F%\"\" $F$F$*$)F%\"\"#F$F$*$)F%\"\"%F$F$*$)F%\"\"&F$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+99*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 13 "racfce:=f/g;\n" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%'racfceG*&,2*&\"$h\"\"\"\")%\"yG\"\"$F)F)*(\"$L$F)%\"xGF))F+\" \"#F)F)*&\"$%=F)F0F)F)*(\"$i\"F))F/F1F)F+F)F)*(\"$W\"F)F/F)F+F)F)*&\"# xF)F+F)F)*&\"#**F)F/F)F)\"#))F)F),2*&\"#\\F)F0F)F)*(\"#GF)F6F)F+F)F)*( \"#jF)F/F)F+F)F)*&\"$Z\"F)F+F)F)*&\"#OF))F/F,F)F)*&\"#KF)F6F)F)*&\"$< \"F)F/F)F)\"$/\"F)!\"\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 " normal(racfce);\n" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#*&,(*&\"#B\"\"\") %\"yG\"\"#F'F'*(\"#=F'%\"xGF'F)F'F'\"#6F'F',(*&\"\"(F'F)F'F'*&\"\"%F') F-F*F'F'\"#8F'!\"\"" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 0 "" }{TEXT 337 27 "Rozklad na parcialni zlomky" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "q:=(x^3+x^2-x+1)/p1;\n" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"qG*&,**$)%\"xG\"\"$\"\"\"F+*$)F)\"\"#F+F+F)!\"\"F+F+F+,**&F* F+F)F+F/*&\"\"(F+F-F+F+*&F*F+F(F+F/*&F3F+)F)\"\"%F+F+F/" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "convert(q, 'parfrac', x);\n" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#,(*&\"\"\"F%*&\"\"$F%%\"xGF%!\"\"F)*( \"#HF),&*&\"\"(F%F(F%F%F'F%F%,&*$)F(\"\"#F%F%F%F%F)F%*(\"$V\"F%\"#()F) ,&*&F.F%F(F%F%F'F)F)F%" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 29 "c onvert(q,'parfrac',x,real);\n" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#,(*&$ \"+MLLLL!#5\"\"\"%\"xG!\"\"F**&$\"+f;6[BF'F(,&F)F($\"+'G9dG%F'F*F*F(*& ,&$\"+fF[M5F'F(*&$\"+0Jz8CF'F(F)F(F(F(,&*$)F)\"\"#F(F($F(\"\"!F(F*F(" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 22 "convert(%, rational);\n" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#,(*&\"\"\"F%*&\"\"$F%%\"xGF%!\"\"F)* (\"$V\"F%\"$4'F),&F(F%#F'\"\"(F)F)F%*&,&*(F/F%\"#HF)F(F%F%#F'F3F%F%,&* $)F(\"\"#F%F%F%F%F)F%" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "co nvert(q,'parfrac',x,I);\n" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#,**&\"\" \"F%*&\"\"$F%%\"xGF%!\"\"F)*&^$#\"\"(\"#e#F'F.F%,&F(F%^#F%F%F)F%*&^$F, #!\"$F.F%,&F(F%^#F)F%F)F%*(\"$V\"F%\"#()F),&*&F-F%F(F%F%F'F)F)F%" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 30 "convert(q, 'fullparfrac', x) ;\n" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#,(*&\"\"\"F%*&\"\"$F%%\"xGF%!\" \"F)-%$SumG6$*&,&*(F'F%\"#eF)%'_alphaGF%F)#\"\"(F0F%F%,&F(F%F1F)F)/F1- %'RootOfG6#,&*$)%#_ZG\"\"#F%F%F%F%F%*(\"$V\"F%\"$4'F),&F(F%#F'F3F)F)F% " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "convert(%, radical);\n " }}{PARA 11 "" 1 "" {XPPMATH 20 "6#,**&\"\"\"F%*&\"\"$F%%\"xGF%!\"\"F )*&^$#\"\"(\"#e#!\"$F.F%,&F(F%^#F)F%F)F%*&^$F,#F'F.F%,&F(F%^#F%F%F)F%* (\"$V\"F%\"$4'F),&F(F%#F'F-F)F)F%" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "1/(x^4-5*x^2+6);\n" }}{PARA 11 "" 1 "" {XPPMATH 20 "6 #*&\"\"\"F$,(*$)%\"xG\"\"%F$F$*&\"\"&F$)F(\"\"#F$!\"\"\"\"'F$F." }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 22 "convert(%,parfrac,x);\n" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#,&*&\"\"\"F%,&*$)%\"xG\"\"#F%F%F*!\"\" F+F+*&F%F%,&F'F%\"\"$F+F+F%" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 30 "convert(%,parfrac,x,sqrt(2));\n" }}{PARA 11 "" 1 "" {XPPMATH 20 "6 #,(*(\"\"%!\"\"\"\"##\"\"\"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)" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 40 "convert(%,parfrac,x,\{sqrt(2),sqrt(3)\});\n" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#,**(\"\"'!\"\"\"\"$#\"\"\"\"\"#,&%\"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)*(F1F&F *F(,&F,F)F3F)F&F)" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 39 "ratfun :=(x-a)/(x^5+b*x^4-c*x^2-b*c*x);\n" }}{PARA 11 "" 1 "" {XPPMATH 20 "6# >%'ratfunG*&,&%\"xG\"\"\"%\"aG!\"\"F(,**$)F'\"\"&F(F(*&%\"bGF()F'\"\"% F(F(*&%\"cGF()F'\"\"#F(F**(F0F(F4F(F'F(F*F*" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 31 "convert(ratfun, 'parfrac', x);\n" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#,(**,.*&%\"cG\"\"\")%\"xG\"\"#F(F(*(F)F(%\"aGF()%\"b GF+F(!\"\"*(F/F(F'F(F*F(F0*(F*F(F'F(F-F(F0*&F.F(F'F(F(*(F-F(F/F(F'F(F( F(,&*$)F*\"\"$F(F(F'F0F0,&*$)F/F8F(F(F'F(F0F'F0F(**F-F(F*F0F/F0F'F0F(* *,&F/F0F-F0F(,&F*F(F/F(F0F/F0F9F0F(" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 10 "Usmerneni:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "2/(2-s qrt(2));\n" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#,$*&\"\"#\"\"\",&F%F&*$F %#F&F%!\"\"F*F&" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "rational ize(%);\n" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#,&\"\"#\"\"\"*$F$#F%F$F% " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "z/(1+sqrt(x));\n" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#*&%\"zG\"\"\",&F%F%*$%\"xG#F%\"\"#F%! \"\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "rationalize(%);\n" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#*(%\"zG\"\"\",&F%!\"\"*$%\"xG#F%\"\" #F%F%,&F)F%F%F'F'" }}}}{SECT 0 {PARA 3 "" 0 "" {TEXT 293 56 "Poznamky \+ k manipulaci s polynomy a racionalnimi funkcemi" }}{EXCHG {PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 27 "souc:=(x^2-x)*(x^2+2*x+1);\n" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%%soucG*&,&*$)%\"xG\"\"#\"\"\"F+F)!\"\"F+,(F'F+*&F* F+F)F+F+F+F+F+" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "expform:= expand(souc);\n" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%(expformG,**$)%\" xG\"\"%\"\"\"F**$)F(\"\"$F*F**$)F(\"\"#F*!\"\"F(F1" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "soucin:=(a+b)*(c+d);\n" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%'soucinG*&,&%\"bG\"\"\"%\"aGF(F(,&%\"cGF(%\"dGF(F(" } }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "expand(soucin);\n" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#,**&%\"bG\"\"\"%\"cGF&F&*&F%F&%\"dGF&F &*&F'F&%\"aGF&F&*&F+F&F)F&F&" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 0 "" }{TEXT 338 96 "Pokud nechceme roznasobovat (c+d), musime to Maplu sdel it uvedenim parametru v procedure expand." }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 30 "expform:=expand(soucin, c+d);\n" }}{PARA 11 "" 1 " " {XPPMATH 20 "6#>%(expformG,&*&,&%\"cG\"\"\"%\"dGF)F)%\"bGF)F)*&F'F)% \"aGF)F)" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 9 "(x+1)^3;\n" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#*$),&%\"xG\"\"\"F'F'\"\"$F'" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 11 "expand(%);\n" }}{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 19 "power:=(x+1)^(-2 );\n" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%&powerG*&\"\"\"F&*$),&%\"xGF &F&F&\"\"#F&!\"\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "expand (power);\n" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#*&\"\"\"F$*$),&%\"xGF$F$ F$\"\"#F$!\"\"" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 0 "" }{TEXT 339 78 "Zaporne mocniny Maple neexpanduje. Musime provest umocneni jmenovatel e zvlast." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 35 "numer(power)/e xpand(denom(power));\n" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#*&\"\"\"F$,( *$)%\"xG\"\"#F$F$*&F)F$F(F$F$F$F$!\"\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "(x+1)^2/((x^2+x)*x);\n" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#*(,&%\"xG\"\"\"F&F&\"\"#,&*$)F%F'F&F&F%F&!\"\"F%F+" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 0 "" }{TEXT 340 63 "Vsimneme si efektu pouzit i expand na racionalni lomenou funkci." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 11 "expand(%);\n" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#,(*&, &*$)%\"xG\"\"#\"\"\"F*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 37 "expand(numer(%%))/expan d(denom(%%));\n" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#*&,(*$)%\"xG\"\"#\" \"\"F)*&F(F)F'F)F)F)F)F),&*$)F'\"\"$F)F)F%F)!\"\"" }}}{EXCHG {PARA 280 "" 0 "" {TEXT 341 6 "FACTOR" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 0 "" }{TEXT 342 85 "Factor provadi rozklad polynomu na soucin korenovych cinitelu nad racionalnimi cisly." }}{PARA 0 "" 0 "" {TEXT -1 0 "" } {TEXT 343 67 "Zapis factor(polynom, pole) provadi rozklad nad algebrai ckym polem." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 13 "q:=x^2+9/25; \n" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"qG,&*$)%\"xG\"\"#\"\"\"F*#\" \"*\"#DF*" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 13 "factor(q,I);\n " }}{PARA 11 "" 1 "" {XPPMATH 20 "6#,$*(\"#D!\"\",&*&\"\"&\"\"\"%\"xGF *F&^#\"\"$F*F*,&*&F)F*F+F*F*F,F*F*F&" }}}{PARA 11 "" 1 "" {TEXT -1 0 " " }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "pol:=8*x^3-12*x;\n" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#>%$polG,&*&\"\")\"\"\")%\"xG\"\"$F(F(* &\"#7F(F*F(!\"\"" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 0 "" }{TEXT 344 62 "Silnejsim nastrojem je procedura split (z knihovny polytools):" }} }{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 25 "polytools[split](pol,x);\n " }}{PARA 11 "" 1 "" {XPPMATH 20 "6#,$**\"\")\"\"\"%\"xGF&,&F'F&*&#F& \"\"#F&-%'RootOfG6#,&*$)%#_ZGF+F&F&\"\"'!\"\"F&F4F&,&F'F&*&#F&F+F&F,F& F&F&F&" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 22 "convert(%,'radica l');\n" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#,$**\"\")\"\"\"%\"xGF&,&F'F& *&\"\"#!\"\"\"\"'#F&F*F+F&,&F'F&*&F*F+F,F-F&F&F&" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "factor(pol,sqrt(6));\n" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#,$**\"\"#\"\"\"%\"xGF&,&*&F%F&F'F&!\"\"*$\"\"'#F&F%F&F& ,&*&F%F&F'F&F&F+F&F&F*" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 27 "p olytools[split](x^2+1,x);\n" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#*&,&%\" xG\"\"\"-%'RootOfG6#,&*$)%#_ZG\"\"#F&F&F&F&!\"\"F&,&F%F&F'F&F&" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 22 "convert(%,'radical');\n" } {TEXT -1 0 "" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#*&,&%\"xG\"\"\"^#!\"\" F&F&,&F%F&^#F&F&F&" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 6 "NORMAL" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 37 "(x-1)*(x+2)/((x+1)*x)+(x-1)/ (1+x)^2;\n" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#,&**,&%\"xG\"\"\"F'!\"\" F',&\"\"#F'F&F'F'F&F(,&F&F'F'F'F(F'*&F%F'F+!\"#F'" }}}{EXCHG {PARA 0 " " 0 "" {TEXT -1 0 "" }{TEXT 295 0 "" }{TEXT 296 85 "Vykraceni spolecny ch clenu z citatele a jmenovatele, prevod na spolecneho jmenovatele" } {TEXT 345 1 ":" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 11 "normal(%) ;\n" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#**,&%\"xG\"\"\"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 21 "normal(%, expanded);\n" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#*&,**$)%\"xG\"\"$\"\"\"F)*&F(F))F'\"\"#F)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 43 "racfce:=(x^4+x^3-4*x^2-4*x)/(x^3+x^2-x-1);\n" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#>%'racfceG*&,**$)%\"xG\"\"%\"\"\"F+*$) F)\"\"$F+F+*&F*F+)F)\"\"#F+!\"\"*&F*F+F)F+F2F+,*F,F+*$F0F+F+F)F2F+F2F2 " }}}{EXCHG {PARA 0 "" 0 "" {TEXT 346 35 "Vsimnete si efektu pouziti p rikazu " }{TEXT -1 6 "expand" }{TEXT 348 2 ", " }{TEXT -1 6 "normal" } {TEXT 349 2 ", " }{TEXT -1 6 "factor" }{TEXT 350 36 " v nasledujici po sloupnosti prikazu:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "fact or(racfce);\n" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#*,,&%\"xG\"\"\"\"\"#! \"\"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 51 "factor(numer(racfce))/sort(expand(denom(racfce )));\n" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#*,%\"xG\"\"\",&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(" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 51 "sort(expand(numer(racfce)))/ factor(denom(racfce));\n" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#*(,**$)%\" xG\"\"%\"\"\"F)*$)F'\"\"$F)F)*&F(F))F'\"\"#F)!\"\"*&F(F)F'F)F0F),&F'F) F)F0F0,&F'F)F)F)!\"#" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 34 "sor t(normal(racfce, 'expanded'));\n" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#*& ,&*$)%\"xG\"\"$\"\"\"F)*&\"\"%F)F'F)!\"\"F),&*$)F'\"\"#F)F)F)F,F," }}} }{SECT 0 {PARA 4 "" 0 "" {TEXT 263 36 "Nekolik poznamek k praci se sys temem" }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "restart;" }}}{EXCHG {PARA 263 "" 0 "" {TEXT 259 72 "Vice informaci o tom, jak system pracu je, dosahneme nastavenim promenne " }{TEXT 260 10 "printlevel" }{TEXT 261 77 ". \nDefault nastaveni je 1. Zaporna hodnota znamena bez doplnu jicich komentaru" }{TEXT 347 1 "." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 36 "integrate(1/(sin(x)^2+1), x=0..Pi);\n" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#,$*(\"\"#!\"\"%#PiG\"\"\"F%#F(F%F(" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "printlevel;\n" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"\"\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "pr intlevel:=100;\n" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%+printlevelG\"$+ \"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 35 "integrate(1/(sin(x)^2 +1), x=0..Pi);" }}{PARA 9 "" 1 "" {TEXT -1 49 "value remembered (at to p level): sin(x) -> sin(x)" }}{PARA 9 "" 1 "" {TEXT -1 50 "\{--> enter int, args = 1/(sin(x)^2+1), x = 0 .. Pi" }}{PARA 9 "" 1 "" {TEXT -1 147 "value remembered (in int): int/int([1/(sin(x)^2+1), x = 0 .. Pi], 10, _EnvCauchyPrincipalValue, _EnvAllSolutions, _EnvContinuous) -> 1/ 2*Pi*2^(1/2)" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%'answerG,$*(\"\"#!\" \"%#PiG\"\"\"F'#F*F'F*" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#,$*(\"\"#!\" \"%#PiG\"\"\"F%#F(F%F(" }}{PARA 9 "" 1 "" {TEXT -1 49 "<-- exit int (n ow at top level) = 1/2*Pi*2^(1/2)\}" }}{PARA 11 "" 1 "" {XPPMATH 20 "6 #,$*(\"\"#!\"\"%#PiG\"\"\"F%#F(F%F(" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "printlevel:=1;\n" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#> %+printlevelG\"\"\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 29 "inte rface(prettyprint=false):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "solve(a*x^2+b*x+c, x);\n" }}{PARA 6 "" 1 "" {TEXT -1 58 "-1/2*(b-( b^2-4*a*c)^(1/2))/a, -1/2*(b+(b^2-4*a*c)^(1/2))/a" }}}{EXCHG {PARA 0 " > " 0 "" {MPLTEXT 1 0 49 "interface(prettyprint=true):#implicitni nast aveni" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 25 "interface(prettypr int=1):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "solve(a*x^2+b*x+ c, x);\n" }}{PARA 2 "" 1 "" {TEXT -1 300 " \+ 2 1/2 2 1/2\n \+ b - (b - 4 a c) b + (b - 4 a c)\n \+ - -------------------, - -------------------\n \+ 2 a 2 a" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 25 "interface(prettyprint=2):" } }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "solve(a*x^2+b*x+c, x);\n" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$,$*(\"\"#!\"\",&%\"bG\"\"\"*$,&*$)F( F%F)F)*(\"\"%F)%\"aGF)%\"cGF)F&#F)F%F&F)F0F&F&,$*(F%F&,&F(F)F*F)F)F0F& F&" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 27 "sol:=solve(a*x^2+b*x+ c, x):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "print(sol);\n" }} {PARA 11 "" 1 "" {XPPMATH 20 "6$,$*(\"\"#!\"\",&%\"bG\"\"\"*$,&*$)F(F% F)F)*(\"\"%F)%\"aGF)%\"cGF)F&#F)F%F&F)F0F&F&,$*(F%F&,&F(F)F*F)F)F0F&F& " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 13 "lprint(sol);\n" }} {PARA 6 "" 1 "" {TEXT -1 58 "-1/2*(b-(b^2-4*a*c)^(1/2))/a, -1/2*(b+(b^ 2-4*a*c)^(1/2))/a" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 25 "interf ace(verboseproc=2):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "prin t(unassign);\n" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#j+6#%$nomG6#%%flagG6 #%aoCopyright~(c)~1990~by~the~University~of~Waterloo.~All~rights~reser ved.G6\"C$@'/9#\"\"!YQ2argument~expectedF*2\"\"\"F.-%$mapG6$9!7#9\"C&> 8$%&falseG@$/9$.%'assignG>F<%%trueG@'-%%typeG6$F@.%(indexedG-%1unassig n/indexedG6#F@-FG6$F@.<$%)functionG%%nameG-FB6$F@F@Y6$QScannot~unassig n~`%1'~(argument~must~be~assignable)F*F@@$F<>FB-%&evalnG6#FB%%NULLG6#Q Qremove~an~assignment~from~an~assigned~expressionF*FgnF*6#\"+AfE8?" }} }{EXCHG {PARA 0 "" 0 "" {TEXT -1 0 "" }{TEXT 351 16 "Nacteni knihovny " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "with(student);\n" }} {PARA 12 "" 1 "" {XPPMATH 20 "6#7@%\"DG%%DiffG%*DoubleintG%$IntG%&Limi tG%(LineintG%(ProductG%$SumG%*TripleintG%*changevarG%/completesquareG% )distanceG%'equateG%*integrandG%*interceptG%)intpartsG%(leftboxG%(left sumG%)makeprocG%*middleboxG%*middlesumG%)midpointG%(powsubsG%)rightbox G%)rightsumG%,showtangentG%(simpsonG%&slopeG%(summandG%*trapezoidG" }} }{EXCHG {PARA 0 "" 0 "" {TEXT -1 0 "" }{TEXT 352 99 "Pokud chceme pouz it pouze jednu konkretni funkci z dane knihovny, muzeme provest jeji v olani takto:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 32 "student[dis tance]([1,1],[3,4]);\n" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#*$\"#8#\"\" \"\"\"#" }}}{EXCHG {PARA 0 "" 0 "" {TEXT 267 0 "" }{TEXT 268 33 "Sezna m knihoven ziskame prikazem " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 18 "?index[packages];\n" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 0 "" } {TEXT 353 39 "Napovedu ke konkretni knihovne prikazem" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 9 "?student;" }}}{EXCHG {PARA 0 "" 0 " " {TEXT 273 68 "Definice synonym (pouzivame, kdyz se chceme vyhnout dl ouhym jmenum):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "restart;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 30 "alias(D = student[distanc e]);\n" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#%\"DG" }}}{EXCHG {PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 16 "D([1,1],[3,4]);\n" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#*$\"#8#\"\"\"\"\"#" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 28 "alias(D=D); #odstrani alias\n" }}}{EXCHG {PARA 268 " " 0 "" {TEXT 354 17 "Definice zkratek:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 29 "macro(D = student[distance]);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#%\"DG" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "D([ 1,1],[3,4]);\n" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#*$\"#8#\"\"\"\"\"#" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 11 "macro(D=D);" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 0 "" }{TEXT 355 58 "Alias ovlivnuje vstup i v ystup, zatimco makro pouze vstup." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 18 "alias(c=a^2+b^2);\n" }}{PARA 11 "" 1 "" {XPPMATH 20 " 6#%\"cG" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 3 "c;\n" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#%\"cG" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "1/(a^2+b^2);c;\n" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#*&\"\"\"F$% \"cG!\"\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#%\"cG" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 9 "a^2+b^2;\n" }}{PARA 11 "" 1 "" {XPPMATH 20 " 6#%\"cG" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "alias(c=c);\n" } }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "macro(c=a^2+b^2);" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#%\"cG" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 13 "1/(a^2+b^2);\n" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#*& \"\"\"F$,&*$)%\"aG\"\"#F$F$*$)%\"bGF)F$F$!\"\"" }}}{EXCHG {PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 9 "a^2+b^2;\n" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#, &*$)%\"aG\"\"#\"\"\"F(*$)%\"bGF'F(F(" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 3 "c;\n" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#,&*$)%\"aG\"\" #\"\"\"F(*$)%\"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 23 "Ukladani a nacitani dat" }}} {EXCHG {PARA 0 "" 0 "" {TEXT -1 4 "Save" }{TEXT 357 127 " - uklada ve \+ formatu, ktery se da pozdeji opetne nacist do mapleovskeho zapisniku. \+ Muzeme ukladat v internim formatu Maplu (.m)" }}{PARA 0 "" 0 "" {TEXT -1 0 "" }{TEXT 356 24 "nebo v textovem formatu:" }}}{EXCHG {PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 35 "pol:=x^2+2*x+1; `cislo ctyri` :=4;\n" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$polG,(*$)%\"xG\"\"#\"\"\"F**&F)F*F(F*F*F* F*" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%,cislo~ctyriG\"\"%" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 75 "save pol, `cislo ctyri`, `datafile. m`; #nutne 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 5 "pol;\n" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#%$polG" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "read datafile; \n" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$polG,(*$)%\"xG\"\"#\"\"\"F**&F)F*F(F*F*F* F*" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%,cislo~ctyriG\"\"%" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 5 "pol;\n" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#,(*$)%\"xG\"\"#\"\"\"F(*&F'F(F&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 5 " pol;\n" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#,(*$)%\"xG\"\"#\"\"\"F(*&F'F (F&F(F(F(F(" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 0 "" }{TEXT 358 145 "V pripade nacteni souboru datafile jsou instrukce opet zobrazeny, v pri pade nacteni souboru datafile.m tomu tak neni (nacitani souboru datafi le.m" }{TEXT -1 1 " " }{TEXT 359 17 "je efektivnejsi)." }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 0 "" }{TEXT 360 188 "Maple po startu hleda so ubor .mapleinit ve Vasem domovskem adresari - zde muzeme zadat prikazy , ktere chceme provadet pri kazdem startu Maplu- napriklad nacteni cas to pouzivanych knihoven." }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 0 "" } {TEXT 361 84 "Adresare, ve kterych Maple hleda nacitane knihovny, jsou urcovany promennou libname." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 9 "libname;\n" }}{PARA 12 "" 1 "" {XPPMATH 20 "6%QG/home_zam/plch/pu blic_html/vyuka/maple6\"QA/home_zam/plch/maple/JavaViewLibF$Q7/usr/loc al/maple95/libF$" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 38 "libname :=`/home4/plch/maple`,libname;\n" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>% (libnameG6&Q2/home4/plch/maple6\"QG/home_zam/plch/public_html/vyuka/ma pleF'QA/home_zam/plch/maple/JavaViewLibF'Q7/usr/local/maple95/libF'" } }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 9 "libname;\n" }}{PARA 12 "" 1 "" {XPPMATH 20 "6&Q2/home4/plch/maple6\"QG/home_zam/plch/public_html /vyuka/mapleF$QA/home_zam/plch/maple/JavaViewLibF$Q7/usr/local/maple95 /libF$" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 0 "" }{TEXT 312 0 "" } {TEXT 313 72 "Procedura latex generuje zdrojovy kod LaTeXu pro zadany \+ vzorec (vzorce):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 28 "latex(( x^2+y^2)/(x^2-y^2));\n" }}{PARA 6 "" 1 "" {TEXT -1 42 "\{\\frac \{\{x \}^\{2\}+\{y\}^\{2\}\}\{\{x\}^\{2\}-\{y\}^\{2\}\}\}" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "(x^2+y^2)/(x^2-y^2);\n" }}{PARA 11 "" 1 " " {XPPMATH 20 "6#*&,&*$)%\"xG\"\"#\"\"\"F)*$)%\"yGF(F)F)F),&F%F)F*!\" \"F." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 24 "latex(%, `vzorec1.t ex`);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 19 "polyeq:=x^3-a*x=1; \n" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%'polyeqG/,&*$)%\"xG\"\"$\"\"\" F+*&%\"aGF+F)F+!\"\"F+" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "s ols:=solve(polyeq,x);\n" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%%solsG6%, &*&\"\"'!\"\",&\"$3\"\"\"\"*&\"#7F,,&*&F.F,)%\"aG\"\"$F,F)\"#\")F,#F, \"\"#F,#F,F3F,*(F6F,F2F,F*#F)F3F,,(*&F.F)F*F7F)*&F2F,F*F9F)*(^#F5F,F3F 5,&*&F(F)F*F7F,*(F6F,F2F,F*F9F)F,F,,(*&F.F)F*F7F)F " 0 "" {MPLTEXT 1 0 15 "sol1:=sols[1];\n" } }{PARA 11 "" 1 "" {XPPMATH 20 "6#>%%sol1G,&*&\"\"'!\"\",&\"$3\"\"\"\"* &\"#7F+,&*&F-F+)%\"aG\"\"$F+F(\"#\")F+#F+\"\"#F+#F+F2F+*(F5F+F1F+F)#F( F2F+" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 25 "CodeGeneration[C](s ol1);\n" }}{PARA 6 "" 1 "" {TEXT -1 184 "cg = pow(0.108e3 + 0.12e2 * s qrt(-0.12e2 * pow(a, 0.3e1) + 0.81e2), 0.1e1 / 0.3e1) / 0.6e1 + 0.2e1 \+ * a * pow(0.108e3 + 0.12e2 * sqrt(-0.12e2 * pow(a, 0.3e1) + 0.81e2), - 0.1e1 / 0.3e1);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 38 "codegen[ C](sol1, filename=`vystup.c`);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{PARA 0 "" 0 "" {TEXT -1 0 "" }}}}{MARK "4" 0 }{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }