如何使用mathematica只得到下面方程组的实数解？

mathematica的代码如下NSolve[{x^2 + y^3 == 1, x^4 + y^4 == 2}, {x, y}]
得到的解答如下：
{{x -> -0.428653 + 1.42567 I,
y -> -0.552329 - 1.34942 I}, {x -> -0.428653 - 1.42567 I,
y -> -0.552329 + 1.34942 I}, {x -> 1.15363,
y -> -0.691637}, {x -> -1.20097 + 0.0500217 I,
y -> 0.324147 - 0.698088 I}, {x -> -1.20097 - 0.0500217 I,
y -> 0.324147 + 0.698088 I}, {x -> 0. + 0.71621 I,
y -> 1.148}, {x -> 0. - 0.71621 I,
y -> 1.148}, {x -> 1.20097 - 0.0500217 I,
y -> 0.324147 - 0.698088 I}, {x -> 1.20097 + 0.0500217 I,
y -> 0.324147 + 0.698088 I}, {x -> 0.428653 + 1.42567 I,
y -> -0.552329 + 1.34942 I}, {x -> 0.428653 - 1.42567 I,
y -> -0.552329 - 1.34942 I}, {x -> -1.15363, y -> -0.691637}}

可是我只想得到其中的实数解，不想得到其中的无聊的复数解，请问如何写
mathematica的代码？请给出代码

把你已关闭的1个问题贴出来,我给你解答这个.

不明白啊 = =！