zeta Function

public pure function zeta(k, x, y, w, t, beta, phase)

单位波幅：\( \zeta = \sin(kx\cos\beta + ky\sin\beta + \omega t + phase) \)

Arguments

Type IntentOptional Attributes Name
real(kind=rk), intent(in) :: k
real(kind=rk), intent(in) :: x
real(kind=rk), intent(in) :: y
real(kind=rk), intent(in) :: w
real(kind=rk), intent(in) :: t
real(kind=rk), intent(in) :: beta
real(kind=rk), intent(in) :: phase

Return Value real(kind=rk)


Contents

Source Code

zeta

Source Code

    real(rk) pure function zeta(k, x, y, w, t, beta, phase)
        real(rk), intent(in) :: k, x, y, w, t, beta, phase

        zeta = sin(k*x*cos(beta) + k*y*sin(beta) + w*t + phase)

    end function zeta