page_five.m

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

function varargout = Page_Five(varargin)
global  WLE  Hmp  Hfile  Vth  rf  tstep  Npointsout
global  Qs  flHfile
% Much of this content is automatically generated by the 'guide' template.
% The callbacks for objects from Page_Five.fig in the 'guide' template are called here.
% The variables affected by a particular callback function are listed just below as
%      global variables.
%
% PAGE_FIVE M-file for Page_Five.fig
%      PAGE_FIVE, by itself, creates a new PAGE_FIVE or raises the existing
%      singleton*.
%
%      H = PAGE_FIVE returns the handle to a new PAGE_FIVE or the handle to
%      the existing singleton*.
%
%      PAGE_FIVE('Property','Value',...) creates a new PAGE_FIVE using the
%      given property value pairs. Unrecognized properties are passed via
%      varargin to Page_Five_OpeningFcn.  This calling syntax produces a
%      warning when there is an existing singleton*.
%
%      PAGE_FIVE('CALLBACK') and PAGE_FIVE('CALLBACK',hObject,...) call the
%      local function named CALLBACK in PAGE_FIVE.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_Five

% Last Modified by GUIDE v2.5 30-Jan-2006 14:54:08

% Begin initialization code - DO NOT EDIT
gui_Singleton = 1;
gui_State = struct('gui_Name',       mfilename, ...
                   'gui_Singleton',  gui_Singleton, ...
                   'gui_OpeningFcn', @Page_Five_OpeningFcn, ...
                   'gui_OutputFcn',  @Page_Five_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_Five is made visible.
function Page_Five_OpeningFcn(hObject, eventdata, handles, varargin)
global  WLE  Hmp  Hfile  Vth  rf  tstep  Npointsout
global  Qs  flHfile
handles.output = hObject;
guidata(hObject, handles);
set(handles.Object5_30,'value',WLE)
set(handles.Object5_31,'string',num2str(Hmp) )
set(handles.Object5_32,'string',num2str(Hfile) )
set(handles.Object5_33,'string',flHfile )
set(handles.Object5_36,'string',num2str(Vth) )
set(handles.Object5_41,'value',Qs)

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

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

function Object5_30_Callback(hObject, eventdata, handles)
global WLE
g=figure;
set(g,'units','normalized','position',[0.30 0.57 0.35 0.08],'menubar','none','numbertitle',...
    'off','resize','off');
Five_text=uicontrol(g,'Style','text','Units','Normalized','Position',[0.01 0.01 0.99 0.99],...
    'String',[char(10) 'Must select one wind effect!' ],'FontName','Garamond','FontSize',12);
set(handles.Object5_30,'value',1)
WLE         = get(handles.Object5_30,'value');
if WLE == 1
    Note = 'Interaction Formula Selected as Wind Effect (Bij)'
else if WLE ==0
           'No Wind Effect (Bij) Selected!'
end;end

function Object5_31_Callback(hObject, eventdata, handles)
global  Hmp Hfile
Hmp_str  = get(handles.Object5_31,'string');
Hmp      = str2num(Hmp_str);                % Hurricane milepost corresponding to NIST database
Hfile    = (Hmp - 50) / 50;                 % Associated hurricane file no. for database lookup
set(handles.Object5_32,'string',Hfile);

function Object5_36_Callback(hObject, eventdata, handles)
global  Vth
Vth_str  = get(handles.Object5_36,'string');
Vth      = str2num(Vth_str);                % Minimum threshold of wind speeds (database lookup)

function Object5_40_Callback(hObject, eventdata, handles)
global  rf  tstep  Npointsout
rf       = get(handles.Object5_40,'value'); % No. points considered in time histories
tstep    = (rf:rf:Npointsout);              % Sampling steps of time histories

function Object5_41_Callback(hObject, eventdata, handles)
global  Qs
Qs_val   = get(handles.Object5_41,'Value');
Qs       = Qs_val;                          % Calculate estimated peaks
set(handles.Object5_41,'Value',Qs)

function Object5_50_Callback(hObject, eventdata, handles)
g=figure;
set(g,'units','normalized','position',[0.5 0.35 0.45 0.3],'menubar','none','numbertitle',...
    'off','resize','off');
Five_text=uicontrol(g,'Style','text','Units','Normalized','Position',[0.01 0.01 0.99 0.99],...
    'String',[char(10) 'Wind Effect of Interest' char(10) char(10) 'The output of the '...
    'software consists of the observed peak of the time history of each wind effect being '...
    'considered for each member of interest.' char(10) char(10) 'In addition, the user has '...
    'the option of obtaining the statistics of the peak wind effect, obtained internally '...
    'through the use of stochastic processes theory (see Sadek and Simiu (2002), ''Peak Non-'...
    'Gaussian Wind Effects for Database-Assited Low-Rise Building Design'',  J. Engr. '...
    'Mech., 128:5, May.)' ],'FontName','Garamond','FontSize',12);

function Object5_51_Callback(hObject, eventdata, handles)
g=figure;
set(g,'units','normalized','position',[0.45 0.59 0.50 0.37],'menubar','none','numbertitle',...
    'off','resize','off');
Five_text=uicontrol(g,'Style','text','Units','Normalized','Position',[0.01 0.01 0.99 0.99],...
    'String',[char(10) 'Wind Speed Database' char(10) char(10) 'The simulated hurricane '...
    'wind speeds listed on this website under ''Data Sets'' (item 5) are given in nmi/hr, '...
    'averaged over 1-min, at 10m over open terrain. One option in the program, applicable '... 
    'to buildings with suburban terrain exposure and unaffected by aerodynamic interference '...
    'is to convert these speeds to m/s, averaged over one hour, at roof height over suburban terrain '...
    'in ''HurrData.m''. '...
    char(10) char(10) 'A second, more generally applicable option, is to make use of the ratios between the hurricane '...
    'wind speeds listed on this website under ''Data Sets'' (item 5) and the mean hourly wind speeds '...
    'at the building site at the elevation of the building top. These ratios must be obtained by using appropriate '... 
    'micrometeorological models, where applicable, or they must be supplied by the the wind '...
    'tunnel operator for each wind direction.' ],'FontName','Garamond','FontSize',12);

function Object5_52_Callback(hObject, eventdata, handles)
g=figure;
set(g,'units','normalized','position',[0.58 0.40 0.38 0.43],'menubar','none','numbertitle',...
    'off','resize','off');
Five_text=uicontrol(g,'Style','text','Units','Normalized','Position',[0.01 0.01 0.99 0.99],...
    'String',[char(10) 'Hurricane Database' char(10) char(10) 'The database contains '...
    'simulated wind speeds for 999 hurricanes (nmi/hr, 1 min, 10 m) in 16 directions '...
    '(22.5:22.5:360). The speeds will have the default units below.' char(10) char(10) 'The '...
    'milepost refers to a station along the eastern seaboard. They range from 150 to 2850 '...
    'in increments of 50 (e.g., milepost 2550 refers to file 50, which is around NYC). See '...
    'link "Data Sets" on this website, or Simiu and Scanlan (1996), ''Wind effects on '...
    'structures,'' 3rd ed., Wiley Interscience, p. 110.' char(10) char(10) 'File No. refers '...
    'to the suffix of the file name that contains simulated hurricane wind speeds (e.g., '...
    'file50).'],'FontName','Garamond','FontSize',12);

function Object5_53_Callback(hObject, eventdata, handles)
global  WLE  Hmp  Hfile Vth  rf  tstep  Npointsout
global  Qs  flHfile
[ flHfilex ]= uigetdir([cd ], 'Select a file containing ''fileXX''.' );
if flHfilex==0
    set(handles.Object5_33,'string', [ cd '\']);
else
    flHfile=flHfilex;
    set(handles.Object5_33,'string', [ flHfile '\']);
end

function Object5_54_Callback(hObject, eventdata, handles)
g=figure;
set(g,'units','normalized','position',[0.61  0.47  0.25 0.2],'menubar','none','numbertitle',...
    'off','resize','off');
Five_text=uicontrol(g,'Style','text','Units','Normalized','Position',[0.01 0.01 0.99 0.99],...
    'String',[char(10) 'Hurricane File Location' char(10) char(10) 'Choose the file location '...
    'for the ''Hfile'' specified, which should be preceded by ''file'' in the file name. For '...
    'example, Hfile of 50 should have a file name of file50.'],'FontName','Garamond','FontSize',12);

function Object5_55_Callback(hObject, eventdata, handles)
g=figure;
set(g,'units','normalized','position',[0.53 0.35 0.35 0.36],'menubar','none','numbertitle',...
    'off','resize','off');
Five_text=uicontrol(g,'Style','text','Units','Normalized','Position',[0.01 0.01 0.99 0.99],...
    'String',[char(10) 'Minimum Wind Speed' char(10) char(10) 'The program efficiency is '...
    'improved by filtering out wind speeds in the database below a specified minimum wind '...
    'speed.' char(10) char(10) 'Since the peak wind effect for each event and each wind '...
    'direction is used, and since peaks associated with each hurricane event are rank '...
    'ordered for later MRI calculations, only those wind speeds above the specified wind '...
    'speed Vth need be considered.' char(10) char(10) 'The program currently only uses wind '...
    'units shown.'],'FontName','Garamond','FontSize',12);

function Object5_56_Callback(hObject, eventdata, handles)
g=figure;
set(g,'units','normalized','position',[0.52 0.22 0.35 0.28],'menubar','none','numbertitle',...
    'off','resize','off');
Five_text=uicontrol(g,'Style','text','Units','Normalized','Position',[0.01 0.01 0.99 0.99],...
    'String',[char(10) 'Points Considered in Time Histories' char(10) char(10) 'The user '...
    'has option of using time histories with sampling rate equal to the sampling rate of '...
    'the original pressure records, or of using sampling rates equal to half (rf=2), a '...
    'third (rf=3),..., of the original sampling rate.' char(10) char(10) 'Reducing the '...
    'sampling rate increases the speed of the computations.'],'FontName','Garamond',...
    'FontSize',12);

% --- Executes on button press in Exit_Button.
function Exit_Button_Callback(hObject, eventdata, handles)
close all