주식을 파워검색기로 필터해서 매수하고 매도 조건은 이평 데드크로스 및 스토캐스틱 과열 하방시 매도 그리고 청산조건등을 예스랭귀지로 해서 시스템 실매매가 가능한지요? 아니면 매수매도는 예스스탁을 반드시 써야 실매재 시스템이 구성이 되는지요? 만약 예스랭귀지로만 시스템 매매가 가능하다면 이평 골든크로스 매수 데드크로스 매도로 구성된 예스랭귀지 부탁드립니다.

틱차트에 분봉rsi 지표를 나타내고자 합니다. 분봉주기값과 rsi기간값은 변경가능하게하고 지표속성으로 rsi선, 기준선30선, 기준선70선 을 표현하고자 합니다. 수식을 어떻게 작성해야 하는지요? 매번 감사드립니다. 수고하세요!!!

안녕하세요. 트레이딩뷰 지표인 STC INDICATOP를 아래와 같이 예스랭귀지로 변환하면 STC 본선의 모양은 거의 동일하게 구현이 되는데 첨부파일에서와 같이 선의 색상이 바뀌는 지점이 다르게 나타나는 경우가 있습니다. 특히 STC라인이 상단과 하단에 있을 때 초록색이 빨간색으로/ 빨간색이 초록색으로 바뀌는 지점에서 그런 현상이 많이 나타나고 있습니다. 이 오류부분을 수정해 주시면 감사하겠습니다. STC는 색상이 바뀌는 지점이 매매 타점이어서 중요합니다. 부탁드립니다. input : length(20); input : typeMA(0);#0:sma, 1: ema, 2:rma, 3:WMa, 4: vwma input : smoothingLength(5); var : src(0),mav(0),cnt(0),cciv(0),smoothingLine(0); var : alpha(0); src = (h+l+c)/3; mav = ma(src, length); cciv = (src - mav) / (0.015 *AvgDeviation(src,length)); if typeMA == 0 Then smoothingLine = ma(cciv, smoothingLength); else if typeMA == 1 Then smoothingLine = ema(cciv, smoothingLength); else if typeMA == 2 Then { alpha = 1/length; smoothingLine = 0.0; smoothingLine = iff(isnan(smoothingLine[1]) == true,ma(cciv, length), alpha * cciv + (1 - alpha) * smoothingLine[1]); } else if typeMA == 3 Then smoothingLine = wma(cciv, smoothingLength); Else smoothingLine = ma(cciv * volume, smoothingLength) / ma(volume, smoothingLength); plot1(cciv, "CCI",Blue); plot2(smoothingLine, "Smoothing Line", Orange); PlotBaseLine1(100, "Upper Band",Gray); PlotBaseLine2(0, "Middle Band",Gray); PlotBaseLine3(-100, "Lower Band",Gray); ============================================================ 트레이딩뷰 소스코드 //@version=5 //[SHK] STC colored indicator //https://www.tradingview.com/u/shayankm/ indicator(title='[SHK] Schaff Trend Cycle (STC)', shorttitle='STC', overlay=false) EEEEEE = input(12, 'Length') BBBB = input(26, 'FastLength') BBBBB = input(50, 'SlowLength') AAAA(BBB, BBBB, BBBBB) => fastMA = ta.ema(BBB, BBBB) slowMA = ta.ema(BBB, BBBBB) AAAA = fastMA - slowMA AAAA AAAAA(EEEEEE, BBBB, BBBBB) => AAA = input(0.5) var CCCCC = 0.0 var DDD = 0.0 var DDDDDD = 0.0 var EEEEE = 0.0 BBBBBB = AAAA(close, BBBB, BBBBB) CCC = ta.lowest(BBBBBB, EEEEEE) CCCC = ta.highest(BBBBBB, EEEEEE) - CCC CCCCC := CCCC > 0 ? (BBBBBB - CCC) / CCCC * 100 : nz(CCCCC[1]) DDD := na(DDD[1]) ? CCCCC : DDD[1] + AAA * (CCCCC - DDD[1]) DDDD = ta.lowest(DDD, EEEEEE) DDDDD = ta.highest(DDD, EEEEEE) - DDDD DDDDDD := DDDDD > 0 ? (DDD - DDDD) / DDDDD * 100 : nz(DDDDDD[1]) EEEEE := na(EEEEE[1]) ? DDDDDD : EEEEE[1] + AAA * (DDDDDD - EEEEE[1]) EEEEE mAAAAA = AAAAA(EEEEEE, BBBB, BBBBB) mColor = mAAAAA > mAAAAA[1] ? color.new(color.green, 20) : color.new(color.red, 20) if mAAAAA[3] <= mAAAAA[2] and mAAAAA[2] > mAAAAA[1] and mAAAAA > 75 alert("Red", alert.freq_once_per_bar) if mAAAAA[3] >= mAAAAA[2] and mAAAAA[2] < mAAAAA[1] and mAAAAA < 25 alert("Green", alert.freq_once_per_bar) plot(mAAAAA, color=mColor, title='STC', linewidth=2) ul = plot(25, color=color.new(color.gray, 70)) ll = plot(75, color=color.new(color.gray, 70)) fill(ul, ll, color=color.new(color.gray, 96))

20이평선 위에서 음봉에서 양봉으로 전환될 때 매수 진입 20이평선을 아래로 돌파 하거나 음봉 발생하면 매도청산 완료 20이평선 아래서 양봉에서 음봉으로 전환될 때 매도 진입 20이평선 위로 돌파 하거나 양봉 발생하면 매수청산 완료 부탁드립니다.

안녕하세요? 시장시간별고가와 저가의 박스를그리는지표입니다, 그런데 애러가 발생합니다,,,, 수정부탁드립니다,, var : T(0),idx(0),HH(0),LL(0),SD(0),ST(0); var : TL1(0),TL2(0),TL3(0),TL4(0),color(0); if (bdate != bdate[1] and stime >= 070000) or (bdate == bdate[1] and stime >= 070000 and stime[1] < 070000) Then { T = 1; } if (bdate != bdate[1] and stime >= 170000) or (bdate == bdate[1] and stime >= 170000 and stime[1] < 170000) Then { T = 2; } if (bdate != bdate[1] and stime >= 230000) or (bdate == bdate[1] and stime >= 230000 and stime[1] < 230000) Then { T = 3; } if T != T[1] Then { HH = H; LL = L; SD = sdate; ST = stime; idx = 0; } if T == T[1] and T >= 1 then { idx = idx+1; if H > HH Then HH = H; if L < LL Then LL = L; if idx == 1 then { TL1 = TL_New(SD,ST,HH,sdate,stime,HH); TL2 = TL_New(SD,ST,LL,sdate,stime,LL); TL3 = TL_New(SD,ST,HH,SD,ST,LL); TL4 = TL_New(sDate,sTime,HH,sdate,stime,HH); if T == 1 Then color = red; if T == 2 Then color = blue; if T == 3 Then color = GREEN; TL_SetColor(TL1,color); TL_SetColor(TL2,color); TL_SetColor(TL3,color); TL_SetColor(TL4,color); } Else { TL_SetBegin(TL1,SD,ST,HH); TL_SetEnd(TL1,sdate,stime,HH); TL_SetBegin(TL2,SD,ST,LL); TL_SetEnd(TL2,sdate,stime,LL); TL_SetBegin(TL3,SD,ST,HH); TL_SetEnd(TL3,SD,ST,LL); TL_SetBegin(TL4,sDate,sTime,HH); TL_SetEnd(TL4,sDate,sTime,LL); } }

안녕하세요? 국내선물 일봉으로 포지션 거래를 하고자 합니다. 아래 전략에 대해 스크립트 작성 부탁드립니다. 투자심리선 + 신심리도 < -50이되 두 값 모두 음일 때 완성 익봉 시가에 매수 진입 투자심리선 + 신심리도 > 100이되 두 값 모두 양일 때 완성 익봉 시가에 매도 진입 투자심리선 혹은 신심리도가 둘 중 하나가 음수가 되면 익봉 시가에 매도청산 투자심리선 혹은 신심리도가 둘 중 하나가 양수가 되면 익봉 시가에 매수청산

Input : 전환(0.7); Var:j(0),jj(0),HH(0),LL(0),hiBar(0),loBar(0),최종꼭지점(""),처리구분(""); Array:고[10,4](0),저[10,4](0); var : box(0),TX(0),TL(0),T(0),TL1(0),TL2(0),TL3(0); HH = H; LL = L; If Index == 0 Then { 고[1,1] = HH; 고[1,2] = 0; 고[1,3] = sDate; 고[1,4] = sTime; 저[1,1] = LL; 저[1,2] = 0; 저[1,3] = sDate; 저[1,4] = sTime; } If Index > 0 Then { hiBar = hiBar + 1; loBar = loBar + 1; } If HH[hiBar] < HH Then hiBar = 0; If LL[loBar] > LL Then loBar = 0; Condition1 = 저[1,1]+전환 <= HH and hiBar == 0; Condition2 = 고[1,1]-전환 >= LL and loBar == 0; 처리구분 = ""; 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 { If 최종꼭지점 == "저점" Then { For j = 10 DownTo 2 { For jj = 1 To 4 { 고[j,jj] = 고[j-1,jj]; } } 고[1,1] = HH[hiBar]; 고[1,2] = Index - hiBar; 고[1,3] = sDate[hiBar]; 고[1,4] = sTime[hiBar]; hiBar = -1; loBar = -1; TL = TL_New_Self(저[1,3],저[1,4],저[1,1],고[1,3],고[1,4],고[1,1]); TL_SetSize(TL,1); TL_SetColor(TL,Red); TX = Text_New_Self(고[1,3],고[1,4],고[1,1],NumToStr(고[1,1]-저[1,1],2)+" "); Text_SetSize(tx,25); Text_SetColor(tx,Red); Text_SetStyle(tx,1,1); Text_SetBold(tx,1); Condition4 = false; } If 고[1,1] < HH[hiBar] Then { 고[1,1] = HH[hiBar]; 고[1,2] = Index - hiBar; 고[1,3] = sDate[hiBar]; 고[1,4] = sTime[hiBar]; hiBar = -1; loBar = -1; TL_SetEnd(TL,고[1,3],고[1,4],고[1,1]); Text_SetString(TX,NumToStr(고[1,1]-저[1,1],2)+" "); Text_SetLocation(TX,고[1,3],고[1,4],고[1,1]); } if Condition4 == False and abs(저[1,1]-고[1,1]) >= 0.9 Then { Condition4 = true; TL1 = TL_New_Self(고[1,3],고[1,4],(고[1,1]+저[1,1])/2,저[1,3],저[1,4],(고[1,1]+저[1,1])/2); TL_SetColor(TL1,Magenta); TL_SetSize(TL1,0.5); TL2 = TL_New_Self(고[1,3],고[1,4],저[1,1] + abs(고[1,1]-저[1,1])*0.618,저[1,3],저[1,4],저[1,1] + abs(고[1,1]-저[1,1])*0.618); TL_SetColor(TL2,Orange); TL_SetSize(TL2,0.5); TL3 = TL_New_Self(고[1,3],고[1,4],저[1,1] + abs(고[1,1]-저[1,1])*0.382,저[1,3],저[1,4],저[1,1] + abs(고[1,1]-저[1,1])*0.382); TL_SetColor(TL3,Orange); TL_SetSize(TL3,0.5); } if Condition4 == true Then { TL_SetBegin(TL1,고[1,3],고[1,4],(고[1,1]+저[1,1])/2); TL_SetEnd(TL1,저[1,3],저[1,4],(고[1,1]+저[1,1])/2); TL_SetBegin(TL2,고[1,3],고[1,4],저[1,1] + abs(고[1,1]-저[1,1])*0.618); TL_SetEnd(TL2,저[1,3],저[1,4],저[1,1] + abs(고[1,1]-저[1,1])*0.618); TL_SetBegin(TL3,고[1,3],고[1,4],저[1,1] + abs(고[1,1]-저[1,1])*0.382); TL_SetEnd(TL3,저[1,3],저[1,4],저[1,1] + abs(고[1,1]-저[1,1])*0.382); } 최종꼭지점 = "고점"; Plot1(고[1,1]); NoPlot(2); } If 처리구분 == "저점처리" Then { If 최종꼭지점 == "고점" Then { For j = 10 DownTo 2 { For jj = 1 To 4 { 저[j,jj] = 저[j-1,jj]; } } 저[1,1] = LL[loBar]; 저[1,2] = Index - loBar; 저[1,3] = sDate[loBar]; 저[1,4] = sTime[loBar]; hiBar = -1; loBar = -1; TL = TL_New_Self(고[1,3],고[1,4],고[1,1],저[1,3],저[1,4],저[1,1]); TL_SetSize(TL,1); TL_SetColor(TL,Blue); TX = Text_New_Self(저[1,3],저[1,4],저[1,1],NumToStr(고[1,1]-저[1,1],2)+" "); Text_SetSize(tx,25); Text_SetColor(tx,Blue); Text_SetStyle(tx,1,0); Text_SetBold(tx,1); Condition3 = False; } If 저[1,1] > LL[loBar] Then { 저[1,1] = LL[loBar]; 저[1,2] = Index - loBar; 저[1,3] = sDate[loBar]; 저[1,4] = sTime[loBar]; hiBar = -1; loBar = -1; TL_SetEnd(TL,저[1,3],저[1,4],저[1,1]); Text_SetString(TX,NumToStr(고[1,1]-저[1,1],2)+" "); Text_SetLocation(TX,저[1,3],저[1,4],저[1,1]); } if Condition3 == False and abs(고[1,1]-저[1,1]) >= 0.9 Then { Condition3 = true; TL1 = TL_New_Self(고[1,3],고[1,4],(고[1,1]+저[1,1])/2,저[1,3],저[1,4],(고[1,1]+저[1,1])/2); TL_SetColor(TL1,Magenta); TL_SetSize(TL1,0.5); TL2 = TL_New_Self(고[1,3],고[1,4],고[1,1] - abs(고[1,1]-저[1,1])*0.618,저[1,3],저[1,4],고[1,1] - abs(고[1,1]-저[1,1])*0.618); TL_SetColor(TL2,Orange); TL_SetSize(TL2,0.5); TL3 = TL_New_Self(고[1,3],고[1,4],고[1,1] - abs(고[1,1]-저[1,1])*0.382,저[1,3],저[1,4],고[1,1] - abs(고[1,1]-저[1,1])*0.382); TL_SetColor(TL3,Orange); TL_SetSize(TL3,0.5); } if Condition3 == true Then { TL_SetBegin(TL1,고[1,3],고[1,4],(고[1,1]+저[1,1])/2); TL_SetEnd(TL1,저[1,3],저[1,4],(고[1,1]+저[1,1])/2); TL_SetBegin(TL2,고[1,3],고[1,4],고[1,1] - abs(고[1,1]-저[1,1])*0.618); TL_SetEnd(TL2,저[1,3],저[1,4],고[1,1] - abs(고[1,1]-저[1,1])*0.618); TL_SetBegin(TL3,고[1,3],고[1,4],고[1,1] - abs(고[1,1]-저[1,1])*0.382); TL_SetEnd(TL3,저[1,3],저[1,4],고[1,1] - abs(고[1,1]-저[1,1])*0.382); } 최종꼭지점 = "저점"; Plot2(저[1,1]); NoPlot(1); } 피보나치 38.2부터 50까지, 50부터 61.8까지 박스. 현재 수식과 같이, 설정한 크기에 도달할 때부터 박스. 감사합니다.

안녕하세요 항상 건강하십쇼! 저번에 여쭤본 86029 게시글에 이어서 계속 질문 드립니다. 말씀주신 PercentRankArray의 결과값을 사용자 함수로 불러와서 쓰고싶은데 안됩니다 ㅠㅠ 동일한 코드로 지표를 만들어서 plot하면 값이 잘 불러와지는데, 사용자 함수로 넣어서 해당 사용자 함수를 불러와서 plot하면 값이 n/a로 뜹니다. 안뜹니다. 고쳐주세요 (__) 사용자함수명 : PRATest ///////// var: vari1(0), Vari2(0) ; Array : cc[10000](0) ; /// Vari1 = Close; Ins*ertArray(cc, 0, Vari1); Vari2 = PercentRankArray(C,cc,index); #대상값은 종가, 대상배열은 cc, 사이즈는 Array에 저장된 값의 수. 즉 Array에 방이 하나씩 채워질때마다 해당 값도 늘어나야합니다. 어떻게 해야하나요? Index를 넣으면 되나요? PRATest = Vari2; //////////

input : 전환포인트(0.7); Array : HD[10](0),HT[10](0),HV[10](0); Array : LD[10](0),LT[10](0),LV[10](0); var : cnt(0),Hprice(0),Lprice(0); var : UpTrend(false),DownTrend(False),Trend(0),ZigZagTL(0),TX(0); var : TL1(0),TL2(0),TL3(0),TL4(0),TL5(0); Plot1 (c); HPrice = H; LPrice = L; if Index == 0 or Bdate != Bdate[1] Then { HD[0] = sDate; HT[0] = sTime; HV[0] = HPrice; LD[0] = sDate; LT[0] = sTime; LV[0] = LPrice; trend = 0; } Else { UpTrend = HPrice >= LV[0]+전환포인트; DownTrend = LPrice <= HV[0]-전환포인트; if trend <= 0 and UpTrend == true Then { trend = 1; For cnt = 9 DownTo 1 { HD[cnt] = HD[cnt-1]; HT[cnt] = HT[cnt-1]; HV[cnt] = HV[cnt-1]; } HD[0] = sDate; HT[0] = sTime; HV[0] = HPrice; ZigZagTL = TL_New(LD[0],LT[0],LV[0],HD[0],HT[0],HV[0]); TL_SetColor(ZigZagTL,Red); TL_SetSize(ZigZagTL,1); TX = text_new(HD[0],HT[0],HV[0],NumToStr(HV[0]-LV[0],2)+" "); Text_SetStyle(TX,1,1); Text_SetColor(TX,Black); Text_SetSize(tx,25); Text_SetBold(tx,1); var2 = 10^(LOG10(HV[0])-(LOG10(HV[0])-LOG10(LV[0]))*(38.2/100)); var3 = 10^(LOG10(HV[0])-(LOG10(HV[0])-LOG10(LV[0]))*(50/100)); var4 = 10^(LOG10(HV[0])-(LOG10(HV[0])-LOG10(LV[0]))*(61.8/100)); TL1 = TL_New(LD[0],LT[0],HV[0],NextBarSdate,NextBarStime,HV[0]); TL2 = TL_New(LD[0],LT[0],var2,NextBarSdate,NextBarStime,var2); TL3 = TL_New(LD[0],LT[0],var3,NextBarSdate,NextBarStime,var3); TL4 = TL_New(LD[0],LT[0],var4,NextBarSdate,NextBarStime,var4); TL5 = TL_New(LD[0],LT[0],LV[0],NextBarSdate,NextBarStime,LV[0]); TL_SetColor(TL1,Magenta); TL_SetColor(TL2,Orange); TL_SetColor(TL3,Green); TL_SetColor(TL4,Orange); TL_SetColor(TL5,Green); } Else if trend >= 0 and DownTrend Then//하락추세 전환 { trend = -1; For cnt = 9 DownTo 1 { LD[cnt] = LD[cnt-1]; LT[cnt] = LT[cnt-1]; LV[cnt] = LV[cnt-1]; } LD[0] = sDate; LT[0] = sTime; LV[0] = LPrice; ZigZagTL = TL_New(HD[0],HT[0],HV[0],LD[0],LT[0],LV[0]); TL_SetColor(ZigZagTL,Blue); TL_SetSize(ZigZagTL,1); TX = text_new(LD[0],LT[0],LV[0],NumToStr(HV[0]-LV[0],2)+" "); Text_SetStyle(TX,1,0); Text_SetColor(TX,Black); Text_SetSize(tx,25); Text_SetBold(tx,1); var2 = 10^(LOG10(HV[0])-(LOG10(HV[0])-LOG10(LV[0]))*(38.2/100)); var3 = 10^(LOG10(HV[0])-(LOG10(HV[0])-LOG10(LV[0]))*(50/100)); var4 = 10^(LOG10(HV[0])-(LOG10(HV[0])-LOG10(LV[0]))*(61.8/100)); TL1 = TL_New(HD[0],HT[0],HV[0],NextBarSdate,NextBarStime,HV[0]); TL2 = TL_New(HD[0],HT[0],var2,NextBarSdate,NextBarStime,var2); TL3 = TL_New(HD[0],HT[0],var3,NextBarSdate,NextBarStime,var3); TL4 = TL_New(HD[0],HT[0],var4,NextBarSdate,NextBarStime,var4); TL5 = TL_New(HD[0],HT[0],LV[0],NextBarSdate,NextBarStime,LV[0]); TL_SetColor(TL1,Magenta); TL_SetColor(TL2,Orange); TL_SetColor(TL3,Green); TL_SetColor(TL4,Orange); TL_SetColor(TL5,Green); } Else { if trend == 1 Then { if HPrice > HV[0] Then { HD[0] = sDate; HT[0] = sTime; HV[0] = HPrice; TL_SetEnd(ZigZagTL,HD[0],HT[0],HV[0]); Text_SetLocation(TX,HD[0],HT[0],HV[0]); Text_SetString(TX,NumToStr(HV[0]-LV[0],2)+" "); var2 = 10^(LOG10(HV[0])-(LOG10(HV[0])-LOG10(LV[0]))*(38.2/100)); var3 = 10^(LOG10(HV[0])-(LOG10(HV[0])-LOG10(LV[0]))*(50/100)); var4 = 10^(LOG10(HV[0])-(LOG10(HV[0])-LOG10(LV[0]))*(61.8/100)); TL_SetBegin(TL1,LD[0],LT[0],HV[0]); TL_SetBegin(TL2,LD[0],LT[0],Var2); TL_SetBegin(TL3,LD[0],LT[0],Var3); TL_SetBegin(TL4,LD[0],LT[0],Var4); TL_SetBegin(TL5,LD[0],LT[0],LV[0]); TL_SetEnd(TL1,Sdate,Stime,HV[0]); TL_SetEnd(TL2,Sdate,Stime,Var2); TL_SetEnd(TL3,Sdate,Stime,Var3); TL_SetEnd(TL4,Sdate,Stime,Var4); TL_SetEnd(TL5,Sdate,Stime,LV[0]); } } if trend == -1 Then { if LPrice < LV[0] Then { LD[0] = sDate; LT[0] = sTime; LV[0] = LPrice; TL_SetEnd(ZigZagTL,LD[0],LT[0],LV[0]); Text_SetLocation(TX,LD[0],LT[0],LV[0]); Text_SetString(TX,NumToStr(HV[0]-LV[0],2)+" "); var2 = 10^(LOG10(HV[0])-(LOG10(HV[0])-LOG10(LV[0]))*(38.2/100)); var3 = 10^(LOG10(HV[0])-(LOG10(HV[0])-LOG10(LV[0]))*(50/100)); var4 = 10^(LOG10(HV[0])-(LOG10(HV[0])-LOG10(LV[0]))*(61.8/100)); TL_SetBegin(TL1,HD[0],HT[0],HV[0]); TL_SetBegin(TL2,HD[0],HT[0],Var2); TL_SetBegin(TL3,HD[0],HT[0],Var3); TL_SetBegin(TL4,HD[0],HT[0],Var4); TL_SetBegin(TL5,HD[0],HT[0],LV[0]); TL_SetEnd(TL1,Sdate,Stime,HV[0]); TL_SetEnd(TL2,Sdate,Stime,Var2); TL_SetEnd(TL3,Sdate,Stime,Var3); TL_SetEnd(TL4,Sdate,Stime,Var4); TL_SetEnd(TL5,Sdate,Stime,LV[0]); } } } } 피보나치 38.2부터 50까지 박스. 50부터 61.8까지 박스. 감사합니다.