안녕하세요 예스스탁입니다. input: period1(60),period2(20),period3(5), 선두께(5),상승색(YELLOW),하락색(cyan); Var:j1(0),J2(0),J3(0),T1(0),T2(0),T3(0); Var: date11(0),time11(0),date12(0),time12(0); Var: TL1(0), TL2(0),TL21(0),TL22(0),Tx1(0),Tx2(0); Array:HiVal1[20](0),LoVal1[20](0),HiBar1[20](0),LoBar1[20](0); Array:HiVal2[20](0),LoVal2[20](0),HiBar2[20](0),LoBar2[20](0); Array:HiVal3[20](0),LoVal3[20](0),HiBar3[20](0),LoBar3[20](0); Array:r[7](0),fr[7](0); For j1 = 0 To 19 { HiBar1[j1] = HiBar1[j1] + 1; LoBar1[j1] = LoBar1[j1] + 1; } if crossup(c,highest(c,Period1)[1]) Then { T1 = 1; } if CrossDown(c,Lowest(c,Period1)[1]) Then { T1 = -1; } If T1 == -1 Then { If T1[1] != -1 Then { For j1 = 18 DownTo 0 { LoVal1[j1+1] = LoVal1[j1]; LoBar1[j1+1] = LoBar1[j1]; } LoVal1[0] = close; LoBar1[0] = 0; date11 = date[HiBar1[0]]; time11 = stime[HiBar1[0]]; Value11 = HiVal1[0]; date12 = date[LoBar1[0]]; time12 = stime[LoBar1[0]]; Value12 = LoVal1[0]; TL1 = TL_New(date11,time11,Value11,date12,time12,Value12); TL_SetColor(TL1,하락색); Tx1 = Text_New(date12,time12,Value12,"▲"); Text_SetColor(Tx1,RED); Text_SetStyle(Tx1,2,0); Text_SetSize(tx1,11); tx2 = Text_New(date12,time12,Value12,NewLine+NumToStr(value12,2)); Text_SetStyle(tx2,2,0); Text_SetSize(tx2,11); TL2 = TL_New(date11,time11,(Value11+value12)/2,date12,time12,(value11+Value12)/2); TL_SetExtRight(TL2,true); TL_SetSize(TL2,선두께); TL21 = TL2[1]; TL22 = TL21[1]; TL_Delete(TL22); } If LoVal1[0] > close Then { LoVal1[0] = close; LoBar1[0] = 0; date12 = date[LoBar1[0]]; time12 = stime[LoBar1[0]]; Value12 = LoVal1[0]; TL_SetEnd(TL1, date12,time12,Value12); Text_SetLocation(Tx1,date12,time12,value12); Text_SetString(tx2,NewLine+NumToStr(value12,2)); Text_SetLocation(Tx2,date12,time12,value12); TL_SetBegin(TL2,date11,time11,(value11+value12)/2); TL_Setend(TL2,date12,time12,(value11+value12)/2); } } If T1 == 1 Then { If T1[1] != 1 Then { For j1 = 18 DownTo 0 { HiVal1[j1+1] = HiVal1[j1]; HiBar1[j1+1] = HiBar1[j1]; } HiVal1[0] = close; HiBar1[0] = 0; date11 = date[LoBar1[0]]; time11 = stime[LoBar1[0]]; Value11 = LoVal1[0]; date12 = date[HiBar1[0]]; time12 = stime[HiBar1[0]]; Value12 = HiVal1[0]; TL1 = TL_New(date11,time11,Value11,date12,time12,Value12); TL_SetColor(TL1,상승색); Tx1 = Text_New(date12,time12,Value12,"▼"); Text_SetColor(Tx1,blue); Text_SetStyle(Tx1,2,1); Text_SetSize(tx1,11); tx2 = Text_New(date12,time12,Value12,NewLine+NumToStr(value12,2)); Text_SetStyle(tx2,2,1); Text_SetSize(tx2,11); TL2 = TL_New(date11,time11,(Value11+value12)/2,date12,time12,(value11+Value12)/2); TL_SetExtRight(TL2,true); TL_SetSize(TL2,선두께); TL21 = TL2[1]; TL22 = TL21[1]; TL_Delete(TL22); } If HiVal1[0] < close Then { HiVal1[0] = close; HiBar1[0] = 0; date12 = date[HiBar1[0]]; time12 = stime[HiBar1[0]]; Value12 = HiVal1[0]; TL_SetEnd(TL1, date12,time12,Value12); Text_SetLocation(Tx1,date12,time12,value12); Text_SetString(tx2,NumToStr(value12,2)+NewLine); Text_SetLocation(Tx2,date12,time12,value12); TL_SetBegin(TL2,date11,time11,(value11+value12)/2); TL_SetEnd(TL2,date12,time12,(value11+value12)/2); } } TL_SetSize(tL1,선두께); 즐거운 하루되세요 > 골든키 님이 쓴 글입니다. > 제목 : 부탁드립니다. > $,안녕하세요 1,아래식에서 파동추세선이 그려진 직후 파동추세선이 그려진 완성봉에 Text가 즉시 출력되도록 수정부탁드립니다. 2,최근 2개파동의 각각중심선을 다음파동전까지 오른쪽그리기 하고싶습니다. 도움부탁드립니다. input: period1(60),period2(20),period3(5), 선두께(5),상승색(YELLOW),하락색(cyan); Var:j1(0),J2(0),J3(0),T1(0),T2(0),T3(0); Var: date11(0),time11(0),date12(0),time12(0); Var: TL1(0), TL2(0),TL3(0),Tx(0),Tx1(0); Array:HiVal1[20](0),LoVal1[20](0),HiBar1[20](0),LoBar1[20](0); Array:HiVal2[20](0),LoVal2[20](0),HiBar2[20](0),LoBar2[20](0); Array:HiVal3[20](0),LoVal3[20](0),HiBar3[20](0),LoBar3[20](0); Array:r[7](0),fr[7](0); For j1 = 0 To 19 { HiBar1[j1] = HiBar1[j1] + 1; LoBar1[j1] = LoBar1[j1] + 1; } if crossup(c,highest(c,Period1)[1]) Then T1 = 1; if CrossDown(c,Lowest(c,Period1)[1]) Then T1 = -1; If T1 == -1 Then { If T1[1] != -1 Then { For j1 = 18 DownTo 0 { LoVal1[j1+1] = LoVal1[j1]; LoBar1[j1+1] = LoBar1[j1]; } LoVal1[0] = close; LoBar1[0] = 0; date11 = date[HiBar1[0]]; time11 = stime[HiBar1[0]]; Value11 = HiVal1[0]; date12 = date[LoBar1[0]]; time12 = stime[LoBar1[0]]; Value12 = LoVal1[0]; TL1 = TL_New(date11,time11,Value11,date12,time12,Value12); TL_SetColor(TL1,하락색); Tx = Text_New(date11,time11,Value11,"▼"); Text_SetColor(Tx,blue); Text_SetStyle(Tx,2,1); Text_SetSize(tx,11); tx = Text_New(date11,time11,Value11,NumToStr(value11,2)+NewLine); Text_SetStyle(tx,2,1); Text_SetSize(tx,11); } If LoVal1[0] > close Then { LoVal1[0] = close; LoBar1[0] = 0; date12 = date[LoBar1[0]]; time12 = stime[LoBar1[0]]; Value12 = LoVal1[0]; TL_SetEnd(TL1, date12,time12,Value12); } } If T1 == 1 Then { If T1[1] != 1 Then { For j1 = 18 DownTo 0 { HiVal1[j1+1] = HiVal1[j1]; HiBar1[j1+1] = HiBar1[j1]; } HiVal1[0] = close; HiBar1[0] = 0; date11 = date[LoBar1[0]]; time11 = stime[LoBar1[0]]; Value11 = LoVal1[0]; date12 = date[HiBar1[0]]; time12 = stime[HiBar1[0]]; Value12 = HiVal1[0]; TL1 = TL_New(date11,time11,Value11,date12,time12,Value12); TL_SetColor(TL1,상승색); Tx1 = Text_New(date11,time11,Value11,"▲"); Text_SetColor(Tx1,red); Text_SetStyle(Tx1,2,5); Text_SetSize(tx1,11); tx = Text_New(date11,time11,Value11,NewLine+NumToStr(value11,2)); Text_SetStyle(tx,2,0); Text_SetSize(tx,11); } If HiVal1[0] < close Then { HiVal1[0] = close; HiBar1[0] = 0; date12 = date[HiBar1[0]]; time12 = stime[HiBar1[0]]; Value12 = HiVal1[0]; TL_SetEnd(TL1, date12,time12,Value12); } } TL_SetSize(tL1,선두께);