Add Android project

contrib/mobile/Android/AndroidManifest.xml

+<manifest xmlns:android="http://schemas.android.com/apk/res/android"
+    package="org.geuz.onelab"
+    android:versionCode="1"
+    android:versionName="1.0" >
+
+    <uses-feature android:glEsVersion="0x00010000" android:required="true"></uses-feature>
+    <uses-sdk
+        android:minSdkVersion="14"
+        android:targetSdkVersion="15" />
+    <uses-permission android:name="android.permission.WRITE_EXTERNAL_STORAGE"/>
+
+    <application
+        android:icon="@drawable/ic_launcher"
+        android:label="@string/app_name"
+        android:theme="@style/AppTheme" android:logo="@drawable/ic_launcher">
+        <activity
+            android:name=".MainActivity"
+            android:label="@string/title_activity_main" >
+            <intent-filter>
+                <action android:name="android.intent.action.MAIN" />
+                <category android:name="android.intent.category.LAUNCHER" />
+            </intent-filter>
+            <intent-filter >
+                <action android:name="android.intent.action.MAIN" />
+                <category android:name="android.intent.category.DEFAULT" />
+        		<category android:name="android.intent.category.BROWSABLE" />
+            	<data android:scheme="*"  android:host="*" android:pathPattern=".*\\.geo" android:mimeType="text/plain"  />    
+            </intent-filter>
+        </activity>
+    </application>
+
+</manifest>
\ No newline at end of file

contrib/mobile/Android/res/layout/list_header.xml

+<?xml version="1.0" encoding="utf-8"?>
+<TextView xmlns:android="http://schemas.android.com/apk/res/android"
+	android:id="@+id/list_header_title"
+	android:layout_width="fill_parent"
+	android:layout_height="wrap_content"
+	android:paddingTop="2dip"
+	android:paddingBottom="2dip"
+	android:paddingLeft="5dip"
+	style="?android:attr/listSeparatorTextViewStyle"
+	>
+    
+
+</TextView>
\ No newline at end of file

contrib/mobile/Android/res/layout/model.xml

+<?xml version="1.0" encoding="utf-8"?>
+<LinearLayout xmlns:android="http://schemas.android.com/apk/res/android"
+    android:layout_width="match_parent"
+    android:layout_height="match_parent"
+    android:orientation="horizontal" >
+
+    <ImageView
+        android:id="@+id/icone"
+        android:layout_width="wrap_content"
+        android:layout_height="wrap_content"
+        android:contentDescription="icone"
+        android:src="@drawable/ic_launcher" />
+
+    <LinearLayout
+        android:layout_width="wrap_content"
+        android:layout_height="match_parent"
+        android:orientation="vertical" >
+
+        <TextView
+            android:id="@+id/titre"
+            android:layout_width="wrap_content"
+            android:layout_height="wrap_content"
+            android:textAppearance="?android:attr/textAppearanceLarge"
+            android:textColor="#ffffff" />
+
+        <TextView
+            android:id="@+id/description"
+            android:layout_width="wrap_content"
+            android:layout_height="wrap_content"
+            android:textAppearance="?android:attr/textAppearanceMedium"
+            android:textColor="#ffffff" />
+
+    </LinearLayout>
+
+</LinearLayout>
\ No newline at end of file

contrib/mobile/Android/res/raw/bh_pro

+Function{
+  // nu = 100. + 10. * exp ( 1.8 * b * b )
+  // analytical
+  nu_1a[] = 100. + 10. * Exp[1.8*SquNorm[$1]] ;
+  dnudb2_1a[] = 18. * Exp[1.8*SquNorm[$1]] ;
+  h_1a[] = nu_1a[$1]*$1 ;
+  dhdb_1a[] = TensorDiag[1,1,1] * nu_1a[$1#1] + 2*dnudb2_1a[#1] * SquDyadicProduct[#1]  ;
+  dhdb_1a_NL[] = 2*dnudb2_1a[$1] * SquDyadicProduct[$1]  ;
+
+  // interpolated
+  Mat1_h = {
+    0.0000e+00, 5.5023e+00, 1.1018e+01, 1.6562e+01, 2.2149e+01, 2.7798e+01, 3.3528e+01,
+    3.9363e+01, 4.5335e+01, 5.1479e+01, 5.7842e+01, 6.4481e+01, 7.1470e+01, 7.8906e+01,
+    8.6910e+01, 9.5644e+01, 1.0532e+02, 1.1620e+02, 1.2868e+02, 1.4322e+02, 1.6050e+02,
+    1.8139e+02, 2.0711e+02, 2.3932e+02, 2.8028e+02, 3.3314e+02, 4.0231e+02, 4.9395e+02,
+    6.1678e+02, 7.8320e+02, 1.0110e+03, 1.3257e+03, 1.7645e+03, 2.3819e+03, 3.2578e+03,
+    4.5110e+03, 6.3187e+03, 8.9478e+03, 1.2802e+04, 1.8500e+04, 2.6989e+04, 3.9739e+04,
+    5.9047e+04, 8.8520e+04, 1.3388e+05, 2.0425e+05, 3.1434e+05, 4.8796e+05, 7.6403e+05
+  } ;
+  Mat1_b = {
+    0.0000e+00, 5.0000e-02, 1.0000e-01, 1.5000e-01, 2.0000e-01, 2.5000e-01, 3.0000e-01,
+    3.5000e-01, 4.0000e-01, 4.5000e-01, 5.0000e-01, 5.5000e-01, 6.0000e-01, 6.5000e-01,
+    7.0000e-01, 7.5000e-01, 8.0000e-01, 8.5000e-01, 9.0000e-01, 9.5000e-01, 1.0000e+00,
+    1.0500e+00, 1.1000e+00, 1.1500e+00, 1.2000e+00, 1.2500e+00, 1.3000e+00, 1.3500e+00,
+    1.4000e+00, 1.4500e+00, 1.5000e+00, 1.5500e+00, 1.6000e+00, 1.6500e+00, 1.7000e+00,
+    1.7500e+00, 1.8000e+00, 1.8500e+00, 1.9000e+00, 1.9500e+00, 2.0000e+00, 2.0500e+00,
+    2.1000e+00, 2.1500e+00, 2.2000e+00, 2.2500e+00, 2.3000e+00, 2.3500e+00, 2.4000e+00
+  } ;
+  Mat1_b2 = {
+    0.0000e+00, 2.5000e-03, 1.0000e-02, 2.2500e-02, 4.0000e-02, 6.2500e-02, 9.0000e-02,
+    1.2250e-01, 1.6000e-01, 2.0250e-01, 2.5000e-01, 3.0250e-01, 3.6000e-01, 4.2250e-01,
+    4.9000e-01, 5.6250e-01, 6.4000e-01, 7.2250e-01, 8.1000e-01, 9.0250e-01, 1.0000e+00,
+    1.1025e+00, 1.2100e+00, 1.3225e+00, 1.4400e+00, 1.5625e+00, 1.6900e+00, 1.8225e+00,
+    1.9600e+00, 2.1025e+00, 2.2500e+00, 2.4025e+00, 2.5600e+00, 2.7225e+00, 2.8900e+00,
+    3.0625e+00, 3.2400e+00, 3.4225e+00, 3.6100e+00, 3.8025e+00, 4.0000e+00, 4.2025e+00,
+    4.4100e+00, 4.6225e+00, 4.8400e+00, 5.0625e+00, 5.2900e+00, 5.5225e+00, 5.7600e+00
+  } ;
+  Mat1_nu = {
+    1.1005e+02, 1.1005e+02, 1.1018e+02, 1.1041e+02, 1.1075e+02, 1.1119e+02, 1.1176e+02,
+    1.1247e+02, 1.1334e+02, 1.1440e+02, 1.1568e+02, 1.1724e+02, 1.1912e+02, 1.2139e+02,
+    1.2416e+02, 1.2752e+02, 1.3165e+02, 1.3671e+02, 1.4297e+02, 1.5076e+02, 1.6050e+02,
+    1.7275e+02, 1.8829e+02, 2.0810e+02, 2.3356e+02, 2.6651e+02, 3.0947e+02, 3.6589e+02,
+    4.4056e+02, 5.4014e+02, 6.7397e+02, 8.5528e+02, 1.1028e+03, 1.4436e+03, 1.9164e+03,
+    2.5777e+03, 3.5104e+03, 4.8366e+03, 6.7381e+03, 9.4870e+03, 1.3494e+04, 1.9385e+04,
+    2.8118e+04, 4.1172e+04, 6.0854e+04, 9.0779e+04, 1.3667e+05, 2.0764e+05, 3.1835e+05
+  } ;
+
+  Mat1_nu_b2  = ListAlt[Mat1_b2, Mat1_nu] ;
+  nu_1[] = InterpolationLinear[$1]{List[Mat1_nu_b2]} ;
+  dnudb2_1[] = dInterpolationLinear[$1]{List[Mat1_nu_b2]} ;
+  h_1[] = nu_1[(SquNorm[$1])] * $1 ;
+  dhdb_1[] = TensorDiag[1,1,1] * nu_1[SquNorm[$1]#1] + 2*dnudb2_1[#1] * SquDyadicProduct[$1]  ;
+}
+
+
+
+
+
+

contrib/mobile/Android/res/raw/magnet_data_pro

+
+DefineConstant[ Val_Rint = {0.15, Min 0.2, Max 1, Step 0.1,
+                            Path "Parameters/Geometry/1",
+                            Label "Internal shell radius (m)"} ];
+
+DefineConstant[ Val_Rext = {0.25, Min Val_Rint, Max 0.5, Step 0.1,
+                            Path "Parameters/Geometry/2",
+                            Label "External shell radius (m)"}];
+
+AIR = 100;
+AIR_INF = 101;
+AIR_GAP = 102;
+MAGNET = 103;
+CORE = 104;
+LINE_INF = 105;
+LINE_X = 106;

contrib/mobile/Android/res/raw/magnet_geo

+Include "magnet_data.pro";
+
+DefineConstant[ h = {0.14, Min 0.1, Max 0.2, Step 0.01,
+                     Path "Parameters/Geometry",
+                     Label "Core height (m)"} ] ;
+
+DefineConstant[ l = {0.14, Min 0.05, Max 0.2, Step 0.01,
+                     Path "Parameters/Geometry",
+                     Label "Core width (m)"} ] ;
+
+DefineConstant[ d = {0.03, Min 0.01, Max 0.05, Step 0.002,
+                     Path "Parameters/Geometry",
+                     Label "Core tickness (m)"} ] ;
+
+DefineConstant[ e = {5e-3, Min 5e-4, Max d, Step 1e-3,
+                     Path "Parameters/Geometry",
+                     Label "Air gap (m)", Highlight "LightYellow"} ] ;
+
+DefineConstant[ ha = {0.03, Min 0.01, Max 0.1, Step 0.01,
+                     Path "Parameters/Geometry",
+                     Label "Magnet height (m)"} ] ;
+
+lc0 = d / 5 ;
+lc1 = e / 2 ;
+lc2 = (Val_Rext - Val_Rint) / 8. ;
+
+Point(1) = {0, 0, 0, lc0};
+Point(2) = {-l/2, 0, 0, lc0};
+Point(3) = {-l/2, h/2, 0, lc0};
+Point(4) = {l/2, 0, 0, lc1};
+Point(5) = {l/2, h/2, 0, lc0};
+Point(6) = {-l/2, ha/2, 0, lc0};
+Point(7) = {-l/2+d, ha/2, 0, lc0};
+Point(8) = {-l/2+d, 0, 0, lc0};
+Point(9) = {l/2-d, 0, 0, lc1};
+Point(10) = {l/2-d, h/2-d, 0, lc0};
+Point(11) = {-l/2+d, h/2-d, 0, lc0};
+Point(12) = {l/2, e/2, 0, lc1};
+Point(13) = {l/2-d, e/2, 0, lc1};
+
+Point(30) = {Val_Rint, 0, 0, lc2};
+Point(31) = {Val_Rext, 0, 0, lc2};
+Point(32) = {0, Val_Rint, 0, lc2};
+Point(33) = {0, Val_Rext, 0, lc2};
+Point(34) = {-Val_Rext, 0, 0, lc2};
+Point(35) = {-Val_Rint, 0, 0, lc2};
+
+Line(1) = {34, 35};
+Line(2) = {35, 2};
+Line(3) = {2, 8};
+Line(4) = {8, 1};
+Line(5) = {1, 9};
+Line(6) = {9, 4};
+Line(7) = {4, 30};
+Line(8) = {30, 31};
+Line(9) = {2, 6};
+Line(10) = {6, 3};
+Line(11) = {3, 5};
+Line(12) = {5, 12};
+Line(13) = {12, 4};
+Line(14) = {9, 13};
+Line(15) = {13, 10};
+Line(16) = {10, 11};
+Line(17) = {11, 7};
+Line(18) = {7, 8};
+Line(19) = {7, 6};
+Line(20) = {13, 12};
+Circle(21) = {35, 1, 32};
+Circle(22) = {32, 1, 30};
+Circle(23) = {34, 1, 33};
+Circle(24) = {33, 1, 31};
+
+Line Loop(25) = {21, 22, 8, -24, -23, 1};
+Plane Surface(26) = {25};
+Line Loop(27) = - {22, -7, -13, -12, -11, -10, -9, -2, 21};
+Plane Surface(28) = {27};
+Line Loop(29) = - {11, 12, -20, 15, 16, 17, 19, 10};
+Plane Surface(30) = {29};
+Line Loop(31) = {19, -9, 3, -18};
+Plane Surface(32) = {31};
+Line Loop(33) = - {20, 13, -6, 14};
+Plane Surface(34) = {33};
+Line Loop(35) = {15, 16, 17, 18, 4, 5, 14};
+Plane Surface(36) = {35};
+
+// physical entities (for which elements will be saved)
+Physical Surface(AIR) = {28, 36};
+Physical Surface(AIR_INF) = {26};
+Physical Surface(AIR_GAP) = {34};
+Physical Surface(MAGNET) = {32};
+Physical Surface(CORE) = {30};
+Physical Line(LINE_INF) = {23, 24};
+Physical Line(LINE_X) = {1:8};

contrib/mobile/Android/res/raw/magnet_pro

+/*
+   To solve the problem
+   with scalar potential, type 'getdp test -solve MagSta_phi -pos phi'
+   with vector potential, type 'getdp test -solve MagSta_a -pos a'
+*/
+
+Include "magnet_data.pro";
+
+Group {
+  // AIR, AIR_INF, etc. are variables defined in core.txt, and correspond to the
+  // tags of physical regions in the mesh
+  Air     = Region[ AIR ];
+  AirInf  = Region[ AIR_INF ];
+  Core    = Region[ CORE ];
+  AirGap  = Region[ AIR_GAP ];
+  Magnet  = Region[ MAGNET ];
+
+  // These are the generic group names that are used in "Magnetostatics.pro"
+  Domain_S = Region[ {} ] ;
+  Domain_Inf = Region[ AirInf ] ;
+  Domain_M   = Region[ Magnet ] ;
+  Domain_Mag = Region[ {Air, Core, AirGap} ] ;
+  Dirichlet_a_0   = Region[ LINE_INF ] ;
+  Dirichlet_phi_0 = Region[ {LINE_X, LINE_INF} ] ;
+}
+
+Function {
+  mu0 = 4.e-7 * Pi ;
+
+  // DefineConstant is used to define a default value for murCore; this value
+  // can be changed interactively by the ONELAB server
+  DefineConstant[ murCore = {200., Min 1, Max 1000, Step 10,
+                             Label "Core relative permeability",
+                             Path "Parameters/Materials"} ];
+
+  nu [ Region[{Air, AirInf, AirGap, Magnet}] ] = 1. / mu0 ;
+  nu [ Core ]  = 1. / (murCore * mu0) ;
+
+  mu [ Region[{Air, AirInf, AirGap, Magnet}] ] = mu0 ;
+  mu [ Core ]  = murCore * mu0;
+
+  DefineConstant[ Hc = {920000, Label "Magnet coercive field (A/m)",
+                        Path "Parameters/Materials"} ];
+  hc [ Magnet ] = Vector[0., Hc, 0.] ;
+}
+
+Include "magnetostatics.pro"
+
+eps = 1.e-5 ;
+
+Printf[ "murCore: %f",murCore ] ;
+
+PostOperation {
+  { Name phi ; NameOfPostProcessing MagSta_phi;
+    Operation {
+      Print[ phi, OnElementsOf Domain, File "phi.pos" ] ;
+      Print[ b, OnElementsOf Domain, File "b_phi.pos" ] ;
+      Print[ b, OnLine {{-0.07,eps,0}{0.09,eps,0}} {500}, File "b_phi.txt", Format Table ] ;
+    }
+  }
+  { Name a ; NameOfPostProcessing MagSta_a;
+    Operation {
+      Print[ a, OnElementsOf Domain, File "a.pos"] ;
+      Print[ b, OnElementsOf Domain, File "b_a.pos" ] ;
+      Print[ h, OnElementsOf Domain, File "h_a.pos" ] ;
+      Print[ b, OnLine {{-0.07,eps,0}{0.09,eps,0}} {500}, File "b_a.txt" , Format Table ] ;
+    }
+  }
+}

contrib/mobile/Android/res/raw/magnetostatics_pro

+Group {
+  // Input groups:
+  DefineGroup[ Domain_M = {{}, Label "Permanent magnets",
+                           Path "Regions/0Sources"},
+               Domain_S = {{}, Label "Inductor (imposed j_s)",
+                           Path "Regions/0Sources"},
+               Domain_Inf = {{}, Label "Infinite domain (spherical shell)",
+                             Path "Regions/0Special regions", Closed "1"},
+               Domain_Mag = {{}, Label "Passive magnetic regions",
+                             Path "Regions/Other regions"},
+               Dirichlet_phi_0 = {{}, Label "h_t = 0", Closed "1",
+                                  Path "Regions/0Boundary conditions"},
+               Dirichlet_a_0 = {{}, Label "b_n = 0",
+                                Path "Regions/0Boundary conditions"} ];
+
+  DefineGroup[ Domain = {{Domain_Mag, Domain_M, Domain_S, Domain_Inf},
+                         Label "Computational domain", Path "Regions", Visible 0} ];
+}
+
+Function{
+  // Input constants:
+  DefineConstant[ Val_Rint, Val_Rext // interior/exterior radius of Domain_Inf
+                  ];
+
+  // Input functions:
+  DefineFunction[ mu, // magnetic permeability
+                  nu, // magnetic reluctivity
+                  hc, // coercive magnetic field
+                  js // source current density
+                  ];
+
+  // remove this: only for demo
+  //DefineConstant[ hcx = {0, Label "Coercive field h_x", Path "Sources"}];
+  //DefineConstant[ hcy = {1000, Label "Coercive field h_y", Path "Sources"}];
+  //hc[] = Vector[hcx,hcy,0];
+  //mu[] = 4*Pi*10^-7;
+  //nu[] = 1/mu[];
+}
+
+Jacobian {
+  { Name JVol ;
+    Case {
+      { Region Domain_Inf ; Jacobian VolSphShell{Val_Rint, Val_Rext} ; }
+      { Region All ; Jacobian Vol ; }
+    }
+  }
+}
+
+Integration {
+  { Name I1 ;
+    Case {
+      { Type Gauss ;
+        Case {
+	  { GeoElement Triangle ; NumberOfPoints 4 ; }
+	  { GeoElement Quadrangle  ; NumberOfPoints 4 ; }
+	}
+      }
+    }
+  }
+}
+
+
+/* --------------------------------------------------------------------------
+   MagSta_phi : Magnetic scalar potential phi formulation
+   -------------------------------------------------------------------------- */
+
+Constraint {
+  { Name phi ;
+    Case {
+      { Region Dirichlet_phi_0 ; Value 0. ; }
+    }
+  }
+}
+
+FunctionSpace {
+  { Name Hgrad_phi ; Type Form0 ;
+    BasisFunction {
+      { Name sn ; NameOfCoef phin ; Function BF_Node ;
+        Support Domain ; Entity NodesOf[ All ] ; }
+    }
+    Constraint {
+      { NameOfCoef phin ; EntityType NodesOf ; NameOfConstraint phi ; }
+    }
+  }
+}
+
+Formulation {
+  { Name MagSta_phi ; Type FemEquation ;
+    Quantity {
+      { Name phi ; Type Local ; NameOfSpace Hgrad_phi ; }
+    }
+    Equation {
+      Galerkin { [ - mu[] * Dof{d phi} , {d phi} ] ;
+                 In Domain ; Jacobian JVol ; Integration I1 ; }
+
+      Galerkin { [ - mu[] * hc[] , {d phi} ] ;
+                 In Domain_M ; Jacobian JVol ; Integration I1 ; }
+    }
+  }
+}
+
+Resolution {
+  { Name MagSta_phi ;
+    System {
+      { Name A ; NameOfFormulation MagSta_phi ; }
+    }
+    Operation {
+      Generate[A] ; Solve[A] ; SaveSolution[A] ;
+    }
+  }
+}
+
+PostProcessing {
+  { Name MagSta_phi ; NameOfFormulation MagSta_phi ;
+    Quantity {
+      { Name b   ; Value { Local { [ - mu[] * {d phi} ] ; In Domain ; Jacobian JVol ; }
+                           Local { [ - mu[] * hc[] ]    ; In Domain_M ; Jacobian JVol ; } } }
+      { Name h   ; Value { Local { [ - {d phi} ]        ; In Domain ; Jacobian JVol ; } } }
+      { Name phi ; Value { Local { [ {phi} ]            ; In Domain ; Jacobian JVol ; } } }
+    }
+  }
+}
+
+PostOperation {
+  { Name MagSta_phi ; NameOfPostProcessing MagSta_phi;
+    Operation {
+      Print[ b, OnElementsOf Domain, File "MagSta_phi_b.pos" ] ;
+      Print[ h, OnElementsOf Domain, File "MagSta_phi_h.pos" ] ;
+      Print[ phi, OnElementsOf Domain, File "MagSta_phi_phi.pos" ] ;
+    }
+  }
+}
+
+/* --------------------------------------------------------------------------
+   MagSta_a : Magnetic vector potential a formulation (2D)
+   -------------------------------------------------------------------------- */
+
+Constraint {
+  { Name a ;
+    Case {
+      { Region Dirichlet_a_0 ; Value 0. ; }
+    }
+  }
+}
+
+FunctionSpace {
+
+  { Name Hcurl_a ; Type Form1P ;
+    BasisFunction {
+      { Name se ; NameOfCoef ae ; Function BF_PerpendicularEdge ;
+        Support Domain ; Entity NodesOf[ All ] ; }
+    }
+    Constraint {
+      { NameOfCoef ae ; EntityType NodesOf ; NameOfConstraint a ; }
+    }
+  }
+
+}
+
+Formulation {
+  { Name MagSta_a ; Type FemEquation ;
+    Quantity {
+      { Name a  ; Type Local ; NameOfSpace Hcurl_a ; }
+    }
+    Equation {
+      Galerkin { [ nu[] * Dof{d a} , {d a} ] ;
+                 In Domain ; Jacobian JVol ; Integration I1 ; }
+
+      Galerkin { [ hc[] , {d a} ] ;
+                 In Domain_M ; Jacobian JVol ; Integration I1 ; }
+
+      Galerkin { [ -js[] , {a} ] ;
+                 In Domain_S ; Jacobian JVol ; Integration I1 ; }
+    }
+  }
+}
+
+Resolution {
+  { Name MagSta_a ;
+    System {
+      { Name A ; NameOfFormulation MagSta_a ; }
+    }
+    Operation {
+      Generate[A] ; Solve[A] ; SaveSolution[A];
+    }
+  }
+}
+
+PostProcessing {
+  { Name MagSta_a ; NameOfFormulation MagSta_a ;
+    Quantity {
+      { Name a ; Value { Local { [ CompZ[{a}] ]   ; In Domain ; Jacobian JVol ; } } }
+      { Name b ; Value { Local { [ {d a} ]        ; In Domain ; Jacobian JVol ; } } }
+      { Name a ; Value { Local { [ {a} ]          ; In Domain ; Jacobian JVol ; } } }
+      { Name h ; Value { Local { [ nu[] * {d a} ] ; In Domain ; Jacobian JVol ; }
+                         Local { [ hc[] ]         ; In Domain_M ; Jacobian JVol ; } } }
+    }
+  }
+}
+
+PostOperation {
+  { Name MagSta_a ; NameOfPostProcessing MagSta_a;
+    Operation {
+      Print[ b, OnElementsOf Domain, File "MagSta_a_b.pos" ] ;
+      Print[ h, OnElementsOf Domain, File "MagSta_a_h.pos" ] ;
+      Print[ a, OnElementsOf Domain, File "MagSta_a_a.pos" ] ;
+    }
+  }
+}

contrib/mobile/Android/res/raw/pmsm_8p_circuit_pro

+//
+// Circuit for Permanent Magnet Synchronous Generator - cbmag
+//
+
+Group{
+  // Dummy numbers for circuit definition
+  R1 = #55551 ;
+  R2 = #55552 ;
+  R3 = #55553 ;
+
+  Input1 = #10001 ;
+  Input2 = #10002 ;
+  Input3 = #10003 ;
+  Input4 = #10004 ;
+
+  Resistance_Cir  = Region[{R1, R2, R3}];
+  DomainZ_Cir = Region[ {Resistance_Cir} ];
+
+  DomainSource_Cir = Region[ {} ] ;
+  If(Flag_SrcType_Stator>1)
+    DomainSource_Cir += Region[ {Input1, Input2, Input3} ] ;
+  EndIf
+
+  DomainZt_Cir    = Region[ {DomainZ_Cir, DomainSource_Cir} ];
+}
+
+// --------------------------------------------------------------------------
+// --------------------------------------------------------------------------
+
+Function {
+  // Open circuit - load - short circuit
+  DefineConstant[ ZR = {200,
+      Choices{1e-8, 200, 1e8}, Label "Load resistance",  Path "Input/", Highlight "AliceBlue"} ];
+  Resistance[#{R1, R2, R3}]  = ZR ;
+}
+
+// --------------------------------------------------------------------------
+
+Constraint {
+
+  If (SymmetryFactor<8)
+    If(Flag_SrcType_Stator==0)
+      { Name ElectricalCircuit ; Type Network ;
+        Case Circuit1 {
+          { Region Stator_Ind_Ap ; Branch {100,102} ; }
+          { Region Stator_Ind_Am ; Branch {103,102} ; }
+          { Region R1            ; Branch {103,100} ; }
+        }
+        Case Circuit2 {
+          { Region Stator_Ind_Bp ; Branch {200,202} ; }
+          { Region Stator_Ind_Bm ; Branch {203,202} ; }
+          { Region R2            ; Branch {203,200} ; }
+        }
+        Case Circuit3 {
+          { Region Stator_Ind_Cp ; Branch {300,302} ; }
+          { Region Stator_Ind_Cm ; Branch {303,302} ; }
+          { Region R3            ; Branch {303,300} ; }
+        }
+      }
+    EndIf
+    If (Flag_SrcType_Stator==2)
+      { Name ElectricalCircuit ; Type Network ;
+        Case Circuit1 {
+          { Region Input1        ; Branch {100,101} ; }
+          { Region Stator_Ind_Ap ; Branch {101,102} ; }
+          { Region Stator_Ind_Am ; Branch {103,102} ; }
+          { Region R1            ; Branch {103,100} ; }
+        }
+        Case Circuit2 {
+          { Region Input2        ; Branch {200,201} ; }
+          { Region Stator_Ind_Bp ; Branch {201,202} ; }
+          { Region Stator_Ind_Bm ; Branch {203,202} ; }
+          { Region R2            ; Branch {203,200} ; }
+        }
+        Case Circuit3 {
+          { Region Input3        ; Branch {300,301} ; }
+          { Region Stator_Ind_Cp ; Branch {301,302} ; }
+          { Region Stator_Ind_Cm ; Branch {303,302} ; }
+          { Region R3            ; Branch {303,300} ; }
+        }
+      }
+    EndIf
+  EndIf
+
+  If(SymmetryFactor==8)
+    If(Flag_SrcType_Stator==0) // Only one physical region in geo allow per branch
+      { Name ElectricalCircuit ; Type Network ;
+        Case Circuit1 {
+          { Region PhaseA        ; Branch {100,102} ; }
+          { Region R1            ; Branch {102,100} ; }
+        }
+        Case Circuit2 {
+          { Region PhaseB        ; Branch {200,202} ; }
+          { Region R2            ; Branch {202,200} ; }
+        }
+        Case Circuit3 {
+          { Region PhaseC        ; Branch {300,302} ; }
+          { Region R3            ; Branch {302,300} ; }
+        }
+      }
+    EndIf
+    If(Flag_SrcType_Stator==2) // Only one physical region in geo allow per branch
+      { Name ElectricalCircuit ; Type Network ;
+        Case Circuit1 {
+          { Region Input1        ; Branch {100,101} ; }
+          { Region PhaseA        ; Branch {101,102} ; }
+          { Region R1            ; Branch {102,100} ; }
+        }
+        Case Circuit2 {
+          { Region Input2        ; Branch {200,201} ; }
+          { Region PhaseB        ; Branch {201,202} ; }
+          { Region R2            ; Branch {202,200} ; }
+        }
+        Case Circuit3 {
+          { Region Input3        ; Branch {300,301} ; }
+          { Region PhaseC        ; Branch {302,301} ; }
+          { Region R3            ; Branch {302,300} ; }
+        }
+      }
+    EndIf
+  EndIf
+}
+