实验八 物理现象的数学模拟 练习 7.下面是用牛顿万有引力定理验证开普勒第一定律的实验程序: k=40000;v={{0,80}};s={{-10.0,0}};t=0.006; ac[{x_,y_}]:={-k x/((x^2+y^2)^(3/2)),-k y/((x^2+y^2)^(3/2))}; i=1; While[!(If[i>=3,s[[-1,2]]>=0&&s[[-2,2]]<=0&&i<=8000,False]), AppendTo[v,v[[i]]+t ac[s[[i]]]]; AppendTo[s,s[[i]]+t v[[i]]+ac[s[[i]]] t^2]; i++ ]; ListPlot[s] 根据以上程序回答问题: (1)ac[{x_,y_}]:={-k x/((x^2+y^2)^(3/2)),-k y/((x^2+y^2)^(3/2))}是计算什么的? (2)ListPlot[s]画出的是什么? (3)结合上述程序,请写出验证开普勒第三定律的程序. (4)写出验证开普勒第三定律的方法.