{VERSION 5 0 "IBM INTEL NT" "5.0" }
{USTYLETAB {CSTYLE "Maple Input" -1 0 "Courier" 0 1 255 0 0 1 0 1 0 0 
1 0 0 0 0 1 }{CSTYLE "2D Math" -1 2 "Times" 0 1 0 0 0 0 0 0 2 0 0 0 0 
0 0 1 }{CSTYLE "2D Comment" 2 18 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 1 }
{CSTYLE "2D Input" 2 19 "" 0 1 255 0 0 1 0 0 0 0 0 0 0 0 0 1 }{CSTYLE 
"" 0 21 "" 0 1 0 0 0 1 0 0 0 0 2 0 0 0 0 1 }{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 "" 0 256 1 {CSTYLE "" -1 -1 "" 1 18 0 0 0 
0 0 0 0 0 0 0 0 0 0 0 }3 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "" 0 
257 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 }3 0 0 -1 
-1 -1 0 0 0 0 0 0 -1 0 }}
{SECT 0 {EXCHG {PARA 256 "" 0 "" {TEXT -1 50 "Numerikus els\365 deriv
\341ltak pontoss\341g\341nak vizsg\341lata" }}{PARA 257 "" 0 "" {TEXT 
-1 34 "Bartha Ferenc, SZTE, 2002. m\341rcius" }}{PARA 0 "" 0 "" {TEXT 
-1 0 "" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "restart:" }}}{EXCHG {PARA 
0 "" 0 "" {MPLTEXT 0 21 10 "P\351ld\341nak: " }{XPPEDIT 18 0 " \nf(x)=
sin(x) ,Delta*x=1/10:" "6$/-%\"fG6#%\"xG-%$sinG6#F'/*&%&DeltaG\"\"\"F'
F.*&F.F.\"#5!\"\"" }}{PARA 0 "" 0 "" {MPLTEXT 0 21 52 "Pr\363b\341ljuk
 ki majd m\341s f\374ggv\351nnyel \351s m\341s beoszt\341ssal" }}
{PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "fun:=sin:h:=1/10:" }}}{EXCHG {PARA 
0 "" 0 "" {MPLTEXT 0 21 24 "K\351tpontos el\365re-deriv\341lt" }}
{PARA 0 "> " 0 "" {XPPEDIT 19 1 "df1:=(f,x,h)->(f(x+h)-f(x))/h:\nerr1:
=(f,x,h)->abs( D(f)(x) - df1(f,x,h) ):" "6#C$>%$df1Gf*6%%\"fG%\"xG%\"h
G7\"6$%)operatorG%&arrowG6\"*&,&-F(6#,&F)\"\"\"F*F5F5-F(6#F)!\"\"F5F*F
8F/F/F/>%%err1Gf*6%F(F)F*7\"6$F-F.F/-%$absG6#,&--%\"DG6#F(6#F)F5-F%6%F
(F)F*F8F/F/F/" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 50 "plot( err1(fun,x,h
),x= 0..3.0, title=`o(1)-hiba`);" }}}{EXCHG {PARA 0 "" 0 "" {MPLTEXT 
0 21 33 "H\341rompontos szimmetrikus deriv\341lt" }}{PARA 0 "> " 0 "" 
{XPPEDIT 19 1 "df2:=(f,x,h)->(f(x+h)-f(x-h))/(2*h):\nerr2:=(f,x,h)->ab
s( D(f)(x) - df2(f,x,h) ):" "6#C$>%$df2Gf*6%%\"fG%\"xG%\"hG7\"6$%)oper
atorG%&arrowG6\"*&,&-F(6#,&F)\"\"\"F*F5F5-F(6#,&F)F5F*!\"\"F9F5*&\"\"#
F5F*F5F9F/F/F/>%%err2Gf*6%F(F)F*7\"6$F-F.F/-%$absG6#,&--%\"DG6#F(6#F)F
5-F%6%F(F)F*F9F/F/F/" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 48 "plot( err2(
fun,x,h),x=0..3.0,title=`o(2)-hiba`);" }}}{EXCHG {PARA 0 "" 0 "" 
{MPLTEXT 0 21 66 "A hiba a beoszt\341s finoms\341g\341nak a f\374ggv
\351ny\351ben r\366gzitett x0 helyen:" }}{PARA 0 "> " 0 "" {XPPEDIT 
19 1 "x0:=1.0:both:=(f,x,h)->\{err1(f,x,h), err2(f,x,h) \}:" "6#C$>%#x
0G-%&FloatG6$\"#5!\"\">%%bothGf*6%%\"fG%\"xG%\"hG7\"6$%)operatorG%&arr
owG6\"<$-%%err1G6%F/F0F1-%%err2G6%F/F0F1F6F6F6" }}{PARA 0 "> " 0 "" 
{MPLTEXT 1 0 84 "plot( both(fun,x0,dx),dx=0 .. 0.3,title=`o(h) <-> o(h
^2) hiba`,\ncolour=[red,green]);" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 0 "" }}}}{MARK "0 0 0" 13 }{VIEWOPTS 1 1 0 1 1 1803 1 1 
1 1 }{PAGENUMBERS 0 1 2 33 1 1 }