From 6e8f06d453af0130491aa2bb827c90477e8cca81 Mon Sep 17 00:00:00 2001
From: Christophe Geuzaine <cgeuzaine@ulg.ac.be>
Date: Wed, 5 Dec 2001 11:37:30 +0000
Subject: [PATCH] *** empty log message ***
---
benchmarks/extrude/afpm.geo | 35 +++++++++++++++++++++++++++++++++++
1 file changed, 35 insertions(+)
create mode 100644 benchmarks/extrude/afpm.geo
diff --git a/benchmarks/extrude/afpm.geo b/benchmarks/extrude/afpm.geo
new file mode 100644
index 0000000000..b88bdb474b
--- /dev/null
+++ b/benchmarks/extrude/afpm.geo
@@ -0,0 +1,35 @@
+// arquivo para teste do desenho do motor a fluxo axial usando extrusao.
+// Liege. Inicio => 29 de novembro de 2001.
+
+deg2rad = Pi/180;
+Geometry.OldNewReg=0;
+Geometry.AutoCoherence=0;
+
+r[] = {0,0.020,0.022,0.025,0.040,0.043,0.045,0.060} ;
+t[] = {4,6,6,8,6,6,8,6,6,4} ;
+
+s = 1.; //1.5e-03;
+
+For i In {0:7}
+ Point(i+1)={r[i],0,0,s};
+ If(i)
+ num[i-1]=i;
+ Line(i)={i,i+1};
+ EndIf
+EndFor
+
+For i In {0:6}
+ For j In {0:9}
+ Extrude Line {num[i], {0,0,1}, {0,0,0}, t[j]*deg2rad}{Layers{1,1,1};Recombine;};
+ num[i] = newreg-(i?3:2);
+ EndFor
+EndFor
+
+For i In {1:70}
+ Extrude Surface {i, {0,0,0.005}}{Layers{1,3*1e8+1*1e6+i,1};Recombine;};
+ For j In {1:5}
+ Extrude Surface {news-1, {0,0,0.005}}{Layers{1,3*1e8+(j+1)*1e6+i,1};Recombine;};
+ EndFor
+EndFor
+
+Coherence;
--
GitLab