1.아래 지표를 시스템으로 좀 수정 해주세요 #=================#=======================================# Input : signal(5),굵기2(1),굵기3(1),굵기4(1); #=================#=======================================# Var : CC9(0),CC91(0); #=================# CC9 =data7(C); #=================# #=================# CC91 = data4(C); #=================# #===================# Var : MACDV(0) , MACDS(0),T(0); var : HIV(0),HID(0),HIT(0),HIV1(0),HID1(0),HIT1(0),HI(0),HI1(0); var : HPV(0),HPD(0),HPT(0),HPV1(0),HPD1(0),HPT1(0); var : LIV(0),LID(0),LIT(0),LIV1(0),LID1(0),LIT1(0),LI(0),LI1(0); var : LPV(0),LPD(0),LPT(0),LPV1(0),LPD1(0),LPT1(0); var : TL1(0),TL2(0),TX1(0),TX2(0),TX3(0); var : TL3(0),TL4(0),TL5(0),i1(0),i2(0); MACDV = CC9; MACDS = ema(MACDV,signal); if (MACDV >= MACDV[1] and MACDV[1] >= MACDV[2]) Then { T = 1; HIV = MACDV; HID = sdate; HIT = stime; HI = Index; HIV1 = HIV[1]; HID1 = HID[1]; HIT1 = HIT[1]; HPV = H; HPD = sdate; HPT = stime; HI1 = HI[1]; HPV1 = HPV[1]; HPD1 = HPD[1]; HPT1 = HPT[1]; Condition1 = false; } if (MACDV <= MACDV[1] and MACDV[1] <= MACDV[2] ) Then { T = -1; LIV = MACDV; LID = sdate; LIT = stime; LI = Index; LIV1 = LIV[1]; LID1 = LID[1]; LIT1 = LIT[1]; LPV = L; LPD = sdate; LPT = stime; LI1 = LI[1]; LPV1 = LPV[1]; LPD1 = LPD[1]; LPT1 = LPT[1]; Condition2 = false; } if T == 1 Then { if MACDV > HIV Then { HIV = MACDV; HID = sdate; HIT = stime; } if H > HPV Then { HPV = H; HPD = sdate; HPT = stime; } if Condition1 == false and HPV1 > 0 and HPV > HPV1 and HIV < HIV1 and HI <= HI1+30 Then { TL1 = TL_New(HPD1,HPT1,HPV1,HPD,HPT,HPV); TL2 = TL_New_Self(HID1,HIT1,HIV1,HID,HIT,HIV); TL_SetColor(TL1,MAGENTA); TL_SetColor(TL2,MAGENTA); TL_SetSize(TL1,굵기2); TL_SetSize(TL2,굵기2); //tx1 = Text_New(HPD1,HPT1,HPV1,NumToStr(HPV1,2)); //tx2 = Text_New(HPD,HPT,HPV,NumToStr(HPV,2)); //tx3 = Text_New(HPD,HPT,(HPV1+HPV)/2,NumToStr((HPV1+HPV)/2,2)); Text_SetStyle(tx1,2,1); Text_SetStyle(tx2,2,1); //TL3 = TL_New(HPD1,HPT1,HPV1,sdate,stime,HPV1); //TL4 = TL_New(HPD1,HPT1,HPV,HPD,HPT,HPV); //TL5 = TL_New(HPD1,HPT1,(HPV1+HPV)/2,HPD,HPT,(HPV1+HPV)/2); Condition1 = true; } if Condition1 == true then { if HPV > HPV1 and HIV < HIV1 then { TL_SetEnd(TL1,HPD,HPT,HPV); TL_SetEnd(TL2,HID,HIT,HIV); Text_SetLocation(tx2,HPD,HPT,HPV); Text_SetString(tx2,NumToStr(HPV,2)); i1 = index; } Else { TL_Delete(TL1); TL_Delete(TL2); TL_Delete(TL3); TL_Delete(TL4); TL_Delete(TL5); Text_Delete(tx1); Text_Delete(tx2); } } } if T == -1 Then { if MACDV < LIV Then { LIV = MACDV; LID = sdate; LIT = stime; } if L < LPV Then { LPV = L; LPD = sdate; LPT = stime; } if Condition2 == false and LPV1 > 0 and LPV < LPV1 and LIV > LIV1 and LI <= LI1+30 Then { TL1 = TL_New(LPD1,LPT1,LPV1,LPD,LPT,LPV); TL2 = TL_New_Self(LID1,LIT1,LIV1,LID,LIT,LIV); TL_SetColor(TL1,WHITE); TL_SetColor(TL2,WHITE); TL_SetSize(TL1,굵기2); TL_SetSize(TL2,굵기2); //tx1 = Text_New(LPD1,LPT1,LPV1,NumToStr(LPV1,2)); //tx2 = Text_New(LPD,LPT,LPV,NumToStr(LPV,2)); //tx3 = Text_New(LPD,LPT,(LPV1+LPV)/2,NumToStr((LPV1+LPV)/2,2)); Text_SetStyle(tx1,2,1); Text_SetStyle(tx2,2,1); //TL3 = TL_New(LPD1,LPT1,LPV1,sdate,stime,LPV1); //TL4 = TL_New(LPD1,LPT1,LPV,LPD,LPT,LPV); //TL5 = TL_New(LPD1,LPT1,(LPV1+LPV)/2,LPD,LPT,(LPV1+LPV)/2); Condition2 = true; } if Condition2 == true then { if LPV < LPV1 and LIV > LIV1 then { TL_SetEnd(TL1,LPD,LPT,LPV); TL_SetEnd(TL2,LID,LIT,LIV); Text_SetLocation(tx2,LPD,LPT,LPV); Text_SetString(tx2,NumToStr(LPV,2)); i2 = index; } Else { TL_Delete(TL1); TL_Delete(TL2); TL_Delete(TL3); TL_Delete(TL4); TL_Delete(TL5); Text_Delete(tx1); Text_Delete(tx2); } } } if index > i1 and index <= i1+3 Then { TL_SetEnd(tl3,sdate,stime,TL_GetValue(tl3,sdate,stime)); TL_SetEnd(tl4,sdate,stime,TL_GetValue(tl4,sdate,stime)); TL_SetEnd(tl5,sdate,stime,TL_GetValue(tl5,sdate,stime)); } if index > i2 and index <= i2+3 Then { TL_SetEnd(tl3,sdate,stime,TL_GetValue(tl3,sdate,stime)); TL_SetEnd(tl4,sdate,stime,TL_GetValue(tl4,sdate,stime)); TL_SetEnd(tl5,sdate,stime,TL_GetValue(tl5,sdate,stime)); } #=================# Var : MACDV2(0) , MACDS2(0),T2(0); var : HIV2(0),HID2(0),HIT2(0),HIV3(0),HID3(0),HIT3(0),HI2(0),HI3(0); var : HPV2(0),HPD2(0),HPT2(0),HPV3(0),HPD3(0),HPT3(0); var : LIV2(0),LID2(0),LIT2(0),LIV3(0),LID3(0),LIT3(0),LI2(0),LI3(0); var : LPV2(0),LPD2(0),LPT2(0),LPV3(0),LPD3(0),LPT3(0); var : TL26(0),TL27(0),TX26(0),TX27(0),TX28(0); var : TL28(0),TL29(0),TL30(0),TL31(0),i26(0),i27(0); MACDV2 = CC91; MACDS2 = ema(MACDV2,signal); if crossup(MACDV2,MACDS2) Then { T2 = 1; HIV2 = MACDV2; HID2 = sdate; HIT2 = stime; HI2 = Index; HIV3 = HIV2[1]; HID3 = HID2[1]; HIT3 = HIT2[1]; HPV2 = H; HPD2 = sdate; HPT2 = stime; HI3 = HI2[1]; HPV3 = HPV2[1]; HPD3= HPD2[1]; HPT3 = HPT2[1]; Condition1 = false; } if CrossDown(MACDV2,MACDS2) Then { T2 = -1; LIV2 = MACDV2; LID2 = sdate; LIT2 = stime; LI2 = Index; LIV3 = LIV2[1]; LID3 = LID2[1]; LIT3 = LIT2[1]; LPV2 = L; LPD2 = sdate; LPT2 = stime; LI3 = LI2[1]; LPV3 = LPV2[1]; LPD3 = LPD2[1]; LPT3 = LPT2[1]; Condition2 = false; } if T2 == 1 Then { if MACDV2 > HIV2 Then { HIV2 = MACDV2; HID2 = sdate; HIT2 = stime; } if H > HPV2 Then { HPV2 = H; HPD2 = sdate; HPT2 = stime; } if Condition1 == false and HPV3 > 0 and HPV2 > HPV3 and HIV2 < HIV3 and HI2 <= HI3+30 Then { TL26 = TL_New(HPD3,HPT3,HPV3,HPD2,HPT2,HPV2); TL27 = TL_New_Self(HID3,HIT3,HIV3,HID2,HIT2,HIV2); TL_SetColor(TL26,MAGENTA); TL_SetColor(TL27,MAGENTA); TL_SetSize(TL26,굵기3); TL_SetSize(TL27,굵기3); //tx1 = Text_New(HPD1,HPT1,HPV1,NumToStr(HPV1,2)); //tx2 = Text_New(HPD,HPT,HPV,NumToStr(HPV,2)); //tx3 = Text_New(HPD,HPT,(HPV1+HPV)/2,NumToStr((HPV1+HPV)/2,2)); Text_SetStyle(tx26,2,1); Text_SetStyle(tx27,2,1); //TL3 = TL_New(HPD1,HPT1,HPV1,sdate,stime,HPV1); //TL4 = TL_New(HPD1,HPT1,HPV,HPD,HPT,HPV); //TL5 = TL_New(HPD1,HPT1,(HPV1+HPV)/2,HPD,HPT,(HPV1+HPV)/2); Condition1 = true; } if Condition1 == true then { if HPV2 > HPV3 and HIV2 < HIV3 then { TL_SetEnd(TL26,HPD2,HPT2,HPV2); TL_SetEnd(TL27,HID2,HIT2,HIV2); Text_SetLocation(tx27,HPD2,HPT2,HPV2); Text_SetString(tx27,NumToStr(HPV2,2)); i26 = index; } Else { TL_Delete(TL26); TL_Delete(TL27); TL_Delete(TL28); TL_Delete(TL29); TL_Delete(TL30); Text_Delete(tx26); Text_Delete(tx27); } } } if T2 == -1 Then { if MACDV2 < LIV2 Then { LIV2 = MACDV2; LID2 = sdate; LIT2 = stime; } if L < LPV2 Then { LPV2 = L; LPD2 = sdate; LPT2 = stime; } if Condition2 == false and LPV3 > 0 and LPV2 < LPV3 and LIV2 > LIV3 and LI2 <= LI3+30 Then { TL26 = TL_New(LPD3,LPT3,LPV3,LPD2,LPT2,LPV2); TL27 = TL_New_Self(LID3,LIT3,LIV3,LID2,LIT2,LIV2); TL_SetColor(TL26,WHITE); TL_SetColor(TL27,WHITE); TL_SetSize(TL26,굵기3); TL_SetSize(TL27,굵기3); //tx1 = Text_New(LPD1,LPT1,LPV1,NumToStr(LPV1,2)); //tx2 = Text_New(LPD,LPT,LPV,NumToStr(LPV,2)); //tx3 = Text_New(LPD,LPT,(LPV1+LPV)/2,NumToStr((LPV1+LPV)/2,2)); Text_SetStyle(tx26,2,1); Text_SetStyle(tx27,2,1); //TL3 = TL_New(LPD1,LPT1,LPV1,sdate,stime,LPV1); //TL4 = TL_New(LPD1,LPT1,LPV,LPD,LPT,LPV); //TL5 = TL_New(LPD1,LPT1,(LPV1+LPV)/2,LPD,LPT,(LPV1+LPV)/2); Condition2 = true; } if Condition2 == true then { if LPV2 < LPV3 and LIV2 > LIV3 then { TL_SetEnd(TL26,LPD2,LPT2,LPV2); TL_SetEnd(TL27,LID2,LIT2,LIV2); Text_SetLocation(tx27,LPD2,LPT2,LPV2); Text_SetString(tx27,NumToStr(LPV2,2)); i27 = index; } Else { TL_Delete(TL26); TL_Delete(TL27); TL_Delete(TL28); TL_Delete(TL29); TL_Delete(TL30); Text_Delete(tx26); Text_Delete(tx27); } } } if index > i26 and index <= i26+3 Then { TL_SetEnd(tl29,sdate,stime,TL_GetValue(tl29,sdate,stime)); TL_SetEnd(tl30,sdate,stime,TL_GetValue(tl30,sdate,stime)); TL_SetEnd(tl31,sdate,stime,TL_GetValue(tl31,sdate,stime)); } if index > i27 and index <= i27+3 Then { TL_SetEnd(tl29,sdate,stime,TL_GetValue(tl29,sdate,stime)); TL_SetEnd(tl30,sdate,stime,TL_GetValue(tl30,sdate,stime)); TL_SetEnd(tl31,sdate,stime,TL_GetValue(tl31,sdate,stime)); } #===================# plot1(ma(C, DnLevel),"몸통", Black); //음봉이면 파란색 2.그럼 수고하세요

1. 지표수식 LL = Lowest(L,120); 가. 위 지표처럼 120일간의 최저가캔들에서 캔들의 고가와 Min(C,O)의 중심선을 표시하는 가격라인수식(기준가로 설정) 나. 위 기준가 라인은 보통 계단식으로 유지되다가 변경되는데 동일한 기준가로 2회이상 유지되는 경우 <저장기준가>로 저장하고, 현재 기준가이전에 수평가격으로 형성된 저장기준가라인의 마지막봉에 1, 그이전 수평기준가라인 말단봉에 2,...과거봉으로 추적하면서 번호를 4회까지만 표시되게하는 수식. 현재 기준가와 1번,2번,3번,4번간 서로 비교할 수 있게 별도의 저장값 수식도 표시요망. 여기서 주가가 계속 최저가가 갱신되는 경우는 1회이하의 동일가격이므로 무시되어 번호 카운팅하면 안됨. 따라서 가격비교를 위한 저장값을 가지면 안되고 2회이상 유지된 라인 가격만 저장. 단. 단 여기서 1봉전까지는 최저가가 하락하다가 당일 0봉전캔들에서는 더이상 전일 최저가를 하락 갱신하지 않는 경우에는 위 기준가는 변동되지않고 1봉전기준가와 0봉전기준가는 동일하므로 연속 2회이상 동일 기준가로 변동이 없으므로 0번이 표시 되고 <저장기준가>로 저장되어 종목검색시의 비교 저장기준가가 된다. 연속2이상 동일 한 기준가인 라인을 하나의 라인으로 보고 번호를 저장하되 현재의 캔들이 포함된 동일한 기준가인 경우는 0번에 저장하고, 현재의 캔들이 포함되지 않은 현재 이전의 최근라인부터는 1번부터 부여해 간다는 의미이고, 돌파검색의 기준은 우선 0번부터 시작되고 0번값이 없으면 1번값이 기준이 된다. 2. 종목검색수식 위 <1-나>에 저장된 가격을 비교하여 돌파하는 종목을 검색하고자 하는 수식. 현재의 기준가은 1번 저장기준가보다 같거나 낮고, 시가종가로 1번 저장기준가을 돌파할 때의 종목검색수식. 단. 0번 저장기준가가 발생하는 경우는 이 가격돌파시 검색되어야 함. 부연하면 시가종가상으로 단순히 1봉전 기준가을 돌파할때의 검색이 아니고 현재의 기준가이전에 형성된 가장 최근의 2회연속 동일한 가격으로 형성된 저장기준가(1번저장 값 똔는 0번 저장가가 우선임)를 돌파할때의 종목 검색수식임

안녕하세요? 일전에 친절한 안내 잘 받았습니다(91686번글). 바쁘실텐데 항상 친절하고 성심 성의껏 응대 해주셔서 항상 감사합니다. 말씀하신대로 data1을 구별하여 시스템을 적용시켜 보았는데, 처음에는 청산식이 없는 것 같아, 신호가 안나오는 듯하여 청산식으로 ATR을 사용하여 만들어 보았더니 시스템이 작동하는 듯하였습니다. 그런데 제가 원하는 시스템은 data2의 macd 오실래이터가 양수일때,data1의 macd 오실래이터가 양수인 경우 매수신호가, macd 오실래이터가 음수일때,data1의 macd 오실래이터가 음수인 경우 매도신호가, 나오는 것인데, data2의 macd 오실래이터가 양수일때,data1의 macd 오실래이터가 음수인 경우에도 매수신호가,계속 나옵니다.혹은 그 반대의 경우에도 다른 신호가 계속 나옵니다. 코딩이 뭐가 잘 못 된것인지 다시 한번 봐 주시면 감사하겠습니다, 미리 감사 인사 올립니다. input : shortPeriod(12),longPeriod(26),Period(9); input : P1(12),P2(26),P3(9); Input : H1(10),L1(10); Var : macdv1(0,Data1),macds1(0,Data1),macdo1(0,Data1); var : macdv2(0,data2),macds2(0,data2),macdo2(0,Data2); var : mav(0,Data1); macdv1 = data1(MACD(shortPeriod, longPeriod)); macds1 = data1(ema(macdv1,Period)); macdo1 = macdv1-macds1; macdv2 = data2(MACD(P1,P2)); macds2 = data2(ema(macdv2,P3)); macdo2 = macdv2-macds2; mav = data1(ema(C,26)); if marketposition == 0 and macdo1 > 0 and macdo2 > 0 and (C >= mav+data1(PriceScale*H1)) Then Buy("L"); if marketposition == 0 and macdo1 < 0 and macdo2 < 0 and (C <= mav-data1(PriceScale*L1)) Then Sell("S"); ### ATR Trailing LX(매수청산)### Inputs: ATRs_L(3); Variables: PosHigh(0,Data1), ATRVal_L(0,Data1); ATRVal_L = data1(ATR(10) * ATRs_L); If BarsSinceEntry() == 0 Then PosHigh = High; If MarketPosition() == 1 Then Begin If High > PosHigh Then PosHigh = High; ExitLong ("ATRS", AtStop, PosHigh - ATRVal_L); End else ExitLong("ATR ebs", AtStop, High - ATRVal_L); ### ATR Trailing SX(매도청산)### Inputs: ATRs_S(3); Variables: PosLow(0,Data1), ATRVal_S(0,Data1); ATRVal_S = data1(ATR(10) * ATRs_S); If BarsSinceEntry() == 0 Then PosLow = Low; If MarketPosition() == -1 Then Begin If Low < PosLow Then PosLow = Low; ExitShort ("ATRL", AtStop, PosLow + ATRVal_S); End else ExitShort ("ATR ebL", AtStop, Low + ATRVal_S);

다=Lowest(L(1),기간); 바=Highest(H(1),기간); 스=Valuewhen(1,BarsSince(L<다(1))==(기간-간격),바) (기간:15, 간격:3) 위 수식으로 그어지는 다바스 상단선을 상향돌파하는 종목을 검색코자 합니다. 예스 수식이 가능할까요?

안녕하세요. 검색식 문의 드립니다. A:볼린저밴드 하한선(20,2)값이 볼린저밴드 하한선(50,2)값보다 작을때 조건 B:볼린저밴드 상한선(20,2)값이 볼린저밴드 상한선(50,2)값보다 클때 조건 1)A or B 2)A and B 부탁드립니다.

항상 노고에 감사드림니다. 아래의 수식을 종목검색식으로 부탁드림니다. A=ma(c,5,단순); B=ma(c,20,단순); B1=ma(c,120,단순); CrossUp(A,B) && A>A(1) && C>O && MACD(12,26)>0 && B1<C

아래의 글을 보시면 말씀하신데로 메세지로그 함수를 이용해서 디버깅 창에서 avgentryprice 값을 확인 해봤습니다. 확인 결과 1~3타점까지 매수 하고 4타점에서 매수후 4타점만 매도 했을경우 평단이 다시 올라가는걸 확인할수 있었습니다. 요청사항으로 1. 내부변수로 평단가를 저장하고 싶은데, 저장하는 시스템식 추가 부탁드립니다. 생각으로는 각 타점당 매수했을때 수량과 평단을 저장하여 ((평단 x 수량) + (마지막타점 x 마지막 타점 수량)) / 전체수량 이런식으로 평단을 저장하면 될것 같은데 하다가 잘 안되서 요청드립니다. 2. 그림 1을 보시면 4타점 매수, 4타점 매도익절 후 당일 다시 매수타점이 왔는데, 매수가 안되고 다음날 매수가 되었습니다. 매수식을 봐도 당일날 매수가 안되는 이유가 없는데, 왜 안되는지 확인 부탁드리겠습니다. ------------------------------------------------------------- 안녕하세요 예스스탁입니다. 평단가는 avgEntryPrice 함수가 진입가격 수량등으로 정확히 계산해 리턴합니다. 지금 현재봉 기준 전체 진입의 평단가는 avgEntryPrice값을 이용하시면 되고 진입횟수로 저장하고자 하시면 이전 답변받으신 내용과 같이 특정 진입횟수 이하일때 평단가를 저장해 사용하시면 됩니다. messagelog함수로 수식 안에서 계산된 값들을 디버깅창에 출력해서 확인해 보시기 바랍니다. 즐거운 하루되세요 > 맴맴잉 님이 쓴 글입니다. > 제목 : 시스템식 요청드립니다. > 방금 밑에 수식 요청드렸었는데 수정하셧던 식을 적용하였더니 그림 1과 같이 나오게 되었습니다. 그래서 일부 수정하여 그림 2와 같이 나오게 되었는데 궁금한점은 1~6차 까지 매수하면서 4~6차의 경우 매수매도가 반복 되면서 평단이 밑으로 많이 내려갔을것 같은데 정확히 평단이 얼마인지는 알수 없나요?? 그리고 아래의 시스템식으로 적용 하면 내려간 평단에서 3% 가 되었을때 익절이 되는게 맞는건지 궁금합니다. ----------------------------------------------------------- input : N(14),금액(2000000); input : 시작날짜 (20250109); Input : 기준선기간(120); Var : 기준선(0); var : cntt(0),H1(0),L1(0); var : cnt(0),sum(0),mav(0),DD(0); var : AP(0),TT(0),entry(False); var : LL(0),RR(0),rate(0); var : 저항(0), B1(0) ; Var : day(0),EntryDay(0),ddd(0),ED(0); var : sum1(0),sum2(0),sum3(0),avg4(0); #------------------------------------- if sDate >= 시작날짜 Then { if Bdate != Bdate[1] Then { entry = true; day = day+1; dd = dd+1; } } if TotalTrades > TotalTrades[1] Then entry = False; #------------------------------------- #------------------------------------- sum = 0; For cnt = 0 to N-1 { sum = sum + DayClose(cnt); } mav = (sum/N); #------------------------------------- #--------------------------------------- if (MarketPosition == 0) and (entry == true) and L > mav Then Buy("1차매수",AtLimit,mav,Floor(금액/min(NextBarOpen,mav))); if MarketPosition == 1 and (LatestEntryName(0) == "1차매수") and L > LatestEntryPrice(0)*0.95 Then Buy("2차매수",AtLimit,LatestEntryPrice(0)*0.95,Floor(금액*1.15/min(NextBarOpen,mav))); if MarketPosition == 1 and (LatestEntryName(0) == "2차매수") and L > LatestEntryPrice(0)*0.95 Then Buy("3차매수",AtLimit,LatestEntryPrice(0)*0.95,Floor(금액*1.2/min(NextBarOpen,mav))); if MarketPosition == 1 and (LatestEntryName(0) == "3차매수" or LatestExitName(0) == "4차이후익절4" or LatestExitName(0) == "4차이후익절5") or LatestExitName(0) == "4차이후익절6" and L <= LatestEntryPrice(0)*0.95 Then Buy("4차매수",AtLimit,LatestEntryPrice(0)*0.95,Floor(금액*1.25/min(NextBarOpen,mav))); if MarketPosition == 1 and (LatestEntryName(0) == "4차매수" or LatestExitName(0) == "4차이후익절5") or LatestExitName(0) == "4차이후익절6" and L <= LatestEntryPrice(0)*0.95 Then Buy("5차매수",AtLimit,LatestEntryPrice(0)*0.95,Floor(금액*1.3/min(NextBarOpen,mav))); if MarketPosition == 1 and (LatestEntryName(0) == "5차매수" or LatestExitName(0) == "4차이후익절6") and L <= LatestEntryPrice(0)*0.95 Then Buy("6차매수",AtLimit,LatestEntryPrice(0)*0.95,Floor(금액*1.35/min(NextBarOpen,mav))); #----------------------------------- if MarketPosition == 1 Then { #전봉대비 수량 감소(일부 청산발생을 위미) if CurrentContracts < CurrentContracts[1] Then { #청산가 저장 var1 = LatestExitPrice(0); if LatestExitName(0) == "3%익절" or LatestExitName(0) == "3-D%익절" or LatestExitName(0) == "3-E%익절" Then Condition1 = true; if LatestExitName(0) == "4%익절" or LatestExitName(0) == "4-D%익절" or LatestExitName(0) == "4-E%익절" Then Condition2 = true; if LatestExitName(0) == "5%익절" or LatestExitName(0) == "5-D%익절" or LatestExitName(0) == "5-E%익절" Then Condition3 = true; if LatestExitName(0) == "7%익절" or LatestExitName(0) == "7-D%익절" Then Condition4 = true; } #전봉대비 수량 증가(추가 진입발생을 의미) if CurrentContracts > CurrentContracts[1] AND ((LatestEntryName(0) == "1차매수") OR (LatestEntryName(0) == "2차매수") or (LatestEntryName(0) == "3차매수") ) Then { #현재수량 저장 Var3 = CurrentContracts; Var4 = AvgEntryPrice; Condition1 = False; Condition2 = False; Condition3 = False; Condition4 = False; } if CurrentContracts > CurrentContracts[1] AND ((LatestEntryName(0) == "4차매수")) Then { #현재수량 저장 Var3 = CurrentContracts; Var4 = AvgEntryPrice; Condition1 = False; Condition2 = False; Condition3 = False; Condition4 = False; } if CurrentContracts > CurrentContracts[1] AND ((LatestEntryName(0) == "6차매수") or (LatestEntryName(0) == "5차매수")) Then { #현재수량 저장 Var3 = CurrentContracts; Var4 = AvgEntryPrice; Condition1 = False; Condition2 = False; Condition3 = False; Condition4 = False; } if CurrentEntries <= 2 and var1 > 0 and C < Var4*1.007 then ExitLong("bx"); if Condition1 == False AND ((LatestEntryName(0) == "1차매수") OR (LatestEntryName(0) == "2차매수") or (LatestEntryName(0) == "3차매수") )Then ExitLong("3%익절",AtLimit,Var4*1.02,"",Floor(Var3*0.2),1); if Condition2 == False AND ((LatestEntryName(0) == "1차매수") OR (LatestEntryName(0) == "2차매수") or (LatestEntryName(0) == "3차매수") ) Then ExitLong("4%익절",AtLimit,Var4*1.04,"",Floor(Var3*0.3),1); if Condition3 == False AND ((LatestEntryName(0) == "1차매수") OR (LatestEntryName(0) == "2차매수") or (LatestEntryName(0) == "3차매수") ) Then ExitLong("5%익절",AtLimit,Var4*1.05,"",Floor(Var3*0.4),1); if Condition4 == False AND ((LatestEntryName(0) == "1차매수") OR (LatestEntryName(0) == "2차매수") or (LatestEntryName(0) == "3차매수") ) Then ExitLong("7%익절",AtLimit,Var4*1.07,"",Floor(Var3*0.1),1); ExitLong("10%익절",AtLimit,Var4*1.10); //4차 이상 진입 if CurrentEntries >= 4 Then { //4차 이후의 평듄 if CurrentContracts > CurrentContracts[1] Then { sum1 = sum1 + C*(CurrentContracts-CurrentContracts[1]); sum2 = sum2 + (CurrentContracts-CurrentContracts[1]); avg4 = sum1/sum2; } if CurrentEntries >= 4 Then ExitLong("4차이후익절4",AtLimit,avg4*1.045,"4차매수"); if CurrentEntries >= 5 Then ExitLong("4차이후익절5",AtLimit,avg4*1.045,"5차매수"); if CurrentEntries >= 6 Then ExitLong("4차이후익절6",AtLimit,avg4*1.045,"6차매수"); } Else { sum1 = 0; sum2 = 0; avg4 = 0; } } Else#매수진입중이 아니면 { #변수 0으로 초기화 var1 = 0; Var2 = 0; } #MessageLog("%.f",AvgEntryPrice);

아래 코딩에서 30분의 사각선에서 30분의 최고점과 최저점을 30분 사각의 중앙(위쪽의 그림과 같이 30분 사각형 중앙)에 나타낼 수 있을 까요? 그림에서 수기로 그린 부분과 같습니다 항상 감사드립니다. input : ntime1(30); var : SS1(0),DD1(0),TTM(0),TTF(0); var : SM1(0),m3var(0), m3L(0), cnt(0); Array : Mb30[100](0); if Bdate != Bdate[1] Then{ SS1 = TimeToMinutes(0); DD1 = sdate; } if DD1 > 0 then{ if sdate == DD1 Then TTM = TimeToMinutes(stime)-SS1; Else TTM = TimeToMinutes(stime)+1440-SS1; TTF = TTM%ntime1; if Bdate != Bdate[1] or sTime == 90000 or // 90000 (Bdate == Bdate[1] && ntime1 > 1 && TTF < TTF[1]) or (Bdate == Bdate[1] && ntime1 > 1 && TTM >= TTM[1]+ntime1) or (Bdate == Bdate[1] && ntime1 == 1 && TTM > TTM[1]) Then { m3L = 1; } else m3L = 0; // 30봉 선 그리기 var : TL11(0),TL12(0),TL13(0),TL14(0),idx2(-1); var : M3date(0), M3time(0), StrtV(0), m3UD(0), mrCl(0); if m3L == 1 Then{ idx2 = 0; StrtV = O; M3date = sdate; M3time = stime; } else{ idx2 = idx2+1; if idx2 > 0 then{ if idx2 == 1 then{ TL11 = TL_New(sdate[1],stime[1],StrtV, sdate, stime, StrtV); TL12 = TL_New(M3date, M3time, O, sdate, stime, C); TL13 = TL_New(M3date, M3time, StrtV, M3date,M3time,C); TL14 = TL_New(sdate, stime, StrtV, sdate, stime, C); } else { TL_SetEnd(TL11,sdate,stime,StrtV); TL_SetBegin(TL12,M3date, M3time,C); TL_SetEnd( TL12,sdate,stime,C); TL_SetBegin(TL13,M3date,M3time,StrtV); TL_SetEnd( TL13,M3date,M3time,C); TL_SetBegin(TL14,sdate,stime,StrtV); TL_SetEnd( TL14,sdate,stime,C); } if C > StrtV Then{ TL_SetColor(TL11,RGB(235,000,000)); TL_SetColor(TL12,RGB(235,000,000)); TL_SetColor(TL13,RGB(235,000,000)); TL_SetColor(TL14,RGB(235,000,000)); TL_SetSize(TL11,0); TL_SetSize(TL12,0); TL_SetSize(TL13,0); TL_SetSize(TL14,0); } else { TL_SetColor(TL11,RGB(000,000,235)); TL_SetColor(TL12,RGB(000,000,235)); TL_SetColor(TL13,RGB(000,000,235)); TL_SetColor(TL14,RGB(000,000,235)); TL_SetSize(TL11,0); TL_SetSize(TL12,0); TL_SetSize(TL13,0); TL_SetSize(TL14,0); } } }