|
参考ansys帮助里的VM172<BR><BR>下面是命令流<BR>/COM,ANSYS MEDIA REL. 10.0 (05/31/2005) REF. VERIF. MANUAL: REL. 10.0<BR>/VERIFY,VM172<BR>/PREP7<BR>smrt,off<BR>JPGPRF,500,100,1 ! MACRO TO SET PREFS FOR JPEG PLOTS<BR>/SHOW,JPEG<BR>/TITLE, VM172, STRESS ANALYSIS OF A LONG, THICK, ISOTROPIC SOLENOID<BR>/COM, MAGNETO-SOLID MECHANICS, MOON, PG. 275, 2D ANALYSIS<BR>ANTYPE,STATIC ! COUPLED FIELD ANALYSIS<BR>ET,1,PLANE13,,,1 ! PLANE13, AZ DOF, AXISYMMETRIC OPTION<BR>ET,2,PLANE13,4,,1 ! PLANE13, AZ,UX,UY DOF, AXISYMMETRIC OPTION<BR>MP,EX,2,10.76E10 ! SOLENOID MODULUS OF ELASTICITY<BR>MP,NUXY,2,.35 ! SOLENOID POISSON RATIO<BR>EMUNIT,MKS ! MKS UNITS<BR>MP,MURX,1,1 ! RELATIVE PERMEABILITY=1.0 <BR>MP,MURX,2,1 <BR>K,1<BR>K,2,1E-2<BR>K,3,2E-2<BR>L,1,2<BR>LESIZE,1,,,5<BR>L,2,3<BR>LESIZE,2,,,20<BR>LGEN,2,ALL,,,,2E-3<BR>A,1,2,5,4 ! AREA 1=AIR<BR>A,2,3,6,5 ! AREA 2=SOLENOID<BR>ASEL,S,AREA,,2<BR>AATT,2,,2<BR>ASEL,ALL<BR>ESIZE,,1<BR>MSHK,2 ! MAPPED AREA MESH IF POSSIBLE<BR>MSHA,0,2D ! USING QUADS <BR>AMESH,ALL<BR>ESEL,S,MAT,,2<BR>NSLE,S<BR>NSEL,R,LOC,Y,2E-3<BR>CP,1,UY,ALL ! COUPLE SOLENOID NODAL UY DISP.<BR>NSEL,S,LOC,X,2E-2 ! SELECT NODES AT OUTER RADIUS<BR>CP,2,AZ,ALL ! COUPLE AZ TO ENSURE FLUX-PARALLEL B.C.<BR>FINISH<BR>/SOLU<BR>NSEL,S,LOC,X,0<BR>D,ALL,AZ,0 ! SET FLUX PARALLEL B.C.<BR>ESEL,S,MAT,,2<BR>BFE,ALL,JS,,,,1E+6 ! APPLY CURRENT DENSITY LOAD<BR>NSLE<BR>NSEL,R,LOC,Y,0<BR>DSYM,SYMM,2 ! APPLY STRUCTURAL SYMMETRY B.C.<BR>NSEL,ALL<BR>ESEL,ALL<BR>KBC,1 ! STEP BOUNDARY CONDITIONS<BR>OUTRES,,LAST<BR>SOLVE<BR>FINISH<BR>/POST1<BR>SET,1<BR>ESEL,S,MAT,,2 ! SELECT SOLENOID NODES AND ELEMENTS <BR>NSLE<BR>/AXLAB,X,DISTANCE<BR>/AXLAB,Y,STRESS - 2-D MODEL<BR>/GTHK,AXIS,2<BR>!/YRANGE,0,150<BR>PATH,COIL1,2,,48 ! DEFINE PATH WITH NAME = "COIL1"<BR>PPATH,1,2 ! DEFINE PATH POINTS BY NODE<BR>PPATH,2,13<BR>PDEF,SZ,S,Z <BR>PDEF,BY,B,Y<BR>!/YRANGE,500,1500<BR>PLPATH,SZ ! DISPLAY CIRCUM STRESS THRU SOLENOID<BR>!/YRANGE,0,125<BR>/AXLAB,Y,FLUX DENSITY - 2-D MODEL<BR>PLPATH,BY ! DISPLAY AXIAL FLUX DENSITY THRU SOLENOID<BR>NSEL,S,LOC,X,1e-2<BR>NSEL,A,LOC,X,1.3e-2<BR>NSEL,A,LOC,X,1.7e-2<BR>PRNSOL,B,COMP ! PRINT AXIAL FLUX DENSITY<BR>PRNSOL,S,COMP ! PRINT COMPONENT STRESSES<BR>*GET,B1,NODE,7,B,SUM<BR>*GET,B2,NODE,19,B,SUM<BR>*GET,B3,NODE,27,B,SUM<BR>*GET,S1,NODE,7,S,Z<BR>*GET,S2,NODE,19,S,Z<BR>*GET,S3,NODE,27,S,Z<BR>*DIM,LABEL,CHAR,6,2<BR>*DIM,VALUE,,6,3<BR>LABEL(1,1) = 'B, T ','B, T ','B, T ','PRS ','PRS ','PRS '<BR>LABEL(1,2) = 'R=1E-2','R=1.3E-2','R=1.7E-2','R=1E-2','R=1.3E-2','R=1.7E-2'<BR>*VFILL,VALUE(1,1),DATA,0.01257,8.796E-3,3.77E-3,146.7,97.79,62.44<BR>*VFILL,VALUE(1,2),DATA,B1,B2,B3,S1,S2,S3<BR>V1=B1/0.01257<BR>V2=B2/8.796E-3<BR>V3=B3/3.77E-3<BR>V4=S1/146.7<BR>V5=S2/97.79<BR>V6=S3/62.44<BR>*VFILL,VALUE(1,3),DATA,V1,V2,V3,V4,V5,V6<BR>SAVE,TABLE_1<BR>FINISH<BR>/CLEAR,NOSTART<BR>JPGPRF,500,100,1 ! MACRO TO SET PREFS FOR JPEG PLOTS<BR>/SHOW,JPEG<BR><BR>/PREP7<BR>smrt,off<BR>/TITLE, VM172, STRESS ANALYSIS OF A LONG, THICK, ISOTROPIC SOLENOID<BR>/COM, MAGNETO-SOLID MECHANICS, MOON, PG. 275, 3D ANALYSIS<BR>ANTYPE,STATIC ! COUPLED FIELD ANALYSIS<BR>ET,1,62 ! MAGNETO-STRUCTURAL ELEMENT<BR>ET,2,97 ! MAGNETIC FIELD ELEMENT<BR>ET,3,47 ! INFINITE ELEMENT<BR>MP,EX,2,10.76E10 ! SOLENOID MODULUS OF ELASTICITY<BR>MP,NUXY,2,.35 ! SOLENOID POISSON RATIO<BR>EMUNIT,MKS ! MKS UNITS<BR>MP,MURX,1,1 ! RELATIVE PERMEABILITY=1.0 <BR>MP,MURX,2,1 <BR>K,1 ! CREATE 2-D MESH<BR>K,2,1E-2<BR>K,3,2E-2<BR>L,1,2<BR>LESIZE,1,,,5<BR>L,2,3<BR>LESIZE,2,,,20<BR>LGEN,2,ALL,,,,,2E-3<BR>A,1,2,5,4 ! AREA 1=AIR<BR>A,2,3,6,5 ! AREA 2=SOLENOID<BR>ESIZE,,1<BR>MSHK,2 ! MAPPED AREA MESH IF POSSIBLE<BR>MSHA,0,2D ! USING QUADS<BR>TYPE,3 ! MESH WITH INFIN47<BR>AMESH,ALL<BR>TYPE,2 ! ASSIGN 3-D ELEMENT TYPE<BR>MAT,1<BR>ESIZE,,2 ! TWO DIVISIONS FOR SOLID ELEMENTS<BR>VROTAT,1,,,,,,1,4,10,1 ! ROTATE 10 DEGREES<BR>TYPE,1<BR>MAT,2<BR>VROTAT,2,,,,,,1,4,10,1<BR>NUMMRG,NODE ! MERGE COINCIDENT NODES<BR>ACLEAR,1,2 ! CLEAR INFIN47 ELEMENT MESH<BR>CSYS,1<BR>NROTAT,ALL ! ROTATE NODES TO CYLINDRICAL COORDINATES<BR>ESEL,S,MAT,,2<BR>NSLE<BR>NSEL,R,LOC,Z,2E-3<BR>CP,1,UZ,ALL ! COUPLE SOLENOID NODAL UZ DISP.<BR>ESEL,ALL<BR>NSEL,S,LOC,X,2E-2 ! SELECT NODES AT OUTER RADIUS<BR>CP,2,AY,ALL ! COUPLE AY TO ENSURE FLUX-PARALLEL COND.<BR>FINISH<BR>/SOLU<BR>NSEL,S,LOC,X,0<BR>D,ALL,AX,0,,,,AY,AZ ! FLUX-PARALLEL ALONG SOLENOID AXIS<BR>ESEL,S,MAT,,2<BR>BFE,ALL,JS,,,1E+6 ! APPLY CURRENT DENSITY LOAD<BR>NSLE,S<BR>NSEL,R,LOC,Z,0<BR>D,ALL,UZ,0 ! APPLY STRUCTURAL SYMMETRY B.C. TO SOLENOID<BR>NSLE,S<BR>NSEL,R,LOC,Y,0<BR>D,ALL,UY,0<BR>NSLE,S<BR>NSEL,R,LOC,Y,10<BR>D,ALL,UY,0<BR>NSEL,ALL<BR>ESEL,ALL<BR>D,ALL,AX,0,,,,AZ ! ONLY AY REQUIRED FOR AXISYM. FIELD<BR>KBC,1 ! STEP BOUNDARY CONDITIONS<BR>OUTRES,,LAST<BR>CNVTOL,F,1E-3 ! DEFINE FORCE CONVERGENCE VALUE <BR>SOLVE<BR>FINISH<BR>/POST1<BR>SET,LAST<BR>ESEL,S,MAT,,2 ! SELECT SOLENOID NODES AND ELEMENTS <BR>NSLE<BR>/AXLAB,X,DISTANCE<BR>/AXLAB,Y,STRESS - 3-D MODEL<BR>/GTHK,AXIS,2<BR>PATH,COIL2,2,,48 ! DEFINE PATH WITH NAME = "COIL2"<BR>PPATH,1,2<BR>PPATH,2,13<BR>RSYS,1<BR>PDEF,SY,S,Y <BR>PDEF,BZ,B,Z<BR>!/YRANGE,500,1500<BR>PLPATH,SY ! DISPLAY CIRCUM STRESS THRU SOLENOID<BR>!/YRANGE,0,125<BR>/AXLAB,Y,FLUX DENSITY - 3-D MODEL<BR>PLPATH,BZ ! DISPLAY AXIAL FLUX DENSITY THRU SOLENOID<BR>NSEL,S,LOC,X,1E-2<BR>NSEL,A,LOC,X,1.3E-2<BR>NSEL,A,LOC,X,1.7E-2<BR>NSEL,R,LOC,Y,0<BR>PRNSOL,B,COMP ! PRINT AXIAL FLUX DENSITY<BR>PRNSOL,S,COMP ! PRINT COMPONENT STRESSES<BR>*GET,B1,NODE,7,B,SUM<BR>*GET,B2,NODE,19,B,SUM<BR>*GET,B3,NODE,27,B,SUM<BR>*GET,S1,NODE,7,S,Y<BR>*GET,S2,NODE,19,S,Y<BR>*GET,S3,NODE,27,S,Y<BR>*DIM,LABEL,CHAR,6,2<BR>*DIM,VALUE,,6,3<BR>LABEL(1,1) = 'B, T ','B, T ','B, T ','PRS ','PRS ','PRS '<BR>LABEL(1,2) = 'R=1E-2','R=1.3E-2','R=1.7E-2','R=1E-2','R=1.3E-2','R=1.7E-2'<BR>*VFILL,VALUE(1,1),DATA,0.01257,8.796E-3,3.77E-3,146.7,97.79,62.44<BR>*VFILL,VALUE(1,2),DATA,B1,B2,B3,S1,S2,S3<BR>V1=B1/0.01257<BR>V2=B2/8.796E-3<BR>V3=B3/3.77E-3<BR>V4=S1/146.7<BR>V5=S2/97.79<BR>V6=S3/62.44<BR>*VFILL,VALUE(1,3),DATA,V1,V2,V3,V4,V5,V6<BR>SAVE,TABLE_2<BR>RESUME,TABLE_1<BR>/COM<BR>/OUT,vm172,vrt<BR>/COM,------------------- VM172 RESULTS COMPARISON --------------<BR>/COM,<BR>/COM, | TARGET | ANSYS | RATIO<BR>/COM,<BR>/COM,PRESSURES HAVE UNITS OF N/M**2<BR>/COM,<BR>/COM,RESULTS USING PLANE13:<BR>*VWRITE,LABEL(1,1),LABEL(1,2),VALUE(1,1),VALUE(1,2),VALUE(1,3)<BR>(1X,A8,A8,' ',e12.5,' ',e12.5,' ',1F5.3)<BR>/NOPR<BR>RESUME,TABLE_2<BR>/GOPR<BR>/COM,<BR>/COM,RESULTS USING SOLID62/97:<BR>*VWRITE,LABEL(1,1),LABEL(1,2),VALUE(1,1),VALUE(1,2),VALUE(1,3)<BR>(1X,A8,A8,' ',e12.5,' ',e12.5,' ',1F5.3)<BR>/COM,-----------------------------------------------------------<BR>/COM,<BR>/OUT<BR>FINISH<BR>*LIST,vm172,vrt<BR><BR>/DELETE,TABLE_1<BR>/DELETE,TABLE_2<BR> |
发表于 2006-5-15 19:42
提升卡
变色卡
显身卡
楼主