답변완료
순매수체결량 최고값, 최저값 표시
//Upvol "상승형 체결거래량";
//DownVol "하락형 체결거래량"
input: 막대굵기 (1);
var : sumPL(0);
if sDate != sDate[1] Then
{
sumPL = 0;
}
Else
{
sumPL = sumPL + (Upvol-DownVol);
if sumPL > 0 Then
Plot1(sumPL, "순매수체결량", RgB(255,0,0), Def, 막대굵기 );
Else
Plot1(sumPL, "순매수체결량", RgB(0,0,255), Def, 막대굵기 );
}
PlotBaseLine1(0, "기준선0");
1분봉 차트에서 순매수 체결량의 누적그래프를 잘 활용하고 있습니다
혹시 5000분봉 동안(대략12거래일) 어떤 날은 순매수 체결량이 최대 5만주를 찍은 날이 있고
어떤 날은 순매수 체결량이 최저 -3만주를 찍은 날이 있다면
그걸 5만주 최고수평선, -3만주 최저수평선으로 나타낼 수 있나요?
단, 금일분은 제외입니다
금일분 순매수 체결량이 7만주를 찍더라도 최고수평선은 어제까지만 계산해서 5만주로 표시돼야 합니다
그리고 금일 순매수체결량이 어제까지의 최고순매수체결량을 뛰어넘는 물량이 들어왔다면 그걸 종목검색으로 만들어주시면 더더욱 감사하겠습니다
복잡할 것 같은데 수고 좀 부탁드립니다. 꾸벅
2024-11-01
669
글번호 184858
지표
답변완료
수정부탁
사각박스에 사각선을 나타나게 부탁드립니다(두게조절가능필)
var :hPeodd1(10),h두께(1);
Var:상승색h(Red), 하락색h(Blue),상h색상두께(20),하h색상두께(20),h긁씨크기(35),nh긁씨크기(12),원크기11(30);
Var:JWh(0),JWhT(0);
Var: h고11(0),h고12(0),h시간11(0),h시간12(0),H선TL1(0),H선TL(0),hfTL5사각(0),hText1사각(0),hText11사각(0),hTL55사각(0),hText111사각(0),
h고21(0),h고22(0),h시간21(0),h시간22(0),hVlue11(0),hVlue12(0),
h고31(0),h고32(0),h시간31(0),h시간32(0);
Array:h고Val[20](0),Lh저val[20](0),h고Bar[20](0),Lh저Bar[20](0);
Array:hdr[7](0),hdfr[7](0);
var : hdbox(0),hdbox1(0);
For JWh = 0 To 19
{
h고Bar[JWh] = h고Bar[JWh] + 1;
Lh저Bar[JWh] = Lh저Bar[JWh] + 1;
}
if crossup(c,highest(H,hPeodd1)[1]) Then
JWhT = 1;
if CrossDown(c,Lowest(L,hPeodd1)[1]) Then
JWhT = -1;
If JWhT == -1 Then
{
If JWhT[1] != -1 Then
{
For JWh = 18 DownTo 0
{
Lh저val[JWh+1] = Lh저val[JWh];
Lh저Bar[JWh+1] = Lh저Bar[JWh];
//ZZ[j+1] = ZZ[j];
}
Lh저val[0] = L;
Lh저Bar[0] = 0;
//ZZ[0] = L;
h고11 = Date[h고Bar[0]];
h시간11 = stime[h고Bar[0]];
hVlue11 = h고Val[0];
h고12 = Date[Lh저Bar[0]];
h시간12 = stime[Lh저Bar[0]];
hVlue12 = Lh저val[0];
h고21 = Date[h고Bar[0]];
h시간21 = stime[h고Bar[0]];
h고22 = Date[0];
h시간22 = stime[0];
for JWh = 0 to 6
{
hdfr[JWh] = Lh저val[1] + ((h고Val[0] - Lh저val[1]) * hdr[JWh]);
}
Box_SetEnd(hdbox,h고11,h시간11,hVlue11);
hdbox = box_new(h고11,h시간11,hVlue11,h고12,h시간12,hVlue12);
Box_SetColor(hdbox,하락색h);
Box_SetFill(hdbox,true,하h색상두께);
}
If Lh저val[0] > L Then
{
Lh저val[0] = L;
Lh저Bar[0] = 0;
//ZZ[0] = L;
h고12 = Date[Lh저Bar[0]];
h시간12 = stime[Lh저Bar[0]];
hVlue12 = Lh저val[0];
h고22 = Date[0];
h시간22 = stime[0];
Box_SetEnd(hdbox,h고12,h시간12,hVlue12);
TL_SetEnd(hfTL5사각,h고12,h시간12,hVlue12); //------ 연장
}
}
If JWhT == 1 Then
{
If JWhT[1] != 1 Then
{
For JWh = 18 DownTo 0
{
h고Val[JWh+1] = h고Val[JWh];
h고Bar[JWh+1] = h고Bar[JWh];
//ZZ[j+1] = ZZ[j];
}
h고Val[0] = H;
h고Bar[0] = 0;
//ZZ[0] = H;
h고11 = Date[Lh저Bar[0]];
h시간11 = stime[Lh저Bar[0]];
hVlue11 = Lh저val[0];
h고12 = Date[h고Bar[0]];
h시간12 = stime[h고Bar[0]];
hVlue12 = h고Val[0];
h고31 = Date[Lh저Bar[0]];
h시간31 = stime[Lh저Bar[0]];
h고32 = Date[0];
h시간32 = stime[0];
for JWh = 0 to 5
{
hdfr[JWh] = Lh저val[0] + ((h고Val[1] - Lh저val[0]) * hdr[JWh]);
}
Box_SetEnd(hdbox,h고11,h시간11,hVlue11);
hdbox = box_new(h고11,h시간11,hVlue11,h고12,h시간12,hVlue12);
Box_SetColor(hdbox,상승색h);
Box_SetFill(hdbox,true,상h색상두께);
}
If h고Val[0] < H Then
{
h고Val[0] = H;
h고Bar[0] = 0;
//ZZ[0] = H;
h고12 = Date[h고Bar[0]];
h시간12 = stime[h고Bar[0]];
hVlue12 = h고Val[0];
h고32 = Date[0];
h시간32 = stime[0];
Box_SetEnd(hdbox,h고12,h시간12,hVlue12);
TL_SetEnd(hfTL5사각,h고12,h시간12,hVlue12); //------ 연장
}
}
2024-10-31
797
글번호 184839
지표