커뮤니티
언어변환 부탁드립니다.
2014-08-04 02:04:31
322
글번호 77347
메일로 부탁드립니다.dominseuk@naver.com
이거 안되면 비슷한것이라도 좀 만들어 주십시요.부탁드려요.^^
Trend Quality Indicator
David Sepiashvili's article "Trend Quality Indicator" introduces two new indicators; Q-indicator and B-indictor. Both can be added to MetaStock with the formulas listed below.
To enter this indicator into MetaStock:
In the Tools menu, selet Indicator Builder.
Click New to open the Indicator Editor for a new indicator.
Type the name of the formula.
Click in the larger window and type in the formula.
Name: Q-indicator
Formula: m:=Input("% Scalar trend period",1,25,4);
n:=Input("% Scalar noise period",1,500,250);
cf:=Input("% Scalar correction factor",1,250,2);
p1:=Input("First moving average periods",1,200,7);
p2:=Input("Second moving average periods",1,200,15);
rev:=Mov(C,p1,E)-Mov(C,p2,E);
pds:=If(rev>0,1,-1);
dc:=ROC(C,1,$);
cpc:=If(pds<>Ref(pds,-1),0,(dc*pds) PREV);
trend:=If(pds<>Ref(pds,-1),0,(cpc*(1/m)) (PREV*(1-(1/m))));
dt:=cpc-trend;
noise:=cf*Sqrt(Mov(dt*dt,n,S));
trend/noise
Name: B-indicator
Formula: m:=Input("% Scalar trend period",1,25,4);
n:=Input("% Scalar noise period",1,500,250);
cf:=Input("% Scalar correction factor",1,250,2);
p1:=Input("First moving average periods",1,200,7);
p2:=Input("Second moving average periods",1,200,15);
rev:=Mov(C,p1,E)-Mov(C,p2,E);
pds:=If(rev>0,1,-1);
dc:=ROC(C,1,$);
cpc:=If(pds<>Ref(pds,-1),0,(dc*pds) PREV);
trend:=If(pds<>Ref(pds,-1),0,(cpc*(1/m)) (PREV*(1-(1/m))));
dt:=cpc-trend;
noise:=cf*Sqrt(Mov(dt*dt,n,S));
temp:=If(Abs(trend) Abs(noise)=0,1,Abs(trend) Abs(noise));
(Abs(trend)/temp)*100;
답변 1
예스스탁 예스스탁 답변
2014-08-04 16:19:03
안녕하세요
예스스탁입니다.
수식안에 PREV라는 부분이 있는데 의미가 불명확해서 제외했습니다
아래식 참고하셔서 수정보완해 사용하시기 바랍니다.
1.
input : P1(7),P2(15),cf(2),n(250),mm(4);
var : rev(0),pds(0),dc(0),cpc(0),trend(0),dt(0),noise(0);
rev= ema(C,p1)-ema(C,p2);
pds= Iff(rev>0,1,-1);
dc = PROC(1);
cpc = Iff(pds<>pds[1],0,(dc*pds));
trend = Iff(pds<>pds[1],0,(cpc*(1/mm))*((1-(1/mm))));
dt =cpc-trend;
noise = cf*Sqrt(ma(dt*dt,n));
plot1(trend/noise);
2.
input : P1(7),P2(15),cf(2),n(250),mm(4);
var : rev(0),pds(0),dc(0),cpc(0),trend(0),dt(0),noise(0),temp(0);
rev =Ema(C,p1)-EMA(C,p2);
pds =Iff(rev>0,1,-1);
dc = PROC(1);
cpc=Iff(pds<>pds[1],0,(dc*pds));
trend =Iff(pds<>pds[1],0,(cpc*(1/m))*((1-(1/m))));
dt = cpc-trend;
noise=cf*Sqrt(ma(dt*dt,n));
temp=Iff(Abs(trend)*Abs(noise)==0,1,Abs(trend)*Abs(noise));
plot1((Abs(trend)/temp)*100);
즐거운 하루되세요
> 시월 님이 쓴 글입니다.
> 제목 : 언어변환 부탁드립니다.
> 메일로 부탁드립니다.dominseuk@naver.com
이거 안되면 비슷한것이라도 좀 만들어 주십시요.부탁드려요.^^
Trend Quality Indicator
David Sepiashvili's article "Trend Quality Indicator" introduces two new indicators; Q-indicator and B-indictor. Both can be added to MetaStock with the formulas listed below.
To enter this indicator into MetaStock:
In the Tools menu, selet Indicator Builder.
Click New to open the Indicator Editor for a new indicator.
Type the name of the formula.
Click in the larger window and type in the formula.
Name: Q-indicator
Formula: m:=Input("% Scalar trend period",1,25,4);
n:=Input("% Scalar noise period",1,500,250);
cf:=Input("% Scalar correction factor",1,250,2);
p1:=Input("First moving average periods",1,200,7);
p2:=Input("Second moving average periods",1,200,15);
rev:=Mov(C,p1,E)-Mov(C,p2,E);
pds:=If(rev>0,1,-1);
dc:=ROC(C,1,$);
cpc:=If(pds<>Ref(pds,-1),0,(dc*pds) PREV);
trend:=If(pds<>Ref(pds,-1),0,(cpc*(1/m)) (PREV*(1-(1/m))));
dt:=cpc-trend;
noise:=cf*Sqrt(Mov(dt*dt,n,S));
trend/noise
Name: B-indicator
Formula: m:=Input("% Scalar trend period",1,25,4);
n:=Input("% Scalar noise period",1,500,250);
cf:=Input("% Scalar correction factor",1,250,2);
p1:=Input("First moving average periods",1,200,7);
p2:=Input("Second moving average periods",1,200,15);
rev:=Mov(C,p1,E)-Mov(C,p2,E);
pds:=If(rev>0,1,-1);
dc:=ROC(C,1,$);
cpc:=If(pds<>Ref(pds,-1),0,(dc*pds) PREV);
trend:=If(pds<>Ref(pds,-1),0,(cpc*(1/m)) (PREV*(1-(1/m))));
dt:=cpc-trend;
noise:=cf*Sqrt(Mov(dt*dt,n,S));
temp:=If(Abs(trend) Abs(noise)=0,1,Abs(trend) Abs(noise));
(Abs(trend)/temp)*100;
다음글