안녕하세요
예스스탁입니다.
1
input : P(120),배수(10);
var : Z0(0);
var : P1(0),P2(0),P3(0),P4(9),P5(0);
var : P6(0),P7(0),P8(0),P9(9),P10(0);
var : P11(0),P12(0),P13(0),P14(9),P15(0);
var : ZPx(0),ZPn(0);
var : M1(0),M2(0),M3(0),M4(9),M5(0);
var : M6(0),M7(0),M8(0),M9(9),M10(0);
var : M11(0),M12(0),M13(0),M14(9),M15(0);
var : ZMx(0),ZMn(0);
var : Z(False),cnt(Nan),cond(False);
Function ZL
{
input : Price(Numeric), Period(Numeric),offset(Numeric);
var : lsma(0),lsma2(0),eq(0);
lsma = LinRegForecast(Price,period,offset);
lsma2 = LinRegForecast(lsma,period,offset);
eq = lsma-lsma2;
ZL = lsma+eq;
}
EndFunction
Z0=ZL(C,P,0); P1=ZL(C,P,1); P2=ZL(C,P,2); P3=ZL(C,P,3);
P4=ZL(C,P,4); P5=ZL(C,P,5); P6=ZL(C,P,6); P7=ZL(C,P,7);
P8=ZL(C,P,8); P9=ZL(C,P,9);
P10=ZL(C,P,10); P11=ZL(C,P,11); P12=ZL(C,P,12);
P13=ZL(C,P,13); P14=ZL(C,P,14); P15=ZL(C,P,15);
ZPx=Max(P1,P2,P3,P4,P5,P6,P7,P8,P9,P10,P11,P12,P13,P14,P15);
ZPn=Min(P1,P2,P3,P4,P5,P6,P7,P8,P9,P10,P11,P12,P13,P14,P15);
M1=ZL(C,P,-1); M2=ZL(C,P,-2); M3=ZL(C,P,-3);
M4=ZL(C,P,-4); M5=ZL(C,P,-5); M6=ZL(C,P,-6);
M7=ZL(C,P,-7); M8=ZL(C,P,-8); M9=ZL(C,P,-9);
M10=ZL(C,P,-10); M11=ZL(C,P,-11); M12=ZL(C,P,-12);
M13=ZL(C,P,-13); M14=ZL(C,P,-14); M15=ZL(C,P,-15);
ZMx=Max(M1,M2,M3,M4,M5,M6,M7,M8,M9,M10,M11,M12,M13,M14,M15);
ZMn=Min(M1,M2,M3,M4,M5,M6,M7,M8,M9,M10,M11,M12,M13,M14,M15);
Z=ZMn<ZMn[1]&&ZMn[1]>ZMn[2];
if CrossDown(ZMn,ZPn) Then
cnt = 0;
if Z == true Then
cnt = cnt+1;
cond= abs(ZPx-Z0)*배수<abs(Z0-ZMn) &&
Z0>ZMx && Z0>ZPn &&
(Z or Z[1]) &&
ZMn>ZMn[1] &&
ZPx<C && C>0;
if cond && cond[1] == False&& cnt[3]==0 Then
Find(1);
2
input : P(120),배수(10),N(5);
var : Z0(0);
var : P1(0),P2(0),P3(0),P4(9),P5(0);
var : P6(0),P7(0),P8(0),P9(9),P10(0);
var : P11(0),P12(0),P13(0),P14(9),P15(0);
var : ZPx(0),ZPn(0);
var : M1(0),M2(0),M3(0),M4(9),M5(0);
var : M6(0),M7(0),M8(0),M9(9),M10(0);
var : M11(0),M12(0),M13(0),M14(9),M15(0);
var : ZMx(0),ZMn(0);
var : Z(False),cnt(Nan),cond(False);
Function ZL
{
input : Price(Numeric), Period(Numeric),offset(Numeric);
var : lsma(0),lsma2(0),eq(0);
lsma = LinRegForecast(Price,period,offset);
lsma2 = LinRegForecast(lsma,period,offset);
eq = lsma-lsma2;
ZL = lsma+eq;
}
EndFunction
Z0=ZL(C,P,0); P1=ZL(C,P,1); P2=ZL(C,P,2); P3=ZL(C,P,3);
P4=ZL(C,P,4); P5=ZL(C,P,5); P6=ZL(C,P,6); P7=ZL(C,P,7);
P8=ZL(C,P,8); P9=ZL(C,P,9);
P10=ZL(C,P,10); P11=ZL(C,P,11); P12=ZL(C,P,12);
P13=ZL(C,P,13); P14=ZL(C,P,14); P15=ZL(C,P,15);
ZPx=Max(P1,P2,P3,P4,P5,P6,P7,P8,P9,P10,P11,P12,P13,P14,P15);
ZPn=Min(P1,P2,P3,P4,P5,P6,P7,P8,P9,P10,P11,P12,P13,P14,P15);
M1=ZL(C,P,-1); M2=ZL(C,P,-2); M3=ZL(C,P,-3);
M4=ZL(C,P,-4); M5=ZL(C,P,-5); M6=ZL(C,P,-6);
M7=ZL(C,P,-7); M8=ZL(C,P,-8); M9=ZL(C,P,-9);
M10=ZL(C,P,-10); M11=ZL(C,P,-11); M12=ZL(C,P,-12);
M13=ZL(C,P,-13); M14=ZL(C,P,-14); M15=ZL(C,P,-15);
ZMx=Max(M1,M2,M3,M4,M5,M6,M7,M8,M9,M10,M11,M12,M13,M14,M15);
ZMn=Min(M1,M2,M3,M4,M5,M6,M7,M8,M9,M10,M11,M12,M13,M14,M15);
Z=ZMn<ZMn[1]&&ZMn[1]>ZMn[2];
if CrossDown(ZMn,ZPn) Then
cnt = 0;
if Z == true Then
cnt = cnt+1;
cond= abs(ZPx-Z0)*배수<abs(Z0-ZMn) &&
Z0>ZMx && Z0>ZPn &&
(Z or Z[1]) &&
ZMn>ZMn[1] &&
ZPx<C && C>0;
if CountIf( cond && cond[1] == False && cnt[3]==0, N) >= 1 Then
Find(1);
즐거운 명절 되시기 바랍니다.