马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有账号?我要加入
x
! 本程序来源于邢静忠等编著的《ANSYS分析实例与工程应用》,机械工业出版社(2004年) <BR>FINISH <BR>/CLEAR,NOSTART <BR>! (1) 设置工程的选项, 定义几何参数 <BR>/FileName, EX1.1 <BR>/TITLE, EX1.1, DEFLECTION OF A HINGED SUPPORT <BR>*AFUN,DEG <BR>THETA=30 <BR>A=10000 <BR>B=A/2*TAN(THETA) <BR>! (2) 进入前处理模块, 定义节点 <BR>/PREP7 <BR>N,1 <BR>N,2,A/2,-B <BR>N,3,A <BR>! (3) 在前处理模块中,定义单元类型,材料参数和各个单元 <BR>ET,1,LINK1 <BR>R,1,1000 <BR>MP,EX,1,210E3 <BR>E,1,2 <BR>E,2,3 <BR>! (4) 在前处理模块中,定义位移约束 <BR>D,1,ALL,,,3,2 <BR>F,2,FY,-1000 <BR>OUTPR,,1 <BR>FINISH <BR>! (5) 进入求解模块,开始求解 <BR>/SOLU <BR>SOLVE <BR>FINISH <BR>! (6) 进入后处理模块,显示节点位移和杆件内力 <BR>/POST1 <BR>PLDISP,2 <BR>MID_NODE = NODE (A/2,-B,0 ) <BR>*GET,DISP,NODE,MID_NODE,U,Y <BR>LEFT_EL = ENEARN (MID_NODE) <BR>ETABLE,STRS,LS,1 <BR>*GET,STRSS,ELEM,LEFT_EL,ETAB,STRS <BR>! (7) 申明数组,提取计算结果,并比较计算误差 <BR>*DIM,LABEL,CHAR,2 <BR>*DIM,VALUE,,2,3 <BR>LABEL(1) = 'STRS_MPa','DEF_mm' <BR>*VFILL,VALUE(1,1),DATA,1,-0.05498 <BR>*VFILL,VALUE(1,2),DATA,STRSS,DISP <BR>*VFILL,VALUE(1,3),DATA,ABS(STRSS /1 ) ,ABS( DISP /0.05498 ) <BR>/OUT,EX1_1,out <BR>/COM <BR>/COM,------------------- EX1.1 RESULTS COMPARISON --------------------- <BR>/COM, <BR>/COM, | TARGET | ANSYS | RATIO <BR>/COM, <BR>*VWRITE,LABEL(1),VALUE(1,1),VALUE(1,2),VALUE(1,3) <BR>(1X,A8,' ',F10.3,' ',F10.3,' ',1F5.3) <BR>/COM,---------------------------------------------------------------- <BR>/OUT <BR>FINISH <BR>*LIST,EX1_1,out <BR><BR>/POST1 <BR>PLDISP,2 <BR> |