커뮤니티
문의드립니다
2019-09-19 13:00:24
173
글번호 132094
1)var1 = dayhigh;
var2 = daylow;
var3 = var1-var2;
plot1(var1-var3*0.236);
plot2(var1-var3*0.500);
plot3(var1-var3*0.764);
plot4(var2+var3*1.236);
plot5(var2+var3*1.764);
plot6(var2+var3*2.000);
plot7(var1-var3*1.236);
plot8(var1-var3*1.764);
plot9(var1-var3*2.000);
2) input : per1(23.6),per2(50.0),per3(76.4);
var : hh(0),ll(0),dd(0),tt(0);
var : tl1(0),tl2(0),tl3(0);
if bdate > bdate[1] then
{
hh = h;
ll = l;
dd = sdate[1];
tt = stime[1];
TL_Delete(tl1);
TL_Delete(tl2);
TL_Delete(tl3);
tl1 = TL_New(dd,tt,hh-(hh-ll)*(per1/100),sdate,stime,hh-(hh-ll)*(per1/100));
tl2 = TL_New(dd,tt,hh-(hh-ll)*(per2/100),sdate,stime,hh-(hh-ll)*(per2/100));
tl3 = TL_New(dd,tt,hh-(hh-ll)*(per3/100),sdate,stime,hh-(hh-ll)*(per3/100));
}
if h > hh and hh > 0 Then
{
hh = h;
TL_Delete(tl1);
TL_Delete(tl2);
TL_Delete(tl3);
tl1 = TL_New(dd,tt,hh-(hh-ll)*(per1/100),sdate,stime,hh-(hh-ll)*(per1/100));
tl2 = TL_New(dd,tt,hh-(hh-ll)*(per2/100),sdate,stime,hh-(hh-ll)*(per2/100));
tl3 = TL_New(dd,tt,hh-(hh-ll)*(per3/100),sdate,stime,hh-(hh-ll)*(per3/100));
}
if l < ll and ll > 0 Then
{
ll = l;
TL_Delete(tl1);
TL_Delete(tl2);
TL_Delete(tl3);
tl1 = TL_New(dd,tt,hh-(hh-ll)*(per1/100),sdate,stime,hh-(hh-ll)*(per1/100));
tl2 = TL_New(dd,tt,hh-(hh-ll)*(per2/100),sdate,stime,hh-(hh-ll)*(per2/100));
tl3 = TL_New(dd,tt,hh-(hh-ll)*(per3/100),sdate,stime,hh-(hh-ll)*(per3/100));
}
TL_SetColor(TL1,CYAN);
TL_SetSize(TL1,1);
TL_SetExtRight(TL1,true);
TL_SetColor(TL2,WHITE);
TL_SetSize(TL2,1);
TL_SetExtRight(TL2,true);
TL_SetColor(TL3,RED);
TL_SetSize(TL3,1);
TL_SetExtRight(TL3,true);
1번 수식을 2번처럼 plot방식이 아닌2번 하단부처럼 색갈을 나오게 하고십습니다
가능하다면 부탁드립니다~~미리감사드립니다
답변 1
예스스탁 예스스탁 답변
2019-09-19 14:50:11
안녕하세요
예스스탁입니다.
input : per1(23.6),per2(50.0),per3(76.4),per4(123.6),per5(176.4),per6(200.0);
var : hh(0),ll(0),dd(0),tt(0);
var : tl1(0),tl2(0),tl3(0);
var : tl4(0),tl5(0),tl6(0);
var : tl7(0),tl8(0),tl9(0);
if bdate > bdate[1] then
{
hh = h;
ll = l;
dd = sdate[1];
tt = stime[1];
TL_Delete(tl1);
TL_Delete(tl2);
TL_Delete(tl3);
TL_Delete(tl4);
TL_Delete(tl5);
TL_Delete(tl6);
TL_Delete(tl7);
TL_Delete(tl8);
TL_Delete(tl9);
tl1 = TL_New(dd,tt,hh-(hh-ll)*(per1/100),sdate,stime,hh-(hh-ll)*(per1/100));
tl2 = TL_New(dd,tt,hh-(hh-ll)*(per2/100),sdate,stime,hh-(hh-ll)*(per2/100));
tl3 = TL_New(dd,tt,hh-(hh-ll)*(per3/100),sdate,stime,hh-(hh-ll)*(per3/100));
tl4 = TL_New(dd,tt,ll+(hh-ll)*(per4/100),sdate,stime,ll+(hh-ll)*(per4/100));
tl5 = TL_New(dd,tt,ll+(hh-ll)*(per5/100),sdate,stime,ll+(hh-ll)*(per5/100));
tl6 = TL_New(dd,tt,ll+(hh-ll)*(per6/100),sdate,stime,ll+(hh-ll)*(per6/100));
tl7 = TL_New(dd,tt,hh-(hh-ll)*(per4/100),sdate,stime,hh-(hh-ll)*(per4/100));
tl8 = TL_New(dd,tt,hh-(hh-ll)*(per5/100),sdate,stime,hh-(hh-ll)*(per5/100));
tl9 = TL_New(dd,tt,hh-(hh-ll)*(per6/100),sdate,stime,hh-(hh-ll)*(per6/100));
}
if h > hh and hh > 0 Then
{
hh = h;
TL_Delete(tl1);
TL_Delete(tl2);
TL_Delete(tl3);
TL_Delete(tl4);
TL_Delete(tl5);
TL_Delete(tl6);
TL_Delete(tl7);
TL_Delete(tl8);
TL_Delete(tl9);
tl1 = TL_New(dd,tt,hh-(hh-ll)*(per1/100),sdate,stime,hh-(hh-ll)*(per1/100));
tl2 = TL_New(dd,tt,hh-(hh-ll)*(per2/100),sdate,stime,hh-(hh-ll)*(per2/100));
tl3 = TL_New(dd,tt,hh-(hh-ll)*(per3/100),sdate,stime,hh-(hh-ll)*(per3/100));
tl4 = TL_New(dd,tt,ll+(hh-ll)*(per4/100),sdate,stime,ll+(hh-ll)*(per4/100));
tl5 = TL_New(dd,tt,ll+(hh-ll)*(per5/100),sdate,stime,ll+(hh-ll)*(per5/100));
tl6 = TL_New(dd,tt,ll+(hh-ll)*(per6/100),sdate,stime,ll+(hh-ll)*(per6/100));
tl7 = TL_New(dd,tt,hh-(hh-ll)*(per4/100),sdate,stime,hh-(hh-ll)*(per4/100));
tl8 = TL_New(dd,tt,hh-(hh-ll)*(per5/100),sdate,stime,hh-(hh-ll)*(per5/100));
tl9 = TL_New(dd,tt,hh-(hh-ll)*(per6/100),sdate,stime,hh-(hh-ll)*(per6/100));
}
if l < ll and ll > 0 Then
{
ll = l;
TL_Delete(tl1);
TL_Delete(tl2);
TL_Delete(tl3);
TL_Delete(tl4);
TL_Delete(tl5);
TL_Delete(tl6);
TL_Delete(tl7);
TL_Delete(tl8);
TL_Delete(tl9);
tl1 = TL_New(dd,tt,hh-(hh-ll)*(per1/100),sdate,stime,hh-(hh-ll)*(per1/100));
tl2 = TL_New(dd,tt,hh-(hh-ll)*(per2/100),sdate,stime,hh-(hh-ll)*(per2/100));
tl3 = TL_New(dd,tt,hh-(hh-ll)*(per3/100),sdate,stime,hh-(hh-ll)*(per3/100));
tl4 = TL_New(dd,tt,ll+(hh-ll)*(per4/100),sdate,stime,ll+(hh-ll)*(per4/100));
tl5 = TL_New(dd,tt,ll+(hh-ll)*(per5/100),sdate,stime,ll+(hh-ll)*(per5/100));
tl6 = TL_New(dd,tt,ll+(hh-ll)*(per6/100),sdate,stime,ll+(hh-ll)*(per6/100));
tl7 = TL_New(dd,tt,hh-(hh-ll)*(per4/100),sdate,stime,hh-(hh-ll)*(per4/100));
tl8 = TL_New(dd,tt,hh-(hh-ll)*(per5/100),sdate,stime,hh-(hh-ll)*(per5/100));
tl9 = TL_New(dd,tt,hh-(hh-ll)*(per6/100),sdate,stime,hh-(hh-ll)*(per6/100));
}
TL_SetColor(TL1,CYAN);
TL_SetSize(TL1,1);
TL_SetExtRight(TL1,true);
TL_SetColor(TL2,WHITE);
TL_SetSize(TL2,1);
TL_SetExtRight(TL2,true);
TL_SetColor(TL3,RED);
TL_SetSize(TL3,1);
TL_SetExtRight(TL3,true);
TL_SetColor(TL4,CYAN);
TL_SetSize(TL4,1);
TL_SetExtRight(TL4,true);
TL_SetColor(TL5,CYAN);
TL_SetSize(TL5,1);
TL_SetExtRight(TL5,true);
TL_SetColor(TL6,CYAN);
TL_SetSize(TL6,1);
TL_SetExtRight(TL6,true);
TL_SetColor(TL7,RED);
TL_SetSize(TL7,1);
TL_SetExtRight(TL7,true);
TL_SetColor(TL8,RED);
TL_SetSize(TL8,1);
TL_SetExtRight(TL8,true);
TL_SetColor(TL9,RED);
TL_SetSize(TL9,1);
TL_SetExtRight(TL9,true);
즐거운 하루되세요
> 장군 님이 쓴 글입니다.
> 제목 : 문의드립니다
> 1)var1 = dayhigh;
var2 = daylow;
var3 = var1-var2;
plot1(var1-var3*0.236);
plot2(var1-var3*0.500);
plot3(var1-var3*0.764);
plot4(var2+var3*1.236);
plot5(var2+var3*1.764);
plot6(var2+var3*2.000);
plot7(var1-var3*1.236);
plot8(var1-var3*1.764);
plot9(var1-var3*2.000);
2) input : per1(23.6),per2(50.0),per3(76.4);
var : hh(0),ll(0),dd(0),tt(0);
var : tl1(0),tl2(0),tl3(0);
if bdate > bdate[1] then
{
hh = h;
ll = l;
dd = sdate[1];
tt = stime[1];
TL_Delete(tl1);
TL_Delete(tl2);
TL_Delete(tl3);
tl1 = TL_New(dd,tt,hh-(hh-ll)*(per1/100),sdate,stime,hh-(hh-ll)*(per1/100));
tl2 = TL_New(dd,tt,hh-(hh-ll)*(per2/100),sdate,stime,hh-(hh-ll)*(per2/100));
tl3 = TL_New(dd,tt,hh-(hh-ll)*(per3/100),sdate,stime,hh-(hh-ll)*(per3/100));
}
if h > hh and hh > 0 Then
{
hh = h;
TL_Delete(tl1);
TL_Delete(tl2);
TL_Delete(tl3);
tl1 = TL_New(dd,tt,hh-(hh-ll)*(per1/100),sdate,stime,hh-(hh-ll)*(per1/100));
tl2 = TL_New(dd,tt,hh-(hh-ll)*(per2/100),sdate,stime,hh-(hh-ll)*(per2/100));
tl3 = TL_New(dd,tt,hh-(hh-ll)*(per3/100),sdate,stime,hh-(hh-ll)*(per3/100));
}
if l < ll and ll > 0 Then
{
ll = l;
TL_Delete(tl1);
TL_Delete(tl2);
TL_Delete(tl3);
tl1 = TL_New(dd,tt,hh-(hh-ll)*(per1/100),sdate,stime,hh-(hh-ll)*(per1/100));
tl2 = TL_New(dd,tt,hh-(hh-ll)*(per2/100),sdate,stime,hh-(hh-ll)*(per2/100));
tl3 = TL_New(dd,tt,hh-(hh-ll)*(per3/100),sdate,stime,hh-(hh-ll)*(per3/100));
}
TL_SetColor(TL1,CYAN);
TL_SetSize(TL1,1);
TL_SetExtRight(TL1,true);
TL_SetColor(TL2,WHITE);
TL_SetSize(TL2,1);
TL_SetExtRight(TL2,true);
TL_SetColor(TL3,RED);
TL_SetSize(TL3,1);
TL_SetExtRight(TL3,true);
1번 수식을 2번처럼 plot방식이 아닌2번 하단부처럼 색갈을 나오게 하고십습니다
가능하다면 부탁드립니다~~미리감사드립니다