답변완료
수정 부탁 드립니다.
수고하십니다.
어래 지표에서 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-24
1747
글번호 151058
지표