Civil Engineering Reference
In-Depth Information
C0=
CMPLX
(0,0.25)
UW= C0*
Hankel0
(k*r)
CASE
(3) ! Three-dimensional solution
C0=
CMPLX
(0,k*r)
UW= 1/(4.0*k*r*Pi)*EXP(C0)
CASE DEFAULT
UW=0.0
WRITE
(11,*)'Cdim not equal 2 or 3 in Function UW(...)'
END SELECT
END FUNCTION UW
14.3
SCALAR WAVE EQUATION, TIME DOMAIN
For the case where
u=u
(
Q,t
) is not harmonic but transient, the scalar wave equation is
given by
1
'
u
u
F
0
(14.17)
2
c
where overdots mean differentiation with respect to time
t
,
c
is the wave velocity and
F
is a specified body source. The assumption is of an isotropic and homogeneous medium.
For a well posed problem we must have initial and boundary conditions. The initial
conditions at time 0 are specified as
uQ
(
, 0)
u Q
(
) ; (
uQ
, 0)
v Q
(
)
(14.18)
0
0
The condition
uQ vQ
()
() 0
is termed
initial rest
or
quiescent past
,
0
0
14.3.1
Fundamental solutions
A fundamental solution of the differential equation can be found by assuming an
impulsive point source at
P
applied at time
t
W
, in an infinite domain. Therefore we
seek the solution of
1
(14.19)
'
UUPQt
c
G
(
)
G W
(
)
0
2
where a Dirac Delta function has been introduced for the time and space. The Dirac
Delta function for the space has been discussed previously; the one for the time is
defined as
GW
(
t
)
0 when
t
z
W
f
(14.20)
³
GWW
(
t
)
d
1
f
Search WWH ::
Custom Search