커뮤니티
변환부탁드립니다.
2014-03-10 23:01:17
293
글번호 73376
대신프로그램 샘플입니다.
에스트레이더 랭귀지로 변환부탁드립니다.
Var1= slowk(40,24)
Var2= slowd(40,24,12)
Var3= mov(close,5,s)
Var4= mov(close,10,s)
Set indi=var("indi",0)
indi(0)=slowk(k40,k24)
Var10=(indi-indi(1))
Var11=atn(Var10)*180/pi '지표의 각도
Cond1=var5>=80 And Var5(1)>=80 And Var5 > Var5(1)
Cond2=var5<=20 And Var5(1)<=20 And Var5 < Var5(1)
If position=0 Then
If Cond2=False Then
If Var1<=45 Then
If crossup(Var1,Var2) Then
Call buy("매수",Atmarket)
End If
End If
End If
If Cond1=False Then
If Var1>=55 Then
If crossdn(Var1,Var2) Then
Call sell("매도",Atmarket)
End If
End If
End If
If Cond1=True Then
If crossup(Var3,Var4) Then
Call buy("매수1",Atmarket)
End If
End If
If Cond2=True Then
If crossdn(Var3,Var4) Then
Call sell("매도1",Atmarket)
End If
End If
If Var1>var1(1) Then
If Var3>var3(1) And crossup(Var11,0) Then
Call buy("매수2",Atmarket)
End If
End If
If Var1<var1(1) Then
If Var3<var3(1) And crossdn(Var11,0) Then
Call sell("매도2",Atmarket)
End If
End If
End If
If position=-1 Then
If Cond2=False Then
If Var1<=45 Then
If crossup(Var1,Var2) Then
Call exitshort("매도청산",Atmarket)
End If
End If
End If
If Cond2=True Then
If crossup(Var3,Var4) Then
Call exitshort("매도청산1",Atmarket)
End If
End If
If Var1>var1(1) Then
If Var3>var3(1) And crossup(Var11,0) Then
Call exitshort("매도청산2",Atmarket)
End If
End If
End If
답변 1
예스스탁 예스스탁 답변
2014-03-11 15:37:17
안녕하세요
예스스탁입니다.
input : K40(40),K24(24);
var : indi(0),cond1(false),cond2(false);
Var1= StochasticsK(40,24);
Var2= StochasticsD(40,24,12);
Var3= ma(close,5);
Var4= ma(close,10);
indi = slowk(k40,k24);
Var10 = (indi-indi[1]);
Var11 = ArcTangent(Var10)*180/pie;//지표의 각도
Cond1=var5>=80 And Var5[1]>=80 And Var5 > Var5[1];
Cond2=var5<=20 And Var5[1]<=20 And Var5 < Var5[1];
If MarketPosition == 0 then{
If Cond2==False then{
If Var1<=45 then{
If crossup(Var1,Var2) then{
buy("매수",Atmarket);
}
}
}
If Cond1==False then{
If Var1>=55 then{
If crossdown(Var1,Var2) then{
sell("매도",Atmarket);
}
}
}
If Cond1==True then{
If crossup(Var3,Var4) then{
buy("매수1",Atmarket);
}
}
If Cond2==True then{
If crossdown(Var3,Var4) then{
sell("매도1",Atmarket);
}
}
If Var1>var1[1] then{
If Var3>var3[1] And crossup(Var11,0) then{
buy("매수2",Atmarket);
}
}
If Var1<var1[1] then{
If Var3<var3[1] And crossdown(Var11,0) then{
sell("매도2",Atmarket);
}
}
}
If MarketPosition==-1 then{
If Cond2==False then{
If Var1<=45 then{
If crossup(Var1,Var2) then{
exitshort("매도청산",Atmarket);
}
}
}
If Cond2==True then{
If crossup(Var3,Var4) then{
exitshort("매도청산1",Atmarket);
}
}
If Var1>var1[1] then{
If Var3>var3[1] And crossup(Var11,0) then{
exitshort("매도청산2",Atmarket);
}
}
}
즐거운 하루되세요
> 솔로몬의축복 님이 쓴 글입니다.
> 제목 : 변환부탁드립니다.
> 대신프로그램 샘플입니다.
에스트레이더 랭귀지로 변환부탁드립니다.
Var1= slowk(40,24)
Var2= slowd(40,24,12)
Var3= mov(close,5,s)
Var4= mov(close,10,s)
Set indi=var("indi",0)
indi(0)=slowk(k40,k24)
Var10=(indi-indi(1))
Var11=atn(Var10)*180/pi '지표의 각도
Cond1=var5>=80 And Var5(1)>=80 And Var5 > Var5(1)
Cond2=var5<=20 And Var5(1)<=20 And Var5 < Var5(1)
If position=0 Then
If Cond2=False Then
If Var1<=45 Then
If crossup(Var1,Var2) Then
Call buy("매수",Atmarket)
End If
End If
End If
If Cond1=False Then
If Var1>=55 Then
If crossdn(Var1,Var2) Then
Call sell("매도",Atmarket)
End If
End If
End If
If Cond1=True Then
If crossup(Var3,Var4) Then
Call buy("매수1",Atmarket)
End If
End If
If Cond2=True Then
If crossdn(Var3,Var4) Then
Call sell("매도1",Atmarket)
End If
End If
If Var1>var1(1) Then
If Var3>var3(1) And crossup(Var11,0) Then
Call buy("매수2",Atmarket)
End If
End If
If Var1<var1(1) Then
If Var3<var3(1) And crossdn(Var11,0) Then
Call sell("매도2",Atmarket)
End If
End If
End If
If position=-1 Then
If Cond2=False Then
If Var1<=45 Then
If crossup(Var1,Var2) Then
Call exitshort("매도청산",Atmarket)
End If
End If
End If
If Cond2=True Then
If crossup(Var3,Var4) Then
Call exitshort("매도청산1",Atmarket)
End If
End If
If Var1>var1(1) Then
If Var3>var3(1) And crossup(Var11,0) Then
Call exitshort("매도청산2",Atmarket)
End If
End If
End If