DrawHorzLine( 20,ADXPane, #GREEN, #DOTTED );
var ADXPane, ADXPane1, ADXPane2, ADXPane3, ADXPane4, ADXPane5, ADXPane6, ADXPane7, ADXPane8, ADXPane9, ADXPane10, ADXPane11, ADXPane12, ADXPane13, ADXPane14, ADXPane15, ADXPane16, ADXPane17, ADXPane18, ADXPane19, ADXPane20, ADXPane21, ADXPane22, ADXPane23: integer;
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 );
|
|
|
الكلمات الدلالية (Tags) |
لبرنامج, مؤشرات, تنصيب, خصائص, pro, wealthlab |
أدوات الموضوع | |
تعليمات المشاركة |
لا تستطيع إضافة مواضيع جديدة
لا تستطيع الرد على المواضيع
لا تستطيع إرفاق ملفات
لا تستطيع تعديل مشاركاتك
BB code is متاحة
الابتسامات متاحة
كود [IMG] متاحة
كود HTML معطلة
|