Custom Alligator by ahmedalhoseny
46882 downloads / 4545 views / Created: 28.12.2013 Average Rating: 0
Indicator Description
A smoothing method per period so we have three smoothing methods
instead of One
instead of One
Comments
//==============================================================
// Forex Strategy Builder
// Copyright © Miroslav Popov. All rights reserved.
//==============================================================
// THIS CODE IS PROVIDED "AS IS" WITHOUT WARRANTY OF ANY KIND,
// EITHER EXPRESSED OR IMPLIED, INCLUDING BUT NOT LIMITED TO
// THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
// A PARTICULAR PURPOSE.
//==============================================================
using System;
using System.Drawing;
using ForexStrategyBuilder.Infrastructure.Entities;
using ForexStrategyBuilder.Infrastructure.Enums;
using ForexStrategyBuilder.Infrastructure.Interfaces;
namespace ForexStrategyBuilder.Indicators.Store
{
public class CuAlligator : Indicator
{
public CuAlligator()
{
IndicatorName = "Custom Alligator";
PossibleSlots = SlotTypes.OpenFilter | SlotTypes.CloseFilter;
SeparatedChart = false;
IndicatorAuthor = "Ahmed Alhoseny";
IndicatorVersion = "2.0";
IndicatorDescription = "Custom Indicator.";
}
public override void Initialize(SlotTypes slotType)
{
SlotType = slotType;
// The ComboBox parameters
IndParam.ListParam[0].Caption = "Logic";
IndParam.ListParam[0].ItemList = new[]
{
"The Lips rises",
"The Lips falls",
"The Teeth rises",
"The Teeth falls",
"The Jaws rises",
"The Jaws falls",
"The Lips crosses the Teeth upward",
"The Lips crosses the Teeth downward",
"The Lips crosses the Jaws upward",
"The Lips crosses the Jaws downward",
"The Teeth crosses the Jaws upward",
"The Teeth crosses the Jaws downward"
};
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 4 Jaws";
IndParam.ListParam[1].ItemList = Enum.GetNames(typeof (MAMethod));
IndParam.ListParam[1].Index = (int) MAMethod.Smoothed;
IndParam.ListParam[1].Text = IndParam.ListParam[1].ItemList[IndParam.ListParam[1].Index];
IndParam.ListParam[1].Enabled = true;
IndParam.ListParam[1].ToolTip = "The method of Moving Average used for the calculations.";
IndParam.ListParam[2].Caption = "Smoothing method 4 Teeth";
IndParam.ListParam[2].ItemList = Enum.GetNames(typeof(MAMethod));
IndParam.ListParam[2].Index = (int)MAMethod.Smoothed;
IndParam.ListParam[2].Text = IndParam.ListParam[2].ItemList[IndParam.ListParam[2].Index];
IndParam.ListParam[2].Enabled = true;
IndParam.ListParam[2].ToolTip = "The method of Moving Average used for the calculations.";
IndParam.ListParam[3].Caption = "Smoothing method 4 Lips";
IndParam.ListParam[3].ItemList = Enum.GetNames(typeof(MAMethod));
IndParam.ListParam[3].Index = (int)MAMethod.Smoothed;
IndParam.ListParam[3].Text = IndParam.ListParam[3].ItemList[IndParam.ListParam[3].Index];
IndParam.ListParam[3].Enabled = true;
IndParam.ListParam[3].ToolTip = "The method of Moving Average used for the calculations.";
IndParam.ListParam[4].Caption = "Base price";
IndParam.ListParam[4].ItemList = Enum.GetNames(typeof (BasePrice));
IndParam.ListParam[4].Index = (int) BasePrice.Median;
IndParam.ListParam[4].Text = IndParam.ListParam[4].ItemList[IndParam.ListParam[4].Index];
IndParam.ListParam[4].Enabled = true;
IndParam.ListParam[4].ToolTip = "The price the indicator is based on.";
// The NumericUpDown parameters
IndParam.NumParam[0].Caption = "Jaws period";
IndParam.NumParam[0].Value = 13;
IndParam.NumParam[0].Min = 1;
IndParam.NumParam[0].Max = 20;
IndParam.NumParam[0].Enabled = true;
IndParam.NumParam[0].ToolTip = "The Moving Average period.";
IndParam.NumParam[1].Caption = "Jaws shift";
IndParam.NumParam[1].Value = 8;
IndParam.NumParam[1].Min = 0;
IndParam.NumParam[1].Max = 20;
IndParam.NumParam[1].Enabled = true;
IndParam.NumParam[1].ToolTip = "How many bars to shift with.";
IndParam.NumParam[2].Caption = "Teeth period";
IndParam.NumParam[2].Value = 8;
IndParam.NumParam[2].Min = 1;
IndParam.NumParam[2].Max = 20;
IndParam.NumParam[2].Enabled = true;
IndParam.NumParam[2].ToolTip = "The Moving Average period.";
IndParam.NumParam[3].Caption = "Teeth shift";
IndParam.NumParam[3].Value = 5;
IndParam.NumParam[3].Min = 0;
IndParam.NumParam[3].Max = 20;
IndParam.NumParam[3].Enabled = true;
IndParam.NumParam[3].ToolTip = "How many bars to shift with.";
IndParam.NumParam[4].Caption = "Lips period";
IndParam.NumParam[4].Value = 5;
IndParam.NumParam[4].Min = 1;
IndParam.NumParam[4].Max = 20;
IndParam.NumParam[4].Enabled = true;
IndParam.NumParam[4].ToolTip = "The Moving Average period.";
IndParam.NumParam[5].Caption = "Lips shift";
IndParam.NumParam[5].Value = 3;
IndParam.NumParam[5].Min = 0;
IndParam.NumParam[5].Max = 20;
IndParam.NumParam[5].Enabled = true;
IndParam.NumParam[5].ToolTip = "How many bars to shift with.";
// 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.";
}
public override void Calculate(IDataSet dataSet)
{
DataSet = dataSet;
//
var maMethodJaws = (MAMethod)IndParam.ListParam[1].Index;
var maMethodTeeth = (MAMethod)IndParam.ListParam[2].Index;
var maMethodLips = (MAMethod)IndParam.ListParam[3].Index;
var basePrice = (BasePrice) IndParam.ListParam[4].Index;
var iNJaws = (int) IndParam.NumParam[0].Value;
var iSJaws = (int) IndParam.NumParam[1].Value;
var iNTeeth = (int) IndParam.NumParam[2].Value;
var iSTeeth = (int) IndParam.NumParam[3].Value;
var iNLips = (int) IndParam.NumParam[4].Value;
var iSLips = (int) IndParam.NumParam[5].Value;
int iPrvs = IndParam.CheckParam[0].Checked ? 1 : 0;
int iFirstBar = Math.Max(iNJaws + iSJaws + 2, iNTeeth + iSTeeth + 2);
iFirstBar = Math.Max(iFirstBar, iNLips + iSLips + 2);
// Calculation
double[] adJaws = MovingAverage(iNJaws, iSJaws, maMethodJaws, Price(basePrice));
double[] adTeeth = MovingAverage(iNTeeth, iSTeeth, maMethodTeeth, Price(basePrice));
double[] adLips = MovingAverage(iNLips, iSLips, maMethodLips, Price(basePrice));
// Saving the components
Component = new IndicatorComp[5];
Component[0] = new IndicatorComp
{
CompName = "Jaws",
DataType = IndComponentType.IndicatorValue,
ChartType = IndChartType.Line,
ChartColor = Color.Blue,
FirstBar = iFirstBar,
Value = adJaws
};
Component[1] = new IndicatorComp
{
CompName = "Teeth",
DataType = IndComponentType.IndicatorValue,
ChartType = IndChartType.Line,
ChartColor = Color.Red,
FirstBar = iFirstBar,
Value = adTeeth
};
Component[2] = new IndicatorComp
{
CompName = "Lips",
DataType = IndComponentType.IndicatorValue,
ChartType = IndChartType.Line,
ChartColor = Color.Lime,
FirstBar = iFirstBar,
Value = adLips
};
Component[3] = new IndicatorComp
{
ChartType = IndChartType.NoChart,
FirstBar = iFirstBar,
Value = new double[Bars]
};
Component[4] = new IndicatorComp
{
ChartType = IndChartType.NoChart,
FirstBar = iFirstBar,
Value = new double[Bars]
};
// Sets the Component's type.
if (SlotType == SlotTypes.OpenFilter)
{
Component[3].DataType = IndComponentType.AllowOpenLong;
Component[3].CompName = "Is long entry allowed";
Component[4].DataType = IndComponentType.AllowOpenShort;
Component[4].CompName = "Is short entry allowed";
}
else if (SlotType == SlotTypes.CloseFilter)
{
Component[3].DataType = IndComponentType.ForceCloseLong;
Component[3].CompName = "Close out long position";
Component[4].DataType = IndComponentType.ForceCloseShort;
Component[4].CompName = "Close out short position";
}
switch (IndParam.ListParam[0].Text)
{
case "The Jaws rises":
IndicatorRisesLogic(iFirstBar, iPrvs, adJaws, ref Component[3], ref Component[4]);
break;
case "The Jaws falls":
IndicatorFallsLogic(iFirstBar, iPrvs, adJaws, ref Component[3], ref Component[4]);
break;
case "The Teeth rises":
IndicatorRisesLogic(iFirstBar, iPrvs, adTeeth, ref Component[3], ref Component[4]);
break;
case "The Teeth falls":
IndicatorFallsLogic(iFirstBar, iPrvs, adTeeth, ref Component[3], ref Component[4]);
break;
case "The Lips rises":
IndicatorRisesLogic(iFirstBar, iPrvs, adLips, ref Component[3], ref Component[4]);
break;
case "The Lips falls":
IndicatorFallsLogic(iFirstBar, iPrvs, adLips, ref Component[3], ref Component[4]);
break;
case "The Lips crosses the Teeth upward":
IndicatorCrossesAnotherIndicatorUpwardLogic(iFirstBar, iPrvs, adLips, adTeeth, ref Component[3],
ref Component[4]);
break;
case "The Lips crosses the Teeth downward":
IndicatorCrossesAnotherIndicatorDownwardLogic(iFirstBar, iPrvs, adLips, adTeeth, ref Component[3],
ref Component[4]);
break;
case "The Lips crosses the Jaws upward":
IndicatorCrossesAnotherIndicatorUpwardLogic(iFirstBar, iPrvs, adLips, adJaws, ref Component[3],
ref Component[4]);
break;
case "The Lips crosses the Jaws downward":
IndicatorCrossesAnotherIndicatorDownwardLogic(iFirstBar, iPrvs, adLips, adJaws, ref Component[3],
ref Component[4]);
break;
case "The Teeth crosses the Jaws upward":
IndicatorCrossesAnotherIndicatorUpwardLogic(iFirstBar, iPrvs, adTeeth, adJaws, ref Component[3],
ref Component[4]);
break;
case "The Teeth crosses the Jaws downward":
IndicatorCrossesAnotherIndicatorDownwardLogic(iFirstBar, iPrvs, adTeeth, adJaws, ref Component[3],
ref Component[4]);
break;
}
}
public override void SetDescription()
{
EntryFilterLongDescription = "the " + ToString() + " ";
EntryFilterShortDescription = "the " + ToString() + " ";
ExitFilterLongDescription = "the " + ToString() + " ";
ExitFilterShortDescription = "the " + ToString() + " ";
switch (IndParam.ListParam[0].Text)
{
case "The Jaws rises":
EntryFilterLongDescription += "Jaws rises";
EntryFilterShortDescription += "Jaws falls";
ExitFilterLongDescription += "Jaws rises";
ExitFilterShortDescription += "Jaws falls";
break;
case "The Jaws falls":
EntryFilterLongDescription += "Jaws falls";
EntryFilterShortDescription += "Jaws rises";
ExitFilterLongDescription += "Jaws falls";
ExitFilterShortDescription += "Jaws rises";
break;
case "The Teeth rises":
EntryFilterLongDescription += "Teeth rises";
EntryFilterShortDescription += "Teeth falls";
ExitFilterLongDescription += "Teeth rises";
ExitFilterShortDescription += "Teeth falls";
break;
case "The Teeth falls":
EntryFilterLongDescription += "Teeth falls";
EntryFilterShortDescription += "Teeth rises";
ExitFilterLongDescription += "Teeth falls";
ExitFilterShortDescription += "Teeth rises";
break;
case "The Lips rises":
EntryFilterLongDescription += "Lips rises";
EntryFilterShortDescription += "Lips falls";
ExitFilterLongDescription += "Lips rises";
ExitFilterShortDescription += "Lips falls";
break;
case "The Lips falls":
EntryFilterLongDescription += "Lips falls";
EntryFilterShortDescription += "Lips rises";
ExitFilterLongDescription += "Lips falls";
ExitFilterShortDescription += "Lips rises";
break;
case "The Lips crosses the Teeth upward":
EntryFilterLongDescription += "Lips crosses the Alligator Teeth upward";
EntryFilterShortDescription += "Lips crosses the Alligator Teeth downward";
ExitFilterLongDescription += "Lips crosses the Alligator Teeth upward";
ExitFilterShortDescription += "Lips crosses the Alligator Teeth downward";
break;
case "The Lips crosses the Teeth downward":
EntryFilterLongDescription += "Lips crosses the Alligator Teeth downward";
EntryFilterShortDescription += "Lips crosses the Alligator Teeth upward";
ExitFilterLongDescription += "Lips crosses the Alligator Teeth downward";
ExitFilterShortDescription += "Lips crosses the Alligator Teeth upward";
break;
case "The Lips crosses the Jaws upward":
EntryFilterLongDescription += "Lips crosses the Alligator Jaws upward";
EntryFilterShortDescription += "Lips crosses the Alligator Jaws downward";
ExitFilterLongDescription += "Lips crosses the Alligator Jaws upward";
ExitFilterShortDescription += "Lips crosses the Alligator Jaws downward";
break;
case "The Lips crosses the Jaws downward":
EntryFilterLongDescription += "Lips crosses the Alligator Jaws downward";
EntryFilterShortDescription += "Lips crosses the Alligator Jaws upward";
ExitFilterLongDescription += "Lips crosses the Alligator Jaws downward";
ExitFilterShortDescription += "Lips crosses the Alligator Jaws upward";
break;
case "The Teeth crosses the Jaws upward":
EntryFilterLongDescription += "Teeth crosses the Alligator Jaws upward";
EntryFilterShortDescription += "Teeth crosses the Alligator Jaws downward";
ExitFilterLongDescription += "Teeth crosses the Alligator Jaws upward";
ExitFilterShortDescription += "Teeth crosses the Alligator Jaws downward";
break;
case "The Teeth crosses the Jaws downward":
EntryFilterLongDescription += "Teeth crosses the Alligator Jaws downward";
EntryFilterShortDescription += "Teeth crosses the Alligator Jaws upward";
ExitFilterLongDescription += "Teeth crosses the Alligator Jaws downward";
ExitFilterShortDescription += "Teeth crosses the Alligator Jaws upward";
break;
}
}
public override string ToString()
{
return IndicatorName +
(IndParam.CheckParam[0].Checked ? "* (" : " (") +
IndParam.ListParam[1].Text + ", " + // Method
IndParam.ListParam[2].Text + ", " + // Method
IndParam.ListParam[3].Text + ", " + // Method
IndParam.ListParam[4].Text + ", " + // Price
IndParam.NumParam[0].ValueToString + ", " + // Jaws period
IndParam.NumParam[1].ValueToString + ", " + // Jaws shift
IndParam.NumParam[2].ValueToString + ", " + // Teeth period
IndParam.NumParam[3].ValueToString + ", " + // Teeth shift
IndParam.NumParam[4].ValueToString + ", " + // Lips period
IndParam.NumParam[5].ValueToString + ")"; // Lips shift
}
}
}
//+--------------------------------------------------------------------+ //| Copyright: (C) 2014, Miroslav Popov - All rights reserved! | //| Website: http://forexsb.com/ | //| Support: http://forexsb.com/forum/ | //| License: Proprietary under the following circumstances: | //| | //| This code is a part of Forex Strategy Builder. It is free for | //| use as an integral part of Forex Strategy Builder. | //| One can modify it in order to improve the code or to fit it for | //| personal use. This code or any part of it cannot be used in | //| another applications without a permission. Contact information | //| cannot be changed. | //| | //| NO LIABILITY FOR CONSEQUENTIAL DAMAGES | //| | //| In no event shall the author be liable for any damages whatsoever | //| (including, without limitation, incidental, direct, indirect and | //| consequential damages, damages for loss of business profits, | //| business interruption, loss of business information, or other | //| pecuniary loss) arising out of the use or inability to use this | //| product, even if advised of the possibility of such damages. | //+--------------------------------------------------------------------+ #property copyright "Copyright 2014, Miroslav Popov" #property link "http://forexsb.com" #property version "1.00" #property strict #include <Forexsb.com/Indicator.mqh> #include <Forexsb.com/Enumerations.mqh> //+------------------------------------------------------------------+ //| | //+------------------------------------------------------------------+ class CustomAlligator : public Indicator { public: CustomAlligator(SlotTypes slotType) { SlotType=slotType; IndicatorName="Custom Alligator"; WarningMessage = ""; IsAllowLTF = true; ExecTime = ExecutionTime_DuringTheBar; IsSeparateChart = false; IsDiscreteValues = false; IsDeafultGroupAll = false; } virtual void Calculate(DataSet &dataSet); }; //+------------------------------------------------------------------+ //| | //+------------------------------------------------------------------+ void CustomAlligator::Calculate(DataSet &dataSet) { Data=GetPointer(dataSet); // MAMethod maMethodJaws =(MAMethod)ListParam[1].Index; MAMethod maMethodTeeth=(MAMethod)ListParam[2].Index; MAMethod maMethodLips =(MAMethod)ListParam[3].Index; BasePrice basePrice=(BasePrice) ListParam[4].Index; int iNJaws = (int) NumParam[0].Value; int iSJaws = (int) NumParam[1].Value; int iNTeeth = (int) NumParam[2].Value; int iSTeeth = (int) NumParam[3].Value; int iNLips = (int) NumParam[4].Value; int iSLips = (int) NumParam[5].Value; int iPrvs=CheckParam[0].Checked ? 1 : 0; int iFirstBar=MathMax(iNJaws+iSJaws+2,iNTeeth+iSTeeth+2); iFirstBar=MathMax(iFirstBar,iNLips+iSLips+2); // Calculation double basePrc[]; Price(basePrice,basePrc); double adJaws[]; MovingAverage(iNJaws,iSJaws,maMethodJaws,basePrc,adJaws); double adTeeth[]; MovingAverage(iNTeeth,iSTeeth,maMethodTeeth,basePrc,adTeeth); double adLips[]; MovingAverage(iNLips,iSLips,maMethodLips,basePrc,adLips); // Saving the components ArrayResize(Component[0].Value,Data.Bars); Component[0].CompName = "Jaws"; Component[0].DataType = IndComponentType_IndicatorValue; Component[0].FirstBar = iFirstBar; ArrayCopy(Component[0].Value,adJaws); ArrayResize(Component[1].Value,Data.Bars); Component[1].CompName = "Teeth"; Component[1].DataType = IndComponentType_IndicatorValue; Component[1].FirstBar = iFirstBar; ArrayCopy(Component[1].Value,adTeeth); ArrayResize(Component[2].Value,Data.Bars); Component[2].CompName = "Lips"; Component[2].DataType = IndComponentType_IndicatorValue; Component[2].FirstBar = iFirstBar; ArrayCopy(Component[2].Value,adLips); ArrayResize(Component[3].Value,Data.Bars); Component[3].FirstBar=iFirstBar; ArrayResize(Component[4].Value,Data.Bars); Component[4].FirstBar=iFirstBar; // Sets the Component's type. if(SlotType==SlotTypes_OpenFilter) { Component[3].DataType = IndComponentType_AllowOpenLong; Component[3].CompName = "Is long entry allowed"; Component[4].DataType = IndComponentType_AllowOpenShort; Component[4].CompName = "Is short entry allowed"; } else if(SlotType==SlotTypes_CloseFilter) { Component[3].DataType = IndComponentType_ForceCloseLong; Component[3].CompName = "Close out long position"; Component[4].DataType = IndComponentType_ForceCloseShort; Component[4].CompName = "Close out short position"; } if(ListParam[0].Text=="The Jaws rises") { IndicatorRisesLogic(iFirstBar,iPrvs,adJaws,Component[3],Component[4]); } else if(ListParam[0].Text=="The Jaws falls") { IndicatorFallsLogic(iFirstBar,iPrvs,adJaws,Component[3],Component[4]); } else if(ListParam[0].Text=="The Teeth rises") { IndicatorRisesLogic(iFirstBar,iPrvs,adTeeth,Component[3],Component[4]); } else if(ListParam[0].Text=="The Teeth falls") { IndicatorFallsLogic(iFirstBar,iPrvs,adTeeth,Component[3],Component[4]); } else if(ListParam[0].Text=="The Lips rises") { IndicatorRisesLogic(iFirstBar,iPrvs,adLips,Component[3],Component[4]); } else if(ListParam[0].Text=="The Lips falls") { IndicatorFallsLogic(iFirstBar,iPrvs,adLips,Component[3],Component[4]); } else if(ListParam[0].Text=="The Lips crosses the Teeth upward") { IndicatorCrossesAnotherIndicatorUpwardLogic(iFirstBar,iPrvs,adLips,adTeeth,Component[3], Component[4]); } else if(ListParam[0].Text=="The Lips crosses the Teeth downward") { IndicatorCrossesAnotherIndicatorDownwardLogic(iFirstBar,iPrvs,adLips,adTeeth,Component[3], Component[4]); } else if(ListParam[0].Text=="The Lips crosses the Jaws upward") { IndicatorCrossesAnotherIndicatorUpwardLogic(iFirstBar,iPrvs,adLips,adJaws,Component[3], Component[4]); } else if(ListParam[0].Text=="The Lips crosses the Jaws downward") { IndicatorCrossesAnotherIndicatorDownwardLogic(iFirstBar,iPrvs,adLips,adJaws,Component[3], Component[4]); } else if(ListParam[0].Text=="The Teeth crosses the Jaws upward") { IndicatorCrossesAnotherIndicatorUpwardLogic(iFirstBar,iPrvs,adTeeth,adJaws,Component[3], Component[4]); } else if(ListParam[0].Text=="The Teeth crosses the Jaws downward") { IndicatorCrossesAnotherIndicatorDownwardLogic(iFirstBar,iPrvs,adTeeth,adJaws,Component[3], Component[4]); } } //+------------------------------------------------------------------+
Risk warning: Forex, spread bets and CFD are leveraged products. They may not be suitable for you as they carry a high degree of risk to your capital and you can lose more than your initial investment. You should ensure you understand all of the risks.
Copyright © 2006 - 2024, Forex Software Ltd.;
Copyright © 2006 - 2024, Forex Software Ltd.;