% insert missionID and load this file in each directory
% ship head, bearing to auv, dist to auv (km)
% longitude west should be POSITIVE -- program bearing.m will adjust
% startrng includes ship head, bearing to auv, dist to auv (km)

missionID='2000.240.09';
surveydate='27 August 2000'; %for graph title

%% Note that for some of this series of missions the end ship position
%% and AUV heading, bearing and range information were not taken.
%% Use start of mission N for end of mission N-1.

shipstart=[36 56.04 122 17.31];
startrng =[57 25 245] ;          

%% Recorded endpoint
shipend=[36 57.071 122 12.131] ;
endrng=[65 90 190];

ep([1 3])=bearing(shipstart,startrng);
ep([2 4])=bearing(shipend,endrng);
[dist phas]=sw_dist(ep([1 2]),ep([3 4]),'km');

