initial upload

This commit is contained in:
2025-12-17 11:00:57 +08:00
parent 2bc7b24a71
commit a09a73537f
4614 changed files with 3478433 additions and 2 deletions

View File

@@ -0,0 +1,12 @@
# new compute / linear_extrapolate
# by Aaron Gable committed on Jun 17, 2010
# modified to comment out dump commands
infile test_buildsurf.mlgi
infile test_pathos.mlgi
infile test_square.mlgi
finish

View File

@@ -0,0 +1,111 @@
infile test_buildsurf.mlgi
define/NX/25
define/NY/25
define/NZ/25
define/MIN/0.0
define/MAX/10.0
cmo/create/ztemp///quad
quadxy NX NY/MIN MIN MIN/MAX MIN MIN/MAX MAX MIN/MIN MAX MIN
rzbrick/xyz/NX,NY,1/1,0,0/connect
cmo/setatt/ztemp/imt/1
cmo/setatt/ztemp/itetclr/1
resetpts/itp
hextotet/2/zlow/ztemp
cmo/create/ytemp///quad
quadxy NX NZ/MIN MIN MIN/MAX MIN MIN/MAX MIN MAX/MIN MIN MAX
rzbrick/xyz/NX,1,NZ/1,0,0/connect
hextotet/2/ylow/ytemp
cmo/create/xtemp///quad
quadxy NY NZ/MIN MIN MIN/MIN MIN MAX/MIN MAX MAX/MIN MAX MIN
rzbrick/xyz/1,NY,NZ/1,0,0/connect
hextotet/2/xlow/xtemp
math/sin/zlow/zic/1,0,0/zlow/xic
math/sin/ylow/yic/1,0,0/ylow/zic
math/sin/xlow/xic/1,0,0/xlow/yic
cmo/copy/zhigh/zlow
cmo/copy/yhigh/ylow
cmo/copy/xhigh/xlow
cmo/setatt/zhigh/idebug//10
cmo/setatt/yhigh/idebug//10
cmo/setatt/xhigh/idebug//10
math/add/zlow/zic/1,0,0/zlow/zic/2
math/add/ylow/yic/1,0,0/ylow/yic/2
math/add/xlow/xic/1,0,0/xlow/xic/2
math/add/zhigh/zic/1,0,0/zhigh/zic/8
math/add/yhigh/yic/1,0,0/yhigh/yic/8
math/add/xhigh/xic/1,0,0/xhigh/xic/8
math/multiply/zlow/zic/1,0,0/zlow/zic/10000
math/multiply/zlow/yic/1,0,0/zlow/yic/10000
math/multiply/zlow/xic/1,0,0/zlow/xic/10000
math/multiply/ylow/zic/1,0,0/ylow/zic/10000
math/multiply/ylow/yic/1,0,0/ylow/yic/10000
math/multiply/ylow/xic/1,0,0/ylow/xic/10000
math/multiply/xlow/zic/1,0,0/xlow/zic/10000
math/multiply/xlow/yic/1,0,0/xlow/yic/10000
math/multiply/xlow/xic/1,0,0/xlow/xic/10000
math/multiply/zhigh/zic/1,0,0/zhigh/zic/10000
math/multiply/zhigh/yic/1,0,0/zhigh/yic/10000
math/multiply/zhigh/xic/1,0,0/zhigh/xic/10000
math/multiply/yhigh/zic/1,0,0/yhigh/zic/10000
math/multiply/yhigh/yic/1,0,0/yhigh/yic/10000
math/multiply/yhigh/xic/1,0,0/yhigh/xic/10000
math/multiply/xhigh/zic/1,0,0/xhigh/zic/10000
math/multiply/xhigh/yic/1,0,0/xhigh/yic/10000
math/multiply/xhigh/xic/1,0,0/xhigh/xic/10000
cmo/setatt/zhigh/itetclr/1 0 0/1
cmo/setatt/zlow/itetclr/1 0 0/2
cmo/setatt/yhigh/itetclr/1 0 0/3
cmo/setatt/ylow/itetclr/1 0 0/4
cmo/setatt/xhigh/itetclr/1 0 0/5
cmo/setatt/xlow/itetclr/1 0 0/6
cmo/create/cube///tet
createpts/xyz/15.0 15.0 15.0/3.0 3.0 3.0/7.0 7.0 7.0/1 1 1
connect
math/multiply/cube/zic/1,0,0/cube/zic/10000
math/multiply/cube/yic/1,0,0/cube/yic/10000
math/multiply/cube/xic/1,0,0/cube/xic/10000
cmo/setatt/cube/itetclr/1 0 0/7
addmesh/merge/z_all/zhigh/zlow
addmesh/merge/y_all/yhigh/ylow
addmesh/merge/x_all/xhigh/xlow
addmesh/merge/xy_all/y_all/x_all
addmesh/merge/zc_all/z_all/cube
addmesh/merge/mo_all/zc_all/xy_all
cmo/status/mo_all/brief
finish
infile test_pathos.mlgi
compute/linear_extrapolate/cube/zhigh/zpos/zic
compute/linear_extrapolate/cube/zlow/zneg/zic
compute/linear_extrapolate/cube/yhigh/ypos/yic
compute/linear_extrapolate/cube/ylow/yneg/yic
cmo/status/cube/brief
cmo/delete/cube
finish
infile test_square.mlgi
define/NX/100
define/NY/100
define/NZ/50
define/MIN/-1.0
define/MAX/301.0
define/NX/30
define/NY/30
define/NZ/20
cmo/create/zsurf_quad///quad
quadxy NX NY/MIN MIN MIN/MAX MIN MIN/MAX MAX MIN/MIN MAX MIN
rzbrick/xyz/NX,NY,1/1,0,0/connect
cmo/setatt/zsurf_quad/imt 1
cmo/setatt/zsurf_quad/itetclr 1
resetpts/itp
math/sin/zsurf_quad/zic/1,0,0/zsurf_quad/xic
math/multiply/zsurf_quad/zic/1,0,0/zsurf_quad/zic/5.0
perturb/1 0 0/0. 0. 1.0
math/add/zsurf_quad/zic/1 0 0/zsurf_quad/zic/60.
cmo/create/mo_hex///hex
createpts/brick/xyz/NX NY NZ/0. 0. 0./300. 300. 50./1 1 1
cmo/select/mo_hex
resetpts/itp
compute/linear_extrapolate/mo_hex/zsurf_quad/zpos/zic
cmo/status/mo_hex/brief
cmo/delete/mo_hex
finish
finish

File diff suppressed because it is too large Load Diff

View File

@@ -0,0 +1,102 @@
define/NX/25
define/NY/25
define/NZ/25
define/MIN/0.0
define/MAX/10.0
cmo/create/ztemp///quad
quadxy NX NY/MIN MIN MIN/MAX MIN MIN/MAX MAX MIN/MIN MAX MIN
rzbrick/xyz/NX,NY,1/1,0,0/connect
cmo/setatt/ztemp/ imt / 1
cmo/setatt/ztemp/ itetclr / 1
resetpts/itp
hextotet / 2 / zlow / ztemp
# cmo / setatt / zlow / idebug / / 10
cmo/create/ytemp///quad
quadxy NX NZ/MIN MIN MIN/MAX MIN MIN/MAX MIN MAX/MIN MIN MAX
rzbrick/xyz/NX,1,NZ/1,0,0/connect
hextotet / 2 / ylow / ytemp
# cmo / setatt / ylow / idebug / / 10
cmo/create/xtemp///quad
quadxy NY NZ/MIN MIN MIN/MIN MIN MAX/MIN MAX MAX/MIN MAX MIN
rzbrick/xyz/1,NY,NZ/1,0,0/connect
hextotet / 2 / xlow / xtemp
# cmo / setatt / xlow / idebug / / 10
math/sin/zlow/zic/1,0,0/zlow/xic
math/sin/ylow/yic/1,0,0/ylow/zic
math/sin/xlow/xic/1,0,0/xlow/yic
cmo / copy / zhigh / zlow
cmo / copy / yhigh / ylow
cmo / copy / xhigh / xlow
cmo / setatt / zhigh / idebug / / 10
cmo / setatt / yhigh / idebug / / 10
cmo / setatt / xhigh / idebug / / 10
math/add/zlow/zic/1,0,0/zlow/zic/2
math/add/ylow/yic/1,0,0/ylow/yic/2
math/add/xlow/xic/1,0,0/xlow/xic/2
math/add/zhigh/zic/1,0,0/zhigh/zic/8
math/add/yhigh/yic/1,0,0/yhigh/yic/8
math/add/xhigh/xic/1,0,0/xhigh/xic/8
math/multiply/zlow/zic/1,0,0/zlow/zic/10000
math/multiply/zlow/yic/1,0,0/zlow/yic/10000
math/multiply/zlow/xic/1,0,0/zlow/xic/10000
math/multiply/ylow/zic/1,0,0/ylow/zic/10000
math/multiply/ylow/yic/1,0,0/ylow/yic/10000
math/multiply/ylow/xic/1,0,0/ylow/xic/10000
math/multiply/xlow/zic/1,0,0/xlow/zic/10000
math/multiply/xlow/yic/1,0,0/xlow/yic/10000
math/multiply/xlow/xic/1,0,0/xlow/xic/10000
math/multiply/zhigh/zic/1,0,0/zhigh/zic/10000
math/multiply/zhigh/yic/1,0,0/zhigh/yic/10000
math/multiply/zhigh/xic/1,0,0/zhigh/xic/10000
math/multiply/yhigh/zic/1,0,0/yhigh/zic/10000
math/multiply/yhigh/yic/1,0,0/yhigh/yic/10000
math/multiply/yhigh/xic/1,0,0/yhigh/xic/10000
math/multiply/xhigh/zic/1,0,0/xhigh/zic/10000
math/multiply/xhigh/yic/1,0,0/xhigh/yic/10000
math/multiply/xhigh/xic/1,0,0/xhigh/xic/10000
cmo / setatt / zhigh / itetclr / 1 0 0 / 1
cmo / setatt / zlow / itetclr / 1 0 0 / 2
cmo / setatt / yhigh / itetclr / 1 0 0 / 3
cmo / setatt / ylow / itetclr / 1 0 0 / 4
cmo / setatt / xhigh / itetclr / 1 0 0 / 5
cmo / setatt / xlow / itetclr / 1 0 0 / 6
# dump / avs / out_xhigh.inp / xhigh
# dump / avs / out_yhigh.inp / yhigh
# dump / avs / out_zhigh.inp / zhigh
# dump / avs / out_xlow.inp / xlow
# dump / avs / out_ylow.inp / ylow
# dump / avs / out_zlow.inp / zlow
cmo / create / cube /// tet
createpts / xyz / 15.0 15.0 15.0 / 3.0 3.0 3.0 / 7.0 7.0 7.0 / 1 1 1
connect
math/multiply/cube/zic/1,0,0/cube/zic/10000
math/multiply/cube/yic/1,0,0/cube/yic/10000
math/multiply/cube/xic/1,0,0/cube/xic/10000
cmo / setatt / cube / itetclr / 1 0 0 / 7
# dump / avs / tetmesh.inp / cube
# cmo / setatt / cube / idebug / 3247,3247,1 / 1
addmesh / merge / z_all / zhigh / zlow
addmesh / merge / y_all / yhigh / ylow
addmesh / merge / x_all / xhigh / xlow
addmesh / merge / xy_all / y_all / x_all
addmesh / merge / zc_all / z_all / cube
addmesh / merge / mo_all / zc_all / xy_all
# dump / avs / out_allmesh.inp / mo_all
cmo/status/mo_all/ brief
finish

View File

@@ -0,0 +1,23 @@
compute / linear_extrapolate / cube / zhigh / zpos / zic
# dump / avs / out_cube1.inp / cube
compute / linear_extrapolate / cube / zlow / zneg / zic
# dump / avs / out_cube2.inp / cube
compute / linear_extrapolate / cube / yhigh / ypos / yic
# dump / avs / out_cube3.inp / cube
compute / linear_extrapolate / cube / ylow / yneg / yic
# dump / avs / out_cube4.inp / cube
# compute / linear_extrapolate / cube / xhigh / xpos / xic
# dump / avs / out_cube5.inp / cube
# compute / linear_extrapolate / cube / xlow / xneg / xic
# dump / avs / out_cube6.inp / cube
cmo/status/cube/ brief
cmo/delete/cube
finish

View File

@@ -0,0 +1,39 @@
define/NX/100
define/NY/100
define/NZ/50
define/MIN/-1.0
define/MAX/301.0
define/NX/30
define/NY/30
define/NZ/20
cmo/create/zsurf_quad///quad
quadxy NX NY/MIN MIN MIN/MAX MIN MIN/MAX MAX MIN/MIN MAX MIN
rzbrick/xyz/NX,NY,1/1,0,0/connect
cmo/setatt/zsurf_quad/ imt 1
cmo/setatt/zsurf_quad/ itetclr 1
resetpts/itp
math/sin/zsurf_quad/zic/1,0,0/zsurf_quad/xic
math/multiply/zsurf_quad/zic/1,0,0/zsurf_quad/zic/5.0
perturb / 1 0 0 / 0. 0. 1.0
math/add/zsurf_quad/zic/1 0 0 / zsurf_quad / zic / 60.
# dump / avs / out_surface.inp / zsurf_quad
cmo / create / mo_hex / / / hex
createpts / brick / xyz / NX NY NZ / 0. 0. 0. / 300. 300. 50. / 1 1 1
cmo / select / mo_hex
resetpts / itp
compute / linear_extrapolate / mo_hex / zsurf_quad / zpos / zic
# dump / avs / out_cube_w_topo.inp / mo_hex
cmo/status/mo_hex/ brief
cmo/delete/mo_hex
finish