덧붙여 수정을 부탁드렸던 내용을 빠트리신 것 같습니다. 바쁘신 와중에도 친절히 봐주시고 항상 감사드리고 있습니다. 다시 부탁드립니다. ************ 고쳐주신 수식에 추가 덧붙여서 아래수식 upv, dnv을 (70,30을 가격에 plot1,2로 그린 것처럼) plot3,4로 가격에 표시하고 싶습니다. RSIv = RSI(RSI_Period); upv = Ma(RSIv,BB_Period) + D1 * std(RSIv,BB_Period); dnv = ma(RSIv,BB_Period) - D1 * std(RSIv,BB_Period) ; 부탁드리겠습니다. 감사합니다. Input : Length(9); Var : Counter(0), DownAmt(0), UpAmt(0), UpSum(0), DownSum(0), UpAvg(0), DownAvg(0),RSIV(0),Current(0); var : cnt1(0),current1(0),UpAmt1(0),DownAmt1(0),UpAvg1(0),DownAvg1(0),RSIv1(0); var : cnt2(0),current2(0),UpAmt2(0),DownAmt2(0),UpAvg2(0),DownAvg2(0),RSIv2(0); var : upPrice(0),dnPrice(0); If CurrentBar == 1 AND Length > 0 Then Begin UpSum = 0; DownSum = 0; For Counter = 0 To Length - 1 Begin UpAmt = C[Counter] - C[Counter+1]; If UpAmt >= 0 Then DownAmt = 0; Else Begin DownAmt = -UpAmt; UpAmt = 0; End; UpSum = UpSum + UpAmt; DownSum = DownSum + DownAmt; End; UpAvg = UpSum / Length; DownAvg = DownSum / Length; End Else If CurrentBar > 1 AND Length > 0 Then Begin UpAmt = C[0] - C[1]; If UpAmt >= 0 Then DownAmt = 0; Else Begin DownAmt = -UpAmt; UpAmt = 0; End; UpAvg = (UpAvg[1] * (Length - 1) + UpAmt) / Length; DownAvg = (DownAvg[1] * (Length - 1) + DownAmt) / Length; End; If UpAvg + DownAvg <> 0 Then RSIv = 100 * UpAvg / (UpAvg + DownAvg); Else RSIv = 0; IF rsiv[1] >= 30 AND rsiv[1] <= 70 Then { for cnt1 = 0 to 100 { Current1 = C+PriceScale*cnt1; UpAmt1 = current1 - C[1]; If UpAmt1 >= 0 Then DownAmt1 = 0; Else Begin DownAmt1 = -UpAmt1; UpAmt1 = 0; End; UpAvg1 = (UpAvg[1] * (Length - 1) + UpAmt1) / Length; DownAvg1 = (DownAvg[1] * (Length - 1) + DownAmt1) / Length; If UpAvg1 + DownAvg1 <> 0 Then RSIv1 = 100 * UpAvg1 / (UpAvg1 + DownAvg1); Else RSIv1 = 0; IF rsiv1 >= 70 Then { upPrice = CURRENT1; cnt1 = 101; } } for cnt2 = 0 to 100 { Current2 = C-PriceScale*cnt2; UpAmt2 = current2 - C[1]; If UpAmt2 >= 0 Then DownAmt2 = 0; Else Begin DownAmt2 = -UpAmt2; UpAmt2 = 0; End; UpAvg2 = (UpAvg[1] * (Length - 1) + UpAmt2) / Length; DownAvg2 = (DownAvg[1] * (Length - 1) + DownAmt2) / Length; If UpAvg2 + DownAvg2 <> 0 Then RSIv2 = 100 * UpAvg2 / (UpAvg2 + DownAvg2); Else RSIv2 = 0; IF rsiv2 <= 30 Then { dnPrice = CURRENT2; cnt2 = 101; } } plot1(upPrice); plot2(dnPrice); } 즐거운 하루되세요 > 흑수돌 님이 쓴 글입니다. > 제목 : 수식 재문의 > 지난번에 도움 받았던 수식입니다만, 깔아보니 그림과 같이 나옵니다. 하단선만 저멀리 떨어져 있는데, 어디가 잘못된 것인지 찾을 길이 없어 다시 문의드립니다. 이를 수정하고, 본 수식에 추가 덧붙여서 아래수식 upv, dnv을 (70,30을 가격에 plot1,2로 그린 것처럼) plot3,4로 가격에 표시하고 싶습니다. RSIv = RSI(RSI_Period); upv = Ma(RSIv,BB_Period) + D1 * std(RSIv,BB_Period); dnv = ma(RSIv,BB_Period) - D1 * std(RSIv,BB_Period) ; 부탁드리겠습니다. 감사합니다.

보조차트를 이용하여 Z값을 설정하고 싶습니다. data2(c)와 data3(c)와 data4(c) 3개를 비교하여 - 가장 큰 값과 가장 작은 값의 합을 Z라 한다 ex) (-10, 1, 15)이면 z는 5 ex) (5, -10, 7)이면 z는 -3 - 데이트레이딩 - 금일 발생봉 적용 z 수식 부탁드립니다.

수고 많으십니다. 키움 영웅문의 검색식을 예스스탁 검색식으로 사용하고져 합니다. 동일조건으로 검색 될 수 있도록 부탁드립니다. ★ 검색식 - 주가등락률: [일] 0봉전(중) 시가(종가) 대비 0봉전 종가(시가) 등락률 10% 이상 # 첨부 - 주가등락률

지난번에 도움 받았던 수식입니다만, 깔아보니 그림과 같이 나옵니다. 하단선만 저멀리 떨어져 있는데, 어디가 잘못된 것인지 찾을 길이 없어 다시 문의드립니다. 이를 수정하고, 본 수식에 추가 덧붙여서 아래수식 upv, dnv을 (70,30을 가격에 plot1,2로 그린 것처럼) plot3,4로 가격에 표시하고 싶습니다. RSIv = RSI(RSI_Period); upv = Ma(RSIv,BB_Period) + D1 * std(RSIv,BB_Period); dnv = ma(RSIv,BB_Period) - D1 * std(RSIv,BB_Period) ; 부탁드리겠습니다. 감사합니다. Input : Length(9); Var : Counter(0), DownAmt(0), UpAmt(0), UpSum(0), DownSum(0), UpAvg(0), DownAvg(0),RSIV(0),Current(0); var : cnt1(0),current1(0),UpAmt1(0),DownAmt1(0),UpAvg1(0),DownAvg1(0),RSIv1(0); var : cnt2(0),current2(0),UpAmt2(0),DownAmt2(0),UpAvg2(0),DownAvg2(0),RSIv2(0); var : upPrice(0),dnPrice(0); If CurrentBar == 1 AND Length > 0 Then Begin UpSum = 0; DownSum = 0; For Counter = 0 To Length - 1 Begin UpAmt = C[Counter] - C[Counter+1]; If UpAmt >= 0 Then DownAmt = 0; Else Begin DownAmt = -UpAmt; UpAmt = 0; End; UpSum = UpSum + UpAmt; DownSum = DownSum + DownAmt; End; UpAvg = UpSum / Length; DownAvg = DownSum / Length; End Else If CurrentBar > 1 AND Length > 0 Then Begin UpAmt = C[0] - C[1]; If UpAmt >= 0 Then DownAmt = 0; Else Begin DownAmt = -UpAmt; UpAmt = 0; End; UpAvg = (UpAvg[1] * (Length - 1) + UpAmt) / Length; DownAvg = (DownAvg[1] * (Length - 1) + DownAmt) / Length; End; If UpAvg + DownAvg <> 0 Then RSIv = 100 * UpAvg / (UpAvg + DownAvg); Else RSIv = 0; IF rsiv[1] >= 30 AND rsiv[1] <= 70 Then { for cnt1 = 0 to 100 { Current1 = C+PriceScale*cnt1; UpAmt1 = current1 - C[1]; If UpAmt1 >= 0 Then DownAmt1 = 0; Else Begin DownAmt1 = -UpAmt1; UpAmt1 = 0; End; UpAvg1 = (UpAvg[1] * (Length - 1) + UpAmt1) / Length; DownAvg1 = (DownAvg[1] * (Length - 1) + DownAmt1) / Length; If UpAvg1 + DownAvg1 <> 0 Then RSIv1 = 100 * UpAvg1 / (UpAvg1 + DownAvg1); Else RSIv1 = 0; IF rsiv1 >= 70 Then { upPrice = CURRENT1; cnt1 = 101; } } for cnt2 = 0 to 100 { Current2 = C-PriceScale*cnt1; UpAmt2 = current2 - C[1]; If UpAmt2 >= 0 Then DownAmt2 = 0; Else Begin DownAmt2 = -UpAmt2; UpAmt2 = 0; End; UpAvg2 = (UpAvg[1] * (Length - 1) + UpAmt2) / Length; DownAvg2 = (DownAvg[1] * (Length - 1) + DownAmt2) / Length; If UpAvg2 + DownAvg2 <> 0 Then RSIv2 = 100 * UpAvg2 / (UpAvg2 + DownAvg2); Else RSIv2 = 0; IF rsiv2 <= 30 Then { dnPrice = CURRENT2; cnt2 = 101; } } plot1(upPrice); plot2(dnPrice); }

안녕하세요! reverse 지표에 대한 타주기 수식 부탁드려요!! 타분봉간 60분 reverse를 1분에 표시... ** reverse 지표 ** ------------------ Input : Short(12), Long(24); value1 = accumN(C-C[1],Short); value2 = accumN(C-C[1],Long); value3 = iff(C>C[1],C-C[1],0); value4 = iff(C<C[1],C-C[1],0); If value1 > 0 Then plot1(value1*(-100)/accumN(value3,Short), "reverse1"); Else plot1(value1*100/accumN(value4,Short), "reverse1"); If value2 > 0 then plot2(value2*(-100)/accumN(value3,Long),"reverse2"); Else plot2(value2*100/accumN(value4,Long),"reverse2"); PlotBaseLine1(0, "기준선 0"); PlotBaseLine2(75, "기준선 75"); PlotBaseLine3(-75, "기준선 -75"); -----------------------------------------

각 항목별로 수식변환 부탁드립니다. [일]0봉전 윗그림자가 몸통의 50%이하고 아래그림자가 10%이하인 양봉 [일]0봉전 아래그림자가 몸통의 50%이하고 윗그림자가 10%이하 음봉

도움 주셔서 항상 감사드립니다. 아래에 찍히는 점을 plot로 차트에 남길 수 있도록 수정 부탁드립니다. 파동이 확정된 뒤, 지난 파동들의 값을 가져오는거라. 쉽게 생각하고 따로 언급드리지 않았습니다.. 번거롭게 해드려 죄송합니다. 부탁드리겠습니다. 안녕하세요 예스스탁입니다. 추가된 TL24,TL25 추세선내용 참고하셔서 필요한 갯수만큼 확장하시기 바랍니다. input:length(6); Var:j(0),jj(0),HH(0),LL(0),최종고가(0),최종저가(0),최종꼭지점(""),처리구분(""), TL1(0),Text1(0),TL2(0),TL3(0),TL4(0),TL5(0),TL12(0),TL13(0),TL14(0),TL15(0),T(0); Array:고[10,4](0),저[10,4](0); // 1:가격,2:Index,3:sDate,4:sTime var : TL24(0),TL25(0); #==========================================# HH = IFF(0==1,C,H); LL = IFF(0==1,C,L); If Index == 0 Then { 고[1,1] = HH; 저[1,1] = LL; } Condition1 = Highest(HH,length) == HH and 최종고가 <> HH; Condition2 = Lowest (LL,length) == LL and 최종저가 <> LL; 처리구분 = ""; If Condition1 and Condition2 Then // 기간고점과 기간저점 동시 발생 { If 최종꼭지점 == "저점" Then { If 저[1,1] > LL Then 처리구분 = "저점처리"; Else 처리구분 = "고점처리"; } Else If 최종꼭지점 == "고점" Then { If 고[1,1] < HH Then 처리구분 = "고점처리"; Else 처리구분 = "저점처리"; } } Else If Condition1 Then 처리구분 = "고점처리"; Else If Condition2 Then 처리구분 = "저점처리"; #==========================================# If 처리구분 == "고점처리" Then { T = 1; 최종고가 = HH; // 신규고점을 체크하기 위해 저장 If 최종꼭지점 == "저점" Then { For j = 10 DownTo 2 { For jj = 1 To 4 { 고[j,jj] = 고[j-1,jj]; } } 고[1,1] = HH; 고[1,2] = Index; 고[1,3] = sDate; 고[1,4] = sTime; TL1 = TL_New(저[1,3],저[1,4],저[1,1],고[1,3],고[1,4],고[1,1]); If 1 == 1 Then { Text1 = Text_New(고[1,3],고[1,4],고[1,1],NumToStr(고[1,1],2)); Text_SetStyle(Text1, 0, 1); Text_SetColor(Text1,WHITE); } TL_SetSize(TL1,1); TL_SetColor(TL1,WHITE); } Else If 고[1,1] < HH Then // 1번 고점보다 높은 고가 출현 { 고[1,1] = HH; 고[1,2] = Index; 고[1,3] = sDate; 고[1,4] = sTime; TL_SetEnd(TL1,고[1,3],고[1,4],고[1,1]); // 시작점은 변동없고 끝점의 위치가 현재 봉으로 연장된 것임 If 1 == 1 Then { Text_SetLocation(Text1,고[1,3],고[1,4],고[1,1]); Text_SetString(Text1,NumToStr(고[1,1],2)); } } 최종꼭지점 = "고점"; } #==========================================# If 처리구분 == "저점처리" Then { T = -1; 최종저가 = LL; If 최종꼭지점 == "고점" then { For j = 10 DownTo 2 { For jj = 1 To 4 { 저[j,jj] = 저[j-1,jj]; } } 저[1,1] = LL; 저[1,2] = Index; 저[1,3] = sDate; 저[1,4] = sTime; TL1 = TL_New(고[1,3],고[1,4],고[1,1],저[1,3],저[1,4],저[1,1]); If 1 == 1 Then { Text1 = Text_New(저[1,3],저[1,4],저[1,1],NumToStr(저[1,1],2)); Text_SetStyle(Text1, 0, 0); Text_SetColor(Text1,WHITE); } TL_SetSize(TL1,1); TL_SetColor(TL1,WHITE); } Else If 저[1,1] > LL then { 저[1,1] = LL; 저[1,2] = Index; 저[1,3] = sDate; 저[1,4] = sTime; TL_SetEnd(TL1,저[1,3],저[1,4],저[1,1]); If 1 == 1 Then { Text_SetLocation(Text1,저[1,3],저[1,4],저[1,1]); Text_SetString(Text1,NumToStr(저[1,1],2)); } } 최종꼭지점 = "저점"; } if T == -1 and T[1] != -1 Then { TL2 = TL_New(고[2,3],고[2,4],고[2,1],sdate,stime,고[2,1]); TL_Delete(TL3); TL3 = TL_New(고[1,3],고[1,4],고[1,1],sdate,stime,고[1,1]); TL_SetExtRight(TL3,true); TL_SetSize(TL2,3); TL_SetColor(TL2,RED); TL_SetSize(TL3,3); TL_SetColor(TL3,RED); TL12 = TL_New(고[2,3],고[2,4],고[2,1],sdate,stime,고[2,1]); TL_Delete(TL13); TL13 = TL_New(고[1,3],고[1,4],고[1,1],sdate,stime,고[1,1]); TL_SetExtRight(TL13,true); TL_SetSize(TL12,1); TL_SetColor(TL12,RED); TL_SetSize(TL13,1); TL_SetColor(TL13,RED); TL_Delete(TL24); TL_Delete(TL25); TL24 = TL_New(고[1,3],고[1,4],고[1,1]-abs(고[2,1]-저[2,1]),sdate,stime,고[1,1]-abs(고[2,1]-저[2,1])); TL25 = TL_New(고[1,3],고[1,4],고[1,1]-abs(고[3,1]-저[3,1]),sdate,stime,고[1,1]-abs(고[3,1]-저[3,1])); TL_SetExtRight(TL24,true); TL_SetExtRight(TL25,true); TL_SetSize(TL24,0); TL_SetStyle(TL24,3); TL_SetColor(TL24,blue); TL_SetSize(TL25,0); TL_SetStyle(TL25,3); TL_SetColor(TL25,blue); } if T == 1 and T[1] != 1 Then { TL4= TL_New(저[2,3],저[2,4],저[2,1],sdate,stime,저[2,1]); TL_Delete(TL5); TL5= TL_New(저[1,3],저[1,4],저[1,1],sdate,stime,저[1,1]); TL_SetExtRight(TL5,true); TL_SetSize(TL4,3); TL_SetColor(TL4,blue); TL_SetSize(TL5,3); TL_SetColor(TL5,blue); TL14= TL_New(저[2,3],저[2,4],저[2,1],sdate,stime,저[2,1]); TL_Delete(TL15); TL15= TL_New(저[1,3],저[1,4],저[1,1],sdate,stime,저[1,1]); TL_SetExtRight(TL15,true); TL_SetSize(TL14,1); TL_SetColor(TL14,blue); TL_SetSize(TL15,1); TL_SetColor(TL15,blue); TL_Delete(TL24); TL_Delete(TL25); TL24 = TL_New(저[1,3],저[1,4],저[1,1]+abs(고[2,1]-저[2,1]),sdate,stime,저[1,1]+abs(고[2,1]-저[2,1])); TL25 = TL_New(저[1,3],저[1,4],저[1,1]+abs(고[3,1]-저[3,1]),sdate,stime,저[1,1]+abs(고[3,1]-저[3,1])); TL_SetExtRight(TL24,true); TL_SetExtRight(TL25,true); TL_SetSize(TL24,0); TL_SetStyle(TL24,3); TL_SetColor(TL24,Red); TL_SetSize(TL25,0); TL_SetStyle(TL25,3); TL_SetColor(TL25,Red); } 즐거운 하루되세요

수식변환의뢰 각 항목별 수식변환 부탁드립니다. [예] [일]1봉전 2봉중 신저거래량 ==> V(1) < lowest(V(2), 2) 기간내 평균 거래량비율:[일]0봉전 5봉이내에서 1평균거래량대비(기준봉포함) 50%이상 1회 이상 분봉 금일 첫봉대비 거래량비율:[5분]주기 금일 첫봉 거래량대비 0봉전 거래량비율 200%이상 거래량비율:[일]5봉 평균(0봉전)거래량대비 동일주기 0봉전 100%이상 [일]0봉전 이평(단순 50) 5봉이내 박스에서 고가 1회 상한선 상향 돌파 주가등락률:[1분]65봉전(중) 고가대비 0봉전 종가등락률 -3%이하 기간내 등락률:[일]1봉전 5봉이내에서 전일종가대비종가 10% 이상 신고가:[일]1봉전 고가가 33봉이내에서 신고가 최저종가:[일]1봉전 종가가 60이내 최저종가 주가이평추세:[주]0봉전 (종가 10)이평 상승추세유지 2회 이상 상세이평비교:[일]0봉전 단순 (종가 1 )이평이 단순(종가 20)이평을 5봉이내 80이상 95이하 1회 이상 주가이평등락률:[일]1봉전(중)종가20이평대비 0봉전종가1이평 등락률 1%이상 30%이하 주가이평돌파:[일]0봉전기준 20봉이내에서 0봉전 (종가 1)이평 (종가 20)이평 데드크로스 주가비교:[월]1봉전 시가 < 1봉전 종가 연속상승하락:[일]1봉전 3봉 연속상승발생 이평이격도[일]0봉전(종가 10, 종가 40) : 98%이상 105%이하 1회이상 일봉기준 10일이내에서 1일중 첫하한가 발생 일봉기준 10일이내에서 1일간 연속상한가 발생 52주 최고가대비 -20%이상 0%이하