Exit ;

End;

ПЕРЕСЕЧЕНИЕ ТРЕХ ПРОСТЫХ НЕСМЕЩЕННЫХ МА

□ □ □ □ □ □ □

Name : = Crossing3MA

Author ; Copyright © 2004, MetaQuotes Software Corp

Link := http: www.inetaquotes.ru/

Lots := 1.00

Stop Loss := 0

Take Profit := 0

Trailing Stop := 0

□

] ] V □

Define : CrossMeasure(5);

Variables : cnt(0),PrevTime(0),UpperDiff(0),LowerDiff(0);

Variables : GreenLinel{0),RedLinel(0),BlueLinel(0);

Variables : GreenLineO(0),RedLineO(0),BlueLineO(0);

Variables : GreenLineMinusl(0),RedLlneMinusl(0),BlueLineMinusl(0);

Variables : GreenLineMinus2 ( 0) , RedLineMinus2 (0) , BlueLineMinus2 {0 ) ,-

Variables : GreenDiff1(0),GreenDiff2(0),GreenDlff3(0);

Variables : BlueDiff1(0),BlueDiff2(0),BlueDiff3(0);

Variables : IsCrossed(False),ConditionUp(Fa1se),ConditlonDown(Fa1se);

If PrevTime!=Tlme Then Begin

UpperDiff = iGator(13, 0, 8, 0, 5, 0, MODE SMMA, PRICE MEDIAN, M0DE OPPER, 3)i

LowerDiff = -iGator(13, 0, 8, 0, 5, 0, MODE SMMA. PRICE MEDIAN, M0DE L01VER, 3 ) ;

WasClosedSel1-False,

If IsCrossUp Then SetOrder{OP BUY,Lots,Ask, 3,0,O.Green);

GreenLinel=iAlligator[13, О, 8, О, Ь, О, MODE SMttA, PRICE MEDIAN, MODE GATORLIPS, 3) ;

RedLineliAlligator(13, О, 8, О, 5, О, MODE SMMA, PRICE MEDIAN, MODE GATORTEETH, 3 ) ;

BlueLinel=iAlligator(13, 0, 8, 0, Б, О, MODE SMMA, PRICE HEDIAN, MODE GATORJAW, 3) ;

GreenLineO = iAlllgator(13, 0, 8 , 0 , Б , 0 , MODE SMMA, PRICE MEDIAN, MODE GATORLIPS, 2) ;

RedLineO = iAlligator (13, 0, 8, 0, 5, 0, MODE SMMA, PRICE MEDIAK, MODE GATORTEETH, 2);

BlueLineO=lAlligator(13, 0, 8, 0, 5, 0, MODE„SMMA, PR1CE MEDIAN, MODE GATORJAW, 2) ;

GreenLineMinusl=iAlligator(13, 0, 8, 0, 5 PRICE MEDIAJSi, MoDE GATORLIPS, 1) ;

RedLineMinusl=iAl1igator(13, 0, 8, 0, S, PRICE MEDIAN, MODE GATORTEETH, 1) ;

BIueLineMinus1 = iAl1igator(13 , 0, 8, 0, 5 PRICE MEDIAN, MODE GATORJAW, 1);

0, MODE SMMA, 0 , MODE SMMA, 0, MODE SMMA,

0, MODE SMMA, 0, MODE SMMA, 5, 0 , MODE SMMA,

GreenLineMinus2 = iAlligator(13 , 0, 3, 0, 5 PRICE MEDIAN, MODE GATORLIpS, 0) ;

RedLineMinus2iAlligator(13, 0, 8, 0, 5, PRICE MEDIAM, MODEGATORTEETH, 0);

BlueLineMinus2=iAlligator(13, 0, 8, 0, PRICE MEDIAN, MODE GAT0RJAW, 0) ;

GreenDi f£l=GreenLineO-RedLineO;

GreenDiff2=GreenLineMinusl-RedLineMinusl;

GreenDiff3 =GreenLineMinus2-RedLineMinus2;

BlueDiffl=BlueLineO-RedLineO;

BlueDi ff2=BlueLineMinusl-RedLineMinusl;

BlueDiff3=BlueLineMinus2-RedLineMinus2;

PrevTime=Tiine;

End;

If TotalTradeB>0 Then Begin

проверяем условие выхода

I f GreenLineMinusl<RedLineMinusl And GreenLineO>=RedLineO And GreenLinel>RedLinel Then Begin

For cnt=l To TotalTrades Begin

If OrderValue(cnt,VAL SYMBOL)=Symbol And

OrderValue(cnt,VAL TYPE)OP BUY Then Begin

CloseOrder(OrderValue(cnt,VAL TICKET),OrderValue(cnt,VAL LOTS), Ask,3,Violet);

Ex i t;

End;

End;

If GreenLineMinusl>RedLineMlnusl And GreenLineO<=RedLineO And GreenLinel<RedLinel Then Begin

For cnt=l To TotalTrades Begin

If OrderValue(cnt,VAL SYMBOL)Symbol And

OrderValueCcnt, VAL TYPE)-OP SELL Then Begin

CloseOrder(OrderValue(cnt,VAL TICKET) , OrderValue(cnt,VAL LOTS), aek.3,Violet);

Exit;

End;

End;

end;

End;

If UpperDiff>CrossMeasure*point or lowerdi££>crossmeasure*point then

Begin

IsCrossed=False; exit;

End;

If Abs(GreenLinel-BlueLinel)>crossmeasure*point then begin

IsCrossed=False; ex i t;

End;

If IsCrossed Then exit; ConditionUp-False;

If GreenDiff3>=GreenDiff2 And GreenDiff2>=GreenDiff1 And GreenDif f1> = 0 And

BlueDiff3<=BlueDiff2 And BlueDiff2<=BlueDiff1 And BlueDif£l<=0 Then ConditionUpTrue;

ConditlonDown=False;

If GreenDiff3<=GreenDiff2 And GreenDiff2<-GreenDiffl And GreenDiff1<=0 And

BlueDiff3>=BlueDiff2 And BlueDiff2>=BlueDiff1 And BlueDiffl>=0 Then ConditlonDown=True;

If ConditionUp Or ConditionDown Then Begin IsCrossedTrue;

I f Condi tionUp Then SetOrder COP BUY,Lots,Ask,3,0,0,Green) ; If ConditionUown Then SetOrder(OP SELL,Lots,Bid,3,0,0,Green); SetArrow(Time[1],Lowf 1 ] ,218,Wh ite) ;

else IsCrossed=False;