From 025a463cfa71b79ce8b9ee97ae3b608f0b177026 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Fran=C3=A7ois=20Henrotte?= <francois.henrotte@uclouvain.be> Date: Wed, 27 Nov 2019 12:27:26 +0100 Subject: [PATCH] adapted comment about making airring transfinite --- SlidingSurface3D/rfpm.geo | 10 ++++------ SlidingSurface3D/rfpm.pro | 7 ++++--- 2 files changed, 8 insertions(+), 9 deletions(-) diff --git a/SlidingSurface3D/rfpm.geo b/SlidingSurface3D/rfpm.geo index 52d98f4..0aadd5b 100644 --- a/SlidingSurface3D/rfpm.geo +++ b/SlidingSurface3D/rfpm.geo @@ -206,10 +206,8 @@ StatorPerSlave() = face(); FaceId = 5; Call Cube2Face; StatorTop() = face(); -// Make AirRing a transfinite region. The width of the air ring is arbitrary, -// but it is in general thin, especially in machine models where it has to fit -// into the air gap. To improve the quality of the mesh, it is thus appropriate -// to have it transfinite in practice. +// The width of the air ring region is arbitrary, but it is in general thin, +// especially in machine models where it has to fit into the air gap. surfaces() = Boundary { Volume{10}; }; lines() = Boundary { Surface{ SlidingSlave() }; }; @@ -235,9 +233,9 @@ For num In { 0:#lines()-1 } EndIf EndFor -// Transfinite Surface{ surfaces() } ; + //Transfinite Surface{ surfaces() } ; Transfinite Surface{ SlidingMaster() } ; -Transfinite Surface{ SlidingSlave() }; +Transfinite Surface{ SlidingSlave() } ; // Identify 'SlidingSubmaster' Curve diff --git a/SlidingSurface3D/rfpm.pro b/SlidingSurface3D/rfpm.pro index 851dafa..23346e0 100644 --- a/SlidingSurface3D/rfpm.pro +++ b/SlidingSurface3D/rfpm.pro @@ -19,7 +19,7 @@ DefineConstant[ Name "GetDP/1ResolutionChoices"}, C_ = {"-solve -v 4 -pos -v2", Visible 0, Name "GetDP/9ComputeCommand"}, - P_ = { "Check_Periodicity", Choices {"Fields", "Check_Periodicity"}, Visible 0, + P_ = { "", Choices {"Fields", "Check_Periodicity"}, Visible 0, Name "GetDP/2PostOperationChoices"} ]; @@ -251,6 +251,7 @@ Resolution { UpdateConstraint[Sys_Mag] ; Generate Sys_Mag ; Solve Sys_Mag ; SaveSolution Sys_Mag ; + PostOperation [Check_Periodicity]; PostOperation [Fields]; } } @@ -326,7 +327,7 @@ PostOperation Check_Periodicity UsingPost MagSta_a { "View[l].LineWidth = 5;"] , File "tmp.geo", LastTimeStepOnly] ; EndIf - + /* Print[ bsurf, OnElementsOf Region[ {Sur_SlidingMaster} ], LastTimeStepOnly, File "bsm.pos"] ; Echo[ Str["l=PostProcessing.NbViews-1;", @@ -348,7 +349,7 @@ PostOperation Check_Periodicity UsingPost MagSta_a { "View[l].LineWidth = 3;", "View[l].VectorType = 4;" ] , File "tmp.geo", LastTimeStepOnly] ; - + */ Print[ bsurf, OnElementsOf Region[ Sur_Link ], LastTimeStepOnly, File "bsl.pos"] ; Echo[ Str["l=PostProcessing.NbViews-1;", -- GitLab