level 7
Fa♂学家
楼主
请求大家帮忙，将两个图合并后mathematica给红色曲线自动添加了一条黑色的边界线（红色的线只能从0.85开始画）。请问大家怎么才能去掉啊！谢谢~~
Show[Plot[(3 Sqrt[1 - 2 x])/Sqrt[2], {x, 0.485, 0.5},
PlotStyle -> Red],
ListLinePlot[
Table[{x, 2.82842712474619` Sqrt[1 - 2 x]}, {x, 0.48, 0.5, 0.0001}],
PlotStyle -> Blue], PlotRange -> {{0.47, 0.51}, {0, 1.1}},
Frame -> True]
2018年10月29日 14点10分
1
Show[Plot[(3 Sqrt[1 - 2 x])/Sqrt[2], {x, 0.485, 0.5},
PlotStyle -> Red],
ListLinePlot[
Table[{x, 2.82842712474619` Sqrt[1 - 2 x]}, {x, 0.48, 0.5, 0.0001}],
PlotStyle -> Blue], PlotRange -> {{0.47, 0.51}, {0, 1.1}},
Frame -> True]