'已知条件 dim X0 as double dim Y0 as double dim R as Doubledim X1,Y1,X2,Y2 as Double x0=... y0=... r=... x1=... y1=... x2=... y2=... '求 x3,y3,x4,y4 '(x3-x1)/(y3-y1)=(x2-x1)/(y2-y1)=(x4-x1)/(y4-y1) '直线斜率相等 '(x3-x0)^2+(y3-y0)^2=R^2 '园半径勾股定理 '(x4-x0)^2+(y4-y0)^2=R^2 '同上dim X3,Y3,X4,Y4 as Double dim c as double c=(x2-x1)/(y2-y1) 'x3=c*y3-c*y0+x0 'y3^2-2*y0*y3+y3^2=r^2-x3^2+2*x0*x3-x0^2 '把x3代入求解,太罗嗦了,以下略
dim X0 as double
dim Y0 as double
dim R as Doubledim X1,Y1,X2,Y2 as Double
x0=...
y0=...
r=...
x1=...
y1=...
x2=...
y2=...
'求 x3,y3,x4,y4
'(x3-x1)/(y3-y1)=(x2-x1)/(y2-y1)=(x4-x1)/(y4-y1) '直线斜率相等
'(x3-x0)^2+(y3-y0)^2=R^2 '园半径勾股定理
'(x4-x0)^2+(y4-y0)^2=R^2 '同上dim X3,Y3,X4,Y4 as Double
dim c as double
c=(x2-x1)/(y2-y1)
'x3=c*y3-c*y0+x0
'y3^2-2*y0*y3+y3^2=r^2-x3^2+2*x0*x3-x0^2
'把x3代入求解,太罗嗦了,以下略
老打看来你比我还水平差啊555555555555555555555555555555
我是想做一个台球的瞄准器玩玩,不要笑话我;我和你们不一样,我退休在家没事也就是在家看看股票,现在股票不好没事也就在网上玩玩台球,我懂一些VB编程的知识才想到编这个程序的;不过是玩玩而已,如果你想要我可以把代码给你请你帮我改一改;谢谢!
E-mail: [email protected]
这下我可有事干了,唉;就不知道在我的有生之年是否能把这个程序完全弄懂啊!
5555555555555555555555555555555555555555555555555555555555555555555555
太谢谢拉!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!