커뮤니티
부탁 드립니다.
2021-07-31 21:01:49
1309
글번호 151228
도움에 감사 드립니다.
함수식을 사용히지 않고
일반 수식으로 수정 편집 부탁 드립니다.
INPUT:period(60);
input:ATR_sig(5);
var:nn(0);
var1=ATr(period);
nn=MA(var1, atr_sig) + MA(StdErr(var1,period), atr_sig);
함수식1)
ATR = Ma(TrueRange, Period);
함수식2)
input: Price(numeric),Length(numeric);
var: y(0),x(0),n(0),j(0),
sgy(0),sgy²(0),sgx(0),sgx²(0),sgxy(0);
y = Price;
n = Length;
sgy = accumN(y,n);
sgy² = accumN(y^2,n);
sgx = 0;
sgx² = 0;
sgxy = 0;
for j = 1 to n {
sgx = sgx + j;
sgx² = sgx² + j^2;
sgxy = sgxy + (j * y[n-j]);
}
StdErr = sqrt(1/(n*(n-2)) * (n*sgy² - sgy^2 - (n*sgxy - sgx*sgy)^2 / (n*sgx² - sgx^2)));
답변 1
예스스탁 예스스탁 답변
2021-08-02 12:34:49
안녕하세요
예스스탁입니다.
INPUT:period(60);
input:ATR_sig(5);
var : nn(0);
var : TH(0),TL(0),TR(0),StdErrv(0);
var: x(0),j(0),
sgy(0),sgy²(0),sgx(0),sgx²(0),sgxy(0);
If C[1] > H then
TH = C[1];
else
TH = H;
If C[1] < L then
TL = C[1];
else
TL = L;
TR = TH-TL;
var1 = Ma(TR, Period);
Var2 = ma(var1,atr_sig);
sgy = accumN(var1,Period);
sgy² = accumN(var1^2,Period);
sgx = 0;
sgx² = 0;
sgxy = 0;
for j = 1 to Period
{
sgx = sgx + j;
sgx² = sgx² + j^2;
sgxy = sgxy + (j * var1[Period-j]);
}
StdErrv = sqrt(1/(Period*(Period-2)) * (Period*sgy² - sgy^2 - (Period*sgxy - sgx*sgy)^2 / (Period*sgx² - sgx^2)));
Var3 = MA(StdErrv, atr_sig);
nn = Var2 + Var3;
Plot1(nn);
즐거운 하루되세요
> yes 님이 쓴 글입니다.
> 제목 : 부탁 드립니다.
> 도움에 감사 드립니다.
함수식을 사용히지 않고
일반 수식으로 수정 편집 부탁 드립니다.
INPUT:period(60);
input:ATR_sig(5);
var:nn(0);
var1=ATr(period);
nn=MA(var1, atr_sig) + MA(StdErr(var1,period), atr_sig);
함수식1)
ATR = Ma(TrueRange, Period);
함수식2)
input: Price(numeric),Length(numeric);
var: y(0),x(0),n(0),j(0),
sgy(0),sgy²(0),sgx(0),sgx²(0),sgxy(0);
y = Price;
n = Length;
sgy = accumN(y,n);
sgy² = accumN(y^2,n);
sgx = 0;
sgx² = 0;
sgxy = 0;
for j = 1 to n {
sgx = sgx + j;
sgx² = sgx² + j^2;
sgxy = sgxy + (j * y[n-j]);
}
StdErr = sqrt(1/(n*(n-2)) * (n*sgy² - sgy^2 - (n*sgxy - sgx*sgy)^2 / (n*sgx² - sgx^2)));
다음글
이전글