/TITLE, Single-Point Response Analysis !指定标题 /COM, Structural !选择分析类型为结构分析 /PREP7 !进入前处理器 ET, 1, SHELL181 !定义1号单元类型 KEYOPT,1,3,2 ET, 2, BEAM188 !定义2号单元类型 KEYOPT,2,3,3 MP, EX, 1, 2E11 !定义1号材料属性弹性模量 MP, DENS, 1, 7.8E3 !定义1号材料属性密度 MP, PRXY, 1, 0.3 !定义1号材料属泊松比 SECT,1,SHELL,, !定义1号截面 SECDATA, 2E-3,1,0.0,1 !定义1号参数 SECTYPE, 2, BEAM, RECT, , 0 !定义2号材料截面 SECOFFSET, CENT !定义2号截面属性 SECDATA,0.004,0.004,0,0,0,0,0,0,0,0,0,0 !定义2号截面参数 K, 1, , , , !定义关键点 K, 2, ,0.6, !定义关键点 K, 3, ,1.2 !定义关键点 K, 4, ,1.8 !定义关键点 LSTR, 1, 2 !画直线 LSTR, 2, 3 !画直线 LSTR, 3, 4 !画直线 TYPE, 2 !选择2号单元类型 MAT, 1 !选择1号材料 SECNUM, 2 !选择2号截面 ESYS, 0 !单元坐标系 LESIZE, ALL, , , 6, 1, !控制线分段 LMESH, ALL !所有线划分单元 LGEN, 2, ALL, , , , ,0.5, ,0 !复制线 LGEN, 3, ALL, , , 0.5, , , ,0 !复制线 LSEL, ALL !选择所有的线 A, 2, 6, 14, 10 !通过四点画面 TYPE, 1 !选择1号单元类型 MAT, 1 !选择1号材料 REAL, !选择1号实常数 SECNUM, 1 !选择1号截面 ESYS, 0 !单元坐标系 ALLSEL, BELOW, AREA !选择面 LSEL, U, LOC, X, 0 !选择线 LSEL, U, LOC, X, 0.5 !选择线 LESIZE, ALL, , , 5,1 !控制线分段 AMESH, 1 !面划分单元 AGEN, 2, 1, , ,0.5 !复制面 AGEN, 3, ALL, , , , 0.6 !复制面 ALLSEL, ALL !选择所有 NUMMRG, ALL, , , !合并节点等 NUMCMP, ALL !压缩编号 NSEL, R, LOC, Y, 0 !选择节点 D, ALL, , , , , , ALL !约束位移 ALLSEL, ALL !选择所有 EPLOT !显示单元 FINISH !结束前处理器 /SOLU !进入求解器 ANTYPE, MODAL !选择模态分析 MODOPT, SUBSP,10 !子空间法，提取前10阶模态 SOLVE !求解 FINISH !结束求解器 /SOLU !进入求解器 ANTYPE, SPECTR !选择谱分析 SPOPT,SPRS,10,YES !单点响应谱，计算10阶模态，计算单元应力 SVTYP,3 !选择位移谱 SED, ,1 !选择激励方向Y方向 FREQ,0.5,1.0,2.4,3.8,17,18,20,32 !用于SV-频率表的频率 SV,0.1,1E-3,0.5E-3,0.9E-3,0.8E-3,1.2E-3,0.75E-3,0.86E-3,0.2E-3 !与频率点相联系的谱值 SOLVE !求解 FINISH !结束求解器 /SOLU !进入求解器 ANTYPE, MODAL !选择模态分析 EXPASS, ON !打开模态扩展开关 MXPAND, 10, , ,YES,0.005 !指定扩展模态数，计算单元结果 SOLVE !求解 FINISH !结束求解器 /SOLU !进入求解器 ANTYPE, SPECTR !选择谱分析 SRSS, 0.15, DISP !合并模态，平方和的平方根 SOLVE !求解 FINISH !结束求解器 /POST1 !进入后处理器 SET, LIST !显示计算结果摘要 /INPUT, , mcom !读入mcom文件 PRNSOL, DOF !显示节点位移结果 PRRSOL, ELEM !按单元格式显示单元结果 PRRSOL, F !显示反力结果 FINISH !结束后处理 ! /EXIT, ALL !退出AVSYS并保存所有信息