답변완료
지표 수정 부탁드립니다.
늘 수고가 많으십니다.
아래의 지표를 잘 사용하고 있습니다.
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);
2021-06-16
797
글번호 150009
지표