椭圆周长是920,大家帮忙计算下椭圆长短轴~
来源:学生作业帮 编辑:作业帮 分类:数学作业 时间:2024/08/29 03:28:13
椭圆周长是920,大家帮忙计算下椭圆长短轴~
椭圆周长没有公式求解,所以有关椭圆周长的问题几乎无法求解析解.不过我这有一段求椭圆周长的代码,或许对你有点帮助:
a=inputbox("请输入a")
b=inputbox("请输入b")
if a>b then
k=1-(b/a)^2
m=a
else
k=1-(a/b)^2
m=b
end if
n=50
const PI=3.141592653
dx=PI/(2*n)
x=dx/2
s=0
for i=1 to n
f1=sqr(1-k*(cos(x-dx/2))^2)
f2=sqr(1-k*(cos(x))^2)
f3=sqr(1-k*(cos(x+dx/2))^2)
s=s+f1+4*f2+f3
x=x+dx
next
c=2*s*dx/3
d=c*1e9
l=int(d)/(1e9)
msgbox("椭圆周长等于" & m*l)
注释:(1)椭圆周长没有公式求解,这段代码可实现椭圆周长的数值计算,精确度达十位有效数字;
(2)新建一个文本文档,将这段代码复制粘贴,保存为“椭圆周长.vbs”;
(3)双击即可运行,按提示输入半长轴和半短轴,确定即可算出结果.
a=inputbox("请输入a")
b=inputbox("请输入b")
if a>b then
k=1-(b/a)^2
m=a
else
k=1-(a/b)^2
m=b
end if
n=50
const PI=3.141592653
dx=PI/(2*n)
x=dx/2
s=0
for i=1 to n
f1=sqr(1-k*(cos(x-dx/2))^2)
f2=sqr(1-k*(cos(x))^2)
f3=sqr(1-k*(cos(x+dx/2))^2)
s=s+f1+4*f2+f3
x=x+dx
next
c=2*s*dx/3
d=c*1e9
l=int(d)/(1e9)
msgbox("椭圆周长等于" & m*l)
注释:(1)椭圆周长没有公式求解,这段代码可实现椭圆周长的数值计算,精确度达十位有效数字;
(2)新建一个文本文档,将这段代码复制粘贴,保存为“椭圆周长.vbs”;
(3)双击即可运行,按提示输入半长轴和半短轴,确定即可算出结果.