[R programming] 미분

library(Deriv)
Deriv("x^2+x*y","x")

 

x<-seq(-0.9,2.9,length=100)
y<-x**3-3*x**2+x
plot(x,y,type="l")
grid(lwd = 2)
points(0, 0, col='red', lwd=7)
points(1, -1, col='darkgreen', lwd=7)
lines(x,x,col='green',lty=3) #곡선 위 c(0,0)에서의 기울기
lines(x, (3*1**2-6*1+1)*(x-1)-1, col='darkgreen', lty=3) #곡선 위 c(1,-1)에서의 기울기

 

#곡선에서의 기울기
#y-y1=f'(x1)(x-x1)

 

Deriv("exp(x)","x")
[1] "exp(x)"
> Deriv("exp(r*t)","t")
[1] "r * exp(r * t)"
> Deriv("x * exp(x)", "x")
[1] "(1 + x) * exp(x)"