커뮤니티
부탁 드립니다.
2020-07-17 10:45:44
2187
글번호 140743
도움 주셔서 깊이 감사 드립니다.
1)타주기(분봉용)
2)타주기(틱봉용) 부탁 드립니다.
미리 경배로 감사 인사 올립니다.
input : p1(60);
var1 = accumn(iff(C>O,C*V,0),p1);
var2 = var1/accumn(iff(C>O,1,0),p1);
참고수식1)
input :ntime(100);
var : S1(0),D1(0),TM(0),TF(0),cnt(0);
var : C1(0),CC(0),sum(0),value(0),pre(0);
if Bdate != Bdate[1] Then
{
S1 = TimeToMinutes(stime);
D1 = sdate;
}
if D1 > 0 then
{
if sdate == D1 Then
TM = TimeToMinutes(stime)-S1;
Else
TM = TimeToMinutes(stime)+1440-S1;
TF = TM%ntime;
if Bdate != Bdate[1] or
(Bdate == Bdate[1] and ntime > 1 and TF < TF[1]) or
(Bdate == Bdate[1] and ntime > 1 and TM >= TM[1]+ntime) or
(Bdate == Bdate[1] and ntime == 1 and TM > TM[1]) Then
{
참고수식2)
input : n(2);
var : idx(0),D1(0),TF(0),cnt(0);
var : C1(0),CC(0),sum(0),value(0),pre(0);
if Bdate != Bdate[1] Then
{
D1 = sdate;
IDX = 0;
}
Else
idx = idx+1;
if D1 > 0 then
{
TF = idx%N;
if Bdate != Bdate[1] or (Bdate == Bdate[1] and TF < TF[1]) Then
{
답변 1
예스스탁 예스스탁 답변
2020-07-17 11:43:37
안녕하세요
예스스탁입니다.
1
input : ntime(10),P1(60);
var : S1(0),D1(0),TM(0),TF(0),cnt(0);
Array : OO[100](0),CC[100](0),VV[100](0);
if Bdate != Bdate[1] Then
{
S1 = TimeToMinutes(stime);
D1 = sdate;
}
if D1 > 0 then
{
if sdate == D1 Then
TM = TimeToMinutes(stime)-S1;
Else
TM = TimeToMinutes(stime)+1440-S1;
TF = TM%ntime;
if Bdate != Bdate[1] or
(Bdate == Bdate[1] and ntime > 1 and TF < TF[1]) or
(Bdate == Bdate[1] and ntime > 1 and TM >= TM[1]+ntime) or
(Bdate == Bdate[1] and ntime == 1 and TM > TM[1]) Then
{
OO[0] = O;
VV[0] = V;
for cnt = 1 to 99
{
OO[cnt] = OO[cnt-1][1];
CC[cnt] = CC[cnt-1][1];
VV[cnt] = VV[cnt-1][1];
}
}
CC[0] = C;
VV[0] = VV[0]+V;
if VV[P1-1] > 0 then
{
var1 = 0;
value1 = 0;
for cnt = 0 to P1-1
{
if CC[cnt] > OO[cnt] then
{
var1 = var1 + (CC[cnt]*VV[cnt]);
value1 = value1 + 1;
}
}
var2 = var1/value1;
plot1(var2);
}
}
2
input : N(3),P1(60);
var : ii(0),D1(0),TF(0),cnt(0);
Array : OO[100](0),CC[100](0),VV[100](0);
if Bdate != Bdate[1] Then
{
D1 = sdate;
ii = 0;
}
else
ii = ii +1;
if D1 > 0 then
{
TF = ii%N;
if Bdate != Bdate[1] or (Bdate == Bdate[1] and TF < TF[1]) Then
{
OO[0] = O;
VV[0] = V;
for cnt = 1 to 99
{
OO[cnt] = OO[cnt-1][1];
CC[cnt] = CC[cnt-1][1];
VV[cnt] = VV[cnt-1][1];
}
}
CC[0] = C;
VV[0] = VV[0]+V;
if VV[P1-1] > 0 then
{
var1 = 0;
value1 = 0;
for cnt = 0 to P1-1
{
if CC[cnt] > OO[cnt] then
{
var1 = var1 + (CC[cnt]*VV[cnt]);
value1 = value1 + 1;
}
}
var2 = var1/value1;
plot1(var2);
}
}
즐거운 하루되세요
> 뮬리 님이 쓴 글입니다.
> 제목 : 부탁 드립니다.
> 도움 주셔서 깊이 감사 드립니다.
1)타주기(분봉용)
2)타주기(틱봉용) 부탁 드립니다.
미리 경배로 감사 인사 올립니다.
input : p1(60);
var1 = accumn(iff(C>O,C*V,0),p1);
var2 = var1/accumn(iff(C>O,1,0),p1);
참고수식1)
input :ntime(100);
var : S1(0),D1(0),TM(0),TF(0),cnt(0);
var : C1(0),CC(0),sum(0),value(0),pre(0);
if Bdate != Bdate[1] Then
{
S1 = TimeToMinutes(stime);
D1 = sdate;
}
if D1 > 0 then
{
if sdate == D1 Then
TM = TimeToMinutes(stime)-S1;
Else
TM = TimeToMinutes(stime)+1440-S1;
TF = TM%ntime;
if Bdate != Bdate[1] or
(Bdate == Bdate[1] and ntime > 1 and TF < TF[1]) or
(Bdate == Bdate[1] and ntime > 1 and TM >= TM[1]+ntime) or
(Bdate == Bdate[1] and ntime == 1 and TM > TM[1]) Then
{
참고수식2)
input : n(2);
var : idx(0),D1(0),TF(0),cnt(0);
var : C1(0),CC(0),sum(0),value(0),pre(0);
if Bdate != Bdate[1] Then
{
D1 = sdate;
IDX = 0;
}
Else
idx = idx+1;
if D1 > 0 then
{
TF = idx%N;
if Bdate != Bdate[1] or (Bdate == Bdate[1] and TF < TF[1]) Then
{
다음글