예스스탁
예스스탁 답변
2022-01-03 16:27:42
안녕하세요
예스스탁입니다.
input : n(500);
var : C2(0,Data2),H2(0,Data2),L2(0,Data2),cnt(0,Data2);
var : Sidx(0,Data2),Sidx1(0,Data2),Eidx(0,Data2),Eidx1(0,Data2),Pre1(0,Data2),hp(0,Data2),lp(0,Data2);
var : S(0);
C2 = Data2(c);
if Data2(Bdate != Bdate[1]) Then
{
H2 = 0;
L2 = 0;
Sidx = data2(Index);
Sidx1 = Sidx[1];
Eidx1 = Eidx[1];
HP = 0;
LP = 0;
S = 0;
}
Eidx = data2(Index);
if C2 > 0 and data2(C2 == 0 or (C2 > 0 and C2 > h2)) Then
{
h2 = C2;
hp = h;
S = -1;
}
if C2 < 0 and data2(C2 == 0 or (C2 < 0 and C2 < l2)) Then
{
l2 = C2;
lp = l;
S = 1;
}
if h2 > 0 and l2 < 0 Then
{
if S == 1 and c2 >= l2+n Then
{
S = 2;
h2 = c2;
HP = H;
}
if S == -1 and c2 <= h2-n Then
{
S = -2;
l2 = c2;
LP = L;
}
}
if S == 2 and c2 > h2 Then
{
h2 = c2;
hp = h;
}
if S == -2 and c2 < l2 Then
{
l2 = c2;
lp = l;
}
if Sidx1 > 0 Then
{
pre1 = 0;
For cnt = data2(Index)-Eidx1 to data2(Index)-Sidx1
{
if data2(sDate[cnt] < sDate and sTime[cnt] <= sTime) Then
{
pre1 = C2[cnt];
cnt = data2(Index-Sidx1+1);
}
}
}
if h2 > 0 Then
Plot1(hp,"최고");
Else
NoPlot(2);
if l2 < 0 Then
plot2(lp,"최저");
Else
NoPlot(2);
즐거운 하루되세요
> 포보스 님이 쓴 글입니다.
> 제목 : 지표 부탁드립니다.
>
안녕하세요?
하나더 부탁드립니다.
아래식은
data2 거래량을 base로 분봉챠트 캔들에 고저추세선긋기입니다
여기에 다음식을 추가하고자 합니다.
최고점라인
실매수거래량이 양의수로 상승하던 최고점라인이 그려지다가
실매수거래량이 음의수로 바뀌어 최저점라인을 붕괴후 실매수거래량이 최저점에서 500(변수)이 증가하면 최고점라인이 내려와 다시그려져 나가는 식
최저점라인
실매수거래량이 음의수로 하락하던 최저점라인이 그려지다가
실매수거래량이 양의수로 바뀌어 최고점라인을 돌파후 실매수거래량이 최고점에서 500(변수)이 감소하면 최저점라인이 올라와 다시그려져 나가는 식
그리고
거래량 PlotBaseLine(0)의 종가 캔들에 라인하나 삽입해주세요.
꼭 부탁드립니다.
올해도 복 많이 받으세요.
==========
var : C2(0,Data2),H2(0,Data2),L2(0,Data2),cnt(0,Data2);
var : Sidx(0,Data2),Sidx1(0,Data2),Eidx(0,Data2),Eidx1(0,Data2),Pre1(0,Data2),hp(0,Data2),lp(0,Data2);
C2 = Data2(c);
if Data2(Bdate != Bdate[1]) Then
{
H2 = 0;
L2 = 0;
Sidx = data2(Index);
Sidx1 = Sidx[1];
Eidx1 = Eidx[1];
}
Eidx = data2(Index);
if C2 > 0 and data2(C2 == 0 or (C2 > 0 and C2 > h2)) Then
{
h2 = C2;
hp = h;
}
if C2 < 0 and data2(C2 == 0 or (C2 < 0 and C2 < l2)) Then
{
l2 = C2;
lp = l;
}
if Sidx1 > 0 Then
{
pre1 = 0;
For cnt = data2(Index)-Eidx1 to data2(Index)-Sidx1
{
if data2(sDate[cnt] < sDate and sTime[cnt] <= sTime) Then
{
pre1 = C2[cnt];
cnt = data2(Index-Sidx1+1);
}
}
}
if h2 > 0 Then
Plot1(hp,"최고");
Else
NoPlot(2);
if l2 < 0 Then
plot2(lp,"최저");
Else
NoPlot(2);