안녕하세요 예스스탁입니다. 함수명 : RWMA 반환값형 : 숫자형 Input : Price(NumericSeries), Length(NumericSimple); Var : Sum(0),Counter(0),CSum(0); Sum = 0; CSum = 0; For counter = 0 To Length - 1 Begin Sum = Sum + (Price[counter] * (counter+1)); CSum = CSum + (counter+1); End; If CSum > 0 Then RWMA = Sum / CSum; Else RWMA = 0; 즐거운 하루되세요 > 팽구 님이 쓴 글입니다. > 제목 : 수식수정부탁드려요 > 아래는 WMA의 사용자함수입니다. WMA는 최근데이터일수록 가중을 두고 있는데요.. 정반대로 과거데이터일수록 가중을 두게 수정부탁드려요 (RWMA) ============================================================================== /* Description : (W)eighted (M)oving (A)verage * * Provided By : YesStock Inc. (c) Copyright 2006 * E-Mail : webmaster@yesstock.com */ Input : Price(NumericSeries), Length(NumericSimple); Var : Sum(0), Counter(0), CSum(0); Sum = 0; CSum = 0; For counter = 0 To Length - 1 Begin Sum = Sum + Price[counter] * (Length - counter); CSum = CSum + Length - counter; End; If CSum > 0 Then WMA = Sum / CSum; Else WMA = 0;