Polarized Fractal Efficiency Overbought / Oversold [PFEOO]

Descripton

Summary:
This trading system script uses a Polarized Fractal Efficiency indicator to generate trading signals whenever the underlying symbol is overbought or oversold.

Rules:
1. Buy Market - When the Polarized Fractal Efficiency shows the symbol is oversold.
2. Sell Market - When the Polarized Fractal Efficiency shows the symbol is overbought.
3. Sell Short Market - When the Polarized Fractal Efficiency shows the symbol is oversold.
4. Buy To Cover Market - When the Polarized Fractal Efficiency shows the symbol is overbought.

Variables

Type	Identifier	Description
IntegerArray	_PFEKeys	Use for holding all of the PFE indicator keys indexed by symbol index.
Number	_overboughtValue	Use for the minimum value above which the underlying indicator is considered overbought.
Number	_oversoldValue	Use for the maximum value above which the underlying indicator is considered oversold.
Boolean	_enableShorting	Use for indicating whether to enable the trading system script to short symbols.
Number	_stopLoss	Use for the percent distance from the current price in which to place a stop order which would limit the maximum loss.
Number	_takeProfit	Use for the percent distance from the current price in which to place a limit order which would take profit after a specified gain.
Number	_trailingStop	Use for placing a trailing stop order which would limit the maximum trailing loss.
Boolean	_isPercent	Use for indicating whether the trailing stop is measured in percent or absolute value.

OnInitialize

Function Parameters
Type	Identifier	Description
Integer	periods	Use for the number of periods to include in the Trend Score indicator. [Default 10]
Integer	firstPeriods	Use for the number of periods to include in the calculation of the first value of the exponential moving average. [Default 0]
Number	overboughtValue	Use for the minimum value for the Polarized Fractal Efficiency above which the underlying indicator is considered overbought. [Default 50]
Number	oversoldValue	Use for the maximum value for the Polarized Fractal Efficiency below which the underlying indicator is considered oversold. [Default -50]
Boolean	enableShorting	Use for indicating whether to enable the trading system script to short symbols. [Default False]
Number	stopLoss	Use for the percent distance from the current price in which to place a stop order which would limit the maximum loss. [Default 0] (0 to ignore).
Number	takeProfit	Use for the percent distance from the current price in which to place a limit order which would take profit after a specified gain. [Default 0] (0 to ignore).
Number	trailingStop	Use for placing a trailing stop order which would limit the maximum trailing loss. [Default 0] (0 to ignore).
Boolean	isPercent	Use for indicating whether the trailing stop is measured in percent or absolute value. [Default True]
Implementation
' Assign the script parameters to script variables. _overboughtValue = overboughtValue _oversoldValue = oversoldValue _enableShorting = enableShorting _stopLoss = stopLoss _takeProfit = takeProfit _trailingStop = trailingStop _isPercent = isPercent ' Use for holding indicator keys based on the specified indicator key, indexed by symbol index. Redefine _PFEKeys(SymbolCount() - 1) ' Iterate over all of the account symbols. For i As Integer = 0 To SymbolCount() - 1 ' Create a PFE indicator for each account symbol, based on the specified indicator. _PFEKeys(i) = IndicatorPFE(i,periods,firstPeriods) ' Add the indicator to the symbol chart. ChartIndicator(i, 0, C_MERGE_LEFT, _PFEKeys(i),C_LINE, 1,0) Next

OnSymbolBar

Function Parameters
Type	Identifier	Description
Integer	symbolIndex
Implementation
' Get the indicator value for the specified symbol index. Define value As Number = IndicatorValue(_PFEKeys(symbolIndex)) ' If the indicator value crosses over zero, generate a buy order. If (value < _oversoldValue) Then ' If a short position exists then generate a buy to cover order. If (_enableShorting And PositionExists(C_OPEN, symbolIndex, C_SHORT)) Then ' Generate a buy to cover market order. BrokerMarket(C_BUY_TO_COVER,symbolIndex, 0, C_DAY, "Oversold.") End If ' If no long open positions exist. If (Not PositionExists(C_OPEN, symbolIndex, C_LONG)) ' Generate a buy market order. Define orderIndex As Number = BrokerMarket(C_BUY,symbolIndex, 0, C_DAY, "Oversold.") ' Set a stop loss on the order. BrokerSetStopLossPercent(orderIndex, _stopLoss, True) ' Set a take profit on the order. BrokerSetTakeProfitPercent(orderIndex, _takeProfit, True) ' Set a trailing stop loss on the order. BrokerSetTrailingStopLoss(orderIndex, _isPercent, _trailingStop) End If ' If the indicator value crosses under zero, generate a sell order. ElseIf (value > _overboughtValue) Then ' If a long open position exists. If (PositionExists(C_OPEN, symbolIndex, C_LONG)) ' Generate a sell market order. BrokerMarket(C_SELL,symbolIndex, 0, C_DAY, "Overbought.") End If ' If no short open positions exist. If (_enableShorting And Not PositionExists(C_OPEN, symbolIndex, C_SHORT)) Then ' Generate a sell short market order. Define orderIndex As Number = BrokerMarket(C_SELL_SHORT,symbolIndex, 0, C_DAY, "Overbought.") ' Set a stop loss on the order. BrokerSetStopLossPercent(orderIndex, _stopLoss, True) ' Set a take profit on the order. BrokerSetTakeProfitPercent(orderIndex, _takeProfit, True) ' Set a trailing stop loss on the order. BrokerSetTrailingStopLoss(orderIndex, _isPercent, _trailingStop) End If End If

OnExchangeBar

Function Parameters
Type	Identifier	Description
IntegerArray	symbolIndexes
Implementation