커뮤니티
부탁드립니다.
2020-08-09 12:56:10
785
글번호 141340
도움에 감사 드립니다.
A)질문수식1)을 타주기(주봉)으로 부탁 드립니다.
B)질문수식1)을 타주기(월봉)으로 부탁 드립니다.
참고수식)은 타주기(일봉)용으로 작성 해주신 것입니다.
미리 경배로 감사 인사 올립니다.
질문수식1)
input : p1(60),sig(20);
var1 = accumn(iff(C>O,C*V,0),p1);
var2 = var1/accumn(iff(C>O,1,0),p1);
var11 = accumn(iff(C<O,C*V,0),p1);
var12 = var1/accumn(iff(C<O,1,0),p1);
var21=var2-var12;
var31=ma(var21,sig);
참고수식)
input : P1(60),sig(20);
var : cnt1(0),cnt2(0),sum(0);
if dayvolume(P1+sig-1) > 0 then
{
sum = 0;
for cnt1 = 0 to sig-1
{
var1 = 0;
value1 = 0;
var11 = 0;
value11 = 0;
for cnt2 = cnt1+0 to cnt1+P1-1
{
if DayClose(cnt2) > dayopen(cnt2) then
{
var1 = var1 + (dayclose(cnt2)*DayVolume(cnt2));
value1 = value1 + 1;
}
if dayclose(cnt2) < dayopen(cnt2) then
{
var11 = var1 + (dayclose(cnt2)*DayVolume(cnt2));
value11 = value11 + 1;
}
}
var2 = var1/value1;
var12 = var11/value11;
var21 = var2-var12;
sum = sum +var21;
}
var31 = sum/sig;
plot1(var31);
}
답변 1
예스스탁 예스스탁 답변
2020-08-10 12:58:58
안녕하세요
예스스탁입니다.
var12 계산식에 오류가 있어 var12 = var11/accumn(iff(C<O,1,0),p1);
로 변경해서 작성해 드립니다. 이전 일봉식도 위 계산식으로 되어 있습니다.
1 주
input : p1(60),sig(20);
var : cnt(0),sum(0);
Array : CC[100](0),OO[100](0),VV[100](0),diff[100](0);
if DayOfWeek(Bdate) < DayOfWeek(Bdate[1]) Then
{
OO[0] = O;
VV[0] = 0;
for cnt = 1 to 99
{
CC[cnt] = CC[cnt-1][1];
OO[cnt] = OO[cnt-1][1];
VV[cnt] = VV[cnt-1][1];
diff[cnt] = diff[cnt-1][1];
}
}
CC[0] = C;
VV[0] = VV[0] + v;
if OO[P1-1] > 0 then
{
var1 = 0;
value1 = 0;
var11 = 0;
value11 = 0;
for cnt = 0 to P1-1
{
if CC[cnt] > OO[cnt] then
{
var1 = var1 + (CC[cnt]*VV[cnt]);
value1 = value1 + 1;
}
if CC[cnt] < OO[cnt] then
{
var11 = var11 + (CC[cnt]*VV[cnt]);
value11 = value11 + 1;
}
}
var2 = var1/value1;
var12 = var11/value11;
Diff[0] = var2-var12;
}
if OO[P1+sig-1] > 0 Then
{
sum = 0;
For cnt = 0 to sig-1
{
sum = sum + diff[cnt];
}
var31 = sum/sig;
plot1(Var31);
}
2 월
input : p1(60),sig(20);
var : cnt(0),sum(0);
Array : CC[100](0),OO[100](0),VV[100](0),diff[100](0);
if Bdate > Bdate[1]+30 Then
{
OO[0] = O;
VV[0] = 0;
for cnt = 1 to 99
{
CC[cnt] = CC[cnt-1][1];
OO[cnt] = OO[cnt-1][1];
VV[cnt] = VV[cnt-1][1];
diff[cnt] = diff[cnt-1][1];
}
}
CC[0] = C;
VV[0] = VV[0] + v;
if OO[P1-1] > 0 then
{
var1 = 0;
value1 = 0;
var11 = 0;
value11 = 0;
for cnt = 0 to P1-1
{
if CC[cnt] > OO[cnt] then
{
var1 = var1 + (CC[cnt]*VV[cnt]);
value1 = value1 + 1;
}
if CC[cnt] < OO[cnt] then
{
var11 = var11 + (CC[cnt]*VV[cnt]);
value11 = value11 + 1;
}
}
var2 = var1/value1;
var12 = var11/value11;
Diff[0] = var2-var12;
}
if OO[P1+sig-1] > 0 Then
{
sum = 0;
For cnt = 0 to sig-1
{
sum = sum + diff[cnt];
}
var31 = sum/sig;
plot1(Var31);
}
즐거운 하루되세요
> 뮬리 님이 쓴 글입니다.
> 제목 : 부탁드립니다.
> 도움에 감사 드립니다.
A)질문수식1)을 타주기(주봉)으로 부탁 드립니다.
B)질문수식1)을 타주기(월봉)으로 부탁 드립니다.
참고수식)은 타주기(일봉)용으로 작성 해주신 것입니다.
미리 경배로 감사 인사 올립니다.
질문수식1)
input : p1(60),sig(20);
var1 = accumn(iff(C>O,C*V,0),p1);
var2 = var1/accumn(iff(C>O,1,0),p1);
var11 = accumn(iff(C<O,C*V,0),p1);
var12 = var1/accumn(iff(C<O,1,0),p1);
var21=var2-var12;
var31=ma(var21,sig);
참고수식)
input : P1(60),sig(20);
var : cnt1(0),cnt2(0),sum(0);
if dayvolume(P1+sig-1) > 0 then
{
sum = 0;
for cnt1 = 0 to sig-1
{
var1 = 0;
value1 = 0;
var11 = 0;
value11 = 0;
for cnt2 = cnt1+0 to cnt1+P1-1
{
if DayClose(cnt2) > dayopen(cnt2) then
{
var1 = var1 + (dayclose(cnt2)*DayVolume(cnt2));
value1 = value1 + 1;
}
if dayclose(cnt2) < dayopen(cnt2) then
{
var11 = var1 + (dayclose(cnt2)*DayVolume(cnt2));
value11 = value11 + 1;
}
}
var2 = var1/value1;
var12 = var11/value11;
var21 = var2-var12;
sum = sum +var21;
}
var31 = sum/sig;
plot1(var31);
}
다음글
이전글