안녕하세요 예스스탁입니다. 1 tx3 = Text_New(sDate,sTime,Value3," "+NumToStr(Value3,2)); tx3~tx10 텍스트 출력에 위와 같이 공란을 2개 추가해 드립니다. 해당 부분은 사용자분이 공란을 더 추가해서 봉을 가리지 않게 조절해 보셔야 합니다. 2 해당 부분은 수식적으로는 방법이 없습니다. 현재 수식에서 상승과 하락은 파라볼릭 돌파/이탈 기준입니다. 파라볼릭의 가속변수와 최대가속치를 변경해 보셔야 합니다. 파라볼릭 돌파나 이탈후 최고가나 촤저가 발생하면 추세선은 그려지게 되어 있습니다. 다만 추세선이나 텍스트는 봉완성시에만 동작하게 되어 있어 봉미완성시에 최고가나 최저가를 갱신해도 그리지는 못합니다. 봉완성시에만 그려집니다. 3 input : af(0.02), maxAF(0.2),추세선두께(4),추세선색1(RED),추세선색2(BLUE),연장선두께(1),연장선색(blue); input : per1(0),Per2(23.2),Per3(38.2),Per4(50),Per5(61.8),Per6(76.4),Per7(100),Per8(150.0); input : 텍스트출력(1); var : T(0),HH(0),LL(0),HD(0),HT(0),LD(0),LT(0),HI(0),HI1(0),LI(0),LI1(0); var : HH1(0),LL1(0),HD1(0),HT1(0),LD1(0),LT1(0); var : TL1(0),TL2(0),cnt(0),count(0); var : TL3(0),TL4(0),TL5(0),TL6(0),TL7(0),TL8(0),TL9(0),TL10(0),tx1(0),tx2(0),tx11(0),tx22(0); var : tx3(0),tx4(0),tx5(0),tx6(0),tx7(0),tx8(0),tx9(0),tx10(0); var1 = CSar(af,maxAF); if crossup(c,var1) Then { T = 1; HH = H; HD = sdate; HT = stime; HI = Index; HH1 = HH[1]; HD1 = HD[1]; HT1 = HT[1]; HI1 = HI[1]; if LL > 0 Then { TL1 = TL_new(LD[1],LT[1],LL[1],HD,HT,HH); TL_Delete(TL3); TL_Delete(TL4); TL_Delete(TL5); TL_Delete(TL6); TL_Delete(TL7); TL_Delete(TL8); TL_Delete(TL9); TL_Delete(TL10); #상승연장피봇테이트표현 Value3 = LL+(HH[1]-LL)*(Per1/100); Value4 = LL+(HH[1]-LL)*(Per2/100); Value5 = LL+(HH[1]-LL)*(Per3/100); Value6 = LL+(HH[1]-LL)*(Per4/100); Value7 = LL+(HH[1]-LL)*(Per5/100); Value8 = LL+(HH[1]-LL)*(Per6/100); Value9 = LL+(HH[1]-LL)*(Per7/100); Value10 = LL+(HH[1]-LL)*(Per8/100); TL3 = TL_new(HD[1],HT[1],Value3,sdate,stime,value3); TL4 = TL_new(HD[1],HT[1],Value4,sdate,stime,Value4); TL5 = TL_new(HD[1],HT[1],Value5,sdate,stime,Value5); TL6 = TL_new(HD[1],HT[1],Value6,sdate,stime,value6); TL7= TL_new(HD[1],HT[1],Value7,sdate,stime,Value7); TL8 = TL_new(HD[1],HT[1],Value8,sdate,stime,Value8); TL9 = TL_new(HD[1],HT[1],Value9,sdate,stime,Value9); TL10 = TL_new(HD[1],HT[1],Value10,sdate,stime,Value10); //추세선 오른쪽 연장설정 TL_SetExtRight(TL3,true); TL_SetExtRight(TL4,true); TL_SetExtRight(TL5,true); TL_SetExtRight(TL6,true); TL_SetExtRight(TL7,true); TL_SetExtRight(TL8,true); TL_SetExtRight(TL9,true); TL_SetExtRight(TL10,true); Text_Delete(tx3); Text_Delete(tx4); Text_Delete(tx5); Text_Delete(tx6); Text_Delete(tx7); Text_Delete(tx8); Text_Delete(tx9); Text_Delete(tx10); tx3 = Text_New(sDate,sTime,Value3," "+NumToStr(Value3,2)); tx4 = Text_New(sDate,sTime,Value4," "+NumToStr(Value4,2)); tx5 = Text_New(sDate,sTime,Value5," "+NumToStr(Value5,2)); tx6 = Text_New(sDate,sTime,Value6," "+NumToStr(Value6,2)); tx7 = Text_New(sDate,sTime,Value7," "+NumToStr(Value7,2)); tx8 = Text_New(sDate,sTime,Value8," "+NumToStr(Value8,2)); tx9 = Text_New(sDate,sTime,Value9," "+NumToStr(Value9,2)); tx10 = Text_New(sDate,sTime,Value10," "+NumToStr(Value10,2)); Text_SetStyle(tX3,0,1); Text_SetStyle(tX4,0,1); Text_SetStyle(tX5,0,1); Text_SetStyle(tX6,0,1); Text_SetStyle(tX7,0,1); Text_SetStyle(tX8,0,1); Text_SetStyle(tX9,0,1); Text_SetStyle(tX10,0,1); if 텍스트출력 == 1 then { Tx11 = Text_New(HD1,HT1,HH1,"상:"+NumToStr((HH1-LL1)/PriceScale,0)+NewLine+NumToStr(HH1,2)+" / "+NumToStr(HI1-LI1,0)); Text_SetStyle(tx11,2,1); Text_SetSize(tx11,12); Text_Delete(tx1); Tx1 = Text_New(HD,HT,HH,"상단:"+NumToStr((HH-LL[1])/PriceScale,0)+NewLine+NumToStr(HH,2)+" / "+NumToStr(HI-LI[1],0)); Text_SetStyle(tx1,12,1); Text_SetSize(tx1,12); } } } if CrossDown(c,var1) Then { T = -1; LL = L; LD = sdate; LT = stime; LI = Index; LL1 = LL[1]; LD1 = LD[1]; LT1 = LT[1]; LI1 = Li[1]; if HH > 0 Then { TL2 = TL_new(HD[1],HT[1],HH[1],LD,LT,LL); TL_Delete(TL3); TL_Delete(TL4); TL_Delete(TL5); TL_Delete(TL6); TL_Delete(TL7); TL_Delete(TL8); TL_Delete(TL9); TL_Delete(TL10); Value3 = HH-(HH-LL[1])*(Per1/100); Value4 = HH-(HH-LL[1])*(Per2/100); Value5 = HH-(HH-LL[1])*(Per3/100); Value6 = HH-(HH-LL[1])*(Per4/100); Value7 = HH-(HH-LL[1])*(Per5/100); Value8 = HH-(HH-LL[1])*(Per6/100); Value9 = HH-(HH-LL[1])*(Per7/100); Value10 = HH-(HH-LL[1])*(Per8/100); TL3 = TL_new(LD[1],LT[1],value3,sdate,stime,value3); TL4 = TL_new(LD[1],LT[1],Value4,sdate,stime,Value4); TL5 = TL_new(LD[1],LT[1],Value5,sdate,stime,Value5); TL6 = TL_new(LD[1],LT[1],Value6,sdate,stime,Value6); TL7 = TL_new(LD[1],LT[1],Value7,sdate,stime,value7); TL8 = TL_new(LD[1],LT[1],Value8,sdate,stime,Value8); TL9 = TL_new(LD[1],LT[1],Value9,sdate,stime,Value9); TL10 = TL_new(LD[1],LT[1],Value10,sdate,stime,Value10); //추세선 오른쪽 연장설정 TL_SetExtRight(TL3,true); TL_SetExtRight(TL4,true); TL_SetExtRight(TL5,true); TL_SetExtRight(TL6,true); TL_SetExtRight(TL7,true); TL_SetExtRight(TL8,true); TL_SetExtRight(TL9,true); TL_SetExtRight(TL10,true); Text_Delete(tx3); Text_Delete(tx4); Text_Delete(tx5); Text_Delete(tx6); Text_Delete(tx7); Text_Delete(tx8); Text_Delete(tx9); Text_Delete(tx10); tx3 = Text_New(sDate,sTime,Value3," "+NumToStr(Value3,2)); tx4 = Text_New(sDate,sTime,Value4," "+NumToStr(Value4,2)); tx5 = Text_New(sDate,sTime,Value5," "+NumToStr(Value5,2)); tx6 = Text_New(sDate,sTime,Value6," "+NumToStr(Value6,2)); tx7 = Text_New(sDate,sTime,Value7," "+NumToStr(Value7,2)); tx8 = Text_New(sDate,sTime,Value8," "+NumToStr(Value8,2)); tx9 = Text_New(sDate,sTime,Value9," "+NumToStr(Value9,2)); tx10 = Text_New(sDate,sTime,Value10," "+NumToStr(Value10,2)); Text_SetStyle(tX3,0,1); Text_SetStyle(tX4,0,1); Text_SetStyle(tX5,0,1); Text_SetStyle(tX6,0,1); Text_SetStyle(tX7,0,1); Text_SetStyle(tX8,0,1); Text_SetStyle(tX9,0,1); Text_SetStyle(tX10,0,1); if 텍스트출력 == 1 then { Tx22 = Text_New(LD1,LT1,LL1,"하:"+NumToStr((HH1-LL1)/PriceScale,0)+NewLine+NumToStr(LL1,2)+" / "+NumToStr(LI1-HI1,0)); Text_SetStyle(tx22,2,0); Text_SetSize(tx22,12); Text_Delete(tx2); Tx2 = Text_New(LD,LT,LL,"가:"+NumToStr((HH[1]-LL)/PriceScale,0)+NewLine+NumToStr(LL,2)+" / "+NumToStr(LI-HI[1],0)); Text_SetStyle(tx2,2,1); Text_SetSize(tx2,12); } } } if T == 1 then { if H > HH Then { HH = H; HD = sdate; HT = stime; HI = Index; TL_SetEnd(TL1,HD,HT,HH); if 텍스트출력 == 1 then { Text_Delete(tx1); Tx1 = Text_New(HD,HT,HH,"A:"+NumToStr((HH-LL[1])/PriceScale,0)+NewLine+NumToStr(HH,2)+" / "+NumToStr(HI-LI[1],0)); Text_SetStyle(tx1,2,1); Text_SetSize(tx1,11); } } } if T == -1 then { if L < LL Then { LL = L; LD = sdate; LT = stime; LI = Index; TL_SetEnd(TL2,LD,LT,LL); if 텍스트출력 == 1 then { Text_Delete(tx2); Tx2 = Text_New(LD,LT,LL,"B:"+NumToStr((HH[1]-LL)/PriceScale,0)+NewLine+NumToStr(LL,2)+" / "+NumToStr(LI-HI[1],0)); Text_SetStyle(tx2,2,0); Text_SetSize(tx2,11); } } } #추세선 두께 TL_SetSize(TL1,추세선두께); TL_SetSize(TL2,추세선두께); #추세선 색상 TL_SetColor(TL1,추세선색1); TL_SetColor(TL2,추세선색2); #연장선 두께 TL_SetSize(TL3,연장선두께); TL_SetSize(TL4,연장선두께); TL_SetSize(TL5,연장선두께); TL_SetSize(TL6,연장선두께); TL_SetSize(TL7,연장선두께); TL_SetSize(TL8,연장선두께); TL_SetSize(TL9,연장선두께); TL_SetSize(TL10,연장선두께); #연장선 색상 TL_SetColor(TL3,BLACk); TL_SetColor(TL4,GREEN); TL_SetColor(TL5,연장선색); TL_SetColor(TL6,YELLOw); TL_SetColor(TL7,GREEn); TL_SetColor(TL8,연장선색); TL_SetColor(TL9,WHITe); TL_SetColor(TL10,REd); Text_SetLocation(tx3,NextBarSdate,NextBarStime,Value3); Text_SetLocation(tx4,NextBarSdate,NextBarStime,Value4); Text_SetLocation(tx5,NextBarSdate,NextBarStime,Value5); Text_SetLocation(tx6,NextBarSdate,NextBarStime,Value6); Text_SetLocation(tx7,NextBarSdate,NextBarStime,Value7); Text_SetLocation(tx8,NextBarSdate,NextBarStime,Value8); Text_SetLocation(tx9,NextBarSdate,NextBarStime,Value9); Text_SetLocation(tx10,NextBarSdate,NextBarStime,Value10); 즐거운 하루되세요 > 라몬 님이 쓴 글입니다. > 제목 : 지표 수정 부탁드립니다. > 늘 수고가 많으십니다. 아래의 지표를 잘 사용하고 있습니다. 1. 추세선이 연장되어 텍스트 표시가 되는데 캔들이 생성될때 거의 붙어있게 나와서 이 텍스트를 캔들하고 좀 떨어져 표시되게 하고 싶습니다. 2. 상승추세선 및 하락 추세선의 변화는 일정한 요건이 되어야 하는데 이 변화를 좀더 빠르게 생성되게 하는 방법도 있는지요? 이상입니다. input : af(0.02), maxAF(0.2),추세선두께(4),추세선색1(RED),추세선색2(BLUE),연장선두께(1),연장선색(blue); input : per1(0),Per2(23.2),Per3(38.2),Per4(50),Per5(61.8),Per6(76.4),Per7(100),Per8(150.0); input : 텍스트출력(1); var : T(0),HH(0),LL(0),HD(0),HT(0),LD(0),LT(0),HI(0),HI1(0),LI(0),LI1(0); var : HH1(0),LL1(0),HD1(0),HT1(0),LD1(0),LT1(0); var : TL1(0),TL2(0),cnt(0),count(0); var : TL3(0),TL4(0),TL5(0),TL6(0),TL7(0),TL8(0),TL9(0),TL10(0),tx1(0),tx2(0),tx11(0),tx22(0); var : tx3(0),tx4(0),tx5(0),tx6(0),tx7(0),tx8(0),tx9(0),tx10(0); var1 = CSar(af,maxAF); if crossup(c,var1) Then { T = 1; HH = H; HD = sdate; HT = stime; HI = Index; HH1 = HH[1]; HD1 = HD[1]; HT1 = HT[1]; HI1 = HI[1]; if LL > 0 Then { TL1 = TL_new(LD[1],LT[1],LL[1],HD,HT,HH); TL_Delete(TL3); TL_Delete(TL4); TL_Delete(TL5); TL_Delete(TL6); TL_Delete(TL7); TL_Delete(TL8); TL_Delete(TL9); TL_Delete(TL10); #상승연장피봇테이트표현 Value3 = LL+(HH[1]-LL)*(Per1/100); Value4 = LL+(HH[1]-LL)*(Per2/100); Value5 = LL+(HH[1]-LL)*(Per3/100); Value6 = LL+(HH[1]-LL)*(Per4/100); Value7 = LL+(HH[1]-LL)*(Per5/100); Value8 = LL+(HH[1]-LL)*(Per6/100); Value9 = LL+(HH[1]-LL)*(Per7/100); Value10 = LL+(HH[1]-LL)*(Per8/100); TL3 = TL_new(HD[1],HT[1],Value3,sdate,stime,value3); TL4 = TL_new(HD[1],HT[1],Value4,sdate,stime,Value4); TL5 = TL_new(HD[1],HT[1],Value5,sdate,stime,Value5); TL6 = TL_new(HD[1],HT[1],Value6,sdate,stime,value6); TL7= TL_new(HD[1],HT[1],Value7,sdate,stime,Value7); TL8 = TL_new(HD[1],HT[1],Value8,sdate,stime,Value8); TL9 = TL_new(HD[1],HT[1],Value9,sdate,stime,Value9); TL10 = TL_new(HD[1],HT[1],Value10,sdate,stime,Value10); //추세선 오른쪽 연장설정 TL_SetExtRight(TL3,true); TL_SetExtRight(TL4,true); TL_SetExtRight(TL5,true); TL_SetExtRight(TL6,true); TL_SetExtRight(TL7,true); TL_SetExtRight(TL8,true); TL_SetExtRight(TL9,true); TL_SetExtRight(TL10,true); Text_Delete(tx3); Text_Delete(tx4); Text_Delete(tx5); Text_Delete(tx6); Text_Delete(tx7); Text_Delete(tx8); Text_Delete(tx9); Text_Delete(tx10); tx3 = Text_New(sDate,sTime,Value3,NumToStr(Value3,2)); tx4 = Text_New(sDate,sTime,Value4,NumToStr(Value4,2)); tx5 = Text_New(sDate,sTime,Value5,NumToStr(Value5,2)); tx6 = Text_New(sDate,sTime,Value6,NumToStr(Value6,2)); tx7 = Text_New(sDate,sTime,Value7,NumToStr(Value7,2)); tx8 = Text_New(sDate,sTime,Value8,NumToStr(Value8,2)); tx9 = Text_New(sDate,sTime,Value9,NumToStr(Value9,2)); tx10 = Text_New(sDate,sTime,Value10,NumToStr(Value10,2)); Text_SetStyle(tX3,0,1); Text_SetStyle(tX4,0,1); Text_SetStyle(tX5,0,1); Text_SetStyle(tX6,0,1); Text_SetStyle(tX7,0,1); Text_SetStyle(tX8,0,1); Text_SetStyle(tX9,0,1); Text_SetStyle(tX10,0,1); if 텍스트출력 == 1 then { Tx11 = Text_New(HD1,HT1,HH1,"상:"+NumToStr((HH1-LL1)/PriceScale,0)+NewLine+NumToStr(HH1,2)+" / "+NumToStr(HI1-LI1,0)); Text_SetStyle(tx11,2,1); Text_SetSize(tx11,12); Text_Delete(tx1); Tx1 = Text_New(HD,HT,HH,"상단:"+NumToStr((HH-LL[1])/PriceScale,0)+NewLine+NumToStr(HH,2)+" / "+NumToStr(HI-LI[1],0)); Text_SetStyle(tx1,12,1); Text_SetSize(tx1,12); } } } if CrossDown(c,var1) Then { T = -1; LL = L; LD = sdate; LT = stime; LI = Index; LL1 = LL[1]; LD1 = LD[1]; LT1 = LT[1]; LI1 = Li[1]; if HH > 0 Then { TL2 = TL_new(HD[1],HT[1],HH[1],LD,LT,LL); TL_Delete(TL3); TL_Delete(TL4); TL_Delete(TL5); TL_Delete(TL6); TL_Delete(TL7); TL_Delete(TL8); TL_Delete(TL9); TL_Delete(TL10); Value3 = HH-(HH-LL[1])*(Per1/100); Value4 = HH-(HH-LL[1])*(Per2/100); Value5 = HH-(HH-LL[1])*(Per3/100); Value6 = HH-(HH-LL[1])*(Per4/100); Value7 = HH-(HH-LL[1])*(Per5/100); Value8 = HH-(HH-LL[1])*(Per6/100); Value9 = HH-(HH-LL[1])*(Per7/100); Value10 = HH-(HH-LL[1])*(Per8/100); TL3 = TL_new(LD[1],LT[1],value3,sdate,stime,value3); TL4 = TL_new(LD[1],LT[1],Value4,sdate,stime,Value4); TL5 = TL_new(LD[1],LT[1],Value5,sdate,stime,Value5); TL6 = TL_new(LD[1],LT[1],Value6,sdate,stime,Value6); TL7 = TL_new(LD[1],LT[1],Value7,sdate,stime,value7); TL8 = TL_new(LD[1],LT[1],Value8,sdate,stime,Value8); TL9 = TL_new(LD[1],LT[1],Value9,sdate,stime,Value9); TL10 = TL_new(LD[1],LT[1],Value10,sdate,stime,Value10); //추세선 오른쪽 연장설정 TL_SetExtRight(TL3,true); TL_SetExtRight(TL4,true); TL_SetExtRight(TL5,true); TL_SetExtRight(TL6,true); TL_SetExtRight(TL7,true); TL_SetExtRight(TL8,true); TL_SetExtRight(TL9,true); TL_SetExtRight(TL10,true); Text_Delete(tx3); Text_Delete(tx4); Text_Delete(tx5); Text_Delete(tx6); Text_Delete(tx7); Text_Delete(tx8); Text_Delete(tx9); Text_Delete(tx10); tx3 = Text_New(sDate,sTime,Value3,NumToStr(Value3,2)); tx4 = Text_New(sDate,sTime,Value4,NumToStr(Value4,2)); tx5 = Text_New(sDate,sTime,Value5,NumToStr(Value5,2)); tx6 = Text_New(sDate,sTime,Value6,NumToStr(Value6,2)); tx7 = Text_New(sDate,sTime,Value7,NumToStr(Value7,2)); tx8 = Text_New(sDate,sTime,Value8,NumToStr(Value8,2)); tx9 = Text_New(sDate,sTime,Value9,NumToStr(Value9,2)); tx10 = Text_New(sDate,sTime,Value10,NumToStr(Value10,2)); Text_SetStyle(tX3,0,1); Text_SetStyle(tX4,0,1); Text_SetStyle(tX5,0,1); Text_SetStyle(tX6,0,1); Text_SetStyle(tX7,0,1); Text_SetStyle(tX8,0,1); Text_SetStyle(tX9,0,1); Text_SetStyle(tX10,0,1); if 텍스트출력 == 1 then { Tx22 = Text_New(LD1,LT1,LL1,"하:"+NumToStr((HH1-LL1)/PriceScale,0)+NewLine+NumToStr(LL1,2)+" / "+NumToStr(LI1-HI1,0)); Text_SetStyle(tx22,2,0); Text_SetSize(tx22,12); Text_Delete(tx2); Tx2 = Text_New(LD,LT,LL,"가:"+NumToStr((HH[1]-LL)/PriceScale,0)+NewLine+NumToStr(LL,2)+" / "+NumToStr(LI-HI[1],0)); Text_SetStyle(tx2,2,1); Text_SetSize(tx2,12); } } } if T == 1 then { if H > HH Then { HH = H; HD = sdate; HT = stime; HI = Index; TL_SetEnd(TL1,HD,HT,HH); if 텍스트출력 == 1 then { Text_Delete(tx1); Tx1 = Text_New(HD,HT,HH,"A:"+NumToStr((HH-LL[1])/PriceScale,0)+NewLine+NumToStr(HH,2)+" / "+NumToStr(HI-LI[1],0)); Text_SetStyle(tx1,2,1); Text_SetSize(tx1,11); } } } if T == -1 then { if L < LL Then { LL = L; LD = sdate; LT = stime; LI = Index; TL_SetEnd(TL2,LD,LT,LL); if 텍스트출력 == 1 then { Text_Delete(tx2); Tx2 = Text_New(LD,LT,LL,"B:"+NumToStr((HH[1]-LL)/PriceScale,0)+NewLine+NumToStr(LL,2)+" / "+NumToStr(LI-HI[1],0)); Text_SetStyle(tx2,2,0); Text_SetSize(tx2,11); } } } #추세선 두께 TL_SetSize(TL1,추세선두께); TL_SetSize(TL2,추세선두께); #추세선 색상 TL_SetColor(TL1,추세선색1); TL_SetColor(TL2,추세선색2); #연장선 두께 TL_SetSize(TL3,연장선두께); TL_SetSize(TL4,연장선두께); TL_SetSize(TL5,연장선두께); TL_SetSize(TL6,연장선두께); TL_SetSize(TL7,연장선두께); TL_SetSize(TL8,연장선두께); TL_SetSize(TL9,연장선두께); TL_SetSize(TL10,연장선두께); #연장선 색상 TL_SetColor(TL3,BLACk); TL_SetColor(TL4,GREEN); TL_SetColor(TL5,연장선색); TL_SetColor(TL6,YELLOw); TL_SetColor(TL7,GREEn); TL_SetColor(TL8,연장선색); TL_SetColor(TL9,WHITe); TL_SetColor(TL10,REd); Text_SetLocation(tx3,NextBarSdate,NextBarStime,Value3); Text_SetLocation(tx4,NextBarSdate,NextBarStime,Value4); Text_SetLocation(tx5,NextBarSdate,NextBarStime,Value5); Text_SetLocation(tx6,NextBarSdate,NextBarStime,Value6); Text_SetLocation(tx7,NextBarSdate,NextBarStime,Value7); Text_SetLocation(tx8,NextBarSdate,NextBarStime,Value8); Text_SetLocation(tx9,NextBarSdate,NextBarStime,Value9); Text_SetLocation(tx10,NextBarSdate,NextBarStime,Value10);