커뮤니티
59861추가 질문 부탁 드립니다.(내용무)
2018-10-30 14:30:52
125
글번호 123203
.
답변 1
예스스탁 예스스탁 답변
2018-10-31 13:34:33
안녕하세요
예스스탁입니다.
타주기로 변경하는 내용은 이전문의에 많이 작성해 드렸습니다.
해당 내용들은 식작성에 많은 시간이 소모됩니다.
이후의 내용은 이전내용 참고하셔서 수정보완해서 작성해 가시기 바랍니다.
input : 타주기분(60),P1(20);
var : S1(0),D1(0),TM(0),TF(0),cnt(0);
var : HT1(0),LT1(0),L1(0),L2(0),ii(0),idx(0),NewL(0),BTM2(0);
Array : HH[100](0),LL[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%타주기분;
if Bdate != Bdate[1] or (Bdate == Bdate[1] and TF < TF[1]) Then
{
ii = ii+1;
HH[0] = H;
LL[0] = L;
for cnt = 1 to 99
{
HH[cnt] = HH[cnt-1][1];
LL[cnt] = LL[cnt-1][1];
}
if HH[P1+1] > 0 and LL[P1+1] > 0 then
{
HT1 = HH[2];
LT1 = LL[2];
for cnt = 2 to P1+1
{
if HH[cnt] > HT1 Then
HT1 = HH[cnt];
if LL[cnt] < LT1 Then
LT1 = LL[cnt];
}
if LL[1] < LT1 Then
{
idx = ii[1];
NewL = LL[1];
}
if idx > 0 and ii[1] == idx+P1-2 then
{
L1 = LL[1];
L2 = LL[1];
for cnt = 1 to P1
{
if cnt <= P1-1 and LL[cnt] < L1 Then
L1 = LL[cnt];
if cnt <= P1-2 and LL[cnt] < L2 Then
L2 = LL[cnt];
}
if L2 > L1 Then
BTM2 = NewL;
}
}
}
if H > HH[0] Then
HH[0] = H;
if L < LL[0] Then
LL[0] = L;
}
if BTM2 > 0 then
plot1(BTM2);
즐거운 하루되세요
> yes 님이 쓴 글입니다.
> 제목 : 59861추가 질문 부탁 드립니다.(내용무)
> .
다음글
이전글