답변완료
문의드립니다
Input:length(5);
Var:j(0),lastHiVal(0),lastLoVal(0),sBar(0),eBar(0),TL1(0),TL2(0),TL3(0),Text1(0),처리구분(""),
TL_Val1(0),TL_Val2(0);
Var:TL11(0),TL12(0),TL13(0),TL14(0),TL15(0),TL16(0),TL17(0),TL18(0),TL19(0),TL20(0),tx(0);
Var:TL21(0),TL22(0),TL23(0),TL24(0),TL25(0),TL26(0),TL27(0),TL28(0),TL29(0),TL30(0),mav(0),T(0);
Array:고점[10,2](0),저점[10,2](0);
처리구분 = "";
If Highest(H,length) == H and lastHiVal <> H and Lowest(L,length) == L and lastLoVal <> L Then
{ If 저점[1,1] > L Then 처리구분 = "저점처리";
If 고점[1,1] < H Then 처리구분 = "고점처리";
}
Else If Highest(H,length) == H and lastHiVal <> H Then 처리구분 = "고점처리";
Else If Lowest(L,length) == L and lastLoVal <> L Then 처리구분 = "저점처리";
If 처리구분 == "고점처리" Then
{
lastHiVal = H;
If 고점[1,2] < 저점[1,2] Then
{
For j = 10 DownTo 2
{
고점[j,1] = 고점[j-1,1];
고점[j,2] = 고점[j-1,2];
}
}
If 고점[1,2] < 저점[1,2] or 고점[1,1] < H Then
{
고점[1,1] = H;
고점[1,2] = Index;
sBar = Index - 저점[1,2];
eBar = 0;
If TL_GetBeginDate(TL1) == sDate[sBar] and TL_GetBeginTime(TL1) == sTime[sBar] Then
{
TL_Delete(TL1);
TL_Delete(TL11);
Text_Delete(Text1);
If 고점[3,1][1] < 고점[2,1][1] and 고점[2,1][1] > 고점[1,1][1] and 저점[2,1][1] < 저점[1,1][1] Then
TL_Delete(TL2);
}
TL1 = TL_New(sDate[sBar],sTime[sBar],저점[1,1],sDate[eBar],sTime[eBar],고점[1,1]);
// TL11 = TL_New(sDate[index-고점[2,2]],sTime[index-고점[2,2]],c[index-고점[2,2]],sDate[1],sTime[1],c[index-고점[2,2]]);
//Text1 = Text_New(sDate[eBar],sTime[eBar],고점[1,1],NumToStr(고점[1,1],2));
PlaySound("C:₩예스트레이더₩data₩Sound₩alert.wav");
TL_SetColor(TL1,BLACK);
//TL_SetColor(TL11,BLACK);
TL_SetSize(TL1,1);
//TL_SetSize(TL11,1);
If 고점[3,1] < 고점[2,1] and 고점[2,1] > 고점[1,1] and 저점[2,1] < 저점[1,1] Then
{
sBar = Index - 저점[2,2];
eBar = Index - 저점[1,2];
}
}
}
If 처리구분 == "저점처리" Then
{
lastLoVal = L;
If 저점[1,2] < 고점[1,2] Then
{
For j = 10 DownTo 2
{
저점[j,1] = 저점[j-1,1];
저점[j,2] = 저점[j-1,2];
}
}
If 저점[1,2] < 고점[1,2] or 저점[1,1] > L Then
{
저점[1,1] = L;
저점[1,2] = Index;
sBar = Index - 고점[1,2];
eBar = 0;
If TL_GetBeginDate(TL1) == sDate[sBar] and TL_GetBeginTime(TL1) == sTime[sBar] Then
{
TL_Delete(TL1);
TL_Delete(TL11);
Text_Delete(Text1);
If 저점[2,1][1] < 저점[1,1][1] and 저점[2,1][1] < 저점[3,1][1] and 고점[2,1][1] > 고점[1,1][1] Then
TL_Delete(TL3);
}
TL1 = TL_New(sDate[sBar],sTime[sBar],고점[1,1],sDate[eBar],sTime[eBar],저점[1,1]);
//TL11 = TL_New(sDate[index-저점[2,2]],sTime[index-저점[2,2]],c[index-저점[2,2]],sDate[1],sTime[1],c[index-저점[2,2]]);
//Text1 = Text_New(sDate[eBar],sTime[eBar],저점[1,1],NumToStr(저점[1,1],2));
PlaySound("C:₩예스트레이더₩data₩Sound₩alert.wav");
TL_SetColor(TL1,BLACK);
//TL_SetColor(TL11,BLACK);
TL_SetSize(TL1,1);
//TL_SetSize(TL11,1);
If 저점[2,1] < 저점[1,1] and 저점[2,1] < 저점[3,1] and 고점[2,1] > 고점[1,1] Then
{
sBar = Index - 고점[2,2];
eBar = Index - 고점[1,2];
}
}
}
mav = ma(C,20);
TL_Delete(TL13);
TL_Delete(TL14);
TL_Delete(TL15);
if 고점[1,2] > 저점[1,2] then
{
TL14 = TL_New(sDate[index-고점[1,2]],sTime[index-고점[1,2]],h[index-고점[1,2]]-PriceScale*3,sDate,sTime,h[index-고점[1,2]]-PriceScale*3);
TL_SetColor(TL13,GRAY);
TL_SetSize(TL13,0);
TL_SetExtRight(TL13,true);
TL_SetColor(TL14,BLUE);
TL_SetSize(TL14,2);
TL_SetExtRight(TL14,true);
TL_SetColor(TL15,GRAY);
TL_SetSize(TL15,0);
TL_SetExtRight(TL15,true);
}
if 고점[1,2] < 저점[1,2] then
{
TL15 = TL_New(sDate[index-저점[1,2]],sTime[index-저점[1,2]],L[index-저점[1,2]]+PriceScale*3,sDate,sTime,L[index-저점[1,2]]+PriceScale*3);
TL_SetColor(TL13,GRAY);
TL_SetSize(TL13,0);
TL_SetExtRight(TL13,true);
TL_SetColor(TL14,GRAY);
TL_SetSize(TL14,0);
TL_SetExtRight(TL14,true);
TL_SetColor(TL15,MAGENTA);
TL_SetSize(TL15,2);
TL_SetExtRight(TL15,true);
}
plot1(index-고점[1,2]);
plot2(index-저점[1,2]);
위수식으로 수정을하고십습니다 전봉이종가 30분양봉으로끈나면 파동시작 수평선을블루색으로시작
반대로 전봉이종가음봉으로 끈나면 파동수평선을 레드색으로 시작 ~`미리감사드립니다
2020-09-04
672
글번호 142083
지표