답변완료
수식작성부탁드립니다
키움 신호수식인데 예스 종목검색으로 변환부탁합니다
EMA기간2=eavg(C,기간2);
LL = if(C(1)<lowest(C(2), period)*ratio, C(1), lowest(C(2), period));
CC=(EMA기간2-lowest(EMA기간2,기간1))/(highest(EMA기간2,기간1)-lowest(EMA기간2,기간1));
조건 = crossup(C,LL);
조건2 = CC=0 or (C(3)>C(2)>C(1)) or (C(2)>C(1)) or (C(4)>C(3)>C(1))
or (C(3)<O(3) && C(2)<O(2) && C(1)<O(1))
or (CC=0);
조건 && 조건2
2024-03-27
864
글번호 177987
검색
답변완료
식수정
Inputs : DDD(20150309), LEN(300), HL_ED(60), CC(Black);
Vars : DBN1(0), KK1(0), DD1(0), KK2(0), DD2(0),HP(0);
If STime >= 080000 And STime[1] < 080000 Then Begin
DBN1 = 0;
KK1 = 0;
DD1 = 0;
KK2 = 0;
DD2 = 0;
End;
DBN1 = DBN1 + 1;
/*If Date == DDD Then Begin*/
If STime >= 083000 And DD1 == 0 Then Begin
Value2 = O;
DD1 = 1;
KK1 = DBN1;
End;
If DBN1 > KK1 + 1 And DD1 == 1 Then
HP = Value2;
Else
HP = Value2;
Inputs : Period(20), Sence(1.5), CC_DN(Yellow);
Vars:
VLineUp(0),
VLineDn(0),
HHighest(0),
LLowest(0),
JustChanged(FALSE),
VLine(0), DBN(0),T(0);
Array:
Highs[35](0),
Lows[35](0),
RRange[35](0),
UpWave[1](FALSE),
DnWave[1](FALSE);
If STime == 180000 Then
DBN = 0;
DBN = DBN + 1;
Var1 = Period;
Var2 = Var1 - 1;
Var3 = Var1 - 2;
Var5 = Sence;
Var6 = H-L;
JustChanged = FALSE;
if CurrentBar <= Var2 then begin
Highs[CurrentBar] = Close;
Lows[CurrentBar] = Close;
RRange[CurrentBar] = (H-L) /2;
end;
if CurrentBar == Var1 then begin
if Highs[Var2] >= Highs[Var3] then begin
UpWave[1] = TRUE;
HHighest = Highs[Var2];
VLineUp = HHighest - (Var5 * MA(Var6,Var2));
#Plot1(VLineUp,"VLineUp");
end;
if Highs[Var2] < Highs[Var3] then begin
DnWave[1] = TRUE;
LLowest = Lows[Var2];
VLineDn = LLowest + (Var5 * MA(Var6,Var2));
#Plot2(VLineDn,"VLineDn");
end;
end;
if CurrentBar > Var1 then begin
if DnWave[1] and Close > VLineDn then begin
DnWave[1] = FALSE;
UpWave[1] = TRUE;
JustChanged = TRUE;
HHighest = Close;
LLowest = 0;
end;
if UpWave[1] and Close < VLineUp and JustChanged == FALSE then begin
UpWave[1] = FALSE;
DnWave[1] = TRUE;
JustChanged = TRUE;
LLowest = Close;
HHighest = 0;
end;
if JustChanged == FALSE then begin
if Close > HHighest then
HHighest = Close;
else if Close < LLowest then
LLowest = Close;
end;
VLineUp = HHighest - (Var5 * MA(Var6,Var2));
VLineDn = LLowest + (Var5 * MA(Var6,Var2));
if UpWave[1] then
T = 1;
else if DnWave[1] then
T = -1;
end;
if MarketPosition <= 0 and
HP > ma(C,60) and CrossUp(c,HP) and T == 1 Then
Buy();
if MarketPosition >= 0 and
HP < ma(C,60) and CrossDown(C, HP) and T == -1 Then
Sell();
if MarketPosition == 1 and CrossDown(c,HP) Then
ExitLong();
if MarketPosition == -1 and CrossUP(C,HP) Then
ExitShort();
안녕하세요
식수정 부탁 드립니다
청산조건변경
매수 진입후 이평20선 하락돌파시.
매도 진입후 이평20선 상승돌파시.
2024-03-27
757
글번호 177986
시스템
답변완료
문의드립니다
if MarketPosition == 1 Then
{
if CurrentContracts > CurrentContracts[1] Then
{
Condition11 = False;
Condition12 = False;
Condition13 = False;
Condition14 = False;
}
if CurrentContracts < CurrentContracts[1] Then
{
if LatestExitName(0) == "bx1" Then
Condition11 = true;
if LatestExitName(0) == "bx2" Then
Condition12 = true;
if LatestExitName(0) == "bx3" Then
Condition13 = true;
if LatestExitName(0) == "bx4" Then
Condition14 = true;
}
if Condition11 == False Then Exitlong("bx1", atstop, X,def,Ceiling(CurrentContracts/4),1);
if Condition12 == False Then Exitlong("bx2", atstop, X-10,Ceiling(CurrentContracts/3),1);
if Condition13 == False Then Exitlong("bx3", atstop, X-20,def,Ceiling(CurrentContracts/2),1);
if Condition14 == False Then Exitlong("bx4", atstop, X-30,def,Ceiling(CurrentContracts/1),1);
}
Else
{
Condition11 = False;
Condition12 = False;
Condition13 = False;
Condition14 = False;
}
분할 청산을 위한 수식입니다. 그런데 각각의 청산을 1번씩만 발생하도록 의도한 것인데
첨부 그림과 같이 첫째봉에서 1번 청산, 2번 청산이 둘다 일어나면
다음봉에서 1번 청산이 또 발생하는 것을 볼수가 있습니다.
간격을 더 촘촘하게 할 경우 첫봉에서 1,2,3 번청산이 다 발생할 경우
다음봉에서 1,2번 청산이 다시 발생하기도 합니다.
잘 이해가 안되네요. 설명 및 수정부탁드립니다.
언제나 예스스탁에 감사드립니다.
2024-03-26
632
글번호 177982
시스템
답변완료
문의드립니다
Inputs: XAvgLen(15), HiLoLen(50), Retrace(0.382);
Vars: XAvg(0), HiHi(0), LoLo(0), Retracement(0), HRetrace(0), LRetrace(0);
XAvg = Ema(C, XAvgLen);
HiHi = Highest(High, HiLoLen);
LoLo = Lowest(Low, HiLoLen);
Retracement = (HiHi - LoLo) * Retrace;
HRetrace = HiHi - Retracement;
LRetrace = LoLo + Retracement;
if crossup(xavg,LRetrace) or crossup(xavg,HRetrace) Then
buy();
if CrossDown(xavg,LRetrace) or CrossDown(xavg,HRetrace) Then
sell();
수고 많으십니다
Fibonacci Retrace돌파 시스템 인데
추가 문의 드립니다
기본 매수 매도는 같으나
XAverage이 직전봉보다 하락일 때는 매수 신호가 안 나오게
XAverage이 직전봉보다 상승하고 있으면 매도 신호가 안 나오게하는
수식을 추가로 부탁드립니다
감사합니다
2024-03-26
682
글번호 177981
시스템
답변완료
문의드립니다
안녕하세요?
10개의 봉으로 이루어진 빨강박스들이 이어지다가 파란색박스가 만들어지는시점
그리고 파란박스후 빨간박스가시작되는시점
알림음을 1회만울리게 부탁드립니다
감사합니다
input : N(10);
var : ii(0),TF(0),TL(0),Box1(0),Box2(0),cnt(0);
var : h5(0),l5(0),m5(0);
Array : HH[10](0),LL[10](0);
if Bdate != Bdate[1] Then
ii = 0;
Else
ii = ii +1;
TF = ii%N;
if Bdate != Bdate[1] or
(Bdate == Bdate[1] and TF < TF[1] and TF > -1) Then
{
var1 = O;
Var2 = H;
Var3 = L;
var11 = var1[1];
Var4 = (Var2+Var3)/2;
Var41 = Var4[1];
For cnt = 9 downto 1
{
HH[cnt] = HH[cnt-1];
LL[cnt] = LL[cnt-1];
}
hh[0] = Var2;
ll[0] = Var3;
h5 = 0;
l5 = 0;
For cnt = 1 to 5
{
if h5 == 0 or (h5 > 0 and hh[cnt] > h5) Then
h5 = hh[cnt];
if l5 == 0 or (l5 > 0 and ll[cnt] < l5) Then
l5 = ll[cnt];
}
m5 = (h5+l5)/2;
value1 = sDate;
Value2 = sTime;
TL = TL_new(sDate,sTime,var4,NextBarSdate,NextBarStime,var4);
TL_SetColor(TL,Green);
TL_SetSize(TL,1);
Box1 = Box_New(sDate,sTime,var2,NextBarSdate,NextBarStime,Var3);
if var4 > m5 Then
Box_SetColor(Box1,Red);
Else
Box_SetColor(Box1,Blue);
Box_SetFill(Box1,true);
}
Else
{
if H > Var2 Then
Var2 = H;
if L < var3 Then
Var3 = L;
Var4 = (Var2+Var3)/2;
TL_SetBegin(TL,value1,Value2,var4);
TL_SetEnd(TL,NextBarSdate,NextBarStime,var4);
Box_SetBegin(Box1,value1,Value2,Var2);
Box_SetEnd(Box1,NextBarSdate,NextBarStime,Var3);
if var4 > m5 Then
Box_SetColor(Box1,Red);
Else
Box_SetColor(Box1,Blue);
hh[0] = Var2;
ll[0] = Var3;
}
//Plot1(m5);
2024-03-27
701
글번호 177975
지표