var : 분주기(15),P(5),분주기1(5);
var : S1(0),D1(0),TM(0),TF(0);
var : cnt(0),cnt1(0),sum(0),mav(0),tf1(0);
Array : CC[100](0),OO[100](0),HH[100](0),LL[100](0),TT[100](0);
Array : C1[100](0),T1[100](0);
if (sdate != sdate[1] and stime >= 070000) or
(sdate == sdate[1] and (Stime == 070000 or (stime > 070000 and stime[1] < 070000))) Then{
S1 = TimeToMinutes(070000);
D1 = sdate;
}
if D1 > 0 then{
if sdate == D1 Then
TM = TimeToMinutes(stime)-S1;
Else
TM = TimeToMinutes(stime)+1440-S1;
TF = TM%분주기;
if (sdate != sdate[1] and stime >= 070000) or
(sdate == sdate[1] and (Stime == 070000 or (stime > 070000 and stime[1] < 070000))) or
(TF < TF[1]) Then{
OO[0] = o;
HH[0] = H;
LL[0] = L;
TT[0] = stime;
for cnt = 1 to 100{
OO[cnt] = OO[cnt-1][1];
HH[cnt] = HH[cnt-1][1];
LL[cnt] = LL[cnt-1][1];
CC[cnt] = CC[cnt-1][1];
TT[cnt] = TT[cnt-1][1];
}
}
if H > HH[0] Then
HH[0] = H;
if L < LL[0] Then
LL[0] = L;
CC[0] = C;
TF1 = TM%분주기1;
if (sdate != sdate[1] and stime >= 070000) or
(sdate == sdate[1] and (Stime == 070000 or (stime > 070000 and stime[1] < 070000))) or
(TF1 < TF1[1]) Then{
T1[cnt1] = stime;
for cnt1 = 1 to 100{
C1[cnt1] = C1[cnt1-1][1];
T1[cnt1] = T1[cnt1-1][1];
}
}
C1[0] = c;
////////////////////////////////////
틱봉에 적용하는 분주기 식인데요~
분주기에서 2분부터는 적용이 되는데
1분이 적용이 안되네요. 수정 부탁드립니다.~
답변 1
예스스탁
예스스탁 답변
2023-07-24 14:28:44
안녕하세요.
예스스탁입니다.
var : 분주기(15),P(5),분주기1(5);
var : S1(0),D1(0),TM(0),TF(0);
var : cnt(0),cnt1(0),sum(0),mav(0),tf1(0);
Array : CC[100](0),OO[100](0),HH[100](0),LL[100](0),TT[100](0);
Array : C1[100](0),T1[100](0);
if (sdate != sdate[1] and stime >= 070000) or
(sdate == sdate[1] and (Stime == 070000 or (stime > 070000 and stime[1] < 070000))) Then
{
S1 = TimeToMinutes(070000);
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
OO[0] = o;
HH[0] = H;
LL[0] = L;
TT[0] = stime;
for cnt = 1 to 100{
OO[cnt] = OO[cnt-1][1];
HH[cnt] = HH[cnt-1][1];
LL[cnt] = LL[cnt-1][1];
CC[cnt] = CC[cnt-1][1];
TT[cnt] = TT[cnt-1][1];
}
}
if H > HH[0] Then
HH[0] = H;
if L < LL[0] Then
LL[0] = L;
CC[0] = C;
TF1 = TM%분주기1;
if Bdate != Bdate[1] or
(Bdate == Bdate[1] and 분주기1 > 1 and TF < TF[1]) or
(Bdate == Bdate[1] and 분주기1 > 1 and TM >= TM[1]+분주기1) or
(Bdate == Bdate[1] and 분주기1 == 1 and TM > TM[1]) Then
{
T1[cnt1] = stime;
for cnt1 = 1 to 100{
C1[cnt1] = C1[cnt1-1][1];
T1[cnt1] = T1[cnt1-1][1];
}
}
C1[0] = c;
즐거운 하루되세요
> 겐지 님이 쓴 글입니다.
> 제목 : 문의드립니다.
> var : 분주기(15),P(5),분주기1(5);
var : S1(0),D1(0),TM(0),TF(0);
var : cnt(0),cnt1(0),sum(0),mav(0),tf1(0);
Array : CC[100](0),OO[100](0),HH[100](0),LL[100](0),TT[100](0);
Array : C1[100](0),T1[100](0);
if (sdate != sdate[1] and stime >= 070000) or
(sdate == sdate[1] and (Stime == 070000 or (stime > 070000 and stime[1] < 070000))) Then{
S1 = TimeToMinutes(070000);
D1 = sdate;
}
if D1 > 0 then{
if sdate == D1 Then
TM = TimeToMinutes(stime)-S1;
Else
TM = TimeToMinutes(stime)+1440-S1;
TF = TM%분주기;
if (sdate != sdate[1] and stime >= 070000) or
(sdate == sdate[1] and (Stime == 070000 or (stime > 070000 and stime[1] < 070000))) or
(TF < TF[1]) Then{
OO[0] = o;
HH[0] = H;
LL[0] = L;
TT[0] = stime;
for cnt = 1 to 100{
OO[cnt] = OO[cnt-1][1];
HH[cnt] = HH[cnt-1][1];
LL[cnt] = LL[cnt-1][1];
CC[cnt] = CC[cnt-1][1];
TT[cnt] = TT[cnt-1][1];
}
}
if H > HH[0] Then
HH[0] = H;
if L < LL[0] Then
LL[0] = L;
CC[0] = C;
TF1 = TM%분주기1;
if (sdate != sdate[1] and stime >= 070000) or
(sdate == sdate[1] and (Stime == 070000 or (stime > 070000 and stime[1] < 070000))) or
(TF1 < TF1[1]) Then{
T1[cnt1] = stime;
for cnt1 = 1 to 100{
C1[cnt1] = C1[cnt1-1][1];
T1[cnt1] = T1[cnt1-1][1];
}
}
C1[0] = c;
////////////////////////////////////
틱봉에 적용하는 분주기 식인데요~
분주기에서 2분부터는 적용이 되는데
1분이 적용이 안되네요. 수정 부탁드립니다.~