커뮤니티
부탁합니다
2020-02-26 08:42:24
477
글번호 136333
스토캐스틱(25,6,6)
일봉차트상에 주봉 스토캐스틱과 월봉 스토캐스틱 Golden Cross와 Dead Cross 발생시
지표식을 부탁합니다
답변 1
예스스탁 예스스탁 답변
2020-02-26 14:22:56
안녕하세요
예스스탁입니다.
1 주
input : StoPeriod(25), StoPeriod1(6), StoPeriod2(6);
var : TF1(0),TF2(0),Ep1(0), EP2(0),cnt(0);
var : hVal1(0), lVal1(0), StoFastK(0), StoK(0), StoD(0);
var : JISU(0), DINDEX(0), PreStoK(0), PreStoD(0);
Array : H1[50](0),L1[50](0);
Ep1 = 2/(StoPeriod1+1);
Ep2 = 2/(StoPeriod2+1);
if DayOfWeek(bdate) < DayOfWeek(bdate[1]) Then{
H1[0] = H;
L1[0] = L;
for cnt = 1 to 49{
H1[cnt] = H1[cnt-1][1];
L1[cnt] = L1[cnt-1][1];
}
DINDEX = DINDEX + 1;
PreStoK = StoK[1];
PreStoD = StoD[1];
}
if H > H1[0] Then
H1[0] = H;
if L < L1[0] Then
L1[0] = L;
hVal1 = H1[0];
lVal1 = L1[0];
for cnt = 0 to StoPeriod-1 {
if H1[cnt] > hVal1 then
hVal1 = H1[cnt];
if L1[cnt] < lval1 then
LVal1 = L1[cnt];
}
StoFastK = (C-lVal1)/(hVal1-lVal1)*100;
if DINDEX <= 1 then{
StoK = StoFastK ;
StoD = StoK ;
}
else{
StoK = StoFastK * EP1 + PreStoK * (1-EP1);
StoD = StoK * EP2 + PreStoD * (1-EP2);
}
plot1(StoK);
plot2(StoD);
PlotBaseLine1(20);
PlotBaseLine2(80);
2 월
input : Sto1(20), Sto2(12), Sto3(5);
var : TF1(0),TF2(0),Ep1(0), EP2(0),cnt(0);
var : hVal1(0), lVal1(0), StoFastK(0), StoK(0), StoD(0);
var : JISU(0), DINDEX(0), PreStoK(0), PreStoD(0);
Array : CC[50](0),HH[50](0),LL[50](0);
Array : mStok[50](0),mStoD[50](0);
Ep1 = 2/(Sto2+1);
Ep2 = 2/(Sto3+1);
if bdate > bdate[1]+30 Then
{
DINDEX = DINDEX + 1;
HH[0] = H;
LL[0] = L;
for cnt = 1 to 49
{
HH[cnt] = HH[cnt-1][1];
LL[cnt] = LL[cnt-1][1];
CC[cnt] = CC[cnt-1][1];
mStok[cnt] = mStok[cnt-1][1];
mStod[cnt] = mStod[cnt-1][1];
}
}
if HH[0] > 0 and H > HH[0] Then
HH[0] = H;
if LL[0] > 0 and L < LL[0] Then
LL[0] = L;
CC[0] = C;
if HH[Sto1-1] > 0 and LL[Sto1-1] > 0 then
{
hVal1 = HH[0];
lVal1 = LL[0];
for cnt = 0 to Sto1-1
{
if HH[cnt] > hVal1 then
hVal1 = HH[cnt];
if LL[cnt] < lval1 then
LVal1 = LL[cnt];
}
StoFastK = (C-lVal1)/(hVal1-lVal1)*100;
if DINDEX <= 1 then{
mStoK[0] = StoFastK ;
mStoD[0] = mStoK[0];
}
else{
mStoK[0] = StoFastK * EP1 + mStoK[1] * (1-EP1);
mStoD[0] = mStoK[0] * EP2 + mStoD[1] * (1-EP2);
}
plot1(mStoK[0]);
plot2(mStoD[0]);
PlotBaseLine1(20);
PlotBaseLine2(80);
}
즐거운 하루되세요
> 미래테크 님이 쓴 글입니다.
> 제목 : 부탁합니다
> 스토캐스틱(25,6,6)
일봉차트상에 주봉 스토캐스틱과 월봉 스토캐스틱 Golden Cross와 Dead Cross 발생시
지표식을 부탁합니다
다음글