답변완료
수정 부탁드립니다
안녕하세요!
매매시 불편한 부분이 있어서 수정을 좀 부탁드립니다!
첨부파일 (A)는 지난번에 만들어주신 수식을 현재 잘 사용하고 있습니다!
다름이 아니라 매매를 하면서 챠트상의 다른 텍스트 출력 부분과 겹쳐서 매매시 불편함이
있어서 첨부파일 (B)처럼 텍스트 부분을 우측으로 이동하여 출력이 될 수 있도록
수정을 부탁드립니다!
항상 노고에 감사드립니다!
--------------------------------------------------------------
(A)
input : AA(100),BB(200),CC(160),소숫점자리(5);
var1 = AA;
var2 = BB;
var3 = CC;
var4 = BB+(BB-AA);
var5 = BB+(BB-AA)/2;
var6 = CC+(BB-AA);
plot1(var1,"A값");
plot2(var2,"B값");
plot3(var3,"C값");
plot4(var4,"E값");
plot5(var5,"평균값");
plot6(var6,"N값");
if index == 1 then
{
value1 = Text_New_self(sdate,stime,var1,"A값 : "+NumToStr(var1,소숫점자리));
value2 = Text_New_self(sdate,stime,var2,"B값 : "+NumToStr(var2,소숫점자리));
value3 = Text_New_self(sdate,stime,var3,"C값 : "+NumToStr(var3,소숫점자리));
value4 = Text_New_self(sdate,stime,var4,"E값 : "+NumToStr(var4,소숫점자리));
value5 = Text_New_self(sdate,stime,var5,"평균값 : "+NumToStr(var5,소숫점자리));
value6 = Text_New_self(sdate,stime,var6,"N값 : "+NumToStr(var6,소숫점자리));
Text_SetStyle(value1,2,1);
Text_SetStyle(value2,2,1);
Text_SetStyle(value3,2,1);
Text_SetStyle(value4,2,1);
Text_SetStyle(value5,2,1);
Text_SetStyle(value6,2,1);
}
Else
{
Text_SetLocation(value1,sdate,stime,var1);
Text_SetLocation(value2,sdate,stime,var2);
Text_SetLocation(value3,sdate,stime,var3);
Text_SetLocation(value4,sdate,stime,var4);
Text_SetLocation(value5,sdate,stime,var5);
Text_SetLocation(value6,sdate,stime,var6);
}
-------------------------------------------
(B)
input : 날짜변경시간(240000);
var : date0(0), date1(0), time0(0), time1(0);
var : HH(0),HH1(0), Hdate(0),Htime(0),Hdate1(0), Htime1(0), TX11(0), TX1(0);
var : LL(0),LL1(0), Ldate(0),Ltime(0),Ldate1(0), Ltime1(0), TX12(0), TX2(0);
var : OO(0),OO1(0), Odate(0),Otime(0),Odate1(0), Otime1(0), TX13(0), TX3(0);
var : MM(0),MM1(0), Mdate(0),Mtime(0),Mdate1(0), Mtime1(0), TX14(0), TX4(0);
if stime == 날짜변경시간 then
{
date0 = sdate;
date1 = date0[1];
time0 = stime;
time1 = time0[1];
#전일고가
HH = H;
HH1 = HH[1];
TL_Delete(var11);
var11 = TL_New(date1, time1, HH1, date0, time0, HH1);
TL_SetExtRight(var11,true);
TL_SetColor(var11, black);
#전일저가
LL = L;
LL1 = LL[1];
TL_Delete(var12);
var12 = TL_New(date1, time1, LL1, date0, time0, LL1);
TL_SetExtRight(var12,true);
TL_SetColor(var12, blue);
#전일중심선
MM1 = (HH1+LL1)/2;
Mdate1 = Mdate[1];
Mtime1 = Mtime[1];
TL_Delete(var14);
var14 = TL_New(date1, time1, MM1, date0, time0, MM1);
TL_SetExtRight(var14,true);
TL_SetColor(var14, black);
#전일시가
OO = O;
OO1 = OO[1];
Odate1 = Odate[1];
Otime1 = Otime[1];
TL_Delete(var13);
var13 = TL_New(date1, time1, OO1, date0, time0, OO1);
TL_SetExtRight(var13,true);
TL_SetColor(var13, black);
#당일시가
TL_Delete(var3);
var3 = TL_New(sdate[1], stime[1], OO, date0, time0, OO);
TL_SetExtRight(var3,true);
TL_SetColor(var3, black);
Text_delete(TX11);
TX11 = Text_New(sdate, stime, HH1, " ▶전일고가 : "+Numtostr(HH1,2));
Text_SetStyle(TX11, 0, 1);
Text_setColor(TX11, black);
Text_delete(TX12);
TX12 = Text_New(sdate, stime, LL1, " ▶전일저가 : "+Numtostr(LL1,2));
Text_SetStyle(TX12, 0, 0);
Text_setColor(TX12, black);
Text_delete(TX13);
TX13 = Text_New(sdate, stime, OO1, " ▶전일시가 : "+Numtostr(OO1,2));
Text_SetStyle(TX13, 0, 0);
Text_setColor(TX13, black);
Text_delete(TX3);
TX3 = Text_New(sdate, stime, OO, " ▶당일시가 : "+Numtostr(OO,2));
Text_SetStyle(TX3, 0, 0);
Text_setColor(TX3, black);
Text_delete(TX14);
TX14 = Text_New(sdate, stime, MM1, " ▶전일중심 : "+Numtostr(MM1,2));
Text_SetStyle(TX14, 0, 0);
Text_setColor(TX14, black);
}
#당일고가
if stime <> 날짜변경시간 and H[1] >= HH then
{
HH = H[1];
Hdate = sdate[1];
Htime = stime[1];
TL_Delete(var1);
var1 = TL_New(date0, time0, HH, sdate, stime, HH);
TL_SetExtRight(var1,true);
TL_SetColor(var1, black);
}
#당일저가
if stime <> 날짜변경시간 and L[1] <= LL then
{
LL = L[1];
Ldate = sdate[1];
Ltime = stime[1];
TL_Delete(var2);
var2 = TL_New(date0, time0, LL, sdate, stime, LL);
TL_SetExtRight(var2,true);
TL_SetColor(var2, black);
}
#당일중심
if stime <> 날짜변경시간 then
{
MM = (HH+LL)/2;
TL_Delete(var4);
var4 = TL_New(date0, time0, MM, sdate, stime, MM);
TL_SetExtRight(var4,true);
TL_SetColor(var4, black);
}
if stime == 날짜변경시간 then
{
var8 = TL_New(sdate, stime, H, sdate, stime, 999999999);
var9 = TL_New(sdate, stime, L, sdate, stime, 0);
TL_setColor(var8, black);
TL_setColor(var9, black);
}
Text_delete(TX1);
TX1 = Text_New(NextBarSdate,NextBarStime, HH, " ▶당일고가 : "+Numtostr(HH,2));
Text_SetStyle(TX1, 0, 1);
Text_setColor(TX1, black);
Text_delete(TX2);
TX2 = Text_New(NextBarSdate, NextBarStime, LL, " ▶당일저가 : "+Numtostr(LL,2));
Text_SetStyle(TX2, 0,0);
Text_setColor(TX2, black);
Text_delete(TX4);
TX4 = Text_New(NextBarSdate, NextBarStime, MM, " ▶당일중심 : "+Numtostr(MM,2));
Text_SetStyle(TX4, 0,0);
Text_setColor(TX4, black);
Text_SetLocation(TX11,NextBarSdate,NextBarStime,HH1);
Text_SetLocation(TX12,NextBarSdate,NextBarStime,LL1);
Text_SetLocation(TX13,NextBarSdate,NextBarStime,OO1);
Text_SetLocation(TX3,NextBarSdate,NextBarStime,OO);
Text_SetLocation(TX14,NextBarSdate,NextBarStime,MM1);
2023-01-06
378
글번호 165148
지표
답변완료
추세선 세로선
input : Period(20);
Var:j(0),T(0);
Var: date11(0),date12(0),time11(0),time12(0),TL1(0),TL(0),
date21(0),date22(0),time21(0),time22(0),
date31(0),date32(0),time31(0),time32(0),tx(0),tx1(0),tl4(0);
Array:HiVal[20](0),LoVal[20](0),HiBar[20](0),LoBar[20](0);
Array:r[7](0),fr[7](0),TL2[7](0),TL3[7](0),TX2[7](0),TX3[7](0);
Plot1 (0);
For j = 0 To 19
{
HiBar[j] = HiBar[j] + 1;
LoBar[j] = LoBar[j] + 1;
}
if crossup(c,highest(H,Period)[1]) Then
T = 1;
if CrossDown(c,Lowest(L,Period)[1]) Then
T = -1;
If T == -1 Then
{
If T[1] != -1 Then
{
For j = 18 DownTo 0
{
LoVal[j+1] = LoVal[j];
LoBar[j+1] = LoBar[j];
}
LoVal[0] = L;
LoBar[0] = 0;
date11 = date[HiBar[0]];
time11 = stime[HiBar[0]];
Value11 = HiVal[0];
date12 = date[LoBar[0]];
time12 = stime[LoBar[0]];
Value12 = LoVal[0];
Text_Delete(tx);
Tx = Text_New(sDate,sTime,value12+PriceScale*2,"●");
Text_SetColor(Tx,Cyan);
Text_SetStyle(Tx,2,2);
Text_SetSize(Tx,30);
date21 = date[HiBar[0]];
time21 = stime[HiBar[0]];
date22 = date[0];
time22 = stime[0];
for j = 0 to 6
{
fr[j] = LoVal[1] + ((HiVal[0] - LoVal[1]) * r[j]);
}
}
If LoVal[0] > L Then
{
LoVal[0] = L;
LoBar[0] = 0;
date12 = date[LoBar[0]];
time12 = stime[LoBar[0]];
Value12 = LoVal[0];
TL_SetEnd(TL1, date12,time12,Value12);
date22 = date[0];
time22 = stime[0];
TL_Delete(tl);
TL = TL_New(sdate,stime,Value12,NextBarSdate,NextBarStime,NextBarOpen);
}
}
If T == 1 Then
{
If T[1] != 1 Then
{
For j = 18 DownTo 0
{
HiVal[j+1] = HiVal[j];
HiBar[j+1] = HiBar[j];
}
HiVal[0] = H;
HiBar[0] = 0;
date11 = date[LoBar[0]];
time11 = stime[LoBar[0]];
Value11 = LoVal[0];
date12 = date[HiBar[0]];
time12 = stime[HiBar[0]];
Value12 = HiVal[0];
Text_Delete(tx);
Tx = Text_New(sDate,sTime,value12-PriceScale*2,"●");
Text_SetColor(Tx,Lime);
Text_SetStyle(Tx,2,2);
Text_SetSize(Tx,30);
date31 = date[LoBar[0]];
time31 = stime[LoBar[0]];
date32 = date[0];
time32 = stime[0];
for j = 0 to 5
{
fr[j] = LoVal[0] + ((HiVal[1] - LoVal[0]) * r[j]);
}
}
If HiVal[0] < H Then
{
HiVal[0] = H;
HiBar[0] = 0;
date12 = date[HiBar[0]];
time12 = stime[HiBar[0]];
Value12 = HiVal[0];
TL_SetEnd(TL1, date12,time12,Value12);
date32 = date[0];
time32 = stime[0];
TL_Delete(tl);
TL = TL_New(sdate,stime,Value12,NextBarSdate,NextBarStime,NextBarOpen);
}
}
지난것은 모두 지우고 마지막 추세선에서만 시작점에 동그라미가 표시되는데,
여기에 같은 방식으로 세로선도 추가하여, 이전 세로선은 지우고 마지막 세로선만 마지막 동그라미와 같이 표시되게 부탁합니다.
2023-01-05
539
글번호 165145
지표