求Excel VBA投点法求定积分的编程 被积函数如下

Question

如题所述

Answer 1

function F1(li,aa,pa,pb.l)
for i = 0 to li
x = sin((aa+pa*l+(pb-pa)*(l^2/l))*(pi()/180))
f1 = f1 + x
next
end function

function F2(li,aa,pa,pb.l)
for i = 0 to li
x = cos((aa+pa*l+(pb-pa)*(l^2/l))*(pi()/180))
f1 = f1 + x
next
end function追问

其实我想要的是投点法，不是梯形法，能不能受累帮我想想

本回答被网友采纳

Answer 2

搜一下：求Excel
VBA投点法求定积分的编程
被积函数如下