资源描述：
《单点响应谱分析命令流》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。
1、/FILNAME,Building,1！定义工作文件名。/TITLE,BuildingAnalysis！定义工作标题。/PREP7!定义单元。ET,1,SHELL63ET,2,BEAM188!定义材料属性。MPTEMP,,,,,,,,MPTEMP,1,0MPDATA,EX,1,,2.1e5MPDATA,PRXY,1,,0.3MPTEMP,,,,,,,,MPTEMP,1,0MPDATA,DENS,1,,7.9e-6!定义壳单元的实常数100。R,100,1,,,,,,RMORE,,,,RMORERMORE,,!定义杆件截面■200。SECTYPE,200,BEAM,RECT,,0S
2、ECOFFSET,CENTSECDATA,4,4,0,0,0,0,0,0,0,0!建立几何模型。K,1,-100,,100,K,2,100,,100,K,3,100,,-100,K,4,-100,,-100,K,5,-100,150,100,K,6,100,150,100,K,7,100,150,-100,K,8,-100,150,-100,K,9,-100,300,100,K,10,100,300,100,K,11,100,300,-100,K,12,-100,300,-100,K,13,-100,450,100,K,14,100,450,100,K,15,100,450,-1
3、00,K,16,-100,450,-100,!生成平板。FLST,2,4,3FITEM,2,5FITEM,2,6FITEM,2,7FITEM,2,8A,P51XFLST,2,4,3FITEM,2,9FITEM,2,10FITEM,2,11FITEM,2,12A,P51XFLST,2,4,3FITEM,2,13FITEM,2,14FITEM,2,15FITEM,2,16A,P51X!生成立柱。LSTR,1,5LSTR,5,9LSTR,9,13LSTR,2,6LSTR,6,10LSTR,10,14LSTR,3,7LSTR,7,11LSTR,11,15LSTR,4,8LSTR,8,12
4、LSTR,12,16!以上完成几何模型。!以下进行网格划分。FLST,5,24,4,ORDE,2!定义单元大小。FITEM,5,1FITEM,5,-24CM,_Y,LINELSEL,,,,P51XCM,_Y1,LINECMSEL,,_YLESIZE,_Y1,20,,,,,,,1!分配、划分平板结构。TYPE,1!分配、划分平板结构。MAT,1REAL,100ESYS,0SECNUM,,MSHAPE,0,2DMSHKEY,0FLST,5,3,5,ORDE,2FITEM,5,1FITEM,5,-3CM,_Y,AREAASEL,,,,P51XCM,_Y1,AREACHKMSH,'ARE
5、A'CMSEL,S,_YAMESH,_Y1CMDELE,_YCMDELE,_Y1CMDELE,_Y2!分配、划分立柱结构。TYPE,2MAT,1REAL,ESYS,0SECNUM,200FLST,2,12,4,ORDE,2FITEM,2,13FITEM,2,-24LMESH,P51X!分析类型施加载荷并求解。FINISH/SOL！进入ANSYS求解器。ANTYPE,2MSAVE,0MODOPT,LANB,40！进入ANSYS求解器。EQSLV,SPARMXPAND,0,,,1LUMPM,0PSTRES,0MODOPT,LANB,40,0,0,,OFF!施加约束。FLST,2,4,
6、3,ORDE,2FITEM,2,1FITEM,2,-4/GODK,P51X,,,,0,ALL,,,,,,!求解。FINISH/SOL/STATUS,SOLUSOLVE!以下进入单点响应谱分析模式。FINISH/SOL!重新进入ANSYS求解器。ANTYPE,8SPOPT,SPRS,10,1!指定单点响应谱分析。!设置单点响应谱。SVTYP,3,1,!定义位移载荷。SED,0,1,0,!定义激励方向为Y向。ROCK,0,0,0,0,0,0,FREQ,0.2,0.8,1.1,1.5,2,2.3,2.5,3,3.5！用于SV－频率表的频率SV,1,1,0.5,0.9,0.8,1.2,0
7、.75,0.86,0.2,0.86！与频率点相联系的谱值!单点响应谱分析求解。/STATUS,SOLUSOLVE!扩展模态。FINISH!重新进入ANSYS求解器。/SOLUTIONANTYPE,2EXPASS,1MXPAND,10,0,0,1,0.015,!扩展模态求解。/STATUS,SOLUSOLVE!模态叠加。FINISH!重新进入ANSYS求解器。/SOLUTIONANTYPE,8SPOPT,SPRS,10,0SRSS,0.015,DISP!模态叠加求解。/STATUS
