series.m

德国人开发的地震处理分析软件

clear all;

global numero;
global numerofft;
global numerofil;
global numerores;
global numeroine;
global numeropsd;
global numerotf;
global numerocor;
global numerocorxy;
global numeroaria;
global numeroamp;
global CordgrafX;
global CordgrafY;
global CordfftX;
global CordfftY;
global CordevolX;
global CordevolY;
global CordfilX;
global CordfilY;
global CordpsdX;
global CordpsdY;
global CordresX;
global CordresY;
global CordariaX;
global CordariaY;
global CordampX;
global CordampY;
global Limiteizq;
global Limiteder;
global vacio;
global archant;
global linutilant;
global deltatant;
global factorant;
global decimant;
global ntfgraf;
global nntfgraf;
global archsalant;
global directorio1;
global directorio;

global Simnombre;
global Simdeltat;
global SimAmax;
global SimFc;
global SimFm;
global SimS1;
global SimS2;
global SimS3;
global SimtA1;
global SimtA2;
global SimtAf;
global SimNA;
global SimPA;
global SimtF1i;
global SimtF1f;
global SimtF2i;
global SimtF2f;

archant='';
linutilant=0;
deltatant=0.005;
factorant=400;
archsalant='';
decimant=1;

ntfgraf=[0;0];
nntfgraf=[0;0];
numero=[1];
numerofft=[1];
numerofil=[1];
numerores=[1];
numeroine=[1];
numeropsd=[1];
numerotf=[1];
numerocor=[1];
numerocorxy=[1];
numeroaria=[1];
numeroamp=[1];
CordgrafX=[0];
CordgrafY=[0];
CordresX=[0];
CordresY=[0];
CordineX=[0];
CordineY=[0];
CordineX=[0];
CordineY=[0];
CordariaX=[0];
CordariaY=[0];
CordfftX=[0];
CordfftY=[0];
CordevolX=[0];
CordevolY=[0];
CordfilX=[0];
CordfilY=[0];
CordpsdX=[0];
CordpsdY=[0];
CordampX=[0];
CordampY=[0];
Limiteizq=[0.1];
Limiteder=[0.1];
vacio=['                                                                                                              '];

Simnombre='sismo.dat';
Simdeltat=0.05;
SimAmax=0.2;
SimFc=3.0;
SimFm=6.0;
SimS1=3.0;
SimS2=-3.0;
SimS3=-3.0;
SimtA1=300;
SimtA2=700;
SimtAf=1200;
SimNA=1.0;
SimPA=0.05;
SimtF1i=0.20;
SimtF1f=0.10;
SimtF2i=0.60;
SimtF2f=0.40;

directorio1='d:\matlab\toolbox\series';
directorio=directorio1;

prima;