### Related

##### cos-define-diff-expand-find_root-float-log-pi-plot2d

define(f(x), log(4+co...

a:3;

float(f(a));

Calculate

##### cos-define-diff-expand-find_root-float-log-plot2d

define(f(x),log(4+cos...

f(2.5);

a:3 ;

Calculate

##### cos-define-diff-expand-find_root-float-log-plot2d

define (f(x), log(4 +...

a : 3;

float(f(a));

Calculate

##### cos-define-diff-expand-find_root-float-log-plot2d

define(f(x), log(4+co...

f(2.5);

float(f(3));

Calculate

##### cos-define-diff-expand-find_root-float-log-plot2d

define(f(x), log(4+co...

a:3;

float(f(a));

Calculate

##### cos-define-diff-expand-find_root-float-log

define (f(x), log (4+...

float(f(3));

define (fp(x), diff (...

Calculate

##### cos-define-diff-expand-find_root-float-log-plot2d

define(f(x), log(4+co...

f(2.5);

float(f(3));

Calculate

##### cos-define-diff-expand-find_root-float-log-pi

define (f(x), log(4 +...

a : 3;

float(f(a));

Calculate

##### cos-define-diff-expand-find_root-float-log-plot2d

define(f(x), log(4+co...

a: 3;

float(f(a));

Calculate

##### cos-define-diff-expand-find_root-float-log-plot2d

define(f(x),log(4+cos...

f(2.5);

a:3 ;

Calculate

### [cos,define,diff,expand,find_root,float,log]

Run Example
```(%i1)define (f(x), log(4+cos(x)));
(%o1)                       f(x) := log(cos(x) + 4)
(%i2) a:3;
(%o2)                                  3
(%i3) define (fp(x), diff(f(x),x));
sin(x)
(%o3)                        fp(x) := - ----------
cos(x) + 4
(%i4) b:7;
(%o4)                                  7
(%i5) h:b-a;
(%o5)                                  4
(%i6) define(y(x), float(expand(f(a)+fp(a)*(x-a))));
(%o6)           y(x) := 1.242593391787529 - 0.04688360673536 x
(%i7) s: find_root (fp(x)=0, x, 2,4);
(%o7)                          3.141592653589793
(%i8) ```
Run Example
```define (f(x), log(4+cos(x)));
(%o1)                       f(x) := log(cos(x) + 4)
(%i2) a: 3;
(%o2)                                  3
(%i3) b: 7;
(%o3)                                  7
(%i4) dq: (f(a+h)-f(a))/h;
log(cos(h + 3) + 4) - log(cos(3) + 4)
(%o4)                -------------------------------------
h
(%i5) define (z(x), expand(f(a)+dq*(x-a)));
log(cos(h + 3) + 4) x   log(cos(3) + 4) x   3 log(cos(h + 3) + 4)
(%o5) z(x) := --------------------- - ----------------- - ---------------------
h                     h                     h
3 log(cos(3) + 4)
+ ----------------- + log(cos(3) + 4)
h
(%i6) define (fp(x), diff (f(x), x));
sin(x)
(%o6)                        fp(x) := - ----------
cos(x) + 4
(%i7) define (y(x), expand(float(f(a)+fp(a)*(x-a))));
(%o7)           y(x) := 1.242593391787529 - 0.04688360673536 x
(%i8) S: find_root(y(x)= z(x), x, 2, 4);
(%o8) find_root(1.242593391787529 - 0.04688360673536 x =
log(cos(h + 3) + 4) x   log(cos(3) + 4) x   3 log(cos(h + 3) + 4)
--------------------- - ----------------- - ---------------------
h                     h                     h
3 log(cos(3) + 4)
+ ----------------- + log(cos(3) + 4), x, 2.0, 4.0)
h
(%i9) ```
Run Example
```define( f(x), log(4+cos(x)));
(%o1)                       f(x) := log(cos(x) + 4)
(%i2) define(fp(x),diff(f(x),x));
sin(x)
(%o2)                        fp(x) := - ----------
cos(x) + 4
(%i3) a:3;
(%o3)                                  3
(%i4) b:7;
(%o4)                                  7
(%i5) h:b-a;
(%o5)                                  4
(%i6) dq:(f(a+h)-f(a))/h;
log(cos(7) + 4) - log(cos(3) + 4)
(%o6)                  ---------------------------------
4
(%i7)  float(define(z(x), expand(f(a)+dq*(x-a))));
(%o7)            z(x) := 0.11425580910662 x + 0.75917514426159
(%i8) float(S: find_root(fp(x)=0,x,2,4));
(%o8)                          3.141592653589793
(%i9) f(3.141592653589793);
(%o9)                          1.09861228866811
(%i10) ```

### Related Help

Help for Cos

Help for Define

Help for Diff

Help for Expand

Help for Find_root

Help for Float

Help for Log