求助，哪个大神帮我看看怎么让软件解这个方程组
mathematica吧
全部回复
仅看楼主
level 1
游走飞机坪 楼主
Solve[lb == la - a && (oa (la^ 2)/(Sin[oa]^2)) - (la^2) Cot[oa] ==
a0 && (ob (lb^ 2)/(Sin[ob]^2)) - (lb^2) Cot[ob] == a0 &&
f == (ob lb/Sin[ob]) - (oa la/Sin[oa]), {f}]
2018年01月07日 12点01分 1
level 1
游走飞机坪 楼主
2018年01月07日 12点01分 2
level 4
cfwengf
{{f -> (Sqrt[a0] oa Csc[oa])/Sqrt[-Cot[oa] + oa Csc[oa]^2] - (
Sqrt[a0] ob Csc[ob])/Sqrt[-Cot[ob] + ob Csc[ob]^2],
lb -> -(Sqrt[a0]/Sqrt[-Cot[ob] + ob Csc[ob]^2]),
la -> -(Sqrt[a0]/Sqrt[-Cot[oa] + oa Csc[oa]^2]),
a -> -(Sqrt[a0]/Sqrt[-Cot[oa] + oa Csc[oa]^2]) + Sqrt[a0]/
Sqrt[-Cot[ob] + ob Csc[ob]^2]}, {f -> -((Sqrt[a0] oa Csc[oa])/
Sqrt[-Cot[oa] + oa Csc[oa]^2]) - (Sqrt[a0] ob Csc[ob])/
Sqrt[-Cot[ob] + ob Csc[ob]^2],
lb -> -(Sqrt[a0]/Sqrt[-Cot[ob] + ob Csc[ob]^2]),
la -> Sqrt[a0]/Sqrt[-Cot[oa] + oa Csc[oa]^2],
a -> Sqrt[a0]/Sqrt[-Cot[oa] + oa Csc[oa]^2] + Sqrt[a0]/
Sqrt[-Cot[ob] + ob Csc[ob]^2]}, {f -> (Sqrt[a0] oa Csc[oa])/
Sqrt[-Cot[oa] + oa Csc[oa]^2] + (Sqrt[a0] ob Csc[ob])/
Sqrt[-Cot[ob] + ob Csc[ob]^2],
lb -> Sqrt[a0]/Sqrt[-Cot[ob] + ob Csc[ob]^2],
la -> -(Sqrt[a0]/Sqrt[-Cot[oa] + oa Csc[oa]^2]),
a -> -(Sqrt[a0]/Sqrt[-Cot[oa] + oa Csc[oa]^2]) - Sqrt[a0]/
Sqrt[-Cot[ob] + ob Csc[ob]^2]}, {f -> -((Sqrt[a0] oa Csc[oa])/
Sqrt[-Cot[oa] + oa Csc[oa]^2]) + (Sqrt[a0] ob Csc[ob])/
Sqrt[-Cot[ob] + ob Csc[ob]^2],
lb -> Sqrt[a0]/Sqrt[-Cot[ob] + ob Csc[ob]^2],
la -> Sqrt[a0]/Sqrt[-Cot[oa] + oa Csc[oa]^2],
a -> Sqrt[a0]/Sqrt[-Cot[oa] + oa Csc[oa]^2] - Sqrt[a0]/
Sqrt[-Cot[ob] + ob Csc[ob]^2]}}
2018年01月07日 18点01分 3
1