From 0b85e83b2132930c7510c9adf8124f527251b7af Mon Sep 17 00:00:00 2001
From: gdemesy <guillaume.demesy@fresnel.fr>
Date: Tue, 3 Nov 2020 01:23:53 +0100
Subject: [PATCH] fix field names
---
DiffractionGratings/grating2D_conical.pro | 2 +-
DiffractionGratings/grating2D_scalar.pro | 2 +-
2 files changed, 2 insertions(+), 2 deletions(-)
diff --git a/DiffractionGratings/grating2D_conical.pro b/DiffractionGratings/grating2D_conical.pro
index 7e9014e..4738d53 100644
--- a/DiffractionGratings/grating2D_conical.pro
+++ b/DiffractionGratings/grating2D_conical.pro
@@ -510,7 +510,7 @@ PostOperation {
" EndIf",
"EndFor"], File StrCat[myDir,"tmp1.geo"]] ;
For i In {-nb_plot_periods:nb_plot_periods}
- Print [ Etot~{i}, OnElementsOf Plot_domain, File StrCat[myDir, Sprintf("u_tot_lambda%.2fnm_%g.pos", lambda0/nm,i+nb_plot_periods)], ChangeOfCoordinates {$X+i*d,$Y,$Z}, Name Sprintf("Hz_tot_%.2fnm.pos", lambda0/nm) ] ;
+ Print[ Etot~{i}, OnElementsOf Plot_domain, File StrCat[myDir, Sprintf("u_tot_lambda%.2fnm_%g.pos", lambda0/nm,i+nb_plot_periods)], ChangeOfCoordinates {$X+i*d,$Y,$Z}, Name Sprintf("E_tot_%.2fnm.pos", lambda0/nm) ] ;
Print[ boundary, OnElementsOf Plot_bnd, File StrCat[myDir,Sprintf("boundary_%g.pos",i+nb_plot_periods)], ChangeOfCoordinates {$X+i*d,$Y,$Z} ] ;
EndFor
Echo[ Str["Combine ElementsByViewName;",
diff --git a/DiffractionGratings/grating2D_scalar.pro b/DiffractionGratings/grating2D_scalar.pro
index d3227a0..3875c0a 100644
--- a/DiffractionGratings/grating2D_scalar.pro
+++ b/DiffractionGratings/grating2D_scalar.pro
@@ -458,7 +458,7 @@ PostOperation {
" EndIf",
"EndFor"], File StrCat[myDir,"tmp1.geo"]] ;
For i In {-nb_plot_periods:nb_plot_periods}
- Print [ u_tot~{i}, OnElementsOf Plot_domain, File StrCat[myDir, Sprintf("u_tot_lambda%.2fnm_%g.pos", lambda0/nm,i+nb_plot_periods)], ChangeOfCoordinates {$X+i*d,$Y,$Z}, Name Sprintf("Hz_tot_%.2fnm.pos", lambda0/nm) ] ;
+ Print[ u_tot~{i}, OnElementsOf Plot_domain, File StrCat[myDir, Sprintf("u_tot_lambda%.2fnm_%g.pos", lambda0/nm,i+nb_plot_periods)], ChangeOfCoordinates {$X+i*d,$Y,$Z}, Name Sprintf("u_tot_%.2fnm.pos", lambda0/nm) ] ;
Print[ boundary, OnElementsOf Plot_bnd, File StrCat[myDir,Sprintf("boundary_%g.pos",i+nb_plot_periods)], ChangeOfCoordinates {$X+i*d,$Y,$Z} ] ;
EndFor
Echo[ Str["Combine ElementsByViewName;",
--
GitLab