FEM4EllipticPDE/examples/magnet/toroid.geo

/* This file is part of Lemma, a geophysical modelling and inversion API.
 * More information is available at http://lemmasoftware.org
 */

/* This Source Code Form is subject to the terms of the Mozilla Public
 * License, v. 2.0. If a copy of the MPL was not distributed with this
 * file, You can obtain one at http://mozilla.org/MPL/2.0/.
 */

/**
 * @file
 * @date      02/04/2016 02:58:54 PM
 * @version   $Id$
 * @author    Trevor Irons (ti)
 * @email     tirons@egi.utah.edu
 * @copyright Copyright (c) 2016, University of Utah
 * @copyright Copyright (c) 2016, Lemma Software, LLC
 */

radius = 3.25;   // Radius of the damn thing
blc = radius/2;  //  0.25;   // Target element size
Box = 3*radius;  // The down side of potential
lc = radius/2;        // toroid characteristic length


tpp = newp;
ts = 1;         // height of toroid
tx = radius;  // radial width of toroid, measured in centre of ring
tl = 0;         // centre of rotation

Point(tpp  ) = {    tx,    0, 0,  lc};
Point(tpp+1) = { ts+tx,    0, 0,  lc};
Point(tpp+2) = {    tx,   ts, 0,  lc};
Point(tpp+3) = {    tx,  -ts, 0,  lc};
Point(tpp+4) = {-ts+tx,    0, 0,  lc};

cc = newc;
Circle(cc  ) = {tpp+1, tpp, tpp+2};
Circle(cc+1) = {tpp+2, tpp, tpp+4};
Circle(cc+2) = {tpp+4, tpp, tpp+3};
Circle(cc+3) = {tpp+3, tpp, tpp+1};

ll = newll;
Line Loop(ll) = {cc, cc+1, cc+2, cc+3};

ps = news;
pio2=Pi/2;
Plane Surface(ps) = {ll};
tv1[] = Extrude {{0, 1, 0},{-tl,0,0}, 2*Pi/3} { Surface{ps}; };
tv2[] = Extrude {{0, 1, 0},{-tl,0,0}, 2*Pi/3} { Surface{28}; };
tv3[] = Extrude {{0, 1, 0},{-tl,0,0}, 2*Pi/3} { Surface{50}; };
//t1[] = Rotate {{0,0,1},{0,0,0},pio2  } {Duplicata{Surface{ps};}};
//Extrude Surface {ps, {0,1,0}, {-tl,0,0}, 2*Pi/3} { Recombine ;};
//Extrude Surface {28, {0,1,0}, {-tl,0,0}, 2*Pi/3}; //{Layers{10,73,1};};
//Extrude Surface {50, {0,1,0}, {-tl,0,0}, 2*Pi/3}; //{Layers{10,73,1};};

/* Make a list of a ring (annulus) of surfaces around the hole */
//allParts[] = {tv1[1], tv2[1], tv3[1]};

/* Make surfaces to be meshed by transfinite algorithm */
//Transfinite Surface {allParts[]};

/* The "Recombine Surface" command is issued in order to
 * crate quadrilateral elements.
 */
//Recombine Surface {allParts[]};

// Extrude Surface {12, {0,0,1}, {0,0,0}, 2*Pi/3} {
//   Recombine ; Layers { 6, 54, 1 } ;
// } ;

// Total Solution Space
X0 = -Box;
X1 =  Box;
Y0 = -Box;
Y1 =  Box;
Z0 = -Box;
Z1 =  Box;
/////////////////////////////////////
// Large Bounding box
pp = newp;
Point(pp)    = {X0, Y0, Z0, blc};
Point(pp+1)  = {X1, Y0, Z0, blc};
Point(pp+2)  = {X1, Y1, Z0, blc};
Point(pp+3)  = {X0, Y1, Z0, blc};
//
lv = newl;
Line(lv) = {pp,pp+1};
Line(lv+1) = {pp+1,pp+2};
Line(lv+2) = {pp+2,pp+3};
Line(lv+3) = {pp+3,pp};
Line Loop(lv+4) = {lv, lv+1, lv+2, lv+3};
//
// Hard coded doom
bs = news;
Plane Surface(bs) = {lv+4};
//
//v = newv;
v[] = Extrude {0, 0, Z1-Z0} { Surface{bs}; };

/* This is GOOD */
//Surface{ allParts[1] } In Volume{v[1]};
Surface{ ps } In Volume{v[1]};
//Surface{t1[0]} In Volume{v[1]};
//Surface{t2[0]} In Volume{v[1]};
//Surface{t3[0]} In Volume{v[1]};