respar.m

来自「德国人开发的地震处理分析软件」· M 代码 · 共 35 行

function respar

global resgraf;
global resdt;
global restf;
global resXi;
global UiresAmax;
global UiresAmin;
global UiresTmax;
global UiresTmin;
global Uiresgraf;
global Uiresdt;
global Uirestf;
global UiresXi;
global Uirestipo;
global Uiresnorm;
global resAmax;
global resAmin;
global resTmax;
global resTmin;
global restipo;
global resnorm;

resgraf = str2num(get(Uiresgraf, 'string'));
resdt = str2num(get(Uiresdt, 'string'));
restf = str2num(get(Uirestf, 'string'));
resXi = str2num(get(UiresXi, 'string'));
resAmax = str2num(get(UiresAmax, 'string'));
resAmin = str2num(get(UiresAmin, 'string'));
resTmax = str2num(get(UiresTmax, 'string'));
resTmin = str2num(get(UiresTmin, 'string'));
restipo = get (Uirestipo, 'value');
resnorm = get (Uiresnorm, 'value');