커뮤니티
시스템/검색식을 알려주세요
2015-03-27 08:00:28
195
글번호 84465
전략실행차트의
자동추세선(A/T)의
시스템수식과
종목검색식이
필요합니다.
답변 1
예스스탁 예스스탁 답변
2015-03-27 14:41:50
안녕하세요
예스스탁입니다.
차트보조도구에서 제공되고 있는 자동추세선을
랭귀지로 그대로 구현하기는 어렵습니다.
현재 발생된 고점이나 저점보다 높거나 낮은 가장 가까운 고점/저점을
차트 전체에서 찾아 그리는데 수식에서는 갯수를 지정해야 하므로
아래식에서는 최근 50개의 고점/저점만 기준으로 합니다.
50개 안에 현재고점보다 큰 고점이 없으면 직전고점과 저점을 연결합니다.
추세선은 종목검색식에서는 이용할수 없습니다.
이용에 참고하시기 바랍니다.
input : P(3);
var : TL1(0),TL2(0),tx1(0),tx2(0);
if SwingHigh(1,h,P,P,P*2+1) != -1 Then{
var1 = sdate[P];
var2 = sTime[P];
var3 = H[P];
var4 = var1[1];
var5 = var2[1];
var6 = var3[1];
if var6 > 0 Then{
#고점에 동그라미 그리기
Tx1 = Text_New(var1,var2,var3,"●");
#동그라미 색상, 빨강
Text_SetColor(Tx1,RED);
Text_SetStyle(Tx1,2,2);
#기존그려진 TL2추세선의 오측연장을 없앰
TL_SetExtRight(TL1,False);
#새로운 고점과 이전고점을 연결해 추세선 생성
TL1 = TL_New(var4,var5,var6,var1,var2,var3);
#추세선 우측 연장
TL_SetExtRight(TL1,true);
#추세선 색지정
TL_SetColor(TL1,CYAN);
}
}
if SwingLow(1,L,P,P,P*2+1) != -1 Then{
var11 = sdate[P];
var12 = sTime[P];
var13 = L[P];
var14 = var11[1];
var15 = var12[1];
var16 = var13[1];
if var16 > 0 Then{
#저점에 동그라미 그리기
Tx2 = Text_New(var11,var12,var13,"●");
#동그라미 색상, 파랑
Text_SetColor(Tx2,BLUE);
Text_SetStyle(Tx2,2,2);
#기존그려진 TL2추세선의 오측연장을 없앰
TL_SetExtRight(TL2,False);
#새로운 저점과 이전저점을 연결해 추세선 생성
TL2 = TL_New(var14,var15,var16,var11,var12,var13);
#추세선 우측 연장
TL_SetExtRight(TL2,true);
#추세선 색지정
TL_SetColor(TL2,MAGENTA);
}
}
if C > TL_GetValue(TL1,sdate,stime) and C[1] < TL_GetValue(TL1,sdate[1],Stime[1]) Then
buy();
if C < TL_GetValue(TL2,sdate,stime) and C[1] > TL_GetValue(TL2,sdate[1],Stime[1]) Then
sell();
즐거운 하루되세요
> NH_mo****** 님이 쓴 글입니다.
> 제목 : 시스템/검색식을 알려주세요
> 전략실행차트의
자동추세선(A/T)의
시스템수식과
종목검색식이
필요합니다.