- 积分
- 13
- 注册时间
- 2004-10-8
- 仿真币
-
- 最后登录
- 1970-1-1
|
发表于 2010-7-19 16:39:19
|
显示全部楼层
来自 美国
本帖最后由 lr00011 于 2010-7-20 09:36 编辑
改了一下,根据4节点双线性的UEL做了一个UVARM。好像uel应力计算错误,但是不影响显示,可能更能说明UVARM通用性。变量说明:
DO I=1,3
SSTRAIN(I)=ZERO
SSTRESS(I)=ZERO
ENDDO
DO I=1,3
DO J=1,8
SSTRAIN(I)=SSTRAIN(I)+B(I,J)*U(J)
ENDDO
ENDDO
CALL F_MATMUL(SSTRAIN,B,3,8,U,8,1)
CALL F_MATMUL(SSTRESS,D,3,3,SSTRAIN,3,1)
DO I=1,3
temporary_array(I)=SSTRAIN(I)
temporary_array(I+4)=SSTRESS(I)
ENDDO
temporary_array(4)=EMU*(SSTRESS(1)+SSTRESS(2))
DO I=1,nsvint
SVARS(nsvint*(Kintk-1)+I)= temporary_array(I)
user_variable(jelem,I,Kintk)=temporary_array(I)
END DO
有兴趣的朋友可以自己去运行玩玩。 |
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有账号?注册
×
评分
-
1
查看全部评分
-
|