예스스탁
예스스탁 답변
2022-06-08 14:07:04
안녕하세요
예스스탁입니다.
input:length(12),P(10);
Var:j(0),lastHiVal(0),lastLoVal(0),sBar(0),eBar(0),TL(0),process(0),T(0),tl1(0),tl2(0),tx1(0),tx2(0);
Array:HH[10,2](0),LL[10,2](0);
process = 0;
If Highest(H,length) == H and lastHiVal <> H and Lowest(L,length) == L and lastLoVal <> L Then
{
If LL[1,1] > L Then process = -1;
If HH[1,1] < H Then process = 1;
}
Else If Highest(H,length) == H and lastHiVal <> H Then process = 1;
Else If Lowest(L,length) == L and lastLoVal <> L Then process = -1;
If process == 1 Then
{
T = 1;
lastHiVal = H;
If HH[1,2] < LL[1,2] Then
{
For j = 10 DownTo 2
{
HH[j,1] = HH[j-1,1];
HH[j,2] = HH[j-1,2];
}
}
If HH[1,2] < LL[1,2] or HH[1,1] < H Then
{
HH[1,1] = H;
HH[1,2] = Index;
sBar = Index - LL[1,2];
eBar = 0;
If TL_GetBeginDate(TL) == sDate[sBar] and TL_GetBeginTime(TL) == sTime[sBar] Then
{
TL_Delete(TL);
}
if LL[1,1] > 0 Then
{
TL = TL_New(sDate[sBar],sTime[sBar],LL[1,1],sDate[eBar],sTime[eBar],HH[1,1]);
TL_SetColor(TL,Red);
}
}
}
If process == -1 Then
{
T = -1;
lastLoVal = L;
If LL[1,2] < HH[1,2] Then
{
For j = 10 DownTo 2
{
LL[j,1] = LL[j-1,1];
LL[j,2] = LL[j-1,2];
}
}
If LL[1,2] < HH[1,2] or LL[1,1] > L Then
{
LL[1,1] = L;
LL[1,2] = Index;
sBar = Index - HH[1,2];
eBar = 0;
If TL_GetBeginDate(TL) == sDate[sBar] and TL_GetBeginTime(TL) == sTime[sBar] Then
{
TL_Delete(TL);
}
if HH[1,1] > 0 Then
{
TL = TL_New(sDate[sBar],sTime[sBar],HH[1,1],sDate[eBar],sTime[eBar],LL[1,1]);
TL_SetColor(TL,Blue);
}
}
}
var1 = ma(C,P);
if t == -1 and CrossUp(C,var1) and C > O Then
{
value1 = L;
TL1 = TL_New(sDate,sTime,value1,NextBarSdate,NextBarStime,value1);
TL_SetColor(TL1,Magenta);
tx1 = Text_New(sDate,sTime,value1,NumToStr(value1,2));
Text_SetStyle(tx1,2,1);
}
Else
{
TL_SetEnd(TL1,sDate,sTime,value1);
Text_SetLocation(tx1,sDate,sTime,value1);
}
if t == 1 and CrossDown(C,var1) and C < O Then
{
value2 = H;
TL2 = TL_New(sDate,sTime,value2,NextBarSdate,NextBarStime,value2);
TL_SetColor(TL2,Cyan);
tx2 = Text_New(sDate,sTime,value2,NumToStr(value2,2));
Text_SetStyle(tx2,2,1);
}
Else
{
TL_SetEnd(TL2,sDate,sTime,value2);
Text_SetLocation(tx2,sDate,sTime,Value2);
}
즐거운 하루되세요
> 스오어스 님이 쓴 글입니다.
> 제목 : 문의 드립니다.
> 안녕하세요
답변 해주시느라 너무 고생 많으십니다.
600 틱차트 기준인데요.
지그재그 파동 수식 포함하면서
지그재그 선을 보이게 하고
하락중에 지그재그 파란선이 나온 상태일때
10일 이평선을 캔들 종가가 10일선 뚫은 양봉이면 그 양봉 저가에 라인을 표시 하면서 가격을 표시 하고
(지그재그 파란선이 안나오면 10일선 캔들 종가가 10일선 뚫은 양봉을 인정 안한다.)
상승중에 지그재그 빨간선이 나온 상태일때
10일 이평선을 캔들 종가가 10일선 깨진 음봉이면 그 음봉 고가에 라인을 표시 하면서 가격을 표시 되는
(지그재그 빨간선이 안나오면 10일선 캔들 종가가 10일선 깬 음봉을 인정 안한다.)
수식이 무엇인지요?
감사합니다.