% meridiannetz.m  Zeichnen eines Meridian-Netzes
hold on
for long = 0:30:90
  pl = grosskreisfct(long, 360);
  plot3(pl(1,:),pl(2,:),pl(3,:),'b' )
  plot3(-pl(1,:),pl(2,:),pl(3,:),'b' )
  if long == 0
    plot3(pl(1,:),pl(2,:),pl(3,:),'k','LineWidth',2 )
  end
end
for lat = -60:15:60
  pb = breitkreisfct(lat);
  plot3(pb(1,:),pb(2,:),pb(3,:),'b' )
  if lat == 0
    plot3(pb(1,:),pb(2,:),pb(3,:),'k','LineWidth',2 )
  end
end
axis([-1.2 1.2 -1.2 1.2 -1.2 1.2]); axis square;
view(70,22)
