APDL实例MPC184定义万向联轴器滑动副转动副.docx

APDL实例MPC184定义万向联轴器滑动副转动副.docx

《APDL实例MPC184定义万向联轴器滑动副转动副.docx》由会员分享，可在线阅读，更多相关《APDL实例MPC184定义万向联轴器滑动副转动副.docx（10页珍藏版）》请在冰豆网上搜索。

APDL实例MPC184定义万向联轴器滑动副转动副

APDL实例MPC184定义万向联轴器滑动副转动副

/COM,ANSYSMEDIAREL.121（10/15/2009）REF.VERIF.MANUAL:

REL.121

/VERIFY,VM239

/OUT,SCRATCH

/PREP7

/OUT

/COM

/TITLE,VM239,MECHANICSOFTHEREVOLUTEANDUNIVERSALJOINTS/COM

/COM

/COMJ.E.SHIGLEYANDJ.J.UICKER,"THEORYOFMACHINESAND/COMMECHANISMS"2NDEDITION,P.115,1995./COM

/COM***ANALYSISUSINGALLFLEXIBLEBODIES

/COM

/COM

!

C***ADDUNIVERSALJOINTMECHANISMTOTHEABOVEPROBLEM.!

C***PERFORMANALYSISUSINGALLFLEXIBLEBODIES/OUT,SCRATCH

PI=4*ATAN（1.0）

MULT=12

PI15=PI/MULT

ANG=PI15*3

R=.5!

LENGTHOFROTATINGARML=1.5!

LENGTHOFCRANKZDIST=L*SIN（ACOS（R/L））

!

C***DEFININGELEMENTSANDMATERIALPROPERTIESET,1,BEAM188!

BEAMELEMENTSET,2,MPC184,7!

UNIVERSALJOINTET,3,MPC184,6!

REVOLUTEJOINTET,4,MPC184,3!

SLIDERMP,EX,1,30E6

MP,PRXY,1,0.33

MP,DENS,1,10.0

TYPE,1

MAT,1

SECTYPE,1,BEAM,CSOLID!

其中csolid为截面类型

SECDATA,.05!

定义的圆柱为0.05

!

C***CREATINGNODESANDLINKELEMENTS

N,1,0,0,0

N,2,1,0,0

N,3,1,0,0

N,4,1+COS（ANG）,SIN（ANG）,0.0

N,5,1+COS（ANG）,SIN（ANG）,0.0

N,6,2+COS（ANG）,SIN（ANG）,0

N,8,2+COS（ANG）,.5+SIN（ANG）,0

N,9,2+COS（ANG）,.5+SIN（ANG）,0

N,10,2+COS（ANG）,SIN（ANG）,ZDIST

N,11,2+COS（ANG）,SIN（ANG）,.75

N,12,2+COS（ANG）,SIN（ANG）,2.25

N,13,2+COS（ANG）,SIN（ANG）,2.26

N,14,2+COS（ANG）,SIN（ANG）,.74

TYPE,1

MAT,1

SECNUM,1

EN,1,1,2

EN,2,3,4

EN,3,5,6

EN,4,6,8

EN,5,9,10

EN,6,11,12

EN,11,12,13

EN,12,11,14

LOCAL,11,0,0,0,0,-90.0!

DEFININGLOCALCSYSFORUNIV.JOINTS

LOCAL,12,0,0,0,0,-45.0

LOCAL,14,0,0,0,0,0,!

DEFININGLOCALCSYSFORREVO.JOINTS

LOCAL,15,0,0,0,0,0,

CSLIST

!

C***CREATINGUNIVERSALCONNECTIVITYELEMENTSSECTYPE,2,JOIN,UNIV,TESTING02!

DEFININGUNIVERSALJOINT

SECJOINT,1,11,12

TYPE,2

SECNUM,2

EN,7,2,3

SECTYPE,3,JOIN,UNIV,TESTING03!

DEFININGUNIVERSALJOINT

SECJOINT,1,11,12

TYPE,2

SECNUM,3

EN,8,5,4

!

C***CREATINGREVOLUTECONNECTIVITYELEMENTSSECTYPE,4,JOIN,REVO,TESTING04!

DEFININGREVOLUTEJOINTSECJOINT,,14,15

TYPE,3

SECNUM,4

EN,9,8,9

!

C***CREATINGSLIDERCONNECTIVITYELEMENTSTYPE,4

EN,10,10,11,12

CSYS,12

NROTAT,4

CSYS,0

/SOLU!

SOLUTION

CSYS,0

ANTYPE,STAT

NLGEOM,ON!

LARGEDEFLECTIONOPTION

TIME,1.0

NSUBST,32,32,32

D,1,UX,0,,,,UY,UZ,,ROTY,ROTZD,6,UX,0,,,,UY,UZ,,ROTY,ROTZNSEL,S,NODE,,13,14,1

D,ALL,ALL

ALLSEL,ALL

D,1,ROTX,2*PI

OUTRES,ALL,ALL

!

C***NOTE:

THEFORCESINTHISPROBLEMAREREALLYZEROSINCE

!

C***THISISEFFECTIVELYARIGIDBODYROTATION

CNVTOL,F,1.0

CNVTOL,M,1.0

SOLVE

FINISH

/POST26

NUMVAR,200!

TIME-HISTORYPOSTPROCESSOR

NSOL,2,1,ROT,X,ROTX_1

NSOL,3,4,ROT,Y,ROTX_4

NSOL,4,6,ROT,X,ROTX_6

STORE,MERGE

PROD,5,2,,,,,,1.0*180/PIPROD,6,3,,,,,,1.0*180/PIPROD,7,4,,,,,,1.0*180/PI/AXLAB,X,TwistAngleofDrivingShaft!

*****传动轴扭转角/AXLAB,Y,TwistAngleofDrivenShaft!

*****从动轴扭转角/XRANGE,0.0,360

/YRANGE,0.0,360

/GROPT,DIVX,8

/GROPT,DIVY,8

XVAR,5

PLVAR,6

PLVAR,7

FINISH

/POST1

!

GENERALPOSTPROCESSOR

SET,,4

NSEL,S,NODE,,10

*GET,X1,NODE,10,U,Z

ALLSEL,ALL

SET,,8

NSEL,S,NODE,,10

*GET,X2,NODE,10,U,Z

ALLSEL,ALL

SET,,12

NSEL,S,NODE,,10

*GET,X3,NODE,10,U,Z

ALLSEL,ALL

SET,,16

NSEL,S,NODE,,10

*GET,X4,NODE,10,U,Z

ALLSEL,ALL

*DIM,LABEL,CHAR,3

*DIM,VALUE,,3,4

LABEL

（1）='PI/4','PI/2','3*PI/4'*VFILL,VALUE（1,1）,DATA,0.39708,0.58579,0.39708

*VFILL,VALUE（1,2）,DATA,ABS（X1）,ABS（X2）,ABS（X3）

*VFILL,VALUE（1,3）,DATA,ABS（X1/0.39708）,ABS（X2/0.58579）,ABS（X3/0.39708）

SAVE,TABLE_1

FINISH

/CLEAR,NOSTART

/OUT

/TITLE,VM239,MECHANICSOFTHEREVOLUTEANDUNIVERSALJOINTS/COM

/COM

/COM***PERFORMANALYSISUSINGALLRIGIDBODIES/COM

/COM

/OUT,SCRATCH

/PREP7

PI=4*ATAN（1.0）

MULT=12

PI15=PI/MULT

ANG=PI15*3

R=.5!

LENGTHOFROTATINGARML=1.5!

LENGTHOFCRANKZDIST=L*SIN（ACOS（R/L））

C***DEFININGELEMENTS,KEYOPTIONSANDMATERIALPROPERTIESET,1,BEAM188!

BEAMELEMENTSET,2,MPC184,7!

UNIVERSALJOINTET,3,MPC184,6!

REVOLUTEJOINTET,4,MPC184,3!

SLIDERET,11,TARGE170!

TARGETELEMENTKEYOPT,11,2,1!

TARGETELEMENTDEFINEDASRIGIDBODY

MP,EX,1,30E6

MP,PRXY,1,0.33

MP,DENS,1,10.0

C***CREATINGNODESANDLINKELEMENTS

N,1,0,0,0

N,2,1,0,0

N,3,1,0,0

N,4,1+COS（ANG）,SIN（ANG）,0.0

N,5,1+COS（ANG）,SIN（ANG）,0.0

N,6,2+COS（ANG）,SIN（ANG）,0

N,8,2+COS（ANG）,.5+SIN（ANG）,0

N,9,2+COS（ANG）,.5+SIN（ANG）,0

N,10,2+COS（ANG）,SIN（ANG）,ZDIST

N,11,2+COS（ANG）,SIN（ANG）,.75

N,12,2+COS（ANG）,SIN（ANG）,2.25

N,13,2+COS（ANG）,SIN（ANG）,2.26

!

DEFINERIGIDBODIES

TYPE,11

REAL,11

EN,1,1,2!

TARGETELEMENTFOR1STRIGIDBODYREAL,12

EN,2,3,4!

TARGETELEMENTFOR2NDRIGIDBODY

REAL,13

EN,3,6,5

EN,4,6,8!

TARGETELEMENTSFOR3RDRIGIDBODY

REAL,14

EN,5,10,9!

TARGETELEMENTFOR4THRIGIDBODYREAL,15

EN,6,11,12!

TARGETELEMENTFOR5THRIGIDBODYEN,101,12,13

!

PILOTNODESFORRIGIDBODIES

TYPE,11

REAL,11

TSHAP,PILO

EN,11,1!

PILOTNODEFOR1STRIGIDBODYREAL,12

TSHAP,PILO

EN,12,3!

PILOTNODEFOR2NDRIGIDBODYREAL,13

TSHAP,PILO

EN,13,5!

PILOTNODEFOR3NDRIGIDBODYREAL,14

TSHAP,PILO

EN,14,10!

PILOTNODEFOR4THRIGIDBODYREAL,15

TSHAP,PILO

EN,15,13!

PILOTNODEFOR5THRIGIDBODY!

COORDINATESYSTEMSFORJOINTS

LOCAL,11,0,0,0,0,-90.0!

DEFININGLOCALCSYSFORUNIV.JOINTS

LOCAL,12,0,0,0,0,-45.0

LOCAL,14,0,0,0,0,0,!

DEFININGLOCALCSYSFORREVO.JOINTS

LOCAL,15,0,0,0,0,0,

C***CREATINGUNIVERSALCONNECTIVITYELEMENTS

SECTYPE,2,JOIN,UNIV,TESTING02!

DEFININGUNIVERSALJOINT

SECJ,1,11,12

TYPE,2

SECNUM,2

EN,7,2,3

!

SECTYPE,3,JOIN,UNIV,TESTING03!

DEFININGUNIVERSALJOINT

SECJ,1,11,12

TYPE,2

SECNUM,3

EN,8,5,4

!

C***CREATINGREVOLUTECONNECTIVITYELEMENTS

SECTYPE,4,JOIN,REVO,TESTING04!

DEFININGREVOLUTEJOINT

SECJ,,14,15

TYPE,3

SECNUM,4

EN,9,8,9

!

C***CREATINGSLIDERCONNECTIVITYELEMENTSTYPE,4

EN,10,10,11,12

CSYS,12

NROTAT,4

CSYS,0

/SOLU!

SOLUTION

CSYS,0

ANTYPE,STAT

NLGEOM,ON!

LARGEDEFLECTIONOPTION

TIME,1.0

NSUBST,32,6400,32

D,1,UX,0,,,,UY,UZ

D,6,UY,0.0

D,6,UZ,0.0

D,13,UX,0,,,,UY,UZ,ROTX,ROTY,ROTZD,1,ROTX,2*PI

OUTRES,ALL,ALL

LNSRCH,OFF

CNVTOL,F

CNVTOL,M

CNVTOL,U

CNVTOL,ROT

SOLVE

FINISH

/POST26

NUMVAR,200!

TIME-HISTORYPOSTPROCESSOR

NSOL,2,1,ROT,X,ROTX_1

NSOL,3,4,ROT,Y,ROTX_4

NSOL,4,6,ROT,X,ROTX_6

STORE,MERGE

PROD,5,2,,,,,,1.0*180/PIPROD,6,3,,,,,,1.0*180/PIPROD,7,4,,,,,,1.0*180/PI/AXLAB,X,TwistAngleofDrivingShaft/AXLAB,Y,TwistAngleofDrivenShaft/XRANGE,0.0,360

/YRANGE,0.0,360

/GROPT,DIVX,8

/GROPT,DIVY,8

XVAR,5

PLVAR,6

PLVAR,7

FINISH

/POST1!

GENERALPOSTPROCESSOR

SET,,4

NSEL,S,NODE,,10

*GET,X1,NODE,10,U,Z

ALLSEL,ALL

SET,,8

NSEL,S,NODE,,10

*GET,X2,NODE,10,U,Z

ALLSEL,ALL

SET,,12

NSEL,S,NODE,,10

*GET,X3,NODE,10,U,Z

ALLSEL,ALL

SET,,16

NSEL,S,NODE,,10

*GET,X4,NODE,10,U,Z

ALLSEL,ALL

*DIM,LABEL,CHAR,3

*DIM,VALUE,,3,4

LABEL

（1）='PI/4','PI/2','3*PI/4'*VFILL,VALUE（1,1）,DATA,0.39708,0.58579,0.39708

*VFILL,VALUE（1,2）,DATA,ABS（X1）,ABS（X2）,ABS（X3）

*VFILL,VALUE（1,3）,DATA,ABS（X1/0.39708）,ABS（X2/0.58579）,ABS（X3/0.39708）

SAVE,TABLE_2

FINISH

RESUME,TABLE_1

/OUT

/COM

/COM,------------------VM239RESULTSCOMPARISON--------------------

/COM,

/COM,APPLIEDROTX|TARGET|ANSYS|RATIO/COM,

/COM,RESULTSFORANALYSISWITHALLFLEXIBLEBODIES/COM,

*VWRITE,LABEL

（1）,VALUE（1,1）,VALUE（1,2）,VALUE（1,3）（1X,A12,'',F10.5,'',F10.5,'',1F5.1）/NOPR

/OUT,SCRATCH

RESUME,TABLE_2

/GOPR

/OUT

/COM,

/COM,RESULTSFORANALYSISWITHALLRIGIDBODIES/COM,

*VWRITE,LABEL

（1）,VALUE（1,1）,VALUE（1,2）,VALUE（1,3）（1X,A12,'',F10.5,'',F10.5,'',1F5.1）/COM,----------------------------------------------------------------

/OUT

FINISH

Release12.1-?

2009SASIP,Inc.Allrightsreserved.