• 커뮤니티
  • 질의응답
  • 예스랭귀지 Q&A

커뮤니티

부탁드립니다.

프로필 이미지
매일상승
2018-12-29 02:38:07
218
글번호 124839
답변완료
키움수식을 예스로 부탁드립니다. 감사합니다. Params : vExitL(90), vExitP(300); Vars : SP(0), TickSize(0); SP = SignalPosition; TickSize = OneTick * PriceScale; // 이동평균선1 Params : period1(2); Vars : vMa1(0); vMa1 = Average(C, period1); // William R Params : WilliamR_Period(20); Vars : oWilliamR(0); If CB > 1 Then Begin v1 = Highest(H, WilliamR_period); v2 = Lowest(L, WilliamR_period); End; if (v1 - v2) <> 0 Then oWilliamR = (v1 - C) / (v1 - v2) * (-100) Else oWilliamR = 0; Vars : max99(0), min99(0), bNUM(0), sNUM(0); If vMA1 > 0 Then v99 = ABS(C - vMA1); If C < vMa1 - (100 * TickSize) Then bNUM = 0 Else bNUM = bNum + 1; If C > vMa1 + (100 * TickSize) Then sNum = 0 Else sNum = bNum + 1; If bNum > 0 Then Begin IF v99[1] < v99 Then max99 = v99 Else max99 = max99; End Else max99 = 0; If sNum > 0 Then Begin If v99[1] < v99 Then min99 = v99 Else min99 = min99; End Else min99 = 0; If SP = 0 And v99 <= (10 * TIckSize) Then Begin If max99 > (100 * TIckSIze) And oWilliamR < -50 Then Buy("B"); If min99 > (100 * TIckSize) And oWilliamR > -30 Then Sell("S"); End; SetStopLoss(vExitL * TIckSIze * CUrrentContracts); SetProfitTarget(vExitP * TickSIze * CUrrentContracts);
시스템
답변 1
프로필 이미지

예스스탁 예스스탁 답변

2019-01-02 10:19:25

안녕하세요 예스스탁입니다. input : vExitL(90), vExitP(300); Vars : SP(0), TickSize(0); SP = MarketPosition; TickSize = PriceScale; // 이동평균선1 input : period1(2); Vars : vMa1(0); vMa1 = ma(C, period1); // William R input : WilliamR_Period(20); Vars : oWilliamR(0),V1(0),V2(0); If CurrentBar > 1 Then Begin v1 = Highest(H, WilliamR_period); v2 = Lowest(L, WilliamR_period); End; if (v1 - v2) <> 0 Then oWilliamR = (v1 - C) / (v1 - v2) * (-100); Else oWilliamR = 0; Vars : max99(0), min99(0), bNUM(0), sNUM(0),V99(0); If vMA1 > 0 Then v99 = ABS(C - vMA1); If C < vMa1 - (100 * TickSize) Then bNUM = 0; Else bNUM = bNum + 1; If C > vMa1 + (100 * TickSize) Then sNum = 0; Else sNum = bNum + 1; If bNum > 0 Then Begin IF v99[1] < v99 Then max99 = v99; Else max99 = max99; End Else max99 = 0; If sNum > 0 Then Begin If v99[1] < v99 Then min99 = v99; Else min99 = min99; End Else min99 = 0; If SP == 0 And v99 <= (10 * TIckSize) Then Begin If max99 > (100 * TIckSIze) And oWilliamR < -50 Then Buy("B"); If min99 > (100 * TIckSize) And oWilliamR > -30 Then Sell("S"); End; SetStopLoss(vExitL * TIckSIze,PointStop); SetStopProfittarget(vExitP * TickSIze,PointStop); 즐거운 하루되세요 > 매일상승 님이 쓴 글입니다. > 제목 : 부탁드립니다. > 키움수식을 예스로 부탁드립니다. 감사합니다. Params : vExitL(90), vExitP(300); Vars : SP(0), TickSize(0); SP = SignalPosition; TickSize = OneTick * PriceScale; // 이동평균선1 Params : period1(2); Vars : vMa1(0); vMa1 = Average(C, period1); // William R Params : WilliamR_Period(20); Vars : oWilliamR(0); If CB > 1 Then Begin v1 = Highest(H, WilliamR_period); v2 = Lowest(L, WilliamR_period); End; if (v1 - v2) <> 0 Then oWilliamR = (v1 - C) / (v1 - v2) * (-100) Else oWilliamR = 0; Vars : max99(0), min99(0), bNUM(0), sNUM(0); If vMA1 > 0 Then v99 = ABS(C - vMA1); If C < vMa1 - (100 * TickSize) Then bNUM = 0 Else bNUM = bNum + 1; If C > vMa1 + (100 * TickSize) Then sNum = 0 Else sNum = bNum + 1; If bNum > 0 Then Begin IF v99[1] < v99 Then max99 = v99 Else max99 = max99; End Else max99 = 0; If sNum > 0 Then Begin If v99[1] < v99 Then min99 = v99 Else min99 = min99; End Else min99 = 0; If SP = 0 And v99 <= (10 * TIckSize) Then Begin If max99 > (100 * TIckSIze) And oWilliamR < -50 Then Buy("B"); If min99 > (100 * TIckSize) And oWilliamR > -30 Then Sell("S"); End; SetStopLoss(vExitL * TIckSIze * CUrrentContracts); SetProfitTarget(vExitP * TickSIze * CUrrentContracts);
등록