답변완료
수식수정부탁드립니다.
#,안녕하세요 관리자님,새해 복 많이 받으십시요
지난 한해동안 많은 도움주신것 진심으로 감사드립니다.
금년에도 잘 부탁드리면서 도움부탁드립니다.
아래수식은 상하 파동완성시에 텍스트 출력되는 식입니다,이때 텍스트출력값이 1틱(+-)오차범위내에서 상호직선으로 텍스트값을 연결하는(그림파일참조)식인데요,문제는 텍스트출력과 동시에 동일호가 직선이 출력되지않고, 다음파동완성시 직선이출력됩니다, 그림에서 설명하자면 1번출력직선이 2번텍스트가 출력되어야 1번직선이 출력됩니다,역시 3번출력직선도 4번텍스트가 출력된후에야 3번직선이 출력됩니다,이 식을 1번텍스트가 출력됨과 동시에 1번직선도(조건만족시) 같이 출력되고 2번텍스트출력과 함께2번직선(조건만족시)도 같이 출력되고 3번도 텍스트출력과 함께 3번직선(조건만족시)도 같이 출력되는식으로 수정하면 좋겠습니다. 즉 한파동 뒤늦게 동일호가선이 출력되는것을 현재파동 완성시 텍스트출력과 동시에 동일호가 조건만족시 직선라인도 출력되는것을 원합니다. 도움부탁드립니다.
input : af(0.02), maxAF(0.2);
input : 텍스트출력(1),굵기(0);
var : T(0),cnt(0),count(0);
var : HH1(0),LL1(0),HD1(0),HT1(0),LD1(0),LT1(0),day1(0),day2(0),day3(0),day0(0);
var : TL1(0),TL2(0),tx1(0),tx2(0),tx11(0),tx22(0);
Array : HD[20](0),HT[20](0),HH[20](0),LD[20](0),LT[20](0),LL[20](0);
var1 = CSar(af,maxAF);
if bdate != bdate[1] Then
{
day0 = sdate;
day1 = day0[1];
}
if crossup(c,var1) Then
{
T = 1;
HH[0] = H;
HD[0] = sdate;
HT[0] = stime;
for cnt = 1 to 19
{
HD[cnt] = HD[cnt-1][1];
HT[cnt] = HT[cnt-1][1];
HH[cnt] = HH[cnt-1][1];
}
if LL[0] > 0 Then
{
if 텍스트출력 == 1 then
{
Tx11 = Text_New(HD[1],HT[1],HH[1],NumToStr((HH[1]-LL[1])/PriceScale,0)+NewLine+NumToStr(HH[1],2));
Text_SetStyle(tx11,2,1);
Text_SetColor(tx11,BLACK);
Text_Delete(tx1);
Tx1 = Text_New(HD[0],HT[0],HH[0],NumToStr((HH[0]-LL[0])/PriceScale,0)+NewLine+NumToStr(HH[0],2));
Text_SetStyle(tx1,2,1);
Text_SetColor(tx1,BLACK);
Condition1 = false;
for cnt = 1 to 19
{
if Condition1 == false and abs(LL[0]-LL[cnt]) <= PriceScale*3 and LD[cnt] >= day3 Then
{
Condition1 = true;
TL1 = TL_New(LD[cnt],LT[cnt],LL[cnt],LD[0],LT[0],LL[0]);
TL_SetColor(tl1,MAGENTA);
TL_SetSize(tl1,굵기);
PlaySound("C:예스트레이더dataSound1point.wav");
}
}
}
}
}
if CrossDown(c,var1) Then
{
T = -1;
LL[0] = L;
LD[0] = sdate;
LT[0] = stime;
for cnt = 1 to 19
{
LD[cnt] = LD[cnt-1][1];
LT[cnt] = LT[cnt-1][1];
LL[cnt] = LL[cnt-1][1];
}
if HH[0] > 0 Then
{
if 텍스트출력 == 1 then
{
Tx22 = Text_New(LD[1],LT[1],LL[1],NumToStr((HH[1]-LL[1])/PriceScale,0)+NewLine+NumToStr(LL[1],2));
Text_SetStyle(tx22,2,0);
Text_SetColor(tx22,RED);
Text_Delete(tx2);
Tx2 = Text_New(LD[0],LT[0],LL[0],NumToStr((HH[0]-LL[0])/PriceScale,0)+NewLine+NumToStr(LL[0],2));
Text_SetStyle(tx2,2,0);
Text_SetColor(tx2,MAGENTA);
Condition2 = false;
for cnt = 1 to 19
{
if Condition2 == false and abs(HH[0]-HH[cnt]) <= PriceScale*3 and HD[cnt] >= day3 Then
{
Condition2 = true;
TL2 = TL_New(HD[cnt],HT[cnt],HH[cnt],HD[0],HT[0],HH[0]);
TL_SetColor(tl2,BLUE);
TL_SetSize(tl2,굵기);
PlaySound("C:예스트레이더dataSound1point.wav");
}
}
}
}
}
if T == 1 then
{
if H > HH[0] Then
{
HH[0] = H;
HD[0] = sdate;
HT[0] = stime;
if 텍스트출력 == 1 then
{
Text_Delete(tx1);
Tx1 = Text_New(HD[0],HT[0],HH[0],NumToStr((HH[0]-LL[0])/PriceScale,0)+NewLine+NumToStr(HH[0],2));
Text_SetStyle(tx1,2,1);
Text_SetColor(tx1,BLACK);
}
}
}
if T == -1 then
{
if L < LL[0] Then
{
LL[0] = L;
LD[0] = sdate;
LT[0] = stime;
if 텍스트출력 == 1 then
{
Text_Delete(tx2);
Tx2 = Text_New(LD[0],LT[0],LL[0],NumToStr((HH[0]-LL[0])/PriceScale,0)+NewLine+NumToStr(LL[0],2));
Text_SetStyle(tx2,2,0);
Text_SetColor(tx2,RED);
}
}
}
언제나 늘 고맙습니다.
2020-01-02
318
글번호 134796
지표