커뮤니티
부탁드립니다
2021-04-05 08:42:56
973
글번호 147638
$,아래식에서 plot선 2개를 추가로 출력요청 드립니다.
1,
plot1 (미장시작 첫봉의시가를 미장종료시까지 오른쪽그리기)
plot2 (미장시작봉부터 종가선을 시작점까지 왼쪽그리기하되 봉이갱신되면 이전봉
종가선은 삭제(결국 미장종료후 마지막봉 종가선 하나만 미장시작점까지
왼쪽그리기 유지됨)
*색채우기를 하고자 plot로 요청하니 도움 부탁드립니다.
input : USA시작(223000),USA종료(050000),USA굵기(0);
var : D1(0),T1(0),H1(0),L1(0),Tcond1(false);
var : D2(0),T2(0),H2(0),L2(0),Tcond2(false);
var : D3(0),T3(0),H3(0),L3(0),Tcond3(false);
var : ED1(0),ET1(0),ED2(0),ET2(0),ED3(0),ET3(0);
var : TL11(0),TL12(0),TL13(0),TL14(0);
var : TL111(0),TL121(0),TL131(0),TL141(0);
var : TL21(0),TL22(0),TL23(0),TL24(0);
var : TL211(0),TL221(0),TL231(0),TL241(0);
var : TL31(0),TL32(0),TL33(0),TL34(0);
var : TL311(0),TL321(0),TL331(0),TL341(0);
var : tx1(0),tx2(0),tx3(0);
var : tx11(0),tx21(0),tx31(0);
if time == USA종료 or (time > USA종료 and time[1] < USA종료) Then
Tcond3 = false;
if stime == USA시작 or (stime > USA시작 and stime[1] < USA시작) Then{
D3 = sdate;
T3 = stime;
H3 = H;
L3 = L;
Tcond3 = true;
if d3[1] > 0 and ED3 > 0 Then{
TL_Delete(TL311);
TL_Delete(TL321);
TL_Delete(TL331);
TL_Delete(TL341);
TL311 = TL_New(D3[1],T3[1],H3[1],ED3,ET3,H3[1]);
TL321 = TL_New(D3[1],T3[1],L3[1],ED3,ET3,L3[1]);
TL331 = TL_New(D3[1],T3[1],H3[1],D3[1],T3[1],L3[1]);
TL341 = TL_New(ED3,ET3,H3[1],ED3,ET3,L3[1]);
TL_SetColor(TL311,MAGENTA);
TL_SetColor(TL321,MAGENTA);
TL_SetColor(TL331,MAGENTA);
TL_SetColor(TL341,MAGENTA);
TL_SetSize(TL311,USA굵기);
TL_SetSize(TL321,USA굵기);
TL_SetSize(TL331,USA굵기);
TL_SetSize(TL341,USA굵기);
Text_Delete(tx31);
tx31 = Text_New(ED3,ET3,H3[1],NumToStr(H3[1]-L3[1],4));
Text_SetColor(tx31,MAGENTA);
}
}
if Tcond3 == true Then{
if H > H3 Then
H3 = H;
if L < L3 Then
L3 = L;
ED3 = sdate;
ET3 = stime;
TL_Delete(TL31);
TL_Delete(TL32);
TL_Delete(TL33);
TL_Delete(TL34);
TL31 = TL_New(D3,T3,H3,Sdate,stime,H3);
TL32 = TL_New(D3,T3,L3,Sdate,stime,L3);
TL33 = TL_New(D3,T3,H3,D3,T3,L3);
TL34 = TL_New(sdate,stime,H3,sdate,stime,L3);
TL_SetColor(TL31,MAGENTA);
TL_SetColor(TL32,MAGENTA);
TL_SetColor(TL33,MAGENTA);
TL_SetColor(TL34,MAGENTA);
TL_SetSize(TL311,USA굵기);
TL_SetSize(TL321,USA굵기);
TL_SetSize(TL331,USA굵기);
TL_SetSize(TL341,USA굵기);
Text_Delete(tx3);
tx3 = Text_New(sdate,stime,H3,NumToStr(H3-L3,4));
Text_SetColor(tx3,MAGENTA);
}
2, IFf (OO[0] > OO[1] ,MAGENTA,BLUE) 이 함수 로직을 OO[0]> OO[1] > CC[1]일때로
할때 함수로직 부탁드립니다.
$,고맙습니다.
답변 2
예스스탁 예스스탁 답변
2021-04-05 14:25:05
안녕하세요
예스스탁입니다.
1
채우기를 하려면 plot으로 출력해야 하는데
plot은 한번 출력되면 이전봉의 값을 삭제할수 없습니다.
최종 종가를 미장시작부터 수평으로 출력은 불가능합니다.
input : USA시작(223000),USA종료(050000),USA굵기(0);
var : D1(0),T1(0),H1(0),L1(0),Tcond1(false);
var : D2(0),T2(0),H2(0),L2(0),Tcond2(false);
var : D3(0),T3(0),H3(0),L3(0),Tcond3(false);
var : ED1(0),ET1(0),ED2(0),ET2(0),ED3(0),ET3(0);
var : TL11(0),TL12(0),TL13(0),TL14(0);
var : TL111(0),TL121(0),TL131(0),TL141(0);
var : TL21(0),TL22(0),TL23(0),TL24(0);
var : TL211(0),TL221(0),TL231(0),TL241(0);
var : TL31(0),TL32(0),TL33(0),TL34(0);
var : TL311(0),TL321(0),TL331(0),TL341(0);
var : tx1(0),tx2(0),tx3(0);
var : tx11(0),tx21(0),tx31(0);
var : O3(0),C3(0);
if time == USA종료 or (time > USA종료 and time[1] < USA종료) Then
Tcond3 = false;
if stime == USA시작 or (stime > USA시작 and stime[1] < USA시작) Then
{
D3 = sdate;
T3 = stime;
O3 = O;
H3 = H;
L3 = L;
C3 = C;
Tcond3 = true;
if d3[1] > 0 and ED3 > 0 Then
{
TL_Delete(TL311);
TL_Delete(TL321);
TL_Delete(TL331);
TL_Delete(TL341);
TL311 = TL_New(D3[1],T3[1],H3[1],ED3,ET3,H3[1]);
TL321 = TL_New(D3[1],T3[1],L3[1],ED3,ET3,L3[1]);
TL331 = TL_New(D3[1],T3[1],H3[1],D3[1],T3[1],L3[1]);
TL341 = TL_New(ED3,ET3,H3[1],ED3,ET3,L3[1]);
TL_SetColor(TL311,MAGENTA);
TL_SetColor(TL321,MAGENTA);
TL_SetColor(TL331,MAGENTA);
TL_SetColor(TL341,MAGENTA);
TL_SetSize(TL311,USA굵기);
TL_SetSize(TL321,USA굵기);
TL_SetSize(TL331,USA굵기);
TL_SetSize(TL341,USA굵기);
Text_Delete(tx31);
tx31 = Text_New(ED3,ET3,H3[1],NumToStr(H3[1]-L3[1],4));
Text_SetColor(tx31,MAGENTA);
}
}
if Tcond3 == true Then
{
C3 = C;
if H > H3 Then
H3 = H;
if L < L3 Then
L3 = L;
ED3 = sdate;
ET3 = stime;
TL_Delete(TL31);
TL_Delete(TL32);
TL_Delete(TL33);
TL_Delete(TL34);
TL31 = TL_New(D3,T3,H3,Sdate,stime,H3);
TL32 = TL_New(D3,T3,L3,Sdate,stime,L3);
TL33 = TL_New(D3,T3,H3,D3,T3,L3);
TL34 = TL_New(sdate,stime,H3,sdate,stime,L3);
TL_SetColor(TL31,MAGENTA);
TL_SetColor(TL32,MAGENTA);
TL_SetColor(TL33,MAGENTA);
TL_SetColor(TL34,MAGENTA);
TL_SetSize(TL311,USA굵기);
TL_SetSize(TL321,USA굵기);
TL_SetSize(TL331,USA굵기);
TL_SetSize(TL341,USA굵기);
Text_Delete(tx3);
tx3 = Text_New(sdate,stime,H3,NumToStr(H3-L3,4));
Text_SetColor(tx3,MAGENTA);
Plot1(O3);
plot2(C3);
}
2
IFF(OO[0] > OO[1] and OO[1] > CC[1] ,MAGENTA,BLUE)
즐거운 하루되세요
> 크라켄 님이 쓴 글입니다.
> 제목 : 부탁드립니다
> $,아래식에서 plot선 2개를 추가로 출력요청 드립니다.
1,
plot1 (미장시작 첫봉의시가를 미장종료시까지 오른쪽그리기)
plot2 (미장시작봉부터 종가선을 시작점까지 왼쪽그리기하되 봉이갱신되면 이전봉
종가선은 삭제(결국 미장종료후 마지막봉 종가선 하나만 미장시작점까지
왼쪽그리기 유지됨)
*색채우기를 하고자 plot로 요청하니 도움 부탁드립니다.
input : USA시작(223000),USA종료(050000),USA굵기(0);
var : D1(0),T1(0),H1(0),L1(0),Tcond1(false);
var : D2(0),T2(0),H2(0),L2(0),Tcond2(false);
var : D3(0),T3(0),H3(0),L3(0),Tcond3(false);
var : ED1(0),ET1(0),ED2(0),ET2(0),ED3(0),ET3(0);
var : TL11(0),TL12(0),TL13(0),TL14(0);
var : TL111(0),TL121(0),TL131(0),TL141(0);
var : TL21(0),TL22(0),TL23(0),TL24(0);
var : TL211(0),TL221(0),TL231(0),TL241(0);
var : TL31(0),TL32(0),TL33(0),TL34(0);
var : TL311(0),TL321(0),TL331(0),TL341(0);
var : tx1(0),tx2(0),tx3(0);
var : tx11(0),tx21(0),tx31(0);
if time == USA종료 or (time > USA종료 and time[1] < USA종료) Then
Tcond3 = false;
if stime == USA시작 or (stime > USA시작 and stime[1] < USA시작) Then{
D3 = sdate;
T3 = stime;
H3 = H;
L3 = L;
Tcond3 = true;
if d3[1] > 0 and ED3 > 0 Then{
TL_Delete(TL311);
TL_Delete(TL321);
TL_Delete(TL331);
TL_Delete(TL341);
TL311 = TL_New(D3[1],T3[1],H3[1],ED3,ET3,H3[1]);
TL321 = TL_New(D3[1],T3[1],L3[1],ED3,ET3,L3[1]);
TL331 = TL_New(D3[1],T3[1],H3[1],D3[1],T3[1],L3[1]);
TL341 = TL_New(ED3,ET3,H3[1],ED3,ET3,L3[1]);
TL_SetColor(TL311,MAGENTA);
TL_SetColor(TL321,MAGENTA);
TL_SetColor(TL331,MAGENTA);
TL_SetColor(TL341,MAGENTA);
TL_SetSize(TL311,USA굵기);
TL_SetSize(TL321,USA굵기);
TL_SetSize(TL331,USA굵기);
TL_SetSize(TL341,USA굵기);
Text_Delete(tx31);
tx31 = Text_New(ED3,ET3,H3[1],NumToStr(H3[1]-L3[1],4));
Text_SetColor(tx31,MAGENTA);
}
}
if Tcond3 == true Then{
if H > H3 Then
H3 = H;
if L < L3 Then
L3 = L;
ED3 = sdate;
ET3 = stime;
TL_Delete(TL31);
TL_Delete(TL32);
TL_Delete(TL33);
TL_Delete(TL34);
TL31 = TL_New(D3,T3,H3,Sdate,stime,H3);
TL32 = TL_New(D3,T3,L3,Sdate,stime,L3);
TL33 = TL_New(D3,T3,H3,D3,T3,L3);
TL34 = TL_New(sdate,stime,H3,sdate,stime,L3);
TL_SetColor(TL31,MAGENTA);
TL_SetColor(TL32,MAGENTA);
TL_SetColor(TL33,MAGENTA);
TL_SetColor(TL34,MAGENTA);
TL_SetSize(TL311,USA굵기);
TL_SetSize(TL321,USA굵기);
TL_SetSize(TL331,USA굵기);
TL_SetSize(TL341,USA굵기);
Text_Delete(tx3);
tx3 = Text_New(sdate,stime,H3,NumToStr(H3-L3,4));
Text_SetColor(tx3,MAGENTA);
}
2, IFf (OO[0] > OO[1] ,MAGENTA,BLUE) 이 함수 로직을 OO[0]> OO[1] > CC[1]일때로
할때 함수로직 부탁드립니다.
$,고맙습니다.
크라켄
2021-04-06 09:39:35
> 예스스탁 님이 쓴 글입니다.
> 제목 : Re : 부탁드립니다
> 안녕하세요
예스스탁입니다.
1
채우기를 하려면 plot으로 출력해야 하는데
plot은 한번 출력되면 이전봉의 값을 삭제할수 없습니다.
최종 종가를 미장시작부터 수평으로 출력은 불가능합니다.
input : USA시작(223000),USA종료(050000),USA굵기(0);
var : D1(0),T1(0),H1(0),L1(0),Tcond1(false);
var : D2(0),T2(0),H2(0),L2(0),Tcond2(false);
var : D3(0),T3(0),H3(0),L3(0),Tcond3(false);
var : ED1(0),ET1(0),ED2(0),ET2(0),ED3(0),ET3(0);
var : TL11(0),TL12(0),TL13(0),TL14(0);
var : TL111(0),TL121(0),TL131(0),TL141(0);
var : TL21(0),TL22(0),TL23(0),TL24(0);
var : TL211(0),TL221(0),TL231(0),TL241(0);
var : TL31(0),TL32(0),TL33(0),TL34(0);
var : TL311(0),TL321(0),TL331(0),TL341(0);
var : tx1(0),tx2(0),tx3(0);
var : tx11(0),tx21(0),tx31(0);
var : O3(0),C3(0);
if time == USA종료 or (time > USA종료 and time[1] < USA종료) Then
Tcond3 = false;
if stime == USA시작 or (stime > USA시작 and stime[1] < USA시작) Then
{
D3 = sdate;
T3 = stime;
O3 = O;
H3 = H;
L3 = L;
C3 = C;
Tcond3 = true;
if d3[1] > 0 and ED3 > 0 Then
{
TL_Delete(TL311);
TL_Delete(TL321);
TL_Delete(TL331);
TL_Delete(TL341);
TL311 = TL_New(D3[1],T3[1],H3[1],ED3,ET3,H3[1]);
TL321 = TL_New(D3[1],T3[1],L3[1],ED3,ET3,L3[1]);
TL331 = TL_New(D3[1],T3[1],H3[1],D3[1],T3[1],L3[1]);
TL341 = TL_New(ED3,ET3,H3[1],ED3,ET3,L3[1]);
TL_SetColor(TL311,MAGENTA);
TL_SetColor(TL321,MAGENTA);
TL_SetColor(TL331,MAGENTA);
TL_SetColor(TL341,MAGENTA);
TL_SetSize(TL311,USA굵기);
TL_SetSize(TL321,USA굵기);
TL_SetSize(TL331,USA굵기);
TL_SetSize(TL341,USA굵기);
Text_Delete(tx31);
tx31 = Text_New(ED3,ET3,H3[1],NumToStr(H3[1]-L3[1],4));
Text_SetColor(tx31,MAGENTA);
}
}
if Tcond3 == true Then
{
C3 = C;
if H > H3 Then
H3 = H;
if L < L3 Then
L3 = L;
ED3 = sdate;
ET3 = stime;
TL_Delete(TL31);
TL_Delete(TL32);
TL_Delete(TL33);
TL_Delete(TL34);
TL31 = TL_New(D3,T3,H3,Sdate,stime,H3);
TL32 = TL_New(D3,T3,L3,Sdate,stime,L3);
TL33 = TL_New(D3,T3,H3,D3,T3,L3);
TL34 = TL_New(sdate,stime,H3,sdate,stime,L3);
TL_SetColor(TL31,MAGENTA);
TL_SetColor(TL32,MAGENTA);
TL_SetColor(TL33,MAGENTA);
TL_SetColor(TL34,MAGENTA);
TL_SetSize(TL311,USA굵기);
TL_SetSize(TL321,USA굵기);
TL_SetSize(TL331,USA굵기);
TL_SetSize(TL341,USA굵기);
Text_Delete(tx3);
tx3 = Text_New(sdate,stime,H3,NumToStr(H3-L3,4));
Text_SetColor(tx3,MAGENTA);
Plot1(O3);
plot2(C3);
}
2
IFF(OO[0] > OO[1] and OO[1] > CC[1] ,MAGENTA,BLUE)
즐거운 하루되세요
> 크라켄 님이 쓴 글입니다.
> 제목 : 부탁드립니다
> $,아래식에서 plot선 2개를 추가로 출력요청 드립니다.
1,
plot1 (미장시작 첫봉의시가를 미장종료시까지 오른쪽그리기)
plot2 (미장시작봉부터 종가선을 시작점까지 왼쪽그리기하되 봉이갱신되면 이전봉
종가선은 삭제(결국 미장종료후 마지막봉 종가선 하나만 미장시작점까지
왼쪽그리기 유지됨)
*색채우기를 하고자 plot로 요청하니 도움 부탁드립니다.
input : USA시작(223000),USA종료(050000),USA굵기(0);
var : D1(0),T1(0),H1(0),L1(0),Tcond1(false);
var : D2(0),T2(0),H2(0),L2(0),Tcond2(false);
var : D3(0),T3(0),H3(0),L3(0),Tcond3(false);
var : ED1(0),ET1(0),ED2(0),ET2(0),ED3(0),ET3(0);
var : TL11(0),TL12(0),TL13(0),TL14(0);
var : TL111(0),TL121(0),TL131(0),TL141(0);
var : TL21(0),TL22(0),TL23(0),TL24(0);
var : TL211(0),TL221(0),TL231(0),TL241(0);
var : TL31(0),TL32(0),TL33(0),TL34(0);
var : TL311(0),TL321(0),TL331(0),TL341(0);
var : tx1(0),tx2(0),tx3(0);
var : tx11(0),tx21(0),tx31(0);
if time == USA종료 or (time > USA종료 and time[1] < USA종료) Then
Tcond3 = false;
if stime == USA시작 or (stime > USA시작 and stime[1] < USA시작) Then{
D3 = sdate;
T3 = stime;
H3 = H;
L3 = L;
Tcond3 = true;
if d3[1] > 0 and ED3 > 0 Then{
TL_Delete(TL311);
TL_Delete(TL321);
TL_Delete(TL331);
TL_Delete(TL341);
TL311 = TL_New(D3[1],T3[1],H3[1],ED3,ET3,H3[1]);
TL321 = TL_New(D3[1],T3[1],L3[1],ED3,ET3,L3[1]);
TL331 = TL_New(D3[1],T3[1],H3[1],D3[1],T3[1],L3[1]);
TL341 = TL_New(ED3,ET3,H3[1],ED3,ET3,L3[1]);
TL_SetColor(TL311,MAGENTA);
TL_SetColor(TL321,MAGENTA);
TL_SetColor(TL331,MAGENTA);
TL_SetColor(TL341,MAGENTA);
TL_SetSize(TL311,USA굵기);
TL_SetSize(TL321,USA굵기);
TL_SetSize(TL331,USA굵기);
TL_SetSize(TL341,USA굵기);
Text_Delete(tx31);
tx31 = Text_New(ED3,ET3,H3[1],NumToStr(H3[1]-L3[1],4));
Text_SetColor(tx31,MAGENTA);
}
}
if Tcond3 == true Then{
if H > H3 Then
H3 = H;
if L < L3 Then
L3 = L;
ED3 = sdate;
ET3 = stime;
TL_Delete(TL31);
TL_Delete(TL32);
TL_Delete(TL33);
TL_Delete(TL34);
TL31 = TL_New(D3,T3,H3,Sdate,stime,H3);
TL32 = TL_New(D3,T3,L3,Sdate,stime,L3);
TL33 = TL_New(D3,T3,H3,D3,T3,L3);
TL34 = TL_New(sdate,stime,H3,sdate,stime,L3);
TL_SetColor(TL31,MAGENTA);
TL_SetColor(TL32,MAGENTA);
TL_SetColor(TL33,MAGENTA);
TL_SetColor(TL34,MAGENTA);
TL_SetSize(TL311,USA굵기);
TL_SetSize(TL321,USA굵기);
TL_SetSize(TL331,USA굵기);
TL_SetSize(TL341,USA굵기);
Text_Delete(tx3);
tx3 = Text_New(sdate,stime,H3,NumToStr(H3-L3,4));
Text_SetColor(tx3,MAGENTA);
}
2, IFf (OO[0] > OO[1] ,MAGENTA,BLUE) 이 함수 로직을 OO[0]> OO[1] > CC[1]일때로
할때 함수로직 부탁드립니다.
$,고맙습니다.
__________________________________________________________________________________
$,이전봉 종가삭제가 안된다면 미장종료 마지막봉 종가하나만 왼쪽(X축)그리기하면
안되나요??