Skip to content
Snippets Groups Projects
Commit a1308daa authored by François Henrotte's avatar François Henrotte
Browse files

modified model to have b along e_y, nicer pic

parent 5e0b61c5
No related branches found
No related tags found
No related merge requests found
...@@ -88,7 +88,9 @@ Function { ...@@ -88,7 +88,9 @@ Function {
NbTurns = 1000 ; NbTurns = 1000 ;
Current = DefineNumber[0.01, Name "Model parameters/Current", Current = DefineNumber[0.01, Name "Model parameters/Current",
Help "Current injected in coil [A]"]; Help "Current injected in coil [A]"];
Js_fct[ Ind ] = NbTurns*Current/SurfaceArea[]; Js_fct[ Ind ] = -NbTurns*Current/SurfaceArea[];
/* The minus sign is to have the current in -e_z direction,
so that the magnetic induction field is in +e_y direction */
} }
/* In the 2D approximation, the magnetic vector potential A and the current density Js /* In the 2D approximation, the magnetic vector potential A and the current density Js
...@@ -238,17 +240,20 @@ PostProcessing { ...@@ -238,17 +240,20 @@ PostProcessing {
} }
e = 1.e-5; e = 1.e-5;
p1 = {e,e,0}; h = 0.02;
p2 = {0.25-e,e,0}; // horizontal cut through model, just above x-axis. p1 = {e,h,0};
p2 = {0.25-e,h,0}; // horizontal cut through model, just above x-axis.
PostOperation { PostOperation {
{ Name Map_a; NameOfPostProcessing MagSta_a_2D; { Name Map_a; NameOfPostProcessing MagSta_a_2D;
Operation { Operation {
Echo[ Str["l=PostProcessing.NbViews-1; View[l].IntervalsType = 3;"], Echo[ Str["l=PostProcessing.NbViews-1;",
"View[l].IntervalsType = 1;",
"View[l].NbIso = 40;"],
File "tmp.geo", LastTimeStepOnly] ; File "tmp.geo", LastTimeStepOnly] ;
Print[ az, OnElementsOf Dom_Hcurl_a_Mag_2D, File "az.pos" ]; Print[ az, OnElementsOf Dom_Hcurl_a_Mag_2D, File "az.pos" ];
Print[ b, OnLine{{List[p1]}{List[p2]}} {1000}, File "by.pos" ]; Print[ b, OnLine{{List[p1]}{List[p2]}} {50}, File "by.pos" ];
} }
} }
} }
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment