Source »
Force Index - source code
// Forex Strategy Builder
// Copyright (c) 2006 - 2008 Miroslav Popov - All rights reserved!
// http://forexsb.com
// info(a)forexsb.com
//
// Last changed on: 2007-09-20
using System;
using System.Drawing;
namespace Forex_Strategy_Builder
{
/// <summary>
/// Indicator: Force Index
/// </summary>
public class Force_Index : Indicator
{
/// <summary>
/// The default constructor.
/// </summary>
public Force_Index()
{
}
/// <summary>
/// Sets the default parameters for the designated slot type.
/// </summary>
/// <param name="slotType">The slot type.</param>
public Force_Index(SlotTypes slotType)
{
sIndicatorName = "Force Index";
parameters = new IndicatorParam();
component = new IndicatorComp[] { };
fMaxValue = float.MinValue;
fMinValue = float.MaxValue;
bSeparatedChart = true;
bIsCalculated = false;
// The indicator name.
parameters.IndicatorName = sIndicatorName;
// The slot type.
parameters.SlotType = slotType;
// The ComboBox parameters.
parameters.ListParam[0].Caption = "Logic";
parameters.ListParam[0].ItemList = new string[]
{
"The Force Index rises",
"The Force Index falls",
"The Force Index is higher than the zero line",
"The Force Index is lower than the zero line",
"The Force Index crosses the zero line upward",
"The Force Index crosses the zero line downward",
"The Force Index changes its direction upward",
"The Force Index changes its direction downward"
};
parameters.ListParam[0].Index = 0;
parameters.ListParam[0].Text = parameters.ListParam[0].ItemList[parameters.ListParam[0].Index];
parameters.ListParam[0].Enabled = true;
parameters.ListParam[0].ToolTip = "Logic of application of the indicator";
parameters.ListParam[1].Caption = "Smoothing method";
parameters.ListParam[1].ItemList = Enum.GetNames(typeof(MAMethod));
parameters.ListParam[1].Index = 0;
parameters.ListParam[1].Text = parameters.ListParam[1].ItemList[parameters.ListParam[1].Index];
parameters.ListParam[1].Enabled = true;
parameters.ListParam[1].ToolTip = "The method of smoothing";
parameters.ListParam[2].Caption = "Base price";
parameters.ListParam[2].ItemList = Enum.GetNames(typeof(BasePrice));
parameters.ListParam[2].Index = 3;
parameters.ListParam[2].Text = parameters.ListParam[2].ItemList[parameters.ListParam[2].Index];
parameters.ListParam[2].Enabled = true;
parameters.ListParam[2].ToolTip = "The price the Force Index is based on";
// The NumericUpDown parameters.
parameters.NumParam[0].Caption = "Period";
parameters.NumParam[0].Value = 13;
parameters.NumParam[0].Min = 1;
parameters.NumParam[0].Max = 100;
parameters.NumParam[0].Enabled = true;
parameters.NumParam[0].ToolTip = "The smoothing period";
// The CheckBox parameters.
parameters.CheckParam[0].Caption = "Use previous bar value";
parameters.CheckParam[0].Checked = Data.Strategy.PrepareUsePrevBarValueCheckBox(slotType);
parameters.CheckParam[0].Enabled = true;
parameters.CheckParam[0].ToolTip = "Use the indicator value from the previous bar";
}
/// <summary>
/// Calculates the indicator's components.
/// </summary>
/// <param name="slotType">The slot type.</param>
public override void Calculate(SlotTypes slotType)
{
if (parameters.SlotType == SlotTypes.NotDefined) return;
// Reading the parameters
MAMethod maMethod = (MAMethod)Enum.GetValues(typeof(MAMethod)).GetValue(parameters.ListParam[1].Index);
BasePrice price = (BasePrice)Enum.GetValues(typeof(BasePrice)).GetValue(parameters.ListParam[2].Index);
int iPeriod = (int)parameters.NumParam[0].Value;
int iPrvs = parameters.CheckParam[0].Checked ? 1 : 0;
// Calculation
int iFirstBar = iPeriod + 2;
float[] afFI = new float[Bars];
float[] afMA = MovingAverage(iPeriod, 0, maMethod, Price(price));
for (int iBar = iFirstBar; iBar < Bars; iBar++)
{
afFI[iBar] = Volume[iBar] * (afMA[iBar] - afMA[iBar - 1]);
}
// Saving the components
component = new IndicatorComp[3];
component[0] = new IndicatorComp();
component[0].CompName = "Force Index";
component[0].DataType = IndComponentType.IndicatorValue;
component[0].ChartType = IndChartType.Line;
component[0].ChartColor = Color.LightSeaGreen;
component[0].FirstBar = iFirstBar;
component[0].Value = afFI;
component[1] = new IndicatorComp();
component[1].ChartType = IndChartType.NoChart;
component[1].FirstBar = iFirstBar;
component[1].Value = new float[Bars];
component[2] = new IndicatorComp();
component[2].ChartType = IndChartType.NoChart;
component[2].FirstBar = iFirstBar;
component[2].Value = new float[Bars];
// Sets the component's type.
if (slotType == SlotTypes.OpenFilter)
{
component[1].DataType = IndComponentType.AllowOpenLong;
component[1].CompName = "Allows long positions opening";
component[2].DataType = IndComponentType.AllowOpenShort;
component[2].CompName = "Allows short positions opening";
}
else if (slotType == SlotTypes.CloseFilter)
{
component[1].DataType = IndComponentType.ForceCloseLong;
component[1].CompName = "Forces long positions closing";
component[2].DataType = IndComponentType.ForceCloseShort;
component[2].CompName = "Forces short positions closing";
}
// Calculation of the logic.
IndicatorLogic indLogic = IndicatorLogic.It_does_not_act_as_a_filter;
switch (parameters.ListParam[0].Text)
{
case "The Force Index rises":
indLogic = IndicatorLogic.The_indicator_rises;
break;
case "The Force Index falls":
indLogic = IndicatorLogic.The_indicator_falls;
break;
case "The Force Index is higher than the zero line":
indLogic = IndicatorLogic.The_indicator_is_higher_than_the_level_line;
break;
case "The Force Index is lower than the zero line":
indLogic = IndicatorLogic.The_indicator_is_lower_than_the_level_line;
break;
case "The Force Index crosses the zero line upward":
indLogic = IndicatorLogic.The_indicator_crosses_the_level_line_upward;
break;
case "The Force Index crosses the zero line downward":
indLogic = IndicatorLogic.The_indicator_crosses_the_level_line_downward;
break;
case "The Force Index changes its direction upward":
indLogic = IndicatorLogic.The_indicator_changes_its_direction_upward;
break;
case "The Force Index changes its direction downward":
indLogic = IndicatorLogic.The_indicator_changes_its_direction_downward;
break;
default:
break;
}
bIsCalculated = OscillatorLogic(iFirstBar, iPrvs, afFI, 0, 0, ref component[1], ref component[2], indLogic);
return;
}
}
}
Top
forexsb.com
or leave a message into the forum.