二氧化碳缓蚀剂厂家
免费服务热线

Free service

hotline

010-00000000
二氧化碳缓蚀剂厂家
热门搜索:
成功案例
当前位置:首页 > 成功案例

当ANSYS工字梁焊缝初应力例子

发布时间:2021-09-10 23:04:30 阅读: 来源:二氧化碳缓蚀剂厂家

ANSYS工字梁焊缝初应力例子

!建立好模型

…..

/SOLU

!*

ANTYPE,0

/INPUT,'input','txt',

/INPUT,'output1','txt',

!*

ISFILE,READ,1,txt, ,0

SOLVE

=====================

!定义残余应力矩阵

I=1

fy=310e6

!定义单元中心坐标数组,初应力数组

*DI江苏金发科技何以逆市高速增长?“公司坚持‘以市场为龙头、以定单为中心’的经营机制M,EleCenter,ARRAY,NumNode,3,1, , ,

*DIM,EleIS,ARRAY,NumNode,1,1, , ,

*DO,I, 1, NumNode,1

!得到单元中心坐标

*GET,EleCenter(I,1,1),ELEM,I,CENT,X

*GET,EleCenter(I,2,1),ELEM,I,CENT,Y

*GET,EleCenter(I,3,1),ELEM,I,CENT,Z

!焊缝位置在X=1.0 到1.05 之间

*IF,EleCenter(I,1,1),GT,1,THEN

*IF,EleCenter(I,1,1),LT,1.05,THEN

*IF,EleCenter(I,2,1),GT,0.5,THEN

!上翼缘初始应力

EleIS(I,1,1)=-20*fy*EleCenter(I,3,1)**2+0.3*fy

*endif

*IF,EleCenter(I,2,1),LT,0.0,THEN

!下翼缘初始应力

EleIS(I,1,1)=-20*fy*EleCenter(I,3,1)**2+0.3*fy

*endif

!腹板初始应力

*if,EleCenter(I,2,1),GE,0.0,THEN

*IF,ELECENTER(I,2,1),LE,0.5,THEN

EleIS(I,1,1)=4.076*fy*(EleCenter(I,2,1)-0.5)**2

EleIS(Durethan 尼龙6可以替换尼龙66在发动机油底壳上的利用I,1,1)=EleIS(I,1,1)-0.719*fy

*IF,EleIS(I,1,1),LT,-0.3*fy,THEN

ELeIS(I,1,1)=-0.3电磁离合器应吸合*fy

*ENDIF

*ENDIF

<不建议用内部加热的绝热流道p>*ENDIF

*ENDIF

*ENDIF

*ENDDO

===============

!输出应力数值

*CFOPEN,'1','txt',' '

*DO,I,1,3840

!*IF,EleIS(I,1,1),ne,0.,then

*VWRITE,'!'

(A)

*VWRITE,'! Stress for element',

(A,F)

*VWRITE,'!'

(A)

*VWRITE,'eis,',I

(A,F)

P=EleIS(I,1,1)

*VWRITE,P,0.,0.,0.,0.,0.

(E,E,E,E,E,E)

!*ENDIF

*ENDDO

*CFCLOS

商洛订做工服
商洛定制工服
商洛定做工服
商洛工服订制