커뮤니티
부탁드립니다.
2017-03-28 04:44:42
140
글번호 108229
변환부탁드리고자 합니다.
미리 경배로 감사 인사 올립니다.
수식1)
da=date % 10000;
fb=floor(da/100);
dayvol=(h+l)/2*vol;
sumdvol=sum(dayvol);
sumv=sum(v);
valvwh=valuewhen(1,fb <> fb(1),sumv);
valsumdvol=valuewhen(1,fb <> fb(1),sumdvol);
volp=(valsumdvol-sumdvol)/(valvwh-sumv);
if(barssince(fb<>fb(1)),volp,c);
수식2)
sumv=sum(v);
valuev1=valuewhen(1,date<>date(1),sumv(1));
sumvva1=sumv-valuev1;
valuev2=valuewhen(1,date<>date(1),sumvva1(1));
valuev3=valuewhen(1,date<>date(1),vlalev2(1));
valuediv=(valuev2+valuev3)/2;
답변 3
예스스탁 예스스탁 답변
2017-03-28 16:10:14
안녕하세요
예스스탁입니다.
1.
var : da(0),fb(0),dayvol(0),sumdvol(0),sumv(0);
var : valvwh(0),valsumdvol(0),idx(0),volp(0);
da = date%10000;
fb = floor(da/100);
dayvol = (h+l)/2*v;
sumdvol= sumdvol+ dayvol;
sumv = sumv + v;
if fb <> fb[1] Then{
valvwh = sumv;
valsumdvol = sumdvol;
idx = 0;
}
Else
idx = idx+1;
volp=(valsumdvol-sumdvol)/(valvwh-sumv);
if idx Then
var1 = volp;
Else
var1 = c;
2
var : sumv(0),valuev2(0),valuev3(0);
var : sumvva1(0),valuev1(0),vlalev2(0),valuediv(0);
sumv = sumv+ v;
if date<>date[1] Then{
valuev1 = sumv[1];
valuev2 = sumvva1[1];
valuev3 = vlalev2[1];
}
sumvva1=sumv-valuev1;
valuediv=(valuev2+valuev3)/2;
즐거운 하루되세요
> yes 님이 쓴 글입니다.
> 제목 : 부탁드립니다.
> 변환부탁드리고자 합니다.
미리 경배로 감사 인사 올립니다.
수식1)
da=date % 10000;
fb=floor(da/100);
dayvol=(h+l)/2*vol;
sumdvol=sum(dayvol);
sumv=sum(v);
valvwh=valuewhen(1,fb <> fb(1),sumv);
valsumdvol=valuewhen(1,fb <> fb(1),sumdvol);
volp=(valsumdvol-sumdvol)/(valvwh-sumv);
if(barssince(fb<>fb(1)),volp,c);
수식2)
sumv=sum(v);
valuev1=valuewhen(1,date<>date(1),sumv(1));
sumvva1=sumv-valuev1;
valuev2=valuewhen(1,date<>date(1),sumvva1(1));
valuev3=valuewhen(1,date<>date(1),vlalev2(1));
valuediv=(valuev2+valuev3)/2;
yes
2017-03-28 16:23:33
수식 작성에 경배로 감사인사 드립니다.
답변 수식1을
해선의
분봉에서 당일 평균 매입 단가로 수정 가능 하겠는지요?
> 예스스탁 님이 쓴 글입니다.
> 제목 : Re : 부탁드립니다.
>
안녕하세요
예스스탁입니다.
1.
var : da(0),fb(0),dayvol(0),sumdvol(0),sumv(0);
var : valvwh(0),valsumdvol(0),idx(0),volp(0);
da = date%10000;
fb = floor(da/100);
dayvol = (h+l)/2*v;
sumdvol= sumdvol+ dayvol;
sumv = sumv + v;
if fb <> fb[1] Then{
valvwh = sumv;
valsumdvol = sumdvol;
idx = 0;
}
Else
idx = idx+1;
volp=(valsumdvol-sumdvol)/(valvwh-sumv);
if idx Then
var1 = volp;
Else
var1 = c;
2
var : sumv(0),valuev2(0),valuev3(0);
var : sumvva1(0),valuev1(0),vlalev2(0),valuediv(0);
sumv = sumv+ v;
if date<>date[1] Then{
valuev1 = sumv[1];
valuev2 = sumvva1[1];
valuev3 = vlalev2[1];
}
sumvva1=sumv-valuev1;
valuediv=(valuev2+valuev3)/2;
즐거운 하루되세요
> yes 님이 쓴 글입니다.
> 제목 : 부탁드립니다.
> 변환부탁드리고자 합니다.
미리 경배로 감사 인사 올립니다.
수식1)
da=date % 10000;
fb=floor(da/100);
dayvol=(h+l)/2*vol;
sumdvol=sum(dayvol);
sumv=sum(v);
valvwh=valuewhen(1,fb <> fb(1),sumv);
valsumdvol=valuewhen(1,fb <> fb(1),sumdvol);
volp=(valsumdvol-sumdvol)/(valvwh-sumv);
if(barssince(fb<>fb(1)),volp,c);
수식2)
sumv=sum(v);
valuev1=valuewhen(1,date<>date(1),sumv(1));
sumvva1=sumv-valuev1;
valuev2=valuewhen(1,date<>date(1),sumvva1(1));
valuev3=valuewhen(1,date<>date(1),vlalev2(1));
valuediv=(valuev2+valuev3)/2;
예스스탁 예스스탁 답변
2017-03-28 17:01:36
안녕하세요
예스스탁입니다.
1번식을 당일기준으로 변경하시면 아래와 같습니다.
var : da(0),fb(0),dayvol(0),sumdvol(0),sumv(0);
var : valvwh(0),valsumdvol(0),idx(0),volp(0);
fb = bdate;
dayvol = (h+l)/2*v;
sumdvol= sumdvol+ dayvol;
sumv = sumv + v;
if fb <> fb[1] Then{
valvwh = sumv;
valsumdvol = sumdvol;
idx = 0;
}
Else
idx = idx+1;
volp=(valsumdvol-sumdvol)/(valvwh-sumv);
if idx Then
var1 = volp;
Else
var1 = c;
이전 답변드린 식을 해외선물 영업일 변경시간을 기준으로하면 아래와 같습니다.
1
var : da(0),fb(0),dayvol(0),sumdvol(0),sumv(0);
var : valvwh(0),valsumdvol(0),idx(0),volp(0);
da = bdate%10000;
fb = floor(da/100);
dayvol = (h+l)/2*v;
sumdvol= sumdvol+ dayvol;
sumv = sumv + v;
if fb <> fb[1] Then{
valvwh = sumv;
valsumdvol = sumdvol;
idx = 0;
}
Else
idx = idx+1;
volp=(valsumdvol-sumdvol)/(valvwh-sumv);
if idx Then
var1 = volp;
Else
var1 = c;
2
var : sumv(0),valuev2(0),valuev3(0);
var : sumvva1(0),valuev1(0),vlalev2(0),valuediv(0);
sumv = sumv+ v;
if bdate<>bdate[1] Then{
valuev1 = sumv[1];
valuev2 = sumvva1[1];
valuev3 = vlalev2[1];
}
sumvva1=sumv-valuev1;
valuediv=(valuev2+valuev3)/2;
즐거운 하루되세요
> yes 님이 쓴 글입니다.
> 제목 : Re : Re : 부탁드립니다.
> 수식 작성에 경배로 감사인사 드립니다.
답변 수식1을
해선의
분봉에서 당일 평균 매입 단가로 수정 가능 하겠는지요?
> 예스스탁 님이 쓴 글입니다.
> 제목 : Re : 부탁드립니다.
>
안녕하세요
예스스탁입니다.
1.
var : da(0),fb(0),dayvol(0),sumdvol(0),sumv(0);
var : valvwh(0),valsumdvol(0),idx(0),volp(0);
da = date%10000;
fb = floor(da/100);
dayvol = (h+l)/2*v;
sumdvol= sumdvol+ dayvol;
sumv = sumv + v;
if fb <> fb[1] Then{
valvwh = sumv;
valsumdvol = sumdvol;
idx = 0;
}
Else
idx = idx+1;
volp=(valsumdvol-sumdvol)/(valvwh-sumv);
if idx Then
var1 = volp;
Else
var1 = c;
2
var : sumv(0),valuev2(0),valuev3(0);
var : sumvva1(0),valuev1(0),vlalev2(0),valuediv(0);
sumv = sumv+ v;
if date<>date[1] Then{
valuev1 = sumv[1];
valuev2 = sumvva1[1];
valuev3 = vlalev2[1];
}
sumvva1=sumv-valuev1;
valuediv=(valuev2+valuev3)/2;
즐거운 하루되세요
> yes 님이 쓴 글입니다.
> 제목 : 부탁드립니다.
> 변환부탁드리고자 합니다.
미리 경배로 감사 인사 올립니다.
수식1)
da=date % 10000;
fb=floor(da/100);
dayvol=(h+l)/2*vol;
sumdvol=sum(dayvol);
sumv=sum(v);
valvwh=valuewhen(1,fb <> fb(1),sumv);
valsumdvol=valuewhen(1,fb <> fb(1),sumdvol);
volp=(valsumdvol-sumdvol)/(valvwh-sumv);
if(barssince(fb<>fb(1)),volp,c);
수식2)
sumv=sum(v);
valuev1=valuewhen(1,date<>date(1),sumv(1));
sumvva1=sumv-valuev1;
valuev2=valuewhen(1,date<>date(1),sumvva1(1));
valuev3=valuewhen(1,date<>date(1),vlalev2(1));
valuediv=(valuev2+valuev3)/2;