Question

关于Mathematica：有诺干张图，每张图有一条曲线，将这些曲线画在一张图上并用颜色区分

关于Mathematica：有诺干张图，每张图有一条曲线，将这些曲线画在一张图上并用颜色区分，比如：曲线1：x+y=1,曲线2：x+2y=3,合到一张图，曲线一染红色，曲线二染蓝色，
最好，自动标出曲线1、2的交点
Plot[{q = 1/3 (3 + Sqrt[3] - Sqrt[3] p),
q = 1/3 (-3 - Sqrt[3] - Sqrt[3] p),
q = (-3 - Sqrt[3] + p + Sqrt[3] p)/(-1 + Sqrt[3]),
q = (3 + Sqrt[3] + p + Sqrt[3] p)/(-1 + Sqrt[3]),
q = (3 + Sqrt[3] + p)/(2 + Sqrt[3]),
q = (-3 - Sqrt[3] + p)/(2 + Sqrt[3]),
q = (3 + 2 Sqrt[3] - 3 p)/Sqrt[3],
q = (-3 + 2 Sqrt[3] - 3 p)/Sqrt[3], q = (-3 + Sqrt[3])/(2 Sqrt[3]),
q = (3 + Sqrt[3])/(2 Sqrt[3]) , q = 2 + Sqrt[3] - Sqrt[3] p,
q = -2 + Sqrt[3] - Sqrt[3] p, q = (-3 + p)/Sqrt[3],
q = (1 + p)/Sqrt[3]}, {p, 0, 5}, PlotRange -> {0, 1.5}]
前六条直线染红色（一组），7到10染蓝色（二组），11到14染绿色（三组）；
图上自动显示：一组六个交点（p,q)值，二组4个交点（p,q)值，三组4个交点（p,q)值

Answer 1

Plot[{x, -x, 4 Sin[x], 3 Cos[x], 5 Sin[x]*Cos[x], 1 - x^2, 1/(x + 7),
2 - 3 x, 3 x + 1, Tan[x], Sinh[x], Log[x], 2^(x/3),
x^3 - x^2}, {x, -5, 5},
PlotStyle -> {Red, Red, Red, Red, Red, Red, Blue, Blue, Blue, Blue,
Green, Green, Green, Green}]
楼主的函数太长，故此用简单的函数代替。楼主只要把你的函数代替式中的函数即可。另，其中X的取值范围也应做相应的改变。至于得到各交点的值，实在抱歉，我忘记了怎么做。回头我看看书，看能不能做到。楼主若有兴趣，可用Matlab比较方便地实现，能够直接读出各点的相应的值，无论是不是交点。

Answer 2

Plot[{1 - x, (3 - x)/2}, {x, -2, 0}, PlotStyle -> {Red, Blue}]