커뮤니티
문의 드립니다.
2018-10-24 16:07:03
210
글번호 122991
항상 감사 드립니다.
타주기 분용으로 작성해주신 식입니다.
이것에서 일봉 주봉,월봉에서의 지표를
분차트에 나타 나도록 부탁 드립니다.
/*
Input : Period(5);
value1 = (3 * Ema(c,Period*5)) - (3 * Ema(Ema(c,Period*5),Period*5))
+ (Ema(Ema(Ema(c,Period*5),Period*5),Period*5));
*/
Input : ntime(30),Period1(5),Period2(10),Period3(20);
var : S1(0),D1(0),TM(0),TF1(0),idx(0);
Var : Ep(0), JISU1(0), PreJISU1(0);
Var : JISU2(0), PreJISU2(0);
Var : JISU3(0), PreJISU3(0);
Ep = 2/(Period1*5+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 = TM%ntime;
if Bdate != Bdate[1] or (Bdate == Bdate[1] and TF1 < TF1[1]) Then
{
idx = idx+1;
PreJISU1 = JISU1[1];
PreJISU2 = JISU2[1];
PreJISU3 = JISU3[1];
}
if idx <= 1 then {
JISU1 = C;
JISU2 = JISU1;
JISU3 = JISU3;
}
else{
JISU1 = C * EP + PreJISU1 * (1-EP);
JISU2 = JISU1 * EP + PreJISU2 * (1-EP);
JISU3 = JISU2 * EP + PreJISU3 * (1-EP);
}
value1 = (3 * JISU1) - (3 * JISU2) + (JISU3);
plot1(value1);
}
답변 1
예스스탁 예스스탁 답변
2018-10-24 17:39:22
안녕하세요
예스스탁입니다.
1 일
Input : ntime(30),Period1(5);
var : idx(0);
Var : Ep(0), JISU1(0), PreJISU1(0);
Var : JISU2(0), PreJISU2(0);
Var : JISU3(0), PreJISU3(0);
Ep = 2/(Period1*5+1);
if bdate != bdate[1] Then
{
idx = idx+1;
PreJISU1 = JISU1[1];
PreJISU2 = JISU2[1];
PreJISU3 = JISU3[1];
}
if idx <= 1 then
{
JISU1 = C;
JISU2 = JISU1;
JISU3 = JISU3;
}
else{
JISU1 = C * EP + PreJISU1 * (1-EP);
JISU2 = JISU1 * EP + PreJISU2 * (1-EP);
JISU3 = JISU2 * EP + PreJISU3 * (1-EP);
}
value1 = (3 * JISU1) - (3 * JISU2) + (JISU3);
plot1(value1);
2 주
Input : ntime(30),Period1(5);
var : idx(0);
Var : Ep(0), JISU1(0), PreJISU1(0);
Var : JISU2(0), PreJISU2(0);
Var : JISU3(0), PreJISU3(0);
Ep = 2/(Period1*5+1);
if DayOfWeek(bdate) < DayOfWeek(bdate[1]) Then
{
idx = idx+1;
PreJISU1 = JISU1[1];
PreJISU2 = JISU2[1];
PreJISU3 = JISU3[1];
}
if idx <= 1 then
{
JISU1 = C;
JISU2 = JISU1;
JISU3 = JISU3;
}
else{
JISU1 = C * EP + PreJISU1 * (1-EP);
JISU2 = JISU1 * EP + PreJISU2 * (1-EP);
JISU3 = JISU2 * EP + PreJISU3 * (1-EP);
}
value1 = (3 * JISU1) - (3 * JISU2) + (JISU3);
plot1(value1);
3 월
Input : ntime(30),Period1(5);
var : idx(0);
Var : Ep(0), JISU1(0), PreJISU1(0);
Var : JISU2(0), PreJISU2(0);
Var : JISU3(0), PreJISU3(0);
Ep = 2/(Period1*5+1);
if bdate > bdate[1]+30 Then
{
idx = idx+1;
PreJISU1 = JISU1[1];
PreJISU2 = JISU2[1];
PreJISU3 = JISU3[1];
}
if idx <= 1 then
{
JISU1 = C;
JISU2 = JISU1;
JISU3 = JISU3;
}
else{
JISU1 = C * EP + PreJISU1 * (1-EP);
JISU2 = JISU1 * EP + PreJISU2 * (1-EP);
JISU3 = JISU2 * EP + PreJISU3 * (1-EP);
}
value1 = (3 * JISU1) - (3 * JISU2) + (JISU3);
plot1(value1);
즐거운 하루되세요
> 뮬리 님이 쓴 글입니다.
> 제목 : 문의 드립니다.
> 항상 감사 드립니다.
타주기 분용으로 작성해주신 식입니다.
이것에서 일봉 주봉,월봉에서의 지표를
분차트에 나타 나도록 부탁 드립니다.
/*
Input : Period(5);
value1 = (3 * Ema(c,Period*5)) - (3 * Ema(Ema(c,Period*5),Period*5))
+ (Ema(Ema(Ema(c,Period*5),Period*5),Period*5));
*/
Input : ntime(30),Period1(5),Period2(10),Period3(20);
var : S1(0),D1(0),TM(0),TF1(0),idx(0);
Var : Ep(0), JISU1(0), PreJISU1(0);
Var : JISU2(0), PreJISU2(0);
Var : JISU3(0), PreJISU3(0);
Ep = 2/(Period1*5+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 = TM%ntime;
if Bdate != Bdate[1] or (Bdate == Bdate[1] and TF1 < TF1[1]) Then
{
idx = idx+1;
PreJISU1 = JISU1[1];
PreJISU2 = JISU2[1];
PreJISU3 = JISU3[1];
}
if idx <= 1 then {
JISU1 = C;
JISU2 = JISU1;
JISU3 = JISU3;
}
else{
JISU1 = C * EP + PreJISU1 * (1-EP);
JISU2 = JISU1 * EP + PreJISU2 * (1-EP);
JISU3 = JISU2 * EP + PreJISU3 * (1-EP);
}
value1 = (3 * JISU1) - (3 * JISU2) + (JISU3);
plot1(value1);
}
다음글
이전글