PERFECTLY_PLASTIC.f90 File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	perfectly_plastic (e0, s, de, fy)
	Defines stress-strain relation for EPP SDOF oscillator.

Function/Subroutine Documentation

perfectly_plastic()

subroutine perfectly_plastic	(	real*8	e0,
		real*8	s,
		real*8	de,
		real*8	fy
	)

Defines stress-strain relation for EPP SDOF oscillator.

Author

Aline Herlin

Date

January, 2021

Version

1.0

Parameters

[out]	s	force developed in the SDOF system
[in]	de	variation of the displacement wrt previous time step
[in]	E0	stiffness (force-displ ratio)
[in]	fy	yield strength

Definition at line 29 of file PERFECTLY_PLASTIC.f90.

 
        implicit none
 
        real*8 :: e0, de, s, s0, fy, temp
 
        s0 = s
  if (s0.ge.-fy .and. s0.le.fy) then
    temp = s0 + e0 * de
    if ((temp.ge.-fy).and.(temp.le.fy)) then
      s = temp
    elseif (temp.lt.-fy) then
      s = -fy
    elseif (temp.gt.fy) then
      s = fy
    endif
  endif
 
        return

Referenced by sdof_shear_model().

Here is the caller graph for this function: