手机版

用常应变三角形单元解弹性力学平面问题的程序(5)

时间:2025-04-08   来源:未知    
字号:

IF(IL.GE.IDH) THEN

IDL=IL-IDH+1

KS(IDH,IDL)=KS(IDH,IDL)+KE(IH,L)

ENDIF

10 CONTINUE

END

*--------------------------------------------------------

C SUBPROGRAM-7

C CALCULATE NODAL LOAD VECTOR

SUBROUTINE EQUPE(NJ,NE,NPJ,NJ2,T,V,LND,X,Y,PJ,P) DIMENSION LND(NE,3),X(NJ),Y(NJ),PJ(NPJ,3),P(NJ2) DO 10 I=1,NJ2

10 P(I)=0.

DO 20 I=1,NPJ

II=PJ(I,1)

P(2*II-1)=PJ(I,2)

20 P(2*II)=PJ(I,3)

30 IF(V.EQ.0.) GOTO 50

DO 40 IE=1,NE

CALL ATE(IE,NJ,NE,LND,X,Y,AE)

PE=-V*AE*T/3.

DO 40 I=1,3

II=LND(IE,I)

40 P(2*II)=P(2*II)+PE

50 RETURN

END

*---------------------------------------------

C SUBPROGRAM-8

C INTRODUCE BOUNDARY CONDITION

SUBROUTINE INSCD(NS,NW,NJ2,JR,KS,P)

DIMENSION P(NJ2),JR(NS,3)

REAL KS(NJ2,NW)

DO 30 I=1,NS

IR=JR(I,1)

DO 30 J=2,3

IF(JR(I,J).EQ.0) GOTO 30

II=2*IR+J-3

KS(II,1)=1.

DO 10 JJ=2,NW

10 KS(II,JJ)=0.

IF(II.GT.NW) JO=NW

IF(II.LE.NW) JO=II

DO 20 JJ=2,JO

20 KS(II-JJ+1,JJ)=0.

P(II)=0.

用常应变三角形单元解弹性力学平面问题的程序(5).doc 将本文的Word文档下载到电脑,方便复制、编辑、收藏和打印
×
二维码
× 游客快捷下载通道(下载后可以自由复制和排版)
VIP包月下载
特价:29 元/月 原价:99元
低至 0.3 元/份 每月下载150
全站内容免费自由复制
VIP包月下载
特价:29 元/月 原价:99元
低至 0.3 元/份 每月下载150
全站内容免费自由复制
注:下载文档有可能出现无法下载或内容有问题,请联系客服协助您处理。
× 常见问题(客服时间:周一到周五 9:30-18:00)