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

커뮤니티

37402 재질문

프로필 이미지
미래테크
2014-08-01 22:32:09
176
글번호 77334
답변완료
앞에 37402에 올렸던 추세선 수식입니다 하락추세를 상향추세 돌파할때 매매식 37402 참고하여 부탁합니다 input : 기간(7); var : cnt(0),TL11(0),TL12(0),TL21(0),TL22(0); Array :HD[10](0),HT[10](0),HH[10](0),LD[10](0),LT[10](0),LL[10](0); if SwingHigh(1,H,기간,기간,기간*2+1) != -1 Then{ HD[0] = sdate[기간]; HT[0] = sTime[기간]; HH[0] = H[기간]; #plot1(HH[0]); for cnt = 1 to 2{ HD[cnt] = HD[cnt-1][1]; HT[cnt] = HT[cnt-1][1]; HH[cnt] = HH[cnt-1][1]; if HH[cnt] > 0 and HH[0] < HH[cnt] Then{ if cnt == 1 Then{ TL_SetExtRight(TL11,False); TL11 = TL_New(HD[cnt],HT[cnt],HH[cnt],HD[0],HT[0],HH[0]); TL_SetExtRight(TL11,true); TL_SetColor(TL11,RGB(0, 191, 255)); TL_SetSize( TL11,3); } if cnt == 2 Then{ TL_SetExtRight(TL12,False); TL12 = TL_New(HD[cnt],HT[cnt],HH[cnt],HD[0],HT[0],HH[0]); TL_SetExtRight(TL12,true); TL_SetColor(TL12,RGB(0, 191, 255)); TL_SetSize( TL12,2); } } } } if SwingLow(1,L,기간,기간,기간*2+1) != -1 Then{ LD[0] = sdate[기간]; LT[0] = sTime[기간]; LL[0] = L[기간]; #plot1(LL[0]); for cnt = 1 to 2{ LD[cnt] = LD[cnt-1][1]; LT[cnt] = LT[cnt-1][1]; LL[cnt] = LL[cnt-1][1]; if LL[cnt] > 0 and LL[0] > LL[cnt] Then{ if cnt == 1 Then{ TL_SetExtRight(TL21,False); TL21 = TL_New(LD[cnt],LT[cnt],LL[cnt],LD[0],LT[0],LL[0]); TL_SetExtRight(TL21,true); TL_SetColor(TL21,RGB(255, 20, 147)); TL_SetSize( TL21,3); } if cnt == 2 Then{ TL_SetExtRight(TL22,False); TL22 = TL_New(LD[cnt],LT[cnt],LL[cnt],LD[0],LT[0],LL[0]); TL_SetExtRight(TL22,true); TL_SetColor(TL22,RGB(255,20, 147)); TL_SetSize( TL22,2); #TL2 추세선을 점선으로 지정 } } } } if (C > TL_GetValue(TL11,sdate,stime) and C[1] < TL_GetValue(TL11,sdate[1],stime[1])) or (C > TL_GetValue(TL12,sdate,stime) and C[1] < TL_GetValue(TL12,sdate[1],stime[1])) Then plot1(H); if (C < TL_GetValue(TL21,sdate,stime) and C[1] > TL_GetValue(TL21,sdate[1],stime[1])) or (C < TL_GetValue(TL22,sdate,stime) and C[1] > TL_GetValue(TL22,sdate[1],stime[1])) Then plot1(L);
시스템
답변 1
프로필 이미지

예스스탁 예스스탁 답변

2014-08-04 09:31:45

안녕하세요 예스스탁입니다. input : 기간(7); var : cnt(0),TL11(0),TL12(0),TL21(0),TL22(0); Array :HD[10](0),HT[10](0),HH[10](0),LD[10](0),LT[10](0),LL[10](0); if SwingHigh(1,H,기간,기간,기간*2+1) != -1 Then{ HD[0] = sdate[기간]; HT[0] = sTime[기간]; HH[0] = H[기간]; #plot1(HH[0]); for cnt = 1 to 2{ HD[cnt] = HD[cnt-1][1]; HT[cnt] = HT[cnt-1][1]; HH[cnt] = HH[cnt-1][1]; if HH[cnt] > 0 and HH[0] < HH[cnt] Then{ if cnt == 1 Then{ TL_SetExtRight(TL11,False); TL11 = TL_New(HD[cnt],HT[cnt],HH[cnt],HD[0],HT[0],HH[0]); TL_SetExtRight(TL11,true); TL_SetColor(TL11,RGB(0, 191, 255)); TL_SetSize( TL11,3); } if cnt == 2 Then{ TL_SetExtRight(TL12,False); TL12 = TL_New(HD[cnt],HT[cnt],HH[cnt],HD[0],HT[0],HH[0]); TL_SetExtRight(TL12,true); TL_SetColor(TL12,RGB(0, 191, 255)); TL_SetSize( TL12,2); } } } } if SwingLow(1,L,기간,기간,기간*2+1) != -1 Then{ LD[0] = sdate[기간]; LT[0] = sTime[기간]; LL[0] = L[기간]; #plot1(LL[0]); for cnt = 1 to 2{ LD[cnt] = LD[cnt-1][1]; LT[cnt] = LT[cnt-1][1]; LL[cnt] = LL[cnt-1][1]; if LL[cnt] > 0 and LL[0] > LL[cnt] Then{ if cnt == 1 Then{ TL_SetExtRight(TL21,False); TL21 = TL_New(LD[cnt],LT[cnt],LL[cnt],LD[0],LT[0],LL[0]); TL_SetExtRight(TL21,true); TL_SetColor(TL21,RGB(255, 20, 147)); TL_SetSize( TL21,3); } if cnt == 2 Then{ TL_SetExtRight(TL22,False); TL22 = TL_New(LD[cnt],LT[cnt],LL[cnt],LD[0],LT[0],LL[0]); TL_SetExtRight(TL22,true); TL_SetColor(TL22,RGB(255,20, 147)); TL_SetSize( TL22,2); #TL2 추세선을 점선으로 지정 } } } } if (TL_GetValue(TL21,sdate,stime) > TL_GetValue(TL11,sdate,stime) and TL_GetValue(TL21,sdate,stime) < TL_GetValue(TL11,sdate[1],stime[1])) or (TL_GetValue(TL21,sdate,stime) > TL_GetValue(TL12,sdate,stime) and TL_GetValue(TL21,sdate,stime) < TL_GetValue(TL12,sdate[1],stime[1])) Or (TL_GetValue(TL22,sdate,stime) > TL_GetValue(TL11,sdate,stime) and TL_GetValue(TL22,sdate,stime) < TL_GetValue(TL11,sdate[1],stime[1])) or (TL_GetValue(TL22,sdate,stime) > TL_GetValue(TL12,sdate,stime) and TL_GetValue(TL22,sdate,stime) < TL_GetValue(TL12,sdate[1],stime[1])) Then buy(); 즐거운 하루되세요 > 미래테크 님이 쓴 글입니다. > 제목 : 37402 재질문 > 앞에 37402에 올렸던 추세선 수식입니다 하락추세를 상향추세 돌파할때 매매식 37402 참고하여 부탁합니다 input : 기간(7); var : cnt(0),TL11(0),TL12(0),TL21(0),TL22(0); Array :HD[10](0),HT[10](0),HH[10](0),LD[10](0),LT[10](0),LL[10](0); if SwingHigh(1,H,기간,기간,기간*2+1) != -1 Then{ HD[0] = sdate[기간]; HT[0] = sTime[기간]; HH[0] = H[기간]; #plot1(HH[0]); for cnt = 1 to 2{ HD[cnt] = HD[cnt-1][1]; HT[cnt] = HT[cnt-1][1]; HH[cnt] = HH[cnt-1][1]; if HH[cnt] > 0 and HH[0] < HH[cnt] Then{ if cnt == 1 Then{ TL_SetExtRight(TL11,False); TL11 = TL_New(HD[cnt],HT[cnt],HH[cnt],HD[0],HT[0],HH[0]); TL_SetExtRight(TL11,true); TL_SetColor(TL11,RGB(0, 191, 255)); TL_SetSize( TL11,3); } if cnt == 2 Then{ TL_SetExtRight(TL12,False); TL12 = TL_New(HD[cnt],HT[cnt],HH[cnt],HD[0],HT[0],HH[0]); TL_SetExtRight(TL12,true); TL_SetColor(TL12,RGB(0, 191, 255)); TL_SetSize( TL12,2); } } } } if SwingLow(1,L,기간,기간,기간*2+1) != -1 Then{ LD[0] = sdate[기간]; LT[0] = sTime[기간]; LL[0] = L[기간]; #plot1(LL[0]); for cnt = 1 to 2{ LD[cnt] = LD[cnt-1][1]; LT[cnt] = LT[cnt-1][1]; LL[cnt] = LL[cnt-1][1]; if LL[cnt] > 0 and LL[0] > LL[cnt] Then{ if cnt == 1 Then{ TL_SetExtRight(TL21,False); TL21 = TL_New(LD[cnt],LT[cnt],LL[cnt],LD[0],LT[0],LL[0]); TL_SetExtRight(TL21,true); TL_SetColor(TL21,RGB(255, 20, 147)); TL_SetSize( TL21,3); } if cnt == 2 Then{ TL_SetExtRight(TL22,False); TL22 = TL_New(LD[cnt],LT[cnt],LL[cnt],LD[0],LT[0],LL[0]); TL_SetExtRight(TL22,true); TL_SetColor(TL22,RGB(255,20, 147)); TL_SetSize( TL22,2); #TL2 추세선을 점선으로 지정 } } } } if (C > TL_GetValue(TL11,sdate,stime) and C[1] < TL_GetValue(TL11,sdate[1],stime[1])) or (C > TL_GetValue(TL12,sdate,stime) and C[1] < TL_GetValue(TL12,sdate[1],stime[1])) Then plot1(H); if (C < TL_GetValue(TL21,sdate,stime) and C[1] > TL_GetValue(TL21,sdate[1],stime[1])) or (C < TL_GetValue(TL22,sdate,stime) and C[1] > TL_GetValue(TL22,sdate[1],stime[1])) Then plot1(L);
등록