# 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! Attachments:
4 Replies
Sort By:
Posted 14 days ago
 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.
Posted 13 days ago
 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:
 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}