数学建模社区-数学中国»论坛 › 【科学软件论坛】数学建模 › Mathematica论坛 › 求教一个简单的却可以节约很大部分时间的问题！

查看: 2842|回复: 2

求教一个简单的却可以节约很大部分时间的问题！

[复制链接]

字体大小: 正常放大

wuqingzi

2 主题	2 听众	17 积分

升级 12.63%

该用户从未签到

自我介绍: 我是个很好的人

电梯直达

1^#

发表于 2010-4-5 13:58 |只看该作者 |正序浏览

|招呼Ta 关注Ta

我用math计算的结果是很多的数组{{a1,b1}{a2,b2}...{ai,bi}},如果我想把其中的a单独列一组，b单独列另外一组，因为数据量太大，这样以便用数，请问怎样写程序呢？我是个超级大菜鸟，谢谢大家帮助！！

zan

转播0 淘帖0 分享0 收藏0 支持0 反对0 微信

使用道具举报

chuchumaolu

16 主题	3 听众	83 积分

升级 82.11%

该用户从未签到

自我介绍: 学习哦，加泡妞

3^#

发表于 2010-4-9 18:09 |只看该作者 |招呼Ta 关注Ta

f[i_, a, b] := Module[{j, list, m, n},
  m = "a"; n = "b";
  list = Table[{m*j, n*j}, {j, 1, i}];
  a = list[[All, 1]];
  b = list[[All, 2]];
  ]
测试：
f[10, a, b]
a={"a", 2 "a", 3 "a", 4 "a", 5 "a", 6 "a", 7 "a", 8 "a", 9 "a", 10 "a"}
b={"b", 2 "b", 3 "b", 4 "b", 5 "b", 6 "b", 7 "b", 8 "b", 9 "b", 10 "b"}

不知道怎么生成下标