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] =
来源:学生作业帮助网 编辑:作业帮 时间:2024/07/03 02:05:21
![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] =](/uploads/image/z/10024131-3-1.jpg?t=mathematica%E4%BD%9C%E5%9B%BE%E9%97%AE%E9%A2%98%E4%B8%8B%E9%9D%A2%E8%BF%99%E4%B8%AA%E7%A8%8B%E5%BA%8F%2C%E6%9C%89%E6%B2%A1%E6%9C%89%E4%BA%BA%E4%BC%9A%E6%94%B9%E4%B8%80%E4%B8%8B%2C%E5%B0%86%E5%8E%9F%E6%9D%A5%E7%9A%84%E4%B8%A4%E6%9D%A1%E7%BA%BF%2C%E7%94%A8%E4%B8%8D%E5%90%8C%E9%A2%9C%E8%89%B2%E8%A1%A8%E7%A4%BA%2C%E4%B8%8B%E9%99%84%E6%BA%90%E4%BB%A3%E7%A0%81%EF%BC%9Acishu+%3D+9%3Bfenduan+%3D+4%3Bchuzhi+%3D+%7B%7B0%2C0%7D%2C%7B1%2F4%2C1%7D%2C%7B1%2C1%2F2%7D%7D%3Bd+%3D+%7B1%2F20%2C3%2F4%7D%3B%5C%5BDelta%5D+%3D+%7B%7B1%2F20%2C-1%2F24%7D%7D%3Bd%5C%5BDelta%5D+%3D+d%3B%5C%5BDelta%5D+%3D)
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}]]
你从哪里得到的我的代码的呢,
收费解决