커뮤니티
수치표시좀 부탁 드립니다.
2023-05-04 07:28:39
1278
글번호 168698
* 좋은 주말 됫십시요^^
* 아래 수식 에서 지그제그선이 나올때 수치가 나오게 수정 좀 부탁 드립니다.
마지막 선도 변하는 그대로 나오게 좀 부탁 드립니다.
<아래 수식>
input :Peodd(10),d색상두께(50),d두께c(1),긁씨크기d(10);
Var:상승색j(Red), 하락색j(LimE);
Var:JW(0),JWT(0),dTL5사각(0),dText1사각(0);
Var: h고11(0),h고12(0),h시간11(0),h시간12(0),H선TL1(0),H선TL(0),pvv(0),dTL(0),
h고21(0),h고22(0),h시간21(0),h시간22(0),hVlue11(0),hVlue12(0),
h고31(0),h고32(0),h시간31(0),h시간32(0);
Array:h고Val[20](0),L저val[20](0),h고Bar[20](0),L저Bar[20](0);
Array:Ldr[7](0),Ldfr[7](0);
var : Udbox(0),Udbox1(0);
Ldr[0] = 0;
Ldr[1] = 2;
Ldr[2] = 3.;
Ldr[3] = -1;
Ldr[4] = -2.;
Ldr[5] = 1;
Ldr[6] = 0.5;
For JW = 0 To 19
{
h고Bar[JW] = h고Bar[JW] + 1;
L저Bar[JW] = L저Bar[JW] + 1;
}
if crossup(c,highest(H,Peodd)[1]) Then
JWT = 1;
if CrossDown(c,Lowest(L,Peodd)[1]) Then
JWT = -1;
If JWT == -1 Then
{
If JWT[1] != -1 Then
{
For JW = 18 DownTo 0
{
L저val[JW+1] = L저val[JW];
L저Bar[JW+1] = L저Bar[JW];
//ZZ[j+1] = ZZ[j];
}
L저val[0] = L;
L저Bar[0] = 0;
//ZZ[0] = L;
h고11 = Date[h고Bar[0]];
h시간11 = stime[h고Bar[0]];
hVlue11 = h고Val[0];
h고12 = Date[L저Bar[0]];
h시간12 = stime[L저Bar[0]];
hVlue12 = L저val[0];
h고21 = Date[h고Bar[0]];
h시간21 = stime[h고Bar[0]];
h고22 = Date[0];
h시간22 = stime[0];
for JW = 0 to 6
{
Ldfr[JW] = L저val[1] + ((h고Val[0] - L저val[1]) * Ldr[JW]);
}
Box_SetEnd(Udbox,h고11,h시간11,hVlue11);
Udbox = box_new(h고11,h시간11,hVlue11,h고12,h시간12,hVlue12);
Box_SetColor(Udbox,하락색j);
Box_SetFill(Udbox,true,d색상두께);
dTL5사각 = TL_New(h고11,h시간11,hVlue11,h고12,h시간12,hVlue12);
TL_SetSize(dTL5사각,d두께c);
TL_SetColor(dTL5사각,Blue);
}
If L저val[0] > L Then
{
L저val[0] = L;
L저Bar[0] = 0;
//ZZ[0] = L;
h고12 = Date[L저Bar[0]];
h시간12 = stime[L저Bar[0]];
hVlue12 = L저val[0];
h고22 = Date[0];
h시간22 = stime[0];
// Box_SetEnd(Udbox,h고12,h시간12,hVlue12);
TL_SetEnd(dTL5사각,h고12,h시간12,hVlue12);
}
Box_SetEnd(Udbox,NextBarSdate,NextBarStime,hVlue12);
}
If JWT == 1 Then
{
If JWT[1] != 1 Then
{
For JW = 18 DownTo 0
{
h고Val[JW+1] = h고Val[JW];
h고Bar[JW+1] = h고Bar[JW];
//ZZ[j+1] = ZZ[j];
}
h고Val[0] = H;
h고Bar[0] = 0;
//ZZ[0] = H;
h고11 = Date[L저Bar[0]];
h시간11 = stime[L저Bar[0]];
hVlue11 = L저val[0];
h고12 = Date[h고Bar[0]];
h시간12 = stime[h고Bar[0]];
hVlue12 = h고Val[0];
h고31 = Date[L저Bar[0]];
h시간31 = stime[L저Bar[0]];
h고32 = Date[0];
h시간32 = stime[0];
for JW = 0 to 5
{
Ldfr[JW] = L저val[0] + ((h고Val[1] - L저val[0]) * Ldr[JW]);
}
Box_SetEnd(Udbox,h고11,h시간11,hVlue12);
Udbox = box_new(h고11,h시간11,hVlue11,h고12,h시간12,hVlue12);
Box_SetColor(Udbox,상승색j);
Box_SetFill(Udbox,true,d색상두께);
dTL5사각 = TL_New(h고11,h시간11,hVlue11,h고12,h시간12,hVlue12);
TL_SetSize(dTL5사각,d두께c);
TL_SetColor(dTL5사각,Red);
}
If h고Val[0] < H Then
{
h고Val[0] = H;
h고Bar[0] = 0;
//ZZ[0] = H;
h고12 = Date[h고Bar[0]];
h시간12 = stime[h고Bar[0]];
hVlue12 = h고Val[0];
h고32 = Date[0];
h시간32 = stime[0];
// Box_SetEnd(Udbox,h고12,h시간12,hVlue12);
TL_SetEnd(dTL5사각,h고12,h시간12,hVlue12);
}
Box_SetEnd(Udbox,NextBarSdate,NextBarStime,hVlue12);
}
고맙습니다. 좋은 주말 되십시요.
답변 1
예스스탁 예스스탁 답변
2023-05-04 11:59:32
안녕하세요
예스스탁입니다.
input :Peodd(10),d색상두께(50),d두께c(1),긁씨크기d(10);
Var:상승색j(Red), 하락색j(LimE);
Var:JW(0),JWT(0),dTL5사각(0),dText1사각(0);
Var: h고11(0),h고12(0),h시간11(0),h시간12(0),H선TL1(0),H선TL(0),pvv(0),dTL(0),
h고21(0),h고22(0),h시간21(0),h시간22(0),hVlue11(0),hVlue12(0),
h고31(0),h고32(0),h시간31(0),h시간32(0);
Array:h고Val[20](0),L저val[20](0),h고Bar[20](0),L저Bar[20](0);
Array:Ldr[7](0),Ldfr[7](0);
var : Udbox(0),Udbox1(0),tx(0);
Ldr[0] = 0;
Ldr[1] = 2;
Ldr[2] = 3.;
Ldr[3] = -1;
Ldr[4] = -2.;
Ldr[5] = 1;
Ldr[6] = 0.5;
For JW = 0 To 19
{
h고Bar[JW] = h고Bar[JW] + 1;
L저Bar[JW] = L저Bar[JW] + 1;
}
if crossup(c,highest(H,Peodd)[1]) Then
JWT = 1;
if CrossDown(c,Lowest(L,Peodd)[1]) Then
JWT = -1;
If JWT == -1 Then
{
If JWT[1] != -1 Then
{
For JW = 18 DownTo 0
{
L저val[JW+1] = L저val[JW];
L저Bar[JW+1] = L저Bar[JW];
//ZZ[j+1] = ZZ[j];
}
L저val[0] = L;
L저Bar[0] = 0;
//ZZ[0] = L;
h고11 = Date[h고Bar[0]];
h시간11 = stime[h고Bar[0]];
hVlue11 = h고Val[0];
h고12 = Date[L저Bar[0]];
h시간12 = stime[L저Bar[0]];
hVlue12 = L저val[0];
h고21 = Date[h고Bar[0]];
h시간21 = stime[h고Bar[0]];
h고22 = Date[0];
h시간22 = stime[0];
for JW = 0 to 6
{
Ldfr[JW] = L저val[1] + ((h고Val[0] - L저val[1]) * Ldr[JW]);
}
Box_SetEnd(Udbox,h고11,h시간11,hVlue11);
Udbox = box_new(h고11,h시간11,hVlue11,h고12,h시간12,hVlue12);
Box_SetColor(Udbox,하락색j);
Box_SetFill(Udbox,true,d색상두께);
dTL5사각 = TL_New(h고11,h시간11,hVlue11,h고12,h시간12,hVlue12);
TL_SetSize(dTL5사각,d두께c);
TL_SetColor(dTL5사각,Blue);
tx = Text_New(h고12,h시간12,hVlue12,NumToStr(hVlue12,2));
Text_SetStyle(tx,2,0);
}
If L저val[0] > L Then
{
L저val[0] = L;
L저Bar[0] = 0;
//ZZ[0] = L;
h고12 = Date[L저Bar[0]];
h시간12 = stime[L저Bar[0]];
hVlue12 = L저val[0];
h고22 = Date[0];
h시간22 = stime[0];
// Box_SetEnd(Udbox,h고12,h시간12,hVlue12);
TL_SetEnd(dTL5사각,h고12,h시간12,hVlue12);
Text_SetString(tx,NumToStr(hVlue12,2));
Text_SetLocation(tx,h고12,h시간12,hVlue12);
}
Box_SetEnd(Udbox,NextBarSdate,NextBarStime,hVlue12);
}
If JWT == 1 Then
{
If JWT[1] != 1 Then
{
For JW = 18 DownTo 0
{
h고Val[JW+1] = h고Val[JW];
h고Bar[JW+1] = h고Bar[JW];
//ZZ[j+1] = ZZ[j];
}
h고Val[0] = H;
h고Bar[0] = 0;
//ZZ[0] = H;
h고11 = Date[L저Bar[0]];
h시간11 = stime[L저Bar[0]];
hVlue11 = L저val[0];
h고12 = Date[h고Bar[0]];
h시간12 = stime[h고Bar[0]];
hVlue12 = h고Val[0];
h고31 = Date[L저Bar[0]];
h시간31 = stime[L저Bar[0]];
h고32 = Date[0];
h시간32 = stime[0];
for JW = 0 to 5
{
Ldfr[JW] = L저val[0] + ((h고Val[1] - L저val[0]) * Ldr[JW]);
}
Box_SetEnd(Udbox,h고11,h시간11,hVlue12);
Udbox = box_new(h고11,h시간11,hVlue11,h고12,h시간12,hVlue12);
Box_SetColor(Udbox,상승색j);
Box_SetFill(Udbox,true,d색상두께);
dTL5사각 = TL_New(h고11,h시간11,hVlue11,h고12,h시간12,hVlue12);
TL_SetSize(dTL5사각,d두께c);
TL_SetColor(dTL5사각,Red);
tx = Text_New(h고12,h시간12,hVlue12,NumToStr(hVlue12,2));
Text_SetStyle(tx,2,1);
}
If h고Val[0] < H Then
{
h고Val[0] = H;
h고Bar[0] = 0;
//ZZ[0] = H;
h고12 = Date[h고Bar[0]];
h시간12 = stime[h고Bar[0]];
hVlue12 = h고Val[0];
h고32 = Date[0];
h시간32 = stime[0];
// Box_SetEnd(Udbox,h고12,h시간12,hVlue12);
TL_SetEnd(dTL5사각,h고12,h시간12,hVlue12);
Text_SetString(tx,NumToStr(hVlue12,2));
Text_SetLocation(tx,h고12,h시간12,hVlue12);
}
Box_SetEnd(Udbox,NextBarSdate,NextBarStime,hVlue12);
}
즐거운 하루되세요
> 요타 님이 쓴 글입니다.
> 제목 : 수치표시좀 부탁 드립니다.
> * 좋은 주말 됫십시요^^
* 아래 수식 에서 지그제그선이 나올때 수치가 나오게 수정 좀 부탁 드립니다.
마지막 선도 변하는 그대로 나오게 좀 부탁 드립니다.
<아래 수식>
input :Peodd(10),d색상두께(50),d두께c(1),긁씨크기d(10);
Var:상승색j(Red), 하락색j(LimE);
Var:JW(0),JWT(0),dTL5사각(0),dText1사각(0);
Var: h고11(0),h고12(0),h시간11(0),h시간12(0),H선TL1(0),H선TL(0),pvv(0),dTL(0),
h고21(0),h고22(0),h시간21(0),h시간22(0),hVlue11(0),hVlue12(0),
h고31(0),h고32(0),h시간31(0),h시간32(0);
Array:h고Val[20](0),L저val[20](0),h고Bar[20](0),L저Bar[20](0);
Array:Ldr[7](0),Ldfr[7](0);
var : Udbox(0),Udbox1(0);
Ldr[0] = 0;
Ldr[1] = 2;
Ldr[2] = 3.;
Ldr[3] = -1;
Ldr[4] = -2.;
Ldr[5] = 1;
Ldr[6] = 0.5;
For JW = 0 To 19
{
h고Bar[JW] = h고Bar[JW] + 1;
L저Bar[JW] = L저Bar[JW] + 1;
}
if crossup(c,highest(H,Peodd)[1]) Then
JWT = 1;
if CrossDown(c,Lowest(L,Peodd)[1]) Then
JWT = -1;
If JWT == -1 Then
{
If JWT[1] != -1 Then
{
For JW = 18 DownTo 0
{
L저val[JW+1] = L저val[JW];
L저Bar[JW+1] = L저Bar[JW];
//ZZ[j+1] = ZZ[j];
}
L저val[0] = L;
L저Bar[0] = 0;
//ZZ[0] = L;
h고11 = Date[h고Bar[0]];
h시간11 = stime[h고Bar[0]];
hVlue11 = h고Val[0];
h고12 = Date[L저Bar[0]];
h시간12 = stime[L저Bar[0]];
hVlue12 = L저val[0];
h고21 = Date[h고Bar[0]];
h시간21 = stime[h고Bar[0]];
h고22 = Date[0];
h시간22 = stime[0];
for JW = 0 to 6
{
Ldfr[JW] = L저val[1] + ((h고Val[0] - L저val[1]) * Ldr[JW]);
}
Box_SetEnd(Udbox,h고11,h시간11,hVlue11);
Udbox = box_new(h고11,h시간11,hVlue11,h고12,h시간12,hVlue12);
Box_SetColor(Udbox,하락색j);
Box_SetFill(Udbox,true,d색상두께);
dTL5사각 = TL_New(h고11,h시간11,hVlue11,h고12,h시간12,hVlue12);
TL_SetSize(dTL5사각,d두께c);
TL_SetColor(dTL5사각,Blue);
}
If L저val[0] > L Then
{
L저val[0] = L;
L저Bar[0] = 0;
//ZZ[0] = L;
h고12 = Date[L저Bar[0]];
h시간12 = stime[L저Bar[0]];
hVlue12 = L저val[0];
h고22 = Date[0];
h시간22 = stime[0];
// Box_SetEnd(Udbox,h고12,h시간12,hVlue12);
TL_SetEnd(dTL5사각,h고12,h시간12,hVlue12);
}
Box_SetEnd(Udbox,NextBarSdate,NextBarStime,hVlue12);
}
If JWT == 1 Then
{
If JWT[1] != 1 Then
{
For JW = 18 DownTo 0
{
h고Val[JW+1] = h고Val[JW];
h고Bar[JW+1] = h고Bar[JW];
//ZZ[j+1] = ZZ[j];
}
h고Val[0] = H;
h고Bar[0] = 0;
//ZZ[0] = H;
h고11 = Date[L저Bar[0]];
h시간11 = stime[L저Bar[0]];
hVlue11 = L저val[0];
h고12 = Date[h고Bar[0]];
h시간12 = stime[h고Bar[0]];
hVlue12 = h고Val[0];
h고31 = Date[L저Bar[0]];
h시간31 = stime[L저Bar[0]];
h고32 = Date[0];
h시간32 = stime[0];
for JW = 0 to 5
{
Ldfr[JW] = L저val[0] + ((h고Val[1] - L저val[0]) * Ldr[JW]);
}
Box_SetEnd(Udbox,h고11,h시간11,hVlue12);
Udbox = box_new(h고11,h시간11,hVlue11,h고12,h시간12,hVlue12);
Box_SetColor(Udbox,상승색j);
Box_SetFill(Udbox,true,d색상두께);
dTL5사각 = TL_New(h고11,h시간11,hVlue11,h고12,h시간12,hVlue12);
TL_SetSize(dTL5사각,d두께c);
TL_SetColor(dTL5사각,Red);
}
If h고Val[0] < H Then
{
h고Val[0] = H;
h고Bar[0] = 0;
//ZZ[0] = H;
h고12 = Date[h고Bar[0]];
h시간12 = stime[h고Bar[0]];
hVlue12 = h고Val[0];
h고32 = Date[0];
h시간32 = stime[0];
// Box_SetEnd(Udbox,h고12,h시간12,hVlue12);
TL_SetEnd(dTL5사각,h고12,h시간12,hVlue12);
}
Box_SetEnd(Udbox,NextBarSdate,NextBarStime,hVlue12);
}
고맙습니다. 좋은 주말 되십시요.
다음글
이전글