• 커뮤니티
  • 질의응답
  • 예스랭귀지 Q&A

커뮤니티

뒤로 밀려 다시문의 합니다

프로필 이미지
함지박
2018-02-01 15:36:10
179
글번호 116252
답변완료
Input:length(10),최근만(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 = (저[1,1]-저[2,1])/(저[1,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 = abs(저[2,1] - 저[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*2,sDate,sTime,TL_GetValue(TL2,sdate,stime)-diff*2); TL23 = TL_New(저[1,3],저[1,4],VV-diff*3,sDate,sTime,TL_GetValue(TL2,sdate,stime)-diff*3); 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*2,sDate,sTime,TL_GetValue(TL2,sdate,stime)+diff*2); TL26 = TL_New(저[1,3],저[1,4],VV+diff*3,sDate,sTime,TL_GetValue(TL2,sdate,stime)+diff*3); 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*2); TL_SetEnd(TL23,sDate,sTime,TL_GetValue(TL2,sdate,stime)-diff*3); TL_SetEnd(TL24,sDate,sTime,TL_GetValue(TL2,sdate,stime)+diff*1); TL_SetEnd(TL25,sDate,sTime,TL_GetValue(TL2,sdate,stime)+diff*2); TL_SetEnd(TL26,sDate,sTime,TL_GetValue(TL2,sdate,stime)+diff*3); } If Value1 == -1 and TL_NewBit == 1 Then { Slope = (고[1,1]-고[2,1])/(고[1,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 = abs(고[2,1]-고[1,1]); 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*2,sDate,sTime,TL_GetValue(TL3,sdate,stime)+diff*2); TL33 = TL_New(고[1,3],고[1,4],VV+diff*3,sDate,sTime,TL_GetValue(TL3,sdate,stime)+diff*3); 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*2,sDate,sTime,TL_GetValue(TL3,sdate,stime)-diff*2); TL36 = TL_New(고[1,3],고[1,4],VV-diff*3,sDate,sTime,TL_GetValue(TL3,sdate,stime)-diff*3); 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*2); TL_SetEnd(TL33,sDate,sTime,TL_GetValue(TL3,sdate,stime)+diff*3); TL_SetEnd(TL34,sDate,sTime,TL_GetValue(TL3,sdate,stime)-diff*1); TL_SetEnd(TL35,sDate,sTime,TL_GetValue(TL3,sdate,stime)-diff*2); TL_SetEnd(TL36,sDate,sTime,TL_GetValue(TL3,sdate,stime)-diff*3); } TL2와 TL24 = TL_New(고[2,3],고[2,4],고[2,1],sDate,sTime,Slope*(Index-고[2,2])+고[2,1]); TL3와 TL31 = TL_New(저[2,3],저[2,4],저[2,1],sDate,sTime,Slope*(Index-저[2,2])+저[2,1]); 대체할수 있는데 각각 diff 값이... 원하는 값이 출력하지 못합니다,,수고스럽지만 부탁합니다 꼭,,TL31.32등 값이 고[1,3]이아닌 고[2.3]부터 시작해도 상관없구요 채널식의 그림입니다.. 몇날을 해봐도 오차값이 있어서 못하겠습니다. 이것만 부탁 할께요 수고하세요
지표
답변 2
프로필 이미지

예스스탁 예스스탁 답변

2018-02-02 11:09:42

안녕하세요 예스스탁입니다. 죄송하지만 추가로 어느 부분을 수정해 드려야 할지 잘 모르겠습니다. 도움을 드리지 못해 죄송합니다. 즐거운 하루되세요 > 함지박 님이 쓴 글입니다. > 제목 : 뒤로 밀려 다시문의 합니다 > Input:length(10),최근만(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 = (저[1,1]-저[2,1])/(저[1,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 = abs(저[2,1] - 저[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*2,sDate,sTime,TL_GetValue(TL2,sdate,stime)-diff*2); TL23 = TL_New(저[1,3],저[1,4],VV-diff*3,sDate,sTime,TL_GetValue(TL2,sdate,stime)-diff*3); 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*2,sDate,sTime,TL_GetValue(TL2,sdate,stime)+diff*2); TL26 = TL_New(저[1,3],저[1,4],VV+diff*3,sDate,sTime,TL_GetValue(TL2,sdate,stime)+diff*3); 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*2); TL_SetEnd(TL23,sDate,sTime,TL_GetValue(TL2,sdate,stime)-diff*3); TL_SetEnd(TL24,sDate,sTime,TL_GetValue(TL2,sdate,stime)+diff*1); TL_SetEnd(TL25,sDate,sTime,TL_GetValue(TL2,sdate,stime)+diff*2); TL_SetEnd(TL26,sDate,sTime,TL_GetValue(TL2,sdate,stime)+diff*3); } If Value1 == -1 and TL_NewBit == 1 Then { Slope = (고[1,1]-고[2,1])/(고[1,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 = abs(고[2,1]-고[1,1]); 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*2,sDate,sTime,TL_GetValue(TL3,sdate,stime)+diff*2); TL33 = TL_New(고[1,3],고[1,4],VV+diff*3,sDate,sTime,TL_GetValue(TL3,sdate,stime)+diff*3); 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*2,sDate,sTime,TL_GetValue(TL3,sdate,stime)-diff*2); TL36 = TL_New(고[1,3],고[1,4],VV-diff*3,sDate,sTime,TL_GetValue(TL3,sdate,stime)-diff*3); 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*2); TL_SetEnd(TL33,sDate,sTime,TL_GetValue(TL3,sdate,stime)+diff*3); TL_SetEnd(TL34,sDate,sTime,TL_GetValue(TL3,sdate,stime)-diff*1); TL_SetEnd(TL35,sDate,sTime,TL_GetValue(TL3,sdate,stime)-diff*2); TL_SetEnd(TL36,sDate,sTime,TL_GetValue(TL3,sdate,stime)-diff*3); } TL2와 TL24 = TL_New(고[2,3],고[2,4],고[2,1],sDate,sTime,Slope*(Index-고[2,2])+고[2,1]); TL3와 TL31 = TL_New(저[2,3],저[2,4],저[2,1],sDate,sTime,Slope*(Index-저[2,2])+저[2,1]); 대체할수 있는데 각각 diff 값이... 원하는 값이 출력하지 못합니다,,수고스럽지만 부탁합니다 꼭,,TL31.32등 값이 고[1,3]이아닌 고[2.3]부터 시작해도 상관없구요 채널식의 그림입니다.. 몇날을 해봐도 오차값이 있어서 못하겠습니다. 이것만 부탁 할께요 수고하세요
프로필 이미지

함지박

2018-02-02 13:11:28

함지박 님에 의해 삭제된 답변입니다.
등록