커뮤니티
하루에 한번 매수식부탁요
2013-11-04 16:09:48
187
글번호 69189
하루에 한번 매수하는 식으로 바꾸어주세요~~
input : 투자금액(100000);
Var : Body(0),HighBody(0),LowBody(0),Height(0),UpTail(0),DnTail(0),Long(False);
var : Vol(0);
if CodeCategoryEx == 11 and BasePrice < 50000 Then
vol = int(int((투자금액)/C)/10)*10;
Else
vol = int((투자금액)/C);
Body = Abs(C-O);
HighBody = Max(C,O);
LowBody = Min(C,O);
Height = H-L;
UpTail = H-Max(C,O);
DnTail = Min(C,O)-L;
If (C[3] > Ma(C,10)[3] and C[3] > O[3] and C[2] > O[2] and C[1] > O[1]) and
(O[3] < O[2] and O[2] < O[1]) and
(C[3] < C[2] and C[2] < C[1]) and
(H[3] < H[2] and H[2] < H[1]) and
(C[3] > O[2] and O[2] > O[3]) and
(C[2] > O[1] and O[1] > O[2]) and
(Body > ma(Body,10)*2 and C < O) and
(O > H[1] and C < L[3]) Then
buy("b1",OnClose,def,vol);
If (C[4] >= Ma(C,10)[4] and C[4] > O[4] and Body[4] > Ma(Body,10)[4]*2) and
(LowBody[3] > Highbody[4]) and
(HighBody[3] >= HighBody[2] and HighBody[2] >= HighBody[1]) and
(C > O and Body > Ma(Body,10)*2 and Close == Highest(C,5)) Then
buy("b2",OnClose,def,vol);
If (C[2] >= Ma(C,10)[2] and C[2] > O[2] and C[1] > O[1] and C > O) and
(O[1] > LowBody[2] and Open[1]<=HighBody[2]) and
(O > LowBody[1] and O <= HighBody[1]) and
(C[2] < C[1] and C[1] < C[0]) and
(Body[2]>Body[1] and Body[1]>Body[0]) Then
buy("b3",OnClose,def,vol);
If (C[1] >= Ma(C,10)[1] and C[1] < O[1] and Body[1] > Ma(Body,10)[1]*2 and C > O) and
(Abs(Open-Open[1]) < Ma(Height,10)*0.1) Then
buy("b4",OnClose,def,vol);
If C[2] >= ma(C,10)[2] and C[2] > O[2] and Body[2] > Ma(Body,10)[2]*2 and
C[1] > O[1] and Body[1] > Ma(Body,10)[1]*2 and Open[1] > Max(O,C)[2] and
C < O and C < C[2] Then
buy("b5",OnClose,def,vol);
If C[2] >= Ma(C,10)[2] and C[2] > O[2] and Body[2] > Ma(Body,10)[2]*2 and
C[1] > O[1] and C > O and
O[1] > C[2] and
Abs(Body-Body[1]) < Body*0.1 and
Abs(O-O[1]) < Ma(Height,10)*0.1 Then
buy("b6",OnClose,def,vol);
If C[4] >= Ma(C,10)[4] and C[4] > O[4] and Body[4] > Ma(Body,10)[4]*2 and
HighBody[3] < H[4] and LowBody[3] >= L[4] and
HighBody[2] < H[4] and LowBody[2] >= L[4] and
HighBody[1] < H[4] and LowBody[1] >= L[4] and
HighBody[3] >= HighBody[2] and HighBody[2]>=HighBody[1] and
C > O and Body > Ma(Body,10)*2 and
Close == Highest(C,5) Then
buy("b7",OnClose,def,vol);
If C[2] > Ma(C,10)[2] and C[2] > O[2] and C[1] > O[1] and O[1] > Max(O,C)[2] and
C < O and O >= LowBody[1] and O <= HighBody[1] and
C > C[2] Then
buy("b8",OnClose,def,vol);
If C > Ma(C,10) and Body > Ma(Body,10)*2 and C > O and
UpTail < Height*0.1 and DnTail < Height*0.1 Then
buy("b9",OnClose,def,vol);
If C[2] > Ma(C,10)[2] and C[2] > O[2] and C[1] > O[1] and C > O and
O[1] >= LowBody[2] and O[1] <= HighBody[2] and
O >= LowBody[1] and O <= HighBody[1] and
C[2] < C[1] and C[1] < C and
Body < Ma(Body,10)*0.5 and O > Max(C,O)[1] Then
buy("b10",OnClose,def,vol);
DnTail = Min(O,C) - L;
Uptail = H - Max(O,C);
Height = H - L;
body= Abs(O-C);
highbody = Max(O,C);
LowBody = Min(O,C);
If Abs(Open-Close) > ma(Abs(Open-Close),10)*2 Then
Long = True;
Else
Long = False;
If UpTail == 0 and DnTail == 0 Then
Condition1 = True;
Else
Condition1 = False;
If C < Ma(C,10) and DnTail < Height*0.1 and C == O and Height > Ma(Height,10) Then
buy("a1",OnClose,def,vol);
Else
If C < Ma(C,10) and (Uptail < Height * 0.1) and C == O and (Height > Ma(Height,10)) Then
buy("a2",OnClose,def,vol);
Else
If C[1] < Ma(C,10)[1] and C[1] < O[1] and Long[1] == True
and C > O and Long and O < L[1] and C >= (O[1]+C[1])/2 and C < O[1] Then
buy("a3",OnClose,def,vol);
Else
If (C[2] >= Ma(C,10)[2] and C[2] < O[2] and C[1] < O[1] and C < O) and
(O[1] > Min(O,C)[2] and O[1] < Max(O,C)[2]) and
(O > Min(O,C)[1] and O < Max(O,C)[1]) and
(C[2] > C[1] and C[1] > C[0]) and
(L[2] < L[1] and L[1]< L[0]) Then
buy("a4",OnClose,def,vol);
Else
If C[2] < Ma(C,10)[2] and C[2] < O[2] and C[1] > O[1] and C < O and
O[1] > C[2] and O[1] == L[1] and
O > Max(H[1],H[2]) and C[2] == C[0] Then
buy("a6",OnClose,def,vol);
Else
If (C[4] < Ma(C,10)[4] and C[4] < O[4] and C[3] < O[3] and C[2] < O[2]) and
(O[4] > O[3] and O[3] > O[2]) and
(C[4] > C[3] and C[3] > C[2]) and
(C[1] < O[1] and H[1] - MaxList(O,C)[1] > 0) and
(H[1] < O[3] and C[2] > C[1]) and
Close > Open and (O > O[1] and C > MaxList(H[1],H[2])) Then
buy("a7",OnClose,def,vol);
Else
If (C[2] < Ma(C,10)[2] and Long[2] == True and C[2] < O[2]) and
(C[1] == O[1] and Max(O,C)[1] < Min(O,C)[2])and
(C > O and Min(O,C) > Max(O,C)[1])and (C > C[2]) Then
buy("a8",OnClose,def,vol);
Else
If (C[1] < O[1] and Long[1] == True and Condition1[1] == True ) and
(Long == True and C > O and Condition1 == True ) and (L > H[1]) Then
buy("a9",OnClose,def,vol);
Else
If C[1] < Ma(C,10)[1] and C[1] < O[1] and body[1] > Ma(body[1],10)*2 and
C > O and
Abs(C-C[1]) < Ma(Height,10)*0.1 Then
buy("a10",OnClose,def,vol);
Else
If C < Ma(C,10) and body > Ma(body,10)*2 and C > O and
O == L and Uptail > 0 and Uptail < Height*0.1 Then
buy("a11",OnClose,def,vol);
Else
If C[2] < Ma(C,10)[2] and C[2] == O[2] and C[1] == O[1] and C == O and
HighBody[1]< LowBody[2] and HighBody[1] < LowBody[0] Then
buy("a12",OnClose,def,vol);
Else
If C[1] < Ma(C,10)[1] and C[1] < O[1] and body[1] > Ma(body[1],10)*2 and
C == O and Highbody < Highbody[1] and Lowbody > Lowbody[1] Then
buy("a13",OnClose,def,vol);
Else
If C[1] < Ma(C,10)[1] and C[1] < O[1] and body[1] > Ma(body[1],10)*2
and C > O and Highbody < Highbody[1] and Lowbody > Lowbody[1] Then
buy("a14",OnClose,def,vol);
Else
If C[2] < Ma(C,10)[2] and C[2] < O[2] and body[2] > Ma(body[2],10)*2 and
C[1] > O[1] and Highbody[1] < Highbody[2] and Lowbody[1] > Lowbody[2] and
C > O and C > C[1] Then
buy("a15",OnClose,def,vol);
Else
If C[1] < Ma(c,10)[1] and C[1] < O[1] and
C > O and Body > Ma(Body,10)*2 and
Highbody > Highbody[1] and Lowbody < Lowbody[1] Then
buy("a16",OnClose,def,vol);
Else
If C[2] < Ma(C,10)[2] and C[2] < O[2] and
C[1] > O[1] and Body[1] > Ma(Body[1],10)*2 and
Highbody[1] > Highbody[2] and Lowbody[1] < Lowbody[2] and
C > O and C > C[1] Then
buy("a17",OnClose,def,vol);
Else
If (C[4] < Ma(c,10)[4] and Body[4] > Ma(Body,10)[4]*2 and C[4] < O[4]) and
(C[3] < O[3] and C[1] < O[1]) and
(Body > Ma(Body,10)*2 and C > O) and
(O[3] > HighBody[2] and HighBody[2] > O[1]) and
(C[3] > LowBody[2] and LowBody[2] > C[1]) and
(C >= O[1] and C > O[3] and C < C[4]) Then
buy("a18",OnClose,def,vol);
Else
If C[2] < Ma(C,10)[2] and Body[2] > Ma(Body,10)[2]*2 and C[2] < O[2] and
C[1] == O[1] and HighBody[1]<LowBody[2] and
C > O and C > C[2] Then
buy("a19",OnClose,def,vol);
Else
If C[2] < Ma(C,10)[2] and Body[2] > Ma(Body,10)[2]*2 and C[2] < O[2] and
Body[1] < Ma(Body,10)[1]*0.5 and HighBody[1] < LowBody[2] and
C > O and C > C[2] Then
buy("a20",OnClose,def,vol);
Else
If C[3] < Ma(C,10)[3] and
Body[3] > Ma(Body,10)[3]*2 and C[3] < O[3] and
Body[2] > Ma(Body,10)[2]*2 and C[2] < O[2] and
O[3] == H[3] and C[3] == L[3] and
O[2] == H[2] and C[2] == L[2] and
O[1] < Min(O,C)[2] and H[1] > C[2] and UpTail[1] > Height*0.5 and
O > H[1] and C < L[1] Then
buy("a21",OnClose,def,vol);
Else
If C < Ma(C,10) and DnTail < Height*0.1 and
UpTail > Body*2 and
Height > Ma(Height,10) and
C != O Then
buy("a22",OnClose,def,vol);
Else
If C[2] < Ma(C,10)[2] and C[2] > O[2] and C[1] > O[1] and C > O and
O[1] >= LowBody[2] and O[1]<= HighBody[2] and O <= HighBody[1] and
C[2] <= C[1] and C[1] <= C Then
buy("a23",OnClose,def,vol);
Else
If C[1] < Ma(C,10)[1] and C[1] < O[1] and Body[1] > Ma(Body,10)[1]*2 and
C < O and Highbody < Highbody[1] and Lowbody > Lowbody[1] Then
buy("a24",OnClose,def,vol);
Else
If C < Ma(C,10) and UpTail < Height*0.1 and DnTail > Body*2 and
Height > Ma(Height,10) and C != O Then
buy("a26",OnClose,def,vol);
Else
If (C[2] < Ma(C,10)[2] and Body[2] > Ma(Body,10)[2]*2 and C[2] < O[2]) and
(C[1] < O[1] and C > O and Highbody[1] < Highbody[2] and Lowbody[1] > Lowbody[2]) and
(L[1] < L[2] or L[1] < Min(L[2],L[3],L[4])) and
(L[1] < O and C[1] > C) Then
buy("a27",OnClose,def,vol);
Else
SetStopProfittarget(3,PercentStop);
답변 1
예스스탁 예스스탁 답변
2013-11-05 11:31:44
안녕하세요
예스스탁입니다.
input : 투자금액(100000);
Var : Body(0),HighBody(0),LowBody(0),Height(0),UpTail(0),DnTail(0),Long(False);
var : Vol(0),cnt(0),count(0);
count = 0;
for cnt = 0 to 10{
if sdate == EntryDate(cnt) Then
count = count+1;
}
if CodeCategoryEx == 11 and BasePrice < 50000 Then
vol = int(int((투자금액)/C)/10)*10;
Else
vol = int((투자금액)/C);
Body = Abs(C-O);
HighBody = Max(C,O);
LowBody = Min(C,O);
Height = H-L;
UpTail = H-Max(C,O);
DnTail = Min(C,O)-L;
if count < 1 Then{
If (C[3] > Ma(C,10)[3] and C[3] > O[3] and C[2] > O[2] and C[1] > O[1]) and
(O[3] < O[2] and O[2] < O[1]) and
(C[3] < C[2] and C[2] < C[1]) and
(H[3] < H[2] and H[2] < H[1]) and
(C[3] > O[2] and O[2] > O[3]) and
(C[2] > O[1] and O[1] > O[2]) and
(Body > ma(Body,10)*2 and C < O) and
(O > H[1] and C < L[3]) Then
buy("b1",OnClose,def,vol);
If (C[4] >= Ma(C,10)[4] and C[4] > O[4] and Body[4] > Ma(Body,10)[4]*2) and
(LowBody[3] > Highbody[4]) and
(HighBody[3] >= HighBody[2] and HighBody[2] >= HighBody[1]) and
(C > O and Body > Ma(Body,10)*2 and Close == Highest(C,5)) Then
buy("b2",OnClose,def,vol);
If (C[2] >= Ma(C,10)[2] and C[2] > O[2] and C[1] > O[1] and C > O) and
(O[1] > LowBody[2] and Open[1]<=HighBody[2]) and
(O > LowBody[1] and O <= HighBody[1]) and
(C[2] < C[1] and C[1] < C[0]) and
(Body[2]>Body[1] and Body[1]>Body[0]) Then
buy("b3",OnClose,def,vol);
If (C[1] >= Ma(C,10)[1] and C[1] < O[1] and Body[1] > Ma(Body,10)[1]*2 and C > O) and
(Abs(Open-Open[1]) < Ma(Height,10)*0.1) Then
buy("b4",OnClose,def,vol);
If C[2] >= ma(C,10)[2] and C[2] > O[2] and Body[2] > Ma(Body,10)[2]*2 and
C[1] > O[1] and Body[1] > Ma(Body,10)[1]*2 and Open[1] > Max(O,C)[2] and
C < O and C < C[2] Then
buy("b5",OnClose,def,vol);
If C[2] >= Ma(C,10)[2] and C[2] > O[2] and Body[2] > Ma(Body,10)[2]*2 and
C[1] > O[1] and C > O and
O[1] > C[2] and
Abs(Body-Body[1]) < Body*0.1 and
Abs(O-O[1]) < Ma(Height,10)*0.1 Then
buy("b6",OnClose,def,vol);
If C[4] >= Ma(C,10)[4] and C[4] > O[4] and Body[4] > Ma(Body,10)[4]*2 and
HighBody[3] < H[4] and LowBody[3] >= L[4] and
HighBody[2] < H[4] and LowBody[2] >= L[4] and
HighBody[1] < H[4] and LowBody[1] >= L[4] and
HighBody[3] >= HighBody[2] and HighBody[2]>=HighBody[1] and
C > O and Body > Ma(Body,10)*2 and
Close == Highest(C,5) Then
buy("b7",OnClose,def,vol);
If C[2] > Ma(C,10)[2] and C[2] > O[2] and C[1] > O[1] and O[1] > Max(O,C)[2] and
C < O and O >= LowBody[1] and O <= HighBody[1] and
C > C[2] Then
buy("b8",OnClose,def,vol);
If C > Ma(C,10) and Body > Ma(Body,10)*2 and C > O and
UpTail < Height*0.1 and DnTail < Height*0.1 Then
buy("b9",OnClose,def,vol);
If C[2] > Ma(C,10)[2] and C[2] > O[2] and C[1] > O[1] and C > O and
O[1] >= LowBody[2] and O[1] <= HighBody[2] and
O >= LowBody[1] and O <= HighBody[1] and
C[2] < C[1] and C[1] < C and
Body < Ma(Body,10)*0.5 and O > Max(C,O)[1] Then
buy("b10",OnClose,def,vol);
}
DnTail = Min(O,C) - L;
Uptail = H - Max(O,C);
Height = H - L;
body= Abs(O-C);
highbody = Max(O,C);
LowBody = Min(O,C);
If Abs(Open-Close) > ma(Abs(Open-Close),10)*2 Then
Long = True;
Else
Long = False;
If UpTail == 0 and DnTail == 0 Then
Condition1 = True;
Else
Condition1 = False;
if count < 1 Then{
If C < Ma(C,10) and DnTail < Height*0.1 and C == O and Height > Ma(Height,10) Then
buy("a1",OnClose,def,vol);
Else
If C < Ma(C,10) and (Uptail < Height * 0.1) and C == O and (Height > Ma(Height,10)) Then
buy("a2",OnClose,def,vol);
Else
If C[1] < Ma(C,10)[1] and C[1] < O[1] and Long[1] == True
and C > O and Long and O < L[1] and C >= (O[1]+C[1])/2 and C < O[1] Then
buy("a3",OnClose,def,vol);
Else
If (C[2] >= Ma(C,10)[2] and C[2] < O[2] and C[1] < O[1] and C < O) and
(O[1] > Min(O,C)[2] and O[1] < Max(O,C)[2]) and
(O > Min(O,C)[1] and O < Max(O,C)[1]) and
(C[2] > C[1] and C[1] > C[0]) and
(L[2] < L[1] and L[1]< L[0]) Then
buy("a4",OnClose,def,vol);
Else
If C[2] < Ma(C,10)[2] and C[2] < O[2] and C[1] > O[1] and C < O and
O[1] > C[2] and O[1] == L[1] and
O > Max(H[1],H[2]) and C[2] == C[0] Then
buy("a6",OnClose,def,vol);
Else
If (C[4] < Ma(C,10)[4] and C[4] < O[4] and C[3] < O[3] and C[2] < O[2]) and
(O[4] > O[3] and O[3] > O[2]) and
(C[4] > C[3] and C[3] > C[2]) and
(C[1] < O[1] and H[1] - MaxList(O,C)[1] > 0) and
(H[1] < O[3] and C[2] > C[1]) and
Close > Open and (O > O[1] and C > MaxList(H[1],H[2])) Then
buy("a7",OnClose,def,vol);
Else
If (C[2] < Ma(C,10)[2] and Long[2] == True and C[2] < O[2]) and
(C[1] == O[1] and Max(O,C)[1] < Min(O,C)[2])and
(C > O and Min(O,C) > Max(O,C)[1])and (C > C[2]) Then
buy("a8",OnClose,def,vol);
Else
If (C[1] < O[1] and Long[1] == True and Condition1[1] == True ) and
(Long == True and C > O and Condition1 == True ) and (L > H[1]) Then
buy("a9",OnClose,def,vol);
Else
If C[1] < Ma(C,10)[1] and C[1] < O[1] and body[1] > Ma(body[1],10)*2 and
C > O and
Abs(C-C[1]) < Ma(Height,10)*0.1 Then
buy("a10",OnClose,def,vol);
Else
If C < Ma(C,10) and body > Ma(body,10)*2 and C > O and
O == L and Uptail > 0 and Uptail < Height*0.1 Then
buy("a11",OnClose,def,vol);
Else
If C[2] < Ma(C,10)[2] and C[2] == O[2] and C[1] == O[1] and C == O and
HighBody[1]< LowBody[2] and HighBody[1] < LowBody[0] Then
buy("a12",OnClose,def,vol);
Else
If C[1] < Ma(C,10)[1] and C[1] < O[1] and body[1] > Ma(body[1],10)*2 and
C == O and Highbody < Highbody[1] and Lowbody > Lowbody[1] Then
buy("a13",OnClose,def,vol);
Else
If C[1] < Ma(C,10)[1] and C[1] < O[1] and body[1] > Ma(body[1],10)*2
and C > O and Highbody < Highbody[1] and Lowbody > Lowbody[1] Then
buy("a14",OnClose,def,vol);
Else
If C[2] < Ma(C,10)[2] and C[2] < O[2] and body[2] > Ma(body[2],10)*2 and
C[1] > O[1] and Highbody[1] < Highbody[2] and Lowbody[1] > Lowbody[2] and
C > O and C > C[1] Then
buy("a15",OnClose,def,vol);
Else
If C[1] < Ma(c,10)[1] and C[1] < O[1] and
C > O and Body > Ma(Body,10)*2 and
Highbody > Highbody[1] and Lowbody < Lowbody[1] Then
buy("a16",OnClose,def,vol);
Else
If C[2] < Ma(C,10)[2] and C[2] < O[2] and
C[1] > O[1] and Body[1] > Ma(Body[1],10)*2 and
Highbody[1] > Highbody[2] and Lowbody[1] < Lowbody[2] and
C > O and C > C[1] Then
buy("a17",OnClose,def,vol);
Else
If (C[4] < Ma(c,10)[4] and Body[4] > Ma(Body,10)[4]*2 and C[4] < O[4]) and
(C[3] < O[3] and C[1] < O[1]) and
(Body > Ma(Body,10)*2 and C > O) and
(O[3] > HighBody[2] and HighBody[2] > O[1]) and
(C[3] > LowBody[2] and LowBody[2] > C[1]) and
(C >= O[1] and C > O[3] and C < C[4]) Then
buy("a18",OnClose,def,vol);
Else
If C[2] < Ma(C,10)[2] and Body[2] > Ma(Body,10)[2]*2 and C[2] < O[2] and
C[1] == O[1] and HighBody[1]<LowBody[2] and
C > O and C > C[2] Then
buy("a19",OnClose,def,vol);
Else
If C[2] < Ma(C,10)[2] and Body[2] > Ma(Body,10)[2]*2 and C[2] < O[2] and
Body[1] < Ma(Body,10)[1]*0.5 and HighBody[1] < LowBody[2] and
C > O and C > C[2] Then
buy("a20",OnClose,def,vol);
Else
If C[3] < Ma(C,10)[3] and
Body[3] > Ma(Body,10)[3]*2 and C[3] < O[3] and
Body[2] > Ma(Body,10)[2]*2 and C[2] < O[2] and
O[3] == H[3] and C[3] == L[3] and
O[2] == H[2] and C[2] == L[2] and
O[1] < Min(O,C)[2] and H[1] > C[2] and UpTail[1] > Height*0.5 and
O > H[1] and C < L[1] Then
buy("a21",OnClose,def,vol);
Else
If C < Ma(C,10) and DnTail < Height*0.1 and
UpTail > Body*2 and
Height > Ma(Height,10) and
C != O Then
buy("a22",OnClose,def,vol);
Else
If C[2] < Ma(C,10)[2] and C[2] > O[2] and C[1] > O[1] and C > O and
O[1] >= LowBody[2] and O[1]<= HighBody[2] and O <= HighBody[1] and
C[2] <= C[1] and C[1] <= C Then
buy("a23",OnClose,def,vol);
Else
If C[1] < Ma(C,10)[1] and C[1] < O[1] and Body[1] > Ma(Body,10)[1]*2 and
C < O and Highbody < Highbody[1] and Lowbody > Lowbody[1] Then
buy("a24",OnClose,def,vol);
Else
If C < Ma(C,10) and UpTail < Height*0.1 and DnTail > Body*2 and
Height > Ma(Height,10) and C != O Then
buy("a26",OnClose,def,vol);
Else
If (C[2] < Ma(C,10)[2] and Body[2] > Ma(Body,10)[2]*2 and C[2] < O[2]) and
(C[1] < O[1] and C > O and Highbody[1] < Highbody[2] and Lowbody[1] > Lowbody[2]) and
(L[1] < L[2] or L[1] < Min(L[2],L[3],L[4])) and
(L[1] < O and C[1] > C) Then
buy("a27",OnClose,def,vol);
}
SetStopProfittarget(3,PercentStop);
즐거운 하루되세요
> HI_jh***** 님이 쓴 글입니다.
> 제목 : 하루에 한번 매수식부탁요
> 하루에 한번 매수하는 식으로 바꾸어주세요~~
input : 투자금액(100000);
Var : Body(0),HighBody(0),LowBody(0),Height(0),UpTail(0),DnTail(0),Long(False);
var : Vol(0);
if CodeCategoryEx == 11 and BasePrice < 50000 Then
vol = int(int((투자금액)/C)/10)*10;
Else
vol = int((투자금액)/C);
Body = Abs(C-O);
HighBody = Max(C,O);
LowBody = Min(C,O);
Height = H-L;
UpTail = H-Max(C,O);
DnTail = Min(C,O)-L;
If (C[3] > Ma(C,10)[3] and C[3] > O[3] and C[2] > O[2] and C[1] > O[1]) and
(O[3] < O[2] and O[2] < O[1]) and
(C[3] < C[2] and C[2] < C[1]) and
(H[3] < H[2] and H[2] < H[1]) and
(C[3] > O[2] and O[2] > O[3]) and
(C[2] > O[1] and O[1] > O[2]) and
(Body > ma(Body,10)*2 and C < O) and
(O > H[1] and C < L[3]) Then
buy("b1",OnClose,def,vol);
If (C[4] >= Ma(C,10)[4] and C[4] > O[4] and Body[4] > Ma(Body,10)[4]*2) and
(LowBody[3] > Highbody[4]) and
(HighBody[3] >= HighBody[2] and HighBody[2] >= HighBody[1]) and
(C > O and Body > Ma(Body,10)*2 and Close == Highest(C,5)) Then
buy("b2",OnClose,def,vol);
If (C[2] >= Ma(C,10)[2] and C[2] > O[2] and C[1] > O[1] and C > O) and
(O[1] > LowBody[2] and Open[1]<=HighBody[2]) and
(O > LowBody[1] and O <= HighBody[1]) and
(C[2] < C[1] and C[1] < C[0]) and
(Body[2]>Body[1] and Body[1]>Body[0]) Then
buy("b3",OnClose,def,vol);
If (C[1] >= Ma(C,10)[1] and C[1] < O[1] and Body[1] > Ma(Body,10)[1]*2 and C > O) and
(Abs(Open-Open[1]) < Ma(Height,10)*0.1) Then
buy("b4",OnClose,def,vol);
If C[2] >= ma(C,10)[2] and C[2] > O[2] and Body[2] > Ma(Body,10)[2]*2 and
C[1] > O[1] and Body[1] > Ma(Body,10)[1]*2 and Open[1] > Max(O,C)[2] and
C < O and C < C[2] Then
buy("b5",OnClose,def,vol);
If C[2] >= Ma(C,10)[2] and C[2] > O[2] and Body[2] > Ma(Body,10)[2]*2 and
C[1] > O[1] and C > O and
O[1] > C[2] and
Abs(Body-Body[1]) < Body*0.1 and
Abs(O-O[1]) < Ma(Height,10)*0.1 Then
buy("b6",OnClose,def,vol);
If C[4] >= Ma(C,10)[4] and C[4] > O[4] and Body[4] > Ma(Body,10)[4]*2 and
HighBody[3] < H[4] and LowBody[3] >= L[4] and
HighBody[2] < H[4] and LowBody[2] >= L[4] and
HighBody[1] < H[4] and LowBody[1] >= L[4] and
HighBody[3] >= HighBody[2] and HighBody[2]>=HighBody[1] and
C > O and Body > Ma(Body,10)*2 and
Close == Highest(C,5) Then
buy("b7",OnClose,def,vol);
If C[2] > Ma(C,10)[2] and C[2] > O[2] and C[1] > O[1] and O[1] > Max(O,C)[2] and
C < O and O >= LowBody[1] and O <= HighBody[1] and
C > C[2] Then
buy("b8",OnClose,def,vol);
If C > Ma(C,10) and Body > Ma(Body,10)*2 and C > O and
UpTail < Height*0.1 and DnTail < Height*0.1 Then
buy("b9",OnClose,def,vol);
If C[2] > Ma(C,10)[2] and C[2] > O[2] and C[1] > O[1] and C > O and
O[1] >= LowBody[2] and O[1] <= HighBody[2] and
O >= LowBody[1] and O <= HighBody[1] and
C[2] < C[1] and C[1] < C and
Body < Ma(Body,10)*0.5 and O > Max(C,O)[1] Then
buy("b10",OnClose,def,vol);
DnTail = Min(O,C) - L;
Uptail = H - Max(O,C);
Height = H - L;
body= Abs(O-C);
highbody = Max(O,C);
LowBody = Min(O,C);
If Abs(Open-Close) > ma(Abs(Open-Close),10)*2 Then
Long = True;
Else
Long = False;
If UpTail == 0 and DnTail == 0 Then
Condition1 = True;
Else
Condition1 = False;
If C < Ma(C,10) and DnTail < Height*0.1 and C == O and Height > Ma(Height,10) Then
buy("a1",OnClose,def,vol);
Else
If C < Ma(C,10) and (Uptail < Height * 0.1) and C == O and (Height > Ma(Height,10)) Then
buy("a2",OnClose,def,vol);
Else
If C[1] < Ma(C,10)[1] and C[1] < O[1] and Long[1] == True
and C > O and Long and O < L[1] and C >= (O[1]+C[1])/2 and C < O[1] Then
buy("a3",OnClose,def,vol);
Else
If (C[2] >= Ma(C,10)[2] and C[2] < O[2] and C[1] < O[1] and C < O) and
(O[1] > Min(O,C)[2] and O[1] < Max(O,C)[2]) and
(O > Min(O,C)[1] and O < Max(O,C)[1]) and
(C[2] > C[1] and C[1] > C[0]) and
(L[2] < L[1] and L[1]< L[0]) Then
buy("a4",OnClose,def,vol);
Else
If C[2] < Ma(C,10)[2] and C[2] < O[2] and C[1] > O[1] and C < O and
O[1] > C[2] and O[1] == L[1] and
O > Max(H[1],H[2]) and C[2] == C[0] Then
buy("a6",OnClose,def,vol);
Else
If (C[4] < Ma(C,10)[4] and C[4] < O[4] and C[3] < O[3] and C[2] < O[2]) and
(O[4] > O[3] and O[3] > O[2]) and
(C[4] > C[3] and C[3] > C[2]) and
(C[1] < O[1] and H[1] - MaxList(O,C)[1] > 0) and
(H[1] < O[3] and C[2] > C[1]) and
Close > Open and (O > O[1] and C > MaxList(H[1],H[2])) Then
buy("a7",OnClose,def,vol);
Else
If (C[2] < Ma(C,10)[2] and Long[2] == True and C[2] < O[2]) and
(C[1] == O[1] and Max(O,C)[1] < Min(O,C)[2])and
(C > O and Min(O,C) > Max(O,C)[1])and (C > C[2]) Then
buy("a8",OnClose,def,vol);
Else
If (C[1] < O[1] and Long[1] == True and Condition1[1] == True ) and
(Long == True and C > O and Condition1 == True ) and (L > H[1]) Then
buy("a9",OnClose,def,vol);
Else
If C[1] < Ma(C,10)[1] and C[1] < O[1] and body[1] > Ma(body[1],10)*2 and
C > O and
Abs(C-C[1]) < Ma(Height,10)*0.1 Then
buy("a10",OnClose,def,vol);
Else
If C < Ma(C,10) and body > Ma(body,10)*2 and C > O and
O == L and Uptail > 0 and Uptail < Height*0.1 Then
buy("a11",OnClose,def,vol);
Else
If C[2] < Ma(C,10)[2] and C[2] == O[2] and C[1] == O[1] and C == O and
HighBody[1]< LowBody[2] and HighBody[1] < LowBody[0] Then
buy("a12",OnClose,def,vol);
Else
If C[1] < Ma(C,10)[1] and C[1] < O[1] and body[1] > Ma(body[1],10)*2 and
C == O and Highbody < Highbody[1] and Lowbody > Lowbody[1] Then
buy("a13",OnClose,def,vol);
Else
If C[1] < Ma(C,10)[1] and C[1] < O[1] and body[1] > Ma(body[1],10)*2
and C > O and Highbody < Highbody[1] and Lowbody > Lowbody[1] Then
buy("a14",OnClose,def,vol);
Else
If C[2] < Ma(C,10)[2] and C[2] < O[2] and body[2] > Ma(body[2],10)*2 and
C[1] > O[1] and Highbody[1] < Highbody[2] and Lowbody[1] > Lowbody[2] and
C > O and C > C[1] Then
buy("a15",OnClose,def,vol);
Else
If C[1] < Ma(c,10)[1] and C[1] < O[1] and
C > O and Body > Ma(Body,10)*2 and
Highbody > Highbody[1] and Lowbody < Lowbody[1] Then
buy("a16",OnClose,def,vol);
Else
If C[2] < Ma(C,10)[2] and C[2] < O[2] and
C[1] > O[1] and Body[1] > Ma(Body[1],10)*2 and
Highbody[1] > Highbody[2] and Lowbody[1] < Lowbody[2] and
C > O and C > C[1] Then
buy("a17",OnClose,def,vol);
Else
If (C[4] < Ma(c,10)[4] and Body[4] > Ma(Body,10)[4]*2 and C[4] < O[4]) and
(C[3] < O[3] and C[1] < O[1]) and
(Body > Ma(Body,10)*2 and C > O) and
(O[3] > HighBody[2] and HighBody[2] > O[1]) and
(C[3] > LowBody[2] and LowBody[2] > C[1]) and
(C >= O[1] and C > O[3] and C < C[4]) Then
buy("a18",OnClose,def,vol);
Else
If C[2] < Ma(C,10)[2] and Body[2] > Ma(Body,10)[2]*2 and C[2] < O[2] and
C[1] == O[1] and HighBody[1]<LowBody[2] and
C > O and C > C[2] Then
buy("a19",OnClose,def,vol);
Else
If C[2] < Ma(C,10)[2] and Body[2] > Ma(Body,10)[2]*2 and C[2] < O[2] and
Body[1] < Ma(Body,10)[1]*0.5 and HighBody[1] < LowBody[2] and
C > O and C > C[2] Then
buy("a20",OnClose,def,vol);
Else
If C[3] < Ma(C,10)[3] and
Body[3] > Ma(Body,10)[3]*2 and C[3] < O[3] and
Body[2] > Ma(Body,10)[2]*2 and C[2] < O[2] and
O[3] == H[3] and C[3] == L[3] and
O[2] == H[2] and C[2] == L[2] and
O[1] < Min(O,C)[2] and H[1] > C[2] and UpTail[1] > Height*0.5 and
O > H[1] and C < L[1] Then
buy("a21",OnClose,def,vol);
Else
If C < Ma(C,10) and DnTail < Height*0.1 and
UpTail > Body*2 and
Height > Ma(Height,10) and
C != O Then
buy("a22",OnClose,def,vol);
Else
If C[2] < Ma(C,10)[2] and C[2] > O[2] and C[1] > O[1] and C > O and
O[1] >= LowBody[2] and O[1]<= HighBody[2] and O <= HighBody[1] and
C[2] <= C[1] and C[1] <= C Then
buy("a23",OnClose,def,vol);
Else
If C[1] < Ma(C,10)[1] and C[1] < O[1] and Body[1] > Ma(Body,10)[1]*2 and
C < O and Highbody < Highbody[1] and Lowbody > Lowbody[1] Then
buy("a24",OnClose,def,vol);
Else
If C < Ma(C,10) and UpTail < Height*0.1 and DnTail > Body*2 and
Height > Ma(Height,10) and C != O Then
buy("a26",OnClose,def,vol);
Else
If (C[2] < Ma(C,10)[2] and Body[2] > Ma(Body,10)[2]*2 and C[2] < O[2]) and
(C[1] < O[1] and C > O and Highbody[1] < Highbody[2] and Lowbody[1] > Lowbody[2]) and
(L[1] < L[2] or L[1] < Min(L[2],L[3],L[4])) and
(L[1] < O and C[1] > C) Then
buy("a27",OnClose,def,vol);
Else
SetStopProfittarget(3,PercentStop);