kalkulus vezbi

1.

n=Input["n="]
p=Input["p=]
f[x_]= (x+3)/(x^2-4)
a=Table[D[f[x],{x,i},{i,1,n,1}]
b=Plot[Evaluate[a],{x,-10,10}]
q[x_]=D[f[x],x]/.x->p
c=ListPlot[(p,q[x]),PlotStyle->PointSize[0.01]]
Show[b,c]

2.
f[x_]=(x+3)/(x^2-4)
k=Plot[f[x],{x,-10,10}]
q[x_]=D[f[x],x]
NSolve[q[x]==1/3]
______
kolku iskovi dobijam tolku pisuvam
a[x_] =f[kon sto se stremi x]+q[pak istoto x]*(x-pak toa x)
b[x_}=f[rezultatot takozvani x0]+.....
m=Plot[a[x],{x,-10,10}]
n=Plot[b[x],{x,-1-,10}]
Show[x,m,n]

3.
F[x_,y_,t] = D[x+Cos(x)-Sin(3y)-y,x, NonConstants->y]/.D[y,x,NonConstants->(y)]->t
Solve[F[x,y,t]==0,t]
4.
f[x_]=Sqrt[E^x]/(x^2+Sin[x]+0.5)+Cos[x]
Plot[f[x],{x,-10,10}]
FindRoot[D[f[x]]==0,{x,6.5}]