답변완료
수정부탁드립니다
수정부탁드립니다.
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();
}
}
}
}
2023-04-13
1724
글번호 168157
시스템