function [x,y]=meters(lat,lon);
%function [x,y]=meters[lat,lon];
%        lat, lon are given in decimal degrees.  x and y are given in meters
%        from first point of array

latfac=1852*60;
lonfac=latfac*cos(lat(1)/57.2958);
y=(lat-lat(1))*latfac;
x=(lon-lon(1))*lonfac;

