커뮤니티
수식수정요청
2017-08-08 21:19:58
142
글번호 111883
수정요청드립니다
월진폭 총합이아닌 월평균이 나왔으면 합니다
단 당일진폭은 다음날에 반영됬으면합니다
input : x(1);
var : mh(0),ml(0),mh1(0),ml1(0),week(0),hh(0),ll(0);
if bdate > bdate[1]+30 Then{
mh = h;
ml = l;
mh1 = mh[1];
ml1 = ml[1];
week = 0;
}
else {
if DayOfWeek(bdate) < dayofweek(bdate[1]) then
week = week + 1;
}
if h > mh Then
mh = h;
if l < ml Then
ml = l;
if week == 0 Then{
if mh1 > 0 Then
hh = max(mh,mh1);
Else
hh = mh;
if ml1 > 0 Then
ll = max(ml,ml1);
Else
ll = ml;
}
else{
hh = mh;
ll = ml;
}
var1 = (hh-ll)*x;
var2 = ((hh-ll)+PriceScale*10)*x;
var3 = dayhigh-daylow;
input : x1(5);
var : tx1(0),tx2(0);
Text_Delete(tx1);
tx1 = Text_New(sdate,stime,H+PriceScale*x1,
"일: "+NumToStr((dayhigh(0)-daylow(0))/PriceScale,0)+NewLine+
"월: "+NumToStr((hh-ll)/PriceScale,0));
Text_SetStyle(tx1,2,2);
답변 1
예스스탁 예스스탁 답변
2017-08-09 11:23:37
안녕하세요
예스스탁입니다.
input : x(1);
var : week(0),sum(0),nday(0),avgv(0),avgv1(0);
if bdate > bdate[1]+30 Then{
week = 0;
sum = 0;
nday = 0;
avgv = 0;
avgv1 = avgv[1];
}
else
{
if DayOfWeek(bdate) < dayofweek(bdate[1]) then
week = week + 1;
if Bdate != Bdate[1] Then{
sum = sum + (dayhigh(1)-daylow(1));
nday = nday+1;
avgv = sum/nday;
}
}
if week == 0 Then
avgv = max(sum/nday,avgv1);
Else
avgv = sum/nday;
input : x1(5);
var : tx1(0),tx2(0);
Text_Delete(tx1);
tx1 = Text_New(sdate,stime,H+PriceScale*x1,
"일: "+NumToStr((dayhigh(0)-daylow(0))/PriceScale,0)+NewLine+
"월: "+NumToStr(avgv/PriceScale,0));
Text_SetStyle(tx1,2,2);
즐거운 하루되세요
> 렉쳐 님이 쓴 글입니다.
> 제목 : 수식수정요청
> 수정요청드립니다
월진폭 총합이아닌 월평균이 나왔으면 합니다
단 당일진폭은 다음날에 반영됬으면합니다
input : x(1);
var : mh(0),ml(0),mh1(0),ml1(0),week(0),hh(0),ll(0);
if bdate > bdate[1]+30 Then{
mh = h;
ml = l;
mh1 = mh[1];
ml1 = ml[1];
week = 0;
}
else {
if DayOfWeek(bdate) < dayofweek(bdate[1]) then
week = week + 1;
}
if h > mh Then
mh = h;
if l < ml Then
ml = l;
if week == 0 Then{
if mh1 > 0 Then
hh = max(mh,mh1);
Else
hh = mh;
if ml1 > 0 Then
ll = max(ml,ml1);
Else
ll = ml;
}
else{
hh = mh;
ll = ml;
}
var1 = (hh-ll)*x;
var2 = ((hh-ll)+PriceScale*10)*x;
var3 = dayhigh-daylow;
input : x1(5);
var : tx1(0),tx2(0);
Text_Delete(tx1);
tx1 = Text_New(sdate,stime,H+PriceScale*x1,
"일: "+NumToStr((dayhigh(0)-daylow(0))/PriceScale,0)+NewLine+
"월: "+NumToStr((hh-ll)/PriceScale,0));
Text_SetStyle(tx1,2,2);