% showflug.m Beipiel-Plots f\"ur Flugrouten
clf
meridiannetz;
%Start = Frankfurt
longs = 8.6833; lats = 50.1167; 
%      Ankara,   Athen,   Berlin,   Kairo,   Kapstadt, London,
%       Bejing, Moskau, Rio, Sydney , Tokyo,  Frisco,  NYC , Chicago
lat = [39.9167  37.9667    52.5    30.0333   -35.9167 ...
        39.9167  55.75  -22.95  -34.0  35.6667   37.6167  40.65  41.7833   ];
long = [32.9167  23.7167  13.4167  31.35   18.3667  ...
        116.25  37.6     -43.2  151.0  139.75  -122.3833  -73.7833 -95.35];
for k = 1:length(long)
  [dist,azi,maxbreit,norvec] = grosskreis(longs,lats,long(k),lat(k));
  pl = flugfct(longs,lats,azi,dist/6336.2*180/pi);
  plot3(pl(1,:), pl(2,:), pl(3,:),'r','LineWidth',2 );
end
hold off
