60 lines
2.0 KiB
Plaintext
60 lines
2.0 KiB
Plaintext
|
* duplicate an existing mesh to make a mesh twice as big
|
||
|
|
define/ngrains/5
|
||
|
|
define/xmn/0.
|
||
|
|
define/xmx/2.6
|
||
|
|
define/ymn/-1.
|
||
|
|
define/ymx/1.
|
||
|
|
define/zmn/0./
|
||
|
|
define/zmx/1.
|
||
|
|
read avs input_doublemesh.inp 3dmesh
|
||
|
|
cmo/copy/newmesh/3dmesh
|
||
|
|
math/times/newmesh/yic/1,0,0/newmesh/yic/-1.0/
|
||
|
|
math/add/newmesh/imt1/1,0,0/newmesh/imt1/ngrains
|
||
|
|
math/add/newmesh/itetclr/1,0,0/newmesh/itetclr/ngrains
|
||
|
|
addmesh/glue/doublemesh/3dmesh/newmesh
|
||
|
|
geometry/create/biggeom
|
||
|
|
cmo/geometry/doublemesh/biggeom
|
||
|
|
cmo/setatt//nconbnd/0
|
||
|
|
surface/top/ reflect/plane/0.,0.,zmx/1.,0.,zmx/1.,1.,zmx/
|
||
|
|
surface/bottom/reflect/plane/0.,0.,zmn/1.,0.,zmn/1.,1.,zmn/
|
||
|
|
surface/left/ reflect/plane/xmn,0.,0./xmn,1.,0./xmn,1.,1./
|
||
|
|
surface/right/ reflect/plane/xmx,0.,0./xmx,1.,0./xmx,1.,1./
|
||
|
|
surface/front/ reflect/plane/0.,ymx,0./1.,ymx,0./1.,ymx,1./
|
||
|
|
surface/back/ reflect/plane/0.,ymn,0./1.,ymn,0./1.,ymn,1./
|
||
|
|
resetpts/itp
|
||
|
|
cmo/setatt//icr1/1,0,0/0
|
||
|
|
boundary/dirichlet/icr1/1/top
|
||
|
|
boundary/dirichlet/icr1/2/bottom/
|
||
|
|
boundary/dirichlet/icr1/3/right/
|
||
|
|
boundary/dirichlet/icr1/4/left/
|
||
|
|
boundary/dirichlet/icr1/5/front/
|
||
|
|
boundary/dirichlet/icr1/6/back/
|
||
|
|
boundary/dirichlet/icr1/7/top/back
|
||
|
|
boundary/dirichlet/icr1/8/top/front
|
||
|
|
boundary/dirichlet/icr1/9/top/left
|
||
|
|
boundary/dirichlet/icr1/10/top/right
|
||
|
|
boundary/dirichlet/icr1/11/front/right
|
||
|
|
boundary/dirichlet/icr1/12/front/left
|
||
|
|
boundary/dirichlet/icr1/13/front/bottom
|
||
|
|
boundary/dirichlet/icr1/14/bottom/right
|
||
|
|
boundary/dirichlet/icr1/15/bottom/left
|
||
|
|
boundary/dirichlet/icr1/16/bottom/back
|
||
|
|
boundary/dirichlet/icr1/17/back/left
|
||
|
|
boundary/dirichlet/icr1/18/back/right
|
||
|
|
boundary/dirichlet/icr1/19/top/back/left
|
||
|
|
boundary/dirichlet/icr1/20/top/back/right
|
||
|
|
boundary/dirichlet/icr1/21/top/front/left
|
||
|
|
boundary/dirichlet/icr1/22/top/front/right
|
||
|
|
boundary/dirichlet/icr1/23/bottom/back/left
|
||
|
|
boundary/dirichlet/icr1/24/bottom/back/right
|
||
|
|
boundary/dirichlet/icr1/25/bottom/front/left
|
||
|
|
boundary/dirichlet/icr1/26/bottom/front/right
|
||
|
|
*
|
||
|
|
dump/gmv/output_doublemesh.gmv
|
||
|
|
* begin compare
|
||
|
|
cmo/status
|
||
|
|
cmo/printatt//-all-/minmax
|
||
|
|
quality
|
||
|
|
* end compare
|
||
|
|
finish
|