R语言求导数和积分

R语言求导数和积分

求导数

例一:
求 sin ⁡ ( tan ⁡ x ) 的导数 \text{求}\sin \left( \tan x \right) \text{的导数} sin(tanx)的导数

f <- quote(sin(tan(x)))
D(f,"x")

在这里插入图片描述
求的结果为: cos ⁡ ( tan ⁡ x ) ∗ ( 1 / cos ⁡ 2 ( x ) ) = cos ⁡ ( tan ⁡ x ) sec ⁡ 2 x \cos \left( \tan x \right) \ast \left( 1/\cos ^2\left( x \right) \right) =\frac{\cos \left( \tan x \right)}{\sec ^2x} cos(tanx)(1/cos2(x))=sec2xcos(tanx)
例二:
求 sin ⁡ x cos ⁡ ( x y ) 对 x 的导数 \text{求}\sin x\cos \left( xy \right) \text{对}x\text{的导数} sinxcos(xy)x的导数

f <- quote(sin(x)*cos(x*y))
D(f,"x")

在这里插入图片描述
即结果为: cos ⁡ x cos ⁡ ( x y ) − sin ⁡ x sin ⁡ ( x y ) y \cos x\cos \left( xy \right) -\sin x\sin \left( xy \right) y cosxcos(xy)sinxsin(xy)y
给定条件下的导数值:

  • 以例二为例,求出当x等于1,y=2时的导数值
f <- quote(sin(x)*cos(x*y))
z <- D(f,"x")
eval(z,list(x=1,y=2))

在这里插入图片描述

积分

∫ 0 π 2 sin ⁡ x d x \int_0^{\frac{\pi}{2}}{\sin xdx} 02πsinxdx

f <- function(x) sin(x)
integrate(f,0,pi/2)

在这里插入图片描述
结果是1

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值