Hello,
im trying to make som graphics with my Mathematica:
f[x, y] := (1 - x^2 - y^2)/(1 + x^2 + y^2)
a := -4
b := 4
c := -5
d := 5
F = Plot3D[
f[x, y], {x, a, b}, {y, c, d},
PlotLabel -> "3D.Diagramm",
AspectRatio -> 1/GoldenRatio,
AxesLabel -> {"x", "y", "z"},
PlotRange -> {{a, b}, {c, d}, {-1, 1}}
]
Diagramm = ContourPlot[
f[x, y], {x, a, b}, {y, c, d},
PlotLabel -> "Höhendiagramm",
ColorFunction -> "BlueGreenYellow",
AspectRatio -> 1/GoldenRatio
]
And as an answer i get: "Tag Graphics [in x,y] is protected"
Can anyone help me?
Thanks