luws 发表于 2009-2-15 22:22

一个Mathematica5.2问题,高手帮忙呀

Mathematica5.2问题,高手帮忙呀
如:1。Table], {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程序,对一般的表也适用。
页: [1]
查看完整版本: 一个Mathematica5.2问题,高手帮忙呀