anthaivn2019
Structural
- Jul 4, 2019
- 19
Dear all,
I am new in ABAQUS.
I try to simulate the motion load with the time history using the Vload subroutine.
Effect load = 260KN, moving in x direction with velocity = 0.5 m / s, vibration frequency 40Hz.
I write for example in abaqus:
subroutine vdload (
! Read only (unmodifiable)variables -
1 nblock, ndim, stepTime, totalTime,
2 amplitude, curCoords, velocity, dirCos, jltyp, sname,
! Write only (modifiable) variable -
1 value )
!
include 'vaba_param.inc'
!
dimension curCoords(nblock,ndim), velocity(nblock,ndim),
1 dirCos(nblock,ndim,ndim), value(nblock)
character*80 sname
!----------------------------------------------------------------------
! user parameters
parameter(rPressure = 26000.d0, ! pressure value
* rRadius = 0.1) ! radius
! index
parameter(iX = 1, ! x-coord for coords array
* iY = 2, ! y-coord for coords array
* iZ = 3) ! z-coord for coords array
!
rX0 = 0.d0 ! x-coord start point
rXVel = 0.5 ! velocity in x direction
!
!
!
Amplitude, name=biendo, definition=PERIODIC
1, 251.327412287183, 0., 0.
0., 1.
!
!
! current position (s=x0+V*t)
rXBall = rX0 + (rXVel * totalTime)
xMin = rXBall
xMax = rXBall + rRadius
! loop over points
do i = 1, nblock
! current point position respect to center of the
rPosition = curCoords(i,iX)
!
!
if (rPosition .ge. xMin .and. rPosition .lt. xMax) then
value(i) = rPressure! apply pressure
!
else
value(i) = 0.d0 ! apply zero pressure
endif
end do
!----------------------------------------------------------------------
return
end
Can you help with any errors in the above code?
Many thanks!
I am new in ABAQUS.
I try to simulate the motion load with the time history using the Vload subroutine.
Effect load = 260KN, moving in x direction with velocity = 0.5 m / s, vibration frequency 40Hz.
I write for example in abaqus:
subroutine vdload (
! Read only (unmodifiable)variables -
1 nblock, ndim, stepTime, totalTime,
2 amplitude, curCoords, velocity, dirCos, jltyp, sname,
! Write only (modifiable) variable -
1 value )
!
include 'vaba_param.inc'
!
dimension curCoords(nblock,ndim), velocity(nblock,ndim),
1 dirCos(nblock,ndim,ndim), value(nblock)
character*80 sname
!----------------------------------------------------------------------
! user parameters
parameter(rPressure = 26000.d0, ! pressure value
* rRadius = 0.1) ! radius
! index
parameter(iX = 1, ! x-coord for coords array
* iY = 2, ! y-coord for coords array
* iZ = 3) ! z-coord for coords array
!
rX0 = 0.d0 ! x-coord start point
rXVel = 0.5 ! velocity in x direction
!
!
!
Amplitude, name=biendo, definition=PERIODIC
1, 251.327412287183, 0., 0.
0., 1.
!
!
! current position (s=x0+V*t)
rXBall = rX0 + (rXVel * totalTime)
xMin = rXBall
xMax = rXBall + rRadius
! loop over points
do i = 1, nblock
! current point position respect to center of the
rPosition = curCoords(i,iX)
!
!
if (rPosition .ge. xMin .and. rPosition .lt. xMax) then
value(i) = rPressure! apply pressure
!
else
value(i) = 0.d0 ! apply zero pressure
endif
end do
!----------------------------------------------------------------------
return
end
Can you help with any errors in the above code?
Many thanks!