harmadik

>	f:=x->sin(3*x)-cos(4*x);

>

>

>	fsolve(f(x),x=-2..-1);

>

>	fsolve(f(x),x=-1..0);

>	fsolve(f(x),x=0..1);

>	fsolve(f(x),x=1..2);

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

>	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,-2.,-1.,0.0001);

>	felezo(f,-1.,0.,0.0001);

>	felezo(f,0.,1.,0.0001);

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

>	g:=x->3*sqrt(x+2)-3;

>	plot({g(x),x},x=-2..5);

>	fsolve(g(x)=x,x=-2..5);

>	plot(g(x)-x,x=-2..5);

>	c:=tg(alpha)=D(g)(4);

>	v:=evalf(c);

>	d:=arctan(rhs(v));

>	evalf(convert(d,degrees));

>