Message Boards Message Boards

GROUPS:

Problem to solve simultaneous equations

Posted 14 days ago
247 Views
|
4 Replies
|
2 Total Likes
|

Hi, I have problems to solve simultaneous equations! The NSolve command also does not lead to a solution. Mathematica runs the whole night, but does not give any solutions. Have anybody an idea? Thanks for your help!

4 Replies

After some simplifications by hand I get the expression below which one wants to set to 0 to solve for f.

16 Ds f^3 n p W^2 - 
 k^3 \[Pi]^2 Q Coth[(H k \[Pi])/(4 f W)] Sec[\[CurlyPhi]]

Without numeric values for the various parameters this is unlikely to have a "useful" solution.

Thank you for your help first. Is there no general solution for this system of equations without using values for the parameters? Even if I use values for the parameters and set the equation 0, the Solve command does not get the f out of the Coth.

Attachments:
Posted 13 days ago

I look carefully at this Plot

Plot[16*80*f^3*3.67*1*108.29^2-1^3/\[Pi]^2*210890*
  Coth[(20*1/\[Pi])/(4*f*108.29)]*Sec[0.445457],{f,-.2,.2}]

to estimate locations of solutions.

I then try

FindRoot[16*80*f^3*3.67*1*108.29^2-1^3/\[Pi]^2*210890*
  Coth[(20*1/\[Pi])/(4*f*108.29)]*Sec[0.445457]==0,{f,0.175}]

which returns

{f->0.171224}

Great, thanks for the quick help!!! :)

Reply to this discussion
Community posts can be styled and formatted using the Markdown syntax.
Reply Preview
Attachments
Remove
or Discard

Group Abstract Group Abstract