커뮤니티
수식부탁드립니다
2009-09-09 19:05:30
785
글번호 24652
변수: len,len1,len2,multi,delay,s1,s2
Var50 = (hhv(1, high,len) + llv(1, low,len)) / 2 '전환선
Var49 = (hhv(1, high,len1) + llv(1, low,len1)) / 2 '기준선
Var48=(Var50+var49)/2 '앞쪽의 선행스팬1
Var47 = (hhv(1, high, len1*2) + llv(1, low, len1*2) ) / 2 '앞쪽의 선행스팬2
Var46=var47(len1-1) '현재봉에서의 선행스팬2
Var45=var48(len1-1) '현재봉에서의 선행스팬1
Var1=abs(Var45-var46) '구름대 폭
Var2=high-low '고저차
Var3=mov(Var2,len2,S)*multi '고저차의 이평 승수배
Cond1= tdate=exitdate(1) And position(1)=1 '최근청산날짜가 금일이고 직전이 매수
Cond2= tdate=exitdate(1) And position(1)=-1 '최근청산날짜가 금일이고 직전이 매도
If Var1<var3 Then '구름대폭과 고저차이평의 승수배 비교
Var10=1
Else
Var10=0
End If
If hhv(1,Var10,delay)=1 Then '기간중 최고 var10이 1이면
If ttime<1500 Then
If Cond1=False Then
Call buy("매수",Atstop,Def,opend+(highd(1)-lowd(1))*s1) '지정가 상향돌파시 매수
End If
If Cond2=False Then
Call sell("매도",Atstop,Def,opend-(highd(1)-lowd(1))*s1) '지정가 하향돌파시 매도
End If
End If
End If
'청산
If position<>0 Then
Call exitlong("매수청산",Atstop,hhv(1,high,barnumsinceentry+1)-atr(20)*s2)
Call exitshort("매도청산",Atstop,llv(1,low,barnumsinceentry+1)+atr(20)*s2)
End If
7th 감각 시스템 트리이딩 예제인데 ct에서 yt로 수식좀 변환해주세요~^^*.
답변 1
예스스탁 예스스탁 답변
2009-09-10 08:49:38
안녕하세요
예스스탁입니다.
외부변수름 모두 1로 선언했습니다.
내용과 맞게 변경하시기 바랍니다.
input : len(1),len1(1),len2(1),multi(1),delay(1),s1(1),s2(1);
var : Cond1(False),Cond2(False);
Var50 = (NthHighest(1, high,len) + NthLowest(1, low,len)) / 2; # '전환선
Var49 = (NthHighest(1, high,len1) + NthLowest(1, low,len1)) / 2 ; # '기준선
Var48=(Var50+var49)/2; # '앞쪽의 선행스팬1
Var47 = (NthHighest(1, high, len1*2) + NthLowest(1, low, len1*2) ) / 2; # '앞쪽의 선행스팬2
Var46 =var47[len1-1]; #'현재봉에서의 선행스팬2
Var45 =var48[len1-1]; #'현재봉에서의 선행스팬1
Var1=abs(Var45-var46); #'구름대 폭
Var2=high-low; #'고저차
Var3=Ma(Var2,len2)*multi; #'고저차의 이평 승수배
Cond1= sDate==exitdate(1) And MarketPosition(1)==1; #'최근청산날짜가 금일이고 직전이 매수
Cond2= sDate==exitdate(1) And MarketPosition(1)==-1 ; #'최근청산날짜가 금일이고 직전이 매도
If Var1<var3 Then #'구름대폭과 고저차이평의 승수배 비교
Var10=1;
Else
Var10=0;
If NthHighest(1,Var10,delay)==1 Then{ #'기간중 최고 var10이 1이면
If sTime<150000 Then{
If Cond1=False Then
buy("매수",Atstop,dayopen+(dayhigh(1)-daylow(1))*s1); #'지정가 상향돌파시 매수
If Cond2=False Then
sell("매도",Atstop,dayopen-(dayhigh(1)-daylow(1))*s1); #'지정가 하향돌파시 매도
}
}
#'청산
If MarketPosition<>0 Then{
exitlong("매수청산",Atstop,NthHighest(1,high,BarsSinceEntry+1)-atr(20)*s2);
exitshort("매도청산",Atstop,NthLowest(1,low,BarsSinceEntry+1)+atr(20)*s2);
}
즐거운 하루되세요
> 천상나루 님이 쓴 글입니다.
> 제목 : 수식부탁드립니다
> 변수: len,len1,len2,multi,delay,s1,s2
Var50 = (hhv(1, high,len) + llv(1, low,len)) / 2 '전환선
Var49 = (hhv(1, high,len1) + llv(1, low,len1)) / 2 '기준선
Var48=(Var50+var49)/2 '앞쪽의 선행스팬1
Var47 = (hhv(1, high, len1*2) + llv(1, low, len1*2) ) / 2 '앞쪽의 선행스팬2
Var46=var47(len1-1) '현재봉에서의 선행스팬2
Var45=var48(len1-1) '현재봉에서의 선행스팬1
Var1=abs(Var45-var46) '구름대 폭
Var2=high-low '고저차
Var3=mov(Var2,len2,S)*multi '고저차의 이평 승수배
Cond1= tdate=exitdate(1) And position(1)=1 '최근청산날짜가 금일이고 직전이 매수
Cond2= tdate=exitdate(1) And position(1)=-1 '최근청산날짜가 금일이고 직전이 매도
If Var1<var3 Then '구름대폭과 고저차이평의 승수배 비교
Var10=1
Else
Var10=0
End If
If hhv(1,Var10,delay)=1 Then '기간중 최고 var10이 1이면
If ttime<1500 Then
If Cond1=False Then
Call buy("매수",Atstop,Def,opend+(highd(1)-lowd(1))*s1) '지정가 상향돌파시 매수
End If
If Cond2=False Then
Call sell("매도",Atstop,Def,opend-(highd(1)-lowd(1))*s1) '지정가 하향돌파시 매도
End If
End If
End If
'청산
If position<>0 Then
Call exitlong("매수청산",Atstop,hhv(1,high,barnumsinceentry+1)-atr(20)*s2)
Call exitshort("매도청산",Atstop,llv(1,low,barnumsinceentry+1)+atr(20)*s2)
End If
7th 감각 시스템 트리이딩 예제인데 ct에서 yt로 수식좀 변환해주세요~^^*.
다음글
이전글