안녕하세요 예스스탁입니다. 아래식 참고하시기 바랍니다. Input:ShortPeriod(5),LongPeriod(20),RSIP(14); var : T(0),RSIV(0); var : DnLv(0),DnLv1(0),UPHv(0),UpHv1(0); var : DnLr(0),DnLr1(0),UPHr(0),UpHr1(0); var1 = ma(c,ShortPeriod); var2 = ma(C,LongPeriod); RSIV = RSI(RSIP); #골든크로스 발생시 초기값 지정 if crossup(var1,var2) Then{ T = 1; UpHv = H; UPHv1 = UpHv[1]; UpHr = Rsiv; UPHr1 = UpHr[1]; } #현재 골든크로스 상태 if T == 1 Then{ #골드고간 최고가 갱신 if H > UpHv Then{ UpHv = H; UpHr = Rsiv; #하락 다이버젼스 - 가격상승,지표하락 #현재골드구간의 최고가는 직전골드구간최고가보다 크고 #현재골드구간의 최고가봉의 RSI값은 직전골드구간 최고가봉의 RSI보다 작으면 매도 if UpHv > UpHv1 and UpHr < UpHr1 Then sell(); } } #데드크로스 발생시 초기값 지정 if CrossDown(var1,var2) Then{ T = -1; DnLv = L; DnLv1 = DnLv[1]; DnLr = Rsiv; DnLr1 = DnLr[1]; } #현재 데드크로스 상태 if T == -1 Then{ #데드고간 최저가 갱신 if L < DnLv Then{ DnLv = L; DnLr = Rsiv; #상승 다이버젼스 - 가격하락,지표상승 #현재대드구간의 최저가는 직전대드구간 최저가보다 크고 #현재골드구간의 최저가봉의 RSI값은 직전골드구간 최저가봉의 RSI보다 크면 매수 if DnLv < DnLv1 and DnLr > DnLr1 Then buy(); } } 즐거운 하루되세요 > 뉴스타트 님이 쓴 글입니다. > 제목 : 문의드립니다 > 안녕하세요 예스글로벌 pro에 사용할 다이버전스 시스템식 부탁드립니다. 지표식을 적용시 지그재그선이 그려지는데, 다이버전스에 사용할 두개의 가격은, 1.현재가 이평데드구간이면:현구간에서 생성되는 저가와 직전 데드구간에서의 저가를 비교 2.현재가 이평골드구간이면:현구간에서 생성되는 고가와 직전 골드구간에서의 고가를 비교 3.보조지표는 1,2 의 각각의 시점의 RSI값을 비교 수고하세요 ----------------- 이평선이 골드일 때의 고점과 데드일 때 저점을 잇는 지그재그선입니다. 피보나치 선은 현재 파동이 진행중이므로 이전 파동의 크기로 계산을 합니다. [출처] 이평선 골든데드 이용한 지그재그선 + 피보나치 되돌림 선|작성자 수식지왕 Input:ShortPeriod(5),LongPeriod(20),선두께(2),선색(green); Var:j(0),ma1(0),ma2(0); Var: date11(0),date12(0),time11(0),time12(0),TL1(0), date21(0),date22(0),time21(0),time22(0), date31(0),date32(0),time31(0),time32(0); Array:HiVal[20](0),LoVal[20](0),HiBar[20](0),LoBar[20](0),ZZ[20](0); Array:r[7](0),fr[7](0),TL2[7](0),TL3[7](0); r[0] = 0; r[1] = 0.236; r[2] = 0.382; r[3] = 0.50; r[4] = 0.618; r[5] = 0.764; r[6] = 1; For j = 0 To 19 { HiBar[j] = HiBar[j] + 1; LoBar[j] = LoBar[j] + 1; } ma1 = ma(C,ShortPeriod); ma2 = ma(C,LongPeriod); If ma1 < ma2 Then { If ma1[1] >= ma2[1] Then { For j = 18 DownTo 0 { LoVal[j+1] = LoVal[j]; LoBar[j+1] = LoBar[j]; ZZ[j+1] = ZZ[j]; } LoVal[0] = L; LoBar[0] = 0; ZZ[0] = L; date11 = date[HiBar[0]]; time11 = stime[HiBar[0]]; Value11 = HiVal[0]; date12 = date[LoBar[0]]; time12 = stime[LoBar[0]]; Value12 = LoVal[0]; TL1 = TL_New(date11,time11,Value11,date12,time12,Value12); date21 = date[HiBar[0]]; time21 = stime[HiBar[0]]; date22 = date[0]; time22 = stime[0]; for j = 0 to 6 { fr[j] = LoVal[1] + ((HiVal[0] - LoVal[1]) * r[j]); TL2[j] = TL_New(date21,time21,fr[j],date22,time22,fr[j]); TL_SetColor(TL2[j],red); } } Else If LoVal[0] > L Then { LoVal[0] = L; LoBar[0] = 0; ZZ[0] = L; date12 = date[LoBar[0]]; time12 = stime[LoBar[0]]; Value12 = LoVal[0]; TL_SetEnd(TL1, date12,time12,Value12); date22 = date[0]; time22 = stime[0]; for j = 0 to 6 { TL_SetEnd(TL2[j],date22,time22,fr[j]); } } } Else If ma1 > ma2 Then { If ma1[1] <= ma2[1] Then { For j = 18 DownTo 0 { HiVal[j+1] = HiVal[j]; HiBar[j+1] = HiBar[j]; ZZ[j+1] = ZZ[j]; } HiVal[0] = H; HiBar[0] = 0; ZZ[0] = H; date11 = date[LoBar[0]]; time11 = stime[LoBar[0]]; Value11 = LoVal[0]; date12 = date[HiBar[0]]; time12 = stime[HiBar[0]]; Value12 = HiVal[0]; TL1 = TL_New(date11,time11,Value11,date12,time12,Value12); date31 = date[LoBar[0]]; time31 = stime[LoBar[0]]; date32 = date[0]; time32 = stime[0]; for j = 0 to 6 { fr[j] = LoVal[0] + ((HiVal[1] - LoVal[0]) * r[j]); TL3[j] = TL_New(date31,time31,fr[j],date32,time32,fr[j]); TL_SetColor(TL3[j],blue); } } Else If HiVal[0] < H Then { HiVal[0] = H; HiBar[0] = 0; ZZ[0] = H; date12 = date[HiBar[0]]; time12 = stime[HiBar[0]]; Value12 = HiVal[0]; TL_SetEnd(TL1, date12,time12,Value12); date32 = date[0]; time32 = stime[0]; for j = 0 to 6 { TL_SetEnd(TL3[j],date32,time32,fr[j]); } } } TL_SetSize(TL1,선두께); TL_SetColor(TL1,선색);

감사드리며 재문의 드립니다. 답변주신것은 현재구간내에서의 초기값과 최고가(골드구간시) 또는 최저가(데드구간시)를 비교하고 있습니다.이평의 구간은 골드구간과 데드구간이 반복되기에, 제가 문의드리는 것은 현재구간내에서의 두가격간의 비교가 아니고, A(골드구간)-B(데드구간)-C(현재골드구간)시 A구간 최고가와 C구간 최고가를 비교, A(데드구간)-B(골드구간(-C(현재데드구간)시 A구간 최저가와 C구간 최저가를 비교 하는 것입니다. 추세선 한가지 추가요청합니다. 1.골드구간의 최고가끼리 연결한 추세선 2.데드구간의 최저가끼리 연결한 추세선 이경우 1,2의 각각 마지막 추세선만 우측연장해서 보이도록 부탁드립니다. > 예스스탁 님이 쓴 글입니다. > 제목 : Re : 문의드립니다 > 안녕하세요 예스스탁입니다. 아래식 참고하시기 바랍니다. Input:ShortPeriod(5),LongPeriod(20),RSIP(14); var : T(0),RSIV(0); var : DnLv(0),DnLv1(0),UPHv(0),UpHv1(0); var : DnLr(0),DnLr1(0),UPHr(0),UpHr1(0); var1 = ma(c,ShortPeriod); var2 = ma(C,LongPeriod); RSIV = RSI(RSIP); #골든크로스 발생시 초기값 지정 if crossup(var1,var2) Then{ T = 1; UpHv = H; UPHv1 = UpHv[1]; UpHr = Rsiv; UPHr1 = UpHr[1]; } #현재 골든크로스 상태 if T == 1 Then{ #골드고간 최고가 갱신 if H > UpHv Then{ UpHv = H; UpHr = Rsiv; #하락 다이버젼스 - 가격상승,지표하락 #현재골드구간의 최고가는 직전골드구간최고가보다 크고 #현재골드구간의 최고가봉의 RSI값은 직전골드구간 최고가봉의 RSI보다 작으면 매도 if UpHv > UpHv1 and UpHr < UpHr1 Then sell(); } } #데드크로스 발생시 초기값 지정 if CrossDown(var1,var2) Then{ T = -1; DnLv = L; DnLv1 = DnLv[1]; DnLr = Rsiv; DnLr1 = DnLr[1]; } #현재 데드크로스 상태 if T == -1 Then{ #데드고간 최저가 갱신 if L < DnLv Then{ DnLv = L; DnLr = Rsiv; #상승 다이버젼스 - 가격하락,지표상승 #현재대드구간의 최저가는 직전대드구간 최저가보다 크고 #현재골드구간의 최저가봉의 RSI값은 직전골드구간 최저가봉의 RSI보다 크면 매수 if DnLv < DnLv1 and DnLr > DnLr1 Then buy(); } } 즐거운 하루되세요 > 뉴스타트 님이 쓴 글입니다. > 제목 : 문의드립니다 > 안녕하세요 예스글로벌 pro에 사용할 다이버전스 시스템식 부탁드립니다. 지표식을 적용시 지그재그선이 그려지는데, 다이버전스에 사용할 두개의 가격은, 1.현재가 이평데드구간이면:현구간에서 생성되는 저가와 직전 데드구간에서의 저가를 비교 2.현재가 이평골드구간이면:현구간에서 생성되는 고가와 직전 골드구간에서의 고가를 비교 3.보조지표는 1,2 의 각각의 시점의 RSI값을 비교 수고하세요 ----------------- 이평선이 골드일 때의 고점과 데드일 때 저점을 잇는 지그재그선입니다. 피보나치 선은 현재 파동이 진행중이므로 이전 파동의 크기로 계산을 합니다. [출처] 이평선 골든데드 이용한 지그재그선 + 피보나치 되돌림 선|작성자 수식지왕 Input:ShortPeriod(5),LongPeriod(20),선두께(2),선색(green); Var:j(0),ma1(0),ma2(0); Var: date11(0),date12(0),time11(0),time12(0),TL1(0), date21(0),date22(0),time21(0),time22(0), date31(0),date32(0),time31(0),time32(0); Array:HiVal[20](0),LoVal[20](0),HiBar[20](0),LoBar[20](0),ZZ[20](0); Array:r[7](0),fr[7](0),TL2[7](0),TL3[7](0); r[0] = 0; r[1] = 0.236; r[2] = 0.382; r[3] = 0.50; r[4] = 0.618; r[5] = 0.764; r[6] = 1; For j = 0 To 19 { HiBar[j] = HiBar[j] + 1; LoBar[j] = LoBar[j] + 1; } ma1 = ma(C,ShortPeriod); ma2 = ma(C,LongPeriod); If ma1 < ma2 Then { If ma1[1] >= ma2[1] Then { For j = 18 DownTo 0 { LoVal[j+1] = LoVal[j]; LoBar[j+1] = LoBar[j]; ZZ[j+1] = ZZ[j]; } LoVal[0] = L; LoBar[0] = 0; ZZ[0] = L; date11 = date[HiBar[0]]; time11 = stime[HiBar[0]]; Value11 = HiVal[0]; date12 = date[LoBar[0]]; time12 = stime[LoBar[0]]; Value12 = LoVal[0]; TL1 = TL_New(date11,time11,Value11,date12,time12,Value12); date21 = date[HiBar[0]]; time21 = stime[HiBar[0]]; date22 = date[0]; time22 = stime[0]; for j = 0 to 6 { fr[j] = LoVal[1] + ((HiVal[0] - LoVal[1]) * r[j]); TL2[j] = TL_New(date21,time21,fr[j],date22,time22,fr[j]); TL_SetColor(TL2[j],red); } } Else If LoVal[0] > L Then { LoVal[0] = L; LoBar[0] = 0; ZZ[0] = L; date12 = date[LoBar[0]]; time12 = stime[LoBar[0]]; Value12 = LoVal[0]; TL_SetEnd(TL1, date12,time12,Value12); date22 = date[0]; time22 = stime[0]; for j = 0 to 6 { TL_SetEnd(TL2[j],date22,time22,fr[j]); } } } Else If ma1 > ma2 Then { If ma1[1] <= ma2[1] Then { For j = 18 DownTo 0 { HiVal[j+1] = HiVal[j]; HiBar[j+1] = HiBar[j]; ZZ[j+1] = ZZ[j]; } HiVal[0] = H; HiBar[0] = 0; ZZ[0] = H; date11 = date[LoBar[0]]; time11 = stime[LoBar[0]]; Value11 = LoVal[0]; date12 = date[HiBar[0]]; time12 = stime[HiBar[0]]; Value12 = HiVal[0]; TL1 = TL_New(date11,time11,Value11,date12,time12,Value12); date31 = date[LoBar[0]]; time31 = stime[LoBar[0]]; date32 = date[0]; time32 = stime[0]; for j = 0 to 6 { fr[j] = LoVal[0] + ((HiVal[1] - LoVal[0]) * r[j]); TL3[j] = TL_New(date31,time31,fr[j],date32,time32,fr[j]); TL_SetColor(TL3[j],blue); } } Else If HiVal[0] < H Then { HiVal[0] = H; HiBar[0] = 0; ZZ[0] = H; date12 = date[HiBar[0]]; time12 = stime[HiBar[0]]; Value12 = HiVal[0]; TL_SetEnd(TL1, date12,time12,Value12); date32 = date[0]; time32 = stime[0]; for j = 0 to 6 { TL_SetEnd(TL3[j],date32,time32,fr[j]); } } } TL_SetSize(TL1,선두께); TL_SetColor(TL1,선색);

안녕하세요 예스스탁입니다. 1. 작성해 드린식이 말씀하신 이전구간과 현재구간과 비교하게 작성된 식입니다. 아래지표식으로 값 확인하시기 바랍니다. Input:ShortPeriod(5),LongPeriod(20),RSIP(14); var : T(0),RSIV(0); var : DnLv(0),DnLv1(0),UPHv(0),UpHv1(0); var : DnLr(0),DnLr1(0),UPHr(0),UpHr1(0); var1 = ma(c,ShortPeriod); var2 = ma(C,LongPeriod); RSIV = RSI(RSIP); #골든크로스 발생시 초기값 지정 if crossup(var1,var2) Then{ T = 1; UpHv = H; UPHv1 = UpHv[1]; UpHr = Rsiv; UPHr1 = UpHr[1]; } #현재 골든크로스 상태 if T == 1 Then{ #골드고간 최고가 갱신 if H > UpHv Then{ UpHv = H; UpHr = Rsiv; } } #데드크로스 발생시 초기값 지정 if CrossDown(var1,var2) Then{ T = -1; DnLv = L; DnLv1 = DnLv[1]; DnLr = Rsiv; DnLr1 = DnLr[1]; } #현재 데드크로스 상태 if T == -1 Then{ #데드고간 최저가 갱신 if L < DnLv Then{ DnLv = L; DnLr = Rsiv; } } plot1(UPhv); plot2(upHv1); plot3(dnLv); plot4(dnLv1); 2 Input:ShortPeriod(5),LongPeriod(20),RSIP(14); var : T(0),RSIV(0),TL1(0),TL2(0); var : DnLv(0),DnLv1(0),UPHv(0),UpHv1(0); var : DnLr(0),DnLr1(0),UPHr(0),UpHr1(0); var : DnLd(0),DnLd1(0),UPHd(0),UpHd1(0); var : DnLt(0),DnLt1(0),UPHt(0),UpHt1(0); var1 = ma(c,ShortPeriod); var2 = ma(C,LongPeriod); RSIV = RSI(RSIP); #골든크로스 발생시 초기값 지정 if crossup(var1,var2) Then{ T = 1; UpHv = H; UPHv1 = UpHv[1]; upHd = sdate; upHd1 = UpHd[1]; upHt = stime; upHt1 = UpHt[1]; UpHr = Rsiv; UPHr1 = UpHr[1]; } #현재 골든크로스 상태 if T == 1 Then{ #골드고간 최고가 갱신 if H > UpHv Then{ UpHv = H; UpHr = Rsiv; upHd = sdate; upHt = stime; TL_Delete(TL1); TL1 = TL_New(uphd1,upht1,uphv1,uphd,upht,uphv); TL_SetExtRight(TL1,true); #하락 다이버젼스 - 가격상승,지표하락 #현재골드구간의 최고가는 직전골드구간최고가보다 크고 #현재골드구간의 최고가봉의 RSI값은 직전골드구간 최고가봉의 RSI보다 작으면 매도 if UpHv > UpHv1 and UpHr < UpHr1 Then sell(); } } #데드크로스 발생시 초기값 지정 if CrossDown(var1,var2) Then{ T = -1; DnLv = L; DnLv1 = DnLv[1]; DnLd = sdate; DnLd1 = DnLd[1]; DnLt = stime; DnLt1 = DnLt[1]; DnLr = Rsiv; DnLr1 = DnLr[1]; } #현재 데드크로스 상태 if T == -1 Then{ #데드고간 최저가 갱신 if L < DnLv Then{ DnLv = L; DnLr = Rsiv; dnLd = sdate; DnLt = stime; TL_Delete(TL2); TL2 = TL_New(Dnld1,DnLt1,DNLv1,Dnld,DnLt,DNLv); TL_SetExtRight(TL2,true); #상승 다이버젼스 - 가격하락,지표상승 #현재대드구간의 최저가는 직전대드구간 최저가보다 크고 #현재골드구간의 최저가봉의 RSI값은 직전골드구간 최저가봉의 RSI보다 크면 매수 if DnLv < DnLv1 and DnLr > DnLr1 Then buy(); } } 즐거운 하루되세요 > 뉴스타트 님이 쓴 글입니다. > 제목 : Re : Re : 문의드립니다 > 감사드리며 재문의 드립니다. 답변주신것은 현재구간내에서의 초기값과 최고가(골드구간시) 또는 최저가(데드구간시)를 비교하고 있습니다.이평의 구간은 골드구간과 데드구간이 반복되기에, 제가 문의드리는 것은 현재구간내에서의 두가격간의 비교가 아니고, A(골드구간)-B(데드구간)-C(현재골드구간)시 A구간 최고가와 C구간 최고가를 비교, A(데드구간)-B(골드구간(-C(현재데드구간)시 A구간 최저가와 C구간 최저가를 비교 하는 것입니다. 추세선 한가지 추가요청합니다. 1.골드구간의 최고가끼리 연결한 추세선 2.데드구간의 최저가끼리 연결한 추세선 이경우 1,2의 각각 마지막 추세선만 우측연장해서 보이도록 부탁드립니다. > 예스스탁 님이 쓴 글입니다. > 제목 : Re : 문의드립니다 > 안녕하세요 예스스탁입니다. 아래식 참고하시기 바랍니다. Input:ShortPeriod(5),LongPeriod(20),RSIP(14); var : T(0),RSIV(0); var : DnLv(0),DnLv1(0),UPHv(0),UpHv1(0); var : DnLr(0),DnLr1(0),UPHr(0),UpHr1(0); var1 = ma(c,ShortPeriod); var2 = ma(C,LongPeriod); RSIV = RSI(RSIP); #골든크로스 발생시 초기값 지정 if crossup(var1,var2) Then{ T = 1; UpHv = H; UPHv1 = UpHv[1]; UpHr = Rsiv; UPHr1 = UpHr[1]; } #현재 골든크로스 상태 if T == 1 Then{ #골드고간 최고가 갱신 if H > UpHv Then{ UpHv = H; UpHr = Rsiv; #하락 다이버젼스 - 가격상승,지표하락 #현재골드구간의 최고가는 직전골드구간최고가보다 크고 #현재골드구간의 최고가봉의 RSI값은 직전골드구간 최고가봉의 RSI보다 작으면 매도 if UpHv > UpHv1 and UpHr < UpHr1 Then sell(); } } #데드크로스 발생시 초기값 지정 if CrossDown(var1,var2) Then{ T = -1; DnLv = L; DnLv1 = DnLv[1]; DnLr = Rsiv; DnLr1 = DnLr[1]; } #현재 데드크로스 상태 if T == -1 Then{ #데드고간 최저가 갱신 if L < DnLv Then{ DnLv = L; DnLr = Rsiv; #상승 다이버젼스 - 가격하락,지표상승 #현재대드구간의 최저가는 직전대드구간 최저가보다 크고 #현재골드구간의 최저가봉의 RSI값은 직전골드구간 최저가봉의 RSI보다 크면 매수 if DnLv < DnLv1 and DnLr > DnLr1 Then buy(); } } 즐거운 하루되세요 > 뉴스타트 님이 쓴 글입니다. > 제목 : 문의드립니다 > 안녕하세요 예스글로벌 pro에 사용할 다이버전스 시스템식 부탁드립니다. 지표식을 적용시 지그재그선이 그려지는데, 다이버전스에 사용할 두개의 가격은, 1.현재가 이평데드구간이면:현구간에서 생성되는 저가와 직전 데드구간에서의 저가를 비교 2.현재가 이평골드구간이면:현구간에서 생성되는 고가와 직전 골드구간에서의 고가를 비교 3.보조지표는 1,2 의 각각의 시점의 RSI값을 비교 수고하세요 ----------------- 이평선이 골드일 때의 고점과 데드일 때 저점을 잇는 지그재그선입니다. 피보나치 선은 현재 파동이 진행중이므로 이전 파동의 크기로 계산을 합니다. [출처] 이평선 골든데드 이용한 지그재그선 + 피보나치 되돌림 선|작성자 수식지왕 Input:ShortPeriod(5),LongPeriod(20),선두께(2),선색(green); Var:j(0),ma1(0),ma2(0); Var: date11(0),date12(0),time11(0),time12(0),TL1(0), date21(0),date22(0),time21(0),time22(0), date31(0),date32(0),time31(0),time32(0); Array:HiVal[20](0),LoVal[20](0),HiBar[20](0),LoBar[20](0),ZZ[20](0); Array:r[7](0),fr[7](0),TL2[7](0),TL3[7](0); r[0] = 0; r[1] = 0.236; r[2] = 0.382; r[3] = 0.50; r[4] = 0.618; r[5] = 0.764; r[6] = 1; For j = 0 To 19 { HiBar[j] = HiBar[j] + 1; LoBar[j] = LoBar[j] + 1; } ma1 = ma(C,ShortPeriod); ma2 = ma(C,LongPeriod); If ma1 < ma2 Then { If ma1[1] >= ma2[1] Then { For j = 18 DownTo 0 { LoVal[j+1] = LoVal[j]; LoBar[j+1] = LoBar[j]; ZZ[j+1] = ZZ[j]; } LoVal[0] = L; LoBar[0] = 0; ZZ[0] = L; date11 = date[HiBar[0]]; time11 = stime[HiBar[0]]; Value11 = HiVal[0]; date12 = date[LoBar[0]]; time12 = stime[LoBar[0]]; Value12 = LoVal[0]; TL1 = TL_New(date11,time11,Value11,date12,time12,Value12); date21 = date[HiBar[0]]; time21 = stime[HiBar[0]]; date22 = date[0]; time22 = stime[0]; for j = 0 to 6 { fr[j] = LoVal[1] + ((HiVal[0] - LoVal[1]) * r[j]); TL2[j] = TL_New(date21,time21,fr[j],date22,time22,fr[j]); TL_SetColor(TL2[j],red); } } Else If LoVal[0] > L Then { LoVal[0] = L; LoBar[0] = 0; ZZ[0] = L; date12 = date[LoBar[0]]; time12 = stime[LoBar[0]]; Value12 = LoVal[0]; TL_SetEnd(TL1, date12,time12,Value12); date22 = date[0]; time22 = stime[0]; for j = 0 to 6 { TL_SetEnd(TL2[j],date22,time22,fr[j]); } } } Else If ma1 > ma2 Then { If ma1[1] <= ma2[1] Then { For j = 18 DownTo 0 { HiVal[j+1] = HiVal[j]; HiBar[j+1] = HiBar[j]; ZZ[j+1] = ZZ[j]; } HiVal[0] = H; HiBar[0] = 0; ZZ[0] = H; date11 = date[LoBar[0]]; time11 = stime[LoBar[0]]; Value11 = LoVal[0]; date12 = date[HiBar[0]]; time12 = stime[HiBar[0]]; Value12 = HiVal[0]; TL1 = TL_New(date11,time11,Value11,date12,time12,Value12); date31 = date[LoBar[0]]; time31 = stime[LoBar[0]]; date32 = date[0]; time32 = stime[0]; for j = 0 to 6 { fr[j] = LoVal[0] + ((HiVal[1] - LoVal[0]) * r[j]); TL3[j] = TL_New(date31,time31,fr[j],date32,time32,fr[j]); TL_SetColor(TL3[j],blue); } } Else If HiVal[0] < H Then { HiVal[0] = H; HiBar[0] = 0; ZZ[0] = H; date12 = date[HiBar[0]]; time12 = stime[HiBar[0]]; Value12 = HiVal[0]; TL_SetEnd(TL1, date12,time12,Value12); date32 = date[0]; time32 = stime[0]; for j = 0 to 6 { TL_SetEnd(TL3[j],date32,time32,fr[j]); } } } TL_SetSize(TL1,선두께); TL_SetColor(TL1,선색);