커뮤니티
타주기[복합] stochastics
2022-11-24 01:59:35
890
글번호 164092
수고하십니다.
스토캐스틱 변수( 5,3,3 )
타주기분(3배) 스토캐스틱 K 가 50이상 and
타주기분(6배) 스토캐스틱 K 가 50이상일 때
현주기 스토캐스틱 K 가 D를 상향돌파할 때 매수
지표, 시스템식을 부탁드립니다.
감사합니다.
답변 1
예스스탁 예스스탁 답변
2022-11-24 15:05:29
안녕하세요
예스스탁입니다.
1
input : Sto1(10),Sto2(5),Sto3(5);
var : S1(0),D1(0),TM(0),TF1(0),TF2(0),cnt(0),Ep1(0), EP2(0);
var : 분1(0),Hv1(0), Lv1(0), FK1(0), SK1(0), SD1(0);
var : JISU1(0), i1(0), PreSK1(0), PreSD1(0);
var : 분2(0),Hv2(0), Lv2(0), FK2(0), SK2(0), SD2(0);
var : JISU2(0), i2(0), PreSK2(0), PreSD2(0);
var : stok(0),stod(0);
Array : H1[100](0),L1[100](0);
Array : H2[100](0),L2[100](0);
stok = StochasticsK(sto1,sto2);
stod = StochasticsD(sto1,sto2,sto3);
분1 = Interval*3;
분2 = Interval*6;
Ep1 = 2/(sto2+1);
Ep2 = 2/(sto3+1);
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;
TF1 = TimeToMinutes(stime)%분1;
TF2 = TimeToMinutes(stime)%분2;
if Bdate != Bdate[1] or
(Bdate == Bdate[1] and 분1 > 1 and TF1 < TF1[1]) or
(Bdate == Bdate[1] and 분1 > 1 and TM >= TM[1]+분1) or
(Bdate == Bdate[1] and 분1 == 1 and TM > TM[1]) Then
{
H1[0] = H;
L1[0] = L;
for cnt = 1 to 99
{
H1[cnt] = H1[cnt-1][1];
L1[cnt] = L1[cnt-1][1];
}
}
if H > H1[0] Then
H1[0] = H;
if L < L1[0] Then
L1[0] = L;
if H1[sto1-1] > 0 and L1[sto1-1] > 0 then
{
if Bdate != Bdate[1] or
(Bdate == Bdate[1] and 분1 > 1 and TF1 < TF1[1]) or
(Bdate == Bdate[1] and 분1 > 1 and TM >= TM[1]+분1) or
(Bdate == Bdate[1] and 분1 == 1 and TM > TM[1]) Then
{
i1 = i1+1;
PreSK1 = SK1[1];
PreSD1 = SD1[1];
}
Hv1 = H1[0];
LV1 = L1[0];
for cnt = 0 to sto1-1
{
if H1[cnt] > Hv1 then
Hv1 = H1[cnt];
if L1[cnt] < LV1 then
LV1 = L1[cnt];
}
FK1 = (C-LV1)/(HV1-LV1)*100;
if i1 <= 1 then
{
SK1 = FK1;
SD1 = SK1;
}
else
{
SK1 = FK1 * EP1 + PreSK1 * (1-EP1);
SD1 = SK1 * EP2 + PreSD1 * (1-EP2);
}
}
if Bdate != Bdate[1] or
(Bdate == Bdate[1] and 분2 > 1 and TF2 < TF2[1]) or
(Bdate == Bdate[1] and 분2 > 1 and TM >= TM[1]+분2) or
(Bdate == Bdate[1] and 분2 == 1 and TM > TM[1]) Then
{
H2[0] = H;
L2[0] = L;
for cnt = 1 to 99
{
H2[cnt] = H2[cnt-1][1];
L2[cnt] = L2[cnt-1][1];
}
}
if H > H2[0] Then
H2[0] = H;
if L < L2[0] Then
L2[0] = L;
if H2[sto2-1] > 0 and L2[sto2-1] > 0 then
{
if Bdate != Bdate[1] or
(Bdate == Bdate[1] and 분2 > 1 and TF2 < TF2[1]) or
(Bdate == Bdate[1] and 분2 > 1 and TM >= TM[1]+분2) or
(Bdate == Bdate[1] and 분2 == 1 and TM > TM[1]) Then
{
i2 = i2+1;
PreSK2 = SK2[1];
PreSD2 = SD2[1];
}
Hv2 = H2[0];
LV2 = L2[0];
for cnt = 0 to sto1-1
{
if H2[cnt] > Hv2 then
Hv2 = H2[cnt];
if L2[cnt] < LV2 then
LV2 = L2[cnt];
}
FK2 = (C-LV2)/(HV2-LV2)*100;
if i2 <= 1 then
{
SK2 = FK2;
SD2 = SK2;
}
else
{
SK2 = FK2 * EP1 + PreSK2 * (1-EP1);
SD2 = SK2 * EP2 + PreSD2 * (1-EP2);
}
}
if sk1 > 50 and sk2 > 50 and CrossUp(stok,stod) Then
{
Buy();
}
}
2
input : Sto1(10),Sto2(5),Sto3(5);
var : S1(0),D1(0),TM(0),TF1(0),TF2(0),cnt(0),Ep1(0), EP2(0);
var : 분1(0),Hv1(0), Lv1(0), FK1(0), SK1(0), SD1(0);
var : JISU1(0), i1(0), PreSK1(0), PreSD1(0);
var : 분2(0),Hv2(0), Lv2(0), FK2(0), SK2(0), SD2(0);
var : JISU2(0), i2(0), PreSK2(0), PreSD2(0);
Array : H1[100](0),L1[100](0);
Array : H2[100](0),L2[100](0);
분1 = Interval*3;
분2 = Interval*6;
Ep1 = 2/(sto2+1);
Ep2 = 2/(sto3+1);
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;
TF1 = TimeToMinutes(stime)%분1;
TF2 = TimeToMinutes(stime)%분2;
if Bdate != Bdate[1] or
(Bdate == Bdate[1] and 분1 > 1 and TF1 < TF1[1]) or
(Bdate == Bdate[1] and 분1 > 1 and TM >= TM[1]+분1) or
(Bdate == Bdate[1] and 분1 == 1 and TM > TM[1]) Then
{
H1[0] = H;
L1[0] = L;
for cnt = 1 to 99
{
H1[cnt] = H1[cnt-1][1];
L1[cnt] = L1[cnt-1][1];
}
}
if H > H1[0] Then
H1[0] = H;
if L < L1[0] Then
L1[0] = L;
if H1[sto1-1] > 0 and L1[sto1-1] > 0 then
{
if Bdate != Bdate[1] or
(Bdate == Bdate[1] and 분1 > 1 and TF1 < TF1[1]) or
(Bdate == Bdate[1] and 분1 > 1 and TM >= TM[1]+분1) or
(Bdate == Bdate[1] and 분1 == 1 and TM > TM[1]) Then
{
i1 = i1+1;
PreSK1 = SK1[1];
PreSD1 = SD1[1];
}
Hv1 = H1[0];
LV1 = L1[0];
for cnt = 0 to sto1-1
{
if H1[cnt] > Hv1 then
Hv1 = H1[cnt];
if L1[cnt] < LV1 then
LV1 = L1[cnt];
}
FK1 = (C-LV1)/(HV1-LV1)*100;
if i1 <= 1 then
{
SK1 = FK1;
SD1 = SK1;
}
else
{
SK1 = FK1 * EP1 + PreSK1 * (1-EP1);
SD1 = SK1 * EP2 + PreSD1 * (1-EP2);
}
plot1(SK1);
plot2(SD1);
}
if Bdate != Bdate[1] or
(Bdate == Bdate[1] and 분2 > 1 and TF2 < TF2[1]) or
(Bdate == Bdate[1] and 분2 > 1 and TM >= TM[1]+분2) or
(Bdate == Bdate[1] and 분2 == 1 and TM > TM[1]) Then
{
H2[0] = H;
L2[0] = L;
for cnt = 1 to 99
{
H2[cnt] = H2[cnt-1][1];
L2[cnt] = L2[cnt-1][1];
}
}
if H > H2[0] Then
H2[0] = H;
if L < L2[0] Then
L2[0] = L;
if H2[sto2-1] > 0 and L2[sto2-1] > 0 then
{
if Bdate != Bdate[1] or
(Bdate == Bdate[1] and 분2 > 1 and TF2 < TF2[1]) or
(Bdate == Bdate[1] and 분2 > 1 and TM >= TM[1]+분2) or
(Bdate == Bdate[1] and 분2 == 1 and TM > TM[1]) Then
{
i2 = i2+1;
PreSK2 = SK2[1];
PreSD2 = SD2[1];
}
Hv2 = H2[0];
LV2 = L2[0];
for cnt = 0 to sto1-1
{
if H2[cnt] > Hv2 then
Hv2 = H2[cnt];
if L2[cnt] < LV2 then
LV2 = L2[cnt];
}
FK2 = (C-LV2)/(HV2-LV2)*100;
if i2 <= 1 then
{
SK2 = FK2;
SD2 = SK2;
}
else
{
SK2 = FK2 * EP1 + PreSK2 * (1-EP1);
SD2 = SK2 * EP2 + PreSD2 * (1-EP2);
}
plot3(SK2);
plot4(SD2);
}
PlotBaseLine1(20);
PlotBaseLine2(80);
}
즐거운 하루되세요
> 당일선물 님이 쓴 글입니다.
> 제목 : 타주기[복합] stochastics
> 수고하십니다.
스토캐스틱 변수( 5,3,3 )
타주기분(3배) 스토캐스틱 K 가 50이상 and
타주기분(6배) 스토캐스틱 K 가 50이상일 때
현주기 스토캐스틱 K 가 D를 상향돌파할 때 매수
지표, 시스템식을 부탁드립니다.
감사합니다.
다음글
이전글