выделение реальной части функции

[giallorosso]

Добрый день!

Есть некое уравнение, в общем виде f(x,y)=0, где x-комплексное число, а у - действительное. Нужно построить графики зависимостей реальной и мнимой частей х от у. Аналитически эти зависимости нельзя выделить. Как можно это сделать в Mathematica например, подскажите пожалуйста...

[Mysterious Light]

Так?

f = x^2 - y - I y

ReIm[z_] := {Re[z], Im[z]}

g = With[{f1 = Evaluate[f] /. y -> #}, Transpose[ReIm[x /. NSolve[f1 == 0, x]]]] &

ListLinePlot@Transpose@Table[First[g[y]], {y, 0, 5, 0.01}]