% plk=flugfct(long,lat,azi,dist) Flugroute ab Startort long lat
%   mit Abflug-Azimuth azi und Flugdistanz dist
function plk=flugfct(long,lat,azi,dist)
pm = grosskreisfct(180+azi, dist);
wy = (-90+lat)*pi/180;
Rym = [ cos(wy) 0 -sin(wy); 0 1 0; sin(wy) 0 cos(wy)];
wz = long*pi/180;
Rzm = [ cos(wz)  -sin(wz) 0 ;  sin(wz)  cos(wz) 0 ; 0 0 1];
plk = Rzm*Rym*pm;
