커뮤니티
전년고저가
2013-08-22 21:05:54
163
글번호 66730
Input : Length(5),Period2(1.01);
Var : Counter(0), CSum(0),DSum(0), DWMA(0),WSum(0), WWMA(0),MSum(0), MWMA(0);
DSum = 0;
WSum = 0;
MSum = 0;
CSum = 0;
For counter = 1 To Length {
DSum = DSum + DayClose(counter) * (Length - counter);
WSum = WSum + weekClose(counter) * (Length - counter);
MSum = MSum + MonthClose(counter) * (Length - counter);
CSum = CSum + Length - counter;
}
If CSum > 0 Then {
DWMA = DSum / CSum;
WWMA = WSum / CSum;
MWMA = MSum / CSum;
}
Else{
DWMA = 0;
WWMA = 0;
MWMA = 0;
}
if date != date[1] Then{
value1 = 0;
value2 = 0;
value3 = 0;
value4 = value3[1];
}
value1 = value1+M;
value2 = value2+V;
value3 = value1/value2;
if DayOfWeek(sdate) < DayOfWeek(sdate[1]) Then{
value11 = 0;
value12 = 0;
value13 = 0;
value14 = value13[1];
}
value11 = value11+M;
value12 = value12+V;
value13 = value11/value12;
if date > date[1]+30 Then{
var1 = H;
var2 = L;
var3 = var1[1];
var4 = var2[1];
var5 = O;
value21 = 0;
value22 = 0;
value23 = 0;
value24 = value23[1];
}
if H > var1 Then
var1 = H;
if L < var2 Then
var2 = L;
value21 = value21+M;
value22 = value22+V;
value23 = value21/value22;
plot1(monthclose(1),"전월종가"); //월봉의 전종가
plot2(var3,"월전고가"); //전월 월봉의 고가
plot3(var4,"월전저가"); //전월 월봉의 저가
plot4(weekClose(1),"전주종가"); //전주 주봉의 종가
plot5(weekhigh(1),"전주고가"); //전주 주봉의 고가
plot6(weekLow(1),"전주저가"); //전주 주봉의 저가
plot7(dayClose(1),"일봉전일종가");
plot8(DayHigh(1),"일봉전일고가");
plot9(DayLow(1),"일봉전일저가");
plot10(value4,"전일총거래대금/전일총거래량");
plot11(MonthOpen(0),"당월시가"); //월봉의 시가
plot12(weekopen(0),"주봉시가");
plot13(dayopen(0),"일봉시가");
plot14(weekhigh(0),"a전주고가"); //전주 주봉의 고가
plot15(weekLow(0),"a전주저가"); //전주 주봉의 저가
plot16(weekLow(0)*Period2,"a전주저가3%"); //전주 주봉의 1.5%저가
plot17(var1,"당월고가"); //당월 월봉의 고가
plot18(var2,"당월저가"); //당월 월봉의 저가
===============================================================
위 수식에 전년고가, 전년저가 를 추가해주시면 고맙겠습니다
답변 1
예스스탁 예스스탁 답변
2013-08-23 10:40:45
안녕하세요
예스탁입니다.
plot19와 plot20으로 추가했습니다.
Input : Length(5),Period2(1.01);
Var : Counter(0), CSum(0),DSum(0), DWMA(0),WSum(0), WWMA(0),MSum(0), MWMA(0);
var : YH(0),YL(0),preYH(0),preYL(0);
DSum = 0;
WSum = 0;
MSum = 0;
CSum = 0;
For counter = 1 To Length {
DSum = DSum + DayClose(counter) * (Length - counter);
WSum = WSum + weekClose(counter) * (Length - counter);
MSum = MSum + MonthClose(counter) * (Length - counter);
CSum = CSum + Length - counter;
}
If CSum > 0 Then {
DWMA = DSum / CSum;
WWMA = WSum / CSum;
MWMA = MSum / CSum;
}
Else{
DWMA = 0;
WWMA = 0;
MWMA = 0;
}
if date != date[1] Then{
value1 = 0;
value2 = 0;
value3 = 0;
value4 = value3[1];
}
value1 = value1+M;
value2 = value2+V;
value3 = value1/value2;
if DayOfWeek(sdate) < DayOfWeek(sdate[1]) Then{
value11 = 0;
value12 = 0;
value13 = 0;
value14 = value13[1];
}
value11 = value11+M;
value12 = value12+V;
value13 = value11/value12;
if date > date[1]+30 Then{
var1 = H;
var2 = L;
var3 = var1[1];
var4 = var2[1];
var5 = O;
value21 = 0;
value22 = 0;
value23 = 0;
value24 = value23[1];
}
if H > var1 Then
var1 = H;
if L < var2 Then
var2 = L;
value21 = value21+M;
value22 = value22+V;
value23 = value21/value22;
if date > date[1]+1000 Then{
YH = H;
YL = L;
PreYH = YH[1];
PreYL = YL[1];
}
if H > YH Then
YH = H;
if L < YL Then
YL = L;
plot1(monthclose(1),"전월종가"); //월봉의 전종가
plot2(var3,"월전고가"); //전월 월봉의 고가
plot3(var4,"월전저가"); //전월 월봉의 저가
plot4(weekClose(1),"전주종가"); //전주 주봉의 종가
plot5(weekhigh(1),"전주고가"); //전주 주봉의 고가
plot6(weekLow(1),"전주저가"); //전주 주봉의 저가
plot7(dayClose(1),"일봉전일종가");
plot8(DayHigh(1),"일봉전일고가");
plot9(DayLow(1),"일봉전일저가");
plot10(value4,"전일총거래대금/전일총거래량");
plot11(MonthOpen(0),"당월시가"); //월봉의 시가
plot12(weekopen(0),"주봉시가");
plot13(dayopen(0),"일봉시가");
plot14(weekhigh(0),"a전주고가"); //전주 주봉의 고가
plot15(weekLow(0),"a전주저가"); //전주 주봉의 저가
plot16(weekLow(0)*Period2,"a전주저가3%"); //전주 주봉의 1.5%저가
plot17(var1,"당월고가"); //당월 월봉의 고가
plot18(var2,"당월저가"); //당월 월봉의 저가
plot19(PreYH,"전년고가");
plot20(PreYL,"전년저가");
즐거운 하루되세요
> HI_yh7012 님이 쓴 글입니다.
> 제목 : 전년고저가
> Input : Length(5),Period2(1.01);
Var : Counter(0), CSum(0),DSum(0), DWMA(0),WSum(0), WWMA(0),MSum(0), MWMA(0);
DSum = 0;
WSum = 0;
MSum = 0;
CSum = 0;
For counter = 1 To Length {
DSum = DSum + DayClose(counter) * (Length - counter);
WSum = WSum + weekClose(counter) * (Length - counter);
MSum = MSum + MonthClose(counter) * (Length - counter);
CSum = CSum + Length - counter;
}
If CSum > 0 Then {
DWMA = DSum / CSum;
WWMA = WSum / CSum;
MWMA = MSum / CSum;
}
Else{
DWMA = 0;
WWMA = 0;
MWMA = 0;
}
if date != date[1] Then{
value1 = 0;
value2 = 0;
value3 = 0;
value4 = value3[1];
}
value1 = value1+M;
value2 = value2+V;
value3 = value1/value2;
if DayOfWeek(sdate) < DayOfWeek(sdate[1]) Then{
value11 = 0;
value12 = 0;
value13 = 0;
value14 = value13[1];
}
value11 = value11+M;
value12 = value12+V;
value13 = value11/value12;
if date > date[1]+30 Then{
var1 = H;
var2 = L;
var3 = var1[1];
var4 = var2[1];
var5 = O;
value21 = 0;
value22 = 0;
value23 = 0;
value24 = value23[1];
}
if H > var1 Then
var1 = H;
if L < var2 Then
var2 = L;
value21 = value21+M;
value22 = value22+V;
value23 = value21/value22;
plot1(monthclose(1),"전월종가"); //월봉의 전종가
plot2(var3,"월전고가"); //전월 월봉의 고가
plot3(var4,"월전저가"); //전월 월봉의 저가
plot4(weekClose(1),"전주종가"); //전주 주봉의 종가
plot5(weekhigh(1),"전주고가"); //전주 주봉의 고가
plot6(weekLow(1),"전주저가"); //전주 주봉의 저가
plot7(dayClose(1),"일봉전일종가");
plot8(DayHigh(1),"일봉전일고가");
plot9(DayLow(1),"일봉전일저가");
plot10(value4,"전일총거래대금/전일총거래량");
plot11(MonthOpen(0),"당월시가"); //월봉의 시가
plot12(weekopen(0),"주봉시가");
plot13(dayopen(0),"일봉시가");
plot14(weekhigh(0),"a전주고가"); //전주 주봉의 고가
plot15(weekLow(0),"a전주저가"); //전주 주봉의 저가
plot16(weekLow(0)*Period2,"a전주저가3%"); //전주 주봉의 1.5%저가
plot17(var1,"당월고가"); //당월 월봉의 고가
plot18(var2,"당월저가"); //당월 월봉의 저가
===============================================================
위 수식에 전년고가, 전년저가 를 추가해주시면 고맙겠습니다
다음글
이전글