24小时热门版块排行榜    

北京石油化工学院2026年研究生招生接收调剂公告
查看: 1303  |  回复: 10
本帖产生 1 个 程序强帖 ,点击这里进行查看

匿名

用户注销 (正式写手)

本帖仅楼主可见

» 猜你喜欢

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

已阅   同方向广播   申请程序强帖   回复此楼   编辑   查看我的主页
回帖置顶 ( 共有2个 )

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的回帖

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的回帖
回帖支持 ( 显示支持度最高的前 50 名 )

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
已阅   申请程序强帖   回复此楼   编辑   查看我的主页

匿名

用户注销 (正式写手)

本帖仅楼主可见
9楼2013-08-03 20:08:02
已阅   申请程序强帖   回复此楼   编辑   查看我的主页
相关版块跳转 我要订阅楼主 liu0604 的主题更新
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 调剂 +3 好好读书。 2026-04-01 6/300 2026-04-02 15:49 by liumengping
[考研] 321求调剂 一志愿 浙江工业大学生物医药 +5 嘿嘿HC 2026-04-01 6/300 2026-04-02 15:23 by sophie2180
[考研] 266分,一志愿电气工程,本科材料,求材料专业调剂 +4 哇呼哼呼哼 2026-04-02 4/200 2026-04-02 13:10 by yulian1987
[考研] 能源动力 调剂 +3 不破不立0 2026-04-02 3/150 2026-04-02 12:46 by ffffjjjj
[考研] 一志愿厦门大学材料工程专硕354找调剂!!! +7 贝呗钡钡 2026-03-30 7/350 2026-04-02 12:19 by 1753564080
[考研] 085601 材料工程 313分 求调剂 +7 Ong3 2026-03-27 7/350 2026-04-02 11:29 by 3041
[考研] 085600,材料与化工321分调剂 +8 大馋小子 2026-03-27 10/500 2026-04-02 10:15 by kaiyanjie
[考研] 266求调剂 +4 学员97LZgn 2026-04-02 4/200 2026-04-02 09:52 by yulian1987
[考研] 求调剂,一志愿南京师范大学计算机专硕,初试373,六级通过, +3 计算机追梦人 2026-04-01 3/150 2026-04-02 07:57 by fxue1114
[考研] 求调剂推荐 材料 304 +21 荷包蛋hyj 2026-03-26 21/1050 2026-04-01 21:09 by lijunpoly
[考研] 309求调剂 +19 谁不是少年 2026-03-29 19/950 2026-04-01 15:47 by jp9609
[考研] 调剂 +5 好好读书。 2026-03-28 7/350 2026-04-01 15:32 by 王亮_大连医科大
[考研] 一志愿北交材料工程总分358 +5 cs0106 2026-04-01 7/350 2026-04-01 11:45 by wangjy2002
[考研] 0710生物学求调剂! +6 叙述文 2026-03-31 6/300 2026-04-01 09:39 by JourneyLucky
[考研] 375求调剂 +7 雨夏整夜 2026-03-29 7/350 2026-03-31 18:52 by xhai2011
[考研] 物理学调剂 +4 小羊36 2026-03-30 4/200 2026-03-31 16:16 by lishahe
[考研] 085601 329分调剂 +6 yzsa12 2026-03-31 6/300 2026-03-31 15:23 by yanflower7133
[考研] 南京大学化学调剂 +11 景随风 2026-03-29 16/800 2026-03-31 10:14 by herarysara
[考研] 262求调剂 +7 ZZ..000 2026-03-30 8/400 2026-03-31 10:05 by cal0306
[考研] 0703化学321分求调剂 +10 三dd. 2026-03-30 11/550 2026-03-30 19:24 by markhwc
信息提示
请填处理意见