up

DiffractionGratings/grating2D.pro

@@ -486,9 +486,9 @@ PostOperation {
         Print[ Q_layer_dep[layer_dep] , OnGlobal, Format FrequencyTable, File > StrCat[myDir, "absorption-Q_layer_dep.txt"]];
         Print[ Q_layer_cov[layer_cov] , OnGlobal, Format FrequencyTable, File > StrCat[myDir, "absorption-Q_layer_cov.txt"]];
         Print[ Hz_tot    , OnElementsOf Plot_domain, File StrCat[myDir, Sprintf("Hz_tot_lambda%.2fnm_1.pos", lambda0/nm)] , Name Sprintf("Hz_tot_%.2fnm.pos", lambda0/nm)];
-        // debug
-        Print[ u1    , OnElementsOf Plot_domain, File StrCat[myDir, Sprintf("u1%.2fnm_1.pos", lambda0/nm)] , Name Sprintf("u1%.2fnm.pos", lambda0/nm)];
-        Print[ E1    , OnElementsOf Plot_domain, File StrCat[myDir, Sprintf("E1%.2fnm_1.pos", lambda0/nm)] , Name Sprintf("E1%.2fnm.pos", lambda0/nm)];
+        // // debug
+        // Print[ u1    , OnElementsOf Plot_domain, File StrCat[myDir, Sprintf("u1%.2fnm_1.pos", lambda0/nm)] , Name Sprintf("u1%.2fnm.pos", lambda0/nm)];
+        // Print[ E1    , OnElementsOf Plot_domain, File StrCat[myDir, Sprintf("E1%.2fnm_1.pos", lambda0/nm)] , Name Sprintf("E1%.2fnm.pos", lambda0/nm)];
         Echo[ Str["For i In {0:2}",
                   "  View[i].LineWidth = 4;View[i].ColormapNumber = 15;View[0].AxesFormatX = '%.1f';",
                   "EndFor"], File StrCat[myDir,"tmp0.geo"]] ;

ElectromagneticScattering/scattering_data.geo

@@ -10,7 +10,7 @@ cel      = 1.0/(Sqrt[epsilon0 * mu0]);
 deg2rad  = Pi/180.;
 
 pp0        = "1Geometry/0";
-pp1        = "2Study Type/0";
+pp1        = "0Study Type/0";
 pp2        = "3Electromagnetic parameters/0";
 pp3        = "4Mesh size and PMLs parameters/0";
 pp4        = "5Postpro options/0";
@@ -34,7 +34,7 @@ RES_QNM   = 3;
 
 DefineConstant[
   flag_shape = {ELL , Name StrCat[pp0, "0Scatterer shape"], 
-    Choices {ELL="ellispoid",PARALL="parallelepiped",CYL="cylinder",CONE="cone",TOR="split torus"},Closed 0,GmshOption "Reset", Autocheck 0}];
+    Choices {ELL="ellispoid",PARALL="parallelepiped",CYL="cylinder",CONE="cone",TOR="split torus"},Closed 0}];
 
 If (flag_shape==ELL)
   DefineConstant[
@@ -103,7 +103,7 @@ DefineConstant[
         Choices {RES_PW="Plane Wave Response",
                  RES_TMAT="T-Matrix", 
                  RES_GREEN="Green's Tensor",
-                 RES_QNM="Quasi-Normal Modes"},Closed 0}];
+                 RES_QNM="Quasi-Normal Modes"},Closed 0, GmshOption "Reset", Autocheck 0}];
 
 DefineConstant[
   epsr_In_re  = { 9., Name StrCat[pp2  , "0scatterer permittivity (real) []"] , Highlight Str[colorppOK] , Closed 0},