커뮤니티

수식부탁드립니다

프로필 이미지
천상나루
2009-09-09 19:05:30
732
글번호 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 Var10 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 Var10 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 Var10 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로 수식좀 변환해주세요~^^*.