马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有账号?我要加入
x
Mathematica5.2 问题,高手帮忙呀
如:1。Table[Floor[100*Random[]], {20}]
产生一个随机表: {66, 39, 86, 22, 19, 44, 2, 72, 30, 75, 85, 61, 31, 92, 63, 14, 83, 57, 67, 22 }
编一个Mathematica小程序,将上表中3的倍数
换成a,其它数不变,如 {a, a, 86, 22, 19, 44, 2, a, a, a,85, 61, 31, 92, a, 14, 83, a, 67, 22 }
2。{19,16, 8, 26, 13, 40, 44, 58,5, 22, 17,20, 1}
编一个Mathematica小程序,
i) 将上表中偶数换成k,奇数换成j 或不换
{19,k, k, k, 13, k, k, k,5, k, 17,k, 1}或{j,k, k, k, j, k, k, k,j, k, j,k, j}
ii) 将上表中的连续k继续换,换成个数{19,3k, 13, 3k,5, 3k, 17,1k, 1}或{j,3k j,3k,j, 1k, j,1k, j}
编成的Mathematica程序,对一般的表也适用。 |