Question

用vba解一个三角函数的二元一次方程： sinα/sinβ=a/b (tanα+tanβ)×c=d abcd是定值，求α和β的值！

用vba解一个三角函数的二元一次方程：
sinα/sinβ=a/b
(tanα+tanβ)×c=d
abcd是定值，求α和β的值！
请写出编程思路 方法
我可以用穷举法设定α为一个值，从而得出β。
关键是怎么编写一个方法让 α和β为唯一值适应第二个公式？

Answer 1

这是一个数学问题，而不是一个VB问题。解题思路：设tanα=x，则sinα^2=tanα^2/(1+tanα^2)=x^2/(1+x^2)，同样设tanβ=y，则有sinβ^2=y^2/(1+y^2)。既然ABCD是定值，那么令sinα/sinβ=k,tanα+tanβ=p,k和p也是定值。就有（1） x+y=p (2) x^2*(1+y^2）/(y^2*(1+x^2))=k^2，
将y=p-x代入（2），得到一元四次方程x^4-2p*x^3+p^2*x^2+2p/(1-k^2)*x+p^2/(1-k^2)=0,p和k是定值，各项系数就确定了，解方程得出x,y的值，进而得到α和β的值。

追问

那怎么解出这个4次方程呢？

追答

对应确定了系数的一元四次方程，都可以写成（x^2+ax+b）^2=c,进而变成解一元二次方程。

Answer 2

过程中

Answer 3

比较麻烦
百度HI，我们共同探讨

追问

不用百度hi吧 QQ可以吗 86574583

追答

已加你，关键字：三角函数的二元一次方程