안녕하세요 예스스탁입니다. input : length(12),reverse(false); input : Period1(5),Period2(10),d1(2),period(40); Input : P(3),P1(4),P2(5),P3(6),P4(7), LPercent(30), SPercent(65); var : hh(0),ll(0),ps(0),pssig(0); var : RSIv(0),rsis(0),stdv(0),t1(0),t2(0),b(0),s(0); var : Relative(0),Relative1(0),Relative2(0),Relative3(0),Relative4(0); Var : value(0); hh = highest(high, length); ll = lowest(low, length); if C > hh[1] Then ps = 1; if C < ll[1] Then ps = -1; pssig = iff(reverse and ps == 1, -1, iff(reverse and ps == -1, 1, ps)); if pssig == 1 then buy("b1"); RSIv = RSI(Period1); RSIs = ema(RSIv,period2); stdv = std(rsiv,period2); t1 = ema(ema(ema(C,5),5),5); t2 = ema(ema(ema(C,10),10),10); var1 = lrl(c,period)+lrs(c,period); b = 0; if RSIV > rsis+d1*stdv Then b = b+1; if t1 > t2 Then b = b+1; if var1 > var1[1] Then b = b+1; s = 0; if RSIV < rsis-d1*stdv Then s = s+1; if t1 < t2 Then s = s+ 1; if var1 < var1[1] Then s = s+ 1; if b >= 2 Then buy("b2"); Relative = RSI(P); Relative1 = RSI(P1); Relative2 = RSI(P2); Relative3 = RSI(P3); Relative4 = RSI(P4); value = RSI(P); # 매수/매도청산 If Relative > 65 && Relative1 > 65 && Relative2 > 65 && Relative3 > 65 && Relative4[1] < 65 && CrossUP(Relative4, sPercent) Then { Buy("b3"); } input : dayLen(18); var : ii(0),v1(0),v2(0),v3(0),v4(0),v5(0); v1 = (close - close[DayLen - 1]) / (DayLen - 1); v2 = 0; For ii = 2 To DayLen - 1 begin v2 = v2 + abs(close[DayLen - ii] - Close[DayLen - 1] - (ii - 1) * v1); end; If v2 <> 0 Then { If DayLen / 2 == 0 Then v3 = accumN(close, DayLen) - DayLen * close[DayLen - 1] - (DayLen * (DayLen - 2) / 2 + DayLen / 2) * v1; Else v3 = accumN(close, DayLen) - DayLen * close[DayLen - 1] - DayLen * (DayLen - 1) / 2 * v1; If v3 > 0 Then v4 = (v2 - v3) / 2 + v3; Else v4 = (v2 + v3) / 2; v5 = v4 / v2 * 100; If v1 > 0 And v5 < 20 Then buy("b4", Atmarket); } 즐거운 하루되세요 > 매치다는 님이 쓴 글입니다. > 제목 : 감사합니다 매수 신호만 부탁드립니다 > 1,번 input : length(12),reverse(false); var : hh(0),ll(0),ps(0),pssig(0); hh = highest(high, length); ll = lowest(low, length); if C > hh[1] Then ps = 1; if C < ll[1] Then ps = -1; pssig = iff(reverse and ps == 1, -1, iff(reverse and ps == -1, 1, ps)); if pssig == 1 then buy(); if pssig == -1 then sell(); 2,번 input : Period1(5),Period2(10),d1(2),period(40); var : RSIv(0),rsis(0),stdv(0),t1(0),t2(0),b(0),s(0); RSIv = RSI(Period1); RSIs = ema(RSIv,period2); stdv = std(rsiv,period2); t1 = ema(ema(ema(C,5),5),5); t2 = ema(ema(ema(C,10),10),10); var1 = lrl(c,period)+lrs(c,period); b = 0; if RSIV > rsis+d1*stdv Then b = b+1; if t1 > t2 Then b = b+1; if var1 > var1[1] Then b = b+1; s = 0; if RSIV < rsis-d1*stdv Then s = s+1; if t1 < t2 Then s = s+ 1; if var1 < var1[1] Then s = s+ 1; if b >= 2 Then buy(); if s >= 2 Then sell(); 3,번 Input : Period(3),Period1(4),Period2(5),Period3(6),Period4(7), LPercent(30), SPercent(65); var : Relative(0),Relative1(0),Relative2(0),Relative3(0),Relative4(0); Relative = RSI(Period); Relative1 = RSI(Period1); Relative2 = RSI(Period2); Relative3 = RSI(Period3); Relative4 = RSI(Period4); Var : value(0); value = RSI(Period); # 매수/매도청산 If Relative > 65 && Relative1 > 65 && Relative2 > 65 && Relative3 > 65 && Relative4[1] < 65 && CrossUP(Relative4, sPercent) Then { Buy(); } # 매도/매수청산 If CrossDown(Relative1, lPercent) Then { Sell(); } 4,번 input : dayLen(18); var : ii(0); Var1 = (close - close[DayLen - 1]) / (DayLen - 1); Var2 = 0; For ii = 2 To DayLen - 1 begin Var2 = Var2 + abs(close[DayLen - ii] - Close[DayLen - 1] - (ii - 1) * Var1); end; If Var2 <> 0 Then { If DayLen / 2 == 0 Then Var3 = accumN(close, DayLen) - DayLen * close[DayLen - 1] - (DayLen * (DayLen - 2) / 2 + DayLen / 2) * Var1; Else Var3 = accumN(close, DayLen) - DayLen * close[DayLen - 1] - DayLen * (DayLen - 1) / 2 * Var1; If Var3 > 0 Then Var4 = (Var2 - Var3) / 2 + Var3; Else Var4 = (Var2 + Var3) / 2; Var5 = Var4 / Var2 * 100; If Var1 > 0 And Var5 < 20 Then buy("매수", Atmarket); If Var1 < 0 And Var5 > 80 Then sell("매도", Atmarket); } 위 1번 2번 3번 4번 시스템을 하나로 부탁드립니다 ## 각각의 신호에 번호 부여 부탁 드립니다 ## 매수 신호만 부탁드립니다