# Contents of /trunk/doc/cookbook/heatrefraction_mesher001.py

Revision 2589 - (show annotations)
Wed Aug 5 23:06:35 2009 UTC (11 years, 3 months ago) by ahallam
File MIME type: text/x-python
File size: 2877 byte(s)

 1 2 ######################################################## 3 # 4 # Copyright (c) 2003-2009 by University of Queensland 5 # Earth Systems Science Computational Center (ESSCC) 6 7 # 8 # Primary Business: Queensland, Australia 9 # Licensed under the Open Software License version 3.0 10 11 # 12 ######################################################## 13 14 __copyright__="""Copyright (c) 2003-2009 by University of Queensland 15 Earth Systems Science Computational Center (ESSCC) 16 http://www.uq.edu.au/esscc 17 Primary Business: Queensland, Australia""" 18 __license__="""Licensed under the Open Software License version 3.0 19 20 __url__= 21 22 """ 23 Author: Antony Hallam antony.hallam@uqconnect.edu.au 24 """ 25 26 from esys.pycad import * 27 from esys.pycad.gmsh import Design 28 from esys.finley import MakeDomain 29 import numpy as np 30 #import numpy as n 31 from math import * 32 33 # routine to find consecutive coordinates of a loop in pycad 34 def loopcoords(loop): 35 # return all construction points of input 36 temp = loop.getConstructionPoints() 37 #create a numpy array for xyz components or construction points 38 coords = np.zeros([len(temp),3],float) 39 #place construction points in array 40 for i in range(0,len(temp)): 41 coords[i,:]=temp[i].getCoordinates() 42 #return a numpy array 43 return coords 44 45 # Overall Domain 46 p0=Point(0.0, 0.0, 0.0) 47 p1=Point(0.0, -6000.0, 0.0) 48 p2=Point(5000.0, -6000.0, 0.0) 49 p3=Point(5000.0, 0.0, 0.0) 50 51 l01=Line(p0, p1) 52 l12=Line(p1, p2) 53 l23=Line(p2, p3) 54 l30=Line(p3, p0) 55 56 c=CurveLoop(l01, l12, l23, l30) 57 58 # Material Boundary 59 60 x=[ Point(i*100.0,-2500+1500.*cos(pi*i*100.0/2500.0+pi)) for i in range(0,51) ] 61 mysp = Spline(*tuple(x)) 62 x1=Spline.getStartPoint(mysp) 63 x2=Spline.getEndPoint(mysp) 64 65 # TOP BLOCK 66 tbl1=Line(p0,x1) 67 tbl2=mysp 68 tbl3=Line(x2,p3) 69 tblockloop = CurveLoop(tbl1,tbl2,tbl3,l30) 70 tblock = PlaneSurface(tblockloop) 71 72 tpg = loopcoords(tblockloop) 73 np.savetxt("toppg",tpg,delimiter=" ") 74 75 # BOTTOM BLOCK 76 bbl1=Line(x1,p1) 77 bbl3=Line(p2,x2) 78 bbl4=-mysp 79 bblockloop = CurveLoop(bbl1,l12,bbl3,bbl4) 80 bblock = PlaneSurface(bblockloop) 81 82 #clockwise check 83 bblockloop2=CurveLoop(mysp,Line(x2,p2),Line(p2,p1),Line(p1,x1)) 84 bpg = loopcoords(bblockloop2) 85 np.savetxt("botpg",bpg,delimiter=" ") 86 87 # Create a Design which can make the mesh 88 d=Design(dim=2, element_size=200) 89 # Add the trapezoid with cutout 90 d.addItems(PropertySet("top",tblock),PropertySet("bottom",bblock),PropertySet("linebottom",l12)) 91 # Create the geometry, mesh and Escript domain 92 d.setScriptFileName("heatrefraction_mesh001.geo") 93 94 d.setMeshFileName("heatrefraction_mesh001.msh") 95 domain=MakeDomain(d, integrationOrder=-1, reducedIntegrationOrder=-1, optimizeLabeling=True) 96 # Create a file that can be read back in to python with mesh=ReadMesh(fileName) 97 domain.write("heatrefraction_mesh001.fly") 98 99

 ViewVC Help Powered by ViewVC 1.1.26