커뮤니티
평균변동폭
2018-12-01 21:43:59
227
글번호 124052
관리자님 안녕하십니까??
저의 시작은 미미하였으나 관리자님의 도움으로 그 끝은 창대하리라 생각됩니다ㅋㅋ
혹시 이런것도 가능할런지요???
최근 3년동안의 요일별로 시가를 기준으로 한 최고가,최저가의 평균값과 표준편차값을 알수 있을까요?? 혹시 구현할수 있다면 차트에 평균값과 표준편차를 더하여 선으로 구현하고 싶습니다.
구현할수 있는거라면 어렵더라도 부탁말씀 정중히 올리겠습니다
ex) 3년 동안의 매주 월요일의 최고-시가의 평균값과 표준편차
3년 동안의 매주 월요일의 시가-최저의 평균값과 표준편차
3년 동안의 매주 화요일의 최고-시가의 평균값과 표준편차
3년 동안의 매주 화요일의 시가-최저의 평균값과 표준편차
.
.
.
3년 동안의 매주 금요일의 최고-시가의 평균값과 표준편차
3년 동안의 매주 금요일의 시가-최저의 평균값과 표준편차
답변 1
예스스탁 예스스탁 답변
2018-12-03 13:39:27
안녕하세요
예스스탁입니다.
input : P(156);#3년 156주
var : cnt(0);
Array : WH1[200](0),WH2[200](0),WH3[200](0),WH4[200](0),WH5[200](0);
Array : WL1[200](0),WL2[200](0),WL3[200](0),WL4[200](0),WL5[200](0);
var : WH1sum(0),WL1sum(0),WH1Sqrt(0),WL1Sqrt(0),Hma1(0),Lma1(0),WH1Stdv(0),WL1Stdv(0);
var : WH2sum(0),WL2sum(0),WH2Sqrt(0),WL2Sqrt(0),Hma2(0),Lma2(0),WH2Stdv(0),WL2Stdv(0);
var : WH3sum(0),WL3sum(0),WH3Sqrt(0),WL3Sqrt(0),Hma3(0),Lma3(0),WH3Stdv(0),WL3Stdv(0);
var : WH4sum(0),WL4sum(0),WH4Sqrt(0),WL4Sqrt(0),Hma4(0),Lma4(0),WH4Stdv(0),WL4Stdv(0);
var : WH5sum(0),WL5sum(0),WH5Sqrt(0),WL5Sqrt(0),Hma5(0),Lma5(0),WH5Stdv(0),WL5Stdv(0);
if bdate != bdate[1] then
{
if DayOfWeek(bdate) == 1 Then
{
for cnt = 1 to 199
{
WH1[cnt] = WH1[cnt-1][1];
WL1[cnt] = WL1[cnt-1][1];
}
}
if DayOfWeek(bdate) == 2 Then
{
for cnt = 1 to 199
{
WH2[cnt] = WH2[cnt-1][1];
WL2[cnt] = WL2[cnt-1][1];
}
}
if DayOfWeek(bdate) == 3 Then
{
for cnt = 1 to 199
{
WH3[cnt] = WH3[cnt-1][1];
WL3[cnt] = WL3[cnt-1][1];
}
}
if DayOfWeek(bdate) == 4 Then
{
for cnt = 1 to 199
{
WH4[cnt] = WH4[cnt-1][1];
WL4[cnt] = WL4[cnt-1][1];
}
}
if DayOfWeek(bdate) == 5 Then
{
for cnt = 1 to 199
{
WH5[cnt] = WH5[cnt-1][1];
WL5[cnt] = WL5[cnt-1][1];
}
}
}
if DayOfWeek(bdate) == 1 Then
{
WH1[0] = DayHigh-dayopen;
WL1[0] = dayopen-DayLow;
}
if DayOfWeek(bdate) == 2 Then
{
WH2[0] = DayHigh-dayopen;
WL2[0] = dayopen-DayLow;
}
if DayOfWeek(bdate) == 3 Then
{
WH3[0] = DayHigh-dayopen;
WL3[0] = dayopen-DayLow;
}
if DayOfWeek(bdate) == 4 Then
{
WH4[0] = DayHigh-dayopen;
WL4[0] = dayopen-DayLow;
}
if DayOfWeek(bdate) == 5 Then
{
WH5[0] = DayHigh-dayopen;
WL5[0] = dayopen-DayLow;
}
if WH1[P-1] > 0 and WL1[P-1] > 0 then
{
WH1sum = 0;
WL1sum = 0;
for cnt = 0 to P-1
{
WH1sum = WH1sum + WH1[cnt];
WL1sum = WL1sum + WL1[cnt];
}
Hma1 = WH1sum/P;
Lma1 = WL1sum/P;
WH1Sqrt = 0;
WL1Sqrt = 0;
For cnt = 0 To P - 1
{
WH1Sqrt = WH1Sqrt + (WH1[cnt] - Hma1)^2;
WL1Sqrt = WL1Sqrt + (WL1[cnt] - Lma1)^2;
}
WH1Stdv = SquareRoot(WH1Sqrt / P);
WL1Stdv = SquareRoot(WL1Sqrt / P);
plot1(Hma1);
plot2(Hma1+WH1Stdv);
plot3(Hma1-WH1Stdv);
plot4(Lma1);
plot5(Lma1+WL1Stdv);
plot6(Lma1-WL1Stdv);
}
if WH2[P-1] > 0 and WL2[P-1] > 0 then
{
WH2sum = 0;
WL2sum = 0;
for cnt = 0 to P-1
{
WH2sum = WH2sum + WH2[cnt];
WL2sum = WL2sum + WL2[cnt];
}
Hma2 = WH2sum/P;
Lma2 = WL2sum/P;
WH2Sqrt = 0;
WL2Sqrt = 0;
For cnt = 0 To P - 1
{
WH2Sqrt = WH2Sqrt + (WH2[cnt] - Hma2)^2;
WL2Sqrt = WL2Sqrt + (WL2[cnt] - Lma2)^2;
}
WH2Stdv = SquareRoot(WH2Sqrt / P);
WL2Stdv = SquareRoot(WL2Sqrt / P);
plot7(Hma2);
plot8(Hma2+WH2Stdv);
plot9(Hma2-WH2Stdv);
plot10(Lma2);
plot11(Lma2+WL2Stdv);
plot12(Lma2-WL2Stdv);
}
if WH3[P-1] > 0 and WL3[P-1] > 0 then
{
WH3sum = 0;
WL3sum = 0;
for cnt = 0 to P-1
{
WH3sum = WH3sum + WH3[cnt];
WL3sum = WL3sum + WL3[cnt];
}
Hma3 = WH3sum/P;
Lma3 = WL3sum/P;
WH3Sqrt = 0;
WL3Sqrt = 0;
For cnt = 0 To P - 1
{
WH3Sqrt = WH3Sqrt + (WH3[cnt] - Hma3)^2;
WL3Sqrt = WL3Sqrt + (WL3[cnt] - Lma3)^2;
}
WH3Stdv = SquareRoot(WH3Sqrt / P);
WL3Stdv = SquareRoot(WL3Sqrt / P);
plot13(Hma3);
plot14(Hma3+WH3Stdv);
plot15(Hma3-WH3Stdv);
plot16(Lma3);
plot17(Lma3+WL3Stdv);
plot18(Lma3-WL3Stdv);
}
if WH4[P-1] > 0 and WL4[P-1] > 0 then
{
WH4sum = 0;
WL4sum = 0;
for cnt = 0 to P-1
{
WH4sum = WH4sum + WH4[cnt];
WL4sum = WL4sum + WL4[cnt];
}
Hma4 = WH4sum/P;
Lma4 = WL4sum/P;
WH4Sqrt = 0;
WL4Sqrt = 0;
For cnt = 0 To P - 1
{
WH4Sqrt = WH4Sqrt + (WH4[cnt] - Hma4)^2;
WL4Sqrt = WL4Sqrt + (WL4[cnt] - Lma4)^2;
}
WH4Stdv = SquareRoot(WH4Sqrt / P);
WL4Stdv = SquareRoot(WL4Sqrt / P);
plot19(Hma4);
plot20(Hma4+WH4Stdv);
plot21(Hma4-WH4Stdv);
plot22(Lma4);
plot23(Lma4+WL4Stdv);
plot24(Lma4-WL4Stdv);
}
if WH5[P-1] > 0 and WL5[P-1] > 0 then
{
WH5sum = 0;
WL5sum = 0;
for cnt = 0 to P-1
{
WH5sum = WH5sum + WH5[cnt];
WL5sum = WL5sum + WL5[cnt];
}
Hma5 = WH5sum/P;
Lma5 = WL5sum/P;
WH5Sqrt = 0;
WL5Sqrt = 0;
For cnt = 0 To P - 1
{
WH5Sqrt = WH5Sqrt + (WH5[cnt] - Hma5)^2;
WL5Sqrt = WL5Sqrt + (WL5[cnt] - Lma5)^2;
}
WH5Stdv = SquareRoot(WH5Sqrt / P);
WL5Stdv = SquareRoot(WL5Sqrt / P);
plot25(Hma5);
plot26(Hma5+WH5Stdv);
plot27(Hma5-WH5Stdv);
plot28(Lma5);
plot29(Lma5+WL5Stdv);
plot30(Lma5-WL5Stdv);
}
즐거운 하루되세요
> 카카 님이 쓴 글입니다.
> 제목 : 평균변동폭
> 관리자님 안녕하십니까??
저의 시작은 미미하였으나 관리자님의 도움으로 그 끝은 창대하리라 생각됩니다ㅋㅋ
혹시 이런것도 가능할런지요???
최근 3년동안의 요일별로 시가를 기준으로 한 최고가,최저가의 평균값과 표준편차값을 알수 있을까요?? 혹시 구현할수 있다면 차트에 평균값과 표준편차를 더하여 선으로 구현하고 싶습니다.
구현할수 있는거라면 어렵더라도 부탁말씀 정중히 올리겠습니다
ex) 3년 동안의 매주 월요일의 최고-시가의 평균값과 표준편차
3년 동안의 매주 월요일의 시가-최저의 평균값과 표준편차
3년 동안의 매주 화요일의 최고-시가의 평균값과 표준편차
3년 동안의 매주 화요일의 시가-최저의 평균값과 표준편차
.
.
.
3년 동안의 매주 금요일의 최고-시가의 평균값과 표준편차
3년 동안의 매주 금요일의 시가-최저의 평균값과 표준편차
다음글