Разбиение списка на подсписки

@almalysh · Регистрация: 24.01.2014

Author24 — интернет-сервис помощи студентам

Приветствую!

Подскажите, пожалуйста, как на Haskell красиво решить вот такую задачу:

Имеется массив экспериментальных данных, состоящий из кортежей, например

Haskell

1	type Trajectory = [ (Double,Double,Double) ]

Известно, что по меньшей мере одна величина (допустим, первая) меняется более или менее периодически, то есть моделируемая система ведет себя циклически (но при этом наблюдаются заметные флуктуации).

Нужно разбить исходный список на подсписки, в каждом из которых будут данные отдельного цикла. Например, по признаку изменения знака первой величины с минуса на плюс.
То есть исходный массив должен превратиться в список списков

Haskell

1	type TPeriods = [ [(Double,Double,Double)] ]

В котором каждый из подсписков представляет собой данные одного цикла. Границы между циклами определяются сопоставлением значения определенной величины в текущем кортеже с ее значением в предыдущем или предыдущих: либо меняется знак в определенном направлении - данные режутся на циклы при переходе через 0 в положительном направлении; либо меняется с + на - знак разности текущего значения с предыдыдущим - циклы режутся по прохождению максимума в периоде.

Хорошо бы при этом еще отбросить первый и последний циклы, если они не полные.

Заранее спасибо за совет.

@Catstail · 24.01.2014, 18:56

Не скажу, что очень красиво:

Haskell

type Point = (Double,Double,Double)
 
first :: Point -> Double
first (x,y,z) = x
 
cutData' :: [Point] -> Point -> [Point]  -> [[Point]]
cutData' [] p s   = [s ++ [p]]
cutData' (q:qs) p s | ((signum (first q)) * (signum (first p))) < 0 = [s ++ [p]] ++ (cutData' qs q [])
                   | otherwise = cutData' qs q (s ++ [p])
                   
cutData :: [Point] -> [[Point]]                   
cutData q = cutData' (tail q) (head q) []
 
Main> cutData [(1,2,3),(1.5,2,3),(1.7,5,7),(1.5,8,9),(1.4,6,5),(0.9,4,5),(-0.9,5,8),(-1.2,2,3)]
 
[[(1.0,2.0,3.0),(1.5,2.0,3.0),(1.7,5.0,7.0),(1.5,8.0,9.0),(1.4,6.0,5.0),(0.9,4.0,5.0)],[(-0.9,5
.0,8.0),(-1.2,2.0,3.0)]]

@almalysh · 27.01.2014, 14:23 **[ТС]**

Спасибо!

@almalysh 0 / 0 / 0 Регистрация: 24.01.2014 Сообщений: 2
	27.01.2014, 14:23 [ТС]	3
	Спасибо! 0