커뮤니티
수식수정부탁드립니다
2019-07-23 08:48:04
221
글번호 130524
#,안녕하세요
1,아래수식은 월간,대칭 수식인데요,이식을 날짜를 지정해서 지정한날로부터 영업일수로
25일 다음날에 초기화 되는 수식으로 수정하고 싶습니다,도움부탁드립니다,
(지정날짜와 영업일수는 외부변수로 하면좋겠습니다).
2,아래식을 날짜를 지정(년월일)하여시작하고 날짜를 지정하여 종료후 초기화 되는 식으로
수정 부탁드립니다,
3,수고스럽지만 위두개(1,2)식을 별도로 작성부탁드립니다
input : Per1(9),Per2(18);
Var : pivot(0),S1(0),S2(1),S3(1),S4(1),S5(0),cnt(0),t1(0),t2(0),t3(0),t4(0),t5(0);
Array : oo[10](0),hh[10](0),ll[10](0),cc[10](0);
if bdate > bdate[1]+30 then
{
oo[0] = o;
hh[0] = h;
ll[0] = L;
for cnt = 1 to 9
{
oo[cnt] = oo[cnt-1][1];
hh[cnt] = hh[cnt-1][1];
ll[cnt] = ll[cnt-1][1];
cc[cnt] = cc[cnt-1][1];
}
}
if h > hh[0] Then
hh[0] = h;
if l < ll[0] Then
ll[0] = l;
cc[0] = c;
if hh[1] > 0 and ll[1] > 0 then
{
S1 = (hh[0]+ll[0])/2;
S2 = (hh[1]+ll[1])/2;
S3 = hh[1];
S4 = ll[1];
s5 = oo[0];
plot1(10^(LOG10(oo[0])));
plot2(10^(LOG10(cc[1])+(LOG10(S3)-LOG10(S4))*(Per1/100)));
plot3(10^(LOG10(cc[1])-(LOG10(S3)-LOG10(S4))*(Per1/100)));
plot4(10^(LOG10(cc[1])+(LOG10(S3)-LOG10(S4))*(Per2/100)));
plot5(10^(LOG10(cc[1])-(LOG10(S3)-LOG10(S4))*(Per2/100)));
}
Text_Delete(t1);
Text_Delete(t2);
Text_Delete(t3);
Text_Delete(t4);
Text_Delete(t5);
t1 = Text_New(sdate,stime,10^(LOG10(cc[1])+(Log10(S3)-log10(S4))*(Per1/100))," mb:"+NumToStr(10^(LOG10(cc[1])+(Log10(S3)-log10(S4))*(Per1/100)),2));
t2 = Text_New(sdate,stime,10^(LOG10(cc[1])-(Log10(S3)-log10(S4))*(Per1/100))," ms:"+NumToStr(10^(LOG10(cc[1])-(Log10(S3)-log10(S4))*(Per1/100)),2));
t3 = Text_New(sdate,stime,10^(LOG10(cc[1])+(Log10(S3)-log10(S4))*(Per2/100))," MB:"+NumToStr(10^(LOG10(cc[1])+(Log10(S3)-log10(S4))*(Per2/100)),2));
t4 = Text_New(sdate,stime,10^(LOG10(cc[1])-(Log10(S3)-log10(S4))*(Per2/100))," MS:"+NumToStr(10^(LOG10(cc[1])-(Log10(S3)-log10(S4))*(Per2/100)),2));
t5 = Text_New(sdate,stime,s5," MO:"+NumToStr(s5,2));
Text_SetStyle(t1,5,2);
Text_SetStyle(t2,5,2);
Text_SetStyle(t3,5,2);
Text_SetStyle(t4,5,2);
Text_SetStyle(t5,5,2);
Text_SetColor(t1,RED);
Text_SetColor(t2,BLUE);
Text_SetColor(t3,RED);
Text_SetColor(t4,BLUE);
Text_SetColor(t5,RED);
$$$,언제나 늘 고맙습니다.
답변 1
예스스탁 예스스탁 답변
2019-07-23 11:35:58
안녕하세요
예스스탁입니다.
1
input : Per1(9),Per2(18),ndate(20190502),n(25);
Var : pivot(0),S1(0),S2(1),S3(1),S4(1),S5(0),cnt(0),t1(0),t2(0),t3(0),t4(0),t5(0);
Array : oo[10](0),hh[10](0),ll[10](0),cc[10](0);
var : idx(-1);
if bdate != bdate[1] Then
{
if bdate >= ndate Then
idx = idx+1;
}
if bdate != bdate[1] and idx%n == 0 then
{
oo[0] = o;
hh[0] = h;
ll[0] = L;
for cnt = 1 to 9
{
oo[cnt] = oo[cnt-1][1];
hh[cnt] = hh[cnt-1][1];
ll[cnt] = ll[cnt-1][1];
cc[cnt] = cc[cnt-1][1];
}
}
if h > hh[0] Then
hh[0] = h;
if l < ll[0] Then
ll[0] = l;
cc[0] = c;
if hh[1] > 0 and ll[1] > 0 then
{
S1 = (hh[0]+ll[0])/2;
S2 = (hh[1]+ll[1])/2;
S3 = hh[1];
S4 = ll[1];
s5 = oo[0];
plot1(10^(LOG10(oo[0])));
plot2(10^(LOG10(cc[1])+(LOG10(S3)-LOG10(S4))*(Per1/100)));
plot3(10^(LOG10(cc[1])-(LOG10(S3)-LOG10(S4))*(Per1/100)));
plot4(10^(LOG10(cc[1])+(LOG10(S3)-LOG10(S4))*(Per2/100)));
plot5(10^(LOG10(cc[1])-(LOG10(S3)-LOG10(S4))*(Per2/100)));
}
Text_Delete(t1);
Text_Delete(t2);
Text_Delete(t3);
Text_Delete(t4);
Text_Delete(t5);
t1 = Text_New(sdate,stime,10^(LOG10(cc[1])+(Log10(S3)-log10(S4))*(Per1/100))," mb:"+NumToStr(10^(LOG10(cc[1])+(Log10(S3)-log10(S4))*(Per1/100)),2));
t2 = Text_New(sdate,stime,10^(LOG10(cc[1])-(Log10(S3)-log10(S4))*(Per1/100))," ms:"+NumToStr(10^(LOG10(cc[1])-(Log10(S3)-log10(S4))*(Per1/100)),2));
t3 = Text_New(sdate,stime,10^(LOG10(cc[1])+(Log10(S3)-log10(S4))*(Per2/100))," MB:"+NumToStr(10^(LOG10(cc[1])+(Log10(S3)-log10(S4))*(Per2/100)),2));
t4 = Text_New(sdate,stime,10^(LOG10(cc[1])-(Log10(S3)-log10(S4))*(Per2/100))," MS:"+NumToStr(10^(LOG10(cc[1])-(Log10(S3)-log10(S4))*(Per2/100)),2));
t5 = Text_New(sdate,stime,s5," MO:"+NumToStr(s5,2));
Text_SetStyle(t1,5,2);
Text_SetStyle(t2,5,2);
Text_SetStyle(t3,5,2);
Text_SetStyle(t4,5,2);
Text_SetStyle(t5,5,2);
Text_SetColor(t1,RED);
Text_SetColor(t2,BLUE);
Text_SetColor(t3,RED);
Text_SetColor(t4,BLUE);
Text_SetColor(t5,RED);
2
input : Per1(9),Per2(18),ndate1(20190401),ndate2(20190502);
Var : pivot(0),S1(0),S2(1),S3(1),S4(1),S5(0),cnt(0),t1(0),t2(0),t3(0),t4(0),t5(0);
Array : oo[10](0),hh[10](0),ll[10](0),cc[10](0);
var : idx(-1);
if bdate != bdate[1] and (bdate == ndate1 or bdate == ndate2) then
{
oo[0] = o;
hh[0] = h;
ll[0] = L;
for cnt = 1 to 9
{
oo[cnt] = oo[cnt-1][1];
hh[cnt] = hh[cnt-1][1];
ll[cnt] = ll[cnt-1][1];
cc[cnt] = cc[cnt-1][1];
}
}
if h > hh[0] Then
hh[0] = h;
if l < ll[0] Then
ll[0] = l;
cc[0] = c;
if hh[1] > 0 and ll[1] > 0 then
{
S1 = (hh[0]+ll[0])/2;
S2 = (hh[1]+ll[1])/2;
S3 = hh[1];
S4 = ll[1];
s5 = oo[0];
plot1(10^(LOG10(oo[0])));
plot2(10^(LOG10(cc[1])+(LOG10(S3)-LOG10(S4))*(Per1/100)));
plot3(10^(LOG10(cc[1])-(LOG10(S3)-LOG10(S4))*(Per1/100)));
plot4(10^(LOG10(cc[1])+(LOG10(S3)-LOG10(S4))*(Per2/100)));
plot5(10^(LOG10(cc[1])-(LOG10(S3)-LOG10(S4))*(Per2/100)));
}
Text_Delete(t1);
Text_Delete(t2);
Text_Delete(t3);
Text_Delete(t4);
Text_Delete(t5);
t1 = Text_New(sdate,stime,10^(LOG10(cc[1])+(Log10(S3)-log10(S4))*(Per1/100))," mb:"+NumToStr(10^(LOG10(cc[1])+(Log10(S3)-log10(S4))*(Per1/100)),2));
t2 = Text_New(sdate,stime,10^(LOG10(cc[1])-(Log10(S3)-log10(S4))*(Per1/100))," ms:"+NumToStr(10^(LOG10(cc[1])-(Log10(S3)-log10(S4))*(Per1/100)),2));
t3 = Text_New(sdate,stime,10^(LOG10(cc[1])+(Log10(S3)-log10(S4))*(Per2/100))," MB:"+NumToStr(10^(LOG10(cc[1])+(Log10(S3)-log10(S4))*(Per2/100)),2));
t4 = Text_New(sdate,stime,10^(LOG10(cc[1])-(Log10(S3)-log10(S4))*(Per2/100))," MS:"+NumToStr(10^(LOG10(cc[1])-(Log10(S3)-log10(S4))*(Per2/100)),2));
t5 = Text_New(sdate,stime,s5," MO:"+NumToStr(s5,2));
Text_SetStyle(t1,5,2);
Text_SetStyle(t2,5,2);
Text_SetStyle(t3,5,2);
Text_SetStyle(t4,5,2);
Text_SetStyle(t5,5,2);
Text_SetColor(t1,RED);
Text_SetColor(t2,BLUE);
Text_SetColor(t3,RED);
Text_SetColor(t4,BLUE);
Text_SetColor(t5,RED);
즐거운 하루되세요
> 골든키 님이 쓴 글입니다.
> 제목 : 수식수정부탁드립니다
> #,안녕하세요
1,아래수식은 월간,대칭 수식인데요,이식을 날짜를 지정해서 지정한날로부터 영업일수로
25일 다음날에 초기화 되는 수식으로 수정하고 싶습니다,도움부탁드립니다,
(지정날짜와 영업일수는 외부변수로 하면좋겠습니다).
2,아래식을 날짜를 지정(년월일)하여시작하고 날짜를 지정하여 종료후 초기화 되는 식으로
수정 부탁드립니다,
3,수고스럽지만 위두개(1,2)식을 별도로 작성부탁드립니다
input : Per1(9),Per2(18);
Var : pivot(0),S1(0),S2(1),S3(1),S4(1),S5(0),cnt(0),t1(0),t2(0),t3(0),t4(0),t5(0);
Array : oo[10](0),hh[10](0),ll[10](0),cc[10](0);
if bdate > bdate[1]+30 then
{
oo[0] = o;
hh[0] = h;
ll[0] = L;
for cnt = 1 to 9
{
oo[cnt] = oo[cnt-1][1];
hh[cnt] = hh[cnt-1][1];
ll[cnt] = ll[cnt-1][1];
cc[cnt] = cc[cnt-1][1];
}
}
if h > hh[0] Then
hh[0] = h;
if l < ll[0] Then
ll[0] = l;
cc[0] = c;
if hh[1] > 0 and ll[1] > 0 then
{
S1 = (hh[0]+ll[0])/2;
S2 = (hh[1]+ll[1])/2;
S3 = hh[1];
S4 = ll[1];
s5 = oo[0];
plot1(10^(LOG10(oo[0])));
plot2(10^(LOG10(cc[1])+(LOG10(S3)-LOG10(S4))*(Per1/100)));
plot3(10^(LOG10(cc[1])-(LOG10(S3)-LOG10(S4))*(Per1/100)));
plot4(10^(LOG10(cc[1])+(LOG10(S3)-LOG10(S4))*(Per2/100)));
plot5(10^(LOG10(cc[1])-(LOG10(S3)-LOG10(S4))*(Per2/100)));
}
Text_Delete(t1);
Text_Delete(t2);
Text_Delete(t3);
Text_Delete(t4);
Text_Delete(t5);
t1 = Text_New(sdate,stime,10^(LOG10(cc[1])+(Log10(S3)-log10(S4))*(Per1/100))," mb:"+NumToStr(10^(LOG10(cc[1])+(Log10(S3)-log10(S4))*(Per1/100)),2));
t2 = Text_New(sdate,stime,10^(LOG10(cc[1])-(Log10(S3)-log10(S4))*(Per1/100))," ms:"+NumToStr(10^(LOG10(cc[1])-(Log10(S3)-log10(S4))*(Per1/100)),2));
t3 = Text_New(sdate,stime,10^(LOG10(cc[1])+(Log10(S3)-log10(S4))*(Per2/100))," MB:"+NumToStr(10^(LOG10(cc[1])+(Log10(S3)-log10(S4))*(Per2/100)),2));
t4 = Text_New(sdate,stime,10^(LOG10(cc[1])-(Log10(S3)-log10(S4))*(Per2/100))," MS:"+NumToStr(10^(LOG10(cc[1])-(Log10(S3)-log10(S4))*(Per2/100)),2));
t5 = Text_New(sdate,stime,s5," MO:"+NumToStr(s5,2));
Text_SetStyle(t1,5,2);
Text_SetStyle(t2,5,2);
Text_SetStyle(t3,5,2);
Text_SetStyle(t4,5,2);
Text_SetStyle(t5,5,2);
Text_SetColor(t1,RED);
Text_SetColor(t2,BLUE);
Text_SetColor(t3,RED);
Text_SetColor(t4,BLUE);
Text_SetColor(t5,RED);
$$$,언제나 늘 고맙습니다.
다음글
이전글