mast pos abst gh = r + 1 + (( tan ( asin ( ( gh + r + 1) / (abst + pos) ) )) * pos)
 where
  r = foldr (\ _ fz' -> fz pos abst fz') 0 [0..200]

fz pos abst fz' = 17.31 * sqrt (( diag * diag_front ) / ( chan11 * (diag + diag_front)))
 where 
  diag_front = sqrt (gh**2 + abst**2)
  diag = sqrt ( pos**2 + fz'**2 )
  chan11 = 2462

-- Variante mit zwei Masten
-- mast 5 200 (61 - 15) -> 2.97 + 0.8
-- mast 5 150 (61 - 15) -> 3.39 + 0.8

-- Zentraler Mast oder ein Mast an Front
-- 8 Meter diagonale Schräg über das Dach
-- mast 8 200 (61 - 15) -> 3.8 + 0.8
-- mast 8 150 (61 - 15) -> 4.5 + 0.8