disp(' ');
disp(' ARS.m  ver 1.0  March 10, 2012 ');
disp(' ');
disp(' by Tom Irvine ');
%
disp(' ');
    disp('   First Coordinate ');
F1=input('    Enter frequency: ');
A1=input(' Enter acceleration: ');
disp(' ');
    disp('  Second Coordinate ');
F2=input('    Enter frequency: ');
A2=input(' Enter acceleration: ');
%
disp(' ');
Fx=input(' Enter intermediate frequency: ');
%
Ax=A1+((A2-A1)/(F2-F1))*(Fx-F1);
%
disp(' ');
disp(' Interpolated acceleration: ');
out1=sprintf('\n Ax = %7.4g  at Fx=%7.4g ',Ax,Fx);
disp(out1);