- 积分
- 0
- 注册时间
- 2017-5-31
- 仿真币
-
- 最后登录
- 1970-1-1
|
发表于 2018-5-25 16:17:31
|
显示全部楼层
来自 重庆
C:\Users\Administrator\Desktop我的是这种,一条轮迹带上写不出来场表达式下面是我想到的方法 但是实际效果出现拉应力了
C User subroutine DLOAD
SUBROUTINE DLOAD(F,KSTEP,KINC,TIME,NOEL,NPT,LAYER,KSPT,COORDS,JLTYP,SNAME)
c
INCLUDE 'ABA_PARAM.INC'
c
DIMENSION TIME(2), COORDS (3)
character*80 sname
VEL=22.2
PLENGTH=0.167
YSTART=-4
YLEFT=YSTART+VEL*TIME(1)
YRIGHT=YLEFT+PLENGTH
if(Coords(2).le.YRIGHT.and.Coords(2).ge.YLEFT) then
F=1.1e6*sin(fabs(Coords(2)-YLEFT)*2*3.141592654/0.334)
else
F=0
end if
return
end
|
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有账号?注册
×
|