变形体接触问题实例(国外英文资料).docVIP

变形体接触问题实例 | version: mentat 3.3 * alias action * procedure _ break 0 | * exec _ p gene _ image.proc @ top () * action figure | 7.0 - dummy * action | figure 7.1 dummy * action | figure 7.2 dummy | | step 1 | @ push (meshgen) @ push (coord _ system) * grid _ d _ domain 0 8 * grid _ d _ spacing 1 * grid _ v _ domain 0 5 * grid _ v _ spacing 0.5 * seen _ grid on * fill _ view @ pop (1) @ push (plot _ screen) * seen _ points _ labels on @ pop (1) | | create a surface corresponding to the tube | length = 8.0, inner technical = 4.0, outer technical = 4.3 | * add _ surfaces points (0.000000000000e + 00, 4.000000000000e + 00, 0.000000000000e + 00) points (8.000000000000e + 00, 4.000000000000e + 00, 0.000000000000e + 00) points (8.000000000000e + 00, 4.500000000000e + 00, 0.000000000000e + 00) points (0.000000000000e + 00, 4.500000000000e + 00, 0.000000000000e + 00) @ push (move) * seen _ move _ translations 0 - 2 0 move _ points 3 4 # | than of list * action | figure 7.3 @ pop (1) @ push (coord _ system) * system _ cylindrical @ pop (1) * add _ points 5 15 0 16 15 0 * seen _ grid off * fill _ view @ push (coord _ system) * system _ rectangular @ pop (1) @ push (duplicate) * seen _ duplicate _ translations 0 6 0 * duplicate _ points 5 6 # | than of list @ pop (1) * add _ surfaces 5 6 8 7 * action | figure 7.4 @ push (move) * seen _ move _ translations 0 1.25 0 move _ surfaces 2 # | than of list * action | figure 7.5 @ pop (1) | | mesh the tube 8x3 elements | mesh the tool 14x6 elements | @ push (convert) * seen _ convert _ division 8 3 * convert _ surfaces 1 # | than of list * seen _ convert _ division 14 6 * convert _ surfaces 2 # | than of list @ push (plot _ screen) * seen _ points off * seen _ points _ labels off * seen _ surfaces off * regenerate * action | figure 7.6 | | select the marc element type | @ pop (1) @ pop (1) @ pop (1) @ push (jobs) @ push (element _ types) @ popup (mech _ eltype _ axisym _ solid _ pm) * action | figure 7.7 * element _ type 10 @ popdown (me