作业帮关于Mathematica：有诺干张图,每张图有一条曲线,将这些曲线画在一张图上并用颜色区分,比如：曲线1：x+y=1,曲线2：x+2y=3,合到一张图,曲线一染红色,曲线二染蓝色,最好,自动标出曲线1、2的交点Pl
来源：学生作业帮助网 编辑：作业帮 时间：2024/11/14 21:54:48
关于Mathematica：有诺干张图,每张图有一条曲线,将这些曲线画在一张图上并用颜色区分,比如：曲线1：x+y=1,曲线2：x+2y=3,合到一张图,曲线一染红色,曲线二染蓝色,最好,自动标出曲线1、2的交点Pl
关于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)值
关于Mathematica：有诺干张图,每张图有一条曲线,将这些曲线画在一张图上并用颜色区分,比如：曲线1：x+y=1,曲线2：x+2y=3,合到一张图,曲线一染红色,曲线二染蓝色,最好,自动标出曲线1、2的交点Pl
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比较方便地实现,能够直接读出各点的相应的值,无论是不是交点.