怎么用mathematica画抛物线和直线的叠加图像?我要画y^2==4(x+4)x+y==-4的叠加图像使用了命令Plot[{y/.Solve[y^2==4(x+4),y],x+y==-4},{x,-5,4}]结果出不来东西..我想画在同一个图里,画出这两个曲

　　怎么用mathematica画抛物线和直线的叠加图像?

　　我要画y^2==4(x+4)x+y==-4的叠加图像

　　使用了命令Plot[{y/.Solve[y^2==4(x+4),y],x+y==-4},{x,-5,4}]

　　结果出不来东西

　　..

　　我想画在同一个图里,画出这两个曲线并且表示出焦点.