- 阅读权限
- 255
- 威望
- 0 级
- 论坛币
- 58638 个
- 通用积分
- 1373.9804
- 学术水平
- 480 点
- 热心指数
- 587 点
- 信用等级
- 328 点
- 经验
- 126214 点
- 帖子
- 2059
- 精华
- 1
- 在线时间
- 3760 小时
- 注册时间
- 2010-10-27
- 最后登录
- 2024-3-29
|
粗略画了一下:
- # 写函数
- ty2 <- function(x) return(1 + -cos(0) / factorial(2) * x ^ 2)
- ty4 <- function(x) return(ty2(x) + cos(0) / factorial(4) * x ^ 4)
- ty6 <- function(x) return(ty4(x) + -cos(0) / factorial(6) * x ^ 6)
- ty8 <- function(x) return(ty6(x) + cos(0) / factorial(8) * x ^ 8)
- ty10 <- function(x) return(ty8(x) + -cos(0) / factorial(10) * x ^ 10)
- # 作图
- x_bgn <- -3 * pi
- x_end <- 3 * pi
- x_num <- 301
- curve(cos, x_bgn, x_end, x_num, col = "black", ylim = c(-3, 4), ylab = "y")
- curve(ty2, x_bgn, x_end, x_num, add = TRUE, col = "orange")
- curve(ty4, x_bgn, x_end, x_num, add = TRUE, col = "blue")
- curve(ty6, x_bgn, x_end, x_num, add = TRUE, col = "hotpink")
- curve(ty8, x_bgn, x_end, x_num, add = TRUE, col = "red")
- curve(ty10, x_bgn, x_end, x_num, add = TRUE, col = "green")
- 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)
复制代码
|
|