커뮤니티
수식변경
2016-05-17 13:33:55
134
글번호 98143
안녕하세요
아래수식을 타주기로 쓸수있게 해주십시요.
2분차트에서 10분이나 30분을 볼수있게 부탁합니다.
해선용입니다.참조종목으로 변경하셔도 됩니다.
Var:chng_rt(0),j(0),ma_val(0),std_val(0),dn_rng(0),up_rng(0),rawVBE_up(0),rawVBE_dn(0);
Array:len[6](0),VBE_up[6](0),VBE_dn[6](0),
up_chg[6](0),dn_chg[6](0),up_cor[6](0),dn_cor[6](0),
fcstVBE_up[6](0),fcstVBE_dn[6](0);
len[0] = 21;
len[1] = 17;
len[2] = 13;
len[3] = 9;
len[4] = 5;
len[5] = 2;
chng_rt = (C/C[1]-1); //가격 변동률
ma_val = ma(chng_rt,len[0]); //가격변동률의 평균
std_val = Std(chng_rt,len[0]); //가격변동률의 표준편차
dn_rng = ma_val - (std_val * 2);
up_rng = ma_val + (std_val * 2);
rawVBE_up = C * (1 + up_rng); //원시VBE
rawVBE_dn = C * (1 + dn_rng);
for j = 0 to 5 {
VBE_up[j] = wma(rawVBE_up,len[j]); //원시VBE를 가중이평으로 평활화
VBE_dn[j] = wma(rawVBE_dn,len[j]);
if VBE_up[j][1] > 0 then up_chg[j] = (VBE_up[j]-VBE_up[j][1])/VBE_up[j][1]; //VBE의 변동률
if VBE_dn[j][1] > 0 then dn_chg[j] = (VBE_dn[j]-VBE_dn[j][1])/VBE_dn[j][1];
}
fcstVBE_up[0] = VBE_up[0];
fcstVBE_dn[0] = VBE_dn[0];
for j = 1 to 5 {
up_cor[j] = Correlation(up_chg[0], up_chg[j],63); //21일 VBE변동률과 17,13,9,5,2 변동률간의 상관도
dn_cor[j] = Correlation(dn_chg[0], dn_chg[j],63);
fcstVBE_up[j] = fcstVBE_up[j-1] * (1+(up_chg[j]*up_cor[j])); //이전값에 상관도와 변동률을 곱해서 계산
fcstVBE_dn[j] = fcstVBE_dn[j-1] * (1+(dn_chg[j]*dn_cor[j]));
}
plot1(fcstVBE_up[0],"상-5"); //5봉 뒤로 이동
plot2(fcstVBE_dn[0],"하-5"); //5봉 뒤로 이동
if LastBarOnChart then { //마지막봉에서 아래 5봉만 추가로 출력
plot3(fcstVBE_up[5],"상0");
plot4(fcstVBE_up[4],"상-1"); //1봉 뒤로 이동
plot5(fcstVBE_up[3],"상-2"); //2봉 뒤로 이동
plot6(fcstVBE_up[2],"상-3"); //3봉 뒤로 이동
plot7(fcstVBE_up[1],"상-4"); //4봉 뒤로 이동
plot8(fcstVBE_dn[5],"하0");
plot9(fcstVBE_dn[4],"하-1"); //1봉 뒤로 이동
plot10(fcstVBE_dn[3],"하-2"); //2봉 뒤로 이동
plot11(fcstVBE_dn[2],"하-3"); //3봉 뒤로 이동
plot12(fcstVBE_dn[1],"하-4"); //4봉 뒤로 이동
}
수고하십시요.
답변 1
예스스탁 예스스탁 답변
2016-05-17 14:23:42
안녕하세요
예스스탁입니다.
Var : chng_rt(0,data2),j(0,data2),ma_val(0,data2),std_val(0,data2);
var : dn_rng(0,data2),up_rng(0,data2),rawVBE_up(0,data2),rawVBE_dn(0,data2);
Array : len[6](0,data2),upWmav[6](0,data2),dnWmav[6](0,data2),VBE_up[6](0,data2),VBE_dn[6](0,data2),
up_chg[6](0,data2),dn_chg[6](0,data2),up_cor[6](0,data2),dn_cor[6](0,data2),
fcstVBE_up[6](0,data2),fcstVBE_dn[6](0,data2);
len[0] = 21;
len[1] = 17;
len[2] = 13;
len[3] = 9;
len[4] = 5;
len[5] = 2;
chng_rt = data2((C/C[1]-1)); //가격 변동률
ma_val = data2(ma(chng_rt,len[0])); //가격변동률의 평균
std_val = data2(Std(chng_rt,len[0])); //가격변동률의 표준편차
dn_rng = data2(ma_val - (std_val * 2));
up_rng = data2(ma_val + (std_val * 2));
rawVBE_up = data2(C * (1 + up_rng)); //원시VBE
rawVBE_dn = data2(C * (1 + dn_rng));
upwmav[0] = data2(wma(rawVBE_up,len[0]));
upwmav[1] = data2(wma(rawVBE_up,len[1]));
upwmav[2] = data2(wma(rawVBE_up,len[2]));
upwmav[3] = data2(wma(rawVBE_up,len[3]));
upwmav[4] = data2(wma(rawVBE_up,len[4]));
upwmav[5] = data2(wma(rawVBE_up,len[5]));
dnwmav[0] = data2(wma(rawVBE_dn,len[0]));
dnwmav[1] = data2(wma(rawVBE_dn,len[1]));
dnwmav[2] = data2(wma(rawVBE_dn,len[2]));
dnwmav[3] = data2(wma(rawVBE_dn,len[3]));
dnwmav[4] = data2(wma(rawVBE_dn,len[4]));
dnwmav[5] = data2(wma(rawVBE_dn,len[5]));
for j = 0 to 5 {
VBE_up[j] = upwmav[j]; //원시VBE를 가중이평으로 평활화
VBE_dn[j] = dnwmav[j];
if VBE_up[j][1] > 0 then up_chg[j] = (VBE_up[j]-VBE_up[j][1])/VBE_up[j][1]; //VBE의 변동률
if VBE_dn[j][1] > 0 then dn_chg[j] = (VBE_dn[j]-VBE_dn[j][1])/VBE_dn[j][1];
}
fcstVBE_up[0] = VBE_up[0];
fcstVBE_dn[0] = VBE_dn[0];
for j = 1 to 5 {
up_cor[j] = data2(Correlation(up_chg[0], up_chg[j],63)); //21일 VBE변동률과 17,13,9,5,2 변동률간의 상관도
dn_cor[j] = data2(Correlation(dn_chg[0], dn_chg[j],63));
fcstVBE_up[j] = fcstVBE_up[j-1] * (1+(up_chg[j]*up_cor[j])); //이전값에 상관도와 변동률을 곱해서 계산
fcstVBE_dn[j] = fcstVBE_dn[j-1] * (1+(dn_chg[j]*dn_cor[j]));
}
plot1(fcstVBE_up[0],"상-5"); //5봉 뒤로 이동
plot2(fcstVBE_dn[0],"하-5"); //5봉 뒤로 이동
if LastBarOnChart then { //마지막봉에서 아래 5봉만 추가로 출력
plot3(fcstVBE_up[5],"상0");
plot4(fcstVBE_up[4],"상-1"); //1봉 뒤로 이동
plot5(fcstVBE_up[3],"상-2"); //2봉 뒤로 이동
plot6(fcstVBE_up[2],"상-3"); //3봉 뒤로 이동
plot7(fcstVBE_up[1],"상-4"); //4봉 뒤로 이동
plot8(fcstVBE_dn[5],"하0");
plot9(fcstVBE_dn[4],"하-1"); //1봉 뒤로 이동
plot10(fcstVBE_dn[3],"하-2"); //2봉 뒤로 이동
plot11(fcstVBE_dn[2],"하-3"); //3봉 뒤로 이동
plot12(fcstVBE_dn[1],"하-4"); //4봉 뒤로 이동
}
즐거운 하루되세요
> 바닥차기 님이 쓴 글입니다.
> 제목 : 수식변경
> 안녕하세요
아래수식을 타주기로 쓸수있게 해주십시요.
2분차트에서 10분이나 30분을 볼수있게 부탁합니다.
해선용입니다.참조종목으로 변경하셔도 됩니다.
Var:chng_rt(0),j(0),ma_val(0),std_val(0),dn_rng(0),up_rng(0),rawVBE_up(0),rawVBE_dn(0);
Array:len[6](0),VBE_up[6](0),VBE_dn[6](0),
up_chg[6](0),dn_chg[6](0),up_cor[6](0),dn_cor[6](0),
fcstVBE_up[6](0),fcstVBE_dn[6](0);
len[0] = 21;
len[1] = 17;
len[2] = 13;
len[3] = 9;
len[4] = 5;
len[5] = 2;
chng_rt = (C/C[1]-1); //가격 변동률
ma_val = ma(chng_rt,len[0]); //가격변동률의 평균
std_val = Std(chng_rt,len[0]); //가격변동률의 표준편차
dn_rng = ma_val - (std_val * 2);
up_rng = ma_val + (std_val * 2);
rawVBE_up = C * (1 + up_rng); //원시VBE
rawVBE_dn = C * (1 + dn_rng);
for j = 0 to 5 {
VBE_up[j] = wma(rawVBE_up,len[j]); //원시VBE를 가중이평으로 평활화
VBE_dn[j] = wma(rawVBE_dn,len[j]);
if VBE_up[j][1] > 0 then up_chg[j] = (VBE_up[j]-VBE_up[j][1])/VBE_up[j][1]; //VBE의 변동률
if VBE_dn[j][1] > 0 then dn_chg[j] = (VBE_dn[j]-VBE_dn[j][1])/VBE_dn[j][1];
}
fcstVBE_up[0] = VBE_up[0];
fcstVBE_dn[0] = VBE_dn[0];
for j = 1 to 5 {
up_cor[j] = Correlation(up_chg[0], up_chg[j],63); //21일 VBE변동률과 17,13,9,5,2 변동률간의 상관도
dn_cor[j] = Correlation(dn_chg[0], dn_chg[j],63);
fcstVBE_up[j] = fcstVBE_up[j-1] * (1+(up_chg[j]*up_cor[j])); //이전값에 상관도와 변동률을 곱해서 계산
fcstVBE_dn[j] = fcstVBE_dn[j-1] * (1+(dn_chg[j]*dn_cor[j]));
}
plot1(fcstVBE_up[0],"상-5"); //5봉 뒤로 이동
plot2(fcstVBE_dn[0],"하-5"); //5봉 뒤로 이동
if LastBarOnChart then { //마지막봉에서 아래 5봉만 추가로 출력
plot3(fcstVBE_up[5],"상0");
plot4(fcstVBE_up[4],"상-1"); //1봉 뒤로 이동
plot5(fcstVBE_up[3],"상-2"); //2봉 뒤로 이동
plot6(fcstVBE_up[2],"상-3"); //3봉 뒤로 이동
plot7(fcstVBE_up[1],"상-4"); //4봉 뒤로 이동
plot8(fcstVBE_dn[5],"하0");
plot9(fcstVBE_dn[4],"하-1"); //1봉 뒤로 이동
plot10(fcstVBE_dn[3],"하-2"); //2봉 뒤로 이동
plot11(fcstVBE_dn[2],"하-3"); //3봉 뒤로 이동
plot12(fcstVBE_dn[1],"하-4"); //4봉 뒤로 이동
}
수고하십시요.
다음글
이전글