커뮤니티
안녕하세요
2018-12-27 12:34:57
148
글번호 124796
아래식을
1.3분차트에 15분봉의 값
2.3분차트에 30분봉의 값
상기1.2항을(채우기)로 동시에 사용하고자 합니다
input : 타주기분(30);
var : S1(0),D1(0),TM(0),TF(0),cnt(0);
var : tx1(0),tx2(0),tx3(0);
Array : OO[100](0),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
{
OO[0] = O;
HH[0] = H;
LL[0] = L;
for cnt = 1 to 99
{
OO[cnt] = OO[cnt-1][1];
HH[cnt] = HH[cnt-1][1];
LL[cnt] = LL[cnt-1][1];
}
}
if H > HH[0] Then
HH[0] = H;
if L < LL[0] Then
LL[0] = L;
plot1(OO[0],"시가");
plot2(HH[0],"고가");
plot3(LL[0],"저가");
Text_Delete(tx1);
Text_Delete(tx2);
tx1 = Text_New(sdate,stime,HH[0],NumToStr(HH[0],2));
tx2 = Text_New(sdate,stime,LL[0],NumToStr(LL[0],2));
Text_SetStyle(tx1,0,1);
Text_SetStyle(tx2,0,0);
}
감사합니다
답변 1
예스스탁 예스스탁 답변
2018-12-27 16:28:42
안녕하세요
예스스탁입니다.
2개의 다른 주기값을 출력하게 수정해 드립니다.
input : 타주기분1(15),타주기분2(30);
var : S1(0),D1(0),TM(0),TF1(0),TF2(0),cnt(0);
var : tx1(0),tx2(0),tx3(0),tx4(0);
Array : O1[100](0),H1[100](0),L1[100](0);
Array : O2[100](0),H2[100](0),L2[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;
//15분
TF1 = TM%타주기분1;
if Bdate != Bdate[1] or (Bdate == Bdate[1] and TF1 < TF1[1]) Then
{
O1[0] = O;
H1[0] = H;
L1[0] = L;
for cnt = 1 to 99
{
O1[cnt] = O1[cnt-1][1];
H1[cnt] = H1[cnt-1][1];
L1[cnt] = L1[cnt-1][1];
}
}
if H > H1[0] Then
H1[0] = H;
if L < L1[0] Then
L1[0] = L;
plot1(O1[0],"시가1");
plot2(H1[0],"고가1");
plot3(L1[0],"저가1");
Text_Delete(tx1);
Text_Delete(tx2);
tx1 = Text_New(sdate,stime,H1[0],NumToStr(H1[0],2));
tx2 = Text_New(sdate,stime,L1[0],NumToStr(L1[0],2));
Text_SetStyle(tx1,0,1);
Text_SetStyle(tx2,0,0);
//30분
TF2 = TM%타주기분2;
if Bdate != Bdate[1] or (Bdate == Bdate[1] and TF2 < TF2[1]) Then
{
O2[0] = O;
H2[0] = H;
L2[0] = L;
for cnt = 1 to 99
{
O2[cnt] = O2[cnt-1][1];
H2[cnt] = H2[cnt-1][1];
L2[cnt] = L2[cnt-1][1];
}
}
if H > H2[0] Then
H2[0] = H;
if L < L2[0] Then
L2[0] = L;
plot4(O2[0],"시가2");
plot5(H2[0],"고가2");
plot6(L2[0],"저가2");
Text_Delete(tx3);
Text_Delete(tx4);
tx3 = Text_New(sdate,stime,H2[0],NumToStr(H2[0],2));
tx4 = Text_New(sdate,stime,L2[0],NumToStr(L2[0],2));
Text_SetStyle(tx3,0,1);
Text_SetStyle(tx4,0,0);
}
즐거운 하루되세요
> byeongup 님이 쓴 글입니다.
> 제목 : 안녕하세요
> 아래식을
1.3분차트에 15분봉의 값
2.3분차트에 30분봉의 값
상기1.2항을(채우기)로 동시에 사용하고자 합니다
input : 타주기분(30);
var : S1(0),D1(0),TM(0),TF(0),cnt(0);
var : tx1(0),tx2(0),tx3(0);
Array : OO[100](0),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
{
OO[0] = O;
HH[0] = H;
LL[0] = L;
for cnt = 1 to 99
{
OO[cnt] = OO[cnt-1][1];
HH[cnt] = HH[cnt-1][1];
LL[cnt] = LL[cnt-1][1];
}
}
if H > HH[0] Then
HH[0] = H;
if L < LL[0] Then
LL[0] = L;
plot1(OO[0],"시가");
plot2(HH[0],"고가");
plot3(LL[0],"저가");
Text_Delete(tx1);
Text_Delete(tx2);
tx1 = Text_New(sdate,stime,HH[0],NumToStr(HH[0],2));
tx2 = Text_New(sdate,stime,LL[0],NumToStr(LL[0],2));
Text_SetStyle(tx1,0,1);
Text_SetStyle(tx2,0,0);
}
감사합니다
다음글
이전글