- 积分
- 0
- 注册时间
- 2004-7-14
- 仿真币
-
- 最后登录
- 1970-1-1
|
发表于 2010-5-29 20:57:01
|
显示全部楼层
来自 浙江杭州
这次通过了,不过我采取下面的形式,对FOR程序进行了修改,获得的单元刚度矩阵跟你的不一样,请给出你的建议。
Gauss(1,1)=SQRT(1/3.0D0)
Gauss(1,2)=-SQRT(1/3.0D0)
Gauss(2,1)=SQRT(1/3.0D0)
Gauss(2,2)=-SQRT(1/3.0D0)
DO kk1=1,2
DO,kk2=1,2
xi=Gauss(kk1,kk2)
eta=Gauss(kk1,kk2)
C
DO I=1,2
DO J=1,NNODE
BN(I,J)=ZERO
ENDDO
ENDDO
C
BN(1,1)=0.25D0*(-1+eta)
BN(1,2)=0.25D0*(1-eta)
BN(1,3)=0.25D0*(1+eta)
BN(1,4)=0.25D0*(-1-eta)
BN(2,1)=0.25D0*(-1+xi)
BN(2,2)=0.25D0*(-1-xi)
BN(2,3)=0.25D0*(1+xi)
BN(2,4)=0.25D0*(1-xi)
************************
ENDDO
ENDDO |
|