커뮤니티
시스템 작성의뢰
2024-05-08 00:28:41
579
글번호 179228
수고 하십니다 !
er bear power 지표가 test1,obv 지표를 다운크로스 하고 force index,slope of volume 지표
중 1 이상 아래위로 움직이고 1920 이평선이 7680 이평선을 업크로스 할때 매수 하고
er bear power 지표가 test1,obv 지표를 업크로스 하고 force index,slope of volume 지표
중 1 이상 아래위로 움직이고 1920 이평선이 7680 이평선을 다운크로스 할때 매도 하는 시스
템을 부탁 합니다 !
답변 1
예스스탁 예스스탁 답변
2024-05-08 10:41:10
안녕하세요
예스스탁입니다.
er bear power는 OBV와 Y축 범위가 다른지표입니다.
수식은 올리신 내용으로 처리는 해드립니다.
골드/데드 상태이므로 크다 작다로 처리해 드립니다.
Input : FIPeriod(5);
Input : Len(21);
input : P1(1920),P2(7680);
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 : Period(13);
Var : BullP(0), BearP(0),Emav(0),OB(0);
Emav = Ema(c,Period);
BullP = HIGH - Emav;
BearP = LOW - Emav;
m1 = ma(C,P1);
m2 = ma(C,P2);
test1 = ;#test1계산식
OB = OBV;
if BearP < test1 and BearP < OB and
(abs(FI-FI[1]) >= 1 or abs(SOV-SOV[1]) >= 1) and
CrossUp(m1,m2) Then
Buy();
if BearP > test1 and BearP > OB and
(abs(FI-FI[1]) >= 1 or abs(SOV-SOV[1]) >= 1) and
CrossDown(m1,m2) Then
Sell();
즐거운 하루되세요
> tnsflwls 님이 쓴 글입니다.
> 제목 : 시스템 작성의뢰
> 수고 하십니다 !
er bear power 지표가 test1,obv 지표를 다운크로스 하고 force index,slope of volume 지표
중 1 이상 아래위로 움직이고 1920 이평선이 7680 이평선을 업크로스 할때 매수 하고
er bear power 지표가 test1,obv 지표를 업크로스 하고 force index,slope of volume 지표
중 1 이상 아래위로 움직이고 1920 이평선이 7680 이평선을 다운크로스 할때 매도 하는 시스
템을 부탁 합니다 !