24小时热门版块排行榜    

查看: 1523  |  回复: 10
本帖产生 1 个 程序强帖 ,点击这里进行查看

匿名

用户注销 (正式写手)

本帖仅楼主可见

» 猜你喜欢

» 本主题相关价值贴推荐,对您同样有帮助:

已阅   同方向广播   申请程序强帖   回复此楼   编辑   查看我的主页
回帖支持 ( 显示支持度最高的前 50 名 )

chyanog

金虫 (小有名气)

liu0604: 回帖置顶 2013-08-03 20:08:04
MapIndexed[
Which[
   MemberQ[{1, 4, 7, 9}, Tr@#2], #^2,
   MemberQ[{2, 4, 5}, Tr@#2], #^3,
   True, #] &,
ak]
8楼2013-08-03 19:51:53
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

chyanog

金虫 (小有名气)

引用回帖:
9楼: Originally posted by liu0604 at 2013-08-03 20:08:02
厉害,请教一下Tr@#2是什么意思,求迹的东西?
能做一个简单的解释吗?感激不尽……...

其实相当于First@{a},或者{a}[[1]],Tr看起来更短小而已,
其实方法还有很多,
ak = Symbol /@ CharacterRange["a", "z"];

ReplacePart[ak, Join[# :> F1[ak[[#]]] & /@ {1, 4, 7, 9},
  # :> F2[ak[[#]]] & /@ {2, 5, 8}]]

MapAt[F1, ak, List /@ {1, 4, 7, 9}]
MapAt[F2, %, List /@ {2, 5, 8, 10}]
MapAt[F3, %, List /@ {3, 6, 12}]
10楼2013-08-03 21:36:35
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
普通回帖

mshwangg

至尊木虫 (正式写手)

【答案】应助回帖

感谢参与,应助指数 +1
aknew=ak
aknew[]=f[ak[]], i=1,4,7,9,....
aknew[[j]]=g[ak[[j]]], j=2,4,5,....
aknew[[k]]=h[ak[[k]]],k=3,11,13,15,...
f,g,h是某种计算,用函数表示了。
如果i,j,k中各个数值满足某种规律,可以把i,j,k做为循环变量进行操作。
ps:没看明白你要做什么,也没弄明白i,j,k的规律,就这样吧
2楼2013-07-22 18:35:33
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

mshwangg

至尊木虫 (正式写手)

引用回帖:
2楼: Originally posted by mshwangg at 2013-07-22 18:35:33
aknew=ak
aknew[]=f[ak, i=1,4,7,9,....
aknew[]=g[ak, j=2,4,5,....
aknew[]=h[ak,k=3,11,13,15,...
f,g,h是某种计算,用函数表示了。
如果i,j,k中各个数值满足某种规律,可以把i,j,k做为循环变量进行操作。
...

aknew[]=f[ak[]], i=1,4,7,9,....
怎么就丢字符了呢
3楼2013-07-22 18:37:18
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

匿名

用户注销 (正式写手)

本帖仅楼主可见
4楼2013-07-22 19:21:31
已阅   申请程序强帖   回复此楼   编辑   查看我的主页

匿名

用户注销 (正式写手)

本帖仅楼主可见
5楼2013-07-22 19:28:16
已阅   申请程序强帖   回复此楼   编辑   查看我的主页

匿名

用户注销 (正式写手)

本帖仅楼主可见
6楼2013-07-22 19:33:31
已阅   申请程序强帖   回复此楼   编辑   查看我的主页

mshwangg

至尊木虫 (正式写手)

【答案】应助回帖

★ ★ ★ ★ ★ ★ ★ ★ ★ ★
liu0604: 金币+10, ★★★★★最佳答案, 太感谢您了!非常感谢!!! 2013-07-23 11:11:43
jjdg: 程序强帖+1, 应助指数+1, 辛苦了 2013-08-04 00:44:47
引用回帖:
6楼: Originally posted by liu0604 at 2013-07-22 19:33:31
我试了一下:出现错误……
ak = {a, b, c, f, d, e, r, t, u};
aknew = ak;
aknew[] = ak[]^2, {i, 1, 2, 3};


Syntax::tsntxi: "aknew[]=ak[]^2,{i,1,2,3};" is incomplete; more input is need ...

呃,我是说程序逻辑上,或者说数学表达上是这个样子,不是程序本身的语法。
既然只有16个元素,那么一个一个敲都可以啊。
不管如何,终究要归结为一个一个数组元素的操作。简单写一个程序,按照你自己的需求改吧
求个条件语句的编写
7楼2013-07-23 10:58:48
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

匿名

用户注销 (正式写手)

本帖仅楼主可见
9楼2013-08-03 20:08:02
已阅   申请程序强帖   回复此楼   编辑   查看我的主页
相关版块跳转 我要订阅楼主 liu0604 的主题更新
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考博] 27博士 +5 锦鲤送福至 2026-11-10 5/250 2026-11-13 06:22 by wlf1982
[论文投稿] 售SCI一区T0P文章,我:8.O.55.1.O54,科目全,可伽急 +3 TgvkbZZl9tqB 2026-11-11 4/200 2026-11-12 12:51 by ECLTXnJnRSXf
[硕博家园] 售SCI一区文章,我:8.O.551.O.5.4,科目全,可伽急 +3 TgvkbZZl9tqB 2026-11-11 4/200 2026-11-12 12:28 by ECLTXnJnRSXf
[考博] 售SCI一区T0P文章,我:8.O55.1.O.54,科目全,可十急 +3 Z7qfCsdIiD1T 2026-11-10 5/250 2026-11-12 11:25 by HajghKOMynmz
[硕博家园] 售SCI-T0P文章,我:8O.5.5.1.O.54,科目齐全,可+急 +5 Z7qfCsdIiD1T 2026-11-10 8/400 2026-11-12 11:20 by HajghKOMynmz
[基金申请] 售SCI文章,我:8O5.5.1.O.54,科目齐全,可+急 +5 czAiolzR0IJC 2026-11-10 9/450 2026-11-12 11:11 by HajghKOMynmz
[考博] 售SCI一区T0P文章,我:8.O.55.1.O54,科目全,可伽急 +4 C6CRn66RYYXS 2026-11-10 6/300 2026-11-12 10:27 by HajghKOMynmz
[考研] 售SCI一区T0P文章,我:8.O.55.1.O.5.4,科目全,可+急 +5 C6CRn66RYYXS 2026-11-10 7/350 2026-11-12 10:16 by HajghKOMynmz
[教师之家] 售SCI一区T0P文章,我:8O.55.1.O.5.4,科目齐全,可+急 +3 C6CRn66RYYXS 2026-11-10 8/400 2026-11-12 10:16 by HajghKOMynmz
[考博] 售SCI一区T0P文章,我:8O.55.1.O.5.4,科目齐全,可+急 +6 YHiw1gou1Eda 2026-11-10 6/300 2026-11-12 10:08 by HajghKOMynmz
[教师之家] 售SCI一区T0P文章,我:8.O55.1.O.54,科目全,可十急 +8 zSbvVX9JFl9J 2026-11-09 12/600 2026-11-12 09:21 by HajghKOMynmz
[教师之家] 售SCI一区文章,我:8.O.551.O.5.4,科目全,可伽急 +3 TgvkbZZl9tqB 2026-11-11 3/150 2026-11-12 08:26 by HajghKOMynmz
[教师之家] 售SCI一区T0P文章,我:8.O.55.1.O.54,科目齐全,可+急 +3 TgvkbZZl9tqB 2026-11-11 4/200 2026-11-12 08:15 by HajghKOMynmz
[论文投稿] 售SCI一区文章,我:8.O.551.O.5.4,科目全,可伽急 +3 cdqGD6ftHmbl 2026-11-11 3/150 2026-11-12 07:53 by HajghKOMynmz
[硕博家园] 售SCI文章,我:8O5.5.1.O.54,科目齐全,可+急 +3 G2rhSvqvhNzl 2026-11-10 5/250 2026-11-12 06:14 by 9fOTqj074tIg
[教师之家] 售SCI一区T0P文章,我:8O.55.1.O.54,科目全,可伽急 +4 FChKX8meu1ds 2026-11-09 7/350 2026-11-12 05:19 by 9fOTqj074tIg
[硕博家园] 售SCI一区T0P文章,我:8.O55.1.O.54,科目全,可十急 +5 FChKX8meu1ds 2026-11-09 6/300 2026-11-11 17:03 by TgvkbZZl9tqB
[考研] 售SCI文章,我:8O.5.5.1O.54,科目全,可十急 +6 5sJFDKp2kwuI 2026-11-06 14/700 2026-11-09 11:52 by GwrQVVR6Oenx
[考博] 售SCI文章,我:8O.5.5.1O.54,科目全,可十急 +5 5sJFDKp2kwuI 2026-11-06 15/750 2026-11-09 11:41 by GwrQVVR6Oenx
[考研] 售SCI一区T0P文章,我:8O.55.1.O.54,科目全,可伽急 +3 5sJFDKp2kwuI 2026-11-06 12/600 2026-11-09 06:32 by l48hFd8Nwae2
信息提示
请填处理意见