updates and correction

Conductors3D/w2d.geo

-Include "wires_common.pro";
+Include "w2d_common.pro";
 
 // global Gmsh options
 Mesh.Optimize = 1; // optimize quality of tetrahedra

Conductors3D/w2d.pro

-Include "wires_common.pro";
+Include "w2d_common.pro";
 
 Struct S::SOLVER [ Enum, mumps, gmres, fgmres,bcgs ];
 DefineConstant[
@@ -132,8 +132,8 @@ Function{
                      ((R_2[]<rs) ? WI_2*Analytic_A[R_2[]] : 0 ));
   EndIf
   If ( NumWires == 3 )
-    Exact_a[] = WI_1*Analytic_A[R_1[]] + WI_2*Analytic_A[R_2[]] 
-    + WI_3*Analytic_A[R_3[]] + (WI1_+WI_2+WI_3)*mu0/(2*Pi) * NumWires * Log[rout/rs] ;
+    Exact_A[] = WI_1*Analytic_A[R_1[]] + WI_2*Analytic_A[R_2[]] 
+    + WI_3*Analytic_A[R_3[]] + (WI_1+WI_2+WI_3)*mu0/(2*Pi) * NumWires * Log[rout/rs] ;
     Correction_A[] = ((R_1[]<rs) ? WI_1*Analytic_A[R_1[]] : 
                      ((R_2[]<rs) ? WI_2*Analytic_A[R_2[]] : 
 					 ((R_3[]<rs) ? WI_3*Analytic_A[R_3[]] : 0 )));

Conductors3D/w3d.pro

@@ -578,11 +578,13 @@ PostOperation map UsingPost MagnetoDynamics {
     Print[ bs, OnElementsOf Vol_nu, File "bs.pos"];
     PrintGroup[ EdgesOf[ Vol_nu, ConnectedTo LWIRES ],
       In Vol_nu, File "group.pos"];
+    PrintGroup[ _CO_Entity_71, In Vol_nu, File "Tree.pos"];
   EndIf
-  PrintGroup[ EdgesOfTreeIn[ { Vol_Tree }, StartingOn { Sur_Tree, Lin_Tree } ],
-    In Vol_nu, File "Tree.pos"];
   
-  //PrintGroup[ _CO_Entity_44, In Vol_nu, File "Tree.pos"];
+  // PrintGroup[ EdgesOfTreeIn[ { Vol_Tree }, StartingOn { Sur_Tree, Lin_Tree } ],
+  //   In Vol_nu, File "Tree.pos"];
+
+  
 
 }