40 lines
848 B
Plaintext
Executable File
40 lines
848 B
Plaintext
Executable File
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
|
|
|