커뮤니티
문의 드립니다.
2018-11-01 22:57:17
178
글번호 123281
항상 도움 주심에 감사 드립니다.
아래수식을 타주기 분용과 일봉용으로 미숙하지만 작성 한것입니다.
실행결과 어딘가에 오류가 있어 보입니다.
수정 부탁 드릴까 합니다.
미리 감사 드립니다.
//원래 수식)
input:p(5),sig(3);
var:bull(0),bear(0);
bull=(h-o)*100/c;
bear=(l-o)*100/c;
var1=bull+bear;
var2=ema(var1,p);
var3=ema(var2,sig);
plot1(var3);
//타주기(분용)수식
Input : Atime(30),p(5),sIG(5);
var : S1(0),D1(0),TM(0),TF1(0);
var : oo(0),hh(0),ll(0),tf(0),cc(0);
var : bull(0),bear(0);
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%Atime;
if bdate != bdate[1] or
(Atime == 1 and bdate == bdate[1] and TF1 > TF1[1]) or
(Atime > 1 and bdate == bdate[1] and TF1 < TF1[1]) Then
{
cc=c;
OO = O;
HH = H;
LL = L;
}
if H > HH Then
HH = H;
if L < LL Then
LL = L;
bull=(HH-oo)*100/CC;
bear=(LL-oo)*100/cc;
var1=bull+bear;
var2=ema(var1,p);
var3=ema(var2,sig);
}
plot11(var3);
//타주기 일봉용
Input : Atime(30),p(5),sIG(5);
var : S1(0),D1(0),TM(0),TF1(0);
var : oo(0),hh(0),ll(0),tf(0),cc(0);
var : bull(0),bear(0);
if Bdate != Bdate[1] Then
{
cc=c;
OO = O;
HH = H;
LL = L;
}
if H > HH Then
HH = H;
if L < LL Then
LL = L;
bull=(HH-oo)*100/CC;
bear=(LL-oo)*100/cc;
var1=bull+bear;
var2=ema(var1,p);
var3=ema(var2,sig);
plot11(var3);
답변 1
예스스탁 예스스탁 답변
2018-11-02 14:48:00
안녕하세요
예스스탁입니다.
이전 답변에 지수이평이 포함된 내용도 있습니다.
과거 답변내용(59783번) 참고하시기 바랍니다.
즐거운 하루되세요
> yes 님이 쓴 글입니다.
> 제목 : 문의 드립니다.
> 항상 도움 주심에 감사 드립니다.
아래수식을 타주기 분용과 일봉용으로 미숙하지만 작성 한것입니다.
실행결과 어딘가에 오류가 있어 보입니다.
수정 부탁 드릴까 합니다.
미리 감사 드립니다.
//원래 수식)
input:p(5),sig(3);
var:bull(0),bear(0);
bull=(h-o)*100/c;
bear=(l-o)*100/c;
var1=bull+bear;
var2=ema(var1,p);
var3=ema(var2,sig);
plot1(var3);
//타주기(분용)수식
Input : Atime(30),p(5),sIG(5);
var : S1(0),D1(0),TM(0),TF1(0);
var : oo(0),hh(0),ll(0),tf(0),cc(0);
var : bull(0),bear(0);
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%Atime;
if bdate != bdate[1] or
(Atime == 1 and bdate == bdate[1] and TF1 > TF1[1]) or
(Atime > 1 and bdate == bdate[1] and TF1 < TF1[1]) Then
{
cc=c;
OO = O;
HH = H;
LL = L;
}
if H > HH Then
HH = H;
if L < LL Then
LL = L;
bull=(HH-oo)*100/CC;
bear=(LL-oo)*100/cc;
var1=bull+bear;
var2=ema(var1,p);
var3=ema(var2,sig);
}
plot11(var3);
//타주기 일봉용
Input : Atime(30),p(5),sIG(5);
var : S1(0),D1(0),TM(0),TF1(0);
var : oo(0),hh(0),ll(0),tf(0),cc(0);
var : bull(0),bear(0);
if Bdate != Bdate[1] Then
{
cc=c;
OO = O;
HH = H;
LL = L;
}
if H > HH Then
HH = H;
if L < LL Then
LL = L;
bull=(HH-oo)*100/CC;
bear=(LL-oo)*100/cc;
var1=bull+bear;
var2=ema(var1,p);
var3=ema(var2,sig);
plot11(var3);
이전글