masodik

>	f:=x->x^3-x-3;

>

>	plot(f(x),x=-2..2);

>	solve(f(x),x);

>	fsolve(f(x),x,complex);

>	h:=x->x-f(x)/D(f)(x);

>

f(5);

>	fsolve(h(x));

>	solve(h(x));

>	plot(h(x),x=-5..5);

>	felezo:=proc(f,bal,jobb,eps) local a,b,kozep; a:=bal; b:=jobb; while b-a>2*eps do kozep:=(a+b)/2; if evalf(f(a)*f(kozep))<0> b:=kozep else a:=kozep end if; end do; RETURN (kozep) end:

>

>	felezo(f,1.,2,0.001);

>

>

>	with(plots);

>	c:=x->exp(x)-2; x0:=3; m:=D(c)(x0);

>	J:=plot([x,c(x),x=0..3.5],color=black):

>	K:=plot([[x0,0],[x0,c(x0)]],color=red):

>	L:=plot([x,m*(x-x0)+c(x0),x=1.5..3.5],color=green):

>	display({J,K,L});

>

>

>

>	j:=x->10*x^4+4*x^3-0.4*x^2-0.01*x+0.007;

>	solve(j(x));

>	plot(j,-1..1,y=-1..1);

>