커뮤니티
수식 부탁드립니다.
2025-02-12 01:56:18
689
글번호 188067
아래 수식에서 30분봉, 일봉, 주봉값을 1분봉에서 표현하고 싶습니다
1. plot1: 30분봉의 var1값
2. plot2: 일봉의 var1 값
3. plot3: 주봉의 var1 값
--------------------------------------
input: 기간3(120);
var : aa(0),bb(0),x1(0),x2(0);
aa=(H+L+C)/3;
bb=aa*v;
x1=AccumN(bb,기간3);
x2=AccumN(V,기간3);
var1=x1/x2;
plot1(Var1, "VWap");
답변 1
예스스탁 예스스탁 답변
2025-02-12 12:32:54
안녕하세요
예스스탁입니다.
차트에 다른 주기의 값을 계산할 만큼 데이터가 충분하지 않으면 그려지지 않습니다.
1.분봉
input : Period(120),분(30);
var : S1(0),D1(0),TM(0),TF(0),cnt(0);
var : SumV1(0),SumVC1(0),VWMA1(0),value(0);
Array : CC[200](0),HH[200](0),LL[200](0),VV[200](0);
if Bdate != Bdate[1] Then
{
S1 = TimeToMinutes(stime);
D1 = sdate;
}
if D1 > 0 then
{
if sdate == D1 Then
TM = TimeToMinutes(stime)-S1;
Else
TM = TimeToMinutes(stime)+1440-S1;
TF = TM%분;
if Bdate != Bdate[1] or
(Bdate == Bdate[1] and 분 > 1 and TF < TF[1]) or
(Bdate == Bdate[1] and 분 > 1 and TM >= TM[1]+분) or
(Bdate == Bdate[1] and 분 == 1 and TM > TM[1]) Then
{
for cnt = 199 downto 1
{
CC[cnt] = CC[cnt-1];
HH[cnt] = HH[cnt-1];
LL[cnt] = LL[cnt-1];
VV[cnt] = VV[cnt-1];
}
HH[0] = H;
LL[0] = L;
VV[0] = 0;
}
if H > HH[0] Then
HH[0] = H;
if L < LL[0] Then
LL[0] = L;
CC[0] = C;
VV[0] = VV[0] + V;
if CC[Period-1] > 0 then
{
SumV1 = 0;
SumVC1 = 0;
for cnt = 0 to Period-1
{
SumV1 = SumV1 + VV[cnt];
value = (HH[cnt]+LL[cnt]+CC[cnt])/3;
SumVC1 = SumVC1 + (VV[cnt]*value);
}
VWMA1 = SumVC1/SumV1;
plot1(VWMA1);
}
}
2.일
input : Period(120);
var : cnt(0),SumV1(0),SumVC1(0),VWMA1(0),value(0);
if DayClose(Period-1) > 0 then
{
SumV1 = 0;
SumVC1 = 0;
for cnt = 0 to Period-1
{
SumV1 = SumV1 + dayvolume(cnt);
value = (DayHigh(cnt)+DayLow(cnt)+DayClose(cnt))/3;
SumVC1 = SumVC1 + (DayVolume(cnt)*value);
}
VWMA1 = SumVC1/SumV1;
plot1(VWMA1);
}
3.주
input : Period(120);
var : cnt(0),SumV1(0),SumVC1(0),VWMA1(0),value(0);
Array : CC[200](0),HH[200](0),LL[200](0),VV[200](0);
if DayOfWeek(Bdate) < DayOfWeek(Bdate[1]) Then
{
for cnt = 199 downto 1
{
CC[cnt] = CC[cnt-1];
HH[cnt] = HH[cnt-1];
LL[cnt] = LL[cnt-1];
VV[cnt] = VV[cnt-1];
}
HH[0] = H;
LL[0] = L;
VV[0] = 0;
}
if HH[0] > 0 and H > HH[0] Then
HH[0] = H;
if LL[0] > 0 and L < LL[0] Then
LL[0] = L;
CC[0] = C;
VV[0] = VV[0] + V;
if CC[Period-1] > 0 then
{
SumV1 = 0;
SumVC1 = 0;
for cnt = 0 to Period-1
{
SumV1 = SumV1 + VV[cnt];
value = (HH[cnt]+LL[cnt]+CC[cnt])/3;
SumVC1 = SumVC1 + (VV[cnt]*value);
}
VWMA1 = SumVC1/SumV1;
plot1(VV[0]);
}
즐거운 하루되세요
> 허밍스타 님이 쓴 글입니다.
> 제목 : 수식 부탁드립니다.
> 아래 수식에서 30분봉, 일봉, 주봉값을 1분봉에서 표현하고 싶습니다
1. plot1: 30분봉의 var1값
2. plot2: 일봉의 var1 값
3. plot3: 주봉의 var1 값
--------------------------------------
input: 기간3(120);
var : aa(0),bb(0),x1(0),x2(0);
aa=(H+L+C)/3;
bb=aa*v;
x1=AccumN(bb,기간3);
x2=AccumN(V,기간3);
var1=x1/x2;
plot1(Var1, "VWap");