커뮤니티
시스템 작성의뢰
2024-05-16 00:46:47
682
글번호 179543
Input : Period1(1), Period2(15), Period3(30), Period4(60), Period5(120),period6(240),Period7(480), Period8(960), Period9(1920), Period10(3840),period11(7680);
var : Sma1(0),Sma2(0),Sma3(0),Sma4(0),Sma5(0),sma6(0),Sma7(0),Sma8(0),Sma9(0),Sma10(0),sma11(0),OBVV(0),PositiveVolumeIndex(0),dpo(0);
수고하십니다 ! 위수식을 적용하여 작성 부탁 드립니다.
일평균거래량이 80 이상 증가하고 force index 지표가 위아래로 1이상 움직이고 240 이평
선과 960 이평선의 간격이 7 틱이상 벌어지고 test1 지표가 1.09 에서 하락하고 siope of
volume 선을 test1 선이 업크로스 하고 60 이평선이 120 이평선과 업크로스 할때 매수하고
일평균거래량이 80 이상 증가하고 force index 지표가 위아래로 1이상 움직이고 240 이평
선과 960 이평선의 간격이 7 틱이상 벌어지고 test1 지표가 1.08 에서 상승하고 siope of
volume 선을 test1 선이 다운크로스 하고 60 이평선이 120 이평선과 다운크로스 할때 매도
하는 시스템을 부탁합니다 !
답변 1
예스스탁 예스스탁 답변
2024-05-16 13:28:03
안녕하세요
예스스탁입니다.
Input : Period1(1), Period2(15), Period3(30), Period4(60), Period5(120),period6(240),Period7(480), Period8(960), Period9(1920), Period10(3840),period11(7680);
var : Sma1(0),Sma2(0),Sma3(0),Sma4(0),Sma5(0),sma6(0),Sma7(0),Sma8(0),Sma9(0),Sma10(0),sma11(0),OBVV(0),PositiveVolumeIndex(0),dpo(0);
input : FIPeriod(5);
var : fval(0),fi(0);
sma1 = ma(C,period1);
sma2 = ma(C,period2);
sma3 = ma(C,period3);
sma4 = ma(C,period4);
sma5 = ma(C,period5);
sma6 = ma(C,period6);
sma7 = ma(C,period7);
sma8 = ma(C,period8);
sma9 = ma(C,period9);
sma10 = ma(C,Period10);
sma11 = ma(C,Period11);
if bdate != Bdate[1] Then
{
var1 = var1+v;
Var2 = Var2+1;
}
Var3 = var1/Var2;
Fval = ((Close - Close[1]) * Volume) ;
FI = Ema(Fval, FIPeriod);
Inputs: Len(21);
Variables: X(0), Num1(0), Num2(0), SumBars(0), SumSqrBars(0), SumY(0), Sum1(0), Sum2(0),SOV(0);
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 Begin
Sum1= Sum1 + X * V[X];
End;
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;
if Var3 >= Var3[1]+80 and
abs(fi-fi[1]) >= 1 and
max(sma6,sma8) >= min(sma6,sma8)+PriceScale*7 and
CrossDown(test1,1.09) and
crossup(test1,SOV) and
CrossUp(sma4,sma5) Then
Buy();
if Var3 >= Var3[1]+80 and
abs(fi-fi[1]) >= 1 and
max(sma6,sma8) >= min(sma6,sma8)+PriceScale*7 and
CrossUp(test1,1.08) and
CrossDown(test1,SOV) and
CrossDown(sma4,sma5) Then
Sell();
즐거운 하루되세요
> tnsflwls 님이 쓴 글입니다.
> 제목 : 시스템 작성의뢰
> Input : Period1(1), Period2(15), Period3(30), Period4(60), Period5(120),period6(240),Period7(480), Period8(960), Period9(1920), Period10(3840),period11(7680);
var : Sma1(0),Sma2(0),Sma3(0),Sma4(0),Sma5(0),sma6(0),Sma7(0),Sma8(0),Sma9(0),Sma10(0),sma11(0),OBVV(0),PositiveVolumeIndex(0),dpo(0);
수고하십니다 ! 위수식을 적용하여 작성 부탁 드립니다.
일평균거래량이 80 이상 증가하고 force index 지표가 위아래로 1이상 움직이고 240 이평
선과 960 이평선의 간격이 7 틱이상 벌어지고 test1 지표가 1.09 에서 하락하고 siope of
volume 선을 test1 선이 업크로스 하고 60 이평선이 120 이평선과 업크로스 할때 매수하고
일평균거래량이 80 이상 증가하고 force index 지표가 위아래로 1이상 움직이고 240 이평
선과 960 이평선의 간격이 7 틱이상 벌어지고 test1 지표가 1.08 에서 상승하고 siope of
volume 선을 test1 선이 다운크로스 하고 60 이평선이 120 이평선과 다운크로스 할때 매도
하는 시스템을 부탁합니다 !