커뮤니티
지표 부탁드립니다.
2026-01-14 10:24:54
36
글번호 229784
그림과 같이 지지저항과 파동이 그려지게 똑같은 선과 색상의 모양으로 숫자도 만들어 주시면 감사하겠습니다.
답변 1
예스스탁 예스스탁 답변
2026-01-14 14:06:08
안녕하세요
예스스탁입니다.
그림만으로 정확히 구현하기 어렵습니다.
아래식 참고하시기 바랍니다.
input : ChangePer(0.5);#%
Array : HD[10](0),HT[10](0),HV[10](0);
Array : LD[10](0),LT[10](0),LV[10](0);
var : cnt(0),Hprice(0),Lprice(0);
var : UpTrend(false),DownTrend(False),Trend(0);
var : ZigZagTL(0),tx(0),hbox(0),lbox(0),hbox1(0),lbox1(0);
HPrice = H;
LPrice = L;
if Index == 0 Then
{
HD[0] = sDate;
HT[0] = sTime;
HV[0] = HPrice;
LD[0] = sDate;
LT[0] = sTime;
LV[0] = LPrice;
}
Else
{
UpTrend = HPrice >= LV[0]*(1+ChangePer/100);
DownTrend = LPrice <= HV[0]*(1-ChangePer/100);
if trend <= 0 and UpTrend == true Then
{
trend = 1;
For cnt = 9 DownTo 1
{
HD[cnt] = HD[cnt-1];
HT[cnt] = HT[cnt-1];
HV[cnt] = HV[cnt-1];
}
HD[0] = sDate;
HT[0] = sTime;
HV[0] = HPrice;
ZigZagTL = TL_New(LD[0],LT[0],LV[0],HD[0],HT[0],HV[0]);
TL_SetColor(ZigZagTL,Silver);
TL_SetSize(ZigZagTL,1);
tx = Text_New(HD[0],HT[0],HV[0],ntostr(HV[0],2));
Text_SetStyle(tx,2,1);
hbox = box_New(HD[0],HT[0],HV[0]+PriceScale*1,NextBarSdate,NextBarStime,HV[0]-PriceScale*1);
Box_SetColor(hbox,Red);
hbox1 = hbox[1];
Box_SetEnd(hbox1,sDate,sTime,HV[1]-PriceScale*1);
}
Else if trend >= 0 and DownTrend Then//하락추세 전환
{
trend = -1;
For cnt = 9 DownTo 1
{
LD[cnt] = LD[cnt-1];
LT[cnt] = LT[cnt-1];
LV[cnt] = LV[cnt-1];
}
LD[0] = sDate;
LT[0] = sTime;
LV[0] = LPrice;
ZigZagTL = TL_New(HD[0],HT[0],HV[0],LD[0],LT[0],LV[0]);
TL_SetColor(ZigZagTL,Silver);
TL_SetSize(ZigZagTL,1);
tx = Text_New(LD[0],LT[0],LV[0],ntostr(LV[0],2));
Text_SetStyle(tx,2,0);
lbox = box_New(LD[0],LT[0],LV[0]+PriceScale*1,NextBarSdate,NextBarStime,LV[0]-PriceScale*1);
Box_SetColor(lbox,Blue);
lbox1 = lbox[1];
Box_SetEnd(lbox1,sDate,sTime,LV[1]-PriceScale*1);
}
Else
{
if trend == 1 Then
{
if HPrice > HV[0] Then
{
HD[0] = sDate;
HT[0] = sTime;
HV[0] = HPrice;
TL_SetEnd(ZigZagTL,HD[0],HT[0],HV[0]);
Text_SetString(tx,ntostr(HV[0],2));
Text_SetLocation(tx,HD[0],HT[0],HV[0]);
Box_SetBegin(hbox,HD[0],HT[0],HV[0]+PriceScale*1);
}
Box_SetEnd(hbox1,sDate,sTime,HV[1]-PriceScale*1);
}
if trend == -1 Then
{
if LPrice < LV[0] Then
{
LD[0] = sDate;
LT[0] = sTime;
LV[0] = LPrice;
TL_SetEnd(ZigZagTL,LD[0],LT[0],LV[0]);
Text_SetString(tx,ntostr(LV[0],2));
Text_SetLocation(tx,LD[0],LT[0],LV[0]);
Box_SetBegin(lbox,LD[0],LT[0],LV[0]+PriceScale*1);
}
Box_SetEnd(lbox1,sDate,sTime,LV[1]-PriceScale*1);
}
Box_SetEnd(hbox,NextBarSdate,NextBarStime,HV[0]-PriceScale*1);
Box_SetEnd(lbox,NextBarSdate,NextBarStime,LV[0]-PriceScale*1);
}
}
즐거운 하루되세요
다음글
이전글