커뮤니티

다시 문의요

프로필 이미지
회원
2013-11-07 12:42:49
148
글번호 69296
답변완료

첨부 이미지

안녕하세요~~ 다시 문의 합니다 첨부 올려놨으니 보시고 확인부탁합니다 하루에 2번들어가는 식이 몇개 나오는데요 ㅜㅜ 하루에 한번들어가는 식 문의했는데요 매수하는 방법이 35개정도 되는데요 이식 모두 하루에 한번 일어나게 해주세요 예를들어) a1식이 매수가들어가면 a2,a3,b1,b2.... 등등식은 오늘하루 진입안되게해주세요 그다음날은 다시 진입되게 해주세요 분봉으로 적용합니다 수고하십시오~~~ 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); if CurrentEntries >= 2 Then exitlong("매도2",atlimit,AvgEntryPrice*1.02);
시스템
답변 1
프로필 이미지

예스스탁 예스스탁 답변

2013-11-07 17:10:30

안녕하세요 예스스탁입니다. 수정한 식입니다. 현재 피라미딩으로 매수가 누적이 되고 있습니다. 거래는 진입부터 청산까지가 하나의 거래이므로 이전은 하루에 한번의 거래로 제한을 합니다. 피라미딩은 여러번 들어갈수 있습니다. 질문주실때 피라미딩 사용여부를 명시해 주셔야 합니다. input : 투자금액(100000); Var : Body(0),HighBody(0),LowBody(0),Height(0),UpTail(0),DnTail(0),Long(False); var : Vol(0),entrycond(false); if date != date[1] Then entrycond = false; 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 entrycond == false and (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); entrycond = true; } If entrycond == false and (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); entrycond = true; } If entrycond == false and (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); entrycond = true; } If entrycond == false and (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); entrycond = true; } If entrycond == false and 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); entrycond = true; } If entrycond == false and 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); entrycond = true; } If entrycond == false and 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); entrycond = true; } If entrycond == false and 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); entrycond = true; } If entrycond == false and 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); entrycond = true; } If entrycond == false and 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); entrycond = true; } 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 entrycond == false and C < Ma(C,10) and DnTail < Height*0.1 and C == O and Height > Ma(Height,10) then{ buy("a1",OnClose,def,vol); entrycond = true; } If entrycond == false and C < Ma(C,10) and (Uptail < Height * 0.1) and C == O and (Height > Ma(Height,10)) then{ buy("a2",OnClose,def,vol); entrycond = true; } If entrycond == false and 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); entrycond = true; } If entrycond == false and (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); entrycond = true; } If entrycond == false and 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); entrycond = true; } If entrycond == false and (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); entrycond = true; } If entrycond == false and (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); entrycond = true; } If entrycond == false and (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); entrycond = true; } If entrycond == false and 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); entrycond = true; } If entrycond == false and 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); entrycond = true; } If entrycond == false and 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); entrycond = true; } If entrycond == false and 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); entrycond = true; } If entrycond == false and 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); entrycond = true; } If entrycond == false and 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); entrycond = true; } If entrycond == false and 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); entrycond = true; } If entrycond == false and 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); entrycond = true; } If entrycond == false and (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); entrycond = true; } If entrycond == false and 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); entrycond = true; } If entrycond == false and 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); entrycond = true; } If entrycond == false and 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); entrycond = true; } If entrycond == false and 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); entrycond = true; } If entrycond == false and 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); entrycond = true; } If entrycond == false and 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); entrycond = true; } If entrycond == false and 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); entrycond = true; } If entrycond == false and (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); entrycond = true; } SetStopProfittarget(3,PercentStop); if CurrentEntries >= 2 Then exitlong("매도2",atlimit,AvgEntryPrice*1.02); 즐거운 하루되세요 > HI_jh***** 님이 쓴 글입니다. > 제목 : 다시 문의요 > 안녕하세요~~ 다시 문의 합니다 첨부 올려놨으니 보시고 확인부탁합니다 하루에 2번들어가는 식이 몇개 나오는데요 ㅜㅜ 하루에 한번들어가는 식 문의했는데요 매수하는 방법이 35개정도 되는데요 이식 모두 하루에 한번 일어나게 해주세요 예를들어) a1식이 매수가들어가면 a2,a3,b1,b2.... 등등식은 오늘하루 진입안되게해주세요 그다음날은 다시 진입되게 해주세요 분봉으로 적용합니다 수고하십시오~~~ 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); if CurrentEntries >= 2 Then exitlong("매도2",atlimit,AvgEntryPrice*1.02);