求助，打印两段线段

Clear["`*"];
a = {{{1, 1}, {2, 1}}, {{1, 3}, {2, 3}}};
t = Graphics[{Line[a[[i]]], {i, 1, 2}}]
就是想把a[[1]]和a[[2]]一起打印出来，但是怎么弄都不对，求大神们赐教

array1 = {{1, 0}, {2, 3}};
getcolor[R_] := (
If[R == 1, color = Red];
If[R == 2, color = Green];
Return color
);
line1 = Line[array1];
z = 1;
Graphics[{Thick, getcolor[z], line1}]
我想控制线条的颜色，写了个函数，参数为1的时候用红色，参数为2的时候用绿色，但是不管放哪都没效果，求大侠赐教！

不感兴趣

开通SVIP免广告

。。。对于楼主的代码，我不想说什么了，这明明就是把MMA当C来用。。MMA里，没有语句，只有函数，所以Return color正确写法应该为Return[color]，Return color的结果就是Return和color的乘积

而且一行就能够解决的问题，为什么要用三行？
getcolor[R_] := If[R == 1, Red, Green]

扫二维码下载贴吧客户端

下载贴吧APP
看高清直播、视频！

3回复贴，共1页

<<返回mathematica吧

分享到:

日	一	二	三	四	五	六