커뮤니티
안녕하세요?
2018-06-07 16:34:24
261
글번호 119559
안녕하세요?
아래수식에서 고점과 저점의 가격은 숫치로 표시가 되는데요
피보나치 가격도 고저점 처럼 표시하고 싶습니다.
피보나치 38.2 , 50 , 61.8%의 가격을 수치로 표시.
고가,저가가 표시되는 그라인으로 표시되면 좋겠습니다.
고가
1200
----------------------------------------------- 61.8%
1000
----------------------------------------------- 50%
800
----------------------------------------------- 38.2%
저가
바쁘시겠지만 부탁드립니다.(지그재그파동은 수식지왕님 홈피에서 참고했습니다.)
항상 수식지원에 감사드립니다.
Input:length(30),줄간격(3),종목자릿수(0);
input :BOT(0),t382(38.2),t500(50),t618(61.8),TOP(100);
var: T(0),TL31(0),TL32(0),TL33(0),TL34(0),TL35(0);
Var:j(0),TL1(0),Text1(0),Text2(0),Text3(0),TL11(0),TL12(0),TL13(0),TL14(0),TL15(0),
TL_NewBit(0); // 1:NewLine 2:SetEndLine
Array:고[5,4](0),저[5,4](0); // 1:가격,2:Index,3:sDate,4:sTime
#==========================================#
Value1 = HiLoLineZigZag(length,0,고,저,TL_NewBit);
If Value1 == 1 Then { // 고점
T = 1;
If TL_NewBit == 1 Then { // 신규
TL1 = TL_New(저[1,3],저[1,4],저[1,1],고[1,3],고[1,4],고[1,1]);
TL_SetColor(TL1,WHITE);
TL_SetSize(TL1,3);
var1 = 고[2,1];
var2 = 저[1,1];
VAR3 = 저[2,1];
var4 = abs(var1-var2);
var5 = abs(var1-var3);
TL11 = TL_New(고[2,3],고[2,4],var1-Var4*(BOT/100),저[1,3],저[1,4],var1-var4*(BOT/100));
TL12 = TL_New(고[2,3],고[2,4],var1-var4*(t382/100),저[1,3],저[1,4],var1-var4*(t382/100));
TL13 = TL_New(고[2,3],고[2,4],var1-var4*(t500/100),저[1,3],저[1,4],var1-var4*(t500/100));
TL14 = TL_New(고[2,3],고[2,4],var1-var4*(t618/100),저[1,3],저[1,4],var1-var4*(t618/100));
TL15 = TL_New(고[2,3],고[2,4],var1-var4*(TOP/100),저[1,3],저[1,4],var1-var4*(TOP/100));
# plot11(var11-var14*(t500/100),"Per1%",RED);
TL_SetColor(TL11,RED);
TL_SetColor(TL12,black);
TL_SetColor(TL13,YELLOW);
TL_SetColor(TL14,red);
TL_SetColor(TL15,yellow);
Text1 = Text_New(고[1,3],고[1,4],고[1,1],NumToStr((고[1,1]),종목자릿수));
Text_SetStyle(Text1, 2, 1);
Text2 = Text_New(고[1,3],고[1,4],고[1,1]+줄간격*PriceScale,"+"+NumToStr(abs(고[1,1]-저[1,1])/PriceScale,0));
Text_SetStyle(Text2, 2, 1);
}
If TL_NewBit == 2 Then { // 연장
TL_SetEnd(TL1,고[1,3],고[1,4],고[1,1]);
TL_SetEnd(TL11,저[1,3],저[1,4],var1-var4*(BOT/100));
TL_SetEnd(TL12,저[1,3],저[1,4],var1-var4*(t382/100));
TL_SetEnd(TL13,저[1,3],저[1,4],var1-var4*(t500/100));
TL_SetEnd(TL14,저[1,3],저[1,4],var1-var4*(t618/100));
TL_SetEnd(TL15,저[1,3],저[1,4],var1-var4*(TOP/100));
TL_SetColor(TL11,RED);
TL_SetColor(TL12,white);
TL_SetColor(TL13,YELLOW);
TL_SetColor(TL14,white);
TL_SetColor(TL15,yellow);
Text_SetLocation(Text1,고[1,3],고[1,4],고[1,1]);
Text_SetString(Text1,NumToStr((고[1,1]),종목자릿수));
Text_SetLocation(Text2,고[1,3],고[1,4],고[1,1]+줄간격*PriceScale);
Text_SetString(Text2,"+"+NumToStr(abs(고[1,1]-저[1,1])/PriceScale,0));
Text_SetColor(Text2,RED);
}
}
Else If Value1 == -1 Then { // 저점
T = -1;
If TL_NewBit == 1 Then { // 신규
TL1 = TL_New(고[1,3],고[1,4],고[1,1],저[1,3],저[1,4],저[1,1]);
TL_SetColor(TL1,CYAN);
TL_SetSize(TL1,3);
var1 = 고[1,1];
var2 = 저[2,1];
var3 = 고[2,1];
var4 = abs(var1-var2);
var5 = abs(var2-var3);
TL11 = TL_New(저[2,3],저[2,4],var1-Var4*(BOT/100),고[1,3],고[1,4],var1-Var4*(BOT/100));
TL12 = TL_New(저[2,3],저[2,4],var1-var4*(t382/100),고[1,3],고[1,4],var1-var4*(t382/100));
TL13 = TL_New(저[2,3],저[2,4],var1-Var4*(t500/100),고[1,3],고[1,4],var1-Var4*(t500/100));
TL14 = TL_New(저[2,3],저[2,4],var1-var4*(t618/100),고[1,3],고[1,4],var1-var4*(t618/100));
TL15 = TL_New(저[2,3],저[2,4],var1-Var4*(TOP/100),고[1,3],고[1,4],var1-Var4*(TOP/100));
TL_SetColor(TL11,RED);
TL_SetColor(TL12,white);
TL_SetColor(TL13,YELLOW);
TL_SetColor(TL14,white);
TL_SetColor(TL15,blue);
Text1 = Text_New(저[1,3],저[1,4],저[1,1],NumToStr((저[1,1]),종목자릿수));
Text_SetStyle(Text1, 2, 0);
Text2 = Text_New(저[1,3],저[1,4],저[1,1]-줄간격*PriceScale,"-"+NumToStr(abs(저[1,1]-고[1,1])/PriceScale,0));
Text_SetStyle(Text2, 2, 0);
Text_SetColor(Text2,BLUE);
}
If TL_NewBit == 2 Then { // 연장
TL_SetEnd(TL1,저[1,3],저[1,4],저[1,1]);
TL_SetEnd(TL11,고[1,3],고[1,4],var1-Var4*(BOT/100));
TL_SetEnd(TL12,고[1,3],고[1,4],var1-var4*(t382/100));
TL_SetEnd(TL13,고[1,3],고[1,4],var1-var4*(t500/100));
TL_SetEnd(TL14,고[1,3],고[1,4],var1-var4*(t618/100));
TL_SetEnd(TL15,고[1,3],고[1,4],var1-var4*(TOP/100));
Text_SetLocation(Text1,저[1,3],저[1,4],저[1,1]);
Text_SetString(Text1,NumToStr((저[1,1]),종목자릿수));
Text_SetLocation(Text2,저[1,3],저[1,4],저[1,1]-줄간격*PriceScale);
Text_SetString(Text2,"-"+NumToStr(abs(저[1,1]-고[1,1])/PriceScale,0));
Text_SetColor(Text2,BLUE);
}
}
if T == 1 Then{
TL_Delete(TL31);
TL_Delete(TL32);
TL_Delete(TL33);
TL_Delete(TL34);
TL_Delete(TL35);
var11 = 고[1,1];
var12 = 저[1,1];
VAR13 = 고[2,1];
var14 = abs(var11-var12);
var15 = abs(var12-var13);
TL31 = TL_New(sdate[index-고[1,2]],stime[index-고[1,2]],var11-Var14*(BOT/100),sdate,stime,var11-Var14*(BOT/100));
TL32 = TL_New(sdate[index-고[1,2]],stime[index-고[1,2]],var11-var14*(t382/100),sdate,stime,var11-var14*(t382/100));
TL33 = TL_New(sdate[index-고[1,2]],stime[index-고[1,2]],var11-var14*(t500/100),sdate,stime,var11-var14*(t500/100));
TL34 = TL_New(sdate[index-고[1,2]],stime[index-고[1,2]],var11-var14*(t618/100),sdate,stime,var11-var14*(t618/100));
TL35 = TL_New(sdate[index-고[1,2]],stime[index-고[1,2]],var11-var14*(TOP/100),sdate,stime,var11-var14*(TOP/100));
plot1(var11-var14*(t500/100),"Per1%",RED);
}
TL_SetColor(TL31,RED);
TL_SetColor(TL32,white);
TL_SetColor(TL33,YELLOW);
TL_SetColor(TL34,white);
TL_SetColor(TL35,yellow);
if T == -1 Then{
TL_Delete(TL31);
TL_Delete(TL32);
TL_Delete(TL33);
TL_Delete(TL34);
TL_Delete(TL35);
var11 = 고[1,1];
var12 = 저[1,1];
VAR13 = 저[2,1];
var14 = abs(var11-var12);
var15 = abs(var11-var13);
TL31 = TL_New(sdate[index-저[1,2]],stime[index-저[1,2]],var11-Var14*(BOT/100),sdate,stime,var11-Var14*(BOT/100));
TL32 = TL_New(sdate[index-저[1,2]],stime[index-저[1,2]],var11-var14*(t382/100),sdate,stime,var11-var14*(t382/100));
TL33 = TL_New(sdate[index-저[1,2]],stime[index-저[1,2]],var11-var14*(t500/100),sdate,stime,var11-var14*(t500/100));
TL34 = TL_New(sdate[index-저[1,2]],stime[index-저[1,2]],var11-var14*(t618/100),sdate,stime,var11-var14*(t618/100));
TL35 = TL_New(sdate[index-저[1,2]],stime[index-저[1,2]],var11-var14*(TOP/100),sdate,stime,var11-var14*(TOP/100));
TL_SetColor(TL31,RED);
TL_SetColor(TL32,white);
TL_SetColor(TL33,YELLOW);
TL_SetColor(TL34,white);
TL_SetColor(TL35,yellow);
}
답변 1
예스스탁 예스스탁 답변
2018-06-08 19:26:29
안녕하세요
예스스탁입니다.
Input:length(30),줄간격(3),종목자릿수(0);
input :BOT(0),t382(38.2),t500(50),t618(61.8),TOP(100);
var: T(0),TL31(0),TL32(0),TL33(0),TL34(0),TL35(0);
var : text11(0),text12(0),text13(0);
Var:j(0),TL1(0),Text1(0),Text2(0),Text3(0),TL11(0),TL12(0),TL13(0),TL14(0),TL15(0),
TL_NewBit(0); // 1:NewLine 2:SetEndLine
Array:고[5,4](0),저[5,4](0); // 1:가격,2:Index,3:sDate,4:sTime
#==========================================#
Value1 = HiLoLineZigZag(length,0,고,저,TL_NewBit);
If Value1 == 1 Then { // 고점
T = 1;
If TL_NewBit == 1 Then { // 신규
TL1 = TL_New(저[1,3],저[1,4],저[1,1],고[1,3],고[1,4],고[1,1]);
TL_SetColor(TL1,WHITE);
TL_SetSize(TL1,3);
var1 = 고[2,1];
var2 = 저[1,1];
VAR3 = 저[2,1];
var4 = abs(var1-var2);
var5 = abs(var1-var3);
TL11 = TL_New(고[2,3],고[2,4],var1-Var4*(BOT/100),저[1,3],저[1,4],var1-var4*(BOT/100));
TL12 = TL_New(고[2,3],고[2,4],var1-var4*(t382/100),저[1,3],저[1,4],var1-var4*(t382/100));
TL13 = TL_New(고[2,3],고[2,4],var1-var4*(t500/100),저[1,3],저[1,4],var1-var4*(t500/100));
TL14 = TL_New(고[2,3],고[2,4],var1-var4*(t618/100),저[1,3],저[1,4],var1-var4*(t618/100));
TL15 = TL_New(고[2,3],고[2,4],var1-var4*(TOP/100),저[1,3],저[1,4],var1-var4*(TOP/100));
# plot11(var11-var14*(t500/100),"Per1%",RED);
TL_SetColor(TL11,RED);
TL_SetColor(TL12,black);
TL_SetColor(TL13,YELLOW);
TL_SetColor(TL14,red);
TL_SetColor(TL15,yellow);
Text1 = Text_New(고[1,3],고[1,4],고[1,1],NumToStr((고[1,1]),종목자릿수));
Text_SetStyle(Text1, 2, 1);
Text2 = Text_New(고[1,3],고[1,4],고[1,1]+줄간격*PriceScale,"+"+NumToStr(abs(고[1,1]-저[1,1])/PriceScale,0));
Text_SetStyle(Text2, 2, 1);
}
If TL_NewBit == 2 Then { // 연장
TL_SetEnd(TL1,고[1,3],고[1,4],고[1,1]);
TL_SetEnd(TL11,저[1,3],저[1,4],var1-var4*(BOT/100));
TL_SetEnd(TL12,저[1,3],저[1,4],var1-var4*(t382/100));
TL_SetEnd(TL13,저[1,3],저[1,4],var1-var4*(t500/100));
TL_SetEnd(TL14,저[1,3],저[1,4],var1-var4*(t618/100));
TL_SetEnd(TL15,저[1,3],저[1,4],var1-var4*(TOP/100));
TL_SetColor(TL11,RED);
TL_SetColor(TL12,white);
TL_SetColor(TL13,YELLOW);
TL_SetColor(TL14,white);
TL_SetColor(TL15,yellow);
Text_SetLocation(Text1,고[1,3],고[1,4],고[1,1]);
Text_SetString(Text1,NumToStr((고[1,1]),종목자릿수));
Text_SetLocation(Text2,고[1,3],고[1,4],고[1,1]+줄간격*PriceScale);
Text_SetString(Text2,"+"+NumToStr(abs(고[1,1]-저[1,1])/PriceScale,0));
Text_SetColor(Text2,RED);
}
}
Else If Value1 == -1 Then { // 저점
T = -1;
If TL_NewBit == 1 Then { // 신규
TL1 = TL_New(고[1,3],고[1,4],고[1,1],저[1,3],저[1,4],저[1,1]);
TL_SetColor(TL1,CYAN);
TL_SetSize(TL1,3);
var1 = 고[1,1];
var2 = 저[2,1];
var3 = 고[2,1];
var4 = abs(var1-var2);
var5 = abs(var2-var3);
TL11 = TL_New(저[2,3],저[2,4],var1-Var4*(BOT/100),고[1,3],고[1,4],var1-Var4*(BOT/100));
TL12 = TL_New(저[2,3],저[2,4],var1-var4*(t382/100),고[1,3],고[1,4],var1-var4*(t382/100));
TL13 = TL_New(저[2,3],저[2,4],var1-Var4*(t500/100),고[1,3],고[1,4],var1-Var4*(t500/100));
TL14 = TL_New(저[2,3],저[2,4],var1-var4*(t618/100),고[1,3],고[1,4],var1-var4*(t618/100));
TL15 = TL_New(저[2,3],저[2,4],var1-Var4*(TOP/100),고[1,3],고[1,4],var1-Var4*(TOP/100));
TL_SetColor(TL11,RED);
TL_SetColor(TL12,white);
TL_SetColor(TL13,YELLOW);
TL_SetColor(TL14,white);
TL_SetColor(TL15,blue);
Text1 = Text_New(저[1,3],저[1,4],저[1,1],NumToStr((저[1,1]),종목자릿수));
Text_SetStyle(Text1, 2, 0);
Text2 = Text_New(저[1,3],저[1,4],저[1,1]-줄간격*PriceScale,"-"+NumToStr(abs(저[1,1]-고[1,1])/PriceScale,0));
Text_SetStyle(Text2, 2, 0);
Text_SetColor(Text2,BLUE);
}
If TL_NewBit == 2 Then { // 연장
TL_SetEnd(TL1,저[1,3],저[1,4],저[1,1]);
TL_SetEnd(TL11,고[1,3],고[1,4],var1-Var4*(BOT/100));
TL_SetEnd(TL12,고[1,3],고[1,4],var1-var4*(t382/100));
TL_SetEnd(TL13,고[1,3],고[1,4],var1-var4*(t500/100));
TL_SetEnd(TL14,고[1,3],고[1,4],var1-var4*(t618/100));
TL_SetEnd(TL15,고[1,3],고[1,4],var1-var4*(TOP/100));
Text_SetLocation(Text1,저[1,3],저[1,4],저[1,1]);
Text_SetString(Text1,NumToStr((저[1,1]),종목자릿수));
Text_SetLocation(Text2,저[1,3],저[1,4],저[1,1]-줄간격*PriceScale);
Text_SetString(Text2,"-"+NumToStr(abs(저[1,1]-고[1,1])/PriceScale,0));
Text_SetColor(Text2,BLUE);
}
}
if T == 1 Then{
TL_Delete(TL31);
TL_Delete(TL32);
TL_Delete(TL33);
TL_Delete(TL34);
TL_Delete(TL35);
var11 = 고[1,1];
var12 = 저[1,1];
VAR13 = 고[2,1];
var14 = abs(var11-var12);
var15 = abs(var12-var13);
TL31 = TL_New(sdate[index-고[1,2]],stime[index-고[1,2]],var11-Var14*(BOT/100),sdate,stime,var11-Var14*(BOT/100));
TL32 = TL_New(sdate[index-고[1,2]],stime[index-고[1,2]],var11-var14*(t382/100),sdate,stime,var11-var14*(t382/100));
TL33 = TL_New(sdate[index-고[1,2]],stime[index-고[1,2]],var11-var14*(t500/100),sdate,stime,var11-var14*(t500/100));
TL34 = TL_New(sdate[index-고[1,2]],stime[index-고[1,2]],var11-var14*(t618/100),sdate,stime,var11-var14*(t618/100));
TL35 = TL_New(sdate[index-고[1,2]],stime[index-고[1,2]],var11-var14*(TOP/100),sdate,stime,var11-var14*(TOP/100));
//plot1(var11-var14*(t500/100),"Per1%",RED);
if T[1] != 1 Then
{
Text_New(저[1,3],저[1,4],고[2,1]-(고[2,1]-저[1,1])*(t382/100),NumToStr(고[2,1]-(고[2,1]-저[1,1])*(t382/100),종목자릿수));
Text_New(저[1,3],저[1,4],고[2,1]-(고[2,1]-저[1,1])*(t500/100),NumToStr(고[2,1]-(고[2,1]-저[1,1])*(t500/100),종목자릿수));
Text_New(저[1,3],저[1,4],고[2,1]-(고[2,1]-저[1,1])*(t618/100),NumToStr(고[2,1]-(고[2,1]-저[1,1])*(t618/100),종목자릿수));
}
Text_Delete(text11);
Text_Delete(text12);
Text_Delete(text13);
text11 = Text_New(sdate,stime,고[1,1]-(고[1,1]-저[1,1])*(t382/100),NumToStr(고[1,1]-(고[1,1]-저[1,1])*(t382/100),종목자릿수));
text12 = Text_New(sdate,stime,고[1,1]-(고[1,1]-저[1,1])*(t500/100),NumToStr(고[1,1]-(고[1,1]-저[1,1])*(t500/100),종목자릿수));
text13 = Text_New(sdate,stime,고[1,1]-(고[1,1]-저[1,1])*(t618/100),NumToStr(고[1,1]-(고[1,1]-저[1,1])*(t618/100),종목자릿수));
}
if T == -1 Then{
TL_Delete(TL31);
TL_Delete(TL32);
TL_Delete(TL33);
TL_Delete(TL34);
TL_Delete(TL35);
var11 = 고[1,1];
var12 = 저[1,1];
VAR13 = 저[2,1];
var14 = abs(var11-var12);
var15 = abs(var11-var13);
TL31 = TL_New(sdate[index-저[1,2]],stime[index-저[1,2]],var11-Var14*(BOT/100),sdate,stime,var11-Var14*(BOT/100));
TL32 = TL_New(sdate[index-저[1,2]],stime[index-저[1,2]],var11-var14*(t382/100),sdate,stime,var11-var14*(t382/100));
TL33 = TL_New(sdate[index-저[1,2]],stime[index-저[1,2]],var11-var14*(t500/100),sdate,stime,var11-var14*(t500/100));
TL34 = TL_New(sdate[index-저[1,2]],stime[index-저[1,2]],var11-var14*(t618/100),sdate,stime,var11-var14*(t618/100));
TL35 = TL_New(sdate[index-저[1,2]],stime[index-저[1,2]],var11-var14*(TOP/100),sdate,stime,var11-var14*(TOP/100));
TL_SetColor(TL31,RED);
TL_SetColor(TL32,white);
TL_SetColor(TL33,YELLOW);
TL_SetColor(TL34,white);
TL_SetColor(TL35,yellow);
if T[1] != -1 Then
{
Text_New(고[1,3],고[1,4],고[1,1]-(고[1,1]-저[2,1])*(t382/100),NumToStr(고[1,1]-(고[1,1]-저[2,1])*(t382/100),종목자릿수));
Text_New(고[1,3],고[1,4],고[1,1]-(고[1,1]-저[2,1])*(t500/100),NumToStr(고[1,1]-(고[1,1]-저[2,1])*(t500/100),종목자릿수));
Text_New(고[1,3],고[1,4],고[1,1]-(고[1,1]-저[2,1])*(t618/100),NumToStr(고[1,1]-(고[1,1]-저[2,1])*(t618/100),종목자릿수));
}
Text_Delete(text11);
Text_Delete(text12);
Text_Delete(text13);
text11 = Text_New(sdate,stime,고[1,1]-(고[1,1]-저[1,1])*(t382/100),NumToStr(고[1,1]-(고[1,1]-저[1,1])*(t382/100),종목자릿수));
text12 = Text_New(sdate,stime,고[1,1]-(고[1,1]-저[1,1])*(t500/100),NumToStr(고[1,1]-(고[1,1]-저[1,1])*(t500/100),종목자릿수));
text13 = Text_New(sdate,stime,고[1,1]-(고[1,1]-저[1,1])*(t618/100),NumToStr(고[1,1]-(고[1,1]-저[1,1])*(t618/100),종목자릿수));
}
TL_SetColor(TL31,RED);
TL_SetColor(TL32,white);
TL_SetColor(TL33,YELLOW);
TL_SetColor(TL34,white);
TL_SetColor(TL35,yellow);
즐거운 하루되세요
> 상중하 님이 쓴 글입니다.
> 제목 : 안녕하세요?
> 안녕하세요?
아래수식에서 고점과 저점의 가격은 숫치로 표시가 되는데요
피보나치 가격도 고저점 처럼 표시하고 싶습니다.
피보나치 38.2 , 50 , 61.8%의 가격을 수치로 표시.
고가,저가가 표시되는 그라인으로 표시되면 좋겠습니다.
고가
1200
----------------------------------------------- 61.8%
1000
----------------------------------------------- 50%
800
----------------------------------------------- 38.2%
저가
바쁘시겠지만 부탁드립니다.(지그재그파동은 수식지왕님 홈피에서 참고했습니다.)
항상 수식지원에 감사드립니다.
Input:length(30),줄간격(3),종목자릿수(0);
input :BOT(0),t382(38.2),t500(50),t618(61.8),TOP(100);
var: T(0),TL31(0),TL32(0),TL33(0),TL34(0),TL35(0);
Var:j(0),TL1(0),Text1(0),Text2(0),Text3(0),TL11(0),TL12(0),TL13(0),TL14(0),TL15(0),
TL_NewBit(0); // 1:NewLine 2:SetEndLine
Array:고[5,4](0),저[5,4](0); // 1:가격,2:Index,3:sDate,4:sTime
#==========================================#
Value1 = HiLoLineZigZag(length,0,고,저,TL_NewBit);
If Value1 == 1 Then { // 고점
T = 1;
If TL_NewBit == 1 Then { // 신규
TL1 = TL_New(저[1,3],저[1,4],저[1,1],고[1,3],고[1,4],고[1,1]);
TL_SetColor(TL1,WHITE);
TL_SetSize(TL1,3);
var1 = 고[2,1];
var2 = 저[1,1];
VAR3 = 저[2,1];
var4 = abs(var1-var2);
var5 = abs(var1-var3);
TL11 = TL_New(고[2,3],고[2,4],var1-Var4*(BOT/100),저[1,3],저[1,4],var1-var4*(BOT/100));
TL12 = TL_New(고[2,3],고[2,4],var1-var4*(t382/100),저[1,3],저[1,4],var1-var4*(t382/100));
TL13 = TL_New(고[2,3],고[2,4],var1-var4*(t500/100),저[1,3],저[1,4],var1-var4*(t500/100));
TL14 = TL_New(고[2,3],고[2,4],var1-var4*(t618/100),저[1,3],저[1,4],var1-var4*(t618/100));
TL15 = TL_New(고[2,3],고[2,4],var1-var4*(TOP/100),저[1,3],저[1,4],var1-var4*(TOP/100));
# plot11(var11-var14*(t500/100),"Per1%",RED);
TL_SetColor(TL11,RED);
TL_SetColor(TL12,black);
TL_SetColor(TL13,YELLOW);
TL_SetColor(TL14,red);
TL_SetColor(TL15,yellow);
Text1 = Text_New(고[1,3],고[1,4],고[1,1],NumToStr((고[1,1]),종목자릿수));
Text_SetStyle(Text1, 2, 1);
Text2 = Text_New(고[1,3],고[1,4],고[1,1]+줄간격*PriceScale,"+"+NumToStr(abs(고[1,1]-저[1,1])/PriceScale,0));
Text_SetStyle(Text2, 2, 1);
}
If TL_NewBit == 2 Then { // 연장
TL_SetEnd(TL1,고[1,3],고[1,4],고[1,1]);
TL_SetEnd(TL11,저[1,3],저[1,4],var1-var4*(BOT/100));
TL_SetEnd(TL12,저[1,3],저[1,4],var1-var4*(t382/100));
TL_SetEnd(TL13,저[1,3],저[1,4],var1-var4*(t500/100));
TL_SetEnd(TL14,저[1,3],저[1,4],var1-var4*(t618/100));
TL_SetEnd(TL15,저[1,3],저[1,4],var1-var4*(TOP/100));
TL_SetColor(TL11,RED);
TL_SetColor(TL12,white);
TL_SetColor(TL13,YELLOW);
TL_SetColor(TL14,white);
TL_SetColor(TL15,yellow);
Text_SetLocation(Text1,고[1,3],고[1,4],고[1,1]);
Text_SetString(Text1,NumToStr((고[1,1]),종목자릿수));
Text_SetLocation(Text2,고[1,3],고[1,4],고[1,1]+줄간격*PriceScale);
Text_SetString(Text2,"+"+NumToStr(abs(고[1,1]-저[1,1])/PriceScale,0));
Text_SetColor(Text2,RED);
}
}
Else If Value1 == -1 Then { // 저점
T = -1;
If TL_NewBit == 1 Then { // 신규
TL1 = TL_New(고[1,3],고[1,4],고[1,1],저[1,3],저[1,4],저[1,1]);
TL_SetColor(TL1,CYAN);
TL_SetSize(TL1,3);
var1 = 고[1,1];
var2 = 저[2,1];
var3 = 고[2,1];
var4 = abs(var1-var2);
var5 = abs(var2-var3);
TL11 = TL_New(저[2,3],저[2,4],var1-Var4*(BOT/100),고[1,3],고[1,4],var1-Var4*(BOT/100));
TL12 = TL_New(저[2,3],저[2,4],var1-var4*(t382/100),고[1,3],고[1,4],var1-var4*(t382/100));
TL13 = TL_New(저[2,3],저[2,4],var1-Var4*(t500/100),고[1,3],고[1,4],var1-Var4*(t500/100));
TL14 = TL_New(저[2,3],저[2,4],var1-var4*(t618/100),고[1,3],고[1,4],var1-var4*(t618/100));
TL15 = TL_New(저[2,3],저[2,4],var1-Var4*(TOP/100),고[1,3],고[1,4],var1-Var4*(TOP/100));
TL_SetColor(TL11,RED);
TL_SetColor(TL12,white);
TL_SetColor(TL13,YELLOW);
TL_SetColor(TL14,white);
TL_SetColor(TL15,blue);
Text1 = Text_New(저[1,3],저[1,4],저[1,1],NumToStr((저[1,1]),종목자릿수));
Text_SetStyle(Text1, 2, 0);
Text2 = Text_New(저[1,3],저[1,4],저[1,1]-줄간격*PriceScale,"-"+NumToStr(abs(저[1,1]-고[1,1])/PriceScale,0));
Text_SetStyle(Text2, 2, 0);
Text_SetColor(Text2,BLUE);
}
If TL_NewBit == 2 Then { // 연장
TL_SetEnd(TL1,저[1,3],저[1,4],저[1,1]);
TL_SetEnd(TL11,고[1,3],고[1,4],var1-Var4*(BOT/100));
TL_SetEnd(TL12,고[1,3],고[1,4],var1-var4*(t382/100));
TL_SetEnd(TL13,고[1,3],고[1,4],var1-var4*(t500/100));
TL_SetEnd(TL14,고[1,3],고[1,4],var1-var4*(t618/100));
TL_SetEnd(TL15,고[1,3],고[1,4],var1-var4*(TOP/100));
Text_SetLocation(Text1,저[1,3],저[1,4],저[1,1]);
Text_SetString(Text1,NumToStr((저[1,1]),종목자릿수));
Text_SetLocation(Text2,저[1,3],저[1,4],저[1,1]-줄간격*PriceScale);
Text_SetString(Text2,"-"+NumToStr(abs(저[1,1]-고[1,1])/PriceScale,0));
Text_SetColor(Text2,BLUE);
}
}
if T == 1 Then{
TL_Delete(TL31);
TL_Delete(TL32);
TL_Delete(TL33);
TL_Delete(TL34);
TL_Delete(TL35);
var11 = 고[1,1];
var12 = 저[1,1];
VAR13 = 고[2,1];
var14 = abs(var11-var12);
var15 = abs(var12-var13);
TL31 = TL_New(sdate[index-고[1,2]],stime[index-고[1,2]],var11-Var14*(BOT/100),sdate,stime,var11-Var14*(BOT/100));
TL32 = TL_New(sdate[index-고[1,2]],stime[index-고[1,2]],var11-var14*(t382/100),sdate,stime,var11-var14*(t382/100));
TL33 = TL_New(sdate[index-고[1,2]],stime[index-고[1,2]],var11-var14*(t500/100),sdate,stime,var11-var14*(t500/100));
TL34 = TL_New(sdate[index-고[1,2]],stime[index-고[1,2]],var11-var14*(t618/100),sdate,stime,var11-var14*(t618/100));
TL35 = TL_New(sdate[index-고[1,2]],stime[index-고[1,2]],var11-var14*(TOP/100),sdate,stime,var11-var14*(TOP/100));
plot1(var11-var14*(t500/100),"Per1%",RED);
}
TL_SetColor(TL31,RED);
TL_SetColor(TL32,white);
TL_SetColor(TL33,YELLOW);
TL_SetColor(TL34,white);
TL_SetColor(TL35,yellow);
if T == -1 Then{
TL_Delete(TL31);
TL_Delete(TL32);
TL_Delete(TL33);
TL_Delete(TL34);
TL_Delete(TL35);
var11 = 고[1,1];
var12 = 저[1,1];
VAR13 = 저[2,1];
var14 = abs(var11-var12);
var15 = abs(var11-var13);
TL31 = TL_New(sdate[index-저[1,2]],stime[index-저[1,2]],var11-Var14*(BOT/100),sdate,stime,var11-Var14*(BOT/100));
TL32 = TL_New(sdate[index-저[1,2]],stime[index-저[1,2]],var11-var14*(t382/100),sdate,stime,var11-var14*(t382/100));
TL33 = TL_New(sdate[index-저[1,2]],stime[index-저[1,2]],var11-var14*(t500/100),sdate,stime,var11-var14*(t500/100));
TL34 = TL_New(sdate[index-저[1,2]],stime[index-저[1,2]],var11-var14*(t618/100),sdate,stime,var11-var14*(t618/100));
TL35 = TL_New(sdate[index-저[1,2]],stime[index-저[1,2]],var11-var14*(TOP/100),sdate,stime,var11-var14*(TOP/100));
TL_SetColor(TL31,RED);
TL_SetColor(TL32,white);
TL_SetColor(TL33,YELLOW);
TL_SetColor(TL34,white);
TL_SetColor(TL35,yellow);
}
다음글
이전글