pwsd.m

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

function pwsd

global psdgrafX;
global psdgrafY;
global psdN;
global UipsdgrafX;
global UipsdgrafY;
global UipsdN;
global UipsdAmax;
global UipsdAmin;
global UipsdFmax;
global UipsdFmin;
global Uipsdtipo;
global psdaxes;
global cordpsdaxes;
global figpsd;
global psdFmax;
global psdFmin;
global psdAmax;
global psdAmin;

figpsd=figure('NumberTitle','off','Name','Espectros de potencia');
axes('Visible','off');

text('Position',[0.80 0.62],'Units','normalized','Color','r','String','Se馻l X:');
text('Position',[0.80 0.57],'Units','normalized','Color','r','String','Se馻l Y:');
text('Position',[0.80 0.52],'Units','normalized','Color','r','String','No (2^n):');
text('Position',[0.80 0.47],'Units','normalized','Color','r','String','Amax:');
text('Position',[0.80 0.42],'Units','normalized','Color','r','String','Amin:');
text('Position',[0.80 0.37],'Units','normalized','Color','r','String','fmax:');
text('Position',[0.80 0.32],'Units','normalized','Color','r','String','fmin:');
text('Position',[0.80 0.27],'Units','normalized','Color','r','String','Art[X]Log[]');

cordpsdaxes = axes('Position',[0.65 0.04 0.38 0.05], 'Visible', 'off');
psdaxes =  axes('Position',[0.1 0.3 0.6 0.55],'Box','on');

uicontrol(figpsd,'Style','Pushbutton','Position',[0.45 0.07 0.12 0.05],...
         'Units','normalized','Callback','cerrar','String','cerrar');
uicontrol(figpsd,'Style','Pushbutton','Position',[0.45 0.01 0.12 0.05],...
         'Units','normalized','Callback','psdcord','String','Coord');
uicontrol(figpsd,'Style','Pushbutton','Position',[0.20 0.07 0.12 0.05],...
         'Units','normalized','Callback','psdcal','String','calc');
uicontrol(figpsd,'Style','Pushbutton','Position',[0.80 0.8 0.1 0.05],...
         'Units','normalized','Callback','bmp','String','BMP');
uicontrol(figpsd,'Style','Pushbutton','Position',[0.80 0.75 0.1 0.05],...
         'Units','normalized','Callback','psdascii','String','ASCII');
uicontrol(figpsd,'Style','Pushbutton','Position',[0.80 0.70 0.1 0.05],...
         'Units','normalized','Callback','vergraf','String','VGRAF');

psdgrafX = 1;
psdgrafY = [];
psdN    = 4096;
psdFmax=0;
psdFmin=0;
psdAmax=0;
psdAmin=0;

uicontrol(figpsd,'Style','Pushbutton','Position',[0.10 0.15 0.07 0.05],...
         'Units','normalized','Callback','pxxgra','String','Pxx');
uicontrol(figpsd,'Style','Pushbutton','Position',[0.22 0.15 0.07 0.05],...
         'Units','normalized','Callback','pxygra','String','Pxy');
uicontrol(figpsd,'Style','Pushbutton','Position',[0.34 0.15 0.07 0.05],...
         'Units','normalized','Callback','txygra','String','Txy');
uicontrol(figpsd,'Style','Pushbutton','Position',[0.46 0.15 0.07 0.05],...
         'Units','normalized','Callback','fxygra','String','Fxy');
uicontrol(figpsd,'Style','Pushbutton','Position',[0.58 0.15 0.07 0.05],...
         'Units','normalized','Callback','cxygra','String','Cxy');
uicontrol(figpsd,'Style','Pushbutton','Position',[0.70 0.15 0.07 0.05],...
         'Units','normalized','Callback','crgra','String','Rxx');
uicontrol(figpsd,'Style','Pushbutton','Position',[0.82 0.15 0.07 0.05],...
         'Units','normalized','Callback','crxygra','String','Rxy');

UipsdgrafX = uicontrol(figpsd,'Style','edit','Position',[0.90 0.58 0.08 0.05],...
          'Units','normalized','Callback','psdpar',...
          'String','001');
UipsdgrafY = uicontrol(figpsd,'Style','edit','Position',[0.90 0.54 0.08 0.05],...
          'Units','normalized','Callback','psdpar',...
          'String','');
UipsdN     = uicontrol(figpsd,'Style','edit','Position',[0.90 0.50 0.08 0.05],...
          'Units','normalized','Callback','psdpar',...
          'String','012');
UipsdAmax = uicontrol(figpsd,'Style','edit','Position',[0.90 0.46 0.08 0.05],...
          'Units','normalized','Callback','psdpar',...
          'String','000');
UipsdAmin = uicontrol(figpsd,'Style','edit','Position',[0.90 0.42 0.08 0.05],...
          'Units','normalized','Callback','psdpar',...
          'String','000');
UipsdFmax = uicontrol(figpsd,'Style','edit','Position',[0.90 0.38 0.08 0.05],...
          'Units','normalized','Callback','psdpar',...
          'String','000');
UipsdFmin = uicontrol(figpsd,'Style','edit','Position',[0.90 0.34 0.08 0.05],...
          'Units','normalized','Callback','psdpar',...
          'String','000');
Uipsdtipo = uicontrol(figpsd,'Style','radiobutton','Position',[0.90 0.30 0.08 0.05],...
               'Units','normalized','Callback','psdpar');