{VERSION 6 0 "IBM INTEL LINUX" "6.0" } {USTYLETAB {CSTYLE "Maple Input" -1 0 "Courier" 0 0 255 0 0 1 0 1 0 0 1 0 0 0 0 1 }{CSTYLE "Hyperlink" -1 17 "" 0 1 0 128 128 1 0 0 1 0 0 0 0 0 0 1 }{CSTYLE "" -1 260 "" 0 1 0 0 0 0 0 0 1 0 0 0 0 0 0 1 } {CSTYLE "" -1 266 "" 0 1 0 0 0 0 0 0 1 0 0 0 0 0 0 1 }{CSTYLE "" -1 267 "" 0 1 0 0 0 0 0 0 1 0 0 0 0 0 0 1 }{CSTYLE "" -1 268 "" 0 1 0 0 0 0 0 0 1 0 0 0 0 0 0 1 }{CSTYLE "" -1 269 "" 0 1 0 0 0 0 0 0 1 0 0 0 0 0 0 1 }{CSTYLE "" -1 270 "" 0 1 0 0 0 0 0 0 1 0 0 0 0 0 0 1 } {CSTYLE "" -1 271 "" 0 1 0 0 0 0 0 0 1 0 0 0 0 0 0 1 }{CSTYLE "" -1 273 "" 0 1 0 0 0 0 0 0 1 0 0 0 0 0 0 1 }{CSTYLE "" -1 274 "" 0 1 0 0 0 0 0 0 1 0 0 0 0 0 0 1 }{CSTYLE "" -1 275 "" 0 1 0 0 0 0 0 0 1 0 0 0 0 0 0 1 }{CSTYLE "" -1 276 "" 0 1 0 0 0 0 0 0 1 0 0 0 0 0 0 1 } {CSTYLE "" -1 277 "" 0 1 0 0 0 0 0 0 1 0 0 0 0 0 0 1 }{CSTYLE "" -1 278 "" 0 1 0 0 0 0 0 0 1 0 0 0 0 0 0 1 }{CSTYLE "" -1 279 "" 0 1 0 0 0 0 0 0 1 0 0 0 0 0 0 1 }{CSTYLE "" -1 280 "" 0 1 0 0 0 0 0 0 1 0 0 0 0 0 0 1 }{CSTYLE "" -1 281 "" 0 1 0 0 0 0 0 0 1 0 0 0 0 0 0 1 } {PSTYLE "Normal" -1 0 1 {CSTYLE "" -1 -1 "Times" 0 0 0 0 0 1 0 1 0 0 0 0 0 0 0 1 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "Heading 1" 0 3 1 {CSTYLE "" -1 -1 "" 1 18 0 0 0 0 0 1 0 0 0 0 0 0 0 1 }1 0 0 0 6 6 0 0 0 0 0 0 -1 0 }{PSTYLE "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 4 4 0 0 0 0 0 0 -1 0 }{PSTYLE "Hea ding 3" 4 5 1 {CSTYLE "" -1 -1 "" 1 13 0 0 0 0 0 1 0 0 0 0 0 0 0 1 }0 0 0 -1 0 0 0 0 0 0 0 0 -1 0 }{PSTYLE "Title" 0 18 1 {CSTYLE "" -1 -1 " " 1 24 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 Font 0" -1 256 1 {CSTYLE "" -1 -1 "Courier New CE" 1 11 255 0 0 1 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 11 0 0 0 1 1 1 2 0 0 0 0 0 0 1 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "newpage " -1 258 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 1 }0 0 0 -1 -1 -1 0 0 0 0 1 0 -1 0 }{PSTYLE "R3 Font 0" -1 259 1 {CSTYLE "" -1 -1 "Courier" 1 12 255 0 0 1 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 260 1 {CSTYLE "" -1 -1 "Courier" 1 10 0 0 0 1 1 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 0" -1 261 1 {CSTYLE "" -1 -1 "Arial CE" 1 10 255 0 0 1 2 1 2 0 0 0 0 0 0 1 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }} {SECT 0 {PARA 18 "" 0 "" {TEXT -1 17 "Maple V Release 4" }}{SECT 1 {PARA 3 "" 0 "" {TEXT -1 16 "Pr\341ce se soubory" }}{EXCHG {PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 40 "cesta:=`k:/stud6/common/maple\\\\data\\\\`;\n " }}}{PARA 0 "" 0 "" {TEXT -1 53 "Vsimnete si dvoj\355ho mozn\351ho z \341pisu oddelen\355 adres\341ru." }}{PARA 0 "" 0 "" {TEXT -1 0 "" }} {SECT 1 {PARA 4 "" 0 "" {TEXT -1 28 "Ulozen\355 aktu\341ln\355ho nasta ven\355" }}{PARA 0 "" 0 "" {TEXT -1 159 "Pri prerusen\355 pr\341ce beh em dlouh\351ho v\375poctu nebo pri z\341lohov\341n\355 je vhodn\351 ul ozit aktu\341ln\355 stav promenn\375ch v intern\355m tvaru do souboru \+ (standardn\355 oznacen\355 *.m)." }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 19 "a:= 10; b:= 5*x^2;\n" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "save(`uloz-vse.m`);\n" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "restart;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "read(`uloz-v se.m`);\n" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 13 "a, b, cesta;\n " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 34 "save(a,b,``||cesta||`ul oz-ab.m`);\n" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 24 "unassign('a ','b');\na*b;\n" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 35 "read(``| |cesta||`uloz-ab.m`);\na*b;\n" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 32 "save a,b, ``||cesta||`uloz-ab`;\n" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 18 "unassign('a','b');" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 28 "read(``||cesta||`uloz-ab`);\n" }}}{EXCHG {PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 5 "a*b;\n" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{SECT 1 {PARA 4 "" 0 "" {TEXT -1 18 "Interaktivn\355 vstup " }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 37 "a := readstat( `a bude p rirazeno> `);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 3 "3;\n" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 3 "a;\n" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 38 "a := readstat( `a bude prirazeno> `);\n" }}} {EXCHG {PARA 0 "a bude prirazeno> " 0 "" {MPLTEXT 1 0 3 "2*x" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 7 "2*x+y;\n" }}}{EXCHG {PARA 0 " > " 0 "" {MPLTEXT 1 0 7 "2*x+y;\n" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 191 "f:= \n proc() local n;\n n := readstat(`zadej mocninu > `); \n while not \+ type(n, posint) do\n n := readstat(`vstup musi byt prirozene cislo \+ - znovu > `); \n od;\n factor(x^n - y^n);\nend:\n" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 4 "f();" }}}{EXCHG {PARA 0 "zadej mocni nu> " 0 "" {MPLTEXT 1 0 2 "b;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 3 "4;\n" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{SECT 1 {PARA 4 "" 0 "" {TEXT -1 37 "Presmerov\341n\355 vsech v\375stupu do \+ souboru" }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 27 "writeto(``||cesta ||vystup);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 39 "for i from 1 \+ to 4 do\n print(i);\nod;\n" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "factor(x^3-y^3);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 18 "w riteto(terminal);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 5 "y:=3;" }}}{PARA 0 "" 0 "" {TEXT -1 7 "Pr\355kaz " }{TEXT 260 7 "writeto" } {TEXT -1 31 " prep\355se jiz existuj\355c\355 soubor." }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 29 "appendto( ``||cesta||vystup);\n" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 87 "pr int(`Dals\355 r\341dka vznikla pripojen\355m k jiz existuj\355c\355mu \+ souboru.`);\nseq(i^2, i=1..5);\n" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 18 "writeto(terminal);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 3 "y;\n" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "rest art;" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 15 "Znovunastaven\355 " } {HYPERLNK 17 "cesty" 1 "" "cesta" }{TEXT -1 1 "." }}}}{SECT 1 {PARA 4 "" 0 "" {TEXT -1 18 "Vstup a v\375stup dat" }}{SECT 1 {PARA 5 "" 0 "" {TEXT -1 14 "Numerick\341 data" }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 84 "### WARNING: persistent store makes one-argument readlib obsolet e\nreadlib(readdata):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 56 "ty p:=float: n:=3:\nreaddata(``||cesta||data, typ, n ); \n" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 27 "A := convert( %, matrix);\n" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 24 "IA := evalm( A + 100);\n" } }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 61 "readdata(``||cesta||data, \+ [integer,float,integer,integer] );\n" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 86 "### WARNING: persistent store makes one-argument read lib obsolete\nreadlib(writedata):\n" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 44 "writedata(``||cesta||outdata, IA, integer);\n" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 25 "writedata(terminal, IA);\n" }}}}{SECT 1 {PARA 5 "" 0 "" {TEXT -1 12 "Textov\341 data" }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 43 "fd:=fopen(``||cesta||vystup, WRITE, TEXT);\n" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 77 "writeline(fd, \+ `To je prvn\355 r\341dek.`);\nwriteline(fd, `A nyn\355 prid\341me dals \355.`);\n" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "writeline(fd) ;\n" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "fclose(fd);\n" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 100 "fd:=fopen(``||cesta||vystup , APPEND, TEXT):\nwriteline(fd, `Ten bude v porad\355 ctvrt\375.`);\nf close(fd);\n" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 179 "fd:=fopen( ``||cesta||vystup, READ, TEXT):\n### WARNING: `readline` now returns a string\nprvni:=readline(fd);\n### WARNING: `readline` now returns a s tring\nreadline(fd);\nfclose(fd):\n" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "whattype(prvni);\n" }}}}{SECT 1 {PARA 5 "" 0 "" {TEXT -1 26 "Form\341tovan\341 numerick\341 data" }}{EXCHG {PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 62 "data :=matrix(3,2,\n (i,j)->stats[random, uni form[-3,3]]() );\n" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 31 "data: =convert(data, listlist);\n" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 161 "fd:=fopen(``||cesta||vystup, WRITE, TEXT);\nfor row in data do\n \+ for item in row do\n fprintf(fd, `%3.2e\\t`, item) \n od:\n fpr intf(fd, `\\n`):\nod:\nfclose(fd);\n" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 160 "fd:=fopen(``||cesta||vystup, READ, TEXT);\nline:=tab le(): nline:=0:\nwhile not feof(fd) do\n nline:=nline+1:\n line[nlin e]:=fscanf(fd, `%*e\\t%e`)\nod:\nfclose(fd);\n" }}}{EXCHG {PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 39 "newdata:=[seq(line[k], k=1..nline-1)];\n" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 25 "convert(newdata,matrix);\n" }}}}{SECT 1 {PARA 5 "" 0 "" {TEXT -1 12 "Sm\355sen\341 data" }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 60 "data:=[seq([d||i, stats[random, uni form[0,1]]()], i=1..5)];\n" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 106 "### WARNING: semantics of type `string` have changed\nwritedata(` `||cesta||vystup, data, [string, float]);\n" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 370 "filepos(``||cesta||vystup, 0):\nlines:=table(): n line:=0:\n### WARNING: `readline` now returns a string\nline:=readline (``||cesta||vystup):\nwhile line<>0 do\n nline:=nline+1:\n### WARNING : sscanf now returns a string for the %s format instead of a name\n l ines[nline]:=sscanf(line, `%s%f`):\n### WARNING: `readline` now return s a string\nline:=readline(``||cesta||vystup)\nod:\n" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 38 "newdata:=[seq(lines[k], k=1..nline)];\n" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "eval(lines);" }}}}{PARA 0 "" 0 "" {TEXT -1 73 "Existuje cel\341 rada dals\355ch moznost\355 a \+ parametru pro ovl\341d\341n\355 I/O operac\355." }}}}{SECT 1 {PARA 3 " " 0 "" {TEXT -1 18 "Pr\341ce s knihovnami" }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 10 "?packages\n" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 9 "libname;\n" }}}{SECT 1 {PARA 4 "" 0 "" {TEXT -1 15 "Knihovna LINA LG" }}{PARA 0 "" 0 "" {TEXT -1 48 "Obsahuje pr\355kazy pro pr\341ci s \+ vektory a maticemi." }}{PARA 0 "" 0 "" {TEXT -1 1 " " }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 14 "with(linalg):\n" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 63 "A :=matrix(3, 3, [1, 2, 3, 3, 4, 5, 5, 6, 7]);\n type(%, array);\n" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 64 "ID := \+ array( identity, 1..3, 1..3);\ntype(%, matrix);\nprint(ID);\n" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 27 "v:= vector([-1, 3-s, -4]);\n " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 38 "M:=array(1..2, 1..2);\n entermatrix(M);\n" }}}{EXCHG {PARA 0 "enter element 1,1 > " 0 "" {MPLTEXT 1 0 2 "a;" }}}{EXCHG {PARA 0 "enter element 1,2 > " 0 "" {MPLTEXT 1 0 3 "mu;" }}}{EXCHG {PARA 0 "enter element 2,1 > " 0 "" {MPLTEXT 1 0 3 "nu;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 3 "b;\n " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "restart;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 9 "eval(M);\n" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 18 "randmatrix(3, 3);\n" }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 119 "poly:=\n### WARNING: degree(0,x) now returns -infi nity\nproc() randpoly(x, terms=3, degree=3, coeffs=rand(-10..10)) end; \n" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 43 "randmatrix(3,3, entri es=poly, unimodular);\n" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 " map(factor,%);\n" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 44 "JordanB lock(y,4), vandermonde( [1,x,x,x] );\n" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "B:=band( [-1,2,1], 5);\n" }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 13 "diag(M,1,B);\n" }}}{PARA 5 "" 0 "" {TEXT -1 0 "" }} {PARA 5 "" 0 "" {TEXT -1 24 "Nove definovan\351 operace:" }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "matadd( A , ID);\n" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "multiply(A, A);\n" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 32 "multiply(A, v);\nmultiply(v, A);\n" }}} {PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 5 "" 0 "" {TEXT -1 18 "Rozs\355r en\355 pr\355kazu:" }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 14 "transp ose(A);\n" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "inverse(A);\n " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "det(A);\nrank(A);\n" }} }{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 11 "kernel(A);\n" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 14 "gausselim(A);\n" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "charpoly(A, lambda);\n" }}}{EXCHG {PARA 0 " > " 0 "" {MPLTEXT 1 0 14 "eigenvals(A);\n" }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 11 "rowdim(A);\n" }}}{PARA 0 "" 0 "" {TEXT -1 0 "" }} {PARA 5 "" 0 "" {TEXT -1 22 "Strukturovan\351 operace " }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 42 "addrow(A, 1, 2, -3):\naddrow(%, 1, \+ 3, -5);\n" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 25 "B:= mulcol(A, \+ 3, x + y);\n" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "submatrix(B , 2..3, 2..3);\n" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}} {PARA 5 "" 0 "" {TEXT -1 0 "" }}{PARA 5 "" 0 "" {TEXT -1 41 "Diferenci \341ln\355 pocet funce v\355ce promenn\375ch" }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 40 "f:= 4*x*y*z + 5*y^3 * x;\nv:=[x , y, z];\n" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "grad(f, v);\n" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 63 "fv:=vector(3, [4*x - 3*y^3, 7*x*y*z ^2 + 2*x^3, 5*x^2 + z*y]); \n" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "diverge(fv, v);\n" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 14 " curl(fv, v); \n" }}}}{SECT 0 {PARA 4 "" 0 "" {TEXT -1 16 "Knihovna STU DENT" }}{PARA 0 "" 0 "" {TEXT -1 71 " Obsahuje z\341kladn\355 pr\355ka zy pro calculus. Nekter\351 jsme uz videli dr\355ve (" }{TEXT 266 14 " completesquare" }{TEXT -1 2 ", " }{TEXT 267 7 "combine" }{TEXT -1 2 ", " }{TEXT 268 3 "Int" }{TEXT -1 2 ", " }{TEXT 269 5 "Limit" }{TEXT -1 2 ", " }{TEXT 270 3 "Sum" }{TEXT -1 3 ", i" }{TEXT 271 7 "ntparts" } {TEXT -1 2 ", " }{TEXT 273 7 "isolate" }{TEXT -1 2 ", " }{TEXT 281 5 " value" }{TEXT -1 3 " )." }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "w ith(student);\n" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 33 "II:=Int( (cos(x)+1)^3*sin(x), x);\n" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 30 "changevar(cos(x)+1=u, II, u);\n" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 51 "changevar(x=sin(u), Int(sqrt(1-x^2), x=a...b), u);\n " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 40 "combine(Int(x,x=a..b)-I nt(x^2,x=a..b));\n" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 14 "integ rand(%);\n" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 18 "f:= x^2 * sin (x);\n" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 28 "leftbox( f , x = \+ 1.. 4, 5);\n" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 34 "ls10:=lefts um(f, x= 1 .. 4, 120);\n" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 13 "evalf(ls10);\n" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 97 "chyba1:= abs(evalf(ls10) -evalf( Int(f, x= 1..4))) ;\nchyba2:=abs(evalf(ls10 - \+ int(f, x= 1..4))) ;\n" }}}{PARA 0 "" 0 "" {TEXT -1 13 "Analogicky - " }{TEXT 275 8 "rightbox" }{TEXT -1 2 ", " }{TEXT 276 8 "rightsum" } {TEXT -1 2 ", " }{TEXT 277 7 "simpson" }{TEXT -1 2 ", " }{TEXT 278 9 " trapezoid" }{TEXT -1 2 ", " }{TEXT 279 9 "middlebox" }{TEXT -1 2 ", " }{TEXT 280 8 "midlesum" }{TEXT -1 1 "." }}{PARA 0 "" 0 "" {TEXT -1 0 " " }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 13 "minimize(f);\n" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 32 "maximize(f,x,-6..-4);\nevalf (%);\n" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "plot(f, x=-10..10 );\n" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "minimize(x^2-2*x+3) ;\n" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 18 "maximize(sin(x));\n " }}}{PARA 0 "" 0 "" {TEXT -1 65 "Pro extr\351my funkce v\355ce promen n\375ch je treba pouz\355t jinou funkci (" }{TEXT 274 7 "extrema" } {TEXT -1 2 ")." }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 48 "distance([a,b], [d,e]);\nmidpoint([a,b], [d,e]); \n" }}}}{SECT 1 {PARA 4 "" 0 "" {TEXT -1 30 "Jak vytv\341ret VLASTN \315 KNIHOVNY?" }}{PARA 5 "" 0 "" {TEXT -1 26 "Vytvoren\355 vlastn\355 knihovny" }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "restart;" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 73 "mylibname:=`k:/stud6/common/ maple/mylib/`;\nlibname:= libname, mylibname;\n" }}}{EXCHG {PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 261 "poklib:=table():\n\npoklib[pok1]:= proc(n) ; \n if not type(n, posint) then 'procname(args)';\n else fac tor(x^n - y^n);\n fi;\nend:\n\npoklib[pok2]:=proc(n);\n if not type(n, posint) then 'procname(args)';\n else expand((x + y)^n );\n fi;\nend:\n" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 43 "pok lib[pok1](2);\npoklib[pok2](3);\npok2(2);\n" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 85 "### WARNING: persistent store makes one-argument r eadlib obsolete\nreadlib(makehelp):\n" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 59 "makehelp(`poklib`,``||mylibname||`pokhelp.mws`, mylib name);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "?poklib\n" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 32 "save ``||mylibname||`poklib. m`;\n" }}}{PARA 5 "" 0 "" {TEXT -1 0 "" }}{PARA 5 "" 0 "" {TEXT -1 25 "Pouzit\355 vlastn\355 knihovny." }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "restart:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 51 "poklib[p ok1](2);\npoklib[pok2](3);\npoklib[pok1](a);\n" }}}{EXCHG {PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 45 "read `k:/stud6/common/maple/mylib/poklib.m`;\n " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "?poklib;" }}}{PARA 0 "" 0 "" {TEXT -1 59 "Pro pouzit\355 helpu mus\355me znovu nastavit glob \341ln\355 promennou " }{HYPERLNK 17 "libname" 1 "" "libname" }{TEXT -1 1 "." }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 9 "restart:\n" }}}{PARA 0 "" 0 "" {TEXT -1 48 "Opet ale m us\355me predefinovat glob\341ln\355 promennou " }{HYPERLNK 17 "libnam e" 1 "" "libname" }{TEXT -1 1 "." }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 14 "with(poklib);\n" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 35 " poklib[pok1](3);\npok2(4);\npok2(a);\n" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 7 "?poklib" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 12 " eval(pok1);\n" }}}}{SECT 0 {PARA 4 "" 0 "" {TEXT -1 41 "Zobrazen\355 z drojov\351ho programu z knihovny " }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 29 "interface( verboseproc = 3 );" }}}{EXCHG {PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 14 "print( exp );\n" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "eval(linalg[trace]);\n" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 29 "interface( verboseproc = 1 );" }}}{EXCHG {PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 0 "" }}}}}}{MARK "0 0" 0 }{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }