page_eight.m

关于高层建筑强风条件下风压系数计算

function varargout = Page_Eight(varargin)
% Much of this content is automatically generated by the 'guide' template.
% The callbacks for objects from Page_Eight.fig in the 'guide' template are called here.
% The variables affected by a particular callback function are listed just below as
%      global variables.
%
% 1. Building Information
global  Nfloors H_bldg  Fdofs  Ndofs  RNmodes  AnL_A  AnL_B  anal
global  T  T_str  D  D_str  flnMode_shape Mode_shape  omega  h  
%% 2. Wind Tunnel Information
global  Ntaps  flnTaps  flnCp  Vm  freq  ms  Npoints
% 3. Program Inputs
global  flnMem  flDif  flnProps  mem_list  props  WS  WS_str  WD  WD_str
global  MRI  MRI_str  mri  IMdir_A  IMdir_B  intmeth  mem_out
% 4. Loads and Reactions
global  flnMass  DL  SDL  LL
global  flnDLr  flnSDLr  flnLLr  frames_DL  frames_SDL  frames_LL 
global  DLf  SDLf  LLf  WLf
% 5. Wind Effect Selection
global  WLE  Hmp  Hfile  flHfile Vth  rf  tstep  Npointsout  Qs
% 6. Calculations
global  saveBij  flnSaveBij  flnSavemaxBij  flnSaveMRI
% 7. Calculations MRI's
global  AnL_A  AnL_B  IMdir_A  IMdir_B  Hmp  Vth  DLf  SDLf  LLf  WLf
global  Bij_obs_max  Bij_obs_min  Bij_est_max  Bij_est_min  recurrence
% 8. Save/Load Data
global  fnSAVE  flSAVE  flnSAVE  fnLOAD  flLOAD  flnLOAD
% PAGE_EIGHT M-file for Page_Eight.fig
%      PAGE_EIGHT, by itself, creates a new PAGE_EIGHT or raises the existing
%      singleton*.
%
%      H = PAGE_EIGHT returns the handle to a new PAGE_EIGHT or the handle to
%      the existing singleton*.
%
%      PAGE_EIGHT('Property','Value',...) creates a new PAGE_EIGHT using the
%      given property value pairs. Unrecognized properties are passed via
%      varargin to Page_Eight_OpeningFcn.  This calling syntax produces a
%      warning when there is an existing singleton*.
%
%      PAGE_EIGHT('CALLBACK') and PAGE_EIGHT('CALLBACK',hObject,...) call the
%      local function named CALLBACK in PAGE_EIGHT.M with the given input
%      arguments.
%
%      *See GUI Options on GUIDE's Tools menu.  Choose "GUI allows only one
%      instance to run (singleton)".
%
% See also: GUIDE, GUIDATA, GUIHANDLES

% Edit the above text to modify the response to help Page_Eight

% Last Modified by GUIDE v2.5 13-Sep-2005 15:29:42

% Begin initialization code - DO NOT EDIT
gui_Singleton = 1;
gui_State = struct('gui_Name',       mfilename, ...
                   'gui_Singleton',  gui_Singleton, ...
                   'gui_OpeningFcn', @Page_Eight_OpeningFcn, ...
                   'gui_OutputFcn',  @Page_Eight_OutputFcn, ...
                   'gui_LayoutFcn',  [], ...
                   'gui_Callback',   []);
if nargin & isstr(varargin{1})
    gui_State.gui_Callback = str2func(varargin{1});
end

if nargout
    [varargout{1:nargout}] = gui_mainfcn(gui_State, varargin{:});
else
    gui_mainfcn(gui_State, varargin{:});
end
% End initialization code - DO NOT EDIT

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% --- Executes just before Page_Eight is made visible.
function Page_Eight_OpeningFcn(hObject, eventdata, handles, varargin)
global  fnSAVE  flSAVE  flnSAVE  fnLOAD  flLOAD  flnLOAD
handles.output = hObject;
guidata(hObject, handles);
set(handles.Object8_30,'String', flnSAVE )
set(handles.Object8_31,'String', flnLOAD )

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% --- Outputs from this function are returned to the command line.
function varargout = Page_Eight_OutputFcn(hObject, eventdata, handles)
varargout{1} = handles.output;

%%%%%%%%%%%%%%%%%  FUNCTIONS  %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
function axesA_CreateFcn(hObject, eventdata, handles)     % Must Stay!!

function Object8_50_Callback(hObject, eventdata, handles)
g=figure;
set(g,'units','normalized','position',[0.47 0.32 0.35 0.25],'menubar','none','numbertitle',...
    'off','resize','off');
Eight_text=uicontrol(g,'Style','text','Units','Normalized','Position',[0.01 0.01 0.99 0.99],...
    'String',[char(10) 'SAVE Current Input Data Set' char(10) char(10) 'Clicking the SAVE '...
    'button saves all variables with their current values. This allows the current state '...
    'to be loaded at a future date.' char(10) char(10) 'The file location name should end '...
    'with an ''\''. The file name must not have any spaces.'], 'FontName','Garamond',...
    'FontSize',12);

function Object8_51_Callback(hObject, eventdata, handles)
% 1. Building Information
global  Nfloors  H_bldg  Fdofs  Ndofs  RNmodes  AnL_A  AnL_B  anal
global  T  T_str  D  D_str  flnMode_shape  evectors  omega  h  
%% 2. Wind Tunnel Information
global  Ntaps  flnTaps  flnCp  Vm  freq  ms  Npoints
% 3. Program Inputs
global  flnMem  flDif  flnProps  mem_list  props  WS  WS_str  WD  WD_str
global  MRI  MRI_str  mri  IMdir_A  IMdir_B  intmeth  mem_out
% 4. Loads and Reactions
global  flnMass  DL  SDL  LL
global  flnDLr  flnSDLr  flnLLr  frames_DL  frames_SDL  frames_LL 
global  DLf  SDLf  LLf  WLf
% 5. Wind Effect Selection
global  WLE  Hmp  Hfile  flHfile  Vth  rf  tstep  Npointsout  Qs
% 6. Calculations
global  saveBij  flnSaveBij  flnSavemaxBij  flnSaveMRI
% 7. Calculations MRI's
global  AnL_A  AnL_B  IMdir_A  IMdir_B  Hmp  Vth  DLf  SDLf  LLf  WLf
global  Bij_obs_max  Bij_obs_min  Bij_est_max  Bij_est_min  recurrence
% 8. Save/Load Data
global  fnSAVE  flSAVE  flnSAVE  fnLOAD  flLOAD  flnLOAD
handles.output = hObject;
guidata(hObject, handles);

[fnSAVE flSAVE] = uiputfile({'*.mat','Matlab file (*.mat)'},'Location and name');
if fnSAVE==0
else
    flnSAVE = ([flSAVE fnSAVE]);
    flnLOAD = flnSAVE;
    cd (flSAVE);
    eval(['save  '  fnSAVE  '   Nfloors  H_bldg  Fdofs  Ndofs  RNmodes  AnL_A  AnL_B  anal '...
            '  T  T_str  D  D_str  flnMode_shape  evectors  omega  h '...
            '  Ntaps  flnTaps  flnCp  Vm  freq  ms  Npoints  '...
            '  flnMem  flDif  flnProps  mem_list  props  WS  WS_str  WD  WD_str  '...
            '  MRI  MRI_str  mri  IMdir_A  IMdir_B  intmeth  mem_out '...
            '  flnMass  DL  SDL  LL  '...
            '  flnDLr  flnSDLr  flnLLr  frames_DL  frames_SDL  frames_LL '...
            '  DLf  LLf  SDLf  WLf  '...
            '  WLE  Hmp  Hfile  flHfile Vth  rf  tstep  Npointsout  Qs  '...
            '  saveBij  flnSaveBij  flnSavemaxBij  flnSaveMRI  flnSAVE  flnLOAD' ]) ;
end
set(handles.Object8_30,'string', [ flnSAVE ]);

function Object8_52_Callback(hObject, eventdata, handles)
g=figure;
set(g,'units','normalized','position',[0.47 0.5 0.35 0.3],'menubar','none','numbertitle',...
    'off','resize','off');
Eight_text=uicontrol(g,'Style','text','Units','Normalized','Position',[0.01 0.01 0.99 0.99],...
    'String',[char(10) 'LOAD a Saved Input Data Set' char(10) char(10) 'Clicking the LOAD '...
    'button loads a previously saved file that contains values for all the variables.' ...
     char(10) char(10) 'This prevents having to reassign values for all the variables in '...
    'every page.' char(10) char(10) 'The file location name should end with an ''\''. File '...
    'name must not have any spaces.'],'FontName','Garamond','FontSize',12);

function Object8_53_Callback(hObject, eventdata, handles)
% 1. Building Information
global  Nfloors H_bldg  Fdofs  Ndofs  RNmodes  AnL_A  AnL_B  anal
global  T  T_str  D  D_str  flnMode_shape  evectors  omega  h  
%% 2. Wind Tunnel Information
global  Ntaps  flnTaps  flnCp  Vm  freq  ms  Npoints
% 3. Program Inputs
global  flnMem  flDif  flnProps  mem_list  props  WS  WS_str  WD  WD_str
global  MRI  MRI_str  mri  IMdir_A  IMdir_B  intmeth  mem_out
% 4. Loads and Reactions
global  flnMass  DL  SDL  LL
global  flnDLr  flnSDLr  flnLLr  frames_DL  frames_SDL  frames_LL 
global  DLf  SDLf  LLf  WLf
% 5. Wind Effect Selection
global  WLE  Hmp  Hfile  flHfile Vth  rf  tstep  Npointsout  Qs
% 6. Calculations
global  saveBij  flnSaveBij  flnSavemaxBij  flnSaveMRI
% 7. Calculations MRI's
global  AnL_A  AnL_B  IMdir_A  IMdir_B  Hmp  Vth  DLf  SDLf  LLf  WLf
global  Bij_obs_max  Bij_obs_min  Bij_est_max  Bij_est_min  recurrence
% 8. Save/Load Data
global  fnSAVE  flSAVE  flnSAVE  fnLOAD  flLOAD  flnLOAD

[fnLOAD flLOAD] = uigetfile({'*.mat','Matlab file (*.mat)'},'Select building input file');
if isequal(fnLOAD,0) | isequal(flLOAD,0)
else
    flnLOAD = ([flLOAD  fnLOAD]);
    load ([flnLOAD]) ;
end
set(handles.Object8_30,'string', flnSAVE )
set(handles.Object8_31,'string', flnLOAD )

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
function Exit_Button_Callback(hObject, eventdata, handles)
close all