r 绘图求程式碼

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

f<-function(x)x^4-4*x^3-10
dx<-deriv(~x^4-4*x^3-10,"x");dx
d2x<-deriv(~4*x^3-12*x^2,"x");d2x
f(-1)

以上是我做到一半的

函数:x^4-4*x^3-10

要画函数图和一次微分图,二次微分图,通过(-1,-5)该点切线

要本四条线画在一起并用不同颜色标记

可是我怎么话都错误

Ex:plot(f,add=T)

設x,y範圍也出現問題

求以上程式碼

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：function

切线的话，留给你当做作业吧

1. f<-function(x)x^4-4*x^3-10
   
2. dx<-function(x) 4*x^3 - 12 *x^2
   
3. dx2<-function(x) 12*x^2 - 24* x
   
4. x = seq (-5,5,0.01)
   
5. plot(x,f(x),type = "l",col = "light blue")
   
6. lines(x,dx(x),type = "l",col = "red")
   
7. lines(x,dx2(x),type = "l",col = "black")
   
8. legend(4,1000,c("f(x)","f'(x)","f''(x)"),lty = c(1,1),
   
9.        lwd=c(2.5,2.5),col = c("light blue","red","black"))

复制代码

Aharach 发表于 2013-3-12 05:53
切线的话，留给你当做作业吧

thank you very much

Aharach 发表于 2013-3-12 05:53
切线的话，留给你当做作业吧

thank you very much