DayWithMaxTrendWaveDifference ->
Arg Distances : List : Integer <- DayData
  - Day_with_max_difference = 0 ..

Max_difference = 0 ..

Do get Day_of_month, Day from Distances
 If Difference > Max_difference 
    ' Difference = Abs (Day.Trends - Day.Waves) then
  Max_difference = Difference; Day_with_max_difference = Day_of_month
 ;
;

/

