/*-------------------------------------

  Bar.geo

  Geometry of simple conducting bar

--------------------------------------*/

 

Include "Bar.dat";

 

Point(1) = {          0,  BarLen/2,  0,  lmEnd };

Point(2) = {   BarDia/2,  BarLen/2,  0,  lmEnd };

Point(3) = {   BarDia/2,         0,  0,  lmMid };

Point(4) = {   BarDia/2, -BarLen/2,  0,  lmEnd };

Point(5) = {          0, -BarLen/2,  0,  lmEnd };

Point(6) = {          0,         0,  0,  lmMid };

 

Line(101) = {1, 2};

Line(102) = {2, 3};

Line(103) = {3, 4};

Line(104) = {4, 5};

Line(105) = {5, 6};

Line(106) = {6, 1};

 

Line(110) = {6, 3};

 

Line Loop(200) = {101, 102, 103, 104, 105, 106};

Plane Surface(300) = {200};   // Conductor

 

 

/**** Physical Surfaces and Lines ****/

// Physical Surface used to represent the Conductor

Physical Surface(CONDUCTOR) = {300};

 

// Physical Line used to represent the Positive Electrode

Physical Line(ELECPOS) = {101};

 

// Physical Line used to represent the Negative Electrode

Physical Line(ELECNEG) = {104};

 

// Physical Line used to determine cross sectional area and total current

Physical Line(CUTPLANE) = {110};
