> restart:

> h:= x-> 1 + 3*cos(x);

> D(h);

> dh:= x ->-3 * sin(x);

> h(Pi/6);

> evalf(%);

> dh(Pi/6);

Касательная проведена в точке ( ) и имеет угловой коэффициент .

> tl:= x -> 1 + (3/2)*(sqrt(3)) - (3/2)*(x - Pi/6);

> plot({tl(x),h(x)}, x = 0..Pi, color=[blue,brown]);