{VERSION 5 0 "IBM INTEL NT" "5.0" }
{USTYLETAB {CSTYLE "Maple Input" -1 0 "Courier" 0 1 255 0 0 1 0 1 0 0 
1 0 0 0 0 1 }{CSTYLE "" 0 21 "" 0 1 0 0 0 1 0 0 0 0 2 0 0 0 0 1 }
{CSTYLE "" -1 256 "" 0 1 0 0 0 0 0 1 0 0 0 0 0 0 0 0 }{PSTYLE "Normal
" -1 0 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 1 1 1 }1 
1 0 0 0 0 1 0 1 0 2 2 0 1 }{PSTYLE "Normal" -1 256 1 {CSTYLE "" -1 -1 
"Times" 1 18 0 0 0 1 2 2 2 2 2 2 1 1 1 1 }3 1 0 0 0 0 1 0 1 0 2 2 0 1 
}{PSTYLE "Normal" -1 257 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 
2 2 2 2 1 1 1 1 }3 1 0 0 0 0 1 0 1 0 2 2 0 1 }}
{SECT 0 {EXCHG {PARA 256 "" 0 "" {TEXT -1 45 "T\366bbpontos numerikus \+
deriv\341ltak sz\341rmaztat\341sa" }}{PARA 257 "" 0 "" {TEXT -1 34 "Ba
rtha Ferenc, SZTE, 2002. febru\341r" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 
8 "restart;" }}}{EXCHG {PARA 0 "" 0 "" {MPLTEXT 0 21 17 "n-pontos form
ula:" }{MPLTEXT 1 0 5 "n:=5:" }}{PARA 0 "" 0 "" {MPLTEXT 0 21 1 " " }
{TEXT -1 17 "pr\363b\341ljuk ki m\341s " }{TEXT 256 1 "n" }{TEXT -1 
18 " \351rt\351kekkel is...." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 
0 82 "l := \{seq(i,i=ceil(-(n-1)/2)..ceil((n-1)/2))\}:\nprintf(\"%a po
ints= %a \",nops(l),l);" }}}{EXCHG {PARA 0 "" 0 "" {MPLTEXT 0 21 46 "A
 pontok sz\341m\341hoz alkalmazhat\363 Taylor polinom:" }{TEXT -1 0 "
" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 18 "L:=l minus \{0\}:m:=" }{TEXT 
-1 0 "" }{MPLTEXT 1 0 0 "" }{TEXT -1 0 "" }{MPLTEXT 1 0 0 "" }{TEXT 
-1 0 "" }{MPLTEXT 1 0 8 "nops(L):" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 
26 "fun:=taylor(f(x),x=0,m+1):" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 25 "f
un:=subs(f(0)=f[0],fun);" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 32 "var:=\{
seq((D@@i)(f)(0),i=1..m)\}:" }}}{EXCHG {PARA 0 "" 0 "" {MPLTEXT 0 21 
32 "Az egyenletrendszer elk\351szit\351se:" }}{PARA 0 "> " 0 "" 
{MPLTEXT 1 0 113 "eq:=\{\}:\nfor i from 1 to m do\nep:=\{subs(x=L[i]*h
,f[L[i]]=convert(fun,polynom))\}:print(ep[1]):\neq:=eq union ep:\nod:
" }}}{EXCHG {PARA 0 "" 0 "" {MPLTEXT 0 21 13 "\351s megold\341sa:" }}
{PARA 0 "> " 0 "" {MPLTEXT 1 0 5 "sol:=" }{TEXT -1 0 "" }{MPLTEXT 1 0 
0 "" }{TEXT -1 0 "" }{MPLTEXT 1 0 54 "solve(eq,var):\nfor i from 1 to \+
m do\nprint(sol[i]):\nod:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 
"" }{TEXT -1 0 "" }{MPLTEXT 1 0 0 "" }}}}{MARK "0 0 0" 0 }{VIEWOPTS 1 
1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }