Re: Dynamic trader trading system explained ... immediate help needed to develope fom
I found this code on net, but this one has only explore command, nothing has been plotted on chart, hence cant say if this is the same developed in this thread or something esle.....
_SECTION_BEGIN("DTO");
//Dynamic Trader Oscillator and Dual-Timeframe Momentum Reversal Scan for Amibroker
//Note: If the plot doesn't match the scan results, check the settings for the scan to ensure they are the same as the Plot.
//Define Stochastics Indicator on Weekly Timeframe for 13-period:
TimeFrameSet( inWeekly );
WkStochK13 = StochK( 13, 3 );
WkStochD13 = StochD( 13, 3, 3 );
TimeFrameRestore();
//Define Stochastics Indicator on Weekly Timeframe for 8-period:
TimeFrameSet( inWeekly );
WkStochK8 = StochK( 8, 3 );
WkStochD8 = StochD( 8, 3, 3 );
TimeFrameRestore();
//Define DTOsc on Daily Timeframe:
PeriodRSI = Param( "PeriodRSI", 8, 1, 250, 1 );
PeriodStoch = Param( "PeriodStoch", 5, 1, 250, 1 );
PeriodSK = Param( "PeriodSK", 3, 1, 250, 1 );
PeriodSD = Param( "PeriodSD", 3, 1
, 250, 1 );
Upper = Param( "Upper", 80, 50, 100, 1 );
Lower = Param( "Lower", 20, 0, 50, 1 );
StoRSI = 100 * ( ( RSI( PeriodRSI ) - LLV( RSI( PeriodRSI ) , PeriodStoch )
) / ( (
HHV( RSI( PeriodRSI ) , PeriodStoch ) ) - LLV( RSI( PeriodRSI ),
PeriodStoch ) ) );
SK = MA( StoRSI, PeriodSK );
SD = MA( SK, PeriodSD );
//Define DTOsc on Weekly Timeframe:
TimeFrameSet( inWeekly );
PeriodRSI = Param( "PeriodRSI", 8, 1, 250, 1 );
PeriodStoch = Param( "PeriodStoch", 5, 1, 250, 1 );
PeriodSK = Param( "PeriodSK", 3, 1, 250, 1 );
PeriodSD = Param( "PeriodSD", 3, 1, 250, 1 );
Upper = Param( "Upper", 80, 50, 100, 1 );
Lower = Param( "Lower", 20, 0, 50, 1 );
StoRSI = 100 * ( ( RSI( PeriodRSI ) - LLV( RSI( PeriodRSI ) , PeriodStoch )
) / ( (
HHV( RSI( PeriodRSI ) , PeriodStoch ) ) - LLV( RSI( PeriodRSI ),
PeriodStoch ) ) );
WeeklySK = MA( StoRSI, PeriodSK );
WeeklySD = MA( WeeklySK, PeriodSD );
TimeFrameRestore();
//Define Screen for Long Setups:
CriteriaLong =
MA( V, 60 ) > 20000 AND
Ref( V, -1 ) >= 10000 AND
C >= 8 AND
L > Ref(
L, -1 ) AND
L > Ref( L, -2 ) AND
Ref( L, -1 ) > Ref( L, -2 ) AND
Ref( L, -2 ) < Ref( L, -3 ) AND
L > Ref( L, -1 ) AND
Ref( L, -1 ) > Ref( L, -2 ) AND
Ref( L, -2 ) < Ref( L, -3 );
//Define My Additional Screen Criteria for Short Setups:
NeilCriteriaLong =
CriteriaLong AND
(
SK < 60 AND
SD < 60 AND
Cross( SK, SD )
);
//Define Screen for Short Setups:
CriteriaShort =
MA( V, 60 ) > 20000 AND
C >= 8 AND
Ref( H, -1 ) < Ref( H, -2 ) AND
Ref( H, -2 ) > Ref( H, -3 ) AND
H < Ref( H, -2 ) AND
Ref( L, -2 ) > Ref( L, -3 ) AND
Ref( V, -1 ) >= 10000 AND
C >= Ref( L, -1 ) AND
Ref( H, -2 ) > Ref( H, -4 ) AND
Ref( H, -2 ) > Ref( H, -5 ) AND
Ref( H, -2 ) > Ref( H, -6 ) AND
H < Ref( H, -1 ) AND
Ref( L, -1 ) > L
;
//Define My Additional Screen Criteria for Short Setups:
NeilCriteriaShort =
CriteriaShort AND
(
SK > 40 AND
SD > 40 AND
Cross( SD, SK )
);
//Define Buy and Sell Signals:
Buy = CriteriaLong;
Sell = 0;
//Define Exploration:
Filter = CriteriaLong OR CriteriaShort;
AddColumn( CriteriaLong, "Long Reversal", 2, colorBlack, IIf( CriteriaLong, colorGreen, colorWhite ), 100 );
AddColumn( NeilCriteriaLong, "BullX", 2, colorBlack, IIf( NeilCriteriaLong, colorBrightGreen, colorWhite ), 30 );
AddColumn( CriteriaShort, "Short Reversal", 2, colorBlack, IIf( CriteriaShort, colorDarkRed, colorWhite ), 100 );
AddColumn( NeilCriteriaShort, " BearX", 2, colorBlack, IIf( NeilCriteriaShort, colorRed, colorWhite ), 30 );
AddTextColumn ( WriteIf( NeilCriteriaLong, "Reversal + Cross + OB", "Reversal" ), Interval( 2 ), 3.0, colorWhite,
IIf( NeilCriteriaLong, colorBrightGreen, IIf( CriteriaLong, colorGreen, colorWhite ) ), 130 );
AddTextColumn ( WriteIf( NeilCriteriaShort, "Reversal + Cross + OS", "Reversal" ), Interval( 2 ), 3.0, colorWhite,
IIf( NeilCriteriaShort, colorRed, IIf( CriteriaShort, colorDarkRed, colorWhite ) ), 130 );
_SECTION_END();