Mathematica 2.2 for DOS 387
Copyright 1988-93 Wolfram Research, Inc.

In[1]:= Plot[x/2+Sin[x]-2,{x,5,7}]
Out[1]= -Graphics-

In[2]:= << MathRov.m

In[3]:= Bisekce[x/2+Sin[x]-2,{x,5,7},0.0000001]
Koren je v bode 5.46281
Pocet iteraci je 24

In[4]:= Newton[x/2+Sin[x]-2,{x,5,7},0.0000001]
Koren je v bode 5.46281
Pocet iteraci je 4

In[5]:= Secna[x/2+Sin[x]-2,{x,5,7},0.0000001]
Koren je v bode 5.46281
Pocet iteraci je 9

In[6]:= RegulaFalsi[x/2+Sin[x]-2,{x,5,7},0.0000001]
Koren je v bode 5.46281
Pocet iteraci je 9

