mod_assemb_prep
mat_select,'c410','al6061'
d1=-5
d2=-5
d3=-5
a1=5
a2=5
a3=5
z1=0
z2=0
z3=-3
csys,0
k,,0,0,z1
k,,a1,0,z1
k,,a1,a1,z1
k,,0,a1,z1
create_volume,,d1
k,,a2,0,z2
k,,2*a2,0,z2
k,,2*a2,a2,z2
k,,a2,a2,z2
create_volume,,d2
k,,a3,a3,z3
k,,2*a3,a3,z3
k,,2*a3,2*a3,z3
k,,a3,2*a3,z3
create_volume,,d3
vsel,s,volu,,1
vatt,c410
mark_cg,,0
v1xcg_i=xcg0
v1ycg_i=ycg0
v1zcg_i=zcg0
vsel,s,volu,,2
vatt,al6061
mark_cg,,0
v2xcg_i=xcg0
v2ycg_i=ycg0
v2zcg_i=zcg0
vsel,s,volu,,3
vatt,c410
mark_cg,,0
v3xcg_i=xcg0
v3ycg_i=ycg0
v3zcg_i=zcg0
init_entity_num
mark_cg
vtxcg_i=xcg0
vtycg_i=ycg0
vtzcg_i=zcg0
vglue,all
init_entity_num
vsel,s,volu,,vm-2
mark_cg,,0
v1xcg_f=xcg0
v1ycg_f=ycg0
v1zcg_f=zcg0
vsel,s,volu,,vm
mark_cg,,0
v2xcg_f=xcg0
v2ycg_f=ycg0
v2zcg_f=zcg0
vsel,s,volu,,vm-1
mark_cg,,0
v3xcg_f=xcg0
v3ycg_f=ycg0
v3zcg_f=zcg0
init_entity_num
mark_cg
vtxcg_f=xcg0
vtycg_f=ycg0
vtzcg_f=zcg0
lplot