Stuck in RSI Indicator conversion

December 29th, 2023, 11:38 AM

Hello
I'm trying to convert an indicator to Multicharts 64.Is From Trendspider , they use some kind of Java. This is what I get:

Code

describe_indicator("RSI pressure zones");

const ATR_FACTOR = 5;
const LENGTH = 14;

const rsiNormalized = rsi(close, LENGTH).map(value => (value - 50) / 100);
const rsiScaledToAtr = for_every(atr(LENGTH), rsiNormalized, (a, r) => a * r * ATR_FACTOR);
const rsiDoubleScaledToAtr = mult(rsiScaledToAtr, 2);

const rsiLine = add(ohlc4, rsiScaledToAtr);
const rsiLineDouble = add(ohlc4, rsiDoubleScaledToAtr);

color_cloud(ohlc4, rsiLine, '#ff0000', '#00ff00', 'Red Area', 'Green Area');
color_cloud(rsiLine, rsiLineDouble, '#550000', 'green', 'Red Area', 'Green Area');

Conversion is so far :

Code

inputs:
      Length(14),
      ATR_Factor(5);
vars:
    
    ArraySize(10000),
    j(0);

array:
    RSIArray[10000](0),
    RsiScaledToAtr[10000](0),
    currentRsiScaled[10000](0),
    rsiNormalized[10000](0),
    RsiLineDouble[10000](0),
    RsiLine[10000](0);

// Calculate and normalize RSI values
for j = 0 to BarNumber - 1 begin
    RSIArray[j] = (RSI(Close, Length)[j] - 50) / 100;
end;

// Scale RSI values to ATR and store in currentRsiScaled
for j = 0 to BarNumber - 1 begin
    currentRsiScaled[j] = atr(Length)[j] * RSIArray[j] * ATR_Factor;
    // Use currentRsiScaled[j] for further calculations or assign it to another series
end;

// Copy values from currentRsiScaled to rsiScaledToAtr
for j = 0 to BarNumber - 1 begin
    RsiScaledToAtr[j] = currentRsiScaled[j];
end;

// Calculate RsiLine based on TypicalPrice and scaled RSI values
for j = 0 to BarNumber - 1 begin
   RsiLine[j] = TypicalPrice + RsiScaledToAtr[j];
   // Plot RsiLine on the chart
   Plot1(RsiLine[j], "RsiLine");
   //Plot1((RSI(Close, Length)[j] - 50) / 100 );
end;
{
// Calculate RsiLineDouble by doubling the scaled RSI values
for j = 0 to BarNumber - 1 begin
   RsiLineDouble[j] = RsiScaledToAtr[j] * 2;
   // Plot RsiLineDouble on the chart
   Plot2(RsiLineDouble[j], "RsiLineDouble");
end;
}

But it gives unclear result - especially the Plot2(RsiLineDouble is 100% wrong .
Any help ?

December 31st, 2023, 05:52 AM

add a pic

January 13th, 2024, 04:48 PM

Here you go please test

using System;
using System.Drawing;
using System.Linq;
using PowerLanguage.Function;
using PowerLanguage.Indicator;

namespace PowerLanguage.Strategy
{
public class RsiPressureZones : SignalObject
{
private readonly double ATR_FACTOR = 5;
private readonly int LENGTH = 14;

private IPlotSeries rsiNormalized;
private IPlotSeries rsiScaledToAtr;
private IPlotSeries rsiDoubleScaledToAtr;
private IPlotSeries rsiLine;
private IPlotSeries rsiLineDouble;

protected override void Create()
{
rsiNormalized = new PlotSeries(Color.Transparent);
rsiScaledToAtr = new PlotSeries(Color.Transparent);
rsiDoubleScaledToAtr = new PlotSeries(Color.Transparent);
rsiLine = new PlotSeries(Color.Transparent);
rsiLineDouble = new PlotSeries(Color.Transparent);

AddPlot(rsiNormalized);
AddPlot(rsiScaledToAtr);
AddPlot(rsiDoubleScaledToAtr);
AddPlot(rsiLine);
AddPlot(rsiLineDouble);
}

protected override void StartCalc()
{
var rsi = RSI(Close, LENGTH);
var rsiNormalized = rsi.Select(value => (value - 50) / 100);
var atr = ATR(LENGTH)[0];

var rsiScaledToAtr = rsiNormalized.Select((r, i) => atr[i] * r * ATR_FACTOR);
var rsiDoubleScaledToAtr = rsiScaledToAtr.Select(value => value * 2);

var rsiLine = Close + rsiScaledToAtr;
var rsiLineDouble = Close + rsiDoubleScaledToAtr;

this.rsiNormalized.Set(rsiNormalized);
this.rsiScaledToAtr.Set(rsiScaledToAtr);
this.rsiDoubleScaledToAtr.Set(rsiDoubleScaledToAtr);
this.rsiLine.Set(rsiLine);
this.rsiLineDouble.Set(rsiLineDouble);
}

protected override void CalcBar()
{
}
}
}

January 27th, 2024, 02:58 PM

Hello ,
you can try with Chat gbp, I had good results with, sometimes it takes several tests but is ok .
sorry I'm on a trip and impossible for me to test.

Stuck in RSI Indicator conversion

Discussion in EasyLanguage Programming

Stuck in RSI Indicator conversion