Author 
Comment/Response 
Markus

01/17/13 12:15pm
Hi, i ve got the following problem:
I want to solve a equaion with 2 Variables: one is a list (mag), for the other one i need to get a solution. My attempt looks like this:
SetDirectory["E:\"];
mag = Import["5Oe.dat", {"Data", {All}, {4}}];
w = 0.005;
d := 148*10^(9);
mu0 := 4*Pi*10^(7);
B := 5/10000;
eq[x_, mag_] = (w*d*B + mu0*mag)/(2*w*B) == x*Tanh[d/(2*x)];
Solve[eq[x, mag], x]
That doesnt work ^^.
I want a numerical solution for x, for each value of mag, if possible in a table and/or as a plot.
Thanks for your help,
Markus
URL: , 
