* * Define some variables. * define / XMIN / 0. define / YMIN / 0. define / ZMIN / -24000. define / XMAX / 24000. define / YMAX / 24000. define / ZMAX / 0. define / NX / 25 define / NY / 25 define / NZ / 25 define / CMO_NAME / cmo1_tet define / OUTPUT_table / tet_var_res_01.table define / OUTPUT_gmv / tet_var_res_01.gmv define / OUTPUT_avs / tet_var_res_01.inp define / OUTPUT_zone / tet_var_res_01 cmo / create / CMO_NAME / / / tet cmo / setatt / CMO_NAME / ipolydat / no infile geometry.mlgi createpts/xyz/NX NY NZ/XMIN YMIN ZMIN/ XMAX YMAX ZMAX / 1 1 1 setpts dump / gmv / tmp_pts.gmv / CMO_NAME connect / check_interface settets dump / gmv / tmp_settets.gmv / CMO_NAME * * Compute a distance (rdist) field. This is a real valued node * based attribute which indicates the distance of any node * from the fault surface. * * Use the distance field to control refinement of elements close * to the fault. * define / DISTANCE / 100. define / REFINE_D / 900. define / OUTPUT_table / tet_var_res_01.table define / OUTPUT_gmv / tet_var_res_01.gmv define / OUTPUT_avs / tet_var_res_01.inp define / OUTPUT_zone / tet_var_res_01 infile distance_field.lgi pset / prefine / attribute / rdist / 1 0 0 / DISTANCE / le massage / REFINE_D / 1.0 / 0.01 / & pset get prefine / norecon / inclusive dump / gmv / tmp_ref01.gmv / CMO_NAME pset / psmooth / attribute / itp / 1 0 0 / 0 / eq quality smooth/position/aspect/ pset get psmooth quality dump / gmv / tmp_smo01.gmv / CMO_NAME cmo / copy / cmotmp / CMO_NAME cmo / select / CMO_NAME resetpts / parents rmpoint / compress cmo / DELATT / CMO_NAME / rdist infile identify_fault_nodes.mlgi cmo / delete / CMO_NAME cmo / copy / CMO_NAME / cmotmp cmo / delete / cmotmp cmo / select / CMO_NAME * * sqrt(500**2 + 500*2) = 707.+ * define / DISTANCE / 100. define / REFINE_D / 450. define / OUTPUT_table / tet_var_res_02.table define / OUTPUT_gmv / tet_var_res_02.gmv define / OUTPUT_avs / tet_var_res_02.inp define / OUTPUT_zone / tet_var_res_02 infile distance_field.lgi pset / prefine / attribute / rdist / 1 0 0 / DISTANCE / le massage / REFINE_D / 1.0 / 0.01 / & pset get prefine / norecon / inclusive dump / gmv / tmp_ref02.gmv / CMO_NAME pset / psmooth / attribute / itp / 1 0 0 / 0 / eq quality smooth/position/aspect/ pset get psmooth quality dump / gmv / tmp_smo02.gmv / CMO_NAME cmo / copy / cmotmp / CMO_NAME cmo / select / CMO_NAME resetpts / parents rmpoint / compress cmo / DELATT / CMO_NAME / rdist infile identify_fault_nodes.mlgi cmo / delete / CMO_NAME cmo / copy / CMO_NAME / cmotmp cmo / delete / cmotmp cmo / select / CMO_NAME * * sqrt(250**2 + 250*2) = 353.+ * define / DISTANCE / 100. define / REFINE_D / 240. define / OUTPUT_table / tet_var_res_03.table define / OUTPUT_gmv / tet_var_res_03.gmv define / OUTPUT_avs / tet_var_res_03.inp define / OUTPUT_zone / tet_var_res_03 infile distance_field.lgi pset / prefine / attribute / rdist / 1 0 0 / DISTANCE / le massage / REFINE_D / 1.0 / 0.01 / & pset get prefine / norecon / inclusive dump / gmv / tmp_ref03.gmv / CMO_NAME pset / psmooth / attribute / itp / 1 0 0 / 0 / eq quality smooth/position/aspect/ pset get psmooth quality dump / gmv / tmp_smo03.gmv / CMO_NAME cmo / copy / cmotmp / CMO_NAME cmo / select / CMO_NAME resetpts / parents rmpoint / compress cmo / DELATT / CMO_NAME / rdist infile identify_fault_nodes.mlgi cmo / delete / CMO_NAME cmo / copy / CMO_NAME / cmotmp cmo / delete / cmotmp cmo / select / CMO_NAME * * sqrt(125**2 + 125*2) = 176.+ * define / DISTANCE / 100. define / REFINE_D / 120. define / OUTPUT_table / tet_var_res_04.table define / OUTPUT_gmv / tet_var_res_04.gmv define / OUTPUT_avs / tet_var_res_04.inp define / OUTPUT_zone / tet_var_res_04 infile distance_field.lgi pset / prefine / attribute / rdist / 1 0 0 / DISTANCE / le massage / REFINE_D / 1.0 / 0.01 / & pset get prefine / norecon / inclusive dump / gmv / tmp_ref04.gmv / CMO_NAME pset / psmooth / attribute / itp / 1 0 0 / 0 / eq quality smooth/position/aspect/ pset get psmooth quality dump / gmv / tmp_smo04.gmv / CMO_NAME cmo / copy / cmotmp / CMO_NAME cmo / select / CMO_NAME resetpts / parents rmpoint / compress cmo / DELATT / CMO_NAME / rdist infile identify_fault_nodes.mlgi cmo / delete / CMO_NAME cmo / copy / CMO_NAME / cmotmp cmo / delete / cmotmp cmo / select / CMO_NAME finish