mathematica作图问题下面这个程序,有没有人会改一下,将原来的两条线,用不同颜色表示,下附源代码：cishu = 9;fenduan = 4;chuzhi = {{0,0},{1/4,1},{1,1/2}};d = {1/20,3/4};\[Delta] = {{1/20,-1/24}};d\[Delta] = d;\[Delta] =

mathematica作图问题下面这个程序,有没有人会改一下,将原来的两条线,用不同颜色表示,下附源代码：cishu = 9;fenduan = 4;chuzhi = {{0,0},{1/4,1},{1,1/2}};d = {1/20,3/4};\[Delta] = {{1/20,-1/24}};d\[Delta] = d;\[Delta] =
mathematica作图问题
下面这个程序,有没有人会改一下,将原来的两条线,用不同颜色表示,下附源代码：
cishu = 9;
fenduan = 4;
chuzhi = {{0,0},{1/4,1},{1,1/2}};
d = {1/20,3/4};
\[Delta] = {{1/20,-1/24}};
d\[Delta] = d;
\[Delta] = Prepend[\[Delta],{0,0}];
For[xh[4] = 1,xh[4] = 0,xh[1]--,
For[xh[2] = fdarr[[xh[1]]],xh[2] > 0,xh[2]--,len1 = Length@list1;
For[xh[3] = 1,xh[3] list1[[xh[3],1]],y -> list1[[xh[3],2]]};
AppendTo[list2,jieguo[[1]]];
AppendTo[list2,jieguo[[2]]];];
list1 = Complement[list2,list1];
list3 = Union[list1,list3]];
list4 = Union[list3,list4];
list3 = {};];
list4;
Print[diedai];
list5[xh[4]] = list4;
tu[xh[4]] =
ListLinePlot[list4,PlotStyle -> Directive[PointSize[.001],Red]];
Print[tu[xh[4]]];]
Show[Table[tu[ii],{ii,1,2}]]

mathematica作图问题下面这个程序,有没有人会改一下,将原来的两条线,用不同颜色表示,下附源代码：cishu = 9;fenduan = 4;chuzhi = {{0,0},{1/4,1},{1,1/2}};d = {1/20,3/4};\[Delta] = {{1/20,-1/24}};d\[Delta] = d;\[Delta] =
你从哪里得到的我的代码的呢,
收费解决

粗略的弄了下，倒数第三句中
Directive[PointSize[.001], Red]改为
Directive[PointSize[.001], RandomChoice[{Blue, Green, Red}]]

你从哪里得到的我的代码的呢,
收费解决