تنصيب -- خصائص -- مؤشرات -- لبرنامج -- Wealth-Lab Pro --

DrawHorzLine( 20,ADXPane, #GREEN, #DOTTED );

var Bar, p: integer;
var Cond1, Cond2, Cond3, Cond4, Cond5, Cond6, Cond7, Cond8, Cond9, Cond10, Cond11, Cond12, Cond13, Cond14, Cond15, Cond16, Cond17, Cond18, Cond19, Cond20: boolean;
ADXPane := CreatePane( 100, true, true );
PlotSeries( ADXSeries( 14 ), ADXPane, #Blue, #Thick );
PlotSeries( ADXRSeries( 14 ), ADXPane, 002, #Thin );
PlotSeries( DISeries( 14 ), ADXPane, #Green, #Thin );
PlotSeries( DIMinusSeries( 14 ), ADXPane, #Red, #Thin );
DrawLabel( '14 Bar ***ectional Movement', ADXPane );
for Bar := 20 to BarCount - 1 do
begin
 if LastPositionActive then
 begin
   p := LastPosition;
   Cond1 := false;
   Cond2 := false;
   Cond3 := false;
   Cond4 := false;
   Cond5 := false;
   Cond6 := false;
   Cond7 := false;
   Cond8 := false;
   Cond9 := false;
   Cond10 := false;
   Cond11 := false;
   Cond12 := false;
   Cond13 := false;
   Cond14 := false;
   Cond15 := false;
   Cond16 := false;
   Cond17 := false;
   Cond18 := false;
   Cond19 := false;
   Cond20 := false;
   if DI( Bar, 14 ) < DIMinus( Bar, 14 ) then
   begin
     Cond1 := true;
   end;
   if CrossUnderValue( Bar, ADXSeries( 14 ), 46 ) then
   begin
     Cond2 := true;
   end;
   if CrossUnderValue( Bar, ADXSeries( 14 ), 44 ) then
   begin
     Cond3 := true;
   end;
   if CrossUnderValue( Bar, ADXSeries( 14 ), 42 ) then
   begin
     Cond4 := true;
   end;
   if CrossUnderValue( Bar, ADXSeries( 14 ), 40 ) then
   begin
     Cond5 := true;
   end;
   if CrossUnderValue( Bar, ADXSeries( 14 ), 38 ) then
   begin
     Cond6 := true;
   end;
   if CrossUnderValue( Bar, ADXSeries( 14 ), 36 ) then
   begin
     Cond7 := true;
   end;
   if CrossUnderValue( Bar, ADXSeries( 14 ), 34 ) then
   begin
     Cond8 := true;
   end;
   if CrossUnderValue( Bar, ADXSeries( 14 ), 32 ) then
   begin
     Cond9 := true;
   end;
   if CrossUnderValue( Bar, ADXSeries( 14 ), 30 ) then
   begin
     Cond10 := true;
   end;
   if CrossUnderValue( Bar, ADXSeries( 14 ), 28 ) then
   begin
     Cond11 := true;
   end;
   if CrossUnderValue( Bar, ADXSeries( 14 ), 26 ) then
   begin
     Cond12 := true;
   end;
   if CrossUnderValue( Bar, ADXSeries( 14 ), 24 ) then
   begin
     Cond13 := true;
   end;
   if CrossUnderValue( Bar, ADXSeries( 14 ), 22 ) then
   begin
     Cond14 := true;
   end;
   if CrossUnderValue( Bar, ADXSeries( 14 ), 20 ) then
   begin
     Cond15 := true;
   end;
   if CrossUnderValue( Bar, ADXSeries( 14 ), 18 ) then
   begin
     Cond16 := true;
   end;
   if CrossUnderValue( Bar, ADXSeries( 14 ), 16 ) then
   begin
     Cond17 := true;
   end;
   if CrossUnderValue( Bar, ADXSeries( 14 ), 14 ) then
   begin
     Cond18 := true;
   end;
   if CrossUnderValue( Bar, ADXSeries( 14 ), 12 ) then
   begin
     Cond19 := true;
   end;
   if CrossUnderValue( Bar, ADXSeries( 14 ), 10 ) then
   begin
     Cond20 := true;
   end;
   if Cond1 or Cond2 or Cond3 or Cond4 or Cond5 or Cond6 or Cond7 or Cond8 or Cond9 or Cond10 or Cond11 or Cond12 or Cond13 or Cond14 or Cond15 or Cond16 or Cond17 or Cond18 or Cond19 or Cond20 then
   begin
     SellAtClose( Bar, p, '' );
   end;
 end
 else
 begin
   if not LastPositionActive then
   begin
     if ADX( Bar, 14 ) > ADX( Bar - 1, 14 ) then
     begin
       if ADX( Bar, 14 ) > 10 then
       begin
         if DI( Bar, 14 ) > 25 then
         begin
         if DI( Bar, 14 ) > DI( Bar - 1, 14 ) then
     begin
           if DI( Bar, 14 ) > DIMinus( Bar, 14 ) then
           begin
             BuyAtClose( Bar, '0' );
           end;
         end;
       end;
     end;
   end;
 end;
end;
end;
DrawHorzLine( 40,ADXPane, #RED, #DOTTED );
DrawHorzLine( 20,ADXPane, #GREEN, #DOTTED );
HideVolume;

SetColorScheme( #Lime,905, #Olive, 000, 999, #Silver );