Shock
response
spectra
domains
49
Procedure
for the
calculation
of a
point
of the SRS at
frequency
f
0
(GFA-
BASIC)
From
F. W. Cox
[COX
83]
PROCEDURE S_R_S(npts_signal%,wO,Q_factor,dt,VAR xppO)
LOCAL
i%,a,a1 ,a2,b,b1,b2,c,c1,c2,d,d2,e,s,u,v,wdt,w02,w02dt
LOCAL
p1d,p2d,p1a,p2a,pd,pa,wtd,wta,sd,cd,ud,vd,ed,sa,ca,ua,va,ea
'
npts_signal%
=
Number
of
points
of
definition
of the
shock versus time
'
xpp(npts_signal%)
=
Array
of the
amplitudes
of the
shock pulse
' dt=
Temporal step
'
wO=
Undamped natural pulsation
(2*PI*fO)
'
Initialization
and
preparation
of
calculations
psi=l/2/Q_factor
//
Damping ratio
w=wO*SQR(l-psi
A
2)
//
Damped natural pulsation
d=2*psi*wO
d2=d/2
wdt=w*dt
e=EXP(-d2*dt)
s=e*SIN(wdt)
c=e*COS(wdt)
u=w*c-d2*s
v=-w*s-d2*c
w02=wO
A
2
w02dt=w02*dt
1
Calculation
of the
primary
SRS
'
Initialization
of
the
parameters
srcajprim_min=lE100
//
Negative primary
SRS
(absolute acceleration)
srca_prim_max=-srcajprim_mm
//
Positive primary
SRS
(absolute acceleration)
srcd_prim_min=srca_prim_min
//
Negative primary
SRS
(relative displacement)
srcdjprim_max=-srcd_prim_min
//
Positive primary
SRS
(relative displacement)
displacement_z=0
//
Relative displacement
of the
mass under
the
shock
velocity_zp=0
//
Relative velocity
of the
mass
'
Calculation
of
the
sup.
and
inf.
responses
during
the
shock
at the frequency fO
FOR
i%=2
TO
npts_signal%
a=(xpp(i%-1
)-xpp(i%))/w02dt
b=(-xpp(i%-1
)-d*a)/w02
c2=displacement_z-b
c 1
=(d2*c2-t-velocity_zp-a)/w
displacement_z=s*cl+c*c2+a*dt+b
velocity_zp=u
* c1 +
v*
c2+a
responsedjprim=-displacement_z*w02
//
Relative displac. during shock
x
square
of the
pulsation