Re: [問題] list中選擇一串數據的方法
看板Mathematica作者chungyuandye (養花種魚數月亮賞星星)時間12年前 (2012/06/14 00:45)推噓2(2推 0噓 0→)留言2則, 2人參與討論串2/3 (看更多)
※ 引述《biing (快樂的過每一天)》之銘言：
: 如果
: a = Table[{i, RandomInteger[{1, 3}]}, {i, 1, 10}]
: 假設list是:
: {{1, 2}, {2, 1}, {3, 3}, {4, 2}, {5, 2}, {6, 1}, {7, 1},
: {8, 3}, {9, 1}, {10, 1}}
: 要怎樣以a[[i,2]]中,連續有3個或以上等於或大於2，來選出list呢?
: 例如
: {{3, 3}, {4, 2}, {5, 2}}
: 謝謝。
Select[
(* ReplaceList 這個函數把左右兩邊陣列第二的元素小於2的抓出來 *)
ReplaceList[
a, {___, x_, a1__, y_, ___} :> {a1} /; x[[2]] < 2 && y[[2]] < 2],
(* 利用Select把ReplaceList輸出的資料長度大於三及全部第二個元素都是大於
或等於2的抓出來 *)
Length[#] >= 3 &&
Apply[Times, Boole@Thread[#[[All, 2]] >= 2]] == 1 &]
--
養花種魚數月亮賞星星
http://chungyuandye.twbbs.org
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 118.233.129.177
推
06/14 06:16, , 1F
06/14 06:16, 1F
推
06/14 21:48, , 2F
06/14 21:48, 2F
※ 編輯: chungyuandye 來自: 118.233.129.177 (06/14 23:01)
討論串 (同標題文章)
本文引述了以下文章的的內容：
完整討論串 (本文為第 2 之 3 篇)：
Mathematica 近期熱門文章
PTT數位生活區 即時熱門文章
