수고 많으십니다. (수식작성문의) -최근 20일간 거래일수 중에 최근 20일 저가보다 최고가가 70%이상 상승한 종목중, -최근 20일간 최고가에서 20%이상 하락한 종목중, -전일 and 전전일 저가가 5일이평선을 하회한 종목중, -금일종가가 5일이평선을 상회한 종목추출식 부탁드립니다.

개별 종목 분봉 사용중입니다. 다음 식에 당일 거래량이 전일 거래량을 초과시 매도 하는 식을 추가하고 싶습니다. if sdate == 20200917 and stime == 090000 then buy(); if c < ma(C,20) then exitlong(); 즉, 20일선이하로 이탈하거나, 당일 거래량이 전일 거래량 초과시 시장가로 자동매도식을 만들려고 합니다. 항상 감사합니다.

var : Pt(50); var : Price(0),TL1(0); var : TL11(0),TL12(0),TL13(0),TL14(0),TL15(0),TL16(0),TL17(0),TL18(0); var : TL21(0),TL22(0),TL23(0),TL24(0),TL25(0),TL26(0),TL27(0),TL28(0); var1 = int(C/Pt); var2 = var1*Pt; var3 = c-var2; if var3 >= Pt/2 Then Price = var2+Pt; Else Price = var2; if index == 1 or (index > 1 and price != Price[1]) Then { TL_Delete(TL1); TL_Delete(TL11); TL_Delete(TL12); TL_Delete(TL13); TL_Delete(TL14); TL_Delete(TL15); TL_Delete(TL16); TL_Delete(TL17); TL_Delete(TL18); TL_Delete(TL21); TL_Delete(TL22); TL_Delete(TL23); TL_Delete(TL24); TL_Delete(TL25); TL_Delete(TL26); TL_Delete(TL27); TL_Delete(TL28); TL1 = TL_New(sdate[1],stime[1],Price,sdate,stime,Price); TL11 = TL_New(sdate[1],stime[1],Price+pt*1,sdate,stime,Price+pt*1); TL12 = TL_New(sdate[1],stime[1],Price+pt*2,sdate,stime,Price+pt*2); TL13 = TL_New(sdate[1],stime[1],Price+pt*3,sdate,stime,Price+pt*3); TL14 = TL_New(sdate[1],stime[1],Price+pt*4,sdate,stime,Price+pt*4); TL15 = TL_New(sdate[1],stime[1],Price+pt*5,sdate,stime,Price+pt*5); TL16 = TL_New(sdate[1],stime[1],Price+pt*6,sdate,stime,Price+pt*6); TL17 = TL_New(sdate[1],stime[1],Price+pt*7,sdate,stime,Price+pt*7); TL18 = TL_New(sdate[1],stime[1],Price+pt*8,sdate,stime,Price+pt*8); TL21 = TL_New(sdate[1],stime[1],Price-pt*1,sdate,stime,Price-pt*1); TL22 = TL_New(sdate[1],stime[1],Price-pt*2,sdate,stime,Price-pt*2); TL23 = TL_New(sdate[1],stime[1],Price-pt*3,sdate,stime,Price-pt*3); TL24 = TL_New(sdate[1],stime[1],Price-pt*4,sdate,stime,Price-pt*4); TL25 = TL_New(sdate[1],stime[1],Price-pt*5,sdate,stime,Price-pt*5); TL26 = TL_New(sdate[1],stime[1],Price-pt*6,sdate,stime,Price-pt*6); TL27 = TL_New(sdate[1],stime[1],Price-pt*7,sdate,stime,Price-pt*7); TL28 = TL_New(sdate[1],stime[1],Price-pt*8,sdate,stime,Price-pt*8); TL_SetExtLeft(TL1,true); TL_SetExtLeft(TL11,true); TL_SetExtLeft(TL12,true); TL_SetExtLeft(TL13,true); TL_SetExtLeft(TL14,true); TL_SetExtLeft(TL15,true); TL_SetExtLeft(TL16,true); TL_SetExtLeft(TL17,true); TL_SetExtLeft(TL18,true); TL_SetExtLeft(TL21,true); TL_SetExtLeft(TL22,true); TL_SetExtLeft(TL23,true); TL_SetExtLeft(TL24,true); TL_SetExtLeft(TL25,true); TL_SetExtLeft(TL26,true); TL_SetExtLeft(TL27,true); TL_SetExtLeft(TL28,true); TL_SetExtRight(TL1,true); TL_SetExtRight(TL11,true); TL_SetExtRight(TL12,true); TL_SetExtRight(TL13,true); TL_SetExtRight(TL14,true); TL_SetExtRight(TL15,true); TL_SetExtRight(TL16,true); TL_SetExtRight(TL17,true); TL_SetExtRight(TL18,true); TL_SetExtRight(TL21,true); TL_SetExtRight(TL22,true); TL_SetExtRight(TL23,true); TL_SetExtRight(TL24,true); TL_SetExtRight(TL25,true); TL_SetExtRight(TL26,true); TL_SetExtRight(TL27,true); TL_SetExtRight(TL28,true); } TL_setcolor(TL1,rgb(153,153,153)); TL_setcolor(TL11,rgb(153,153,153)); TL_setcolor(TL12,rgb(153,153,153)); TL_setcolor(TL13,rgb(153,153,153)); TL_setcolor(TL14,rgb(153,153,153)); TL_setcolor(TL15,rgb(153,153,153)); TL_setcolor(TL16,rgb(153,153,153)); TL_setcolor(TL17,rgb(153,153,153)); TL_setcolor(TL18,rgb(153,153,153)); TL_setcolor(TL21,rgb(153,153,153)); TL_setcolor(TL22,rgb(153,153,153)); TL_setcolor(TL23,rgb(153,153,153)); TL_setcolor(TL24,rgb(153,153,153)); TL_setcolor(TL25,rgb(153,153,153)); TL_setcolor(TL26,rgb(153,153,153)); TL_setcolor(TL27,rgb(153,153,153)); TL_setcolor(TL28,rgb(153,153,153)); ///////////////////////////////////////////////////////////////// Array : upLine[20](0),dnLine[20](0); var : cnt(0),mdline(0); if bdate != bdate[1] then{ var1 = int(C/50); var2 = var1*50; TL_Delete(mdLine); mdLine = TL_New(sdate[1],stime[1],var2,sdate,stime,var2); TL_SetExtLeft(mdLine,true); TL_SetExtRight(mdLine,true); for cnt = 1 to 19{ TL_Delete(upLine[cnt]); TL_Delete(dnLine[cnt]); upLine[cnt] = TL_New(sdate[1],stime[1],var2+50*cnt,sdate,stime,var2+50*cnt); dnLine[cnt] = TL_New(sdate[1],stime[1],var2-50*cnt,sdate,stime,var2-50*cnt); TL_SetExtLeft(upLine[cnt],true); TL_SetExtLeft(dnLine[cnt],true); TL_SetExtRight(upLine[cnt],true); TL_SetExtRight(dnLine[cnt],true); } } TL_setcolor(mdline,rgb(153,153,153)); TL_setcolor(upLine[1],rgb(153,153,153)); TL_setcolor(dnLine[1],rgb(153,153,153)); TL_setcolor(upLine[2],rgb(153,153,153)); TL_setcolor(dnLine[2],rgb(153,153,153)); TL_setcolor(upLine[3],rgb(153,153,153)); TL_setcolor(dnLine[3],rgb(153,153,153)); TL_setcolor(upLine[4],rgb(153,153,153)); TL_setcolor(dnLine[4],rgb(153,153,153)); TL_setcolor(upLine[5],rgb(153,153,153)); TL_setcolor(dnLine[5],rgb(153,153,153)); TL_setcolor(upLine[6],rgb(153,153,153)); TL_setcolor(dnLine[6],rgb(153,153,153)); ////////// 50포인트단위 가로선 수식2개입니다. 지표식으로 보고 있는데 화면을 확대하면 선이 사라졌다 생겼다가 해서요. 화면을 확대해도 선이 그대로 유지되게 할 순 없을까요? 수정 부탁드립니다. 선의 색상은 rgb(153,153,153)이구요. 감사합니다.~

안녕하세요. 계속 일봉으로의 변환 요청 드렸는데 매번 감사드립니다. 1) 아래 식은 지표인데요. 분봉에서 일봉 기준으로 사용하고 싶습니다. 변환요청 부탁드립니다.. 매번 감사합니다. for문 같은 경우 data2가 안먹기도 하고.. 시스템을 종목을 돌려보면서 해보려다보니 data2로는 어려운 점이 많네요. 2) 전체 종목을 돌려볼 수 있는 기능은 개발 일정에 없으신지 궁금합니다. 예를들면.. pgDn 버튼을 누르면 다음 종목으로 이동 input : PeriodAR(10); var : Counter(0), Lowval(0), Highval(0), DownVel(0),UpVel(0), DnAroon(0),UpAroon(0) ; Lowval= Lowest(Low, PeriodAR+1); Highval = Highest(High, PeriodAR+1); For counter= 0 To PeriodAR { If Low[counter] == Lowval Then DownVel = counter; If High[counter] == highval Then UpVel = counter; } DnAroon = 100*(PeriodAR-DownVel)/PeriodAR; UpAroon = 100*(PeriodAR-UpVel)/PeriodAR; Input : shortPeriod(12), longPeriod(26), PeriodMACD(9); Var : valueMACD(0) , macdosc(0) ; valueMACD = MACD(shortPeriod, longPeriod); Input : PeriodDMI(14) ; var : DMIv(0),DP(0),DM(0); DMIv = DMI(PeriodDMI); DP = DIPlus(PeriodDMI); DM = DIMinus(PeriodDMI); Input : PeriodRSI(9); var : Relative(0), val(0); Relative = RSI(PeriodRSI); val = 0; if UpAroon >= DnAroon and valueMACD >= ma(valueMACD, 9) and DP > DM and Relative >= ma(Relative, 5) Then { val = H*1.1; Plot1(val, "D"); }

안녕하세요. 아래에서 일목표 수익(200틱), 일손절(300틱) 추가해 주시고, 매수 진입후 청산시 매수 재진입은 하지 않고 매도 신호만 진입하고, 매도 진입후 청산시 매도 재진입은 하지 않고 매수 신호만 진입하도록 수정 부탁드립니다. // 매매시간 Input : starttime(90000),endtime(050000); Var : cond1(false),cond2(false); Var : Tcond(false); if (sdate != sdate[1] and stime >= starttime) or (sdate == sdate[1] and stime >= starttime and stime[1] < starttime) then { Tcond = true; } if (sdate != sdate[1] and stime >= endtime) or (sdate == sdate[1] and stime >= endtime and stime[1] < endtime) then { Tcond = false; } // 매매 Input : shortPeriod(12), longPeriod(26), ST(100), TP(100); Var : value(0); value = MACD(shortPeriod, longPeriod); # 매수/매도청산 If Tcond and CrossUP(value, 0) Then { Buy(); } # 매도/매수청산 If Tcond and CrossDown(value, 0) Then { Sell(); } //청산 If MarketPosition == 1 Then ExitLong("EB", AtStop, EntryPrice - ST*PriceScale); If MarketPosition == -1 then ExitShort("ES", AtStop, EntryPrice + ST*PriceScale); If MarketPosition == 1 Then Exitlong("XB", atlimit, EntryPrice + TP*PriceScale); If MarketPosition == -1 Then ExitShort("XS", atlimit, EntryPrice - TP*PriceScale); //종가청산 If (sdate != sdate[1] and stime >= endtime) or (sdate == sdate[1] and stime >= endtime and stime[1] < endtime) then { if MarketPosition == 1 Then ExitLong("bx",AtMarket); if MarketPosition == -1 Then ExitShort("sx",AtMarket); }

안녕하세요 담당자님 우선 감사 드립니다. 아래 지그재그에 chngRate이 다른 지그재그선을 하나 더 그어보고 싶은데요 어떻게 해야되는지 문의 드립니다. 예를 들어 0.1짜리 지그재그 한개 0.5짜리 지그재그 한개 이렇게 표시되게 만들고 싶습니다. 미리 답변에 대한 감사 드립니다. Input:chngRate(0.1); Var:j(0),lastHiVal(0),lastLoVal(0),turnPntBit(""),TL1(0),T(0); Array:valArr[10](0),barArr[10](0),turnPntArr[10](""); For j = 0 To 9 { barArr[j] = barArr[j] + 1; } Condition1 = Min(valArr[1],valArr[2]) * (1 + (chngRate/100)) < H and lastHiVal < H; Condition2 = Max(valArr[1],valArr[2]) * (1 - (chngRate/100)) > L and (lastLoVal > L || lastLoVal == 0); If Condition1 Then { lastHiVal = H; lastLoVal = 0; } If Condition2 Then { lastLoVal = L; lastHiVal = 0; } turnPntBit = ""; If Condition1 and Condition2 Then { If Max(valArr[1],valArr[2]) < H and Min(valArr[1],valArr[2]) > L Then turnPntBit = "HiLo"; Else If Max(valArr[1],valArr[2]) < H Then turnPntBit = "Hi"; Else If Min(valArr[1],valArr[2]) > L Then turnPntBit = "Lo"; } Else If Condition1 Then turnPntBit = "Hi"; Else If Condition2 Then turnPntBit = "Lo"; If turnPntBit <> "" Then { If turnPntBit == "HiLo" Then { valArr[1] = IFF(turnPntArr[1] == "Hi",H,L); barArr[1] = 0; TL_SetEnd(TL1,sDate[barArr[1]+20],sTime[barArr[1]+20],valArr[1]); If turnPntArr[1] == "Hi" Then turnPntBit = "Lo"; Else turnPntBit = "Hi"; } If turnPntBit <> turnPntArr[1] Then { for j = 8 downto 1 { valArr[j+1] = valArr[j]; barArr[j+1] = barArr[j]; turnPntArr[j+1] = turnPntArr[j]; } } If turnPntBit <> turnPntArr[1] or (turnPntBit == turnPntArr[1] and ((turnPntBit == "Hi" and valArr[1] < H) or (turnPntBit == "Lo" and valArr[1] > L))) Then { valArr[1] = IFF(turnPntBit == "Hi",H,L); barArr[1] = 0; turnPntArr[1] = turnPntBit; If turnPntArr[1][1] <> turnPntArr[1][0] Then { TL1 = TL_New(sDate[barArr[2]],sTime[barArr[2]],valArr[2],sDate[barArr[1]],sTime[barArr[1]],valArr[1]); } Else TL_SetEnd(TL1,sDate[barArr[1]],sTime[barArr[1]],valArr[1]); } } TL_SetSize(TL1,2); TL_SetColor(TL1,blue); if turnPntArr[1][0]== "Hi" Then T = 1; if turnPntArr[1][0]== "Lo" Then T = -1; if T == 1 and CrossUp(C,(valarr[2]+valArr[3])/2) Then Buy(); if T == -1 and CrossDown(C,(valarr[2]+valArr[3])/2) Then Sell();

안녕하세요 관리자님 우선 감사 드립니다. 일전에 Y축 분리 문의를 드렸는데 Y축은 분리 하였으나 분리된 지표를 가지고 시스템을 만들려고 하는데 신호가 표시가 안되서요 Input : Period1(20), Percent1(6), Period2(30), Percent2(6); var : DNline1(0),DNline2(0),HRwave1(0); Dnline1 = EnvelopeDown(Period1, Percent1); Dnline2 = EnvelopeDown(Period2, Percent2); HRwave1 = ((Dnline2-Dnline1)/(Dnline2+Dnline1))*100000; If crossup(0,HRwave1) Then { Buy(); } 예전 답변은 아래와 같습니다. 안녕하세요 예스스탁입니다. 하나의 지표식에 가격대가 너무 차이가 나는 지표가 혼합되어 있습니다. 문의하신 내용은 수식을 분리하셔야 합니다. 하나의 식으로 분리해서 표시할 방법은 없습니다. plot1~plot6은 봉위에 적용되어 봉과 축을 같이 사용할수 있지만 plot7과 PlotBaseLine1은 봉과 값차이가 많이나는 지표입니다. 1 수식작성후에 문범검증(f4)을 하시고 f5키를 누르시면 지표속성이 나타납니다. Y축표시를 가격으로 하시면 적용시 바로 봉위에 적용됩니다. 지표는 기본설정이 화면으로 봉차트 아래에 적용됩니다. Input : Period1(20), Percent1(6), Period2(30), Percent2(6); var : center1(0),UPline1(0),DNline1(0),center2(0),UPline2(0),DNline2(0); center1 = ma(C, Period1); UPline1 = EnvelopeUp(Period1, Percent1); Dnline1 = EnvelopeDown(Period1, Percent1); center2 = ma(C, Period2); UPline2 = EnvelopeUp(Period2, Percent2); Dnline2 = EnvelopeDown(Period2, Percent2); Plot1(center1, "중앙선"); Plot2(UPline1, "EnvelopeUp"); Plot3(Dnline1, "EnvelopeDown"); Plot4(center2, "중앙선"); Plot5(UPline2, "EnvelopeUp"); Plot6(Dnline2, "EnvelopeDown"); 2 아래식은 Y축표시를 화면으로 하시고 적용하셔야 합니다. Input : Period1(20), Percent1(6), Period2(30), Percent2(6); var : DNline1(0),DNline2(0),HRwave1(0); Dnline1 = EnvelopeDown(Period1, Percent1); Dnline2 = EnvelopeDown(Period2, Percent2); HRwave1 = ((Dnline2-Dnline1)/(Dnline2+Dnline1))*100000; Plot7(HRwave1, "신호"); PlotBaseLine1(0, "기준선1"); 즐거운 하루되세요

* 바쁘신데 확인 좀 부탁 드립니다. * 아래 와 같이 했는데...스위칭 주문이 안됨니다. if MarketPosition == 1 and (IsExitName("StopLoss",1) or IsExitName("StopProfittarget",1)) == true Then SELL("STOPSWSS1") ; if MarketPosition == -1 and (IsExitName("StopLoss,1") or IsExitName("StopProfittarget",1)) == true Then Buy("STOPSWDD1") ; * 다른 변수를 써야 하나요? * 바쁜신데 죄송합니다.

$ 69406 보내주신수식 적용하니 음봉캔들 강조는 되는데 양봉캔들 강조는 아무리해도 나타나지 않습니다,확인부탁합니다.

전일 누적거래량을 분봉에서 구현하려고 하는데요 물론 Dayvolume(1)을 사용하면 간단하게 된다는 걸 알고 있습니다 다만 응용해 보고 싶은 것들이 있어서 물어봅니다 ------------------------- var1 = Accum(V); If bDate!=bDate[1] Then var2 = var1[1]; var3 = var1-var2; Plot1(var3, "test"); 이렇게 하면 당일 누적거래량을 구하는 건데요 이 수식을 응용해서 이것저것 해보았는데 원하는 결과가 나오지 않네요 Dayvolume(1)을 1분봉에서 보려면 수식을 어떻게 짜야 할지 가르쳐주시면 감사하겠습니다