안녕하세요 아래수정해주신 당일수평선연장 수식이 당일분만 연장되는게 아니라 전체가 연장됩니다 파동선도 깨져서 나옵니다 확인구정 부탁드립니다 감사합니다 좋은하루되세요 안녕하세요 예스스탁입니다. Input:length(6); Var:j(0),lastHiVal(0),lastLoVal(0),sBar(0),eBar(0), TL1(0),처리구분(""),T(0),TL2(0),TL3(0); var : hh(0),ll(0),ii(0),diff(0),TL41(0),TL42(0),TL43(0),TL44(0),TL45(0),TL46(0); Array:고점[10,2](0),저점[10,2](0); Array : TTL1[50](0),TTL2[50](0),TTL3[50](0); var : cnt(0); if bdate != bdate[1] Then { for cnt = 0 to 49 { TL_SetExtRight(TTL2[cnt],false); TL_SetExtRight(TTL3[cnt],false); } } 처리구분 = ""; If Highest(H,length) == H and lastHiVal <> H and Lowest(L,length) == L and lastLoVal <> L Then { If 저점[1,1] > L Then 처리구분 = "저점처리"; If 고점[1,1] < H Then 처리구분 = "고점처리"; } Else If Highest(H,length) == H and lastHiVal <> H Then 처리구분 = "고점처리"; Else If Lowest(L,length) == L and lastLoVal <> L Then 처리구분 = "저점처리"; If 처리구분 == "고점처리" Then { T = 1; lastHiVal = H; If 고점[1,2] < 저점[1,2] Then { For j = 10 DownTo 2 { 고점[j,1] = 고점[j-1,1]; 고점[j,2] = 고점[j-1,2]; } } If 고점[1,2] < 저점[1,2] or 고점[1,1] < H Then { 고점[1,1] = H; 고점[1,2] = Index; sBar = Index - 저점[1,2]; eBar = 0; If TL_GetBeginDate(TL1) == sDate[sBar] and TL_GetBeginTime(TL1) == sTime[sBar] Then { TL_Delete(TL1); TL_Delete(TL2); } TL1 = TL_New(sDate[sBar],sTime[sBar],저점[1,1],sDate[eBar],sTime[eBar],고점[1,1]); //TL_SetExtRight(TL2,False); TL2 = TL_New(sDate[1],sTime[1],고점[1,1],sdate,sTime,고점[1,1]); TL_SetColor(TL2,BLUE); TL_SetSize(TL2,2); TTL2[0] = TL2; for cnt = 1 to 49 { TTL2[cnt] = TTL2[cnt-1][1]; } If 고점[3,1] < 고점[2,1] and 고점[2,1] > 고점[1,1] and 저점[2,1] < 저점[1,1] Then { sBar = Index - 저점[2,2]; eBar = Index - 저점[1,2]; } } } If 처리구분 == "저점처리" Then { T = -1; lastLoVal = L; If 저점[1,2] < 고점[1,2] Then { For j = 10 DownTo 2 { 저점[j,1] = 저점[j-1,1]; 저점[j,2] = 저점[j-1,2]; } } If 저점[1,2] < 고점[1,2] or 저점[1,1] > L Then { 저점[1,1] = L; 저점[1,2] = Index; sBar = Index - 고점[1,2]; eBar = 0; If TL_GetBeginDate(TL1) == sDate[sBar] and TL_GetBeginTime(TL1) == sTime[sBar] Then { TL_Delete(TL1); TL_Delete(TL3); } TL1 = TL_New(sDate[sBar],sTime[sBar],고점[1,1],sDate[eBar],sTime[eBar],저점[1,1]); //TL_SetExtRight(TL3,False); TL3 = TL_New(sDate[1],sTime[1],저점[1,1],sdate,sTime,저점[1,1]); TL_SetColor(TL3,RED); TL_SetSize(TL3,2); TTL3[0] = TL3; for cnt = 1 to 49 { TTL3[cnt] = TTL3[cnt-1][1]; } If 저점[2,1] < 저점[1,1] and 저점[2,1] < 저점[3,1] and 고점[2,1] > 고점[1,1] Then { sBar = Index - 고점[2,2]; eBar = Index - 고점[1,2]; } } } TL_SetSize(TL1,0); TL_SetColor(TL1,YELLOW); TL_SetEnd(TL2,sdate,stime,고점[1,1]); TL_SetEnd(TL3,sdate,stime,저점[1,1]); TL_SetExtRight(TL2,true); TL_SetExtRight(TL3,true); if T != T[1] then { if T == 1 Then { HH = 고점[2,1]; LL = 저점[1,1]; ii = index-고점[2,2]; diff = abs(HH-LL); } Else { HH = 고점[1,1]; LL = 저점[2,1]; ii = index-저점[2,2]; diff = abs(HH-LL); } TL_Delete(TL41); TL_Delete(TL42); TL_Delete(TL43); TL_Delete(TL44); TL_Delete(TL45); TL_Delete(TL46); TL41 = TL_New(sdate[ii],stime[ii],LL+diff*2.00,sdate,stime,LL+diff*2.00); TL42 = TL_New(sdate[ii],stime[ii],LL+diff*2.618,sdate,stime,LL+diff*2.618); TL43 = TL_New(sdate[ii],stime[ii],LL+diff*3.618,sdate,stime,LL+diff*3.618); TL44 = TL_New(sdate[ii],stime[ii],HH-diff*2.00,sdate,stime,HH-diff*2.00); TL45 = TL_New(sdate[ii],stime[ii],HH-diff*2.618,sdate,stime,HH-diff*2.618); TL46 = TL_New(sdate[ii],stime[ii],HH-diff*3.618,sdate,stime,HH-diff*3.618); TL_SetExtRight(TL41,true); TL_SetExtRight(TL42,true); TL_SetExtRight(TL43,true); TL_SetExtRight(TL44,true); TL_SetExtRight(TL45,true); TL_SetExtRight(TL46,true); TL_SetSize(TL41,2); TL_SetSize(TL42,2); TL_SetSize(TL43,2); TL_SetSize(TL44,2); TL_SetSize(TL45,2); TL_SetSize(TL46,2); }

아래 날짜 수식 요청드립니다. 용도는 기준 구간으로 시뮬레이션을 하기 위함입니다. 1) 입력 숫자 하루치의 결과물 옵션 금월물 첫날 기준 ex)옵션 금월물 첫째날만 거래 input: n(1) ex)옵션 금월물 둘째날만 거래 input: n(2) ex)옵션 금월물 세째날만 거래 input: n(3) 2) 첫날부터 입력한 숫자까지 기간의 결과물 옵션 금월물 첫날 기준 ex)옵션 금월물 첫째날 거래 input: n(1) ex)옵션 금월물 첫째에서 둘째날까지 거래 input: n(2) ex)옵션 금월물 첫째에서 세째날까지 거래 input: n(3) 3) 매월 첫째날 하루 거래. 휴일인 경우 그 다음 영업일 수동입력 가능하게 예시일 표기바람. ex) 1999 09 09 4) 매월 말일날 하루 거래. 휴일인 경우 그 전 영업일 수동입력 가능하게 예시일 표기바람. ex) 1999 09 09

선물차트 기준으로 문의드립니다. 1. 240틱차트에 1분봉차트의 삼각가중평균 200선,360선을 나타나게 하려면 어떻게 해야 하는지요? 2. 240틱차트에 5분봉차트의 삼각가중평균 200선,360선을 나타나게 하려면 어떻게 해야 하는지요? 삼각가중평균의 기간값은 수정가능하게 부탁드립니다. 항상 감사드립니다. 수고하세요!!!

안녕하세요 첨부판 파일과 같이 지표에 표기 하고 싶은데,,, 수식 문의 드립니다.

과거봉은 배제하고 입력한 시간부터 계산하는 수식을 추가해주세요 input:계산시간(103000) **************************************************************************************** 안녕하세요 예스스탁입니다. var : t(0),hh(0),ll(0); if bdate != bdate[1] then { t = 0; hh = h; ll = l; var1 = 0; var11 = 0; var2 = 0; var22 = 0; } Else { if h > hh Then { t = 1; if t != t[1] Then { var1 = 0; var11 = var1[1]; } hh = h; var1 = var1+1; if var1 == 1 and var2 >= 3 and var11 >= 5 Then buy(); } if l < ll Then { t = -1; if t != t[1] Then { var2 = 0; var22 = var2[1]; } ll = l; var2 = var2+1; if var2 == 1 and var1 >= 3 and var22 >= 5 Then sell(); } } 즐거운 하루되세요 > 좌오비우오비 님이 쓴 글입니다. > 제목 : 당일 하이로우 갱신 > 아래 수식 문의드립니다. 1. buy 수식 고점을 5회 갱신하고 저점을 3회 갱신한 후 다시 새로운 고점을 1회 갱신하면 buy 2. sell 수식 저점을 5회 갱신하고 고점을 3회 갱신한 후 다시 새로운 저점을 1회 갱신하면 sell

66019 재질문 부탁 드립니다.

항상 도움을 주셔서 감사드림니다. 수익내기가 참 어렵네요..ㅠㅠㅠ 휩소때문에 맨붕일때가 많아 다음과 같은 수식이 구현이 가능할지 도와주세요~~ 현재 제가 사용하고 있는 매수청산 수식은 다음과 같습니다. if MarketPosition == 1 then { BuySetup = false; if countif(CrossDown(CCIv,CCI값),BarsSinceEntry) >= 1 and CCIv < CCI값 and C < O Then ExitLong("매수cci청산"); if highest(H,BarsSinceEntry) >= EntryPrice+PriceScale*즉시익절1 and C < O Then ExitLong("즉시익절1"); if highest(H,BarsSinceEntry) >= (EntryPrice+PriceScale*즉시익절1*N2) Then ExitLong("본전청산1",AtStop,EntryPrice+PriceScale*즉시익절1*N3); Else ExitLong("즉시손절1",AtStop,EntryPrice-PriceScale*즉시손절1); } 그중에 즉시 손절 관련된 사항인데요.. 손절되는 사항이 되더라도 한번더 기회를 갖는 수식을 구현하고 싶습니다. 현재 수식은 즉시손절 값이 되면 바로 손절하는 수식인데요.. 해당 수식을 변경하고 싶습니다. 손절되는 시점에 손절하지 않고 다음봉에서 손절되는 시점의 봉의 최저점을 이탈시 즉시손절 하는 수식을 변경을 요청드림니다. 그림을 보면 이해될것 같네요.. 그런 수식 부탁드리겠습니다.

수고하십니다 아래 수식을 예스수식 (상승네모)적색,(하락네모)청색, 검색식으로부탁드립니다 *상승 다이버전스 A=Lowest(c,14); B= RSI(14); A(1) >A && B(1) < B 위 수식은 14봉중 최저가는 하락하고, RSI(14)는 상승할때 신호를 나타내는 수식입니다. * 하락 다이버전스 F = Highest(c, 14); G = RSI(14); F(1) < F && G(1) > G 위 수식은 14봉중 최고가는 상승하고, RSI(14)는 하락할때 신호를 나타내는 수식입니다.

늘 감사드립니다. 항셍 특정봉 고가돌파매수 저가이탈매도 수식 부탁 드립니다. 조금 더 자세히는, 1. 개장시점인 10:15분에서 오전장 폐장시간인 13:00까지는, 첫 10분 ((추후 제가 가령 5분이나 30분 등으로 수정 내지 최적화 해 보려고 합니다)), 즉 10:15~10:25사이의 고가돌파매수 ((고가를 상향돌파할 때 매수)), 저가이탈매도 ((저가를 하향이탈할 때 매도)). 2. 점심시간 지난 후 재개장 후 시간인 14:00~17:30까지에는, 재개장 직후 10분간, 즉 14:00~14:10 사이의 고가돌파매수, 저가이탈매도 3, 저녁 재개장~ 새벽 폐장시간인 18:15~04:00까지는, 그 시간대 첫 10분간, 즉 18:15~18:25 사이의 고가돌파매수, 저가이탈매도 대단히 감사합니다.

4등분선 또는 시고저 라인을 응용하여 다음 같은 수식이 필요합니다 1분봉에서는 5분봉과 30분봉의 고점가격 중심값가격 저가가격 < 상위 차트 봉이 완성되면.. 선이 표현 되면 됩니다> 즉 총 6개의 선이 표현 됩니다... 5분봉에서는 30분봉과 360분봉 (중심값은 30분의 중심값) 5분봉에서는 30분봉과 일봉 (중심값은 30분의 중심값) 30분봉에서는 일봉과 360분봉 (중심값은 일봉의 중심값) 30분봉에서는 일봉과 주봉 (중심값은 일봉의 중심값) 일봉에서는 주봉과 월봉이 (중심값은 주봉의 중심값) 필요합니다.. 그리고 항셍의 경우 시작시간이 다르기에 .. 항셍은 따로 부탁드립니다.. 또한 표현되는 수식에서 상위차트가 음봉이면 파랑.. 양봉이면 빨간색으로 표현되고 부탁드리구요.. 아래 수식의 응용버전으로 만들어 주시면 될듯 합니다 감사합니다 ======================= 안녕하세요 예스스탁입니다. 선의 굵기가 굵으면 점선으로 지정해도 해당 사이가 붙게 됩니다. 굵기는 모두 0으로 지정했습니다. 조절해 보시기 바랍니다. 1 월봉 var : OO(0),HH(0),LL(0),DD(0),TT(0); var : TL1(0),TL2(0),TL3(0),TL4(0); if bdate > bdate[1]+30 Then { OO = O; HH = H; LL = L; DD = sdate; TT = stime; TL1 = TL_New(DD,TT,HH,DD,TT,LL); TL2 = TL_New(DD,TT,HH,DD,TT,HH); TL3 = TL_New(DD,TT,LL,DD,TT,LL); TL4 = TL_New(DD,TT,HH,DD,TT,LL); } else { if OO > 0 then { if H > HH Then HH = H; if L < LL Then LL = L; TL_SetBegin(TL1,DD,TT,HH); TL_SetEnd(TL1,DD,TT,LL); TL_SetBegin(TL2,DD,TT,HH); TL_SetEnd(TL2,sdate,stime,HH); TL_SetBegin(TL3,DD,TT,LL); TL_SetEnd(TL3,sdate,stime,LL); TL_SetBegin(TL4,sdate,stime,HH); TL_SetEnd(TL4,sdate,stime,LL); } } If OO <= C Then { TL_SetColor(TL1,RED); TL_SetColor(TL2,RED); TL_SetColor(TL3,RED); TL_SetColor(TL4,RED); } Else { TL_SetColor(TL1,BLUE); TL_SetColor(TL2,BLUE); TL_SetColor(TL3,BLUE); TL_SetColor(TL4,BLUE); } TL_SetSize(TL1,0); //좌측세로선 굵기 TL_SetSize(TL2,0); //상단가로선 굵기 TL_SetSize(TL3,0); //하측가로선 굵기 TL_SetSize(TL4,0); //우측세로선 굵기 TL_SetStyle(TL1,3); //좌측세로선 점선 TL_SetStyle(TL4,3); //우측세로선 점선 2 주봉 var : OO(0),HH(0),LL(0),DD(0),TT(0); var : TL1(0),TL2(0),TL3(0),TL4(0); if DayOfWeek(bdate) < DayOfWeek(bdate[1]) Then { OO = O; HH = H; LL = L; DD = sdate; TT = stime; TL1 = TL_New(DD,TT,HH,DD,TT,LL); TL2 = TL_New(DD,TT,HH,DD,TT,HH); TL3 = TL_New(DD,TT,LL,DD,TT,LL); TL4 = TL_New(DD,TT,HH,DD,TT,LL); } else { if OO > 0 then { if H > HH Then HH = H; if L < LL Then LL = L; TL_SetBegin(TL1,DD,TT,HH); TL_SetEnd(TL1,DD,TT,LL); TL_SetBegin(TL2,DD,TT,HH); TL_SetEnd(TL2,sdate,stime,HH); TL_SetBegin(TL3,DD,TT,LL); TL_SetEnd(TL3,sdate,stime,LL); TL_SetBegin(TL4,sdate,stime,HH); TL_SetEnd(TL4,sdate,stime,LL); } } If OO <= C Then { TL_SetColor(TL1,RED); TL_SetColor(TL2,RED); TL_SetColor(TL3,RED); TL_SetColor(TL4,RED); } Else { TL_SetColor(TL1,BLUE); TL_SetColor(TL2,BLUE); TL_SetColor(TL3,BLUE); TL_SetColor(TL4,BLUE); } TL_SetSize(TL1,0); //좌측세로선 굵기 TL_SetSize(TL2,0); //상단가로선 굵기 TL_SetSize(TL3,0); //하측가로선 굵기 TL_SetSize(TL4,0); //우측세로선 굵기 TL_SetStyle(TL1,3); //좌측세로선 점선 TL_SetStyle(TL4,3); //우측세로선 점선 3 일봉 var : OO(0),HH(0),LL(0),DD(0),TT(0); var : TL1(0),TL2(0),TL3(0),TL4(0); if bdate > bdate[1] Then { OO = O; HH = H; LL = L; DD = sdate; TT = stime; TL1 = TL_New(DD,TT,HH,DD,TT,LL); TL2 = TL_New(DD,TT,HH,DD,TT,HH); TL3 = TL_New(DD,TT,LL,DD,TT,LL); TL4 = TL_New(DD,TT,HH,DD,TT,LL); } else { if OO > 0 then { if H > HH Then HH = H; if L < LL Then LL = L; TL_SetBegin(TL1,DD,TT,HH); TL_SetEnd(TL1,DD,TT,LL); TL_SetBegin(TL2,DD,TT,HH); TL_SetEnd(TL2,sdate,stime,HH); TL_SetBegin(TL3,DD,TT,LL); TL_SetEnd(TL3,sdate,stime,LL); TL_SetBegin(TL4,sdate,stime,HH); TL_SetEnd(TL4,sdate,stime,LL); } } If OO <= C Then { TL_SetColor(TL1,RED); TL_SetColor(TL2,RED); TL_SetColor(TL3,RED); TL_SetColor(TL4,RED); } Else { TL_SetColor(TL1,BLUE); TL_SetColor(TL2,BLUE); TL_SetColor(TL3,BLUE); TL_SetColor(TL4,BLUE); } TL_SetSize(TL1,0); //좌측세로선 굵기 TL_SetSize(TL2,0); //상단가로선 굵기 TL_SetSize(TL3,0); //하측가로선 굵기 TL_SetSize(TL4,0); //우측세로선 굵기 TL_SetStyle(TL1,3); //좌측세로선 점선 TL_SetStyle(TL4,3); //우측세로선 점선 4 다른분봉 input : ntime(30); var : S1(0),D1(0),TM(0),TF(0),cnt(0); var : OO(0),HH(0),LL(0),DD(0),TT(0); var : TL1(0),TL2(0),TL3(0),TL4(0); if Bdate != Bdate[1] Then { S1 = TimeToMinutes(stime); D1 = sdate; } if D1 > 0 then { if sdate == D1 Then TM = TimeToMinutes(stime)-S1; Else TM = TimeToMinutes(stime)+1440-S1; TF = TM%ntime; if Bdate != Bdate[1] or (Bdate == Bdate[1] and ntime > 1 and TF < TF[1]) or (Bdate == Bdate[1] and ntime > 1 and TM >= TM[1]+ntime) or (Bdate == Bdate[1] and ntime == 1 and TM > TM[1]) Then { OO = O; HH = H; LL = L; DD = sdate; TT = stime; TL1 = TL_New(DD,TT,HH,DD,TT,LL); TL2 = TL_New(DD,TT,HH,DD,TT,HH); TL3 = TL_New(DD,TT,LL,DD,TT,LL); TL4 = TL_New(DD,TT,HH,DD,TT,LL); } else { if OO > 0 then { if H > HH Then HH = H; if L < LL Then LL = L; TL_SetBegin(TL1,DD,TT,HH); TL_SetEnd(TL1,DD,TT,LL); TL_SetBegin(TL2,DD,TT,HH); TL_SetEnd(TL2,sdate,stime,HH); TL_SetBegin(TL3,DD,TT,LL); TL_SetEnd(TL3,sdate,stime,LL); TL_SetBegin(TL4,sdate,stime,HH); TL_SetEnd(TL4,sdate,stime,LL); } } If OO <= C Then { TL_SetColor(TL1,RED); TL_SetColor(TL2,RED); TL_SetColor(TL3,RED); TL_SetColor(TL4,RED); } Else { TL_SetColor(TL1,BLUE); TL_SetColor(TL2,BLUE); TL_SetColor(TL3,BLUE); TL_SetColor(TL4,BLUE); } TL_SetSize(TL1,0); //좌측세로선 굵기 TL_SetSize(TL2,0); //상단가로선 굵기 TL_SetSize(TL3,0); //하측가로선 굵기 TL_SetSize(TL4,0); //우측세로선 굵기 TL_SetStyle(TL1,3); //좌측세로선 점선 TL_SetStyle(TL4,3); //우측세로선 점선 } 5. 항셍 월봉 input : ntime(101500); var : D1(0),D2(0); var : OO(0),HH(0),LL(0),DD(0),TT(0); var : TL1(0),TL2(0),TL3(0),TL4(0); if (sdate != sdate[1] and stime >= ntime) or (sdate == sdate[1] and stime >= ntime and stime[1] < ntime) then { var1 = sdate; var2 = var1[1]; if var1 > var2+30 Then { OO = O; HH = H; LL = L; DD = sdate; TT = stime; TL1 = TL_New(DD,TT,HH,DD,TT,LL); TL2 = TL_New(DD,TT,HH,DD,TT,HH); TL3 = TL_New(DD,TT,LL,DD,TT,LL); TL4 = TL_New(DD,TT,HH,DD,TT,LL); } } else { if OO > 0 then { if H > HH Then HH = H; if L < LL Then LL = L; TL_SetBegin(TL1,DD,TT,HH); TL_SetEnd(TL1,DD,TT,LL); TL_SetBegin(TL2,DD,TT,HH); TL_SetEnd(TL2,sdate,stime,HH); TL_SetBegin(TL3,DD,TT,LL); TL_SetEnd(TL3,sdate,stime,LL); TL_SetBegin(TL4,sdate,stime,HH); TL_SetEnd(TL4,sdate,stime,LL); If OO <= C Then { TL_SetColor(TL1,RED); TL_SetColor(TL2,RED); TL_SetColor(TL3,RED); TL_SetColor(TL4,RED); } Else { TL_SetColor(TL1,BLUE); TL_SetColor(TL2,BLUE); TL_SetColor(TL3,BLUE); TL_SetColor(TL4,BLUE); } } TL_SetSize(TL1,0); //좌측세로선 굵기 TL_SetSize(TL2,0); //상단가로선 굵기 TL_SetSize(TL3,0); //하측가로선 굵기 TL_SetSize(TL4,0); //우측세로선 굵기 TL_SetStyle(TL1,3); //좌측세로선 점선 TL_SetStyle(TL4,3); //우측세로선 점선 } 6. 항셍 주봉 input : ntime(101500); var : D1(0),D2(0); var : OO(0),HH(0),LL(0),DD(0),TT(0); var : TL1(0),TL2(0),TL3(0),TL4(0); if (sdate != sdate[1] and stime >= ntime) or (sdate == sdate[1] and stime >= ntime and stime[1] < ntime) then { var1 = sdate; var2 = var1[1]; if dayofweek(var1) < DayOfWeek(var2) Then { OO = O; HH = H; LL = L; DD = sdate; TT = stime; TL1 = TL_New(DD,TT,HH,DD,TT,LL); TL2 = TL_New(DD,TT,HH,DD,TT,HH); TL3 = TL_New(DD,TT,LL,DD,TT,LL); TL4 = TL_New(DD,TT,HH,DD,TT,LL); } } else { if OO > 0 then { if H > HH Then HH = H; if L < LL Then LL = L; TL_SetBegin(TL1,DD,TT,HH); TL_SetEnd(TL1,DD,TT,LL); TL_SetBegin(TL2,DD,TT,HH); TL_SetEnd(TL2,sdate,stime,HH); TL_SetBegin(TL3,DD,TT,LL); TL_SetEnd(TL3,sdate,stime,LL); TL_SetBegin(TL4,sdate,stime,HH); TL_SetEnd(TL4,sdate,stime,LL); If OO <= C Then { TL_SetColor(TL1,RED); TL_SetColor(TL2,RED); TL_SetColor(TL3,RED); TL_SetColor(TL4,RED); } Else { TL_SetColor(TL1,BLUE); TL_SetColor(TL2,BLUE); TL_SetColor(TL3,BLUE); TL_SetColor(TL4,BLUE); } } TL_SetSize(TL1,0); //좌측세로선 굵기 TL_SetSize(TL2,0); //상단가로선 굵기 TL_SetSize(TL3,0); //하측가로선 굵기 TL_SetSize(TL4,0); //우측세로선 굵기 TL_SetStyle(TL1,3); //좌측세로선 점선 TL_SetStyle(TL4,3); //우측세로선 점선 } 7. 항셍 일봉 input : ntime(101500); var : D1(0),D2(0); var : OO(0),HH(0),LL(0),DD(0),TT(0); var : TL1(0),TL2(0),TL3(0),TL4(0); if (sdate != sdate[1] and stime >= ntime) or (sdate == sdate[1] and stime >= ntime and stime[1] < ntime) then { OO = O; HH = H; LL = L; DD = sdate; TT = stime; TL1 = TL_New(DD,TT,HH,DD,TT,LL); TL2 = TL_New(DD,TT,HH,DD,TT,HH); TL3 = TL_New(DD,TT,LL,DD,TT,LL); TL4 = TL_New(DD,TT,HH,DD,TT,LL); } else { if OO > 0 then { if H > HH Then HH = H; if L < LL Then LL = L; TL_SetBegin(TL1,DD,TT,HH); TL_SetEnd(TL1,DD,TT,LL); TL_SetBegin(TL2,DD,TT,HH); TL_SetEnd(TL2,sdate,stime,HH); TL_SetBegin(TL3,DD,TT,LL); TL_SetEnd(TL3,sdate,stime,LL); TL_SetBegin(TL4,sdate,stime,HH); TL_SetEnd(TL4,sdate,stime,LL); If OO <= C Then { TL_SetColor(TL1,RED); TL_SetColor(TL2,RED); TL_SetColor(TL3,RED); TL_SetColor(TL4,RED); } Else { TL_SetColor(TL1,BLUE); TL_SetColor(TL2,BLUE); TL_SetColor(TL3,BLUE); TL_SetColor(TL4,BLUE); } } TL_SetSize(TL1,0); //좌측세로선 굵기 TL_SetSize(TL2,0); //상단가로선 굵기 TL_SetSize(TL3,0); //하측가로선 굵기 TL_SetSize(TL4,0); //우측세로선 굵기 TL_SetStyle(TL1,3); //좌측세로선 점선 TL_SetStyle(TL4,3); //우측세로선 점선 } 8. 항셍 다른분봉 input : ntime(30); var : S1(0),D1(0),TM(0),TF(0),cnt(0); var : OO(0),HH(0),LL(0),DD(0),TT(0); var : TL1(0),TL2(0),TL3(0),TL4(0); if (sdate != sdate[1] and stime >= 101500) or (sdate == sdate[1] and stime >= 101500 and stime[1] < 101500) Then { S1 = TimeToMinutes(stime); D1 = sdate; } if D1 > 0 then { if sdate == D1 Then TM = TimeToMinutes(stime)-S1; Else TM = TimeToMinutes(stime)+1440-S1; TF = TM%ntime; if D1 != D1[1] or (D1 == D1[1] and ntime > 1 and TF < TF[1]) or (D1 == D1[1] and ntime > 1 and TM >= TM[1]+ntime) or (D1 == D1[1] and ntime == 1 and TM > TM[1]) Then { OO = O; HH = H; LL = L; DD = sdate; TT = stime; TL1 = TL_New(DD,TT,HH,DD,TT,LL); TL2 = TL_New(DD,TT,HH,DD,TT,HH); TL3 = TL_New(DD,TT,LL,DD,TT,LL); TL4 = TL_New(DD,TT,HH,DD,TT,LL); } else { if OO > 0 then { if H > HH Then HH = H; if L < LL Then LL = L; TL_SetBegin(TL1,DD,TT,HH); TL_SetEnd(TL1,DD,TT,LL); TL_SetBegin(TL2,DD,TT,HH); TL_SetEnd(TL2,sdate,stime,HH); TL_SetBegin(TL3,DD,TT,LL); TL_SetEnd(TL3,sdate,stime,LL); TL_SetBegin(TL4,sdate,stime,HH); TL_SetEnd(TL4,sdate,stime,LL); } } If OO <= C Then { TL_SetColor(TL1,RED); TL_SetColor(TL2,RED); TL_SetColor(TL3,RED); TL_SetColor(TL4,RED); } Else { TL_SetColor(TL1,BLUE); TL_SetColor(TL2,BLUE); TL_SetColor(TL3,BLUE); TL_SetColor(TL4,BLUE); } TL_SetSize(TL1,0); //좌측세로선 굵기 TL_SetSize(TL2,0); //상단가로선 굵기 TL_SetSize(TL3,0); //하측가로선 굵기 TL_SetSize(TL4,0); //우측세로선 굵기 TL_SetStyle(TL1,3); //좌측세로선 점선 TL_SetStyle(TL4,3); //우측세로선 점선 } 즐거운 하루되세요 > 삼족오 님이 쓴 글입니다. > 제목 : 문의드립니다 > Input:분봉(5); Var:OO(0),HH(0),LL(0),TL1(0),TL2(0),TL3(0),TL4(0); Value1 = 분봉/BarInterval; Value2 = DayIndex()%Value1; If Value2 == 0 Then { OO = O; HH = H; LL = L; } Else { HH = Max(HH,H); LL = Min(LL,L); } If Value2 == Value1 - 1 or time==iff(CodeCategory()<3,150000,151500) then { TL1 = TL_New(Date[Value2],sTime[Value2],LL,Date[Value2],sTime[Value2],HH); TL2 = TL_New(Date[Value2],sTime[Value2],HH,Date,sTime,HH); TL3 = TL_New(Date[Value2],sTime[Value2],LL,Date,sTime,LL); TL4 = TL_New(Date,sTime,LL,Date,sTime,HH); If OO <= C Then { TL_SetColor(TL1,RED); TL_SetColor(TL2,RED); TL_SetColor(TL3,RED); TL_SetColor(TL4,RED); } Else { TL_SetColor(TL1,BLUE); TL_SetColor(TL2,BLUE); TL_SetColor(TL3,BLUE); TL_SetColor(TL4,BLUE); } } TL_SetSize(TL1,1); TL_SetSize(TL2,1); TL_SetSize(TL3,1); TL_SetSize(TL4,1); ============================================= 위 수식을 응용해서요.. 월봉을 주봉에 표현하고 주봉을 일봉에 표현하고 일봉을 360분봉에 표현하고 360분봉을 30분에 표현하고 30분을 5분에 표현하고 5분을 1분에 표현하게 변경 부탁드립니다... 해외선물 기준입니다... 시작시간을 고려하여 잘 부탁드리구요 사각형이 표현될때 좌측과 우측은 실선으로 부탁드립니다 그리고 항생지수는 기타 해외선물과 시간이 다르니 수식을 따로 부탁드립니다