커뮤니티
문의드립니다.
2013-02-15 17:10:02
398
글번호 59569
지표식관련 문의드립니다.
일봉차트에서 월봉 주봉 및 일봉의 (가중 거래대금/거래량) 의 이평을 불러오고자 합니다.
월봉, 주봉, 일봉의 각 기간만큼의 총합거래래금/총합거래량을 표현코자 합니다.
그리고 일봉의 price channel처럼 일봉 240기간중 최고 거래대금/거래량의 지표를 표현해 주세요.
아래의 지표식 폼으로 작성해 주시기 바랍니다.
감사합니다.
input : LENGTH1(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 : TCHAN1(0); ## 일 240일 기간중 최고 거래대금/거래량으로 변환
Array : mHH[30](0),mCC[30](0),mLL[30](0); ## 월봉
Array : wHH[70](0),wCC[70](0),wLL[70](0); ## 주봉
## 월봉
if sdate > sdate[1]+30 Then{
mHH[0] = H;
mLL[0] = L;
for mcnt = 1 to 21{
mHH[mcnt] = mHH[mcnt-1][1];
mCC[mcnt] = mCC[mcnt-1][1];
mLL[mcnt] = mLL[mcnt-1][1];
}
}
if H > mHH[0] Then mHH[0] = H;
if L < mLL[0] Then mLL[0] = L;
mCC[0] = C;
## 월봉
var1 = 가중 거래대금/거래량; ## 월 평균가격 3
var2 = 가중 거래대금/거래량; ## 월 평균가격 5
var3 = 가중 거래대금/거래량; ## 월 평균가격 10
var4 = 가중 거래대금/거래량; ## 월 평균가격 20
var9 = (mHH[0]+mLL[0])/2; ## 월봉 중간값
var10 = (mHH[0]+mLL[0]+mCC[0])/3; ## 월봉 대표값
## 주봉
if DayOfWeek(sdate) <= DayOfWeek(sdate[1]) and sdate > sdate[1] Then{
wHH[0] = H;
wLL[0] = L;
for wcnt = 1 to 61{
wHH[wcnt] = wHH[wcnt-1][1];
wCC[wcnt] = wCC[wcnt-1][1];
wLL[wcnt] = wLL[wcnt-1][1];
}
}
if H > wHH[0] Then wHH[0] = H;
if L < wLL[0] Then wLL[0] = L;
wCC[0] = C;
## 주봉
var11 = 가중 거래대금/거래량; ## 주 평균가격 3
var12 = 가중 거래대금/거래량; ## 주 평균가격 5
var13 = 가중 거래대금/거래량; ## 주 평균가격 10
var14 = 가중 거래대금/거래량; ## 주 평균가격 20
var15 = 가중 거래대금/거래량; ## 주 평균가격 60
var19 = (wHH[0]+wLL[0])/2; ## 주봉 중간값
var20 = (wHH[0]+wLL[0]+wCC[0])/3; ## 주봉 대표값
## 일봉
TCHAN1 = HIGHEST(High, LENGTH1)[1]; ## 일 240일중 최고 거래대금/거래량
var21 = 가중 거래대금/거래량; ## 일 평균가격 3
var22 = 가중 거래대금/거래량; ## 일 평균가격 5
var23 = 가중 거래대금/거래량; ## 일 평균가격 10
var24 = 가중 거래대금/거래량; ## 일 평균가격 20
var25 = 가중 거래대금/거래량; ## 일 평균가격 60
var26 = 가중 거래대금/거래량; ## 일 평균가격 120
var27 = 가중 거래대금/거래량; ## 일 평균가격 240
var29 = (DayHigh+DayLow)/2; ## 일봉 중간값
var30 = (DayHigh+DayLow+DayClose)/3; ## 일봉 대표값
답변 1
예스스탁 예스스탁 답변
2013-02-15 18:04:52
안녕하세요
예스스탁입니다.
input : LENGTH1(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 : 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 : mcnt(0),wcnt(0),cnt(0);
var : TCHAN1(0); ## 일 240일 기간중 최고 거래대금/거래량으로 변환
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;
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;
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 = Sum14 + (WM[counter]/WV[counter])*(wPeriod15 - counter);
CSum15 = CSum14 + wPeriod15 - counter;
}
## 주봉
var11 = Sum15/CSum15; ## 주 평균가격 3
var12 = Sum15/CSum15; ## 주 평균가격 5
var13 = Sum15/CSum15; ## 주 평균가격 10
var14 = Sum15/CSum15; ## 주 평균가격 20
var15 = Sum15/CSum15; ## 주 평균가격 60
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
## 일봉
TCHAN1 = HIGHEST(M/V, LENGTH1)[1]; ## 일 240일중 최고 거래대금/거래량
즐거운 하루되세요
> 맥스 님이 쓴 글입니다.
> 제목 : 문의드립니다.
> 지표식관련 문의드립니다.
일봉차트에서 월봉 주봉 및 일봉의 (가중 거래대금/거래량) 의 이평을 불러오고자 합니다.
월봉, 주봉, 일봉의 각 기간만큼의 총합거래래금/총합거래량을 표현코자 합니다.
그리고 일봉의 price channel처럼 일봉 240기간중 최고 거래대금/거래량의 지표를 표현해 주세요.
아래의 지표식 폼으로 작성해 주시기 바랍니다.
감사합니다.
input : LENGTH1(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 : TCHAN1(0); ## 일 240일 기간중 최고 거래대금/거래량으로 변환
Array : mHH[30](0),mCC[30](0),mLL[30](0); ## 월봉
Array : wHH[70](0),wCC[70](0),wLL[70](0); ## 주봉
## 월봉
if sdate > sdate[1]+30 Then{
mHH[0] = H;
mLL[0] = L;
for mcnt = 1 to 21{
mHH[mcnt] = mHH[mcnt-1][1];
mCC[mcnt] = mCC[mcnt-1][1];
mLL[mcnt] = mLL[mcnt-1][1];
}
}
if H > mHH[0] Then mHH[0] = H;
if L < mLL[0] Then mLL[0] = L;
mCC[0] = C;
## 월봉
var1 = 가중 거래대금/거래량; ## 월 평균가격 3
var2 = 가중 거래대금/거래량; ## 월 평균가격 5
var3 = 가중 거래대금/거래량; ## 월 평균가격 10
var4 = 가중 거래대금/거래량; ## 월 평균가격 20
var9 = (mHH[0]+mLL[0])/2; ## 월봉 중간값
var10 = (mHH[0]+mLL[0]+mCC[0])/3; ## 월봉 대표값
## 주봉
if DayOfWeek(sdate) <= DayOfWeek(sdate[1]) and sdate > sdate[1] Then{
wHH[0] = H;
wLL[0] = L;
for wcnt = 1 to 61{
wHH[wcnt] = wHH[wcnt-1][1];
wCC[wcnt] = wCC[wcnt-1][1];
wLL[wcnt] = wLL[wcnt-1][1];
}
}
if H > wHH[0] Then wHH[0] = H;
if L < wLL[0] Then wLL[0] = L;
wCC[0] = C;
## 주봉
var11 = 가중 거래대금/거래량; ## 주 평균가격 3
var12 = 가중 거래대금/거래량; ## 주 평균가격 5
var13 = 가중 거래대금/거래량; ## 주 평균가격 10
var14 = 가중 거래대금/거래량; ## 주 평균가격 20
var15 = 가중 거래대금/거래량; ## 주 평균가격 60
var19 = (wHH[0]+wLL[0])/2; ## 주봉 중간값
var20 = (wHH[0]+wLL[0]+wCC[0])/3; ## 주봉 대표값
## 일봉
TCHAN1 = HIGHEST(High, LENGTH1)[1]; ## 일 240일중 최고 거래대금/거래량
var21 = 가중 거래대금/거래량; ## 일 평균가격 3
var22 = 가중 거래대금/거래량; ## 일 평균가격 5
var23 = 가중 거래대금/거래량; ## 일 평균가격 10
var24 = 가중 거래대금/거래량; ## 일 평균가격 20
var25 = 가중 거래대금/거래량; ## 일 평균가격 60
var26 = 가중 거래대금/거래량; ## 일 평균가격 120
var27 = 가중 거래대금/거래량; ## 일 평균가격 240
var29 = (DayHigh+DayLow)/2; ## 일봉 중간값
var30 = (DayHigh+DayLow+DayClose)/3; ## 일봉 대표값
다음글
이전글