/BATCH,list
/FILNAME,part2
/TITLE,Export flexible component to ADAMS
/PREP7
BLOCK,-11,11,-10,10,0,26,
WPAVE,0,0,19
wprot,0,0,90
CYLIND,3,0,-20,20,0,360,
VSBV, 1, 2
wprot,0,0,-90
WPAVE,0,0,7
wprot,0,90,0
CYLIND,3,0,-20,20,0,360,
VSBV, 3, 1
WPAVE,0,0,0
wprot,0,-90,0
BLOCK,7,11,-10,10,0,10,
VSBV, 2, 1
BLOCK,-7,-11,-10,10,0,10,
VSBV, 3, 1
NUMCMP,ALL
/REPLOT
AFILLT,4,10,6,
ASBL, 14, 34
ASBL, 13, 33
VA,4,14,16,20,23
AFILLT,9,17,6,
ASBL, 10, 29
ASBL, 18, 15
VA,9,10,19,25,27
BOPTN,KEEP,0
BOPTN,NWARN,0
BOPTN,VERS,RV52
BTOL,0.01,
VSBV, 1, 2
VSBV, 4, 3
NUMCMP,ALL
/REPLOT
ET,1,solid45
ET,2,beam4
MP,EX,1,7e7
MP,PRXY,1,0.3
MP,DENS,1,2.7e-6
MP,EX,2,2.07e8
MP,PRXY,2,0.3
MP,DENS,2,7.8e-6
R,1,78.528,490.67,490.67,10,10,981.34,
RMORE,,,0.85716,0.85716,
TYPE,1
MAT,1
ESIZE,1,0,
MSHKEY,0
MSHAPE,1,3d
CM,_Y,VOLU
VSEL, , , , 1
CM,_Y1,VOLU
CHKMSH,'VOLU'
CMSEL,S,_Y
VMESH,_Y1
CMDELE,_Y
CMDELE,_Y1
CMDELE,_Y2
N,100000,0,0,7
N,100001,0,0,19
NWPAVE,100000
WPSTYL,,,,,,1
CSYS,4
NSEL,S,LOC,X,3
NSEL,A,,,100000
*GET,nmin,node,,num,min
*GET,nnum,node,,count
*SET,jj,0
TYPE,2
MAT,2
REAL,1
*DO,jj,1,nnum-1
E,100000,nmin
NSEL,u,,,nmin
*GET,nmin,node,,num,min
*ENDDO
ALLS
NWPAVE,100001
WPSTYL,,,,,,1
CSYS,4
NSEL,S,LOC,Y,3
NSEL,A,,,100001
*GET,nmin,node,,num,min
*GET,nnum,node,,count
*SET,jj,0
TYPE,2
MAT,2
REAL,1
*DO,jj,1,nnum-1
E,100001,nmin
NSEL,u,,,nmin
*GET,nmin,node,,num,min
*ENDDO
ALLS
/UNITS,MPA
SAVE
NSEL,s,NODE,,100000,100001
ADAMS,2,0,1 |