키움 가격박스 지표와 Avgif, Stdevif 함수 변환

input : 기간(24); var : A(0),diff(0),i(0); var : TotalSum1(0),count1(0),Avgif1(0); var : SumSqrt1(0),Stdevif1(0); var : TotalSum2(0),count2(0),Avgif2(0); var : SumSqrt2(0),Stdevif2(0); var : top(0),btm(0); A = ma(C,기간); //data diff = C-A; // AvgIf(C- A, 1,0.0)와 StdevIf(C - A, 1,0.0) //compare가 1이면 data > value Condition1 = diff > 0; // AvgIf(C- A, -1,0.0)와 StdevIf(C - A, -1,0.0) //compare가 -1이면 data < value Condition2 = diff < 0; //diff > 0 조건이 만족한 봉에서 if Condition1 == true Then { //diff값을 전체 누적 TotalSum1 = TotalSum1 + diff; //만족횟수 저장 Count1 = Count1 + 1; //누적값/만족횟수로 avgif 계산 Avgif1 = TotalSum1/Count1; //표준편차 계산 SumSqrt1 = 0; //현재봉에서 차트 첫봉까지 가면서 For i = 0 to Index { //diff > 0 조건이 만족한 봉이면 if Condition1[i] == true Then { //해당봉의 diff값과 현재봉 avgif값의 차이를 제곱해서 누적 SumSqrt1 = SumSqrt1 + (diff[i] - avgif1)^2; } } //제곱누적값을 만족회수로 나누고 제곱근을 구함 Stdevif1 = SquareRoot(SumSqrt1/count1); } //diff < 0 조건이 만족한 봉에서 if Condition2 == true Then { //diff값을 전체 누적 TotalSum2 = TotalSum2 + diff; //만족횟수 저장 Count2 = Count2 + 1; //누적값/만족횟수로 avgif 계산 Avgif2 = TotalSum2/Count2; //표준편차 계산 SumSqrt2 = 0; //현재봉에서 차트 첫봉까지 가면서 For i = 0 to Index { //diff < 0 조건이 만족한 봉이면 if Condition2[i] == true Then { //해당봉의 diff값과 현재봉 avgif값의 차이를 제곱해서 누적 SumSqrt2 = SumSqrt2 + (diff[i] - avgif2)^2; } } //제곱누적값을 만족회수로 나누고 제곱근을 구함 Stdevif2 = SquareRoot(SumSqrt2/count2); } //상단계산 top = A + AvgIf1 + 2* StdevIf1; //하단계산 btm = A + AvgIf2 - 2* StdevIf2; Plot1(A,"박스중심선",Green); Plot2(top,"박스상단선",Red); Plot3(btm,"박스하단선",Blue);