안녕하세요 예스스탁입니다. Input:barCnt(5); Var:aj(0),turBit(""); Array:vaArr[10](0),baArr[10](0),tuPntrr[10](""); // 봉이 새로 생겼으므로 봉개수 관리하는 변수들의 봉개수 값 1씩 증가 For aj = 0 To 9 { baArr[aj] = baArr[aj] + 1; } // 고점조건 = 5-1-5에서 가운데 고가가 좌측 5봉과 우측 5봉 고가보다 높다 // 저점조건 = 5-1-5에서 가운데 저가가 좌측 5봉과 우측 5봉 저가보다 낮다 Condition1 = Highest(H,barCnt)[barCnt+1] <= H[barCnt] and H[barCnt] > Highest(H,barCnt); Condition2 = Lowest(L,barCnt)[barCnt+1] >= L[barCnt] and L[barCnt] < Lowest(L,barCnt); turBit = ""; If Condition1 and Condition2 Then { If Max(vaArr[1],vaArr[2]) < H[barCnt] and Min(vaArr[1],vaArr[2]) > L[barCnt] Then turBit = "HiLo"; Else If Max(vaArr[1],vaArr[2]) < H[barCnt] Then turBit = "Hi"; Else If Min(vaArr[1],vaArr[2]) > L[barCnt] Then turBit = "Lo"; Else If tuPntrr[1] == "Hi" Then turBit = "Lo"; Else If tuPntrr[1] == "Lo" Then turBit = "Hi"; } Else If Condition1 Then turBit = "Hi"; Else If Condition2 Then turBit = "Lo"; If turBit <> "" Then { If turBit == "HiLo" Then { vaArr[1] = IFF(tuPntrr[1] == "Hi",H[barCnt],L[barCnt]); baArr[1] = barCnt; If tuPntrr[1] == "Hi" Then turBit = "Lo"; Else turBit = "Hi"; } If turBit <> tuPntrr[1] Then { for aj = 8 downto 1 { vaArr[aj+1] = vaArr[aj]; baArr[aj+1] = baArr[aj]; tuPntrr[aj+1] = tuPntrr[aj]; } } If turBit <> tuPntrr[1] or (turBit == tuPntrr[1] and ((turBit == "Hi" and vaArr[1] < H[barCnt]) or (turBit == "Lo" and vaArr[1] > L[barCnt]))) Then { vaArr[1] = IFF(turBit == "Hi",H[barCnt],L[barCnt]); baArr[1] = barCnt; tuPntrr[1] = turBit; If tuPntrr[1][1] <> tuPntrr[1][0] Then { if tuPntrr[1][0] == "Hi" Then Sell(); if tuPntrr[1][0] == "Lo" Then Buy(); } } } 즐거운 하루되세요 > 외국인 님이 쓴 글입니다. > 제목 : 수정부탁드립니다 > 수정부탁드립니다. Input:barCnt(5); Var:aj(0),turBit(""); Array:vaArr[10](0),baArr[10](0),tuPntrr[10](""); // 봉이 새로 생겼으므로 봉개수 관리하는 변수들의 봉개수 값 1씩 증가 For aj = 0 To 9 { baArr[aj] = baArr[aj] + 1; } // 고점조건 = 5-1-5에서 가운데 고가가 좌측 5봉과 우측 5봉 고가보다 높다 // 저점조건 = 5-1-5에서 가운데 저가가 좌측 5봉과 우측 5봉 저가보다 낮다 Condition1 = Highest(H,barCnt)[barCnt+1] <= H[barCnt] and H[barCnt] > Highest(H,barCnt); Condition2 = Lowest(L,barCnt)[barCnt+1] >= L[barCnt] and L[barCnt] < Lowest(L,barCnt); turBit = ""; If Condition1 and Condition2 Then { If Max(vaArr[1],vaArr[2]) < H[barCnt] and Min(vaArr[1],vaArr[2]) > L[barCnt] Then turBit = "HiLo"; Else If Min(vaArr[1],vaArr[2]) > L[barCnt] and MAX(vaArr[1],vaArr[2]) < H[barCnt] Then turBit = "LoHi"; Else If Max(vaArr[1],vaArr[2]) < H[barCnt] Then turBit = "Hi"; Else If Min(vaArr[1],vaArr[2]) > L[barCnt] Then turBit = "Lo"; Else If tuPntrr[1] == "Hi" Then turBit = "Lo"; Else If tuPntrr[1] == "Lo" Then turBit = "Hi"; } Else If Condition1 Then turBit = "Hi"; Else If Condition2 Then turBit = "Lo"; If turBit > "" Then { If turBit == "HiLo" Then { vaArr[1] = IFF(tuPntrr[1] == "Hi",H[barCnt],L[barCnt]); baArr[1] = barCnt; If tuPntrr[1] == "Hi" Then turBit = "Lo"; Else turBit = "Hi"; } If turBit > tuPntrr[1] Then { for aj = 8 downto 1 { vaArr[aj+1] = vaArr[aj]; baArr[aj+1] = baArr[aj]; tuPntrr[aj+1] = tuPntrr[aj]; } } If turBit > tuPntrr[1] or (turBit == tuPntrr[1] and ((turBit == "Hi" and vaArr[1] < H[barCnt]) or (turBit == "Lo" and vaArr[1] > L[barCnt]))) Then { vaArr[1] = IFF(turBit == "Hi",H[barCnt],L[barCnt]); baArr[1] = barCnt; tuPntrr[1] = turBit; If tuPntrr[1][1] > tuPntrr[1][0] Then { Buy(); } } If turBit < "" Then { If turBit == "LoHi" Then { vaArr[1] = IFF(tuPntrr[1] == "Lo",L[barCnt],H[barCnt]); baArr[1] = barCnt; If tuPntrr[1] == "Lo" Then turBit = "Hi"; Else turBit = "Lo"; } If turBit < tuPntrr[1] Then { for aj = 8 downto 1 { vaArr[aj+1] = vaArr[aj]; baArr[aj+1] = baArr[aj]; tuPntrr[aj+1] = tuPntrr[aj]; } } If turBit < tuPntrr[1] or (turBit == tuPntrr[1] and ((turBit == "Lo" and vaArr[1] < L[barCnt]) or (turBit == "Hi" and vaArr[1] > H[barCnt]))) Then { vaArr[1] = IFF(turBit == "Lo",L[barCnt],H[barCnt]); baArr[1] = barCnt; tuPntrr[1] = turBit; If tuPntrr[1][1] < tuPntrr[1][0] Then { Sell(); } } } }