커뮤니티
수식수정부탁드립니다
2020-03-31 14:52:53
824
글번호 137399
Input:Period1(17),Period2(17),Period3(17),n1(0),n2(0),n3(0), multi1(1),multi2(2),multi3(2);
Var:기울기1(0),절편1(0),회귀선1(0),회귀선tmp(0),
기울기2(0),절편2(0),회귀선2(0),
기울기3(0),절편3(0),회귀선3(0),
채널폭(0),j(0),표준오차(0),표준편차(0);
Var : nn1(0),xx1(0),yy1(0),Intercept1(0);
Var : nn2(0),xx2(0),yy2(0),Intercept2(0);
Var : nn3(0),xx3(0),yy3(0),Intercept3(0);
var: y4(0),x4(0),n4(0),j4(0),∑y(0),∑y²(0),∑x(0),∑x²(0),∑xy(0),StdErr(0);
nn1 = Period1;
xx1 = Index;
yy1 = c;
Intercept1 = ma(yy1,nn1) - (ma(xx1*yy1, nn1) - ma(xx1,nn1) * ma(yy1,nn1)) /
(ma(xx1^2,nn1) - (ma(xx1,nn1)^2)) * ma(xx1,nn1);
nn2 = Period2;
xx2 = Index;
yy2 = c;
Intercept2 = ma(yy2,nn2) - (ma(xx2*yy2, nn2) - ma(xx2,nn2) * ma(yy2,nn2)) /
(ma(xx2^2,nn2) - (ma(xx2,nn2)^2)) * ma(xx2,nn2);
nn3 = Period2;
xx3 = Index;
yy3 = c;
Intercept3 = ma(yy3,nn3) - (ma(xx3*yy3, nn3) - ma(xx3,nn3) * ma(yy3,nn3)) /
(ma(xx3^2,nn3) - (ma(xx3,nn3)^2)) * ma(xx3,nn3);
y4 = c;
n4 = Period2;
∑y = accumN(y4,n4);
∑y² = accumN(y4^2,n4);
∑x = 0;
∑x² = 0;
∑xy = 0;
for j4 = 1 to n4{
∑x = ∑x + j4;
∑x² = ∑x² + j4^2;
∑xy = ∑xy + (j4 * y4[n4-j4]);
}
StdErr = sqrt(1/(n4*(n4-2)) * (n4*∑y² - ∑y^2 - (n4*∑xy - ∑x*∑y)^2 / (n4*∑x² - ∑x^2)));
기울기1 = LRS(C, Period1)[n1];
절편1 = Intercept1[n1];
회귀선1 = 기울기1 * Index + 절편1;
채널폭 = 0;
for j = n1 to Period1 + n1 - 1 {
회귀선tmp = 기울기1 * Index[j] + 절편1;
채널폭 = max(채널폭,max(abs(H[j] - 회귀선tmp),abs(회귀선tmp - L[j])));
}
기울기2 = LRS(C, Period2)[n2];
절편2 = intercept2[n2];
회귀선2 = 기울기2 * Index + 절편2;
표준오차 = StdErr[n2];
기울기3 = LRS(C, Period3)[n3];
절편3 = intercept3[n3];
회귀선3 = 기울기3 * Index + 절편3;
표준편차 = STD(C,Period3)[n3];
value1=기울기3;
value2=절편3;
상기수식을 지표수식(라인 혹은 오실레이터)으로 부탁드립니다.
답변 1
예스스탁 예스스탁 답변
2020-04-01 16:20:10
안녕하세요
예스스탁입니다.
올려주신 내용만으로 어떤 값을 지표를 그려야 할지 알수가 없습니다.
좀더 자세한 내용을 올려주시기 바랍니다.
즐거운 하루되세요
> 수색대대 님이 쓴 글입니다.
> 제목 : 수식수정부탁드립니다
> Input:Period1(17),Period2(17),Period3(17),n1(0),n2(0),n3(0), multi1(1),multi2(2),multi3(2);
Var:기울기1(0),절편1(0),회귀선1(0),회귀선tmp(0),
기울기2(0),절편2(0),회귀선2(0),
기울기3(0),절편3(0),회귀선3(0),
채널폭(0),j(0),표준오차(0),표준편차(0);
Var : nn1(0),xx1(0),yy1(0),Intercept1(0);
Var : nn2(0),xx2(0),yy2(0),Intercept2(0);
Var : nn3(0),xx3(0),yy3(0),Intercept3(0);
var: y4(0),x4(0),n4(0),j4(0),∑y(0),∑y²(0),∑x(0),∑x²(0),∑xy(0),StdErr(0);
nn1 = Period1;
xx1 = Index;
yy1 = c;
Intercept1 = ma(yy1,nn1) - (ma(xx1*yy1, nn1) - ma(xx1,nn1) * ma(yy1,nn1)) /
(ma(xx1^2,nn1) - (ma(xx1,nn1)^2)) * ma(xx1,nn1);
nn2 = Period2;
xx2 = Index;
yy2 = c;
Intercept2 = ma(yy2,nn2) - (ma(xx2*yy2, nn2) - ma(xx2,nn2) * ma(yy2,nn2)) /
(ma(xx2^2,nn2) - (ma(xx2,nn2)^2)) * ma(xx2,nn2);
nn3 = Period2;
xx3 = Index;
yy3 = c;
Intercept3 = ma(yy3,nn3) - (ma(xx3*yy3, nn3) - ma(xx3,nn3) * ma(yy3,nn3)) /
(ma(xx3^2,nn3) - (ma(xx3,nn3)^2)) * ma(xx3,nn3);
y4 = c;
n4 = Period2;
∑y = accumN(y4,n4);
∑y² = accumN(y4^2,n4);
∑x = 0;
∑x² = 0;
∑xy = 0;
for j4 = 1 to n4{
∑x = ∑x + j4;
∑x² = ∑x² + j4^2;
∑xy = ∑xy + (j4 * y4[n4-j4]);
}
StdErr = sqrt(1/(n4*(n4-2)) * (n4*∑y² - ∑y^2 - (n4*∑xy - ∑x*∑y)^2 / (n4*∑x² - ∑x^2)));
기울기1 = LRS(C, Period1)[n1];
절편1 = Intercept1[n1];
회귀선1 = 기울기1 * Index + 절편1;
채널폭 = 0;
for j = n1 to Period1 + n1 - 1 {
회귀선tmp = 기울기1 * Index[j] + 절편1;
채널폭 = max(채널폭,max(abs(H[j] - 회귀선tmp),abs(회귀선tmp - L[j])));
}
기울기2 = LRS(C, Period2)[n2];
절편2 = intercept2[n2];
회귀선2 = 기울기2 * Index + 절편2;
표준오차 = StdErr[n2];
기울기3 = LRS(C, Period3)[n3];
절편3 = intercept3[n3];
회귀선3 = 기울기3 * Index + 절편3;
표준편차 = STD(C,Period3)[n3];
value1=기울기3;
value2=절편3;
상기수식을 지표수식(라인 혹은 오실레이터)으로 부탁드립니다.