안녕하세요 예스스탁입니다. 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]; #day2 = day1[1]; #day3 = day2[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; } 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; } if T == 1 then { if H > HH[0] Then { if Condition1 == true Then TL_Delete(TL1); 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); } } value1 = 0; for cnt = 1 to 19 { if value1 == 0 and abs(HH[0]-HH[cnt]) <= PriceScale*3 and HD[cnt] >= day3 Then { value1 = cnt; } } if value1 > 0 then { if Condition1 == true Then TL_Delete(TL1); TL1 = TL_New(HD[value1],HT[value1],HH[value1],HD[0],HT[0],HH[0]); TL_SetColor(tl1,BLUE); TL_SetSize(tl1,굵기); PlaySound("C:예스트레이더dataSound1point.wav"); Condition1 = true; } } if T == -1 then { if L < LL[0] Then { if Condition2 == true Then TL_Delete(TL2); 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); } } value2 = 0; for cnt = 1 to 19 { if value2 == 0 and abs(LL[0]-LL[cnt]) <= PriceScale*3 and LD[cnt] >= day3 Then { value2 = cnt; } } if value2 > 0 then { if Condition2 == true Then TL_Delete(TL2); TL2 = TL_New(LD[value2],LT[value2],LL[value2],LD[0],LT[0],LL[0]); TL_SetColor(tl2,MAGENTA); TL_SetSize(tl2,굵기); PlaySound("C:예스트레이더dataSound1point.wav"); Condition2 = true; } } 즐거운 하루 되세요 > 골든키 님이 쓴 글입니다. > 제목 : 수식수정부탁드립니다. > #,안녕하세요 관리자님,새해 복 많이 받으십시요 지난 한해동안 많은 도움주신것 진심으로 감사드립니다. 금년에도 잘 부탁드리면서 도움부탁드립니다. 아래수식은 상하 파동완성시에 텍스트 출력되는 식입니다,이때 텍스트출력값이 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); } } } 언제나 늘 고맙습니다.

> 골든키 님이 쓴 글입니다. > 제목 : 수식수정부탁드립니다. > #,안녕하세요 관리자님,새해 복 많이 받으십시요 지난 한해동안 많은 도움주신것 진심으로 감사드립니다. 금년에도 잘 부탁드리면서 도움부탁드립니다. 아래수식은 상하 파동완성시에 텍스트 출력되는 식입니다,이때 텍스트출력값이 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); } } } 언제나 늘 고맙습니다. ------------------------------------------------------------------------------

> 예스스탁 님이 쓴 글입니다. > 제목 : Re : 수식수정부탁드립니다. > 안녕하세요 예스스탁입니다. 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]; #day2 = day1[1]; #day3 = day2[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; } 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; } if T == 1 then { if H > HH[0] Then { if Condition1 == true Then TL_Delete(TL1); 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); } } value1 = 0; for cnt = 1 to 19 { if value1 == 0 and abs(HH[0]-HH[cnt]) <= PriceScale*3 and HD[cnt] >= day3 Then { value1 = cnt; } } if value1 > 0 then { if Condition1 == true Then TL_Delete(TL1); TL1 = TL_New(HD[value1],HT[value1],HH[value1],HD[0],HT[0],HH[0]); TL_SetColor(tl1,BLUE); TL_SetSize(tl1,굵기); PlaySound("C:예스트레이더dataSound1point.wav"); Condition1 = true; } } if T == -1 then { if L < LL[0] Then { if Condition2 == true Then TL_Delete(TL2); 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); } } value2 = 0; for cnt = 1 to 19 { if value2 == 0 and abs(LL[0]-LL[cnt]) <= PriceScale*3 and LD[cnt] >= day3 Then { value2 = cnt; } } if value2 > 0 then { if Condition2 == true Then TL_Delete(TL2); TL2 = TL_New(LD[value2],LT[value2],LL[value2],LD[0],LT[0],LL[0]); TL_SetColor(tl2,MAGENTA); TL_SetSize(tl2,굵기); PlaySound("C:예스트레이더dataSound1point.wav"); Condition2 = true; } } 즐거운 하루 되세요 > 골든키 님이 쓴 글입니다. > 제목 : 수식수정부탁드립니다. > #,안녕하세요 관리자님,새해 복 많이 받으십시요 지난 한해동안 많은 도움주신것 진심으로 감사드립니다. 금년에도 잘 부탁드리면서 도움부탁드립니다. 아래수식은 상하 파동완성시에 텍스트 출력되는 식입니다,이때 텍스트출력값이 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); } } } 언제나 늘 고맙습니다. --------------------------------------------------------------------------------------- 수식수정 진심으로 고맙고 감사드립니다 한가지 추가로 경보음이 동일가 라인 출력후 다음캔들까지만 울리게 수정하면 고맙겠습니다.