最简单但计算量最大的是泰勒公式:e=1+1/1!+1/2!+1/3!+1/4!+...
下面是求e的R语言函数:
e_fun <- function(n) {etemp <- 1
ni <- 1L
for (i in 1:n) {
etemp <- etemp + 1 / ni
ni <- ni * (i + 1)
}
return(etemp)
}
不过你题目中要求的是求到精度为0.00001就停止,所以可以采用repeat循环:
i <- 1Lni <- 1L
etemp <- 1
repeat {
etemp1 <- etemp
etemp <- etemp + 1 / ni
ni <- ni * (i + 1)
i <- i + 1
if (etemp - etemp1 < 0.00001) break
}
i
etemp
在最后可以看到,求到i=10时,精度就已经达到要求了。
具体的E值计算是将企业发往某一城市一年的总运量以整车模式换算得出一个总运费,除以实际一年内发生的总运费,所得到的就是E值。E值一般小于1,出现这种现象是因为企业的客户或分销商在每次要货的过程中往往是以自身需求或资金量决定,故往往为非整车模式。
在实际运送中非整车货量按散货价格计算,而散货价格和整车价格的差距高达40%以上,这也就造成了企业在一年的运输中由于非整车现象产生了运输费用的大量浪费。具体E值请参照公式。
扩展资料:
E值分为“企业E值”和“线路E值”,其同时影响着企业单线运输整车率和企业运费成本。
通过对制造业的数据调查分析,无异地仓储制造业“企业E值”多集中于0.43-0.66之间,这就意味着这些企业的物流成本理论上有44%-57%的降低空间。而如果可使“E值”无限接近于1,企业的成本就将显而易见的大幅下降,竞争力随之大幅提升。
计算方法如下:
已知函数
存在任意阶的导数。将其在点
处进行泰勒展开,有
取Peano形式的余项
令上式
有
故有
即得
由此就可根据上式求解出
的具体数值。
扩展资料
1、e对于自然数的特殊意义
所有大于2的2n形式的偶数存在以
为中心的共轭奇数组,每一组的和均为2n,而且至少存在一组是共轭素数
可以说是素数的中心轴,1/2只是奇数的中心轴。
2、素数定理
自然常数也和质数分布有关。有某个自然数a,则比它小的质数就大约有
个。在a较小时,结果不太正确。但是随着a的增大,这个定理会越来越精确。这个定理叫素数定理,由高斯发现。
参考资料来源:百度百科-自然常数