| Author |
Comment/Response |
kid
|
 11/23/06 09:52am
I have a equations
FindRoot[{F12*Cos[F1]+F32*Cos[F2]Š0,F12*Sin[F1]+F32*Sin[F2]Š2.49,45*F32*Sin[F2]-0.224*F12+0.17*F32Š-4864.45,-F32*Cos[F2+p]-F34*Cos[F3+p]-F35*Cos[F4+p]Š-0.01,-F32*Sin[F2+p]-F34*Sin[F3+p]-F35*Sin[F4+p]Š1.94,7.5*F34*Sin[F3+p]+22.44*F35*Cos[F4+p]+36.01*F35*Sin[F4+p]-0.17*F32-0.855*F34-0.07*F35Š15.66,F34*Cos[F3]+F14*Cos[F6]Š0,F34*Sin[F3]+F14*Sin[F6]Š5.83,30*F34*Sin[F3]-0.224*F14+0.855*F34Š-4905,F15*Cos[F5]+F35*Cos[F4]Š0,F15*Sin[F5]+F35*Sin[F4]Š0,-0.12*F15+0.07*F35Š0},{{F12,9.7,0,20},{F14,10,0,20},{F15,5.5,0,10},{F32,3,0,5},{F34,10,0,15},{F35,3,0,5},{F1,95,0,360},{F2,265,0,360},{F3,93,0,360},{F4,95,0,360},{F5,30,0,360},{F6,93,0,360}},WorkingPrecision®10,MaxIterations®1000]
Mathematica returns me an error message
FindRoot::precw: The precision of the argument function ({F12\Cos[F1]+F32\Cos[F2]Š0,F12\Sin[F1]+F32\Sin[F2]Š2.49,-0.224\F12+0.17\F32+45\F32\Sin[F2]Š-4864.45,†7‡,F35\Sin[F4]+F15\Sin[F5]Š0,-0.12\F15+0.07\F35Š0}) is less than WorkingPrecision (10.`)
FindRoot::jsing: Encountered a singular Jacobian at the point {F12,F14,F15,F32,F34,F35,F1,F2,F3,F4,F5,F6} = {7.618197697,10.14175243,5.514935999,†7‡,29.99596270,93.28228266}. Try perturbing the initial point(s)
Sine I'm a beginner with mathematica and got no help around me, can someone tell me how to do ?
thanx a lot.
URL: , |
|
