답변완료
표시가 안되네요 부탁드려요
표시가 안되네요 수정 부탁드려요
Input :N일(9);
VAR : A(0),A1(0),eq(0),VL(0),tx(0);
A=LRL(C,9);
A1=LRS(A,9);
eq=A-A1;
VL=A+eq;
if CrossDown(C,VL) Then
{
tx = Text_New_Self(sDate,stime,VL,"▼▼▼▼▼");
Text_SetStyle(tx,2,1);
Text_SetColor(tx,red);
}
2024-08-26
738
글번호 182851
지표
답변완료
두 조건에 만족하는 검색식 부탁드립니다. 감사합니다.
1
var : AA(0),대금(0),A(0),B(0),DD(0),양대금(0),A1(0),B1(0),D1(0),음대금(0);
대금 = (H+O+L+C)/4*V/100000000;
A=IfF(C>O,대금,0);
B=Accum(A);
A1=IfF(C<O,대금,0);
B1=Accum(A1);
if sDate != sDate[1] Then
{
DD = B[1];
D1 = B1[1];
}
양대금=B-DD;
음대금=B1-D1;
if CROSSUP(양대금,음대금) Then
Find(1);
2
var : A(0),A1(0),A2(0),A3(0),A4(0),B(0);
A=OBV();
B=Ema(A, 9);
A1=accum(V*(Pow(C-L,2)-Pow(H-C, 2))/(H-L));
A2=ADX(11);
A3=100*Ema(C,10)/Ema(C[20],10);
A4=100*Ema(Ema(C,10)/Ema(C[20],10),9);
if A3[1]<=100 && (Crossup(A3,A4) OR Crossup(A,B)) &&
A[1]<A && A1[1]<A1 && A2[1]<A2 && A3[1]<A3 Then
Find(1);
항상 고맙습니다.
2024-08-26
716
글번호 182850
종목검색
답변완료
키움 함수 예스트레이더용으로 변환 부탁드립니다
DMA_VALUE = myDma(nPeriod);
(DMA_VALUE
+
(
Sqrt(
(
if ( nPeriod >=1, Pow(c-DMA_VALUE,2), 0)
+myVariance2( nPeriod, DMA_VALUE, 2)
+myVariance2( nPeriod, DMA_VALUE, 3)
+myVariance2( nPeriod, DMA_VALUE, 4)
+myVariance2( nPeriod, DMA_VALUE, 5)
+myVariance2( nPeriod, DMA_VALUE, 6)
+myVariance2( nPeriod, DMA_VALUE, 7)
+myVariance2( nPeriod, DMA_VALUE, 8)
+myVariance2( nPeriod, DMA_VALUE, 9)
+myVariance2( nPeriod, DMA_VALUE, 10)
+myVariance2( nPeriod, DMA_VALUE, 11)
+myVariance2( nPeriod, DMA_VALUE, 12)
+myVariance2( nPeriod, DMA_VALUE, 13)
+myVariance2( nPeriod, DMA_VALUE, 14)
+myVariance2( nPeriod, DMA_VALUE, 15)
+myVariance2( nPeriod, DMA_VALUE, 16)
+myVariance2( nPeriod, DMA_VALUE, 17)
+myVariance2( nPeriod, DMA_VALUE, 18)
+myVariance2( nPeriod, DMA_VALUE, 19)
+myVariance2( nPeriod, DMA_VALUE, 20)
)/nPeriod)
*nMultiply
)
);
키움 함수 예스트레이더용으로 변환 부탁드립니다
2024-08-26
739
글번호 182848
사용자 함수
답변완료
안녕하세요 수식 검토 부탁드립니다~
안녕하세요
아래의 조건으로 만들어주신 수식이 종목 검색이 안되어 재검토 부탁드립니다.
신호검색은 잡히는데, 종목이 검출이 안됩니다.
1. 현재봉기준 N(13)봉 이내에,
스토캐스틱슬로우(12,5) %K가 20선을 상향 돌파한 후에,
MACD(12,26,9)가 signal선을 상향 돌파하고,
RSI(14)가 50선을 상향 돌파하는 세 가지를
모두 만족하는 종목을 검색하고 싶습니다.
세 가지를 만족하기 전에
스토캐스틱 %K가 80선을 돌파하면 제외하는 조건입니다.
(스토캐스틱 신호 후, MACD와 RSI는 순서 상관없음)
키움 신호수식은 다음과 같습니다.
이것을 예스 종목검색식으로 바꾸고 싶습니다.
S = Stochasticsslow(sto1,sto2);
M = Macd(short,long);
Ms = eavg(M,sig);
R = RSI(R기간);
Bs_Sto = BarsSince(CrossUp(S,20));
cnt_Sto = CountSince(CrossUp(S,20), S<80);
Bs_Macd = BarsSince(CrossUp(M,Ms));
Bs_Rsi = BarsSince(CrossUp(R,50));
조건 = Bs_Sto > Bs_Macd && Bs_Sto > Bs_Rsi;
//Max(Bs_Sto, Bs_Macd, Bs_Rsi) == Bs_Sto
조건 && !조건(1) && (Bs_Sto+1)==cnt_Sto
**************************************************
input : sto1(10),sto2(5),short(12),long(26),sig(9),R기간(10),N(13);
var : S(0),md(0),ms(0),R(0);
var : Bs_Sto(-1),cnt_sto(-1),Bs_macd(-1),Bs_Rsi(-1),조건(False);
S = StochasticsK(sto1,sto2);
Md = Macd(short,long);
Ms = Ema(Md,sig);
R = RSI(R기간);
if CrossUp(S,20) Then
{
Bs_Sto = 0;
cnt_Sto = 0;
}
Else
{
if Bs_Sto >= 0 Then
Bs_Sto = Bs_Sto+1;
if cnt_Sto >= 0 and S < 80 Then
cnt_Sto = cnt_Sto+1;
}
if CrossUp(Md,Ms) Then
Bs_Macd = 0;
Else
{
if Bs_Macd >= 0 Then
Bs_Macd = Bs_Macd+1;
}
if CrossUp(R,50) Then
Bs_Rsi = 0;
Else
{
if Bs_Rsi >= 0 Then
Bs_Rsi = Bs_Rsi+1;
}
조건 = Bs_Sto >= 0 and Bs_Macd >= 0 and Bs_Rsi >= 0 and Bs_Sto <= N and
Bs_Sto > Bs_Macd and Bs_Sto > Bs_Rsi;
if 조건 && 조건[1] == False && (Bs_Sto+1)==cnt_Sto Then
Find(1);
도움주셔서 감사드립니다.
늘 고맙습니다!!
2024-08-26
703
글번호 182844
종목검색
답변완료
문의드립니다
a기간 동안에는 adx(10)
b기간 동안에는 adx(20)
c기간 동안에는 adx(30)
이런식으로 기간에 따라 값이 달라지게 하려고 합니다
아래의 식을 활용해서 메세지로그를 체크하여서
실제로 기간이 바뀜에 따라 값이 잘 바뀌는지를 확인해봤습니다
기간이 바뀜에 따라 leng값, 이동평균선, atr 모두 잘 바뀌었습니다.
그런데 rsi와 adx는 기간에 상관없이 값이 0이 나옵니다.
어떻게 해결할 수 있을까요?
나스닥 분봉 차트입니다.
vars: leng(80), check(0);
if date >= 20240819 and date < 20240821 then
begin
leng = 60;
end;
if date >= 20240821 and date < 20240823 then
begin
leng = 40;
end;
if date >= 20240823 then
begin
leng = 20;
end;
//------------------------------------
//check = leng;
//MessageLog("leng 값 %.2f", check );
//check = ma(c, leng);
//MessageLog("ma 값 %.2f", check );
//check = ATr(leng);
//MessageLog("atr 값 %.2f", check );
//check = rsi(leng);
//MessageLog("rsi 값 %.2f", check );
check = ADX(leng);
MessageLog("adx 값 %.2f", check );
//------------------------------------
if ( MarketPosition <> 1 ) then buy ("롱진입",Atmarket);
if (MarketPosition == 1) then ExitLong ("TimeExitL", Atmarket);
2024-08-26
798
글번호 182842
시스템
답변완료
추세선 crossup
전에 문의했던 추세선 돌파가 잘 안나와서 재질문 드립니다
추세선 연장을 한 상태이면 추세선의 시작점, 끝점을 이은 선만이 아닌 연장된 선까지 해당되는게 아닌가요?
제가 이해를 제대로 못한건지 뜻하는대로 잘 안나와서 여쭤봅니다
스샷을 첨부했고 수식은 아래와 같습니다
스샷을 보시면 2번째 추세선을 가장 긴 장대양봉의 종가가 돌파를 한 상태인데 표시가 안나오네요. 전 봉의 종가는 추세선 아래에 있었고요. 그럼 돌파의 의미가 맞지 않나요?~
crossup(c,value1) 대신에 if c>value1 and c[1]<value1 then 으로도 해봤는데 안나오네요 ㅠㅠ...
일전에 plot 으로 표현했다가 점그래프가 너무 작게 나와서 텍스트로 다시 수정해주셨는데 (txx 부분)
한번 검토 해주셨으면 감사하겠습니다
+추가로 하나 부탁드려도 될까요
두개의 상향 추세선 (lb > hb) 의 시작점 사이가 n봉 (10봉 이상일때) 고점 갱신 라인을, 하향 추세선 (lb < hb) 의 시작점 사이가 20봉 이상일때 고점 라인을 나타내는것도 가능할까요?
감사합니다
var : n(18);
var : cnt(0),hh(0),hb(0),ll(0),lb(0),TL(0),TX(0),tx1(0),TL1(0),tl2(0);
if CountIf(H >= L*1.11,n) >= 1 Then
{
#"최근봉"만 표시되게 하기위해 "직전에서 출력된 추세선과 텍스트는 삭제"
#n개봉 최고가와 최고가위치(몇봉전인지) 계산
#n개봉 최저가와 최저가위치(몇봉전인지) 계산
hh = 0;
hb = 0;
ll = 0;
lb = 0;
For cnt = 0 to n-1
{
if hh == 0 or (hh > 0 and h[cnt] > hh) Then
{
hh = h[cnt];
hb = cnt;
}
// plot1(hh);
if ll == 0 or (ll > 0 and l[cnt] < ll) Then
{
ll = l[cnt];
lb = cnt;
}
// Plot4(ll,"ll",LightGreen);
// TL2 = TL_New(sDate[n-1],sTime[n-1],hh,sDate[0],sTime[0],hh);
// TL_SetColor(tl2,Yellow);
}
if (lb > hb and hh >= ll*1.24) or (lb < hb and ll <= hh*0.80) Then
{
// TL_Delete(TL);
// Text_Delete(TX);
//TL_Delete(TL1);
if (hb < lb and abs(hb-lb) <= 18) or (hb > lb and abs(hb-lb) <= 9) Then
{
#상향,하향 일때 봉갯수 조건
TL = TL_New(sDate[hb],sTime[hb],hh,sDate[lb],sTime[lb],ll);
TL_SetDrawMode(tl,0);
TL_SetExtRight(tl,true);
#20개봉 수평선
TL1 = TL_New(sDate[n-1],sTime[n-1],hh,sDate[0],sTime[0],hh);
TL_SetDrawMode(tl1,0);
TL_SetColor(tl1,Tomato);
TL_SetSize(tl1,0);
#최고가가 더 가까우면 빨강 아니면 파랑
if lb > hb Then
{
TL_SetColor(TL,Pink);
TL_SetStyle(tl,2);
}
Else
{
TL_SetColor(TL,LightBlue);
TL_SetStyle(tl,2);
}
#최고가 이후 최저가 발생했고 5봉이내
#등락률
if (hb > lb and abs(hb-lb) <= 5) Then
{
TL_SetColor(tl,Yellow);
TX1 = text_new(sDate,sTime,LL,NumToStr((ll-hh)/hh*100,0));
Text_SetStyle(tx1,2,0);
}
//TL_Delete(TL1);
// TX = Text_New(TL_GetEndDate(TL),TL_GetEndTime(TL),TL_GetendVal(TL),NumToStr(abs(hb-lb),0));
Text_SetSize(tx,12);
}
}
}
var : txx(0);
#돌파 텍스트 표시
if TL_GetValue(TL,sDate,stime) > 0 then
{
value1 = TL_GetValue(TL,sDate,stime);
if crossup(c,value1) Then
{
txx = Text_New(sDate,sTime,L,"●");
Text_SetColor(txx,LightGreen);
Text_SetSize(txx,15);
Text_SetStyle(txx,2,0);
}
}
#추세선값 상향돌파
/*
if TL_GetValue(TL,sDate,stime) > 0 then
{
value1 = TL_GetValue(TL,sDate,stime);
if CrossUp(l,Value1) Then
plot3(high,"tlcross",LightGreen);
}
2024-08-26
754
글번호 182818
지표