椭圆周长是920,大家帮忙计算下椭圆长短轴~

来源:学生作业帮助网 编辑:作业帮 时间:2024/11/30 09:07:12
椭圆周长是920,大家帮忙计算下椭圆长短轴~
xSQOP+K)ڢKL( B7fӂf 8AС-R_Lmy/춗D$KLܜ{;;Q-ػԘfX~ C[Zz4>&Y_U3y JC7$o0c"9*,Jغ;Ɲc~ǰ{ڔĈ{ zn{y&My\P(BIA ~Yi<w*JW#CG!IW?yzlLQ/UfPbO9a79ߐ|k916Єd6k]vu>SB!Ջ..8iq4 ʗZ=er-[d__f%h?$N|e!y ZؽߵYe3(kd8!,ɇd&#}AmuIഘ a

椭圆周长是920,大家帮忙计算下椭圆长短轴~
椭圆周长是920,大家帮忙计算下椭圆长短轴~

椭圆周长是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)双击即可运行,按提示输入半长轴和半短轴,确定即可算出结果.