안녕하세요 예스스탁입니다. 1 input : obLevel(70); input : osLevel(30); input : length(14); var : src(0),ep(0),auc(0),adc(0),x1(0),ub(0),x2(0),lb(0); src=close; ep = 2 * length - 1; auc = ema( max( src - src[1], 0 ), ep ); adc = ema( max( src[1] - src, 0 ), ep ); x1 = (length - 1) * ( adc * obLevel / (100-obLevel) - auc); ub = iff( x1 >= 0, src + x1, src + x1 * (100-obLevel)/obLevel ); x2 = (length - 1) * ( adc * osLevel / (100-osLevel) - auc); lb = iff( x2 >= 0, src + x2, src + x2 * (100-osLevel)/osLevel ); Input : Period(9),sig(10); var : Relative(0),signal(0); Relative = RSI(Period); signal = ma(Relative,sig); if MarketPosition >= 0 and CrossDown(L,lb) and CrossDown(Relative,signal) Then Sell(); if MarketPosition == -1 Then { if L > lb or Relative > signal Then ExitShort(); } if MarketPosition <= 0 and CrossUp(h,ub) and CrossUp(Relative,signal) Then Buy(); if MarketPosition == 1 Then { if h < ub or Relative < signal Then ExitLong(); } 2 input : obLevel(70); input : osLevel(30); input : length(14); var : src(0),ep(0),auc(0),adc(0),x1(0),ub(0),x2(0),lb(0); src=close; ep = 2 * length - 1; auc = ema( max( src - src[1], 0 ), ep ); adc = ema( max( src[1] - src, 0 ), ep ); x1 = (length - 1) * ( adc * obLevel / (100-obLevel) - auc); ub = iff( x1 >= 0, src + x1, src + x1 * (100-obLevel)/obLevel ); x2 = (length - 1) * ( adc * osLevel / (100-osLevel) - auc); lb = iff( x2 >= 0, src + x2, src + x2 * (100-osLevel)/osLevel ); Input : Period(9),sig(10); var : Relative(0),signal(0); Relative = RSI(Period); signal = ma(Relative,sig); var : pst(0),box(0); if pst >= 0 and CrossDown(L,lb) and CrossDown(Relative,signal) Then { pst = -1; box = box_new(sDate,sTime,h,NextBarSdate,NextBarStime,l); Box_SetColor(box,Blue); Box_SetFill(box,true); Box_SetextFill(box,true); } if pst == -1 Then { if L > lb or Relative > signal Then pst = 0; Box_SetEnd(box,NextBarSdate,NextBarStime,l); } if pst <= 0 and CrossUp(h,ub) and CrossUp(Relative,signal) Then { pst = 1; box = box_new(sDate,sTime,h,NextBarSdate,NextBarStime,l); Box_SetColor(box,Red); Box_SetFill(box,true); Box_SetextFill(box,true); } if pst == 1 Then { if h < ub or Relative < signal Then pst = 0; Box_SetEnd(box,NextBarSdate,NextBarStime,l); } 3 Input : Period1(20), MultiD1(2); Input : Period2(20), MultiD2(2); var : BBup1(0,Data1),BBdn1(0,Data1); var : BBup2(0,Data2),BBdn2(0,Data2); BBup1 = data1(BollBandUp(Period1,MultiD1)); BBdn1 = data1(BollBandDown(Period1,MultiD1)); BBup2 = data2(BollBandUp(Period2,MultiD2)); BBdn2 = data2(BollBandDown(Period2,MultiD2)); if Data1(CrossDown(L,bbdn1)) and Data2(CrossDown(L,bbdn2)) Then Plot1(L,"검색",Magenta); if Data1(CrossUp(H,bbdn1)) and Data2(CrossUp(H,bbdn2)) Then Plot1(H,"검색",Cyan); 4 input : P1(7); var : R1(0); R1 = RSI(P1); if CrossDown(R1,60) Then Sell(); if CrossUp(R1,40) Then Buy(); 즐거운 하루되세요 > zmfha 님이 쓴 글입니다. > 제목 : 문의드립니다 > 1. input : obLevel(70); input : osLevel(30); input : length(14); var : src(0),ep(0),auc(0),adc(0),x1(0),ub(0),x2(0),lb(0); src=close; ep = 2 * length - 1; auc = ema( max( src - src[1], 0 ), ep ); adc = ema( max( src[1] - src, 0 ), ep ); x1 = (length - 1) * ( adc * obLevel / (100-obLevel) - auc); ub = iff( x1 >= 0, src + x1, src + x1 * (100-obLevel)/obLevel ); x2 = (length - 1) * ( adc * osLevel / (100-osLevel) - auc); lb = iff( x2 >= 0, src + x2, src + x2 * (100-osLevel)/osLevel ); plot1(ub, "Resistance", red); plot2(lb, "Support", green); plot3(avg(ub, lb), "RSI Midline",gray); 2. Input : Period(9),sig(10); var : Relative(0),signal(0); Relative = RSI(Period); signal = ma(Relative,sig); Plot1(Relative, "RSI"); Plot2(signal, "시그널"); PlotBaseLine1(30, "기준선 30"); PlotBaseLine2(70, "기준선 70"); ...................................................................................................... 1. 첫번째 시스템식을 구하고자 합니다 상기 1번식에서 plot2의 그린색이 캔들과 만나고 (and로 연결) 2번식에서 rsi가 시그널선을 하향 돌파 했을때 두조건이 모두 충족 되었을때 매도 신호를 둘중 하나라도 이탈 되면 청산신호를 반대로 상기 1번식에서 plot1 레드선이 캔들과 만나고 2번식에서 rsi가 시그널선을 상향 돌파했을때 두조건이 모두 충족되었을때 매수 신호를 둘중 하나라도 이탈되면 청산신호를 해주세요 2. 두번째 이렇게 만들어진 시스템식을 바탕화면에 색깔로 입히고 싶습니다 (이건 지표로 구현해 주세요) 즉 매수신호때는 빨간색 바탕화면으로,매도신호때는 파란색 바탕화면으로 ...................................................................................................................................... 3. 주챠트 2분봉의 캔들이 2분봉 볼밴하단에 부딪힐때, 데이타2 10분봉 역시 10분봉의 볼밴 하단 수치에 부딪힌다면 그때 주챠트 2분봉 캔들에 검색식으로 빨간색 점을 찍어 주세요 (예를 들어 오전 10시에 주챠트 2분봉 캔들은 주챠트 2분봉 볼밴하단에 부딪히고, 데이타2 10분봉의 캔들이 10분봉 볼밴하단에 부딪히면, 주챠트 10시봉(2분봉)에 빨간색 점을 찍어 주세요) 만약 반대로 주챠트 2분봉의 캔들이 볼밴 상단에 부딪힐때 같은 시각 데이타2 10분봉도 10분봉의 볼밴 상단 수치에 부딪힌다면 그때 그 캔들에 검색식으로 파란색 점을 찍어 주세요 4. input : P1(7),P2(14),P3(21); var : R1(0),R2(0),R3(0),TX(0); R1 = RSI(P1); R2 = RSI(P2); R3 = RSI(P3); Plot1(R1, "RSI1"); Plot2(R2, "RSI2"); Plot3(R3, "RSI3"); PlotBaseLine1(30, "기준선 30"); PlotBaseLine2(50, "기준선 50"); PlotBaseLine3(70, "기준선 70"); PlotBaseLine4(40, "기준선 40"); PlotBaseLine5(60, "기준선 60"); Condition1 = R1 > R2 and R2 > R3; Condition2 = R1 < R2 and R2 < R3; if Condition1 == true and Condition1 != Condition1[1] Then { TX = Text_New_Self(sDate,sTime,R3,"▲"); Text_SetStyle(TX,2,0); Text_SetColor(TX,Red); } if Condition2 == true and Condition2 != Condition2[1] Then { TX = Text_New_Self(sDate,sTime,R3,"▼"); Text_SetStyle(TX,2,1); Text_SetColor(TX,Blue); } 상기 4번식을 plot1 rsi1이 기준선 60을 하향돌파하면 매도 신호를 plot1 rsi1이 기준선 40을 상향돌파하면 매수 신호를 나타내는 시스템으로 구현하고 싶습니다 한번에 여러개를 질문 드려 죄송합니다 감사합니다