안녕하세요 예스스탁입니다. input : mLENGTH1(3),mLENGTH2(5),mLENGTH3(10),mLENGTH4(20), ## 월봉 wLENGTH11(3),wLENGTH12(5),wLENGTH13(10),wLENGTH14(20),wLENGTH15(60), ## 주봉 LENGTH21(3),LENGTH22(5),LENGTH23(10),LENGTH24(20),LENGTH25(60),LENGTH26(120),LENGTH27(240), ## 일봉 mPeriod1(3),mPeriod2(5),mPeriod3(10),mPeriod4(20), ## 월봉 wPeriod11(3),wPeriod12(5),wPeriod13(10),wPeriod14(20),wPeriod15(60), ## 주봉 Period21(3),Period22(5),Period23(10),Period24(20),Period25(60),Period26(120),Period27(240); ## 일봉 var : mcnt(0),wcnt(0),cnt(0); var : mTCHAN1(0),mTCHAN2(0),mTCHAN3(0),mTCHAN4(0), ## 월봉 wTCHAN11(0),wTCHAN12(0),wTCHAN13(0),wTCHAN14(0),wTCHAN15(0), ## 주봉 TCHAN21(0),TCHAN22(0),TCHAN23(0),TCHAN24(0),TCHAN25(0),TCHAN26(0),TCHAN27(0); ## 일봉 var : sum1(0),CSum1(0),sum2(0),CSum2(0),sum3(0),CSum3(0),sum4(0),CSum4(0); ## 월봉 거래대금 var : sum11(0),CSum11(0),sum12(0),CSum12(0),sum13(0),CSum13(0),sum14(0),CSum14(0),sum15(0),CSum15(0); ## 주봉 거래대금 var : counter(0); Array : MM[30](0),MV[30](0); ## 월봉 거래대금/거래량 Array : WM[70](0),WV[70](0); ## 주봉 거래대금/거래량 ## 월봉 거래대금 if sdate > sdate[1]+30 Then{ MM[0] = 0; MV[0] = 0; for mcnt = 1 to 21{ MM[mcnt] = MM[mcnt-1][1]; MV[mcnt] = MV[mcnt-1][1]; } } MM[0] = MM[0] + M; MV[0] = MV[0] + V; mTCHAN1 = MM[1]/MV[1]; ## 월봉 3 최고거래대금/거래량 for mcnt = 1 to mLENGTH1 { if MM[mcnt]/MV[mcnt] > mTCHAN1 Then mTCHAN1 = MM[mcnt]/MV[mcnt] ; } mTCHAN2 = MM[1]/MV[1]; ## 월봉5 최고거래대금/거래량 for mcnt = 1 to mLENGTH2 { if MM[mcnt]/MV[mcnt] > mTCHAN2 Then mTCHAN2 = MM[mcnt]/MV[mcnt] ; } mTCHAN3 = MM[1]/MV[1]; ## 월봉 10 최고거래대금/거래량 for mcnt = 1 to mLENGTH3 { if MM[mcnt]/MV[mcnt] > mTCHAN3 Then mTCHAN3 = MM[mcnt]/MV[mcnt] ; } mTCHAN4 = MM[1]/MV[1]; ## 월봉 20 최고거래대금/거래량 for mcnt = 1 to mLENGTH4 { if MM[mcnt]/MV[mcnt] > mTCHAN4 Then mTCHAN4 = MM[mcnt]/MV[mcnt] ; } Sum1 = 0; CSum1 = 0; For counter = 0 To mPeriod1-1 { Sum1 = Sum1 + (MM[counter]/MV[counter])*(mPeriod1 - counter); CSum1 = CSum1 + mPeriod1 - counter; } Sum2 = 0; CSum2 = 0; For counter = 0 To mPeriod2-1 { Sum2 = Sum2 + (MM[counter]/MV[counter])*(mPeriod2 - counter); CSum2 = CSum2 + mPeriod2 - counter; } Sum3 = 0; CSum3 = 0; For counter = 0 To mPeriod3-1 { Sum3 = Sum3 + (MM[counter]/MV[counter])*(mPeriod3 - counter); CSum3 = CSum3 + mPeriod3 - counter; } Sum4 = 0; CSum4 = 0; For counter = 0 To mPeriod4-1 { Sum4 = Sum4 + (MM[counter]/MV[counter])*(mPeriod4 - counter); CSum4 = CSum4 + mPeriod4 - counter; } var1 = Sum1/CSum1; ## 월 평균가격 3 var2 = Sum2/CSum2; ## 월 평균가격 5 var3 = Sum3/CSum3; ## 월 평균가격 10 var4 = Sum4/CSum4; ## 월 평균가격 20 ## 주봉 if DayOfWeek(sdate) <= DayOfWeek(sdate[1]) and sdate > sdate[1] Then{ WM[0] = 0; WV[0] = 0; for wcnt = 1 to 61{ WM[wcnt] = WM[wcnt-1][1]; WV[wcnt] = WV[wcnt-1][1]; } } WM[0] = WM[0] + M; WV[0] = WV[0] + V; wTCHAN11 = WM[1]/WV[1]; ## 주봉 3 최고거래대금/거래량 for wcnt = 1 to wLENGTH11 { if WM[wcnt]/WV[wcnt] > wTCHAN11 Then wTCHAN11 = WM[wcnt]/WV[wcnt]; } wTCHAN12 = WM[1]/WV[1]; ## 주봉 5 최고거래대금/거래량 for wcnt = 1 to wLENGTH12 { if WM[wcnt]/WV[wcnt] > wTCHAN12 Then wTCHAN12 = WM[wcnt]/WV[wcnt]; } wTCHAN13 = WM[1]/WV[1]; ## 주봉 10 최고거래대금/거래량 for wcnt = 1 to wLENGTH13 { if WM[wcnt]/WV[wcnt] > wTCHAN13 Then wTCHAN13 = WM[wcnt]/WV[wcnt]; } wTCHAN14 = WM[1]/WV[1]; ## 주봉 20 최고거래대금/거래량 for wcnt = 1 to wLENGTH14 { if WM[wcnt]/WV[wcnt] > wTCHAN14 Then wTCHAN14 = WM[wcnt]/WV[wcnt]; } wTCHAN15 = WM[1]/WV[1]; ## 주봉 60 최고거래대금/거래량 for wcnt = 1 to wLENGTH15 { if WM[wcnt]/WV[wcnt] > wTCHAN15 Then wTCHAN15 = WM[wcnt]/WV[wcnt]; } Sum11 = 0; CSum11 = 0; For counter = 0 To wPeriod11-1 { Sum11 = Sum11 + (WM[counter]/WV[counter])*(wPeriod11 - counter); CSum11 = CSum11 + wPeriod11 - counter; } Sum12 = 0; CSum12 = 0; For counter = 0 To wPeriod12-1 { Sum12 = Sum12 + (WM[counter]/WV[counter])*(wPeriod12 - counter); CSum12 = CSum12 + wPeriod12 - counter; } Sum13 = 0; CSum13 = 0; For counter = 0 To wPeriod13-1 { Sum13 = Sum13 + (WM[counter]/WV[counter])*(wPeriod13 - counter); CSum13 = CSum13 + wPeriod13 - counter; } Sum14 = 0; CSum14 = 0; For counter = 0 To wPeriod14-1 { Sum14 = Sum14 + (WM[counter]/WV[counter])*(wPeriod14 - counter); CSum14 = CSum14 + wPeriod14 - counter; } Sum15 = 0; CSum15 = 0; For counter = 0 To wPeriod15-1 { Sum15 = Sum15 + (WM[counter]/WV[counter])*(wPeriod15 - counter); CSum15 = CSum15 + wPeriod15 - counter; } ## 주봉 var11 = Sum11/CSum11; ## 주 평균가격 3 var12 = Sum12/CSum12; ## 주 평균가격 5 var13 = Sum13/CSum13; ## 주 평균가격 10 var14 = Sum14/CSum14; ## 주 평균가격 20 var15 = Sum15/CSum15; ## 주 평균가격 60 ## 일봉 TCHAN21 = HIGHEST(M/V, LENGTH21)[1]; ## 일 3 TCHAN22 = HIGHEST(M/V, LENGTH22)[1]; ## 일 5 TCHAN23 = HIGHEST(M/V, LENGTH23)[1]; ## 일 10 TCHAN24 = HIGHEST(M/V, LENGTH24)[1]; ## 일 20 TCHAN25 = HIGHEST(M/V, LENGTH25)[1]; ## 일 60 TCHAN26 = HIGHEST(M/V, LENGTH26)[1]; ## 일 120 TCHAN27 = HIGHEST(M/V, LENGTH27)[1]; ## 일 240 var21 = wma(M/V,Period21); ## 일 평균가격 3 var22 = wma(M/V,Period22); ## 일 평균가격 5 var23 = wma(M/V,Period23); ## 일 평균가격 10 var24 = wma(M/V,Period24); ## 일 평균가격 20 var25 = wma(M/V,Period25); ## 일 평균가격 60 var26 = wma(M/V,Period26); ## 일 평균가격 120 var27 = wma(M/V,Period27); ## 일 평균가격 240 즐거운 하루되세요 > 맥스 님이 쓴 글입니다. > 제목 : 문의드립니다. > 지표식관련 문의드립니다. 일봉차트에서 월봉 주봉 및 일봉의 (가중 거래대금/거래량 ) 의 이평을 불러오고자 합니다. 월봉, 주봉, 일봉의 각 기간만큼의 총합거래래금/총합거래량을 표현코자 합니다. 아래의 지표식 폼으로 작성해 주시기 바랍니다. 감사합니다. input : mLENGTH1(3),mLENGTH2(5),mLENGTH3(10),mLENGTH4(20), ## 월봉 wLENGTH11(3),wLENGTH12(5),wLENGTH13(10),wLENGTH14(20),wLENGTH15(60), ## 주봉 LENGTH21(3),LENGTH22(5),LENGTH23(10),LENGTH24(20),LENGTH25(60),LENGTH26(120),LENGTH27(240), ## 일봉 mPeriod1(3),mPeriod2(5),mPeriod3(10),mPeriod4(20), ## 월봉 wPeriod11(3),wPeriod12(5),wPeriod13(10),wPeriod14(20),wPeriod15(60), ## 주봉 Period21(3),Period22(5),Period23(10),Period24(20),Period25(60),Period26(120),Period27(240); ## 일봉 var : mcnt(0),wcnt(0),cnt(0); var : mTCHAN1(0),mTCHAN2(0),mTCHAN3(0),mTCHAN4(0) ## 월봉 wTCHAN11(0),wTCHAN12(0),wTCHAN13(0),wTCHAN14(0),wTCHAN15(0) ## 주봉 TCHAN21(0),TCHAN22(0),TCHAN23(0),TCHAN24(0),TCHAN25(0),TCHAN26(0),TCHAN27(0); ## 일봉 var : sum1(0),CSum1(0),sum2(0),CSum2(0),sum3(0),CSum3(0),sum4(0),CSum4(0); ## 월봉 거래대금 var : sum11(0),CSum11(0),sum12(0),CSum12(0),sum13(0),CSum13(0),sum14(0),CSum14(0),sum15(0),CSum15(0); ## 주봉 거래대금 var : counter(0); Array : MM[30](0),MV[30](0); ## 월봉 거래대금/거래량 Array : WM[70](0),WV[70](0); ## 주봉 거래대금/거래량 ## 월봉 거래대금 if sdate > sdate[1]+30 Then{ MM[0] = 0; MV[0] = 0; for mcnt = 1 to 21{ MM[mcnt] = MM[mcnt-1][1]; MV[mcnt] = MV[mcnt-1][1]; } } MM[0] = MM[0] + M; MV[0] = MV[0] + V; mTCHAN1 = mHH[1]; ## 월봉 3 최고거래대금/거래량 for mcnt = 1 to mLENGTH1 { if mHH[mcnt] > mTCHAN1 Then mTCHAN1 = mHH[mcnt]; } mTCHAN2 = mHH[1]; ## 월봉5 최고거래대금/거래량 for mcnt = 1 to mLENGTH2 { if mHH[mcnt] > mTCHAN2 Then mTCHAN2 = mHH[mcnt]; } mTCHAN3 = mHH[1]; ## 월봉 10 최고거래대금/거래량 for mcnt = 1 to mLENGTH3 { if mHH[mcnt] > mTCHAN3 Then mTCHAN3 = mHH[mcnt]; } mTCHAN4 = mHH[1]; ## 월봉 20 최고거래대금/거래량 for mcnt = 1 to mLENGTH4 { if mHH[mcnt] > mTCHAN4 Then mTCHAN4 = mHH[mcnt]; } Sum1 = 0; CSum1 = 0; For counter = 0 To mPeriod1-1 { Sum1 = Sum1 + (MM[counter]/MV[counter])*(mPeriod1 - counter); CSum1 = CSum1 + mPeriod1 - counter; } Sum2 = 0; CSum2 = 0; For counter = 0 To mPeriod2-1 { Sum2 = Sum2 + (MM[counter]/MV[counter])*(mPeriod2 - counter); CSum2 = CSum2 + mPeriod2 - counter; } Sum3 = 0; CSum3 = 0; For counter = 0 To mPeriod3-1 { Sum3 = Sum3 + (MM[counter]/MV[counter])*(mPeriod3 - counter); CSum3 = CSum3 + mPeriod3 - counter; } Sum4 = 0; CSum4 = 0; For counter = 0 To mPeriod4-1 { Sum4 = Sum4 + (MM[counter]/MV[counter])*(mPeriod4 - counter); CSum4 = CSum4 + mPeriod4 - counter; } var1 = Sum1/CSum1; ## 월 평균가격 3 var2 = Sum2/CSum2; ## 월 평균가격 5 var3 = Sum3/CSum3; ## 월 평균가격 10 var4 = Sum4/CSum4; ## 월 평균가격 20 ## 주봉 if DayOfWeek(sdate) <= DayOfWeek(sdate[1]) and sdate > sdate[1] Then{ WM[0] = 0; WV[0] = 0; for wcnt = 1 to 61{ WM[wcnt] = WM[wcnt-1][1]; WV[wcnt] = WV[wcnt-1][1]; } } WM[0] = WM[0] + M; WV[0] = WV[0] + V; wTCHAN11 = wHH[1]; ## 주봉 3 최고거래대금/거래량 for wcnt = 1 to wLENGTH11 { if wHH[wcnt] > wTCHAN11 Then wTCHAN11 = wHH[wcnt]; } wTCHAN12 = wHH[1]; ## 주봉 5 최고거래대금/거래량 for wcnt = 1 to wLENGTH12 { if wHH[wcnt] > wTCHAN12 Then wTCHAN12 = wHH[wcnt]; } wTCHAN13 = wHH[1]; ## 주봉 10 최고거래대금/거래량 for wcnt = 1 to wLENGTH13 { if wHH[wcnt] > wTCHAN13 Then wTCHAN13 = wHH[wcnt]; } wTCHAN14 = wHH[1]; ## 주봉 20 최고거래대금/거래량 for wcnt = 1 to wLENGTH14 { if wHH[wcnt] > wTCHAN14 Then wTCHAN14 = wHH[wcnt]; } wTCHAN15 = wHH[1]; ## 주봉 60 최고거래대금/거래량 for wcnt = 1 to wLENGTH15 { if wHH[wcnt] > wTCHAN15 Then wTCHAN15 = wHH[wcnt]; } Sum11 = 0; CSum11 = 0; For counter = 0 To wPeriod11-1 { Sum11 = Sum11 + (WM[counter]/WV[counter])*(wPeriod11 - counter); CSum11 = CSum11 + wPeriod11 - counter; } Sum12 = 0; CSum12 = 0; For counter = 0 To wPeriod12-1 { Sum12 = Sum12 + (WM[counter]/WV[counter])*(wPeriod12 - counter); CSum12 = CSum12 + wPeriod12 - counter; } Sum13 = 0; CSum13 = 0; For counter = 0 To wPeriod13-1 { Sum13 = Sum13 + (WM[counter]/WV[counter])*(wPeriod13 - counter); CSum13 = CSum13 + wPeriod13 - counter; } Sum14 = 0; CSum14 = 0; For counter = 0 To wPeriod14-1 { Sum14 = Sum14 + (WM[counter]/WV[counter])*(wPeriod14 - counter); CSum14 = CSum14 + wPeriod14 - counter; } Sum15 = 0; CSum15 = 0; For counter = 0 To wPeriod15-1 { Sum15 = Sum15 + (WM[counter]/WV[counter])*(wPeriod15 - counter); CSum15 = CSum15 + wPeriod15 - counter; } ## 주봉 var11 = Sum11/CSum11; ## 주 평균가격 3 var12 = Sum12/CSum12; ## 주 평균가격 5 var13 = Sum13/CSum13; ## 주 평균가격 10 var14 = Sum14/CSum14; ## 주 평균가격 20 var15 = Sum15/CSum15; ## 주 평균가격 60 ## 일봉 TCHAN21 = HIGHEST(M/V, LENGTH21)[1]; ## 일 3 TCHAN22 = HIGHEST(M/V, LENGTH22)[1]; ## 일 5 TCHAN23 = HIGHEST(M/V, LENGTH23)[1]; ## 일 10 TCHAN24 = HIGHEST(M/V, LENGTH24)[1]; ## 일 20 TCHAN25 = HIGHEST(M/V, LENGTH25)[1]; ## 일 60 TCHAN26 = HIGHEST(M/V, LENGTH26)[1]; ## 일 120 TCHAN27 = HIGHEST(M/V, LENGTH27)[1]; ## 일 240 var21 = wma(M/V,Period21); ## 일 평균가격 3 var22 = wma(M/V,Period22); ## 일 평균가격 5 var23 = wma(M/V,Period23); ## 일 평균가격 10 var24 = wma(M/V,Period24); ## 일 평균가격 20 var25 = wma(M/V,Period25); ## 일 평균가격 60 var26 = wma(M/V,Period26); ## 일 평균가격 120 var27 = wma(M/V,Period27); ## 일 평균가격 240