fem modelling of a bellows and a bellows- based micromanipulator
fem modelling of a bellows and a bellows- based micromanipulator
fem modelling of a bellows and a bellows- based micromanipulator
Create successful ePaper yourself
Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.
VI. AnnexFEM <strong>modelling</strong> <strong>of</strong> a <strong>bellows</strong> <strong>and</strong> a <strong>bellows</strong>-<strong>based</strong> <strong>micromanipulator</strong>6. ANNEX6.1 Principal Listings6.1.1 GEOMETRYa) PLANE83 2D-model!***************** PLANE83 Model **********************!* *!***************** December 1998 **********************FINISH! Exits the previous processor/CLEAR! Clears the database/PREP7! Enters the PREP7 pre-processorET,1,PLANE83! Defines a new element type, PLANE83KEYOPT,1,3,1! Sets different flags for axisymmetric behaviour!***** Material properties *****MP,ex,1,161e+6 ! Young's Modulus E = 161·10 6 [mN/mm 2 ]MP,nuxy,1,0.3 ! Poisson's Ratio σ = 0,3!****** Scalar parameters ******A=6.35! Outer diameter AB=3.81! Inner diameter BD=0.7832! Convolution pitch Dl0=18.7960 ! Bellows' length L 0t=0.0381! Wall's thickness tr1=(D-2*t)/4 ! Inner convolution's radius r 1r2=r1 ! Outer convolution's radius r 2m=(A/2)-r2-r1-2*t-(B/2)! Straight part mpi=acos(-1)! Calculation <strong>of</strong> π!********** Geometry ***********K, ,,,, ! Rotation's axis keypoint 1K, ,,1,, ! Rotation's axis keypoint 2K, ,B/2+r2+t+m,t+r1,, ! Centre <strong>of</strong> top circlesK, ,B/2+r2+t,t+2*r1+t+r2,, ! Centre <strong>of</strong> middle circlesK, ,B/2+r2+t,-r2,, ! Centre <strong>of</strong> bottom circlescircle,3,r1,,,360,! Draws top inner circlecircle,3,r1+t,,,360,! Draws top outer circlecircle,4,r2,,,360,! Draws middle inner circlecircle,4,r2+t,,,360,! Draws middle outer circlecircle,5,r2,,,360,! Draws bottom inner circlecircle,5,r2+t,,,360,! Draws top outer circleLDELE,9,10,1 , ,1! Deleting <strong>of</strong> unused arcsLDELE,12,16,4 , ,1 ! " " " "LDELE,13,14,1 , ,1 ! " " " "LDELE,2,3,1 , ,1 ! " " " "LDELE,6,7,1 , ,1 ! " " " "LDELE,19,20,1 , ,1 ! " " " "LDELE,23,24,1 , ,1 ! " " " "LDELE,17,21,4 , ,1 ! " " " "KDELE,14,15,1! Deleting <strong>of</strong> unneeded keypointsKDELE,18,19,1 ! " " " "KDELE,3,5,1 ! " " " "KDELE,8,12,4 ! " " " "KDELE,25,26,1 ! " " " "KDELE,22,29,7 ! " " " "LSTR,16,20! Building straight walls <strong>of</strong> the <strong>bellows</strong>LSTR,11,17 ! " " " " " "LSTR,21,7 ! " " " " " "LSTR,9,27 ! " " " " " "LSTR,23,13 ! " " " " " "LSTR,28,24 ! " " " " " "LSTR,17,21 ! " " " " " "LSTR,27,23 ! " " " " " "LSTR,7,11 ! " " " " " "LSTR,6,10 ! " " " " " "LSTR,9,13 ! " " " " " "LSEL,ALL! Selecting all lines46
Change language