作者:乔山办公网日期:
返回目录:excel表格制作
B1公式百下拉:(公式加入当A1为空度白时,公式也返回知空白的判断。) =IF(A1="","",IF(A1>6000,15%,IF(A1>3000,14%,IF(A1>2000,12%,IF(A1>1150,10%,))))*A1) 若A1固定道为整数的情况版,以下公权式精简一些: =IF(A1="","",LOOKUP(A1,{0,0;1151,0.1;2001,0.12;3001,0.14;6001,0.15})*A1)
1 Public Function 梯形积分(r As String, a As Double, b As Double, n As Integer) As Double 2 Dim dx As Double, i As Integer 3 dx = (b - a) / n 4 For i = 1 To n 5 梯形积分 = 梯形积分 + fx(r, (a + dx * (i - 1 / 2))) * dx 6 Next i 7 End Function 8 Public Function 复化辛普生积分(r As String, a As Double, b As Double, n As Integer) As Double 9 Dim dx As Double, i As Integer, m As Integer 10 m = 2 * n 11 dx = (b - a) / m 12 复化辛普生积分 = fx(r, a) + fx(r, b) 13 For i = 2 To m Step 2 14 复化辛普生积分 = 复化辛普生积分 + 4 * fx(r, (a + dx * (i - 1))) + 2 * fx(r, (a + dx * i)) 15 Next i 16 复化辛普生积分 = (复化辛普生积分 - 2 * fx(r, (a + dx * m))) * dx / 3 17 End Function 18 Public Function fx(f As String, x As Double) As Double 19 f = LCase(f) 20 fx = Evaluate(Replace(f, "x", x)) 21 End Function 两个函数的参数都是1.积分函数,自变量用x表示,x不区分大小写2.积分下限3.积分上限4.划分次数,不e68a84e8a2ad7a686964616f331能大于32766,对于梯形积分,越大越接近真值,对于复化辛普生积分,没必要使用大的划分次数积分区间包含奇点(趋近于无穷的点),复化辛普生公式将不能正确积分,将来可能会修正也希望高手出招调用方法:=梯形积分("sin(x)^3-ln(x+1)^3+x^5-x", 0, 2, 2000)
貌似Excel没有微积分功能函数。
如果你用Excel实现了微积分自动解算,就不用研究matlab之类的大程序了。
给出具体某一个题目,让网友用Excel帮助比较现实点儿。
Excel中只能实现带积分符号的函数显示,而不能百实现积分的运算。
显示函数可以使用插入公式来进行编辑显示。
专业的公式编辑器可以编辑所有的公式功能。它无论是Word、Excel还是PowerPoint中都可以使用。
退出公度式编辑器就可以见到完整的公式了。
同时需要注意回的是,公式编答辑器是OFFICE在安装时的一个选项,如果在安装时此项没有选的话,是不能进行公式编辑的。遇到没有安装的情况,可以通过重新更改安装OFFICE来解决。