커뮤니티
수정 부탁 드립니다.
2021-07-24 13:45:45
1748
글번호 151058
첨부 이미지
그림1
수고하십니다.
어래 지표에서 TL2 가 직전파동 추세선 중심값시간에서 시작해서 현파동 추세선 중심값을 연장하는 추세선으로 변경 부탁드립니다.
TL21추세선도 시작위치를 검은색과 같이 나타나도록 부탁드립니다.
그림에 청색을 검정선 같은 위치에 나타나도록 부탁드립니다
Var:length(14),최근만(1);
Var:TL1(0),TL2(0),TL3(0),Slope(0),TL_NewBit(0); // 1:NewLine 2:SetEndLine
Array:고[10,4](0),저[10,4](0); // 1:가격,2:Index,3:sDate,4:sTime
var : VV(0),diff(0);
var : TL21(0),TL22(0),TL23(0),TL24(0),TL25(0),TL26(0);
var : TL31(0),TL32(0),TL33(0),TL34(0),TL35(0),TL36(0);
Value1 = HiLoLineZigZag(length,0,고,저,TL_NewBit); //사용자함수 바로 가기
If Value1 == 1 Then {
If TL_NewBit == 1 Then TL1 = TL_New(저[1,3],저[1,4],저[1,1],고[1,3],고[1,4],고[1,1]);
If TL_NewBit == 2 Then TL_SetEnd(TL1,고[1,3],고[1,4],고[1,1]);
}
Else If Value1 == -1 Then {
If TL_NewBit == 1 Then TL1 = TL_New(고[1,3],고[1,4],고[1,1],저[1,3],저[1,4],저[1,1]);
If TL_NewBit == 2 Then TL_SetEnd(TL1,저[1,3],저[1,4],저[1,1]);
}
If Value1 == 1 and TL_NewBit == 1 Then {
Slope = ((고[2,1]+저[1,1])/2 - 저[2,1]) / ((고[2,2]+저[1,2])/2 - 저[2,2]);
If 최근만 > 0 Then {
TL_Delete(TL3);
TL_Delete(TL31);
TL_Delete(TL32);
TL_Delete(TL33);
TL_Delete(TL34);
TL_Delete(TL35);
TL_Delete(TL36);
}
TL2 = TL_New(저[2,3],저[2,4],저[2,1],sDate,sTime,Slope*(Index-저[2,2])+저[2,1]);
TL_SetColor(TL2,BLUE);
TL_SetSize(TL2,1);
VV = Slope*(저[1,2]-저[2,2])+저[2,1];
diff = VV - 저[1,1];
TL21 = TL_New(저[1,3],저[1,4],VV-diff*1,sDate,sTime,TL_GetValue(TL2,sdate,stime)-diff*1);
TL22 = TL_New(저[1,3],저[1,4],VV-diff*1.2,sDate,sTime,TL_GetValue(TL2,sdate,stime)-diff*1.2);
TL24 = TL_New(저[1,3],저[1,4],VV+diff*1,sDate,sTime,TL_GetValue(TL2,sdate,stime)+diff*1);
TL25 = TL_New(저[1,3],저[1,4],VV+diff*1.2,sDate,sTime,TL_GetValue(TL2,sdate,stime)+diff*1.2);
TL_SetColor(TL21,BLUE); TL_SetSize(TL21,1);
TL_SetColor(TL22,RED); TL_SetSize(TL22,1);
TL_SetColor(TL23,RED); TL_SetSize(TL23,1);
TL_SetColor(TL24,BLUE); TL_SetSize(TL24,1);
TL_SetColor(TL25,RED); TL_SetSize(TL25,1);
TL_SetColor(TL26,red); TL_SetSize(TL26,1);
}
If Value1 == 1 and TL_NewBit <> 1 Then {
TL_SetEnd(TL2,sDate,sTime,Slope*(Index-저[2,2])+저[2,1]);
TL_SetEnd(TL21,sDate,sTime,TL_GetValue(TL2,sdate,stime)-diff*1);
TL_SetEnd(TL22,sDate,sTime,TL_GetValue(TL2,sdate,stime)-diff*1.2);
TL_SetEnd(TL24,sDate,sTime,TL_GetValue(TL2,sdate,stime)+diff*1);
TL_SetEnd(TL25,sDate,sTime,TL_GetValue(TL2,sdate,stime)+diff*1.2);
}
If Value1 == -1 and TL_NewBit == 1 Then {
Slope = ((고[1,1]+저[2,1])/2 - 고[2,1]) / ((고[1,2]+저[2,2])/2 - 고[2,2]);
If 최근만 > 0 Then {
TL_Delete(TL2);
TL_Delete(TL21);
TL_Delete(TL22);
TL_Delete(TL23);
TL_Delete(TL24);
TL_Delete(TL25);
TL_Delete(TL26);
}
TL3 = TL_New(고[2,3],고[2,4],고[2,1],sDate,sTime,Slope*(Index-고[2,2])+고[2,1]);
TL_SetColor(TL3,RED);
TL_SetSize(TL3,1);
VV = Slope*(고[1,2]-고[2,2])+고[2,1];
diff = 고[1,1]-VV;
TL31 = TL_New(고[1,3],고[1,4],VV+diff*1,sDate,sTime,TL_GetValue(TL3,sdate,stime)+diff*1);
TL32 = TL_New(고[1,3],고[1,4],VV+diff*1.2,sDate,sTime,TL_GetValue(TL3,sdate,stime)+diff*1.2);
TL34 = TL_New(고[1,3],고[1,4],VV-diff*1,sDate,sTime,TL_GetValue(TL3,sdate,stime)-diff*1);
TL35 = TL_New(고[1,3],고[1,4],VV-diff*1.2,sDate,sTime,TL_GetValue(TL3,sdate,stime)-diff*1.2);
TL_SetColor(TL31,RED); TL_SetSize(TL31,1);
TL_SetColor(TL32,BLUE); TL_SetSize(TL32,1);
TL_SetColor(TL33,BLUE); TL_SetSize(TL33,1);
TL_SetColor(TL34,RED); TL_SetSize(TL34,1);
TL_SetColor(TL35,BLUE); TL_SetSize(TL35,1);
TL_SetColor(TL36,BLUE); TL_SetSize(TL36,1);
}
If Value1 == -1 and TL_NewBit <> -1 Then {
TL_SetEnd(TL3,sDate,sTime,Slope*(Index-고[2,2])+고[2,1]);
TL_SetEnd(TL31,sDate,sTime,TL_GetValue(TL3,sdate,stime)+diff*1);
TL_SetEnd(TL32,sDate,sTime,TL_GetValue(TL3,sdate,stime)+diff*1.2);
TL_SetEnd(TL34,sDate,sTime,TL_GetValue(TL3,sdate,stime)-diff*1);
TL_SetEnd(TL35,sDate,sTime,TL_GetValue(TL3,sdate,stime)-diff*1.2);
}
- 1. 151788_중심선.PNG (0.07 MB)
답변 2
예스스탁 예스스탁 답변
2021-07-26 13:30:52
안녕하세요
예스스탁입니다.
문의하신 내용으로는 작성해해 보는데 시간이 많이 소모됩니다.
업무상 많은 시간이 요구되는 내용은 저희가 작성을 해드리기 어렵습니다.
도움을 드리지 못해 죄송합니다.
즐거운 하루되세요
> fill 님이 쓴 글입니다.
> 제목 : 수정 부탁 드립니다.
> 수고하십니다.
어래 지표에서 TL2 가 직전파동 추세선 중심값시간에서 시작해서 현파동 추세선 중심값을 연장하는 추세선으로 변경 부탁드립니다.
TL21추세선도 시작위치를 검은색과 같이 나타나도록 부탁드립니다.
그림에 청색을 검정선 같은 위치에 나타나도록 부탁드립니다
Var:length(14),최근만(1);
Var:TL1(0),TL2(0),TL3(0),Slope(0),TL_NewBit(0); // 1:NewLine 2:SetEndLine
Array:고[10,4](0),저[10,4](0); // 1:가격,2:Index,3:sDate,4:sTime
var : VV(0),diff(0);
var : TL21(0),TL22(0),TL23(0),TL24(0),TL25(0),TL26(0);
var : TL31(0),TL32(0),TL33(0),TL34(0),TL35(0),TL36(0);
Value1 = HiLoLineZigZag(length,0,고,저,TL_NewBit); //사용자함수 바로 가기
If Value1 == 1 Then {
If TL_NewBit == 1 Then TL1 = TL_New(저[1,3],저[1,4],저[1,1],고[1,3],고[1,4],고[1,1]);
If TL_NewBit == 2 Then TL_SetEnd(TL1,고[1,3],고[1,4],고[1,1]);
}
Else If Value1 == -1 Then {
If TL_NewBit == 1 Then TL1 = TL_New(고[1,3],고[1,4],고[1,1],저[1,3],저[1,4],저[1,1]);
If TL_NewBit == 2 Then TL_SetEnd(TL1,저[1,3],저[1,4],저[1,1]);
}
If Value1 == 1 and TL_NewBit == 1 Then {
Slope = ((고[2,1]+저[1,1])/2 - 저[2,1]) / ((고[2,2]+저[1,2])/2 - 저[2,2]);
If 최근만 > 0 Then {
TL_Delete(TL3);
TL_Delete(TL31);
TL_Delete(TL32);
TL_Delete(TL33);
TL_Delete(TL34);
TL_Delete(TL35);
TL_Delete(TL36);
}
TL2 = TL_New(저[2,3],저[2,4],저[2,1],sDate,sTime,Slope*(Index-저[2,2])+저[2,1]);
TL_SetColor(TL2,BLUE);
TL_SetSize(TL2,1);
VV = Slope*(저[1,2]-저[2,2])+저[2,1];
diff = VV - 저[1,1];
TL21 = TL_New(저[1,3],저[1,4],VV-diff*1,sDate,sTime,TL_GetValue(TL2,sdate,stime)-diff*1);
TL22 = TL_New(저[1,3],저[1,4],VV-diff*1.2,sDate,sTime,TL_GetValue(TL2,sdate,stime)-diff*1.2);
TL24 = TL_New(저[1,3],저[1,4],VV+diff*1,sDate,sTime,TL_GetValue(TL2,sdate,stime)+diff*1);
TL25 = TL_New(저[1,3],저[1,4],VV+diff*1.2,sDate,sTime,TL_GetValue(TL2,sdate,stime)+diff*1.2);
TL_SetColor(TL21,BLUE); TL_SetSize(TL21,1);
TL_SetColor(TL22,RED); TL_SetSize(TL22,1);
TL_SetColor(TL23,RED); TL_SetSize(TL23,1);
TL_SetColor(TL24,BLUE); TL_SetSize(TL24,1);
TL_SetColor(TL25,RED); TL_SetSize(TL25,1);
TL_SetColor(TL26,red); TL_SetSize(TL26,1);
}
If Value1 == 1 and TL_NewBit <> 1 Then {
TL_SetEnd(TL2,sDate,sTime,Slope*(Index-저[2,2])+저[2,1]);
TL_SetEnd(TL21,sDate,sTime,TL_GetValue(TL2,sdate,stime)-diff*1);
TL_SetEnd(TL22,sDate,sTime,TL_GetValue(TL2,sdate,stime)-diff*1.2);
TL_SetEnd(TL24,sDate,sTime,TL_GetValue(TL2,sdate,stime)+diff*1);
TL_SetEnd(TL25,sDate,sTime,TL_GetValue(TL2,sdate,stime)+diff*1.2);
}
If Value1 == -1 and TL_NewBit == 1 Then {
Slope = ((고[1,1]+저[2,1])/2 - 고[2,1]) / ((고[1,2]+저[2,2])/2 - 고[2,2]);
If 최근만 > 0 Then {
TL_Delete(TL2);
TL_Delete(TL21);
TL_Delete(TL22);
TL_Delete(TL23);
TL_Delete(TL24);
TL_Delete(TL25);
TL_Delete(TL26);
}
TL3 = TL_New(고[2,3],고[2,4],고[2,1],sDate,sTime,Slope*(Index-고[2,2])+고[2,1]);
TL_SetColor(TL3,RED);
TL_SetSize(TL3,1);
VV = Slope*(고[1,2]-고[2,2])+고[2,1];
diff = 고[1,1]-VV;
TL31 = TL_New(고[1,3],고[1,4],VV+diff*1,sDate,sTime,TL_GetValue(TL3,sdate,stime)+diff*1);
TL32 = TL_New(고[1,3],고[1,4],VV+diff*1.2,sDate,sTime,TL_GetValue(TL3,sdate,stime)+diff*1.2);
TL34 = TL_New(고[1,3],고[1,4],VV-diff*1,sDate,sTime,TL_GetValue(TL3,sdate,stime)-diff*1);
TL35 = TL_New(고[1,3],고[1,4],VV-diff*1.2,sDate,sTime,TL_GetValue(TL3,sdate,stime)-diff*1.2);
TL_SetColor(TL31,RED); TL_SetSize(TL31,1);
TL_SetColor(TL32,BLUE); TL_SetSize(TL32,1);
TL_SetColor(TL33,BLUE); TL_SetSize(TL33,1);
TL_SetColor(TL34,RED); TL_SetSize(TL34,1);
TL_SetColor(TL35,BLUE); TL_SetSize(TL35,1);
TL_SetColor(TL36,BLUE); TL_SetSize(TL36,1);
}
If Value1 == -1 and TL_NewBit <> -1 Then {
TL_SetEnd(TL3,sDate,sTime,Slope*(Index-고[2,2])+고[2,1]);
TL_SetEnd(TL31,sDate,sTime,TL_GetValue(TL3,sdate,stime)+diff*1);
TL_SetEnd(TL32,sDate,sTime,TL_GetValue(TL3,sdate,stime)+diff*1.2);
TL_SetEnd(TL34,sDate,sTime,TL_GetValue(TL3,sdate,stime)-diff*1);
TL_SetEnd(TL35,sDate,sTime,TL_GetValue(TL3,sdate,stime)-diff*1.2);
}
예스스탁 예스스탁 답변
2021-07-26 19:48:20
안녕하세요
예스스탁입니다.
Var:length(14),최근만(1);
Var:TL1(0),TL2(0),TL3(0),Slope(0),TL_NewBit(0); // 1:NewLine 2:SetEndLine
Array:고[10,4](0),저[10,4](0); // 1:가격,2:Index,3:sDate,4:sTime
var : VV(0),diff(0);
var : TL21(0),TL22(0),TL23(0),TL24(0),TL25(0),TL26(0);
var : TL31(0),TL32(0),TL33(0),TL34(0),TL35(0),TL36(0);
Value1 = HiLoLineZigZag(length,0,고,저,TL_NewBit); //사용자함수 바로 가기
If Value1 == 1 Then
{
If TL_NewBit == 1 Then TL1 = TL_New(저[1,3],저[1,4],저[1,1],고[1,3],고[1,4],고[1,1]);
If TL_NewBit == 2 Then TL_SetEnd(TL1,고[1,3],고[1,4],고[1,1]);
}
Else If Value1 == -1 Then
{
If TL_NewBit == 1 Then TL1 = TL_New(고[1,3],고[1,4],고[1,1],저[1,3],저[1,4],저[1,1]);
If TL_NewBit == 2 Then TL_SetEnd(TL1,저[1,3],저[1,4],저[1,1]);
}
var : TL99(0);
var : M1(0),M2(0),Mdiff(0),I1(0),I2(0),Idiff(0);
If Value1 == 1 and TL_NewBit == 1 Then
{
M1 = (고[2,1]+저[1,1])/2;
M2 = (고[2,1]+저[2,1])/2;
MDiff = M1-M2;
I1 = Round((고[2,2]+저[1,2])/2,0);
I2 = Round((고[2,2]+저[2,2])/2,0);
IDiff = I1-I2;
Slope = MDiff/ IDiff;
If 최근만 > 0 Then
{
TL_Delete(TL3);
TL_Delete(TL31);
TL_Delete(TL32);
TL_Delete(TL33);
TL_Delete(TL34);
TL_Delete(TL35);
TL_Delete(TL36);
}
TL2 = TL_New(sDate[Index-I2],sTime[Index-I2],M2,sDate,sTime,M2+Slope*(Index-I2));
TL_SetColor(TL2,CYAN);
TL_SetSize(TL2,1);
VV = M2 + Slope*(저[1,2]-I2);
diff = VV - 저[1,1];
TL21 = TL_New(저[1,3],저[1,4],VV-diff*1,sDate,sTime,TL_GetValue(TL2,sdate,stime)-diff*1);
TL22 = TL_New(저[1,3],저[1,4],VV-diff*1.2,sDate,sTime,TL_GetValue(TL2,sdate,stime)-diff*1.2);
TL24 = TL_New(저[1,3],저[1,4],VV+diff*1,sDate,sTime,TL_GetValue(TL2,sdate,stime)+diff*1);
TL25 = TL_New(저[1,3],저[1,4],VV+diff*1.2,sDate,sTime,TL_GetValue(TL2,sdate,stime)+diff*1.2);
TL_SetColor(TL21,BLUE); TL_SetSize(TL21,1);
TL_SetColor(TL22,RED); TL_SetSize(TL22,1);
TL_SetColor(TL23,RED); TL_SetSize(TL23,1);
TL_SetColor(TL24,BLUE); TL_SetSize(TL24,1);
TL_SetColor(TL25,RED); TL_SetSize(TL25,1);
TL_SetColor(TL26,red); TL_SetSize(TL26,1);
}
If Value1 == 1 and TL_NewBit <> 1 Then
{
TL_SetEnd(TL2,sDate,sTime,M2+Slope*(Index-I2));
TL_SetEnd(TL21,sDate,sTime,TL_GetValue(TL2,sdate,stime)-diff*1);
TL_SetEnd(TL22,sDate,sTime,TL_GetValue(TL2,sdate,stime)-diff*1.2);
TL_SetEnd(TL24,sDate,sTime,TL_GetValue(TL2,sdate,stime)+diff*1);
TL_SetEnd(TL25,sDate,sTime,TL_GetValue(TL2,sdate,stime)+diff*1.2);
}
If Value1 == -1 and TL_NewBit == 1 Then
{
M1 = (고[1,1]+저[2,1])/2;
M2 = (고[2,1]+저[2,1])/2;
MDiff = M1-M2;
I1 = Round((고[1,2]+저[2,2])/2,0);
I2 = Round((고[2,2]+저[2,2])/2,0);
IDiff = I1-I2;
Slope = MDiff/ IDiff;
If 최근만 > 0 Then
{
TL_Delete(TL2);
TL_Delete(TL21);
TL_Delete(TL22);
TL_Delete(TL23);
TL_Delete(TL24);
TL_Delete(TL25);
TL_Delete(TL26);
}
TL3 = TL_New(sDate[Index-I2],sTime[Index-I2],M2,sDate,sTime,M2+Slope*(Index-I2));
# TL3 = TL_New(고[2,3],고[2,4],고[2,1],sDate,sTime,Slope*(Index-고[2,2])+고[2,1]);
TL_SetColor(TL3,MAGENTA);
TL_SetSize(TL3,1);
VV = M2 + Slope*(고[1,2]-I2);
diff = 고[1,1]-VV;
TL31 = TL_New(고[1,3],고[1,4],VV+diff*1,sDate,sTime,TL_GetValue(TL3,sdate,stime)+diff*1);
TL32 = TL_New(고[1,3],고[1,4],VV+diff*1.2,sDate,sTime,TL_GetValue(TL3,sdate,stime)+diff*1.2);
TL34 = TL_New(고[1,3],고[1,4],VV-diff*1,sDate,sTime,TL_GetValue(TL3,sdate,stime)-diff*1);
TL35 = TL_New(고[1,3],고[1,4],VV-diff*1.2,sDate,sTime,TL_GetValue(TL3,sdate,stime)-diff*1.2);
TL_SetColor(TL31,RED); TL_SetSize(TL31,1);
TL_SetColor(TL32,BLUE); TL_SetSize(TL32,1);
TL_SetColor(TL33,BLUE); TL_SetSize(TL33,1);
TL_SetColor(TL34,RED); TL_SetSize(TL34,1);
TL_SetColor(TL35,BLUE); TL_SetSize(TL35,1);
TL_SetColor(TL36,BLUE); TL_SetSize(TL36,1);
}
If Value1 == -1 and TL_NewBit <> -1 Then
{
TL_SetEnd(TL3,sDate,sTime,M2+Slope*(Index-I2));
TL_SetEnd(TL31,sDate,sTime,TL_GetValue(TL3,sdate,stime)+diff*1);
TL_SetEnd(TL32,sDate,sTime,TL_GetValue(TL3,sdate,stime)+diff*1.2);
TL_SetEnd(TL34,sDate,sTime,TL_GetValue(TL3,sdate,stime)-diff*1);
TL_SetEnd(TL35,sDate,sTime,TL_GetValue(TL3,sdate,stime)-diff*1.2);
}
즐거운 하루되세요
> 예스스탁 님이 쓴 글입니다.
> 제목 : Re : 수정 부탁 드립니다.
>
안녕하세요
예스스탁입니다.
문의하신 내용으로는 작성해해 보는데 시간이 많이 소모됩니다.
업무상 많은 시간이 요구되는 내용은 저희가 작성을 해드리기 어렵습니다.
도움을 드리지 못해 죄송합니다.
즐거운 하루되세요
> fill 님이 쓴 글입니다.
> 제목 : 수정 부탁 드립니다.
> 수고하십니다.
어래 지표에서 TL2 가 직전파동 추세선 중심값시간에서 시작해서 현파동 추세선 중심값을 연장하는 추세선으로 변경 부탁드립니다.
TL21추세선도 시작위치를 검은색과 같이 나타나도록 부탁드립니다.
그림에 청색을 검정선 같은 위치에 나타나도록 부탁드립니다
Var:length(14),최근만(1);
Var:TL1(0),TL2(0),TL3(0),Slope(0),TL_NewBit(0); // 1:NewLine 2:SetEndLine
Array:고[10,4](0),저[10,4](0); // 1:가격,2:Index,3:sDate,4:sTime
var : VV(0),diff(0);
var : TL21(0),TL22(0),TL23(0),TL24(0),TL25(0),TL26(0);
var : TL31(0),TL32(0),TL33(0),TL34(0),TL35(0),TL36(0);
Value1 = HiLoLineZigZag(length,0,고,저,TL_NewBit); //사용자함수 바로 가기
If Value1 == 1 Then {
If TL_NewBit == 1 Then TL1 = TL_New(저[1,3],저[1,4],저[1,1],고[1,3],고[1,4],고[1,1]);
If TL_NewBit == 2 Then TL_SetEnd(TL1,고[1,3],고[1,4],고[1,1]);
}
Else If Value1 == -1 Then {
If TL_NewBit == 1 Then TL1 = TL_New(고[1,3],고[1,4],고[1,1],저[1,3],저[1,4],저[1,1]);
If TL_NewBit == 2 Then TL_SetEnd(TL1,저[1,3],저[1,4],저[1,1]);
}
If Value1 == 1 and TL_NewBit == 1 Then {
Slope = ((고[2,1]+저[1,1])/2 - 저[2,1]) / ((고[2,2]+저[1,2])/2 - 저[2,2]);
If 최근만 > 0 Then {
TL_Delete(TL3);
TL_Delete(TL31);
TL_Delete(TL32);
TL_Delete(TL33);
TL_Delete(TL34);
TL_Delete(TL35);
TL_Delete(TL36);
}
TL2 = TL_New(저[2,3],저[2,4],저[2,1],sDate,sTime,Slope*(Index-저[2,2])+저[2,1]);
TL_SetColor(TL2,BLUE);
TL_SetSize(TL2,1);
VV = Slope*(저[1,2]-저[2,2])+저[2,1];
diff = VV - 저[1,1];
TL21 = TL_New(저[1,3],저[1,4],VV-diff*1,sDate,sTime,TL_GetValue(TL2,sdate,stime)-diff*1);
TL22 = TL_New(저[1,3],저[1,4],VV-diff*1.2,sDate,sTime,TL_GetValue(TL2,sdate,stime)-diff*1.2);
TL24 = TL_New(저[1,3],저[1,4],VV+diff*1,sDate,sTime,TL_GetValue(TL2,sdate,stime)+diff*1);
TL25 = TL_New(저[1,3],저[1,4],VV+diff*1.2,sDate,sTime,TL_GetValue(TL2,sdate,stime)+diff*1.2);
TL_SetColor(TL21,BLUE); TL_SetSize(TL21,1);
TL_SetColor(TL22,RED); TL_SetSize(TL22,1);
TL_SetColor(TL23,RED); TL_SetSize(TL23,1);
TL_SetColor(TL24,BLUE); TL_SetSize(TL24,1);
TL_SetColor(TL25,RED); TL_SetSize(TL25,1);
TL_SetColor(TL26,red); TL_SetSize(TL26,1);
}
If Value1 == 1 and TL_NewBit <> 1 Then {
TL_SetEnd(TL2,sDate,sTime,Slope*(Index-저[2,2])+저[2,1]);
TL_SetEnd(TL21,sDate,sTime,TL_GetValue(TL2,sdate,stime)-diff*1);
TL_SetEnd(TL22,sDate,sTime,TL_GetValue(TL2,sdate,stime)-diff*1.2);
TL_SetEnd(TL24,sDate,sTime,TL_GetValue(TL2,sdate,stime)+diff*1);
TL_SetEnd(TL25,sDate,sTime,TL_GetValue(TL2,sdate,stime)+diff*1.2);
}
If Value1 == -1 and TL_NewBit == 1 Then {
Slope = ((고[1,1]+저[2,1])/2 - 고[2,1]) / ((고[1,2]+저[2,2])/2 - 고[2,2]);
If 최근만 > 0 Then {
TL_Delete(TL2);
TL_Delete(TL21);
TL_Delete(TL22);
TL_Delete(TL23);
TL_Delete(TL24);
TL_Delete(TL25);
TL_Delete(TL26);
}
TL3 = TL_New(고[2,3],고[2,4],고[2,1],sDate,sTime,Slope*(Index-고[2,2])+고[2,1]);
TL_SetColor(TL3,RED);
TL_SetSize(TL3,1);
VV = Slope*(고[1,2]-고[2,2])+고[2,1];
diff = 고[1,1]-VV;
TL31 = TL_New(고[1,3],고[1,4],VV+diff*1,sDate,sTime,TL_GetValue(TL3,sdate,stime)+diff*1);
TL32 = TL_New(고[1,3],고[1,4],VV+diff*1.2,sDate,sTime,TL_GetValue(TL3,sdate,stime)+diff*1.2);
TL34 = TL_New(고[1,3],고[1,4],VV-diff*1,sDate,sTime,TL_GetValue(TL3,sdate,stime)-diff*1);
TL35 = TL_New(고[1,3],고[1,4],VV-diff*1.2,sDate,sTime,TL_GetValue(TL3,sdate,stime)-diff*1.2);
TL_SetColor(TL31,RED); TL_SetSize(TL31,1);
TL_SetColor(TL32,BLUE); TL_SetSize(TL32,1);
TL_SetColor(TL33,BLUE); TL_SetSize(TL33,1);
TL_SetColor(TL34,RED); TL_SetSize(TL34,1);
TL_SetColor(TL35,BLUE); TL_SetSize(TL35,1);
TL_SetColor(TL36,BLUE); TL_SetSize(TL36,1);
}
If Value1 == -1 and TL_NewBit <> -1 Then {
TL_SetEnd(TL3,sDate,sTime,Slope*(Index-고[2,2])+고[2,1]);
TL_SetEnd(TL31,sDate,sTime,TL_GetValue(TL3,sdate,stime)+diff*1);
TL_SetEnd(TL32,sDate,sTime,TL_GetValue(TL3,sdate,stime)+diff*1.2);
TL_SetEnd(TL34,sDate,sTime,TL_GetValue(TL3,sdate,stime)-diff*1);
TL_SetEnd(TL35,sDate,sTime,TL_GetValue(TL3,sdate,stime)-diff*1.2);
}
이전글