请选择 进入手机版 | 继续访问电脑版
楼主: chinnafafa
3800 2

[程序分享] R语言泰勒展开式绘图 [推广有奖]

  • 0关注
  • 0粉丝

高中生

42%

还不是VIP/贵宾

-

威望
0
论坛币
0 个
通用积分
0.3000
学术水平
0 点
热心指数
0 点
信用等级
0 点
经验
53 点
帖子
4
精华
0
在线时间
49 小时
注册时间
2017-12-30
最后登录
2023-4-1

chinnafafa 发表于 2017-12-30 11:05:28 |显示全部楼层 |坛友微信交流群
相似文件 换一批

+2 论坛币
k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群
赵安豆老师微信:zhaoandou666

经管之家联合CDA

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

感谢您参与论坛问题回答

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

+2 论坛币
怎么在R语言中画出cos函数的二阶到十阶泰勒展开式图像
二维码

扫码加我 拉你入群

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

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

关键词:泰勒展开 展开式 R语言 cos

cheetahfly 在职认证  发表于 2017-12-30 22:11:26 |显示全部楼层 |坛友微信交流群
粗略画了一下:
  1. # 写函数
  2. ty2 <- function(x) return(1 + -cos(0) / factorial(2) * x ^ 2)
  3. ty4 <- function(x) return(ty2(x) + cos(0) / factorial(4) * x ^ 4)
  4. ty6 <- function(x) return(ty4(x) + -cos(0) / factorial(6) * x ^ 6)
  5. ty8 <- function(x) return(ty6(x) + cos(0) / factorial(8) * x ^ 8)
  6. ty10 <- function(x) return(ty8(x) + -cos(0) / factorial(10) * x ^ 10)

  7. # 作图
  8. x_bgn <- -3 * pi
  9. x_end <- 3 * pi
  10. x_num <- 301
  11. curve(cos, x_bgn, x_end, x_num, col = "black", ylim = c(-3, 4), ylab = "y")
  12. curve(ty2, x_bgn, x_end, x_num, add = TRUE, col = "orange")
  13. curve(ty4, x_bgn, x_end, x_num, add = TRUE, col = "blue")
  14. curve(ty6, x_bgn, x_end, x_num, add = TRUE, col = "hotpink")
  15. curve(ty8, x_bgn, x_end, x_num, add = TRUE, col = "red")
  16. curve(ty10, x_bgn, x_end, x_num, add = TRUE, col = "green")
  17. legend("topleft", legend = c("cos(x)", "2阶/3阶", "4阶/5阶", "6阶/7阶", "8阶/9阶", "10阶"), col = c("black", "orange", "blue", "hotpink", "red", "green"), lty = 1)
复制代码

taylor Series of cos_x.png

使用道具

chinnafafa 发表于 2017-12-30 23:06:45 |显示全部楼层 |坛友微信交流群
感谢!

使用道具

您需要登录后才可以回帖 登录 | 我要注册

本版微信群
加好友,备注cda
拉您进交流群

京ICP备16021002-2号 京B2-20170662号 京公网安备 11010802022788号 论坛法律顾问:王进律师 知识产权保护声明   免责及隐私声明

GMT+8, 2024-3-29 10:08