커뮤니티
시스템 작성의뢰
2024-05-06 23:55:25
846
글번호 179168
수고 하십니다 !
force index 나 slope of volume 지표중 위 아래로 1 이상 움직이고 reverse 지표와 er bear
power 지표가 하락하고 60 이평선과 120 이평선이 업크로스할때 매수를 하고
force index 나 slope of volume 지표중 위 아래로 1 이상 움직이고 reverse 지표와 er bear
power 지표가 상승 하고 60 이평선과 120 이평선이 다운크로스할때 매도를 하는
시스템을 부탁 드립니다 !
답변 1
예스스탁 예스스탁 답변
2024-05-07 15:03:42
안녕하세요
예스스탁입니다.
Input : FIPeriod(5);
Input : Len(21);
input : P1(60),P2(120);
Var : Fval(0),FI(0);
Var : X(0), Num1(0), Num2(0), SumBars(0), SumSqrBars(0);
var : SumY(0), Sum1(0), Sum2(0),SOV(0);
var : m1(0),m2(0),R(0);
Fval = ((Close - Close[1]) * Volume) ;
FI = Ema(Fval, FIPeriod);
If Len == 0 Then
SOV = 0;
If CurrentBar == 1 Then Begin
SumBars = SumBars[1];
SumBars = Len * (Len - 1) * 0.5;
SumSqrBars = (Len - 1) * Len * (2 * Len - 1) / 6;
End;
Sum1 = 0;
For X = 0 To Len - 1
{
Sum1= Sum1 + X * V[X];
}
SumY = accumn(V, Len);
Sum2 = SumBars * SumY;
Num1 = Len * Sum1 - Sum2;
Num2 = SumBars * SumBars - Len * SumSqrBars;
If Num2 <> 0 Then
SOV = Num1 / Num2;
Else
SOV = 0;
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
R = value1*(-100)/accumN(value3,Short);
Else
R = value1*100/accumN(value4,Short);
Input : Period(13);
Var : BullP(0), BearP(0),Emav(0);
Emav = Ema(c,Period);
BullP = HIGH - Emav;
BearP = LOW - Emav;
m1 = ma(C,P1);
m2 = ma(C,P2);
if (abs(FI-FI[1]) >= 1 or abs(SOV-SOV[1]) >= 1) and
R < R[1] and BearP < BearP[1] and
CrossUp(m1,m2) Then
Buy();
if (abs(FI-FI[1]) >= 1 or abs(SOV-SOV[1]) >= 1) and
R > R[1] and BearP > BearP[1] and
CrossDown(m1,m2) Then
Sell();
즐거운 하루되세요
> tnsflwls 님이 쓴 글입니다.
> 제목 : 시스템 작성의뢰
> 수고 하십니다 !
force index 나 slope of volume 지표중 위 아래로 1 이상 움직이고 reverse 지표와 er bear
power 지표가 하락하고 60 이평선과 120 이평선이 업크로스할때 매수를 하고
force index 나 slope of volume 지표중 위 아래로 1 이상 움직이고 reverse 지표와 er bear
power 지표가 상승 하고 60 이평선과 120 이평선이 다운크로스할때 매도를 하는
시스템을 부탁 드립니다 !