作业帮 > 综合 > 作业

关于Mathematica:有诺干张图,每张图有一条曲线,将这些曲线画在一张图上并用颜色区分,比如:曲线1:x+y=1,

来源:学生作业帮 编辑:拍题作业网作业帮 分类:综合作业 时间:2024/04/29 20:33:08
关于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)值
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比较方便地实现,能够直接读出各点的相应的值,无论是不是交点.