We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent a7a0c43 commit 07fd86dCopy full SHA for 07fd86d
pub/bfx/src/Bfx/Indicator/Rsi.hs
@@ -82,8 +82,8 @@ mkRsiConduit mkCandle (RsiPeriod natPer) =
82
case mcandle of
83
Nothing -> pure $ Right ()
84
Just (c, loss, gain) -> do
85
- let nextAvgLoss = prevAvgLoss * (ratPer - 1) + loss / ratPer
86
- let nextAvgGain = prevAvgGain * (ratPer - 1) + gain / ratPer
+ let nextAvgLoss = (prevAvgLoss * (ratPer - 1) + loss) / ratPer
+ let nextAvgGain = (prevAvgGain * (ratPer - 1) + gain) / ratPer
87
let rs = nextAvgGain / nextAvgLoss
88
let rsi = Rsi $ 100 - (100 / (1 + rs))
89
C.yield (c, rsi)
0 commit comments