|
|
|
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% File: PlotHyperbolicGapUnloadReloadResponse.m
% Description:
%
% Revision: $WCREV$
% Date: $WCDATE$
% URL: $WCURL$
% Date Created: 04/2008
% Author: Matthew Dryden (dryden@berkeley.edu)
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
clear all;
close all;
linewid = 3.5;
% Unload/Reload Response
figure;
hypData = load('HyperbolicGapUnloadReload.txt');
line([-0.1 0.1], [0 0], 'LineWidth', 1.0, 'Color', [0 0 0]); hold on;
line([0 0], [-400 400], 'LineWidth', 1.0, 'Color', [0 0 0]);
h2 = plot(hypData(:,1), hypData(:,2), '-', 'Color', [0.5 0.5 0.5], 'LineWidth', linewid);
xlim([-0.1 0.1]);
ylim([-400 400]);
hx = xlabel('Displacement (m)');
hy = ylabel('Resisting Force (kN) per meter of abutment width');
set(gca,'Box','on');
set(hx, 'FontSize', 12);
set(hy, 'FontSize', 12);
set(gca, 'FontSize', 12);
set(gcf, 'PaperPosition', [0.0 0.0 5.9 3.5]);
print -depsc AbutmentUnloadReload.eps