Skip to content
Snippets Groups Projects
Commit aace37e6 authored by felix's avatar felix
Browse files

introduce thickness argument

parent eed3cc1f
No related branches found
No related tags found
No related merge requests found
......@@ -18,57 +18,58 @@ convertToMeters 0.01; // centimetres. According to https://cfd.direct/openfoam
#include "../scale"; // gives global N
rx 3.5355339059327373;
// = // rx #calc "5.0 / Foam::sqrt(2.0)"; // length of short side of rectangular triangle with long side =5
arcNx #calc "50 * $N";
arcNy #calc " 30 * $N";
// = // rx #calc "5.0 / Foam::sqrt(2.0)"; // length of short side of rectangular triangle with long side =5
thickness 100; // in other files 0.5 = 50 cm = 50 is assumed to be a valid z coordinate (probes)
vertices
(
// F = front (z = 0), B = back (z = 1)
// F = front (z = 0), B = back (z = $thickness)
// bottom = b, t = top, n = middle (left/right of center of cylinder)
// l = left, r = right, m = middle (under center of cylinder), s = other square around cylinder corner
// c = cylinder
// (0, 0, 0) = center of cylinder in front
name Fbl (-20 -20 0)
name Bbl (-20 -20 1)
name Bbl (-20 -20 $thickness)
name Fbs (20 -20 0)
name Bbs (20 -20 1)
name Bbs (20 -20 $thickness)
name Fbr (200 -20 0)
name Bbr (200 -20 1)
name Bbr (200 -20 $thickness)
name Ftl (-20 21 0)
name Btl (-20 21 1)
name Btl (-20 21 $thickness)
name Fts (20 21 0)
name Bts (20 21 1)
name Bts (20 21 $thickness)
name Ftr (200 21 0)
name Btr (200 21 1)
name Btr (200 21 $thickness)
name Fcl (-5 0 0)
name Bcl (-5 0 1)
name Bcl (-5 0 $thickness)
name Fcb (0 -5 0)
name Bcb (0 -5 1)
name Bcb (0 -5 $thickness)
name Fcr (5 0 0)
name Bcr (5 0 1)
name Bcr (5 0 $thickness)
name Fct (0 5 0)
name Bct (0 5 1)
name Bct (0 5 $thickness)
name Fcbl (#calc "-$rx" #calc "-$rx" 0)
name Bcbl (#calc "-$rx" #calc "-$rx" 1)
name Bcbl (#calc "-$rx" #calc "-$rx" $thickness)
name Fcbr ($rx #calc "-$rx" 0)
name Bcbr ($rx #calc "-$rx" 1)
name Bcbr ($rx #calc "-$rx" $thickness)
name Fctl (#calc "-$rx" $rx 0)
name Bctl (#calc "-$rx" $rx 1)
name Bctl (#calc "-$rx" $rx $thickness)
name Fctr ($rx $rx 0)
name Bctr ($rx $rx 1)
name Bctr ($rx $rx $thickness)
name Fnl (-20 0 0)
name Bnl (-20 0 1)
name Bnl (-20 0 $thickness)
name Fnr (200 0 0)
name Bnr (200 0 1)
name Bnr (200 0 $thickness)
name Fbm (0 -20 0)
name Bbm (0 -20 1)
name Bbm (0 -20 $thickness)
name Ftm (0 21 0)
name Btm (0 21 1)
name Btm (0 21 $thickness)
name Fns (20 0 0)
name Bns (20 0 1)
name Bns (20 0 $thickness)
name Fnm (0 0 0)
name Bnm (0 0 1)
);
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment