Advertisement
Guest User

Untitled

a guest
Dec 1st, 2017
99
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Needs["ErrorBarPlots`"];
  2.  
  3. data = Import[
  4. "C:\\Users\\User\\Documents\\DELETE\\Coil_DataWU.csv", "CSV"];
  5. mu = 4 e - 7*Pi;
  6. Radius = 0.149;
  7. radius = 0.0582;
  8. frequency = 8313;
  9. field [d_?NumericQ, r_?NumericQ, x_?NumericQ] :=
  10. mu*frequency*
  11. Sqrt (2)/(2*Pi*
  12. Sqrt (x^2 + (Radius + r)^2))*((Radius^2 - x^2 -
  13. r^2)/(d^2 + (r - Radius)^2)*
  14. EllipticE (Sqrt (4*r*Radius*(x^2 + (Radius + r)^2)^(-1))) +
  15. EllipticK (Sqrt (4*r*Radius*(x^2 + (Radius + r)^2)^(-1))));
  16. solution =
  17. FindFit[data, (2*i*Pi*Integrate[{field}, {r, 0, radius}]), {i}, x];
Advertisement
Advertisement
Advertisement
RAW Paste Data Copied
Advertisement