找回密码
 注册
Simdroid-非首页
查看: 120|回复: 0

[子程序] UEL子程序用户手册算例

[复制链接]
发表于 2017-9-15 09:06:18 | 显示全部楼层 |阅读模式 来自 湖北武汉
下面是abaqus的用户手册中的算例,对其中的LFLAGS(3).EQ.1等等一些东西不是很理解,虽然用户手册中有详细讲解,但感觉里面讲的挺深奥的,就想问下大家如何通俗的理解呢?不胜感激!IF (LFLAGS(3).EQ.1) THENC       Normal incrementation        IF (LFLAGS(1).EQ.1 .OR. LFLAGS(1).EQ.2) THENC         *STATIC          AMATRX(1,1) =  AK            AMATRX(4,4) =  AK            AMATRX(1,4) = -AK            AMATRX(4,1) = -AK          IF (LFLAGS(4).NE.0) THEN            FORCE  = AK*(U(4)-U(1))            DFORCE = AK*(DU(4,1)-DU(1,1))            SRESID(1) = -DFORCE            SRESID(4) =  DFORCE            RHS(1,1) = RHS(1,1)-SRESID(1)            RHS(4,1) = RHS(4,1)-SRESID(4)            ENERGY(2) = HALF*FORCE*(DU(4,1)-DU(1,1))     *           + HALF*DFORCE*(U(4)-U(1))     *           + HALF*DFORCE*(DU(4,1)-DU(1,1))
您需要登录后才可以回帖 登录 | 注册

本版积分规则

Archiver|小黑屋|联系我们|仿真互动网 ( 京ICP备15048925号-7 )

GMT+8, 2024-3-30 07:29 , Processed in 0.026971 second(s), 11 queries , Gzip On, MemCache On.

Powered by Discuz! X3.5 Licensed

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表