커뮤니티
예스랭귀지 Q&A
답변완료
[공지] 예스랭귀지 AI 어시스턴트, '예스나 AI' 출시 및 무료 체험 안내
안녕하세요, 예스스탁 입니다.복잡한 수식 공부 없이 여러분의 아이디어를 말하면 시스템 트레이딩 언어 예스랭귀지로 작성해주는 서비스예스나 AI(YesNa AI)가 출시되었습니다.지금 예스나 AI를 직접 경험해 보실 수 있도록 20크레딧(질문권 20회)를 무료로 증정해 드리고 있습니다.바로 여러분의 아이디어를 코드로 변환해보세요.--------------------------------------------------🚀 YesNa AI 핵심 기능- 지표식/전략식/종목검색식 생성: 자연어로 요청하면 예스랭귀지 문법에 맞는 코드를 작성합니다.- 종목검색식 변환 지원: K증권의 종목 검색식을 예스랭귀지로 변환 지원합니다.- 컴파일 검증: 작성된 코드가 실행 가능한지 컴파일러를 통해 문법 검증을 거쳐 결과물을 제공합니다.상세한 서비스 개요 및 활용 방법은 [서비스 소개 페이지]에서 확인하실 수 있습니다.▶ 서비스 소개 페이지: 바로가기서비스 사용 유의사항 및 결제 환불정책은 [이용약관]을 참고 부탁드립니다.▶ 서비스 이용약관: 바로가기💬 이용 문의사용 중 문의사항은 [프로그램 사용법 Q&A] 게시판에서 [예스나 AI] 카테고리를 설정 후 문의해 주시면 상세히 안내해 드리겠습니다.--------------------------------------------------앞으로도 AI를 활용한 다양한 트레이딩 기능들을 지속적으로 선보일 예정입니다.많은 관심과 기대 부탁드립니다.
2026-02-27
6306
글번호 230811
답변완료
수식문의
그림 1의 차트는 아래수식을 적용 한 일봉차트 입니다.
차트에서 저점꼮지점의 종가와 고점꼮지점의 종가가 표시되고 있습니다.
이와같이
1. 저점꼮지점의 값 및
2. 고점꼮지점의 값을 구하는 수식을 부탁드립니다.
관련수식
Input:상승전환가격(5),하락전환가격(5),종가사용여부(1),파동선두께(1),수치표시(1);
Var:j(0),jj(0),HH(0),LL(0),hiBar(0),loBar(0),최종꼭지점(""),처리구분(""),
TL1(0),Text1(0);
Array:고[10,4](0),저[10,4](0); // 1:가격,2:Index,3:sDate,4:sTime
#==========================================#
HH = IFF(종가사용여부 == 1,C,H);
LL = IFF(종가사용여부 == 1,C,L);
If Index == 0 Then
{
고[1,1] = HH;
고[1,2] = 0;
고[1,3] = sDate;
고[1,4] = sTime;
저[1,1] = LL;
저[1,2] = 0;
저[1,3] = sDate;
저[1,4] = sTime;
}
If Index > 0 Then // Index가 0일때는 이전 봉이 없으므로 Index가 1일때부터 1씩 증가
{
hiBar = hiBar + 1; // 최고점을 찍은 고[저]가의 위치를 저장 해놓기 위해 봉번호를 카운트한다.
loBar = loBar + 1;
}
If HH[hiBar] < HH Then hiBar = 0; // 현재 봉이 최고가이면 봉번호를 0으로 초기화
If LL[loBar] > LL Then loBar = 0;
Condition1 = 저[1,1] + 상승전환가격 < HH and hiBar == 0;
// 전저점에서 전환가격만큼 더한 값보다 고가가 크다면 추세가 변한 것으로 보고 신규 고점으로 인식
Condition2 = 고[1,1] - 하락전환가격 > LL and loBar == 0;
// 전고점에서 전환가격만큼 뺀 값보다 저가가 작다면 추세가 변한 것으로 보고 신규 저점으로 인식
처리구분 = "";
If Condition1 and Condition2 Then // 고점과 저점 조건 동시 만족
{
If 최종꼭지점 == "저점" Then
{
If 저[1,1] > LL Then 처리구분 = "저점처리";
Else 처리구분 = "고점처리";
}
Else If 최종꼭지점 == "고점" Then
{
If 고[1,1] < HH Then 처리구분 = "고점처리";
Else 처리구분 = "저점처리";
}
}
Else If Condition1 Then 처리구분 = "고점처리";
Else If Condition2 Then 처리구분 = "저점처리";
#==========================================#
If 처리구분 == "고점처리" Then
{
If 최종꼭지점 == "저점" Then
{
For j = 10 DownTo 2
{
For jj = 1 To 4
{
고[j,jj] = 고[j-1,jj];
}
}
고[1,1] = HH[hiBar];
고[1,2] = Index - hiBar;
고[1,3] = sDate[hiBar];
고[1,4] = sTime[hiBar];
hiBar = -1;
// 다음 봉의 고가가 기준 고가로 인식되려면 hiBar 값이 0이 되어야 한다.
// 봉이 바뀔 때마다 hiBar의 값을 1씩 증가시키므로 다음 봉의 hiBar 값은 0이 된다.
loBar = -1;
TL1 = TL_New(저[1,3],저[1,4],저[1,1],고[1,3],고[1,4],고[1,1]);
If 수치표시 == 1 Then
{
Text1 = Text_New(고[1,3],고[1,4],고[1,1],NumToStr(고[1,1],2));
Text_SetStyle(Text1, 2, 1);
}
TL_SetSize(TL1,파동선두께);
TL_SetColor(TL1,Red);
}
Else If 고[1,1] < HH[hiBar] Then // 1번 고점보다 높은 고가 출현
{
고[1,1] = HH[hiBar];
고[1,2] = Index - hiBar;
고[1,3] = sDate[hiBar];
고[1,4] = sTime[hiBar];
hiBar = -1;
loBar = -1;
TL_SetEnd(TL1,고[1,3],고[1,4],고[1,1]);
// 시작점은 변동없고 끝점의 위치가 현재 봉으로 연장된 것임
If 수치표시 == 1 Then
{
Text_SetLocation(Text1,고[1,3],고[1,4],고[1,1]);
Text_SetString(Text1,NumToStr(고[1,1],2));
}
}
최종꼭지점 = "고점";
}
#==========================================#
If 처리구분 == "저점처리" Then
{
If 최종꼭지점 == "고점" Then
{
For j = 10 DownTo 2
{
For jj = 1 To 4
{
저[j,jj] = 저[j-1,jj];
}
}
저[1,1] = LL[loBar];
저[1,2] = Index - loBar;
저[1,3] = sDate[loBar];
저[1,4] = sTime[loBar];
hiBar = -1;
loBar = -1;
TL1 = TL_New(고[1,3],고[1,4],고[1,1],저[1,3],저[1,4],저[1,1]);
If 수치표시 == 1 Then
{
Text1 = Text_New(저[1,3],저[1,4],저[1,1],NumToStr(저[1,1],2));
Text_SetStyle(Text1, 2, 0);
}
TL_SetSize(TL1,파동선두께);
TL_SetColor(TL1,Blue);
}
Else If 저[1,1] > LL[loBar] Then
{
저[1,1] = LL[loBar];
저[1,2] = Index - loBar;
저[1,3] = sDate[loBar];
저[1,4] = sTime[loBar];
hiBar = -1;
loBar = -1;
TL_SetEnd(TL1,저[1,3],저[1,4],저[1,1]);
If 수치표시 == 1 Then
{
Text_SetLocation(Text1,저[1,3],저[1,4],저[1,1]);
Text_SetString(Text1,NumToStr(저[1,1],2));
}
}
최종꼭지점 = "저점";
}
#===========================================#
#===========================================#
If 최종꼭지점[1] < 최종꼭지점 Then
var1 = -1;
if 최종꼭지점[1] > 최종꼭지점 Then
var1 = 1;
if var1 == -1 Then
sell();
if var1 == 1 Then
buy();
2017-05-21
169
글번호 109731
답변완료
시간표현
국선 복합장에서 시가시간은 09시를 if stime == 090000로 표현하면되는데, 새벽5시를 종가로 본다면 어떻게 표현하면 되나요 if stime == 290000로 표현하면 안될거 같아서요
2017-05-21
131
글번호 109730
답변완료
수식 부탁 드립니다.
* 항상 많은 도움에 고맙습니다.
<인택스> if dayindex 관련 로직 부분 입니다.
* 질문1> 금일 가격이 전일 최고가 대비 돌파후 돌파봉 기준 -2% 하락후 매수
* 질문2> 금일 가격이 전일 최고가 대비 돌파 시그널 이후 전일 최저가 보다 작으면 매수
* 질문3> 금일 최저가 새로 발생시 계속 매수 로직
→ dayopen가격 1000원 이후 990원 발생시 매수
이후 970원 발생시 또매수
이후 960원 발생시 또매수.....
즉 당일 dayopen 가격 기준 새로운 저가가 발생 하면 발생 할때 마다 계속 매수
* 항상 고맙습니다. 수고하십시요.
2017-05-21
118
글번호 109729
답변완료
검색식 부탁해요
obv
obv 시그널
obv비교 말고 obv 시그널로 비교 하고 싶어요
120시그널<60시그널<20시그널
검색식좀 알려주세요
2017-05-21
134
글번호 109728
답변완료
수식 부탁 합니다
Input:length(15);
Var:j(0),lastHiVal(0),lastLoVal(0),turnPntBit(""),TL1(0);
Array:valArr[10](0),barArr[10](0),turnPntArr[10]("");
For j = 0 To 9
{
barArr[j] = barArr[j] + 1;
}
Condition1 = Highest(H,length) == H and lastHiVal <> H;
Condition2 = Lowest(L,length) == L and lastLoVal <> L;
If Condition1 Then lastHiVal = H;
If Condition2 Then lastLoVal = L;
turnPntBit = "";
If Condition1 and Condition2 Then
{
If Max(valArr[1],valArr[2]) < H and Min(valArr[1],valArr[2]) > L Then
turnPntBit = "HiLo";
Else If Max(valArr[1],valArr[2]) < H Then turnPntBit = "Hi";
Else If Min(valArr[1],valArr[2]) > L Then turnPntBit = "Lo";
}
Else If Condition1 Then turnPntBit = "Hi";
Else If Condition2 Then turnPntBit = "Lo";
If turnPntBit <> "" Then
{
If turnPntBit == "HiLo" Then
{
valArr[1] = IFF(turnPntArr[1] == "Hi",H,L);
barArr[1] = 0;
TL_SetEnd(TL1,sDate[barArr[1]],sTime[barArr[1]],valArr[1]);
If turnPntArr[1] == "Hi" Then
turnPntBit = "Lo";
Else
turnPntBit = "Hi";
}
If turnPntBit <> turnPntArr[1] Then
{
for j = 8 downto 1
{
valArr[j+1] = valArr[j];
barArr[j+1] = barArr[j];
turnPntArr[j+1] = turnPntArr[j];
}
}
If turnPntBit <> turnPntArr[1] or
(turnPntBit == turnPntArr[1] and
((turnPntBit == "Hi" and valArr[1] < H) or
(turnPntBit == "Lo" and valArr[1] > L))) Then
{
valArr[1] = IFF(turnPntBit == "Hi",H,L);
barArr[1] = 0;
turnPntArr[1] = turnPntBit;
If turnPntArr[1][1] <> turnPntArr[1][0] Then{
TL1 = TL_New(sDate[barArr[2]],sTime[barArr[2]],valArr[2],
sDate[barArr[1]],sTime[barArr[1]],valArr[1]);
if turnPntArr[1][0] == "Hi" Then
buy();
Else
sell();
}
Else
TL_SetEnd(TL1,sDate[barArr[1]],sTime[barArr[1]],valArr[1]);
}
}
TL_SetSize(TL1,1);
위시스템에 추가해서 MACDS선이 0선위에 있을때는 매수신호만 발생
MACDS선이 0선 아래에 있을때는 매도 신호만 발생 하는 시스템식을 만들고 싶습니다.
제가 나름 만들어 보았는데 MACDS선이 0선위에 있는데도 매수 매도 신호 둘다 나옵니다.
MACDS선은 아래 수식에서 가져온것입니다.
Input : shortPeriod(12), longPeriod(26), Period(9);
Var : MACDV(0) , MACDs(0) ;
MACDV = MACD(shortPeriod, longPeriod);
MACDS = ema(MACDV,Period);
2017-05-21
112
글번호 109727
답변완료
이격도를 차트에 표현하고 싶습니다
아래식은 예전에 관리자님이 작성해주신 식입니다.
var : ii(0),v1(0),v2(0),v3(0);
var : mav1(0),mav2(0),mav3(0);
var : mav11(0),mav22(0),mav33(0);
if Bdate != Bdate[1] Then{
ii = 0;
v1 = 0;
v2 = 0;
v3 = 0;
mav11 = mav1[1];
mav22 = mav2[1];
mav33 = mav3[1];
}
v1 = v1 + (H-dayopen);
v2 = v2 + (L-dayopen);
v3 = v3 + (C-dayopen);
ii = ii+1;
mav1 = dayopen+(v1/ii);
mav2 = dayopen+(v2/ii);
mav3 = dayopen+(v3/ii);
plot1(C/mav11*100-100,"고가");
plot2(C/mav22*100-100,"저가");
plot3(C/mav33*100-100,"종가");
plot4(0,"기준선");
2가지 요청합니다. 부탁드립니다.
1.아래식의 수치값을 변형하여 이격도를 차트에 표현하고 싶습니다.
도와주시면 감사하겠습니다.
2.상기 이격도가 당일 아침 장시작시 기준값인 0선에서 항상 시작할수 있도록 수정부탁드립니다.(갭의 여부와 상관없이 시작은 항상 기준선에서 부터....)
2017-05-22
164
글번호 109726
답변완료
이평선접점을 선으로 연결
예전에 보내주신 아래의 서식 잘받았습니다.
작성해주신 이평선 접점을 수평선으로 표현했던 것을 접점과 접점끼리 선으로 연결하여 차트에 표현하고 싶습니다. 도와주십시요
- 아 래 -
input : Atime(60),P1(60),P2(120);
var : TF(0),cnt(0),sum1(0),mav1(0),sum2(0),mav2(0);
var : sum11(0),mav11(0),mav22(0),sum22(0);
Array : CC[200](0);
TF = TimeToMinutes(stime)%Atime;
if bdate != bdate[1] or (TF < TF[1] and bdate == bdate[1]) Then{
for cnt = 1 to 199{
CC[cnt] = CC[cnt-1][1];
}
}
CC[0] = C;
if CC[P2] > 0 then{
sum1 = 0;
sum11 = 0;
sum2 = 0;
sum22 = 0;
for cnt = 0 to P2{
if cnt < P1 Then{
sum1 = sum1+CC[cnt];
sum11 = sum11+CC[cnt+1];
}
if cnt < P2 Then{
sum2 = sum2+CC[cnt];
sum22 = sum22+CC[cnt+1];
}
}
mav1 = sum1/P1;
mav11 = sum11/P1;
mav2 = sum2/P2;
mav22 = sum22/P2;
if mav1 > mav2 and mav11 < mav22 then
var1 = (mav1+mav2)/2;
if mav1 < mav2 and mav11 > mav22 then
var1 = (mav1+mav2)/2;
plot1(var1);
}
2017-05-21
197
글번호 109725
답변완료
지표식 부탁드립니다.
항상 도움 주셔서 감사합니다.
첨부된 그림과 같이 지표식 부탁드립니다.
지표식1) 라인1
캔들이 볼린저밴드 상단 상승 돌파시 볼린저 밴드값을 우측라인으로 표시하되
캔들이 볼린저밴드 중심을 돌파한 적이 없으면 캔들이 볼린저밴드 상단을
다시 돌파해도 값은 변화지 않습니다.
즉 캔들이 볼린저밴드 중심을 하락 돌파했다가 볼린저밴드 상단을 다시 돌파할 경우에만
라인을 그리되 볼린저밴드 중심 하락 돌파하기 전까지 값의 변화는 없습니다.
지표식2) 라인2
캔들이 볼린저밴드 하단 하락 돌파시 볼린저 밴드값을 우측라인으로 표시하되
캔들이 볼린저밴드 중심을 돌파한 적이 없으면 캔들이 볼린저밴드 하단을
다시 돌파해도 값은 변화지 않습니다.
즉 캔들이 볼린저밴드 중심을 상승 돌파했다가 볼린저밴드 하단을 다시 돌파할 경우에만
라인을 그리되 볼린저밴드 중심 상승 돌파하기 전까지 값의 변화는 없습니다.
지표식3) 라인3
캔들이 볼린저밴드 중심을 상승 또는 하락 돌파시 볼린저 밴드의 중심 값을 우측라인으로
표시합니다.
시스템식4)
하루에 손실청산이 3번이면 매매가 되지않는 시스템식 부탁드립니다
시스템식5)
하루에 수익청산이 2번이면 매매가 되지않는 시스템식 부탁드립니다
시스템식6)
하루에 매매가(수익청산, 손실청산 상관없이) 3번만 매매가 되는 시스템식 부탁드립니다
시스템식7)
5분봉 차트에서 임의의 시간을 기준으로 장 시작후 현재 시간 이전까지의
최고값과 최저값을 화면에 표시하고 싶습니다.
매분마다 이전 최고값과 최저값을 차트에 표시하고 싶습니다.
감사합니다.
2017-05-22
239
글번호 109724
답변완료
수식문위드립니다
macd 가 +권으로 올라오면 음봉종가에 매수
macd 가 -권으로 들어가면 양봉종가에 매도
2017-05-20
121
글번호 109723