Information

Username: alexsanramon
Member since: 21 Feb 2019
Last login: 25 Apr 2023
Status: Active

Activity

Where Created Comments
Algorithms 3 18
Forum Topics 6 31
Jobs 0 0

Last Algorithm Comments

AL
alexsanramon · 2 years ago

This indicator works the same as simple moving average. Please check. THanks,

AL
alexsanramon · 4 years ago

I would like to thank those who voted in my suggestion here: 

https://ctrader.com/forum/suggestions/21848

AL
alexsanramon · 5 years ago

So what happened? Did you update it? Please advise.

AL
alexsanramon · 5 years ago

I ask the same thing to the telegram group. Go there and find the solution. Sorry but you are right.

AL
alexsanramon · 5 years ago

Is there a moderator for algos that checks if repainters like this one? Spotware should stop all kinds of useless indicators.

AL
alexsanramon · 5 years ago

Thank you

AL
alexsanramon · 5 years ago

Join the group and request the indicator you are dreaming about.

AL
alexsanramon · 5 years ago

This is nice. Join the Discord chat now.

AL
alexsanramon · 5 years ago

Thank you for building the VQ.

 

Let us all join his group chat.

AL
alexsanramon · 5 years ago

Let us all join his Discord group.

AL
alexsanramon · 5 years ago

This is indeed a fantastic indicator. Let us all join his Discord Server were friendly traders meet.

AL
alexsanramon · 5 years ago

Below is the C# version..

 

public class DirectionalVolatility : Indicator
    {
        public DirectionalVolatility()
        {
            IndicatorName  = "Directional volatility";
            PossibleSlots  = SlotTypes.OpenFilter | SlotTypes.CloseFilter;
            SeparatedChart = true;
            
            IndicatorAuthor = "Footon";
            IndicatorVersion = "2.0";
            IndicatorDescription = "Footon's indi corner: custom indicators for FSB and FST.";
        }

        public override void Initialize(SlotTypes slotType)
        {
            SlotType = slotType;

            // The ComboBox parameters
            IndParam.ListParam[0].Caption  = "Logic";
            IndParam.ListParam[0].ItemList = new string[]
            {
                "The  line rises",
                "The  line falls",
                "The  line changes its direction upward",
                "The  line changes its direction downward",
                "The  line crosses the Signal line upward",
                "The  line crosses the Signal line downward",
                "The  line is higher than the Signal line",
                "The  line is lower than the Signal line"
            };
            IndParam.ListParam[0].Index    = 0;
            IndParam.ListParam[0].Text     = IndParam.ListParam[0].ItemList[IndParam.ListParam[0].Index];
            IndParam.ListParam[0].Enabled  = true;
            IndParam.ListParam[0].ToolTip  = "Logic of application of the indicator.";
 
            IndParam.ListParam[1].Caption  = "Smoothing method";
            IndParam.ListParam[1].ItemList = Enum.GetNames(typeof(MAMethod));
            IndParam.ListParam[1].Index    = (int)MAMethod.Simple;
            IndParam.ListParam[1].Text     = IndParam.ListParam[1].ItemList[IndParam.ListParam[1].Index];
            IndParam.ListParam[1].Enabled  = true;
            IndParam.ListParam[1].ToolTip  = "The method used for smoothing.";
 
            IndParam.NumParam[0].Caption = "period1";
            IndParam.NumParam[0].Value   = 5;
            IndParam.NumParam[0].Min     = 1;
            IndParam.NumParam[0].Max     = 200;
            IndParam.NumParam[0].Enabled = true;
            IndParam.NumParam[0].ToolTip = "The smoothing period ";
 
            IndParam.NumParam[1].Caption = "period2";
            IndParam.NumParam[1].Value   = 3;
            IndParam.NumParam[1].Min     = 1;
            IndParam.NumParam[1].Max     = 200;
            IndParam.NumParam[1].Enabled = true;
            IndParam.NumParam[1].ToolTip = "The smoothing period ";
 
            // The CheckBox parameters
            IndParam.CheckParam[0].Caption = "Use previous bar value";
            IndParam.CheckParam[0].Enabled = true;
            IndParam.CheckParam[0].ToolTip = "Use the indicator value from the previous bar.";
 
            return;
        }
 
        public override void Calculate(IDataSet dataSet)
        {
            DataSet = dataSet;
            
            // Reading the parameters
            MAMethod maMethod = (MAMethod)IndParam.ListParam[1].Index;
            int iPeriod     = (int)IndParam.NumParam[0].Value;
            int iPeriod2 = (int)IndParam.NumParam[1].Value;
            int iPrvs  = IndParam.CheckParam[0].Checked ? 1 : 0;
 
            // Calculation
            int iFirstBar = iPeriod + 3;
 
            double[] range = new double[Bars];
            double[] distance  = new double[Bars];
            double[] adSTDV = new double[Bars];
            
            for (int iBar = 1; iBar < Bars; iBar++)
            {
                range[iBar] = High[iBar] - Low[iBar];
                distance[iBar] = Math.Abs(Open[iBar] - Close[iBar]);
            }
            
            for (int iBar = iPeriod; iBar < Bars; iBar++)
            {
                double dSum = 0;
                for (int index = 0; index < iPeriod; index++)
                {
                    double fDelta = (range[iBar - index] - distance[iBar]);
                    dSum  += fDelta * fDelta;
                }
                adSTDV[iBar] = Math.Sqrt(dSum / iPeriod);
            }
            
            double[] signal = MovingAverage(iPeriod2, 0, maMethod, adSTDV);
 
            // Saving the components
            Component = new IndicatorComp[4];
 
            Component[0] = new IndicatorComp();
            Component[0].CompName   = "Main Line";
            Component[0].DataType   = IndComponentType.IndicatorValue;
            Component[0].ChartType  = IndChartType.Line;
            Component[0].ChartColor = Color.Green;
            Component[0].FirstBar   = iFirstBar;
            Component[0].Value      = adSTDV;
 
            Component[1] = new IndicatorComp();
            Component[1].CompName   = "Signal line";
            Component[1].DataType   = IndComponentType.IndicatorValue;
            Component[1].ChartType  = IndChartType.Line;
            Component[1].ChartColor = Color.Red;
            Component[1].FirstBar   = iFirstBar;
            Component[1].Value      = signal;
 
            Component[2] = new IndicatorComp();
            Component[2].ChartType = IndChartType.NoChart;
            Component[2].FirstBar  = iFirstBar;
            Component[2].Value     = new double[Bars];
 
            Component[3] = new IndicatorComp();
            Component[3].ChartType = IndChartType.NoChart;
            Component[3].FirstBar  = iFirstBar;
            Component[3].Value     = new double[Bars];
 
            // Sets the Component's type
            if (SlotType == SlotTypes.OpenFilter)
            {
                Component[2].DataType = IndComponentType.AllowOpenLong;
                Component[2].CompName = "Is long entry allowed";
                Component[3].DataType = IndComponentType.AllowOpenShort;
                Component[3].CompName = "Is short entry allowed";
            }
            else if (SlotType == SlotTypes.CloseFilter)
            {
                Component[2].DataType = IndComponentType.ForceCloseLong;
                Component[2].CompName = "Close out long position";
                Component[3].DataType = IndComponentType.ForceCloseShort;
                Component[3].CompName = "Close out short position";
            }
 
            switch (IndParam.ListParam[0].Text)
            {
                case "The  line rises":
                    OscillatorLogic(iFirstBar, iPrvs, adSTDV, 0, 0, ref Component[2], ref Component[3], IndicatorLogic.The_indicator_rises);
                    break;
 
                case "The  line falls":
                    OscillatorLogic(iFirstBar, iPrvs, adSTDV, 0, 0, ref Component[2], ref Component[3], IndicatorLogic.The_indicator_falls);
                    break;
 
                case "The  line is higher than level":
                    OscillatorLogic(iFirstBar, iPrvs, adSTDV, 0, 0, ref Component[2], ref Component[3], IndicatorLogic.The_indicator_is_higher_than_the_level_line);
                    break;
 
                case "The  line is lower than level":
                    OscillatorLogic(iFirstBar, iPrvs, adSTDV, 0, 0, ref Component[2], ref Component[3], IndicatorLogic.The_indicator_is_lower_than_the_level_line);
                    break;
 
                case "The  line crosses the level line upward":
                    OscillatorLogic(iFirstBar, iPrvs, adSTDV, 0, 0, ref Component[2], ref Component[3], IndicatorLogic.The_indicator_crosses_the_level_line_upward);
                    break;
 
                case "The  line crosses the level line downward":
                    OscillatorLogic(iFirstBar, iPrvs, adSTDV, 0, 0, ref Component[2], ref Component[3], IndicatorLogic.The_indicator_crosses_the_level_line_downward);
                    break;
 
                case "The  line changes its direction upward":
                    OscillatorLogic(iFirstBar, iPrvs, adSTDV, 0, 0, ref Component[2], ref Component[3], IndicatorLogic.The_indicator_changes_its_direction_upward);
                    break;
 
                case "The  line changes its direction downward":
                    OscillatorLogic(iFirstBar, iPrvs, adSTDV, 0, 0, ref Component[2], ref Component[3], IndicatorLogic.The_indicator_changes_its_direction_downward);
                    break;
 
                case "The  line crosses the Signal line upward":
                    IndicatorCrossesAnotherIndicatorUpwardLogic(iFirstBar, iPrvs, adSTDV, signal, ref Component[2], ref Component[3]);
                    break;
 
                case "The  line crosses the Signal line downward":
                    IndicatorCrossesAnotherIndicatorDownwardLogic(iFirstBar, iPrvs, adSTDV, signal, ref Component[2], ref Component[3]);
                    break;
 
                case "The  line is higher than the Signal line":
                    IndicatorIsHigherThanAnotherIndicatorLogic(iFirstBar, iPrvs, adSTDV, signal, ref Component[2], ref Component[3]);
                    break;
 
                case "The  line is lower than the Signal line":
                    IndicatorIsLowerThanAnotherIndicatorLogic(iFirstBar, iPrvs, adSTDV, signal, ref Component[2], ref Component[3]);
                    break;
 
                default:
                    break;
            }
 
            return;
        }
 
        ///
        /// Sets the indicator logic description
        ///
        public override void SetDescription()
        {
            EntryFilterLongDescription  = ToString() + "; the  line ";
            EntryFilterShortDescription = ToString() + "; the  line ";
            ExitFilterLongDescription   = ToString() + "; the  line ";
            ExitFilterShortDescription  = ToString() + "; the  line ";
 
            switch (IndParam.ListParam[0].Text)
            {
                case "The  line rises":
                    EntryFilterLongDescription  += "rises";
                    EntryFilterShortDescription += "falls";
                    ExitFilterLongDescription   += "rises";
                    ExitFilterShortDescription  += "falls";
                    break;
 
                case "The  line falls":
                    EntryFilterLongDescription  += "falls";
                    EntryFilterShortDescription += "rises";
                    ExitFilterLongDescription   += "falls";
                    ExitFilterShortDescription  += "rises";
                    break;
 
                case "The  line is higher than level":
                    EntryFilterLongDescription  += "is higher than the level line";
                    EntryFilterShortDescription += "is lower than the level line";
                    ExitFilterLongDescription   += "is higher than the level line";
                    ExitFilterShortDescription  += "is lower than the level line";
                    break;
 
                case "The  line is lower than level":
                    EntryFilterLongDescription  += "is lower than the level line";
                    EntryFilterShortDescription += "is higher than the level line";
                    ExitFilterLongDescription   += "is lower than the level line";
                    ExitFilterShortDescription  += "is higher than the level line";
                    break;
 
                case "The  line crosses the level line upward":
                    EntryFilterLongDescription  += "crosses the level line upward";
                    EntryFilterShortDescription += "crosses the level line downward";
                    ExitFilterLongDescription   += "crosses the level line upward";
                    ExitFilterShortDescription  += "crosses the level line downward";
                    break;
 
                case "The  line crosses the level line downward":
                    EntryFilterLongDescription  += "crosses the level line downward";
                    EntryFilterShortDescription += "crosses the level line upward";
                    ExitFilterLongDescription   += "crosses the level line downward";
                    ExitFilterShortDescription  += "crosses the level line upward";
                    break;
 
                case "The  line changes its direction upward":
                    EntryFilterLongDescription  += "changes its direction upward";
                    EntryFilterShortDescription += "changes its direction downward";
                    ExitFilterLongDescription   += "changes its direction upward";
                    ExitFilterShortDescription  += "changes its direction downward";
                    break;
 
                case "The  line changes its direction downward":
                    EntryFilterLongDescription  += "changes its direction downward";
                    EntryFilterShortDescription += "changes its direction upward";
                    ExitFilterLongDescription   += "changes its direction downward";
                    ExitFilterShortDescription  += "changes its direction upward";
                    break;
 
                case "The  line is higher than the Signal line":
                    EntryFilterLongDescription  += "is higher than the Signal line";
                    EntryFilterShortDescription += "is lower than the Signal line";
                    ExitFilterLongDescription   += "is higher than the Signal line";
                    ExitFilterShortDescription  += "is lower than the Signal line";
                    break;
 
                case "The  line is lower than the Signal line":
                    EntryFilterLongDescription  += "is lower than the Signal line";
                    EntryFilterShortDescription += "is higher than the Signal line";
                    ExitFilterLongDescription   += "is lower than the Signal line";
                    ExitFilterShortDescription  += "is higher than the Signal line";
                    break;
 
                case "The  line crosses the Signal line upward":
                    EntryFilterLongDescription  += "crosses the Signal line upward";
                    EntryFilterShortDescription += "crosses the Signal line downward";
                    ExitFilterLongDescription   += "crosses the Signal line upward";
                    ExitFilterShortDescription  += "crosses the Signal line downward";
                    break;
 
                case "The  line crosses the Signal line downward":
                    EntryFilterLongDescription  += "crosses the Signal line downward";
                    EntryFilterShortDescription += "crosses the Signal line upward";
                    ExitFilterLongDescription   += "crosses the Signal line downward";
                    ExitFilterShortDescription  += "crosses the Signal line upward";
                    break;
 
                default:
                    break;
            }
 
            return;
        }
 
        ///
        /// Indicator to string
        ///
        public override string ToString()
        {
            string sString = IndicatorName +
                (IndParam.CheckParam[0].Checked ? "* (" : " (") +
                IndParam.NumParam[0].ValueToString + ")";  //  period
 
            return sString;
        }
    }
}

AL
alexsanramon · 5 years ago

Hello,

I found this gem that works like an absolute strength indicator. But the mq4 converter is buggy. Is there a way to turn this indicator into calgo. Thanks in advance.

 

class Directionalvolatility : public Indicator   { public:                      Directionalvolatility(SlotTypes slotType)      {       SlotType=slotType;       IndicatorName="Directional volatility";       WarningMessage    = "";       IsAllowLTF        = true;       ExecTime          = ExecutionTime_DuringTheBar;       IsSeparateChart   = true;       IsDiscreteValues  = false;       IsDeafultGroupAll = false;      }    virtual void      Calculate(DataSet &dataSet);   }; //+------------------------------------------------------------------+ //|                                                                  | //+------------------------------------------------------------------+ void Directionalvolatility::Calculate(DataSet &dataSet)   {    Data=GetPointer(dataSet); // Reading the parameters    MAMethod maMethod=(MAMethod) ListParam[1].Index;    int period=(int) NumParam[0].Value;    int period2=(int) NumParam[1].Value;    int prvs=CheckParam[0].Checked ? 1 : 0; // Calculation    int firstBar=period+3;    double range[];    ArrayResize(range,Data.Bars);    ArrayInitialize(range, 0);    double distance[]; ArrayResize(distance,Data.Bars); ArrayInitialize(distance, 0);    double adStdv[];   ArrayResize(adStdv,Data.Bars);   ArrayInitialize(adStdv, 0);    for(int bar=1; bar<Data.Bars; bar++)      {       range[bar]=Data.High[bar]-Data.Low[bar];       distance[bar]=MathAbs(Data.Open[bar]-Data.Close[bar]);      }    for(int bar=period; bar<Data.Bars; bar++)      {       double sum=0;       for(int index=0; index<period; index++)         {          double delta=(range[bar-index]-distance[bar]);          sum+=delta*delta;         }       adStdv[bar]=MathSqrt(sum/period);      }    double signal[];    MovingAverage(period2,0,maMethod,adStdv,signal); // Saving the components    ArrayResize(Component[0].Value,Data.Bars);    Component[0].CompName = "Main Line";    Component[0].DataType = IndComponentType_IndicatorValue;    Component[0].FirstBar = firstBar;    ArrayCopy(Component[0].Value,adStdv);    ArrayResize(Component[1].Value,Data.Bars);    Component[1].CompName = "Signal line";    Component[1].DataType = IndComponentType_IndicatorValue;    Component[1].FirstBar = firstBar;    ArrayCopy(Component[1].Value,signal);    ArrayResize(Component[2].Value,Data.Bars);    Component[2].FirstBar=firstBar;    ArrayResize(Component[3].Value,Data.Bars);    Component[3].FirstBar=firstBar; // Sets the Component's type    if(SlotType==SlotTypes_OpenFilter)      {       Component[2].DataType = IndComponentType_AllowOpenLong;       Component[2].CompName = "Is long entry allowed";       Component[3].DataType = IndComponentType_AllowOpenShort;       Component[3].CompName = "Is short entry allowed";      }    else if(SlotType==SlotTypes_CloseFilter)      {       Component[2].DataType = IndComponentType_ForceCloseLong;       Component[2].CompName = "Close out long position";       Component[3].DataType = IndComponentType_ForceCloseShort;       Component[3].CompName = "Close out short position";      }    if(ListParam[0].Text=="The  line rises")       OscillatorLogic(firstBar,prvs,adStdv,0,0,Component[2],Component[3],IndicatorLogic_The_indicator_rises);    else if(ListParam[0].Text=="The  line falls")       OscillatorLogic(firstBar,prvs,adStdv,0,0,Component[2],Component[3],IndicatorLogic_The_indicator_falls);    else if(ListParam[0].Text=="The  line is higher than level")       OscillatorLogic(firstBar,prvs,adStdv,0,0,Component[2],Component[3],IndicatorLogic_The_indicator_is_higher_than_the_level_line);    else if(ListParam[0].Text=="The  line is lower than level")       OscillatorLogic(firstBar,prvs,adStdv,0,0,Component[2],Component[3],IndicatorLogic_The_indicator_is_lower_than_the_level_line);    else if(ListParam[0].Text=="The  line crosses the level line upward")       OscillatorLogic(firstBar,prvs,adStdv,0,0,Component[2],Component[3],IndicatorLogic_The_indicator_crosses_the_level_line_upward);    else if(ListParam[0].Text=="The  line crosses the level line downward")       OscillatorLogic(firstBar,prvs,adStdv,0,0,Component[2],Component[3],IndicatorLogic_The_indicator_crosses_the_level_line_downward);    else if(ListParam[0].Text=="The  line changes its direction upward")       OscillatorLogic(firstBar,prvs,adStdv,0,0,Component[2],Component[3],IndicatorLogic_The_indicator_changes_its_direction_upward);    else if(ListParam[0].Text=="The  line changes its direction downward")       OscillatorLogic(firstBar,prvs,adStdv,0,0,Component[2],Component[3],IndicatorLogic_The_indicator_changes_its_direction_downward);    else if(ListParam[0].Text=="The  line crosses the Signal line upward")       IndicatorCrossesAnotherIndicatorUpwardLogic(firstBar,prvs,adStdv,signal,Component[2],Component[3]);    else if(ListParam[0].Text=="The  line crosses the Signal line downward")       IndicatorCrossesAnotherIndicatorDownwardLogic(firstBar,prvs,adStdv,signal,Component[2],Component[3]);    else if(ListParam[0].Text=="The  line is higher than the Signal line")       IndicatorIsHigherThanAnotherIndicatorLogic(firstBar,prvs,adStdv,signal,Component[2],Component[3]);    else if(ListParam[0].Text=="The  line is lower than the Signal line")       IndicatorIsLowerThanAnotherIndicatorLogic(firstBar,prvs,adStdv,signal,Component[2],Component[3]);   }

AL
alexsanramon · 5 years ago

Hey Thanks for taking the time.

This is the link:

https://www.mt5traders.com/volatility-quality-metatrader-5-forex-indicator/

This would be great.

AL
alexsanramon · 5 years ago

Auto Heat Map is a valid tool to scalp during news event. Traders can see what is happening using only one screen. My eyes get strained with too many monitors. It would really be great if we have a way to detect if the news would really affect the price action.

One way I see is to use the Volatility Quality indicator by created by Thomas Stridsman. It uses the indicator’s slope for trend estimation, in addition the indicator uses the % of ATR (Average True Range) in filtering its signals, which automatically adjusts it to the specified symbols and time frames.

Please build VQ for ctrader. Thanks in advance.

AL
alexsanramon · 5 years ago

This indicator is great if we can only add supporting indicator like the Perfect Trend Line.

The Perfect Trend Line forex indicator is a technical tool that is based on the highest high and lowest low of two distinct periods. The Perfect Trend Line indicator is similar to the Parabolic SAR. Customization options: Variable Fast length, Slow length.

Please build this indicator for ctrader. Thanks for supporting the community.

After researching, I just found out that Telegram is better in regards of security than Discord. So lets go with Telegram.

 

AL
alexsanramon · 5 years ago

Thank you so much for making this. And btw, I see you wanted to engage with traders using chat. May I suggest that if you are willing to use Discord instead of Telegram. Not to say anything bad about it but Telegram is like old you know.

AL
alexsanramon · 5 years ago

Please make the Absolute Strength Oscillator trend-following indicator. This is based on the forces of bulls and bears. Thanks in advance.