커뮤니티
수식 부탁합니다
2020-03-05 14:31:14
577
글번호 136610
스토캐스틱(25,6,6)
일봉차트상에 월봉 스토캐스틱 Golden Cross 발생시
종목검색식 부탁합니다
답변 1
예스스탁 예스스탁 답변
2020-03-05 14:50:38
안녕하세요
예스스탁입니다.
종목검색에 최대 500봉만 제공됩니다.
스토케스틱이 과거봉수에 따라 현재값이 영향을 받는 수식이므로
차트도 500봉만 조회해서 비교해 보셔야 합니다.
1 종목검색
input : Sto1(25), Sto2(6), Sto3(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 : 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 sdate > sdate[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);
}
if crossup(mStoK[0],mStoD[0]) Then
find(1);
}
2 지표
input : Sto1(25), Sto2(6), Sto3(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 : 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 sdate > sdate[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 발생시
종목검색식 부탁합니다