[求助]怎么用mathematic画一个五角星和国际象棋棋盘？
怎么用mathematic画一个五角星和国际象棋棋盘？谁能帮我，在里面直接回复也可以。或者把小程序直接发我的邮箱，<a href="mailto:394959454@qq.com">394959454@qq.com</a> 谢谢了。 <p><< Graphics`Animation`</p><p>r1 = Table, Rectangle[{m, n}, {m + 1, n + 1}]}], {m, 0, 6, 2}, {n, 0, 6, 2}];<br/>r2 = Table, Rectangle[{m + 1, n + 1}, {m + 2, n + 2}]}], {m, 0, 6, 2}, {n, 0, 6, 2}];<br/>l = Graphics];Show颜色自己改</p><p></p><p>下面是象棋的，方法有点笨。</p><p>r1 = Graphics[{Hue, Rectangle[{0, 0}, {8, 9}]}];</p><p>l1 = Table], {i, 0, 9, 1}];</p><p>l2 = Table], {m, 0, 8, 1}];</p><p>l3 = Table], {n, 0, 8, 1}];</p><p>l4 = Table], {n, 0, 8, 8}];</p><p>l5 = Table], {i, 0, 7, 7}];</p><p>l6 = Table], {i, 0, 7, 7}];</p><p>t1 = Table[ Graphics, {RGBColor, Disk[{0, 0}, 1]}], {m, 0, 8, 8}, {n, 0, 9, 9}];</p><p>t2 = Table[ Graphics], {m, 0, 6, 6}, {n, 0, 9, 9}];</p><p>t3 = Table[ Graphics], {m, 0, 4, 4}, {n, 0, 9, 9}];t</p><p>4 = Table[ Graphics], {m, 0, 2, 2}, {n, 0, 9, 9}];</p><p>t5 = Table[ Graphics], {n, 0, 9, 9}];</p><p>t6 = Table[ Graphics], {m, 0, 6, 6}, {n, 0, 5, 5}];</p><p>t7 = Table[ Graphics], {m, 0, 8, 2}];</p><p>t8 = Table[ Graphics], {m, 0, 8, 2}];</p><p>Show</p>[此贴子已经被作者于2008-4-22 13:39:48编辑过] 直接从我作业中COPY的，所以上传的地方可能有些地方有错误。你修改一下就号了，一定是可以运行的
[此贴子已经被作者于2008-4-22 13:41:34编辑过] 谢谢了哦。。我还要在自己的机子上运行一下，呵呵。。
页:
[1]