안녕하세요 예스스탁입니다. 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); Condition1 = sma1 > sma2 and sma2 > sma3 and sma3 > sma4 and sma4 > sma5 and sma5 > sma6 and sma6 > sma7 and sma7 > sma8 and sma8 > sma9 and sma9 > sma10 and sma10 > sma11; Condition2 = sma1 < sma2 and sma2 < sma3 and sma3 < sma4 and sma4 < sma5 and sma5 < sma6 and sma6 < sma7 and sma7 < sma8 and sma8 < sma9 and sma9 < sma10 and sma10 < sma11; 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; Input : Period(13); Var : BullP(0), BearP(0),Emav(0); Emav = Ema(c,Period); BullP = HIGH - Emav; BearP = LOW - Emav; if Condition2[1] == true and sma8[1] < sma9[1]-PriceScale*10 and sma10[1] < sma11[1]-PriceScale*20 and abs(SOV-SOV[1]) >= 1 and Var3 >= Var3[1]+60 and test1 < test1[1] and text1 < 1.08 and BearP > BearP[1] and BearP > 0 and CrossUp(sma5,sma6) Then Buy(); if Condition1[1] == true and sma8[1] > sma9[1]-PriceScale*10 and sma10[1] < sma11[1]-PriceScale*20 and abs(SOV-SOV[1]) >= 1 and Var3 >= Var3[1]+60 and test1 > test1[1] and text1 > 1.09 and BearP < BearP[1] and BearP < 0 and CrossDown(sma5,sma6) 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); 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); 위수식을 적용하여 이동 평균선이 역배열 하고 960 이평선과 1920 이평선의 간격이 10 틱이상 벌어지고 3840 이평선과 7680 이평선의 간격이 20 틱이상 벌어지고 slope of volume 지표가 위아래 로 1 이상 움직이고 1 평균 거래량이 60 이상 증가하고 test1 지표가 1.08 로 하락 하고 er bear power 지표가 0.00 으로 상승 하고 120 이평선과 240 이평선이 업 크로스 할때 매수 하고 이동 평균선이 정배열 하고 960 이평선과 1920 이평선의 간격이 10 틱이상 벌어지고 3840 이평선과 7680 이평선의 간격이 20 틱이상 벌어지고 slope of volume 지표가 위아래 로 1 이상 움직이고 1 평균 거래량이 60 이상 증가하고 test1 지표가 1.09 로 상승 하고 er bear power 지표가 -0.00 으로 하락 하고 120 이평선과 240 이평선이 다운 크로스 할때 매도 하는 시스템을 부탁 드립니다 !