Realteil und Imaginärteil des komplexen Sinus, erzeugt mit Mathematica nach dem Code:
f1=Plot3D[Sin[x] Cosh[y], {x,0,15}, {y,-2,2}, PlotPoints->25] f2=Plot3D[Cos[x] Sinh[y], {x,0,15}, {y,-2,2}, PlotPoints->25]
