请使用R语言编程实现函数：f(x)=1+exp(-x)*sin(x)在区间[0，10]上的定积分值。基本思想：按照数学分析中的分割求和思想，比较两次分割下，小矩形的面积和只差，小于10^(-6)，就认为该分割下，积分值趋于稳定。
https://www.cnblogs.com/NEFPHYS/p/nef20180607.html