Вот мои попытки:
Первые уравнения графика.Это то, что я знаю, как сделать.
Plot[{Re[Sqrt[a]], Im[Sqrt[a]]}, {a, -3, 6}, AxesLabel -> {"a", "y"},
PlotStyle -> {Red, Blue}]
Затем нарисуйте одну точку.Я продолжаю получать ошибки?
complex[x_] = a + I b
a + I b
a = 3; b = 2;
complex[x]
3 + 2 I
Plot[complex[x]]
Plot::argr: Plot called with 1 argument; 2 arguments are expected.
Plot[{Re[a], Im[b]}, {a, 3, 3}, {b, 2, 2}, AxesLabel -> {"a", "y"},
PlotStyle -> {Red}]
Plot::nonopt: Options expected (instead of {b,2,2}) beyond position 2 in
An option must be a rule or a list of rules.
Есть предложения?MM