Input:계산시작일(20230101), // 차트 처음부터 계산하려면 0을 입력 차트반영일(20240101), 연장여부(1), // 연장여부가 0이면 차트반영일까지만 계산한다. // 연장여부가 1이면 현재일까지 누적 계산한다. // 추세선을 계속 지우고 다시 그리기를 반복하므로 연장여부를 1로 하려면 // 차트반영일을 현재일에 가깝게 입력한다. 연산시간과 관련있음 매물대개수(10), 수치표시(1), 추세선간격(4); Var:j(0),jj(0),Continue(True),sBar(0),eBar(0),출력매물대개수(0),sIndex(0),Length(0), TitleBar(0), // 차트제목을 화면에 출력하기 위한 좌표 TitlePrice(0), // 거래량이 가장 많은 매물대의 중간 가격 TitleName(""); // 차트 제목 Array:VolProfileArr[100,5](0), // 열번호 1:가격이상,2:가격미만,3:sBar,4:수량,5:비율 TL[100,4](0),Text[101](0); var : MaxV(0), MavH(0),MavL(0); #==========================================# IF 매물대개수 > 98 Then { Alert("매물대개수는 98까지만 허용합니다."); Continue = False; } If Continue Then { #----------------------------------------------------------------------------------# # 시작하기 #----------------------------------------------------------------------------------# Value1 = 0; If (Date[1] < 계산시작일 and Date >= 계산시작일) or // 계산시작일이 있으면 날짜 통과 시점에 (계산시작일 == 0 and Index == 0) Then { // 계산시작일이 0이면 첫번째 봉부터 sIndex = Index; // 계산시작일로부터의 봉개수를 계산하기 위해 Index를 저장 } If (Date[1] < 차트반영일 and Date >= 차트반영일) or (Date >= 차트반영일 and 연장여부 > 0) Then { Length = Index - sIndex + 1; 출력매물대개수 = 매물대개수; // 매물대 개수를 입력하면 적당한 가격단위로 자른 뒤 출력할 매물대개수를 리턴한다. Value1 = VolumeProfile(Length,출력매물대개수,VolProfileArr,TitleBar,TitlePrice,TitleName); // 여기 지표식에서는 계산시작일과 차트반영일을 입력받아서 처리했지만 // 조건에 맞는 MRO 값을 Length 대신에 써도 된다. } If Value1 == 1 Then { For j = 1 To 출력매물대개수[1] { // 싹다 지우고 다시 그린다. // 출력매물대개수는 구간에 따라 바뀌기 때문에 입력값 기준으로 지운다. For jj = 1 To 4 { TL_Delete(TL[j,jj]); } If 수치표시 > 0 Then Text_Delete(Text[j]); } MaxV = 0; MavH = 0; MaxV = 0; For j = 1 To 출력매물대개수 { // 리턴받은 매물대 개수만큼 그린다. If VolProfileArr[j,4] > 0 Then { sBar = VolProfileArr[j,3]; eBar = 0; TL[j,1] = TL_New(sDate[sBar],sTime[sBar],VolProfileArr[j,1] + 추세선간격 * PriceScale,sDate[eBar],sTime[eBar],VolProfileArr[j,1] + 추세선간격 * PriceScale); TL[j,2] = TL_New(sDate[sBar],sTime[sBar],VolProfileArr[j,2] - 추세선간격 * PriceScale,sDate[eBar],sTime[eBar],VolProfileArr[j,2] - 추세선간격 * PriceScale); TL[j,3] = TL_New(sDate[sBar],sTime[sBar],VolProfileArr[j,1] + 추세선간격 * PriceScale,sDate[sBar],sTime[sBar],VolProfileArr[j,2] - 추세선간격 * PriceScale); } TL[j,4] = TL_New(sDate[0],sTime[0],VolProfileArr[j,1] + 추세선간격 * PriceScale, sDate[0],sTime[0],VolProfileArr[j,2] - 추세선간격 * PriceScale); If 수치표시 > 0 Then { Text[j] = Text_New(sDate[0],stime[0],(VolProfileArr[j,1] + VolProfileArr[j,2]) / 2, NumToStr(VolProfileArr[j,4],0) + " (" + NumToStr(VolProfileArr[j,5],2) + "%)(" + NumToStr(VolProfileArr[j,1],0) + " ~ " + NumToStr(VolProfileArr[j,2],0) + ")"); Text_SetStyle(Text[j], 1, 2); } if VolProfileArr[j,4] > maxV Then { MaxV = VolProfileArr[j,4]; MavL = VolProfileArr[j,1]; MavH = VolProfileArr[j,2]; } } Text_Delete(Text[0]); sBar = TitleBar; Text[0] = Text_New(sDate[sBar], stime[sBar],TitlePrice,TitleName); Text_SetStyle(Text[0], 2, 1); } } if mavH > 0 and MavL > 0 Then { plot1(MavH); plot2(MavL); } > kns 님이 쓴 글입니다. > 제목 : 문의드립니다 > Input:계산시작일(20230101), // 차트 처음부터 계산하려면 0을 입력 차트반영일(20240101), 연장여부(1), // 연장여부가 0이면 차트반영일까지만 계산한다. // 연장여부가 1이면 현재일까지 누적 계산한다. // 추세선을 계속 지우고 다시 그리기를 반복하므로 연장여부를 1로 하려면 // 차트반영일을 현재일에 가깝게 입력한다. 연산시간과 관련있음 매물대개수(10), 수치표시(1), 추세선간격(4); Var:j(0),jj(0),Continue(True),sBar(0),eBar(0),출력매물대개수(0),sIndex(0),Length(0), TitleBar(0), // 차트제목을 화면에 출력하기 위한 좌표 TitlePrice(0), // 거래량이 가장 많은 매물대의 중간 가격 TitleName(""); // 차트 제목 Array:VolProfileArr[100,5](0), // 열번호 1:가격이상,2:가격미만,3:sBar,4:수량,5:비율 TL[100,4](0),Text[101](0); #==========================================# IF 매물대개수 > 98 Then { Alert("매물대개수는 98까지만 허용합니다."); Continue = False; } If Continue Then { #----------------------------------------------------------------------------------# # 시작하기 #----------------------------------------------------------------------------------# Value1 = 0; If (Date[1] < 계산시작일 and Date >= 계산시작일) or // 계산시작일이 있으면 날짜 통과 시점에 (계산시작일 == 0 and Index == 0) Then { // 계산시작일이 0이면 첫번째 봉부터 sIndex = Index; // 계산시작일로부터의 봉개수를 계산하기 위해 Index를 저장 } If (Date[1] < 차트반영일 and Date >= 차트반영일) or (Date >= 차트반영일 and 연장여부 > 0) Then { Length = Index - sIndex + 1; 출력매물대개수 = 매물대개수; // 매물대 개수를 입력하면 적당한 가격단위로 자른 뒤 출력할 매물대개수를 리턴한다. Value1 = VolumeProfile(Length,출력매물대개수,VolProfileArr,TitleBar,TitlePrice,TitleName); // 여기 지표식에서는 계산시작일과 차트반영일을 입력받아서 처리했지만 // 조건에 맞는 MRO 값을 Length 대신에 써도 된다. } If Value1 == 1 Then { For j = 1 To 출력매물대개수[1] { // 싹다 지우고 다시 그린다. // 출력매물대개수는 구간에 따라 바뀌기 때문에 입력값 기준으로 지운다. For jj = 1 To 4 { TL_Delete(TL[j,jj]); } If 수치표시 > 0 Then Text_Delete(Text[j]); } For j = 1 To 출력매물대개수 { // 리턴받은 매물대 개수만큼 그린다. If VolProfileArr[j,4] > 0 Then { sBar = VolProfileArr[j,3]; eBar = 0; TL[j,1] = TL_New(sDate[sBar],sTime[sBar],VolProfileArr[j,1] + 추세선간격 * PriceScale,sDate[eBar],sTime[eBar],VolProfileArr[j,1] + 추세선간격 * PriceScale); TL[j,2] = TL_New(sDate[sBar],sTime[sBar],VolProfileArr[j,2] - 추세선간격 * PriceScale,sDate[eBar],sTime[eBar],VolProfileArr[j,2] - 추세선간격 * PriceScale); TL[j,3] = TL_New(sDate[sBar],sTime[sBar],VolProfileArr[j,1] + 추세선간격 * PriceScale,sDate[sBar],sTime[sBar],VolProfileArr[j,2] - 추세선간격 * PriceScale); } TL[j,4] = TL_New(sDate[0],sTime[0],VolProfileArr[j,1] + 추세선간격 * PriceScale, sDate[0],sTime[0],VolProfileArr[j,2] - 추세선간격 * PriceScale); If 수치표시 > 0 Then { Text[j] = Text_New(sDate[0],stime[0],(VolProfileArr[j,1] + VolProfileArr[j,2]) / 2, NumToStr(VolProfileArr[j,4],0) + " (" + NumToStr(VolProfileArr[j,5],2) + "%)(" + NumToStr(VolProfileArr[j,1],0) + " ~ " + NumToStr(VolProfileArr[j,2],0) + ")"); Text_SetStyle(Text[j], 1, 2); } } Text_Delete(Text[0]); sBar = TitleBar; Text[0] = Text_New(sDate[sBar], stime[sBar],TitlePrice,TitleName); Text_SetStyle(Text[0], 2, 1); } } plot1(Value1); 위수식을 바탕으로 아래와 같은 지표수식을 추가 부탁드립니다 MavH :최대 매물대의 상한벽의 가격 MavL: 최대 매물대의 하한벽의 가격