% Program: arch.m
% Author:  Michael Goldwasser
% This is a solution for CSCI-145, asgn03

x = linspace(-299, 299, 1000);
y = 693.8 - 68.8 .* cosh(x ./ 99.7);
plot(x,y);
axis([-300 300 0 700]);
axis equal;                  % plot both axes with same scale
grid on;                     % display internal grid lines
