(adsbygoogle = window.adsbygoogle || []).push({}); System of equations with Mathematica: HELP

Hi there. I am trying to solve a system of equations. I have written a mathematica code to solve this systems

where B is the magnetic field in Tesla. When i have B=0 it finds solution (which is simple without mathematica). But when you put a magnetic field e.g. B=0.1 does not give a solution and the program is running anyway...Code (Text):

<< VectorAnalysis`

Kc > Ku > 0;

Kuz > 0;

SS = 2.5;

Hfz > 0;

Kc = 0.0144;

Ku = Kc/3;

Kuz = 5 Kc;

B = 0.1;

Hfz = 0.1157676*B;

S = {Sx, Sy, Sz};

Eh = Kc (Sx^2 Sy^2 + Sx^2 Sz^2 + Sy^2 Sz^2) + Kuz Sz^2 - Ku Sx Sy + SS Hfz Sz;

Heffx = D[Eh, Sx];

Heffy = D[Eh, Sy];

Heffz = D[Eh, Sz];

Heff = -{Heffx, Heffy, Heffz};

Cross[S, Heff];

Sx = Sin[\[Phi]] Sin[\[Theta]];

Sy = Cos[\[Phi]] Sin[\[Theta]];

Sz = Cos[\[Theta]];

eq = Cross[S, Heff] == 0;

Reduce[{eq && 0 <= \[Phi] <= 2 \[Pi] && 0 <= \[Theta] <= \[Pi]}, {\[Phi], \[Theta]}, Reals]

Is there any way to find solutions with a numerical method or something?

(The system of equations contains 3 equations and these are the 3 components of the vector S x Heff )

**Physics Forums - The Fusion of Science and Community**

The friendliest, high quality science and math community on the planet! Everyone who loves science is here!

# System of equation with Mathematica: HELP

Loading...

Similar Threads - System equation Mathematica | Date |
---|---|

Solving system of equations Mathematica | Apr 3, 2017 |

Using mathematica to reduce a system of n equations and m variables | Sep 1, 2014 |

Mathematica: Solving system of three equations | Mar 18, 2013 |

List of system of differiential equations in mathematica | Oct 19, 2012 |

Solving systems of nonlinear ordinary equations in Mathematica. | Sep 27, 2012 |

**Physics Forums - The Fusion of Science and Community**