Quit[]

(* Photonen *)

(* Droste *)

p1=StreamPlot[{1-2/r,1},{r,0,10},{t,0,10},
ImageSize->480,PlotRange->{{0,10},{0,10}},
StreamStyle->{Blue},StreamColorFunction->{Blue}]

p2=StreamPlot[Sign[r-2]{2/r-1,1},{r,0,10},{t,0,10},
ImageSize->480,PlotRange->{{0,10},{0,10}},
StreamStyle->{Red},StreamColorFunction->{Red}]

P1=Show[p1,p2]

(* Raindrop *)

p1=StreamPlot[{1-(Sqrt[2/r]),1},{r,0,10},{t,0,10},
ImageSize->480,PlotRange->{{0,10},{0,10}},
StreamStyle->{Blue},StreamColorFunction->{Blue}]

p2=StreamPlot[{-1-(Sqrt[2/r]),1},{r,0,10},{t,0,10},
ImageSize->480,PlotRange->{{0,10},{0,10}},
StreamStyle->{Red},StreamColorFunction->{Red}]

P1=Show[p1,p2]

(* Finkelstein *)

p1=StreamPlot[{(r-2)/(r+2),1},{r,0,10},{t,0,10},
ImageSize->480,PlotRange->{{0,10},{0,10}},
StreamStyle->{Blue},StreamColorFunction->{Blue}]

p2=StreamPlot[{-1,1},{r,0,10},{t,0,10},
ImageSize->480,PlotRange->{{0,10},{0,10}},
StreamStyle->{Red},StreamColorFunction->{Red}]

P1=Show[p1,p2]

(* Freier Fall *)

(* Droste *)

p1=StreamPlot[{(1-2/r)(Sqrt[2/r]),1},{r,0,10},{t,0,10},
ImageSize->480,PlotRange->{{0,10},{0,10}},
StreamStyle->{Blue},StreamColorFunction->{Blue}]

p2=StreamPlot[Sign[r-2]{-(1-2/r)(Sqrt[2/r]),1},{r,0,10},{t,0,10},
ImageSize->480,PlotRange->{{0,10},{0,10}},
StreamStyle->{Red},StreamColorFunction->{Red}]

P1=Show[p1,p2]

(* Raindrop *)

p1=StreamPlot[{(Sqrt[2/r])(r-2)/(r+2),1},{r,0,10},{t,0,10},
ImageSize->480,PlotRange->{{0,10},{0,10}},
StreamStyle->{Blue},StreamColorFunction->{Blue}]

p2=StreamPlot[{-(Sqrt[2/r]),1},{r,0,10},{t,0,10},
ImageSize->480,PlotRange->{{0,10},{0,10}},
StreamStyle->{Red},StreamColorFunction->{Red}]

P1=Show[p1,p2]

p1=StreamPlot[{(Sqrt[2]) (-2+r)/(2 (Sqrt[2])+(r^(3/2))),1},{r,0,10},{t,0,10},
ImageSize->480,PlotRange->{{0,10},{0,10}},
StreamStyle->{Blue},StreamColorFunction->{Blue}]

p2=StreamPlot[{(Sqrt[2]) (-2+r)/(2 (Sqrt[2])-(r^(3/2))),1},{r,0,10},{t,0,10},
ImageSize->480,PlotRange->{{0,10},{0,10}},
StreamStyle->{Red},StreamColorFunction->{Red}]

P1=Show[p1,p2]