声振论坛

 找回密码
 我要加入

QQ登录

只需一步,快速开始

查看: 2283|回复: 0

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

[复制链接]
发表于 2009-2-15 22:22 | 显示全部楼层 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有账号?我要加入

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程序,对一般的表也适用。
回复
分享到:

使用道具 举报

您需要登录后才可以回帖 登录 | 我要加入

本版积分规则

QQ|小黑屋|Archiver|手机版|联系我们|声振论坛

GMT+8, 2024-11-10 17:16 , Processed in 0.067850 second(s), 18 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表