مرجع لا اهم مؤشرات الويلث لاب

{ The trading system below buys a position whenever MFI crosses below 25.
  It sells all open positions as soon as MFI crosses above 75.
  The ChartScript also colors MFI bars red and green to show oversold/overbought levels. }
var MFIPANE, BAR, P: integer;
MFIPane := CreatePane( 100, true, true );
PlotSeries( MFISeries( 14 ), MFIPane, #Black, #Thick );
DrawLabel( 'MFI( 14 )', MFIPane );
for Bar := 14 to BarCount - 1 do
begin
  if CrossUnderValue( Bar, MFISeries( 14 ), 25) then
    BuyAtMarket( Bar + 1,  '');
  if CrossOverValue( Bar, MFISeries( 14 ), 75) then
    for P := 0 to PositionCount - 1 do
      if PositionActive( P ) then
        SellAtMarket( Bar + 1, P, 'MFI' );
  if MFI( Bar, 14 ) < 25 then
    SetSeriesBarColor( Bar, MFISeries( 14 ), #Red );
  if MFI( Bar, 14 ) > 75 then
    SetSeriesBarColor( Bar, MFISeries( 14 ), #Green );
end;
DrawHorzLine( 80,mfiPane, #red, #thin );
DrawHorzLine( 50,mfiPane, #Olive, #dotted );
DrawHorzLine( 20,mfiPane, #green, #thin );

var PPOPANE, MACDPane, WeeklyPPOPane, MyMACD, MYPPO, MYPPO2,  WeeklyPPO, PlotWeeklyPPO, BAR, MYPPOHISTO, MyPPOHisto2, WeeklyPPOHisto, PlotWeeklyPPOHisto, WeeklySignalLine, PlotWeeklySignalLine, MYMACDHISTO: Integer;
var RealOldWeekSignal, OldWeekSignal, CurrentWeekSignal: float ;
// --------------------------------------------------------------------------------------- //
{ Create a new chart pane to hold our MACD indicator }
MACDPane := CreatePane( 100, TRUE, TRUE );
{Develop the 12,26 MACD Oscillator}
MyMACD := CreateSeries();
for Bar := 26 to BarCount () - 1 do
SetSeriesValue ( Bar, MyMACD, EMA( Bar, #close, 12) - EMA( Bar, #close,26 ) );
{ Set the series for the MACD Histogram }
MyMACDHisto := CreateSeries();
for Bar := 26 to BarCount () - 1 do
SetSeriesValue ( Bar, MyMACDHisto, ((EMA( Bar, #close, 12) - EMA( Bar, #close,26 ))) - EMA(Bar, MyMACD, 9 )) ;
// --------------------------------------------------------------------------------------- //
 
{Develop the 12,26 Percentage Price Oscillator}
MyPPO := CreateSeries();
for Bar := 26 to BarCount () - 1 do
SetSeriesValue ( Bar,  MyPPO, ( EMA( Bar, #close, 12) - EMA( Bar, #close, 26 )) / EMA( Bar, #close, 12 ) );
{ Set the series for the PPO Histogram }
MyPPOHisto := CreateSeries();
for Bar := 26 to BarCount () - 1 do
SetSeriesValue ( Bar, MyPPOHisto, (( EMA( Bar, #close, 12) - EMA( Bar, #close, 26 )) / EMA( Bar, #close, 12 )) - EMA(Bar, MYPPO, 9 )) ;
//----------------------------------------------------------------------------------------------------------//
{Plot the 12,26 MACD}
PlotSeries( MyMACD, MACDPane, #red, #Thin ) ;
{Plot a 9 day MACD signal line}
PlotSeries( EMASeries( MyMACD, 9 ), MACDPane, #blue, #Thin ) ;
{Plot the MACD Histogram}
PlotSeries( MyMACDHisto,MACDPane, 222, #ThickHist) ;
DrawText( 'MACD( 12, 26, 9 )',MACDPane, 4, 4, #navy, 10 );

var BAR,chartpane: integer;
for Bar := 20 to BarCount - 1 do
begin
  if PriceClose(bar) > 5000 then setpositionsize(priceclose(bar)*1.1);
  if LastPositionActive then
  begin
    if PositionLong( LastPosition ) then
{ Long Position Exit Rules }
    begin
      if (Aroondown(bar,#close,7) > 99) then
        SellAtMarket( Bar+1, LastPosition, '' );
    end
    else
{ Short Position Exit Rules }
    begin
      if (Aroonup(bar,#close,7) > 99) then
        CoverAtMarket( Bar+1, LastPosition, '' );
    end;
  end
  else
  begin
{ Long Position Entry Rules }
    if (Aroonup(bar,#close,14) = 100) and (Aroondown(bar,#close,14) < 40) then
      BuyAtMarket( Bar+1,'')
{ Short Position Entry Rules }
 
 
 else if (Aroonup(bar,#close,14) < 40) and (Aroondown(bar,#close,14) = 100) then
      ShortAtMarket( Bar+1,'');
  end;
end;
chartPane := CreatePane( 75, true, true );
PlotSeries( AroonUpSeries( #Close,14 ), chartpane, 009, #Thin );
PlotSeries( AroonDownSeries( #Close,14 ), chartpane, 905, #Thin );