커뮤니티
문의 드립니다
2019-08-01 15:47:51
219
글번호 130855
input : ntime1(20),P1(20),P2(100),P3(20),P4(1),P5(128),P6(256);
var : S1(0),D1(0),TM(0),TF(0),cnt(0);
var : sum1(0),sum11(0),sum12(0),sum13(0),sum14(0),mav1(0),mav11(0),mav12(0),mav13(0),mav14(0);
var : sum2(0),sum21(0),sum22(0),sum23(0),sum24(0),mav2(0),mav21(0),mav22(0),mav23(0),mav24(0);
var : sum3(0),sum31(0),sum32(0),sum33(0),sum34(0),mav3(0),mav31(0),mav32(0),mav33(0),mav34(0);
var : sum4(0),sum41(0),sum42(0),sum43(0),sum44(0),mav4(0),mav41(0),mav42(0),mav43(0),mav44(0);
var : sum5(0),sum51(0),sum52(0),sum53(0),sum54(0),mav5(0),mav51(0),mav52(0),mav53(0),mav54(0);
var : sum6(0),sum61(0),sum62(0),sum63(0),sum64(0),mav6(0),mav61(0),mav62(0),mav63(0),mav64(0);
Array : C1[500](0);
if Bdate != Bdate[1] Then
{
S1 = TimeToMinutes(stime);
D1 = sdate;
}
if D1 > 0 then
{
if sdate == D1 Then
TM = TimeToMinutes(stime)-S1;
Else
TM = TimeToMinutes(stime)+1440-S1;
TF = TM%ntime1;
if Bdate != Bdate[1] or (Bdate == Bdate[1] and TF < TF[1]) Then
{
for cnt = 1 to 499
{
C1[cnt] = C1[cnt-1][1];
}
}
C1[0] = C;
if C1[P6+4] > 0 then
{
sum1 = 0;
sum11 = 0;
sum12 = 0;
sum13 = 0;
sum14 = 0;
sum2 = 0;
sum21 = 0;
sum22 = 0;
sum23 = 0;
sum24 = 0;
sum3 = 0;
sum31 = 0;
sum32 = 0;
sum33 = 0;
sum34 = 0;
sum4 = 0;
sum41 = 0;
sum42 = 0;
sum43 = 0;
sum44 = 0;
sum5 = 0;
sum51 = 0;
sum52 = 0;
sum53 = 0;
sum54 = 0;
sum6 = 0;
sum61 = 0;
sum62 = 0;
sum63 = 0;
sum64 = 0;
for cnt = 0 to P6-1
{
if cnt < P1 then
{
sum1 = sum1+C1[cnt];
sum11 = sum11+C1[cnt+1];
sum12 = sum12+C1[cnt+2];
sum13 = sum13+C1[cnt+3];
sum14 = sum14+C1[cnt+4];
}
if cnt < P2 then
{
sum2 = sum2+C1[cnt];
sum21 = sum21+C1[cnt+1];
sum22 = sum22+C1[cnt+2];
sum23 = sum23+C1[cnt+3];
sum24 = sum24+C1[cnt+4];
}
if cnt < P3 then
{
sum3 = sum3+C1[cnt];
sum31 = sum31+C1[cnt+1];
sum32 = sum32+C1[cnt+2];
sum33 = sum33+C1[cnt+3];
sum34 = sum34+C1[cnt+4];
}
if cnt < P4 then
{
sum4 = sum4+C1[cnt];
sum41 = sum41+C1[cnt+1];
sum42 = sum42+C1[cnt+2];
sum43 = sum43+C1[cnt+3];
sum44 = sum44+C1[cnt+4];
}
if cnt < P5 then
{
sum5 = sum5+C1[cnt];
sum51 = sum51+C1[cnt+1];
sum52 = sum52+C1[cnt+2];
sum53 = sum53+C1[cnt+3];
sum54 = sum54+C1[cnt+4];
}
if cnt < P6 then
{
sum6 = sum6+C1[cnt];
sum61 = sum61+C1[cnt+1];
sum62 = sum62+C1[cnt+2];
sum63 = sum63+C1[cnt+3];
sum64 = sum64+C1[cnt+4];
}
}
mav1 = sum1/P1;
mav11 = sum11/P1;
mav12 = sum12/P1;
mav13 = sum13/P1;
mav14 = sum14/P1;
mav2 = sum2/P2;
mav21 = sum21/P2;
mav22 = sum22/P2;
mav23 = sum23/P2;
mav24 = sum24/P2;
mav3 = sum3/P3;
mav31 = sum31/P3;
mav32 = sum32/P3;
mav33 = sum33/P3;
mav34 = sum34/P3;
mav4 = sum4/P4;
mav41 = sum41/P4;
mav42 = sum42/P4;
mav43 = sum43/P4;
mav44 = sum44/P4;
mav5 = sum5/P5;
mav51 = sum51/P5;
mav52 = sum52/P5;
mav53 = sum53/P5;
mav54 = sum54/P5;
mav6 = sum6/P6;
mav61 = sum61/P6;
mav62 = sum62/P6;
mav63 = sum63/P6;
mav64 = sum64/P6;
if sum13 > sum12 and sum12 < sum11 and sum11 < sum1 Then
buy();
if sum13 < sum12 and sum12 > sum11 and sum11 > sum1 Then
sell();
}
}
위 시스템 식에서
p1이평선20일선이 p2이평선 100일선 크로스업일 때 매수
p1이평선20일선이 p2이평선 100일선 크로스다운일 때 매도
시스템식으로 변경하여 주시기 바랍니다
감사합니다
답변 3
예스스탁 예스스탁 답변
2019-08-01 16:23:38
안녕하세요
예스스탁입니다.
input : ntime1(20),P1(20),P2(100);
var : S1(0),D1(0),TM(0),TF(0),cnt(0);
var : sum1(0),sum11(0),sum12(0),sum13(0),sum14(0),mav1(0),mav11(0),mav12(0),mav13(0),mav14(0);
var : sum2(0),sum21(0),sum22(0),sum23(0),sum24(0),mav2(0),mav21(0),mav22(0),mav23(0),mav24(0);
Array : C1[110](0);
if Bdate != Bdate[1] Then
{
S1 = TimeToMinutes(stime);
D1 = sdate;
}
if D1 > 0 then
{
if sdate == D1 Then
TM = TimeToMinutes(stime)-S1;
Else
TM = TimeToMinutes(stime)+1440-S1;
TF = TM%ntime1;
if Bdate != Bdate[1] or (Bdate == Bdate[1] and TF < TF[1]) Then
{
for cnt = 1 to 109
{
C1[cnt] = C1[cnt-1][1];
}
}
C1[0] = C;
if C1[P1] > 0 then
{
sum1 = 0;
sum11 = 0;
for cnt = 0 to P1-1
{
sum1 = sum1+C1[cnt];
sum11 = sum11+C1[cnt+1];
}
}
if C1[P2] > 0 then
{
sum2 = 0;
sum21 = 0;
for cnt = 0 to P2-1
{
sum2 = sum1+C1[cnt];
sum21 = sum11+C1[cnt+1];
}
}
if mav1 > mav2 and mav11 <= mav12 Then
buy();
if mav1 < mav2 and mav11 >= mav12 Then
sell();
}
즐거운 하루되세요
> 남산 님이 쓴 글입니다.
> 제목 : 문의 드립니다
> input : ntime1(20),P1(20),P2(100),P3(20),P4(1),P5(128),P6(256);
var : S1(0),D1(0),TM(0),TF(0),cnt(0);
var : sum1(0),sum11(0),sum12(0),sum13(0),sum14(0),mav1(0),mav11(0),mav12(0),mav13(0),mav14(0);
var : sum2(0),sum21(0),sum22(0),sum23(0),sum24(0),mav2(0),mav21(0),mav22(0),mav23(0),mav24(0);
var : sum3(0),sum31(0),sum32(0),sum33(0),sum34(0),mav3(0),mav31(0),mav32(0),mav33(0),mav34(0);
var : sum4(0),sum41(0),sum42(0),sum43(0),sum44(0),mav4(0),mav41(0),mav42(0),mav43(0),mav44(0);
var : sum5(0),sum51(0),sum52(0),sum53(0),sum54(0),mav5(0),mav51(0),mav52(0),mav53(0),mav54(0);
var : sum6(0),sum61(0),sum62(0),sum63(0),sum64(0),mav6(0),mav61(0),mav62(0),mav63(0),mav64(0);
Array : C1[500](0);
if Bdate != Bdate[1] Then
{
S1 = TimeToMinutes(stime);
D1 = sdate;
}
if D1 > 0 then
{
if sdate == D1 Then
TM = TimeToMinutes(stime)-S1;
Else
TM = TimeToMinutes(stime)+1440-S1;
TF = TM%ntime1;
if Bdate != Bdate[1] or (Bdate == Bdate[1] and TF < TF[1]) Then
{
for cnt = 1 to 499
{
C1[cnt] = C1[cnt-1][1];
}
}
C1[0] = C;
if C1[P6+4] > 0 then
{
sum1 = 0;
sum11 = 0;
sum12 = 0;
sum13 = 0;
sum14 = 0;
sum2 = 0;
sum21 = 0;
sum22 = 0;
sum23 = 0;
sum24 = 0;
sum3 = 0;
sum31 = 0;
sum32 = 0;
sum33 = 0;
sum34 = 0;
sum4 = 0;
sum41 = 0;
sum42 = 0;
sum43 = 0;
sum44 = 0;
sum5 = 0;
sum51 = 0;
sum52 = 0;
sum53 = 0;
sum54 = 0;
sum6 = 0;
sum61 = 0;
sum62 = 0;
sum63 = 0;
sum64 = 0;
for cnt = 0 to P6-1
{
if cnt < P1 then
{
sum1 = sum1+C1[cnt];
sum11 = sum11+C1[cnt+1];
sum12 = sum12+C1[cnt+2];
sum13 = sum13+C1[cnt+3];
sum14 = sum14+C1[cnt+4];
}
if cnt < P2 then
{
sum2 = sum2+C1[cnt];
sum21 = sum21+C1[cnt+1];
sum22 = sum22+C1[cnt+2];
sum23 = sum23+C1[cnt+3];
sum24 = sum24+C1[cnt+4];
}
if cnt < P3 then
{
sum3 = sum3+C1[cnt];
sum31 = sum31+C1[cnt+1];
sum32 = sum32+C1[cnt+2];
sum33 = sum33+C1[cnt+3];
sum34 = sum34+C1[cnt+4];
}
if cnt < P4 then
{
sum4 = sum4+C1[cnt];
sum41 = sum41+C1[cnt+1];
sum42 = sum42+C1[cnt+2];
sum43 = sum43+C1[cnt+3];
sum44 = sum44+C1[cnt+4];
}
if cnt < P5 then
{
sum5 = sum5+C1[cnt];
sum51 = sum51+C1[cnt+1];
sum52 = sum52+C1[cnt+2];
sum53 = sum53+C1[cnt+3];
sum54 = sum54+C1[cnt+4];
}
if cnt < P6 then
{
sum6 = sum6+C1[cnt];
sum61 = sum61+C1[cnt+1];
sum62 = sum62+C1[cnt+2];
sum63 = sum63+C1[cnt+3];
sum64 = sum64+C1[cnt+4];
}
}
mav1 = sum1/P1;
mav11 = sum11/P1;
mav12 = sum12/P1;
mav13 = sum13/P1;
mav14 = sum14/P1;
mav2 = sum2/P2;
mav21 = sum21/P2;
mav22 = sum22/P2;
mav23 = sum23/P2;
mav24 = sum24/P2;
mav3 = sum3/P3;
mav31 = sum31/P3;
mav32 = sum32/P3;
mav33 = sum33/P3;
mav34 = sum34/P3;
mav4 = sum4/P4;
mav41 = sum41/P4;
mav42 = sum42/P4;
mav43 = sum43/P4;
mav44 = sum44/P4;
mav5 = sum5/P5;
mav51 = sum51/P5;
mav52 = sum52/P5;
mav53 = sum53/P5;
mav54 = sum54/P5;
mav6 = sum6/P6;
mav61 = sum61/P6;
mav62 = sum62/P6;
mav63 = sum63/P6;
mav64 = sum64/P6;
if sum13 > sum12 and sum12 < sum11 and sum11 < sum1 Then
buy();
if sum13 < sum12 and sum12 > sum11 and sum11 > sum1 Then
sell();
}
}
위 시스템 식에서
p1이평선20일선이 p2이평선 100일선 크로스업일 때 매수
p1이평선20일선이 p2이평선 100일선 크로스다운일 때 매도
시스템식으로 변경하여 주시기 바랍니다
감사합니다
남산
2019-08-02 12:57:00
p1이평선20일선이 p2이평선 100일선 크로스업일 때 매수
p1이평선20일선이 p2이평선 100일선 크로스다운일 때 매도
시스템 수식을 적용하니 무응답입니다
다시한번 봐주세요
감사합니다
> 예스스탁 님이 쓴 글입니다.
> 제목 : Re : 문의 드립니다
> 안녕하세요
예스스탁입니다.
input : ntime1(20),P1(20),P2(100);
var : S1(0),D1(0),TM(0),TF(0),cnt(0);
var : sum1(0),sum11(0),sum12(0),sum13(0),sum14(0),mav1(0),mav11(0),mav12(0),mav13(0),mav14(0);
var : sum2(0),sum21(0),sum22(0),sum23(0),sum24(0),mav2(0),mav21(0),mav22(0),mav23(0),mav24(0);
Array : C1[110](0);
if Bdate != Bdate[1] Then
{
S1 = TimeToMinutes(stime);
D1 = sdate;
}
if D1 > 0 then
{
if sdate == D1 Then
TM = TimeToMinutes(stime)-S1;
Else
TM = TimeToMinutes(stime)+1440-S1;
TF = TM%ntime1;
if Bdate != Bdate[1] or (Bdate == Bdate[1] and TF < TF[1]) Then
{
for cnt = 1 to 109
{
C1[cnt] = C1[cnt-1][1];
}
}
C1[0] = C;
if C1[P1] > 0 then
{
sum1 = 0;
sum11 = 0;
for cnt = 0 to P1-1
{
sum1 = sum1+C1[cnt];
sum11 = sum11+C1[cnt+1];
}
}
if C1[P2] > 0 then
{
sum2 = 0;
sum21 = 0;
for cnt = 0 to P2-1
{
sum2 = sum1+C1[cnt];
sum21 = sum11+C1[cnt+1];
}
}
if mav1 > mav2 and mav11 <= mav12 Then
buy();
if mav1 < mav2 and mav11 >= mav12 Then
sell();
}
즐거운 하루되세요
> 남산 님이 쓴 글입니다.
> 제목 : 문의 드립니다
> input : ntime1(20),P1(20),P2(100),P3(20),P4(1),P5(128),P6(256);
var : S1(0),D1(0),TM(0),TF(0),cnt(0);
var : sum1(0),sum11(0),sum12(0),sum13(0),sum14(0),mav1(0),mav11(0),mav12(0),mav13(0),mav14(0);
var : sum2(0),sum21(0),sum22(0),sum23(0),sum24(0),mav2(0),mav21(0),mav22(0),mav23(0),mav24(0);
var : sum3(0),sum31(0),sum32(0),sum33(0),sum34(0),mav3(0),mav31(0),mav32(0),mav33(0),mav34(0);
var : sum4(0),sum41(0),sum42(0),sum43(0),sum44(0),mav4(0),mav41(0),mav42(0),mav43(0),mav44(0);
var : sum5(0),sum51(0),sum52(0),sum53(0),sum54(0),mav5(0),mav51(0),mav52(0),mav53(0),mav54(0);
var : sum6(0),sum61(0),sum62(0),sum63(0),sum64(0),mav6(0),mav61(0),mav62(0),mav63(0),mav64(0);
Array : C1[500](0);
if Bdate != Bdate[1] Then
{
S1 = TimeToMinutes(stime);
D1 = sdate;
}
if D1 > 0 then
{
if sdate == D1 Then
TM = TimeToMinutes(stime)-S1;
Else
TM = TimeToMinutes(stime)+1440-S1;
TF = TM%ntime1;
if Bdate != Bdate[1] or (Bdate == Bdate[1] and TF < TF[1]) Then
{
for cnt = 1 to 499
{
C1[cnt] = C1[cnt-1][1];
}
}
C1[0] = C;
if C1[P6+4] > 0 then
{
sum1 = 0;
sum11 = 0;
sum12 = 0;
sum13 = 0;
sum14 = 0;
sum2 = 0;
sum21 = 0;
sum22 = 0;
sum23 = 0;
sum24 = 0;
sum3 = 0;
sum31 = 0;
sum32 = 0;
sum33 = 0;
sum34 = 0;
sum4 = 0;
sum41 = 0;
sum42 = 0;
sum43 = 0;
sum44 = 0;
sum5 = 0;
sum51 = 0;
sum52 = 0;
sum53 = 0;
sum54 = 0;
sum6 = 0;
sum61 = 0;
sum62 = 0;
sum63 = 0;
sum64 = 0;
for cnt = 0 to P6-1
{
if cnt < P1 then
{
sum1 = sum1+C1[cnt];
sum11 = sum11+C1[cnt+1];
sum12 = sum12+C1[cnt+2];
sum13 = sum13+C1[cnt+3];
sum14 = sum14+C1[cnt+4];
}
if cnt < P2 then
{
sum2 = sum2+C1[cnt];
sum21 = sum21+C1[cnt+1];
sum22 = sum22+C1[cnt+2];
sum23 = sum23+C1[cnt+3];
sum24 = sum24+C1[cnt+4];
}
if cnt < P3 then
{
sum3 = sum3+C1[cnt];
sum31 = sum31+C1[cnt+1];
sum32 = sum32+C1[cnt+2];
sum33 = sum33+C1[cnt+3];
sum34 = sum34+C1[cnt+4];
}
if cnt < P4 then
{
sum4 = sum4+C1[cnt];
sum41 = sum41+C1[cnt+1];
sum42 = sum42+C1[cnt+2];
sum43 = sum43+C1[cnt+3];
sum44 = sum44+C1[cnt+4];
}
if cnt < P5 then
{
sum5 = sum5+C1[cnt];
sum51 = sum51+C1[cnt+1];
sum52 = sum52+C1[cnt+2];
sum53 = sum53+C1[cnt+3];
sum54 = sum54+C1[cnt+4];
}
if cnt < P6 then
{
sum6 = sum6+C1[cnt];
sum61 = sum61+C1[cnt+1];
sum62 = sum62+C1[cnt+2];
sum63 = sum63+C1[cnt+3];
sum64 = sum64+C1[cnt+4];
}
}
mav1 = sum1/P1;
mav11 = sum11/P1;
mav12 = sum12/P1;
mav13 = sum13/P1;
mav14 = sum14/P1;
mav2 = sum2/P2;
mav21 = sum21/P2;
mav22 = sum22/P2;
mav23 = sum23/P2;
mav24 = sum24/P2;
mav3 = sum3/P3;
mav31 = sum31/P3;
mav32 = sum32/P3;
mav33 = sum33/P3;
mav34 = sum34/P3;
mav4 = sum4/P4;
mav41 = sum41/P4;
mav42 = sum42/P4;
mav43 = sum43/P4;
mav44 = sum44/P4;
mav5 = sum5/P5;
mav51 = sum51/P5;
mav52 = sum52/P5;
mav53 = sum53/P5;
mav54 = sum54/P5;
mav6 = sum6/P6;
mav61 = sum61/P6;
mav62 = sum62/P6;
mav63 = sum63/P6;
mav64 = sum64/P6;
if sum13 > sum12 and sum12 < sum11 and sum11 < sum1 Then
buy();
if sum13 < sum12 and sum12 > sum11 and sum11 > sum1 Then
sell();
}
}
위 시스템 식에서
p1이평선20일선이 p2이평선 100일선 크로스업일 때 매수
p1이평선20일선이 p2이평선 100일선 크로스다운일 때 매도
시스템식으로 변경하여 주시기 바랍니다
감사합니다
예스스탁 예스스탁 답변
2019-08-05 09:15:53
안녕하세요
예스스탁입니다.
식을 수정했습니다.
input : ntime1(20),P1(20),P2(100);
var : S1(0),D1(0),TM(0),TF(0),cnt(0);
var : sum1(0),sum11(0),sum12(0),sum13(0),sum14(0),mav1(0),mav11(0),mav12(0),mav13(0),mav14(0);
var : sum2(0),sum21(0),sum22(0),sum23(0),sum24(0),mav2(0),mav21(0),mav22(0),mav23(0),mav24(0);
Array : C1[110](0);
if Bdate != Bdate[1] Then
{
S1 = TimeToMinutes(stime);
D1 = sdate;
}
if D1 > 0 then
{
if sdate == D1 Then
TM = TimeToMinutes(stime)-S1;
Else
TM = TimeToMinutes(stime)+1440-S1;
TF = TM%ntime1;
if Bdate != Bdate[1] or (Bdate == Bdate[1] and TF < TF[1]) Then
{
for cnt = 1 to 109
{
C1[cnt] = C1[cnt-1][1];
}
}
C1[0] = C;
if C1[P1] > 0 then
{
sum1 = 0;
sum11 = 0;
for cnt = 0 to P1-1
{
sum1 = sum1+C1[cnt];
sum11 = sum11+C1[cnt+1];
}
mav1 = sum1/P1;
mav11 = sum11/P1;
}
if C1[P2] > 0 then
{
sum2 = 0;
sum21 = 0;
for cnt = 0 to P2-1
{
sum2 = sum2+C1[cnt];
sum21 = sum21+C1[cnt+1];
}
mav2 = sum2/P2;
mav21 = sum21/P2;
}
if mav1 > mav2 and mav11 <= mav12 Then
buy();
if mav1 < mav2 and mav11 >= mav12 Then
sell();
}
즐거운 하루되세요
> 남산 님이 쓴 글입니다.
> 제목 : Re : Re : 문의 드립니다
> p1이평선20일선이 p2이평선 100일선 크로스업일 때 매수
p1이평선20일선이 p2이평선 100일선 크로스다운일 때 매도
시스템 수식을 적용하니 무응답입니다
다시한번 봐주세요
감사합니다
> 예스스탁 님이 쓴 글입니다.
> 제목 : Re : 문의 드립니다
> 안녕하세요
예스스탁입니다.
input : ntime1(20),P1(20),P2(100);
var : S1(0),D1(0),TM(0),TF(0),cnt(0);
var : sum1(0),sum11(0),sum12(0),sum13(0),sum14(0),mav1(0),mav11(0),mav12(0),mav13(0),mav14(0);
var : sum2(0),sum21(0),sum22(0),sum23(0),sum24(0),mav2(0),mav21(0),mav22(0),mav23(0),mav24(0);
Array : C1[110](0);
if Bdate != Bdate[1] Then
{
S1 = TimeToMinutes(stime);
D1 = sdate;
}
if D1 > 0 then
{
if sdate == D1 Then
TM = TimeToMinutes(stime)-S1;
Else
TM = TimeToMinutes(stime)+1440-S1;
TF = TM%ntime1;
if Bdate != Bdate[1] or (Bdate == Bdate[1] and TF < TF[1]) Then
{
for cnt = 1 to 109
{
C1[cnt] = C1[cnt-1][1];
}
}
C1[0] = C;
if C1[P1] > 0 then
{
sum1 = 0;
sum11 = 0;
for cnt = 0 to P1-1
{
sum1 = sum1+C1[cnt];
sum11 = sum11+C1[cnt+1];
}
}
if C1[P2] > 0 then
{
sum2 = 0;
sum21 = 0;
for cnt = 0 to P2-1
{
sum2 = sum1+C1[cnt];
sum21 = sum11+C1[cnt+1];
}
}
if mav1 > mav2 and mav11 <= mav12 Then
buy();
if mav1 < mav2 and mav11 >= mav12 Then
sell();
}
즐거운 하루되세요
> 남산 님이 쓴 글입니다.
> 제목 : 문의 드립니다
> input : ntime1(20),P1(20),P2(100),P3(20),P4(1),P5(128),P6(256);
var : S1(0),D1(0),TM(0),TF(0),cnt(0);
var : sum1(0),sum11(0),sum12(0),sum13(0),sum14(0),mav1(0),mav11(0),mav12(0),mav13(0),mav14(0);
var : sum2(0),sum21(0),sum22(0),sum23(0),sum24(0),mav2(0),mav21(0),mav22(0),mav23(0),mav24(0);
var : sum3(0),sum31(0),sum32(0),sum33(0),sum34(0),mav3(0),mav31(0),mav32(0),mav33(0),mav34(0);
var : sum4(0),sum41(0),sum42(0),sum43(0),sum44(0),mav4(0),mav41(0),mav42(0),mav43(0),mav44(0);
var : sum5(0),sum51(0),sum52(0),sum53(0),sum54(0),mav5(0),mav51(0),mav52(0),mav53(0),mav54(0);
var : sum6(0),sum61(0),sum62(0),sum63(0),sum64(0),mav6(0),mav61(0),mav62(0),mav63(0),mav64(0);
Array : C1[500](0);
if Bdate != Bdate[1] Then
{
S1 = TimeToMinutes(stime);
D1 = sdate;
}
if D1 > 0 then
{
if sdate == D1 Then
TM = TimeToMinutes(stime)-S1;
Else
TM = TimeToMinutes(stime)+1440-S1;
TF = TM%ntime1;
if Bdate != Bdate[1] or (Bdate == Bdate[1] and TF < TF[1]) Then
{
for cnt = 1 to 499
{
C1[cnt] = C1[cnt-1][1];
}
}
C1[0] = C;
if C1[P6+4] > 0 then
{
sum1 = 0;
sum11 = 0;
sum12 = 0;
sum13 = 0;
sum14 = 0;
sum2 = 0;
sum21 = 0;
sum22 = 0;
sum23 = 0;
sum24 = 0;
sum3 = 0;
sum31 = 0;
sum32 = 0;
sum33 = 0;
sum34 = 0;
sum4 = 0;
sum41 = 0;
sum42 = 0;
sum43 = 0;
sum44 = 0;
sum5 = 0;
sum51 = 0;
sum52 = 0;
sum53 = 0;
sum54 = 0;
sum6 = 0;
sum61 = 0;
sum62 = 0;
sum63 = 0;
sum64 = 0;
for cnt = 0 to P6-1
{
if cnt < P1 then
{
sum1 = sum1+C1[cnt];
sum11 = sum11+C1[cnt+1];
sum12 = sum12+C1[cnt+2];
sum13 = sum13+C1[cnt+3];
sum14 = sum14+C1[cnt+4];
}
if cnt < P2 then
{
sum2 = sum2+C1[cnt];
sum21 = sum21+C1[cnt+1];
sum22 = sum22+C1[cnt+2];
sum23 = sum23+C1[cnt+3];
sum24 = sum24+C1[cnt+4];
}
if cnt < P3 then
{
sum3 = sum3+C1[cnt];
sum31 = sum31+C1[cnt+1];
sum32 = sum32+C1[cnt+2];
sum33 = sum33+C1[cnt+3];
sum34 = sum34+C1[cnt+4];
}
if cnt < P4 then
{
sum4 = sum4+C1[cnt];
sum41 = sum41+C1[cnt+1];
sum42 = sum42+C1[cnt+2];
sum43 = sum43+C1[cnt+3];
sum44 = sum44+C1[cnt+4];
}
if cnt < P5 then
{
sum5 = sum5+C1[cnt];
sum51 = sum51+C1[cnt+1];
sum52 = sum52+C1[cnt+2];
sum53 = sum53+C1[cnt+3];
sum54 = sum54+C1[cnt+4];
}
if cnt < P6 then
{
sum6 = sum6+C1[cnt];
sum61 = sum61+C1[cnt+1];
sum62 = sum62+C1[cnt+2];
sum63 = sum63+C1[cnt+3];
sum64 = sum64+C1[cnt+4];
}
}
mav1 = sum1/P1;
mav11 = sum11/P1;
mav12 = sum12/P1;
mav13 = sum13/P1;
mav14 = sum14/P1;
mav2 = sum2/P2;
mav21 = sum21/P2;
mav22 = sum22/P2;
mav23 = sum23/P2;
mav24 = sum24/P2;
mav3 = sum3/P3;
mav31 = sum31/P3;
mav32 = sum32/P3;
mav33 = sum33/P3;
mav34 = sum34/P3;
mav4 = sum4/P4;
mav41 = sum41/P4;
mav42 = sum42/P4;
mav43 = sum43/P4;
mav44 = sum44/P4;
mav5 = sum5/P5;
mav51 = sum51/P5;
mav52 = sum52/P5;
mav53 = sum53/P5;
mav54 = sum54/P5;
mav6 = sum6/P6;
mav61 = sum61/P6;
mav62 = sum62/P6;
mav63 = sum63/P6;
mav64 = sum64/P6;
if sum13 > sum12 and sum12 < sum11 and sum11 < sum1 Then
buy();
if sum13 < sum12 and sum12 > sum11 and sum11 > sum1 Then
sell();
}
}
위 시스템 식에서
p1이평선20일선이 p2이평선 100일선 크로스업일 때 매수
p1이평선20일선이 p2이평선 100일선 크로스다운일 때 매도
시스템식으로 변경하여 주시기 바랍니다
감사합니다
이전글