커뮤니티
문의드립니다.
2016-03-11 17:45:40
139
글번호 96182
항상 성실한 답변에 감사드립니다.
아래 검색식은 이곳자료를 이용하여 피보나치 돌파종목을 검색하는 식인데
검색결과와 수치등 엉뚱한 결과가 나옵니다.
바쁘시더라도 검토 부탁드립니다.
감사합니다.
###피보나치 중심선돌파종목 검색
input : N(240);
var : T(0);
var : TL1(0),TL2(0),tx1(0),tx2(0);
var : TL3(0),TL4(0),TL5(0),TL6(0),TL7(0);
if H > highest(H,N)[1] Then{
var1 = Highest(H,N);
var2 = Lowest(L,N);
var3 = var1-var2;
var5 = var1-var3*0.500;
# var6 = var1-var3*0.618;
}
if L < Lowest(L,N)[1] Then{
var1 = Highest(H,N);
var2 = Lowest(L,N);
var3 = var1-var2;
var5 = var2+var3*0.500;
# var6 = var2+var3*0.618;
}
condition1=crossup(c,var5) or (c[1]<var5[1] and c>var5);
#condition2=crossup(c,var6) or (c[1]<var6[1] and c>var6);
if condition1==true then
# Condition2==true then
find(1);
##피보나치 자동 출력
input : N(240);
var : T(0);
var : TL1(0),TL2(0),tx1(0),tx2(0);
var : TL3(0),TL4(0),TL5(0),TL6(0),TL7(0);
if H > highest(H,N)[1] Then{
var1 = Highest(H,N);
var2 = Lowest(L,N);
var3 = var1-var2;
TL_Delete(TL1);
TL_Delete(TL2);
TL_Delete(TL3);
TL_Delete(TL4);
TL_Delete(TL5);
TL_Delete(TL6);
TL_Delete(TL7);
TL1 = TL_New(Sdate[N-1],stime[N-1],var1,sdate,stime,var1);
TL2 = TL_New(Sdate[N-1],stime[N-1],var1-var3*0.236,sdate,stime,var1-var3*0.236);
TL3 = TL_New(Sdate[N-1],stime[N-1],var1-var3*0.382,sdate,stime,var1-var3*0.382);
TL4 = TL_New(Sdate[N-1],stime[N-1],var1-var3*0.500,sdate,stime,var1-var3*0.500);
TL5 = TL_New(Sdate[N-1],stime[N-1],var1-var3*0.618,sdate,stime,var1-var3*0.612);
TL6 = TL_New(Sdate[N-1],stime[N-1],var2,sdate,stime,var2);
TL7 = TL_New(Sdate[N-1],stime[N-1],var1+var3*1.236,sdate,stime,var1+var3*1.236);
TL_SetExtRight(TL1,true);
TL_SetExtRight(TL2,true);
TL_SetExtRight(TL3,true);
TL_SetExtRight(TL4,true);
TL_SetExtRight(TL5,true);
TL_SetExtRight(TL6,true);
TL_SetExtRight(TL7,true);
}
if L < Lowest(L,N)[1] Then{
var1 = Highest(H,N);
var2 = Lowest(L,N);
var3 = var1-var2;
TL_Delete(TL1);
TL_Delete(TL2);
TL_Delete(TL3);
TL_Delete(TL4);
TL_Delete(TL5);
TL_Delete(TL6);
TL_Delete(TL7);
TL1 = TL_New(Sdate[N-1],stime[N-1],var2,sdate,stime,var2);
TL2 = TL_New(Sdate[N-1],stime[N-1],var2+var3*0.236,sdate,stime,var2+var3*0.236);
TL3 = TL_New(Sdate[N-1],stime[N-1],var2+var3*0.382,sdate,stime,var2+var3*0.382);
TL4 = TL_New(Sdate[N-1],stime[N-1],var2+var3*0.500,sdate,stime,var2+var3*0.500);
TL5 = TL_New(Sdate[N-1],stime[N-1],var2+var3*0.618,sdate,stime,var2+var3*0.612);
TL6 = TL_New(Sdate[N-1],stime[N-1],var1,sdate,stime,var1);
TL7 = TL_New(Sdate[N-1],stime[N-1],var2+var3*1.236,sdate,stime,var2+var3*1.236);
TL_SetExtRight(TL1,true);
TL_SetExtRight(TL2,true);
TL_SetExtRight(TL3,true);
TL_SetExtRight(TL4,true);
TL_SetExtRight(TL5,true);
TL_SetExtRight(TL6,true);
TL_SetExtRight(TL7,true);
}
Text_Delete(tx1);
Text_Delete(tx2);
tx1 = Text_New(sdate,stime,var1,NumToStr(var1,2));
tx2 = Text_New(sdate,stime,var2,NumToStr(var2,2));
답변 1
예스스탁 예스스탁 답변
2016-03-14 13:40:54
안녕하세요
예스스탁입니다.
해당식 테스트 해 보았지만
식내용과 검색종목에 이상이 없습니다.
가장 최근에 if조건이 만족한 봉에서
일정기간 최고가와 최저가의 중간값을 기준으로
이후에 해당 값을 돌파하는 종목을 찾게 됩니다.
종목검색은 종목검색시 수식에서 필요한 봉갯수를 자동계산해서
해당 봉갯수 안에서 검색하는데
해당식은 검색에 최소로 필요한 봉갯수가 정확히 산정이 되지 않는 식입니다.
속성에서 검색에 필요한 최소기간에 500봉으로 지정후 검색하시기 바랍니다.
종목검색은 최대 500봉까지 제공됩니다.
아래 지표와 같이 보시기 바랍니다.
input : N(240);
var : T(0);
var : TL1(0),TL2(0),tx1(0),tx2(0);
var : TL3(0),TL4(0),TL5(0),TL6(0),TL7(0);
if H > highest(H,N)[1] Then{
var1 = Highest(H,N);
var2 = Lowest(L,N);
var3 = var1-var2;
var5 = var1-var3*0.500;
#var6 = var1-var3*0.618;
}
if L < Lowest(L,N)[1] Then{
var1 = Highest(H,N);
var2 = Lowest(L,N);
var3 = var1-var2;
var5 = var2+var3*0.500;
# var6 = var2+var3*0.618;
}
plot1(var5);
즐거운 하루되세요
> 부양가족 님이 쓴 글입니다.
> 제목 : 문의드립니다.
> 항상 성실한 답변에 감사드립니다.
아래 검색식은 이곳자료를 이용하여 피보나치 돌파종목을 검색하는 식인데
검색결과와 수치등 엉뚱한 결과가 나옵니다.
바쁘시더라도 검토 부탁드립니다.
감사합니다.
###피보나치 중심선돌파종목 검색
input : N(240);
var : T(0);
var : TL1(0),TL2(0),tx1(0),tx2(0);
var : TL3(0),TL4(0),TL5(0),TL6(0),TL7(0);
if H > highest(H,N)[1] Then{
var1 = Highest(H,N);
var2 = Lowest(L,N);
var3 = var1-var2;
var5 = var1-var3*0.500;
# var6 = var1-var3*0.618;
}
if L < Lowest(L,N)[1] Then{
var1 = Highest(H,N);
var2 = Lowest(L,N);
var3 = var1-var2;
var5 = var2+var3*0.500;
# var6 = var2+var3*0.618;
}
condition1=crossup(c,var5) or (c[1]<var5[1] and c>var5);
#condition2=crossup(c,var6) or (c[1]<var6[1] and c>var6);
if condition1==true then
# Condition2==true then
find(1);
##피보나치 자동 출력
input : N(240);
var : T(0);
var : TL1(0),TL2(0),tx1(0),tx2(0);
var : TL3(0),TL4(0),TL5(0),TL6(0),TL7(0);
if H > highest(H,N)[1] Then{
var1 = Highest(H,N);
var2 = Lowest(L,N);
var3 = var1-var2;
TL_Delete(TL1);
TL_Delete(TL2);
TL_Delete(TL3);
TL_Delete(TL4);
TL_Delete(TL5);
TL_Delete(TL6);
TL_Delete(TL7);
TL1 = TL_New(Sdate[N-1],stime[N-1],var1,sdate,stime,var1);
TL2 = TL_New(Sdate[N-1],stime[N-1],var1-var3*0.236,sdate,stime,var1-var3*0.236);
TL3 = TL_New(Sdate[N-1],stime[N-1],var1-var3*0.382,sdate,stime,var1-var3*0.382);
TL4 = TL_New(Sdate[N-1],stime[N-1],var1-var3*0.500,sdate,stime,var1-var3*0.500);
TL5 = TL_New(Sdate[N-1],stime[N-1],var1-var3*0.618,sdate,stime,var1-var3*0.612);
TL6 = TL_New(Sdate[N-1],stime[N-1],var2,sdate,stime,var2);
TL7 = TL_New(Sdate[N-1],stime[N-1],var1+var3*1.236,sdate,stime,var1+var3*1.236);
TL_SetExtRight(TL1,true);
TL_SetExtRight(TL2,true);
TL_SetExtRight(TL3,true);
TL_SetExtRight(TL4,true);
TL_SetExtRight(TL5,true);
TL_SetExtRight(TL6,true);
TL_SetExtRight(TL7,true);
}
if L < Lowest(L,N)[1] Then{
var1 = Highest(H,N);
var2 = Lowest(L,N);
var3 = var1-var2;
TL_Delete(TL1);
TL_Delete(TL2);
TL_Delete(TL3);
TL_Delete(TL4);
TL_Delete(TL5);
TL_Delete(TL6);
TL_Delete(TL7);
TL1 = TL_New(Sdate[N-1],stime[N-1],var2,sdate,stime,var2);
TL2 = TL_New(Sdate[N-1],stime[N-1],var2+var3*0.236,sdate,stime,var2+var3*0.236);
TL3 = TL_New(Sdate[N-1],stime[N-1],var2+var3*0.382,sdate,stime,var2+var3*0.382);
TL4 = TL_New(Sdate[N-1],stime[N-1],var2+var3*0.500,sdate,stime,var2+var3*0.500);
TL5 = TL_New(Sdate[N-1],stime[N-1],var2+var3*0.618,sdate,stime,var2+var3*0.612);
TL6 = TL_New(Sdate[N-1],stime[N-1],var1,sdate,stime,var1);
TL7 = TL_New(Sdate[N-1],stime[N-1],var2+var3*1.236,sdate,stime,var2+var3*1.236);
TL_SetExtRight(TL1,true);
TL_SetExtRight(TL2,true);
TL_SetExtRight(TL3,true);
TL_SetExtRight(TL4,true);
TL_SetExtRight(TL5,true);
TL_SetExtRight(TL6,true);
TL_SetExtRight(TL7,true);
}
Text_Delete(tx1);
Text_Delete(tx2);
tx1 = Text_New(sdate,stime,var1,NumToStr(var1,2));
tx2 = Text_New(sdate,stime,var2,NumToStr(var2,2));
다음글