AV
хотя что-то не выходит preMapMaybe написать
Size: a a a
2020 May 11
AA
хотя что-то не выходит preMapMaybe написать
я чет не понимаю зачем он тут
AV
А блин, туплю, тут не нужен
AV
но если бы я делал не each._3 а each
AV
дальше один fold делал бы по _3 типа Maybe Int, а другой по _4 Int
AV
В _3 мне нужно вызвать fromIntegral и пофильтровать Nothing
AA
handles _Just ?
AA
L.foldOver each ((,) <$> L.handles (_3._Just.to fromInteger) L.mean <*> L.handles _4 L.maximum) [(1,1,Just 1,1),(2,2,Nothing,2),(3,3,Just 3,3)]
(2.0,Just 3)
AA
AV
О норм, спасибо
ЕТ
привет, я не знаю хаскель и переписываю на питон алгоритм
https://github.com/Purview/purview/blob/develop/src/Graphics/Forensics/Analyser/LuminanceGradient.hs
в теории - есть картинка, мы ее переводим в градации серого, делим на блоки 3*3 пикселя,
затем находим градиент освещенности (самый светлый пиксель/ диагональ)
затем кодируем направление и длину вектора цветами r g b. получаем такую картинку
вопрос - как ищется этот градиент и как кодируется в rgb
в коде есть вертикальное и горизонтальное ядра свертки sobel
и что то похожее на функцию, но я не понимаю как это работает
https://github.com/Purview/purview/blob/develop/src/Graphics/Forensics/Analyser/LuminanceGradient.hs
в теории - есть картинка, мы ее переводим в градации серого, делим на блоки 3*3 пикселя,
затем находим градиент освещенности (самый светлый пиксель/ диагональ)
затем кодируем направление и длину вектора цветами r g b. получаем такую картинку
вопрос - как ищется этот градиент и как кодируется в rgb
в коде есть вертикальное и горизонтальное ядра свертки sobel
и что то похожее на функцию, но я не понимаю как это работает
{-# INLINE gradientColour #-}
gradientColour :: Float -> Float -> RGBA Float
gradientColour gx gy =
{- Computes a colour depending on the local light direction -}
RGBA r g b 1.0
where
angle = atan2 gy gx
r = getR angle
g = getG angle
b = magnitude gx gy
{-# INLINE magnitude #-}
magnitude x y = sqrt (x * x + y * y)
{-# INLINE getR #-}
getR = (0.5 +) . (/ 2) . negate . sin
{-# IAV
Может лучше выучить haskell и не переписывть на питон?
ЕТ
Может лучше выучить haskell и не переписывть на питон?
я всё пишу на питоне, хаскель вряд ли пригодится пока что
֍֎
привет, я не знаю хаскель и переписываю на питон алгоритм
https://github.com/Purview/purview/blob/develop/src/Graphics/Forensics/Analyser/LuminanceGradient.hs
в теории - есть картинка, мы ее переводим в градации серого, делим на блоки 3*3 пикселя,
затем находим градиент освещенности (самый светлый пиксель/ диагональ)
затем кодируем направление и длину вектора цветами r g b. получаем такую картинку
вопрос - как ищется этот градиент и как кодируется в rgb
в коде есть вертикальное и горизонтальное ядра свертки sobel
и что то похожее на функцию, но я не понимаю как это работает
https://github.com/Purview/purview/blob/develop/src/Graphics/Forensics/Analyser/LuminanceGradient.hs
в теории - есть картинка, мы ее переводим в градации серого, делим на блоки 3*3 пикселя,
затем находим градиент освещенности (самый светлый пиксель/ диагональ)
затем кодируем направление и длину вектора цветами r g b. получаем такую картинку
вопрос - как ищется этот градиент и как кодируется в rgb
в коде есть вертикальное и горизонтальное ядра свертки sobel
и что то похожее на функцию, но я не понимаю как это работает
{-# INLINE gradientColour #-}
gradientColour :: Float -> Float -> RGBA Float
gradientColour gx gy =
{- Computes a colour depending on the local light direction -}
RGBA r g b 1.0
where
angle = atan2 gy gx
r = getR angle
g = getG angle
b = magnitude gx gy
{-# INLINE magnitude #-}
magnitude x y = sqrt (x * x + y * y)
{-# INLINE getR #-}
getR = (0.5 +) . (/ 2) . negate . sin
{-# IДословный перевод:
def gradientColour(gx, gy):
angle = atan2(gx, gy)
r = 0.5 + sin(angle) * -1 / 2
g = 0.5 + cos(angle) * -1 / 2
b = sqrt(gx * gx + gy * gy)
return rgba(r, g, b, 1.0)ЕТ
Дословный перевод:
def gradientColour(gx, gy):
angle = atan2(gx, gy)
r = 0.5 + sin(angle) * -1 / 2
g = 0.5 + cos(angle) * -1 / 2
b = sqrt(gx * gx + gy * gy)
return rgba(r, g, b, 1.0)спасибо большое))
DI
Подскажите, пожалуйста, насколько сложна реализация такой программы на хаскеле?
1. Поиск пути в лабиринте
Лабиринт представлен в виде текстового файла. Позиция символа (0,0) – вход в лабиринт, любой символ – стена. Проверить, есть ли выход из лабиринта и указать его координаты, если есть.
1. Поиск пути в лабиринте
Лабиринт представлен в виде текстового файла. Позиция символа (0,0) – вход в лабиринт, любой символ – стена. Проверить, есть ли выход из лабиринта и указать его координаты, если есть.
Решение выглядит как реализация поиска в глубину или в ширину. Не вижу ничего сложного на Хаскеле.
VZ
Пытаюсь понять пейпер про System FC.
VZ
Там такое правило
