커뮤니티
수정 부탁드립니다.
2023-11-22 13:41:32
903
글번호 174273
안녕하세요.
아래 수식에서
TL_SetColor(TL1,Red);
TL_SetColor(TL2,magenta);
TL_SetColor(TL3,Gray);
라인 두깨를 표기할 수 있도록 부탁드립니다.
거듭 감사드립니다.
좋은 시간되세요.
===========================
input : P1(2),P2(3),P3(5);
var : cnt(0),d1(0);
var : sum1(0),sum2(0),sum3(0),mav1(0),mav2(0),mav3(0);
var : TL1(0),TL2(0),TL3(0);
Array : C2[100](0);
if data2(Bdate != Bdate[1]) Then
{
For cnt = 99 DownTo 1
{
C2[cnt] = C2[cnt-1];
TL_Delete(TL1[cnt]);
TL_Delete(TL2[cnt]);
TL_Delete(TL3[cnt]);
}
C2[0] = Data2(c);
sum1 = 0;
sum2 = 0;
sum3 = 0;
For cnt = 0 to max(P1,P2,P3)
{
if cnt < P1 Then
sum1 = sum1 + C2[cnt];
if cnt < P2 Then
sum2 = sum3 + C2[cnt];
if cnt < P3 Then
sum3 = sum3 + C2[cnt];
}
mav1 = sum1/P1;
mav2 = sum2/P2;
mav3 = sum3/P3;
d1 = Data2(Bdate[1]);
TL1 = TL_New_Self(d1,150000,mav1,sDate,sTime,mav1);
TL2 = TL_New_Self(d1,150000,mav2,sDate,sTime,mav2);
TL3 = TL_New_Self(d1,150000,mav3,sDate,sTime,mav3);
TL_SetColor(TL1,Red);
TL_SetColor(TL2,magenta);
TL_SetColor(TL3,Gray);
}
Else
{
C2[0] = Data2(c);
TL_SetEnd(TL1,NextBarSdate,NextBarStime,mav1);
TL_SetEnd(TL2,NextBarSdate,NextBarStime,mav2);
TL_SetEnd(TL3,NextBarSdate,NextBarStime,mav3);
}
Plot1(Data2(OpenD(0)),"시가라인");
답변 1
예스스탁 예스스탁 답변
2023-11-22 16:33:09
안녕하세요
예스스탁입니다.
input : P1(2),P2(3),P3(5);
input : 두께1(1),두께2(1),두께3(1);
var : cnt(0),d1(0);
var : sum1(0),sum2(0),sum3(0),mav1(0),mav2(0),mav3(0);
var : TL1(0),TL2(0),TL3(0);
Array : C2[100](0);
if data2(Bdate != Bdate[1]) Then
{
For cnt = 99 DownTo 1
{
C2[cnt] = C2[cnt-1];
TL_Delete(TL1[cnt]);
TL_Delete(TL2[cnt]);
TL_Delete(TL3[cnt]);
}
C2[0] = Data2(c);
sum1 = 0;
sum2 = 0;
sum3 = 0;
For cnt = 0 to max(P1,P2,P3)
{
if cnt < P1 Then
sum1 = sum1 + C2[cnt];
if cnt < P2 Then
sum2 = sum3 + C2[cnt];
if cnt < P3 Then
sum3 = sum3 + C2[cnt];
}
mav1 = sum1/P1;
mav2 = sum2/P2;
mav3 = sum3/P3;
d1 = Data2(Bdate[1]);
TL1 = TL_New_Self(d1,150000,mav1,sDate,sTime,mav1);
TL2 = TL_New_Self(d1,150000,mav2,sDate,sTime,mav2);
TL3 = TL_New_Self(d1,150000,mav3,sDate,sTime,mav3);
TL_SetColor(TL1,Red);
TL_SetColor(TL2,magenta);
TL_SetColor(TL3,Gray);
TL_SetSize(TL1,두께1);
TL_SetSize(TL2,두께2);
TL_SetSize(TL3,두께3);
}
Else
{
C2[0] = Data2(c);
TL_SetEnd(TL1,NextBarSdate,NextBarStime,mav1);
TL_SetEnd(TL2,NextBarSdate,NextBarStime,mav2);
TL_SetEnd(TL3,NextBarSdate,NextBarStime,mav3);
}
Plot1(Data2(OpenD(0)),"시가라인");
즐거운 하루되세요
> 포보스 님이 쓴 글입니다.
> 제목 : 수정 부탁드립니다.
> 안녕하세요.
아래 수식에서
TL_SetColor(TL1,Red);
TL_SetColor(TL2,magenta);
TL_SetColor(TL3,Gray);
라인 두깨를 표기할 수 있도록 부탁드립니다.
거듭 감사드립니다.
좋은 시간되세요.
===========================
input : P1(2),P2(3),P3(5);
var : cnt(0),d1(0);
var : sum1(0),sum2(0),sum3(0),mav1(0),mav2(0),mav3(0);
var : TL1(0),TL2(0),TL3(0);
Array : C2[100](0);
if data2(Bdate != Bdate[1]) Then
{
For cnt = 99 DownTo 1
{
C2[cnt] = C2[cnt-1];
TL_Delete(TL1[cnt]);
TL_Delete(TL2[cnt]);
TL_Delete(TL3[cnt]);
}
C2[0] = Data2(c);
sum1 = 0;
sum2 = 0;
sum3 = 0;
For cnt = 0 to max(P1,P2,P3)
{
if cnt < P1 Then
sum1 = sum1 + C2[cnt];
if cnt < P2 Then
sum2 = sum3 + C2[cnt];
if cnt < P3 Then
sum3 = sum3 + C2[cnt];
}
mav1 = sum1/P1;
mav2 = sum2/P2;
mav3 = sum3/P3;
d1 = Data2(Bdate[1]);
TL1 = TL_New_Self(d1,150000,mav1,sDate,sTime,mav1);
TL2 = TL_New_Self(d1,150000,mav2,sDate,sTime,mav2);
TL3 = TL_New_Self(d1,150000,mav3,sDate,sTime,mav3);
TL_SetColor(TL1,Red);
TL_SetColor(TL2,magenta);
TL_SetColor(TL3,Gray);
}
Else
{
C2[0] = Data2(c);
TL_SetEnd(TL1,NextBarSdate,NextBarStime,mav1);
TL_SetEnd(TL2,NextBarSdate,NextBarStime,mav2);
TL_SetEnd(TL3,NextBarSdate,NextBarStime,mav3);
}
Plot1(Data2(OpenD(0)),"시가라인");