Quadratfunktion

f[z]:=(z^2)

1) Wähle zuerst im Menü Kernel, Evaluation -> Evaluate Notebook

2) Falls man z nicht konjugieren will, evaluiert man folgende Funktion:
f[z_]:=(z^2)

3) Falls man z  konjugieren will, evaluiert man diese Funktion im:
f[z_]:=(((  Conjugate [z] ))^2)

4) Um eine Gerade abzubilden, gibt man bei GeradeAbbilden zwei Punkte der gewünschten Gerade ein und drückt dann ENTER.

5) Falls man einen Kreis abbilden will, gibt man bei KreisAbbilden Werte für den Mittelpunkt und Radius ein und drückt danach ENTER.

f[z_] := (z^2);

f[z_] := (Conjugate[z])*(Conjugate[z]);

GeradeAbbilden[1 + I, 3 I]

KreisAbbilden[2 + I, 3]

Programm
_______________________________________________________________________

\(\(



    KreisAbbilden[m_, r_]\  := \ 
      Module\ 
[{}, 


        ParametricPlot[

          			\ \ \ {{Re[m + r \((Cos[w] + I*Sin[w])\)], 
              Im[m + r \((Cos[w] + I*Sin[w])\)]}, {
              Re[f[m + r \((Cos[w] + I*Sin[w])\)]], \ \ 
					
              Im[f[m + r \((Cos[w] + I*Sin[w])\)]]}}, 

          			\ \ \ \ {w, 0, 2  π}, 
			
          AspectRatio -> Automatic, 
		
          PlotStyle -> {RGBColor[0, 1, 0], RGBColor[1, 0, 0]}

          			\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ ]
          
		
		]\)\)

\(GeradeAbbilden[p_, q_]\  := \ 
      Module\ 
[{}, 
	
		
        ParametricPlot[

          			{{Re[p + t \((q - p)\)], Im[p + t \((q - p)\)]}, {
              Re[f[p + t \((q - p)\)]], Im[f[p + t \((q - p)\)]]}}, 
          \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ 
			\ \ 	{t, \(-15\), 15}, 

          			\ \ \ \ AspectRatio -> Automatic, \ 
			\ \ \ 
          PlotStyle -> {RGBColor[0, 1, 0], RGBColor[1, 0, 0]}
		

          		\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ ]
\ \ 	
		]\)

_______________________________________________________________________