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

问题描述:

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

抛物线和直线最多有两个交点,你要画这两个交点吗?还说把抛物线和直线画在同一个图中呢?tu[1] = Plot[y /.Solve[y^2 == 4*(x + 4),y],{x,-5,4},PlotStyle -> Blue];tu[2] = Plot[y /.Solve[x + y == -4,y],{x,-5,4},P...