Category Trend Published on 05/06/2023

BJ TSI

Description

using System;

using cAlgo.API;

using cAlgo.API.Indicators;

namespace cAlgo

{

[Levels(-25, 0, 25)]

[Indicator(IsOverlay = false, AccessRights = AccessRights.None)]

public class TrueStrengthIndex : Indicator

{

// Double Smoothed PC

// PC = Current Price minus Prior Price

// First Smoothing = 25-period EMA of PC

// Second Smoothing = 13-period EMA of 25-period EMA of PC

// Double Smoothed Absolute PC

// Absolute Price Change |PC| = Absolute Value of Current Price minus Prior Price

// First Smoothing = 25-period EMA of |PC|

// Second Smoothing = 13-period EMA of 25-period EMA of |PC|

// TSI = 100 x (Double Smoothed PC / Double Smoothed Absolute PC)

[Parameter("Source")]

public DataSeries Source { get; set; }

[Parameter("First Smoothing", DefaultValue = 25, MinValue = 1)]

public int FirstSmoothingPeriods { get; set; }

[Parameter("Second Smoothing", DefaultValue = 13, MinValue = 1)]

public int SecondSmoothingPeriods { get; set; }

[Parameter("Signal Periods", DefaultValue = 7, MinValue = 1)]

public int SignalPeriods { get; set; }

[Output("TSI", LineColor = "DodgerBlue")]

public IndicatorDataSeries TSI { get; set; }

[Output("Signal", LineColor = "Red")]

public IndicatorDataSeries Signal { get; set; }

private IndicatorDataSeries PC, APC;

private ExponentialMovingAverage FirstSmoothingPC, SecondSmoothingPC, FirstSmoothingAPC, SecondSmoothingAPC;

private ExponentialMovingAverage SignalEMA;

protected override void Initialize()

{

PC = CreateDataSeries();

FirstSmoothingPC = Indicators.ExponentialMovingAverage(PC, FirstSmoothingPeriods);

SecondSmoothingPC = Indicators.ExponentialMovingAverage(FirstSmoothingPC.Result, SecondSmoothingPeriods);

APC = CreateDataSeries();

FirstSmoothingAPC = Indicators.ExponentialMovingAverage(APC, FirstSmoothingPeriods);

SecondSmoothingAPC = Indicators.ExponentialMovingAverage(FirstSmoothingAPC.Result, SecondSmoothingPeriods);

SignalEMA = Indicators.ExponentialMovingAverage(TSI, SignalPeriods);

}

public override void Calculate(int index)

{

PC[indice] = Source[indice] - Source[indice - 1] ;

APC[index] = Math.Abs(PC[index]);

TSI[index] = 100 * (SecondSmoothingPC.Result[index] / SecondSmoothingAPC.Result[index]);

Signal[index] = SignalEMA.Résultat[index] ;

}

}

Source Code


using System;
using cAlgo.API;
using cAlgo.API.Indicators;

namespace cAlgo
{
    [Levels(-25, 0, 25)]
    [Indicator(IsOverlay = false, AccessRights = AccessRights.None)]
    public class TrueStrengthIndex : Indicator
    {
        // Double Smoothed PC
        // PC = Current Price minus Prior Price
        // First Smoothing = 25-period EMA of PC
        // Second Smoothing = 13-period EMA of 25-period EMA of PC

        // Double Smoothed Absolute PC
        // Absolute Price Change |PC| = Absolute Value of Current Price minus Prior Price
        // First Smoothing = 25-period EMA of |PC|
        // Second Smoothing = 13-period EMA of 25-period EMA of |PC|

        // TSI = 100 x (Double Smoothed PC / Double Smoothed Absolute PC)

        [Parameter("Source")]
        public DataSeries Source { get; set; }

        [Parameter("First Smoothing", DefaultValue = 25, MinValue = 1)]
        public int FirstSmoothingPeriods { get; set; }

        [Parameter("Second Smoothing", DefaultValue = 13, MinValue = 1)]
        public int SecondSmoothingPeriods { get; set; }

        [Parameter("Signal Periods", DefaultValue = 7, MinValue = 1)]
        public int SignalPeriods { get; set; }

        [Output("TSI", LineColor = "DodgerBlue")]
        public IndicatorDataSeries TSI { get; set; }

        [Output("Signal", LineColor = "Red")]
        public IndicatorDataSeries Signal { get; set; }

        private IndicatorDataSeries PC, APC;
        private ExponentialMovingAverage FirstSmoothingPC, SecondSmoothingPC, FirstSmoothingAPC, SecondSmoothingAPC;
        private ExponentialMovingAverage SignalEMA;

        protected override void Initialize()
        {
            PC = CreateDataSeries();
            FirstSmoothingPC = Indicators.ExponentialMovingAverage(PC, FirstSmoothingPeriods);
            SecondSmoothingPC = Indicators.ExponentialMovingAverage(FirstSmoothingPC.Result, SecondSmoothingPeriods);

            APC = CreateDataSeries();
            FirstSmoothingAPC = Indicators.ExponentialMovingAverage(APC, FirstSmoothingPeriods);
            SecondSmoothingAPC = Indicators.ExponentialMovingAverage(FirstSmoothingAPC.Result, SecondSmoothingPeriods);

            SignalEMA = Indicators.ExponentialMovingAverage(TSI, SignalPeriods);
        }

        public override void Calculate(int index)
        {
            PC[index] = Source[index] - Source[index - 1];
            APC[index] = Math.Abs(PC[index]);
            TSI[index] = 100 * (SecondSmoothingPC.Result[index] / SecondSmoothingAPC.Result[index]);

            Signal[index] = SignalEMA.Result[index];
        }
    }
}

ftmo1685059507

Joined on 05.06.2023

Distribution: Free
Language: C#
Trading platform: cTrader Automate
File name: True Strength Index.algo
Rating: 0
Installs: 324

Download

Note that publishing copyrighted material is strictly prohibited. If you believe there is copyrighted material in this section, please use the Copyright Infringement Notification form to submit a claim.

Comments

No comments found.

Copyright © 2024 Spotware Systems Ltd. All rights reserved.
The services provided by Spotware Systems Ltd. are not available to citizens or residents of the USA. Neither is the information on our websites directed toward soliciting citizens or residents of the USA.