mathematica作图问题下面这个程序,有没有人会改一下,将原来的两条线,用不同颜色表示,下附源代码：cishu =

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}]]