代码搜索结果

function [pm,p]=synseis_press(rin) % [pm,p]=synseis_press(r) % % SYNSEIS_PRESS computes a complete 1-D seismogram assuming a pressure % recording. Based of the algorithm in % Waters, "Reflection Se

function p = FTS( kmin, deltak, stabil, r, G, option ) % Fourier transform of SCOOTER Green's function to produce pressure % mbp, Dec. 2003 % G = input k-space spectra, G( nrd, nt ) (destr

function p = HTS( kmin, deltak, stabil, r, G, option ) % Hankel transform of SCOOTER Green's function to produce pressure % mbp, Dec. 2003 % G = input k-space spectra, G( nrd, nt ) (destro

function p = FTS( kmin, deltak, stabil, r, G, option ) % Fourier transform of SCOOTER Green's function to produce pressure % mbp, Dec. 2003 % G = input k-space spectra, G( nrd, nt ) (destr

function p = HTS( kmin, deltak, stabil, r, G, option ) % Hankel transform of SCOOTER Green's function to produce pressure % mbp, Dec. 2003 % G = input k-space spectra, G( nrd, nt ) (destro

function p = HTS( kmin, deltak, stabil, r, G, option ) % Hankel transform of SCOOTER Green's function to produce pressure % mbp, Dec. 2003 % G = input k-space spectra, G( nrd, nt ) (destro

#pragma once #include struct TYPHOONFORCAST { float Latitude; float Longitude; int Pressure; float Wind_Power; float Radius_7; float Radius_10; float Move_Speed; CStrin

function [pm,p]=synseis_press(rin) % [pm,p]=synseis_press(r) % % SYNSEIS_PRESS computes a complete 1-D seismogram assuming a pressure % recording. Based of the algorithm in % Waters, "Reflection Se

claw/clawpack/1d/example2/amr Acoustics equations with pressure pulse initial conditions, solid wall at x=0, outflow at x=1. The density and bulk modulus are specified in setprob.data The code in

#! /bin/sh # Computes a PSV seismogram of a layer over a half space # McMechan and Sun's model. Depth filtering of first breaks and ground-roll. # Geophysics 1991. # output files wfp=./pressure3 wfr