커뮤니티
시스템식 부탁드립니다
2018-08-07 12:41:28
128
글번호 121169
지표입니다
1.밑에 지표을 시스템식으로 부탁드립니다.
2.추가 부탁드릴것이있습니다. 혹시 스토케스틱도(12.6.6) 같이 병합할수있으면 병합 시스템식 도 부탁드립니다.
input : pAF(0.02), pAFMAX(0.2);
Var : vAf(0), vNewAf(0), vMinAf(0.02), vEp(0), vPep(0),
vSar(0), vSarp(0), vTrend(1), vResult(0);
If BarIndex == 1 Then
Begin
if C > C[1] Then
Begin
vEp = H[1];
vPep = H[1];
vTrend = 1;
vSar = L[1];
vSarp = L[1];
End
Else
Begin
vEp = L[1];
vPep = L[1];
vTrend = -1;
vSar = H[1];
vSarp = H[1];
End;
vNewAf = vMinAf;
vResult = vSar + (vEp - vSar) * pAF;
End
Else
Begin
vSar = vSar[1] + vNewAf * (vEp - vSar[1]);
vResult = vSar;
vPep = vEp;
if vTrend == 1 Then //상승추세
Begin
if vSar > L Then
Begin
vSar = vEp;
vResult = vSar;
vEp = L;
vNewAf = vMinAf;
vTrend = -1;
End
Else if H > vPep Then
Begin
vEp = H;
vNewAf = min(vNewAf + pAF, pAFMAX);
End;
End
Else //하락추세
Begin
if vSar < h Then
Begin
vSar = vEp;
vResult = vSar;
vEp = H;
vPep = vEp;
vNewAf = vMinAf;
vTrend = 1;
End
Else if L < vPep Then
Begin
vEp = L;
vNewAf = min(vNewAf + pAF, pAFMAX);
End;
End;
End;
plot1(vResult);
답변 1
예스스탁 예스스탁 답변
2018-08-07 16:06:38
안녕하세요
예스스탁입니다.
1
시스템식의 경우 진입청산 내용을 정확히 지정해 주셔야 합니다.
파라볼릭과 비슷한 내용이므로 종가와 크로스로 작성해 드립니다.
input : pAF(0.02), pAFMAX(0.2);
Var : vAf(0), vNewAf(0), vMinAf(0.02), vEp(0), vPep(0),
vSar(0), vSarp(0), vTrend(1), vResult(0);
If BarIndex == 1 Then
Begin
if C > C[1] Then
Begin
vEp = H[1];
vPep = H[1];
vTrend = 1;
vSar = L[1];
vSarp = L[1];
End
Else
Begin
vEp = L[1];
vPep = L[1];
vTrend = -1;
vSar = H[1];
vSarp = H[1];
End;
vNewAf = vMinAf;
vResult = vSar + (vEp - vSar) * pAF;
End
Else
Begin
vSar = vSar[1] + vNewAf * (vEp - vSar[1]);
vResult = vSar;
vPep = vEp;
if vTrend == 1 Then //상승추세
Begin
if vSar > L Then
Begin
vSar = vEp;
vResult = vSar;
vEp = L;
vNewAf = vMinAf;
vTrend = -1;
End
Else if H > vPep Then
Begin
vEp = H;
vNewAf = min(vNewAf + pAF, pAFMAX);
End;
End
Else //하락추세
Begin
if vSar < h Then
Begin
vSar = vEp;
vResult = vSar;
vEp = H;
vPep = vEp;
vNewAf = vMinAf;
vTrend = 1;
End
Else if L < vPep Then
Begin
vEp = L;
vNewAf = min(vNewAf + pAF, pAFMAX);
End;
End;
End;
if crossup(c,vResult) Then
buy();
if CrossDown(c,vResult) Then
sell();
2
스토케스틱 병합은 내용이 불분명합니다.
매수는 k가 D보다 클때로, 매도는 K가 D보다 작을때로 지정했습니다.
input : pAF(0.02), pAFMAX(0.2),sto1(12),sto2(5),sto3(5);
Var : vAf(0), vNewAf(0), vMinAf(0.02), vEp(0), vPep(0),
vSar(0), vSarp(0), vTrend(1), vResult(0);
var : stok(0),stod(0);
If BarIndex == 1 Then
Begin
if C > C[1] Then
Begin
vEp = H[1];
vPep = H[1];
vTrend = 1;
vSar = L[1];
vSarp = L[1];
End
Else
Begin
vEp = L[1];
vPep = L[1];
vTrend = -1;
vSar = H[1];
vSarp = H[1];
End;
vNewAf = vMinAf;
vResult = vSar + (vEp - vSar) * pAF;
End
Else
Begin
vSar = vSar[1] + vNewAf * (vEp - vSar[1]);
vResult = vSar;
vPep = vEp;
if vTrend == 1 Then //상승추세
Begin
if vSar > L Then
Begin
vSar = vEp;
vResult = vSar;
vEp = L;
vNewAf = vMinAf;
vTrend = -1;
End
Else if H > vPep Then
Begin
vEp = H;
vNewAf = min(vNewAf + pAF, pAFMAX);
End;
End
Else //하락추세
Begin
if vSar < h Then
Begin
vSar = vEp;
vResult = vSar;
vEp = H;
vPep = vEp;
vNewAf = vMinAf;
vTrend = 1;
End
Else if L < vPep Then
Begin
vEp = L;
vNewAf = min(vNewAf + pAF, pAFMAX);
End;
End;
End;
stok = StochasticsK(sto1,sto2);
stod = StochasticsD(sto1,sto2,sto3);
if crossup(c,vResult) Then
buy();
if CrossDown(c,vResult) Then
sell();
즐거운 하루되세요
> 브리아나금 님이 쓴 글입니다.
> 제목 : 시스템식 부탁드립니다
> 지표입니다
1.밑에 지표을 시스템식으로 부탁드립니다.
2.추가 부탁드릴것이있습니다. 혹시 스토케스틱도(12.6.6) 같이 병합할수있으면 병합 시스템식 도 부탁드립니다.
input : pAF(0.02), pAFMAX(0.2);
Var : vAf(0), vNewAf(0), vMinAf(0.02), vEp(0), vPep(0),
vSar(0), vSarp(0), vTrend(1), vResult(0);
If BarIndex == 1 Then
Begin
if C > C[1] Then
Begin
vEp = H[1];
vPep = H[1];
vTrend = 1;
vSar = L[1];
vSarp = L[1];
End
Else
Begin
vEp = L[1];
vPep = L[1];
vTrend = -1;
vSar = H[1];
vSarp = H[1];
End;
vNewAf = vMinAf;
vResult = vSar + (vEp - vSar) * pAF;
End
Else
Begin
vSar = vSar[1] + vNewAf * (vEp - vSar[1]);
vResult = vSar;
vPep = vEp;
if vTrend == 1 Then //상승추세
Begin
if vSar > L Then
Begin
vSar = vEp;
vResult = vSar;
vEp = L;
vNewAf = vMinAf;
vTrend = -1;
End
Else if H > vPep Then
Begin
vEp = H;
vNewAf = min(vNewAf + pAF, pAFMAX);
End;
End
Else //하락추세
Begin
if vSar < h Then
Begin
vSar = vEp;
vResult = vSar;
vEp = H;
vPep = vEp;
vNewAf = vMinAf;
vTrend = 1;
End
Else if L < vPep Then
Begin
vEp = L;
vNewAf = min(vNewAf + pAF, pAFMAX);
End;
End;
End;
plot1(vResult);
다음글
이전글