- 积分
- 0
- 注册时间
- 2011-12-6
- 仿真币
-
- 最后登录
- 1970-1-1
|
悬赏55仿真币未解决
本帖最后由 yangjiajiaji 于 2016-5-3 16:30 编辑
对于移动的DLOAD垂向载荷的施加正常且效果良好,然而按照同样的方法对移动的UTRACLOAD水平载荷进行施加时,载荷却没按照子程序的要求施加在特定区域区域,且没有随着时间而发生移动,还请高手指教一二,不胜感激!所使用的UTRACLOAD子程序如下:(附件中为相应的inp文件)
!**************************纵向载荷子程序***************************
SUBROUTINE UTRACLOAD(ALPHA,T_USRE,KSTEP,KINC,TIME,NOEL,COORDS,
/ DIRCOS,JLTYP,SNAME)
INCLUDE 'ABA_PARAM.INC'
DIMENSION T_USER(3),TIME(2),COORDS(3),DIRCOS(3)
CHARACTER*80 SNAME
PARAMETER(PY=1027.3d0,V=200.0d0,ZERO=0.0d0,
/ L0=34.0d0,L1=10.0d0,L2=14.0d0)
C
SPEED=V*10000.0d0/36.0d0
DISTANCE=SPEED*TIME(2)
XMAX=L1/2
XMIN=XMAX-L1
ZMAX=L0+DISTANCE
ZMIN=ZMAX-L2
IF(COORDS(3)<=ZMAX.AND.COORDS(3)>=ZMIN
/ .AND.COORDS(1)<=XMAX.AND.COORDS(1)>=XMIN) THEN
ALPHA=0.3*PY
T_USER(1)=0.0
T_USER(2)=0.0
T_USER(3)=-1.0
ELSE
ALPHA=ZERO
T_USER(1)=0.0
T_USER(2)=0.0
T_USER(3)=-1.0
ENDIF
RETURN
END
|
附件: 您需要 登录 才可以下载或查看,没有账号?注册
|