加载命令流的含义

浏览:80245 回答:1
下面这些命令流是什么意思,最好写的详细点,重点讲解红色字体,谢谢!!! /SOLU
TIMINT,ON
ANTYPE,4
TRNOPT,FULL
OUTRES,ALL,NONE
OUTRES,NSOL,LAST
OUTRES,STRS,LAST
KBC,0
AUTOTS,ON
ALPHAD,0.0054
!
设定质量阻尼系数(修改)

BETAD,0.0734
!
设定刚度阻尼系数(修改)
*DIM,Al,ARRAY,11
*DIM,Ad,ARRAY,11
*DIM,Lb,ARRAY,3000,11
*DIM,Db,ARRAY,3000,11
*DIM,Mb,ARRAY,3000,11
*DIM,MMx,ARRAY,3000,11
*DIM,Nod,ARRAY,11
*DIM,FFy,ARRAY,3000,11
*DIM,FFz,ARRAY,3000,11
*DIM,Kn,ARRAY,11
*DIM,v,ARRAY,3000,11
*DIM,w,ARRAY,3000,11
Al(1)=1771.2,1623.6,2164.8,2214,2214,1279.2,2214,2214,2164.8,1623.6,1771.2
Ad(1)=162,148.5,198,202.5,202.5,117,202.5,202.5,198,148.5,162
Kn(1)=50,104,158,218,278,324,371,430,490,550,598
Nod(1)=1453,2990,1723,1873,2023,2143,3858,2413,2563,3011,2833
*SET,Ro,1.225
*SET,U,20
*SET,B,32.8
*SET,Cl,0.4885
*SET,Cd,1.5129
*SET,Cm,-0.1526
*SET,Cll,0.4207
*SET,Cdl,0.0374
*SET,Cml,-0.0316
*DO,T,1,3000,1

TIME,0.1*T

*DO,n,1,11,1

*SET,v(T,n),FSX(T,n)

*SET,w(T,n),FSY(T,n)

Lb1=Ro*U*v(T,n)*Al(n)*Cl

Lb2=1/2*Ro*U*w(T,n)*(Ad(n)*Cd+Al(n)*Cll)

Lb(T,n)=Lb1+Lb2

Db1=Ro*U*v(T,n)*Ad(n)*Cd

Db2=1/2*Ro*U*w(T,n)*(Ad(n)*Cdl-Al(n)*Cl)

Db(T,n)=Db1+Db2

Mb1=Ro*B*U*v(T,n)*Al(n)*Cm

Mb2=1/2*Ro*B*U*w(T,n)*Al(n)*Cml

Mb(T,n)=Mb1+Mb2

FFy(T,n)=Lb(T,n)*cos(0/180*3.14)+Db(T,n)*sin(0/180*3.14)

FFz(T,n)=Db(T,n)*cos(0/180*3.14)-Lb(T,n)*sin(0/180*3.14)

MMx(T,n)=Mb(T,n)

!***********
选择节点并施加风载荷 *********

F,Nod(n),FY,FFy(T,n)
!
施加所选节点的风载荷


F,Kn(n),FX,FFz(T,n)

*ENDDO

NSUB,1
!
指定载荷子步数

SOLVE
!
求解
*ENDDO
SAVE
FINI

邀请回答 我来回答

全部回答

(1)
默认 最新
ANSYSUser1999
1. *DIM,Al,ARRAY,11 定义一个名为Al的数组,数组元素为11个
2. Al(1)=1771.2,1623.6,2164.8,2214,2214,1279.2,2214,2214,2164.8,1623.6,1771.2
定义这个Al数组11个元素的数值
3. 其余的红色字体句子是按给出的公式计算
2013年1月4日
评论 点赞

没解决?试试专家一对一服务

换一批
    App下载
    技术邻APP
    工程师必备
    • 项目客服
    • 培训客服
    • 平台客服

    TOP