24小时热门版块排行榜    

查看: 451  |  回复: 1
本帖产生 1 个 博学EPI ,点击这里进行查看
当前只显示满足指定条件的回帖,点击这里查看本话题的所有回帖

xiaoqing8569

铁杆木虫 (著名写手)

奥林匹亚光学院院长

【答案】应助回帖

yht000(金币+50, 博学EPI+1): 好像有点卡,不过还是谢谢了。。 2011-05-21 23:18:49
A = {{1 , 2 , 3}, {4, 5, 6}, {1, 2, 3}, {34, 1, 0}, {7, 8, 9}, {1, 2,
   3}, {3, 5, 2}, {1, 2, 3}, {1, 2, 3}}; B = {1, 2, 3};
c = {};
A // MatrixForm
For[i = 1, i <= Length[A], i++, If[A[] == B, c = Append[c, i]]]
For[i = Length[c], i >= 1, i--, A = Delete[A, c[]]]
A
2楼2011-05-21 23:06:05
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 yht000 的主题更新
信息提示
请填处理意见