求高手用VB帮我求出这道题

sunxianjunld

算不出来了，只能用VB试试，听说用牛顿切线法可以，不知道有没有会的

纪永君

不好意思 啊，看你的图形，感觉如果小三角形的条件不能固定这个三角形的各部尺寸，则∠a则无确定值。也就是说，∠a的值不唯一。有个好的方法，解决你的问题：使用电子图版按照你的已知条件，做1：1的图形，测量需要的值，这比较实用。

sunxianjunld

现在∠a应该有确定值

dongjingzhiji

设角度为a1的线段长度为X。

因为线段自圆心出发三折后到边，因此每折线对应的横坐标长度之和
与纵坐标长度之和满足勾股定理，即：
[L1+ X*Sin(a1) + L*Sin(a2)]^2  +  [H+ X*Cos(a1) + L*Cos(a2)]^2  = R^2  
于是得到X值。

那么待求的角对应的直角三角形的
长边c=X*Sin(a1) +L*Sin(a2)
短边b=X*Cos(a1)+L*Cos(a2)

则该角等于Arctg(b/c)

dongjingzhiji

回复 sunxianjunld 的帖子

没事干，续：
将[L1+ X*Sin(a1) + L*Sin(a2)]^2 + [H+ X*Cos(a1) + L*Cos(a2)]^2 = R^2展开，
以二次方程 AX^2+BX+C=0 标准看，
A=1
B=2L*Cos(a1-a2) + 2L1*Sin(a1)+2H*Cos(a1)
C=L^2+L1^2+H^2-R^2+2L1L*Sin(a2)+2HL*Coa(a2)

根为[-B±Sqrt(B^2-4AC)]/(2A) ，如果规定只在第一象限玩，则B为正值，因此只能取+Sqrt的那个根哦。

如有谬误，还请指示。

sunxianjunld

呵呵  谢谢 挺好的