커뮤니티
시스템식 변환 부탁
2013-11-06 12:07:47
192
글번호 69259
운영자님 수고하십니다.
아래 ct식을
변환 부탁드립니다.
입력변수 : p1(0.015), p2(0.1), ax1(36), a1(37), p3(0.016), p3(0.096), ax2(28), a2(26), s1(17), s2(1), len1(13)
settestmode
Var1=psar(p1, p2)
Var3=psar(p3, p4)
Var11=abs(highd-highd(1)) '+DM
Var12=abs(lowd-lowd(1)) '-DM
Var13=abs(closed-closed(1)) 'CL
Var14=maxlist(1,Var11,Var12,Var13) 'TR
Var15=mov(Var11, ax1, s) '+DMN
Var16=mov(Var12, ax1, s) '-DMN
Var17=mov(Var14, ax1, s) 'TRN
If Var17<>0 Then
Var18= Var5/var17 '+DI
Var19= Var6/var17 '-DI
End If
If (Var18+var19)<> 0 Then
Var20= (abs(Var18-var19)*100)/(Var18+var19)
Var2=mov(Var20, a1, s) 'ADX
End If
Var31=abs(highd-highd(1)) '+DM
Var32=abs(lowd-lowd(1)) '-DM
Var33=abs(closed-closed(1)) 'CL
Var34=maxlist(1,Var31,Var32,Var33) 'TR
Var35=mov(Var31, ax2, s) '+DMN
Var36=mov(Var32, ax2, s) '-DMN
Var37=mov(Var34, ax2, s) 'TRN
If Var37<>0 Then
Var38= Var35/var37 '+DI
Var39= Var36/var37 '-DI
End If
If (Var38+var39) <>0 Then
Var40= (abs(Var38-var39)*100)/(Var38+var39)
Var4=mov(Var40, a2, s) 'ADX
End If
Var5=sonar(close,s1, s2, Diff)
Var6=mov(Var5, len1,s)
If crossup(close, Var1) Then
Cond1=True
Else
Cond1=False
End If
Cond2= Var2(1)< Var2
If Cond1 Then
If (Cond2(0) And Cond2(1)) Or (Cond2(1) And Cond2(2)) Or (Cond2(2) And Cond2(3)) Then
Call buy("매수", Atmarket)
End If
End If
If crossdn(close, Var3) Then
Cond3=True
Else
Cond3=False
End If
Cond4= Var4(1)>var4(0) '상승 추세로 원할 시 Var4(1)< var4(0)
If Cond3=True Then
If (Cond4 And Cond4(1) And Cond4(2)) Or (Cond4(1) And Cond4(2) And Cond4(3)) Or (Cond4(2) And Cond4(3) And Cond4(4)) Or (Cond4(3) And Cond4(4) And Cond4(5)) Or (Cond4(4) And Cond4(5) And Cond4(6)) Then
Call sell("매도", Atmarket)
End If
End If
If position=-1 Then
If crossup(Var5, Var6) Then 'sonar 신호선교차
Call exitshort("매도청산", Atmarket)
End If
End If
답변 1
예스스탁 예스스탁 답변
2013-11-06 21:10:03
안녕하세요
예스스탁입니다.
input : p1(0.015), p2(0.1), ax1(36), a1(37), p3(0.016), p4(0.096), ax2(28), a2(26), s1(17), s2(1), len1(13);
var : Cond1(false),Cond2(false),Cond3(false),Cond4(false);
Var1=sar(p1, p2);
Var3=sar(p3, p4);
Var11=abs(highd(0)-highd(1));# '+DM
Var12=abs(lowd(0)-lowd(1)); # '-DM
Var13=abs(closed(0)-closed(1));# 'CL
Var14=maxlist(1,Var11,Var12,Var13); #'TR
Var15=ma(Var11, ax1); #'+DMN
Var16=ma(Var12, ax1); # '-DMN
Var17=ma(Var14, ax1); # 'TRN
If Var17<>0 then{
Var18= Var5/var17; #'+DI
Var19= Var6/var17; #'-DI
}
If (Var18+var19)<> 0 then{
Var20= (abs(Var18-var19)*100)/(Var18+var19);
Var2=ma(Var20, a1);# 'ADX
}
Var31=abs(highd(0)-highd(1)); #'+DM
Var32=abs(lowd(0)-lowd(1)) ; # '-DM
Var33=abs(closed(0)-closed(1)); #'CL
Var34=maxlist(1,Var31,Var32,Var33); #'TR
Var35=ma(Var31, ax2); # '+DMN
Var36=ma(Var32, ax2); # '-DMN
Var37=ma(Var34, ax2); # 'TRN
If Var37<>0 then{
Var38= Var35/var37; #'+DI
Var39= Var36/var37; #'-DI
}
If (Var38+var39) <>0 then{
Var40= (abs(Var38-var39)*100)/(Var38+var39);
Var4=ma(Var40, a2);# 'ADX
}
Var5 = ema(c,s1)-ema(C,s1)[s1];
Var6 = ma(Var5, len1);
If crossup(close, Var1) then
Cond1=True;
Else
Cond1=False;
Cond2= Var2[1]< Var2;
If Cond1 then{
If (Cond2 And Cond2[1]) Or (Cond2[1] And Cond2[2]) Or (Cond2[2] And Cond2[3]) then{
buy("매수", Atmarket);
}
}
If CrossDown(close, Var3) then
Cond3=True;
Else
Cond3=False;
Cond4= Var4[1]>var4;# '상승 추세로 원할 시 Var4(1)< var4(0)
If Cond3==True then{
If (Cond4 And Cond4[1] And Cond4[2]) Or (Cond4[1] And Cond4[2] And Cond4[3]) Or (Cond4[2] And Cond4[3] And Cond4[4])
Or (Cond4[3] And Cond4[4] And Cond4[5]) Or (Cond4[4] And Cond4[5] And Cond4[6]) then{
sell("매도", Atmarket);
}
}
If MarketPosition==-1 then{
If crossup(Var5, Var6) then{# 'sonar 신호선교차
exitshort("매도청산", Atmarket);
}
}
즐거운 하루되세요
> 자아준 님이 쓴 글입니다.
> 제목 : 시스템식 변환 부탁
> 운영자님 수고하십니다.
아래 ct식을
변환 부탁드립니다.
입력변수 : p1(0.015), p2(0.1), ax1(36), a1(37), p3(0.016), p3(0.096), ax2(28), a2(26), s1(17), s2(1), len1(13)
settestmode
Var1=psar(p1, p2)
Var3=psar(p3, p4)
Var11=abs(highd-highd(1)) '+DM
Var12=abs(lowd-lowd(1)) '-DM
Var13=abs(closed-closed(1)) 'CL
Var14=maxlist(1,Var11,Var12,Var13) 'TR
Var15=mov(Var11, ax1, s) '+DMN
Var16=mov(Var12, ax1, s) '-DMN
Var17=mov(Var14, ax1, s) 'TRN
If Var17<>0 Then
Var18= Var5/var17 '+DI
Var19= Var6/var17 '-DI
End If
If (Var18+var19)<> 0 Then
Var20= (abs(Var18-var19)*100)/(Var18+var19)
Var2=mov(Var20, a1, s) 'ADX
End If
Var31=abs(highd-highd(1)) '+DM
Var32=abs(lowd-lowd(1)) '-DM
Var33=abs(closed-closed(1)) 'CL
Var34=maxlist(1,Var31,Var32,Var33) 'TR
Var35=mov(Var31, ax2, s) '+DMN
Var36=mov(Var32, ax2, s) '-DMN
Var37=mov(Var34, ax2, s) 'TRN
If Var37<>0 Then
Var38= Var35/var37 '+DI
Var39= Var36/var37 '-DI
End If
If (Var38+var39) <>0 Then
Var40= (abs(Var38-var39)*100)/(Var38+var39)
Var4=mov(Var40, a2, s) 'ADX
End If
Var5=sonar(close,s1, s2, Diff)
Var6=mov(Var5, len1,s)
If crossup(close, Var1) Then
Cond1=True
Else
Cond1=False
End If
Cond2= Var2(1)< Var2
If Cond1 Then
If (Cond2(0) And Cond2(1)) Or (Cond2(1) And Cond2(2)) Or (Cond2(2) And Cond2(3)) Then
Call buy("매수", Atmarket)
End If
End If
If crossdn(close, Var3) Then
Cond3=True
Else
Cond3=False
End If
Cond4= Var4(1)>var4(0) '상승 추세로 원할 시 Var4(1)< var4(0)
If Cond3=True Then
If (Cond4 And Cond4(1) And Cond4(2)) Or (Cond4(1) And Cond4(2) And Cond4(3)) Or (Cond4(2) And Cond4(3) And Cond4(4)) Or (Cond4(3) And Cond4(4) And Cond4(5)) Or (Cond4(4) And Cond4(5) And Cond4(6)) Then
Call sell("매도", Atmarket)
End If
End If
If position=-1 Then
If crossup(Var5, Var6) Then 'sonar 신호선교차
Call exitshort("매도청산", Atmarket)
End If
End If
다음글
이전글