Example #1
0
def GH(p, I, J, P, n, L, B, x, y, z, dx, dy, t, a, k, w, d):
    """ Computes the Green's function integral
	numerically, with an increase resolution of n.
	@param p Point to evaluate
	@param I Point to evaluate x index
	@param J Point to evaluate y index
	@param P Reference point
	@param n Number of divisors in each direction to
	discretize each area element. Should be an even value
	@param L Length of the computational domain
	@param B width of the computational domain
	@param x X coordinates of the area elements
	@param y Y coordinates of the area elements
	@param z Z coordinates of the area elements
	@param dx distance between elements in the x direction
	@param dy distance between elements in the y direction
	@param t Simulation time (s)
	@param a List of waves amplitudes
	@param k List of waves k
	@param w List of waves omega
	@param d List of waves lags.
	@return Green's function integral.
	"""
    # Ensure that n is an even value. If n is even
    # we can grant that any point will be placed
    # in p, that can be eventually the same than
    # P, being G and H functions bad defined.
    if n % 2:
        n = n + 1
    # Get the new distance between Green's points
    DX = dx / n
    DY = dy / n
    # Get the coordinates of all the grid points
    # around the evaluation one
    nx = x.shape[0]
    ny = y.shape[1]
    X = zeros((3, 3), dtype=float32)
    Y = zeros((3, 3), dtype=float32)
    Z = zeros((3, 3), dtype=float32)
    for i in range(0, 3):
        for j in range(0, 3):
            X[i, j] = p[0] + (i - 1) * dx
            Y[i, j] = p[1] + (j - 1) * dy
            if ((X[i, j] > -0.5 * L) and (X[i, j] < 0.5 * L)
                    and (Y[i, j] > -0.5 * B) and (Y[i, j] < 0.5 * B)):
                Z[i, j] = z[I - 1 + i, J - 1 + j]
            else:
                Z[i, j] = waves.z(X[i, j], Y[i, j], t, a, k, w, d)
    # Perform spline surface coeffs
    K = zeros((3 * 3), dtype=float32)
    K[0] = Z[0, 0]  # k_{0}
    K[1] = 4 * Z[1, 0] - Z[2, 0] - 3 * Z[0, 0]  # k_{u}
    K[2] = 4 * Z[0, 1] - Z[0, 2] - 3 * Z[0, 0]  # k_{v}
    K[3] = Z[2,2] - 4*Z[2,1] + 3*Z[2,0] + \
              3*Z[0,2] - 12*Z[0,1] + 9*Z[0,0] + \
              -4*Z[1,2] + 16*Z[1,1] - 12*Z[1,0]    # k_{uv}
    K[4] = 2 * Z[2, 0] + 2 * Z[0, 0] - 4 * Z[1, 0]  # k_{uu}
    K[5] = 2 * Z[0, 2] + 2 * Z[0, 0] - 4 * Z[0, 1]  # k_{vv}
    K[6] = -2*Z[2,2] + 8*Z[2,1] - 6*Z[2,0] + \
              -2*Z[0,2] + 8*Z[0,1] - 6*Z[0,0] + \
              4*Z[1,2] - 16*Z[1,1] + 12*Z[1,0]     # k_{uuv}
    K[7] = -2*Z[2,2] + 4*Z[2,1] - 2*Z[2,0] + \
              -6*Z[0,2] + 12*Z[0,1] - 6*Z[0,0] + \
              8*Z[1,2] - 16*Z[1,1] + 8*Z[1,0]      # k_{uuv}
    K[8] = 4*Z[2,2] - 8*Z[2,1] + 4*Z[2,0] + \
              4*Z[0,2] - 8*Z[0,1] + 4*Z[0,0] + \
              -8*Z[1,2] + 16*Z[1,1] - 8*Z[1,0]     # k_{uuvv}
    # Loop around the point p collecting the integral
    G_tot = 0.0
    H_tot = zeros((3), dtype=float32)
    for i in range(0, n):
        for j in range(0, n):
            xx = x[I, J] - 0.5 * dx + (i + 0.5) * DX
            yy = y[I, J] - 0.5 * dy + (j + 0.5) * DY
            # Interpolate z
            u = (xx - X[0, 0]) / (X[2, 0] - X[0, 0])
            v = (yy - Y[0, 0]) / (Y[0, 2] - Y[0, 0])
            zz = K[0] + K[1]*u + K[2]*v + K[3]*u*v + \
                          K[4]*u*u + K[5]*v*v + K[6]*u*u*v + \
                          K[7]*u*v*v + K[8]*u*u*v*v
            p = array([xx, yy, zz])
            G_tot = G_tot + G_val(p, P) * DX * DY
            H_tot = H_tot + H_val(p, P) * DX * DY
    return (G_tot, H_tot)
Example #2
0
	w.append(2*pi/t[i])
	k.append(w[i]**2 / 9.81)
	c.append(w[i]/k[i])

# We can intializate the free surface
x     = zeros((nx,ny),dtype=float32)
y     = zeros((nx,ny),dtype=float32)
z     = zeros((nx,ny),dtype=float32)
gradz = zeros((nx,ny),dtype=float32)
p     = zeros((nx,ny),dtype=float32)
gradp = zeros((nx,ny),dtype=float32)
for i in range(0,nx):
	for j in range(0,ny):
		x[i,j] = -0.5*L + (i+0.5)*drx
		y[i,j] = -0.5*B + (j+0.5)*dry
		z[i,j] = waves.z(x[i,j],y[i,j],0.0, a,k,w,d)
		p[i,j] = waves.phi(x[i,j],y[i,j],z[i,j],0.0, a,k,w,d)
		gradp[i,j] = waves.gradphi(x[i,j],y[i,j],z[i,j],0.0, a,k,w,d)[2]

# We can plot starting data
plot_j = int(ny/2)
fig = figure()
plot(x[:,plot_j], z[:,plot_j], color="blue", linewidth=2.5, linestyle="-", label="z")
plot(x[:,plot_j], gradp[:,plot_j], color="red",  linewidth=2.5, linestyle="-", label="vz")
plot(x[:,plot_j], p[:,plot_j], color="green",  linewidth=2.5, linestyle="-", label="phi")
legend(loc='best')
grid()
show()
close(fig)

# Compute the error in an arbitrary point
Example #3
0
def GH(p,I,J,P,n,L,B,x,y,z,dx,dy,t, a,k,w,d):
	""" Computes the Green's function integral
	numerically, with an increase resolution of n.
	@param p Point to evaluate
	@param I Point to evaluate x index
	@param J Point to evaluate y index
	@param P Reference point
	@param n Number of divisors in each direction to
	discretize each area element. Should be an even value
	@param L Length of the computational domain
	@param B width of the computational domain
	@param x X coordinates of the area elements
	@param y Y coordinates of the area elements
	@param z Z coordinates of the area elements
	@param dx distance between elements in the x direction
	@param dy distance between elements in the y direction
	@param t Simulation time (s)
	@param a List of waves amplitudes
	@param k List of waves k
	@param w List of waves omega
	@param d List of waves lags.
	@return Green's function integral.
	"""
	# Ensure that n is an even value. If n is even
	# we can grant that any point will be placed
	# in p, that can be eventually the same than
	# P, being G and H functions bad defined.
	if n % 2:
		n = n + 1
	# Get the new distance between Green's points
	DX = dx / n
	DY = dy / n
	# Get the coordinates of all the grid points
	# around the evaluation one
	nx = x.shape[0]
	ny = y.shape[1]
	X  = zeros((3,3),dtype=float32)
	Y  = zeros((3,3),dtype=float32)
	Z  = zeros((3,3),dtype=float32)
	for i in range(0,3):
		for j in range(0,3):
			X[i,j] = p[0] + (i-1)*dx
			Y[i,j] = p[1] + (j-1)*dy
			if((X[i,j] > -0.5*L) and (X[i,j] < 0.5*L) and (Y[i,j] > -0.5*B) and (Y[i,j] < 0.5*B)):
				Z[i,j] = z[I-1+i,J-1+j]
			else:
				Z[i,j] = waves.z(X[i,j],Y[i,j],t, a,k,w,d)
	# Perform spline surface coeffs
	K = zeros((3*3),dtype=float32)
	K[0] = Z[0,0]                               # k_{0}
	K[1] = 4*Z[1,0] - Z[2,0] - 3*Z[0,0]         # k_{u}
	K[2] = 4*Z[0,1] - Z[0,2] - 3*Z[0,0]         # k_{v}
	K[3] = Z[2,2] - 4*Z[2,1] + 3*Z[2,0] + \
           3*Z[0,2] - 12*Z[0,1] + 9*Z[0,0] + \
           -4*Z[1,2] + 16*Z[1,1] - 12*Z[1,0]    # k_{uv}
	K[4] = 2*Z[2,0] + 2*Z[0,0] - 4*Z[1,0]       # k_{uu}
	K[5] = 2*Z[0,2] + 2*Z[0,0] - 4*Z[0,1]       # k_{vv}
	K[6] = -2*Z[2,2] + 8*Z[2,1] - 6*Z[2,0] + \
           -2*Z[0,2] + 8*Z[0,1] - 6*Z[0,0] + \
           4*Z[1,2] - 16*Z[1,1] + 12*Z[1,0]     # k_{uuv}
	K[7] = -2*Z[2,2] + 4*Z[2,1] - 2*Z[2,0] + \
           -6*Z[0,2] + 12*Z[0,1] - 6*Z[0,0] + \
           8*Z[1,2] - 16*Z[1,1] + 8*Z[1,0]      # k_{uuv}
	K[8] = 4*Z[2,2] - 8*Z[2,1] + 4*Z[2,0] + \
           4*Z[0,2] - 8*Z[0,1] + 4*Z[0,0] + \
           -8*Z[1,2] + 16*Z[1,1] - 8*Z[1,0]     # k_{uuvv}
	# Loop around the point p collecting the integral
	G_tot = 0.0
	H_tot = zeros((3),dtype=float32)
	for i in range(0,n):
		for j in range(0,n):
			xx = x[I,J] - 0.5*dx + (i+0.5)*DX
			yy = y[I,J] - 0.5*dy + (j+0.5)*DY
			# Interpolate z
			u  = (xx - X[0,0]) / (X[2,0] - X[0,0])
			v  = (yy - Y[0,0]) / (Y[0,2] - Y[0,0])
			zz = K[0] + K[1]*u + K[2]*v + K[3]*u*v + \
                 K[4]*u*u + K[5]*v*v + K[6]*u*u*v + \
                 K[7]*u*v*v + K[8]*u*u*v*v
			p  = array([xx,yy,zz])
			G_tot = G_tot + G_val(p,P)*DX*DY
			H_tot = H_tot + H_val(p,P)*DX*DY
	return (G_tot,H_tot)