| Author |
Comment/Response |
gpaladin
|
 09/09/06 04:18am
Hi,
I have trouble with solving the following equation system.
Can anyone help?
FindRoot[{
x11 + x21 == xT + x12 + x22 + xP,
z11 + z21 == z12 + z22,
z12 == H2/q1 (Cosh[q1 x12/H2] - 1),
z22 == H2/q2 (Cosh[q2 b/H2] - 1) - H2/q2 (Cosh[q2 a/H2] - 1),
s11 == s12 + xT,
s12 == H27q1 Sinh[q1 x12/H2],
s22 == H2/q2 Sinh[q2 b/H2] - H2/q2 Sinh[q2 a/H2],
x22 == b - a,
F == q1 s12 - Sqrt[(H2 Cosh[q2 a/H2])^2 - H2]},
{{x12, 100}, {x22, 100}, {xT, 5}, {xP, 5}, {z12, 50}, {z22, 50}, {a, 1000}, {b, 1000}, {s12, 100}}]
URL: , |
|
