Subversion Repositories OpenFresco

Rev

Rev 285 | Rev 287 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 285 Rev 286
Line 9... Line 9...
9
   figure(findobj('Tag','OpenFresco Quick Start'));
9
   figure(findobj('Tag','OpenFresco Quick Start'));
10
   return
10
   return
11
end
11
end
12
12
13
%Check for .tcl and report files and delete if found
13
%Check for .tcl and report files and delete if found
14
if exist('OPFAnalysis.tcl','file') == 2
-
 
15
    delete('OPFAnalysis.tcl');
-
 
-
 
14
fclose('all');
-
 
15
if exist('OPFAnalysis.tcl','file')
-
 
16
    delete(which('OPFAnalysis.tcl'));
16
end
17
end
17
if exist('OPFReport.txt','file') == 2
-
 
18
    delete('OPFReport.txt');
-
 
-
 
18
if exist('OPFReport.txt','file')
-
 
19
    delete(which('OPFReport.txt'));
19
end
20
end
20
21
21
22
22
%Get window size
23
%Get window size
23
SS = get(0,'screensize');
24
SS = get(0,'screensize');
Line 269... Line 270...
269
             'BackgroundColor',panelDefault,...
270
             'BackgroundColor',panelDefault,...
270
             'Position',[0.025 0.8 0.05 0.1]);
271
             'Position',[0.025 0.8 0.05 0.1]);
271
         Struct(7) = uicontrol(Struct(8),'Style','edit',...
272
         Struct(7) = uicontrol(Struct(8),'Style','edit',...
272
             'Units','normalized',...
273
             'Units','normalized',...
273
             'FontSize',10,...
274
             'FontSize',10,...
274
             'String','Enter mass here',...
-
 
-
 
275
             'String','',...
275
             'BackgroundColor',[1 1 1],...
276
             'BackgroundColor',[1 1 1],...
276
             'Position',[0.1 0.8 0.8 0.1],...
277
             'Position',[0.1 0.8 0.8 0.1],...
277
             'Tag','Mass',...
278
             'Tag','Mass',...
278
             'Callback','Structure(''mass_input'')');
279
             'Callback','Structure(''mass_input'')');
279
         
280
         
Line 294... Line 295...
294
             'BackgroundColor',panelDefault,...
295
             'BackgroundColor',panelDefault,...
295
             'Position',[0.025 0.6 0.05 0.1]);
296
             'Position',[0.025 0.6 0.05 0.1]);
296
         Struct(9) = uicontrol(Struct(8),'Style','edit',...
297
         Struct(9) = uicontrol(Struct(8),'Style','edit',...
297
             'Units','normalized',...
298
             'Units','normalized',...
298
             'FontSize',10,...
299
             'FontSize',10,...
299
             'String','Enter stiffness here',...
-
 
-
 
300
             'String','',...
300
             'BackgroundColor',[1 1 1],...
301
             'BackgroundColor',[1 1 1],...
301
             'Position',[0.1 0.6 0.8 0.1],...
302
             'Position',[0.1 0.6 0.8 0.1],...
302
             'Tag','Stiffness',...
303
             'Tag','Stiffness',...
303
             'Callback','Structure(''stiffness_input'')');
304
             'Callback','Structure(''stiffness_input'')');
304
         k1_help = uicontrol(Struct(8),'Style','pushbutton',...
305
         k1_help = uicontrol(Struct(8),'Style','pushbutton',...
Line 698... Line 699...
698
             'String','Amplitude',...
699
             'String','Amplitude',...
699
             'BackgroundColor',panelDefault,...
700
             'BackgroundColor',panelDefault,...
700
             'Position',[0.01 0.2 0.2 0.1]);
701
             'Position',[0.01 0.2 0.2 0.1]);
701
         GM(4) = uicontrol(GM(2),'Style','edit',...
702
         GM(4) = uicontrol(GM(2),'Style','edit',...
702
             'Units','normalized',...
703
             'Units','normalized',...
703
             'String','386.1',...
-
 
-
 
704
             'String','1.0',...
704
             'BackgroundColor',[1 1 1],...
705
             'BackgroundColor',[1 1 1],...
705
             'Tag','edit_amp1',...
706
             'Tag','edit_amp1',...
706
             'Position',[0.25 0.2 0.56 0.15],...
707
             'Position',[0.25 0.2 0.56 0.15],...
707
             'Callback','GroundMotions(''scale'')');
708
             'Callback','GroundMotions(''scale'')');
708
         agScale_help = uicontrol(GM(2),'Style','pushbutton',...
709
         agScale_help = uicontrol(GM(2),'Style','pushbutton',...
709
             'Units','normalized',...
710
             'Units','normalized',...
710
             'FontSize',10,...
711
             'FontSize',10,...
711
             'Tag','Scalehelp',...
712
             'Tag','Scalehelp',...
712
             'ToolTipString',sprintf('The ground motion record is automatically\nsclaed by gravity in units of in/s^2.'),...
-
 
-
 
713
             'ToolTipString',sprintf('The ground motion record can be scaled\nin amplitude and time if required.'),...
713
             'Position',[0.85 0.2 0.083 0.132],...
714
             'Position',[0.85 0.2 0.083 0.132],...
714
             'CData',Question1,...
715
             'CData',Question1,...
715
             'Callback',@helpCallback);
716
             'Callback',@helpCallback);
716
         st_GM_Xdt = uicontrol(GM(2),'Style','text',...
717
         st_GM_Xdt = uicontrol(GM(2),'Style','text',...
717
             'Units','normalized',...
718
             'Units','normalized',...
718
             'String','Time',...
719
             'String','Time',...
719
             'BackgroundColor',panelDefault,...
720
             'BackgroundColor',panelDefault,...
720
             'Position',[0.03 0.02 0.125 0.1]);
721
             'Position',[0.03 0.02 0.125 0.1]);
721
         GM(5) = uicontrol(GM(2),'Style','edit',...
722
         GM(5) = uicontrol(GM(2),'Style','edit',...
722
             'Units','normalized',...
723
             'Units','normalized',...
723
             'String','1',...
-
 
-
 
724
             'String','1.0',...
724
             'BackgroundColor',[1 1 1],...
725
             'BackgroundColor',[1 1 1],...
725
             'Tag','edit_time1',...
726
             'Tag','edit_time1',...
726
             'Position',[0.25 0.02 0.56 0.15],...
727
             'Position',[0.25 0.02 0.56 0.15],...
727
             'Callback','GroundMotions(''scale'')');
728
             'Callback','GroundMotions(''scale'')');
728
%          GM(6) = uicontrol(GM(2),'Style','pushbutton',...
729
%          GM(6) = uicontrol(GM(2),'Style','pushbutton',...
Line 731... Line 732...
731
%              'Tag','scale_1',...
732
%              'Tag','scale_1',...
732
%              'Position',[0.33 0.01 0.4 0.15],...
733
%              'Position',[0.33 0.01 0.4 0.15],...
733
%              'Callback','GroundMotions(''scale'')');
734
%              'Callback','GroundMotions(''scale'')');
734
         GM(7) = axes('Parent',GM(18),'Position',[0.12 0.47 0.35 0.15],'Box','on',...
735
         GM(7) = axes('Parent',GM(18),'Position',[0.12 0.47 0.35 0.15],'Box','on',...
735
             'Tag','a_GM_Xag','Visible','off','NextPlot','replacechildren',...
736
             'Tag','a_GM_Xag','Visible','off','NextPlot','replacechildren',...
736
             'ButtonDownFcn','displayAxes(''ag1'')');
-
 
-
 
737
             'ButtonDownFcn','displayAxes(''ag1'')','FontWeight','bold');
737
             grid('on');
738
             grid('on');
738
             xlabel(GM(7),'Time [sec]');
739
             xlabel(GM(7),'Time [sec]');
739
             ylabel(GM(7),'ag [L/sec^2]');
740
             ylabel(GM(7),'ag [L/sec^2]');
740
         GM(8) = axes('Parent',GM(18),'Position',[0.12 0.25 0.35 0.15],'Box','on',...
741
         GM(8) = axes('Parent',GM(18),'Position',[0.12 0.25 0.35 0.15],'Box','on',...
741
             'Tag','a_GM_XSa','Visible','off','NextPlot','replacechildren','XTickLabel',[],...
742
             'Tag','a_GM_XSa','Visible','off','NextPlot','replacechildren','XTickLabel',[],...
742
             'ButtonDownFcn','displayAxes(''Sa1'')');
-
 
-
 
743
             'ButtonDownFcn','displayAxes(''Sa1'')','FontWeight','bold');
743
             grid('on');
744
             grid('on');
744
             ylabel(GM(8),'Sa [L/sec^2]');        
745
             ylabel(GM(8),'Sa [L/sec^2]');        
745
         GM(9) = axes('Parent',GM(18),'Position',[0.12 0.08 0.35 0.15],'Box','on',...
746
         GM(9) = axes('Parent',GM(18),'Position',[0.12 0.08 0.35 0.15],'Box','on',...
746
             'Tag','a_GM_XSd','Visible','off','NextPlot','replacechildren',...
747
             'Tag','a_GM_XSd','Visible','off','NextPlot','replacechildren',...
747
             'ButtonDownFcn','displayAxes(''Sd1'')');
-
 
-
 
748
             'ButtonDownFcn','displayAxes(''Sd1'')','FontWeight','bold');
748
             grid('on');
749
             grid('on');
749
             xlabel(GM(9),'Period [sec]');
750
             xlabel(GM(9),'Period [sec]');
750
             ylabel(GM(9),'Sd [L]');        
751
             ylabel(GM(9),'Sd [L]');        
751
752
752
%DOF 2
753
%DOF 2
Line 819... Line 820...
819
             'String','Amplitude',...
820
             'String','Amplitude',...
820
             'BackgroundColor',panelDefault,...
821
             'BackgroundColor',panelDefault,...
821
             'Position',[0.01 0.2 0.2 0.1]);
822
             'Position',[0.01 0.2 0.2 0.1]);
822
         GM(12) = uicontrol(GM(10),'Style','edit',...
823
         GM(12) = uicontrol(GM(10),'Style','edit',...
823
             'Units','normalized',...
824
             'Units','normalized',...
824
             'String','386.1',...
-
 
-
 
825
             'String','1.0',...
825
             'BackgroundColor',[1 1 1],...
826
             'BackgroundColor',[1 1 1],...
826
             'Tag','edit_amp2',...
827
             'Tag','edit_amp2',...
827
             'Position',[0.25 0.2 0.56 0.15],...
828
             'Position',[0.25 0.2 0.56 0.15],...
828
             'Callback','GroundMotions(''scale'')');
829
             'Callback','GroundMotions(''scale'')');
829
         agScale_help = uicontrol(GM(10),'Style','pushbutton',...
830
         agScale_help = uicontrol(GM(10),'Style','pushbutton',...
Line 839... Line 840...
839
             'String','Time',...
840
             'String','Time',...
840
             'BackgroundColor',panelDefault,...
841
             'BackgroundColor',panelDefault,...
841
             'Position',[0.03 0.02 0.125 0.1]);
842
             'Position',[0.03 0.02 0.125 0.1]);
842
         GM(13) = uicontrol(GM(10),'Style','edit',...
843
         GM(13) = uicontrol(GM(10),'Style','edit',...
843
             'Units','normalized',...
844
             'Units','normalized',...
844
             'String','1',...
-
 
-
 
845
             'String','1.0',...
845
             'BackgroundColor',[1 1 1],...
846
             'BackgroundColor',[1 1 1],...
846
             'Tag','edit_time2',...
847
             'Tag','edit_time2',...
847
             'Position',[0.25 0.02 0.56 0.15],...
848
             'Position',[0.25 0.02 0.56 0.15],...
848
             'Callback','GroundMotions(''scale'')');
849
             'Callback','GroundMotions(''scale'')');
849
%          GM(14) = uicontrol(GM(10),'Style','pushbutton',...
850
%          GM(14) = uicontrol(GM(10),'Style','pushbutton',...