커뮤니티
예스랭귀지 Q&A
답변완료
[공지] 예스랭귀지 AI 어시스턴트, '예스나 AI' 출시 및 무료 체험 안내
안녕하세요, 예스스탁 입니다.복잡한 수식 공부 없이 여러분의 아이디어를 말하면 시스템 트레이딩 언어 예스랭귀지로 작성해주는 서비스예스나 AI(YesNa AI)가 출시되었습니다.지금 예스나 AI를 직접 경험해 보실 수 있도록 20크레딧(질문권 20회)를 무료로 증정해 드리고 있습니다.바로 여러분의 아이디어를 코드로 변환해보세요.--------------------------------------------------🚀 YesNa AI 핵심 기능- 지표식/전략식/종목검색식 생성: 자연어로 요청하면 예스랭귀지 문법에 맞는 코드를 작성합니다.- 종목검색식 변환 지원: K증권의 종목 검색식을 예스랭귀지로 변환 지원합니다.- 컴파일 검증: 작성된 코드가 실행 가능한지 컴파일러를 통해 문법 검증을 거쳐 결과물을 제공합니다.상세한 서비스 개요 및 활용 방법은 [서비스 소개 페이지]에서 확인하실 수 있습니다.▶ 서비스 소개 페이지: 바로가기서비스 사용 유의사항 및 결제 환불정책은 [이용약관]을 참고 부탁드립니다.▶ 서비스 이용약관: 바로가기💬 이용 문의사용 중 문의사항은 [프로그램 사용법 Q&A] 게시판에서 [예스나 AI] 카테고리를 설정 후 문의해 주시면 상세히 안내해 드리겠습니다.--------------------------------------------------앞으로도 AI를 활용한 다양한 트레이딩 기능들을 지속적으로 선보일 예정입니다.많은 관심과 기대 부탁드립니다.
2026-02-27
1793
글번호 230811
답변완료
77747 수식 재문의
덧붙여 수정을 부탁드렸던 내용을
빠트리신 것 같습니다.
바쁘신 와중에도 친절히 봐주시고
항상 감사드리고 있습니다.
다시 부탁드립니다.
************
고쳐주신 수식에 추가 덧붙여서
아래수식 upv, dnv을
(70,30을 가격에 plot1,2로 그린 것처럼)
plot3,4로 가격에 표시하고 싶습니다.
RSIv = RSI(RSI_Period);
upv = Ma(RSIv,BB_Period) + D1 * std(RSIv,BB_Period);
dnv = ma(RSIv,BB_Period) - D1 * std(RSIv,BB_Period) ;
부탁드리겠습니다. 감사합니다.
Input : Length(9);
Var : Counter(0), DownAmt(0), UpAmt(0), UpSum(0), DownSum(0), UpAvg(0), DownAvg(0),RSIV(0),Current(0);
var : cnt1(0),current1(0),UpAmt1(0),DownAmt1(0),UpAvg1(0),DownAvg1(0),RSIv1(0);
var : cnt2(0),current2(0),UpAmt2(0),DownAmt2(0),UpAvg2(0),DownAvg2(0),RSIv2(0);
var : upPrice(0),dnPrice(0);
If CurrentBar == 1 AND Length > 0 Then
Begin
UpSum = 0;
DownSum = 0;
For Counter = 0 To Length - 1
Begin
UpAmt = C[Counter] - C[Counter+1];
If UpAmt >= 0 Then
DownAmt = 0;
Else Begin
DownAmt = -UpAmt;
UpAmt = 0;
End;
UpSum = UpSum + UpAmt;
DownSum = DownSum + DownAmt;
End;
UpAvg = UpSum / Length;
DownAvg = DownSum / Length;
End
Else If CurrentBar > 1 AND Length > 0 Then Begin
UpAmt = C[0] - C[1];
If UpAmt >= 0 Then
DownAmt = 0;
Else Begin
DownAmt = -UpAmt;
UpAmt = 0;
End;
UpAvg = (UpAvg[1] * (Length - 1) + UpAmt) / Length;
DownAvg = (DownAvg[1] * (Length - 1) + DownAmt) / Length;
End;
If UpAvg + DownAvg <> 0 Then
RSIv = 100 * UpAvg / (UpAvg + DownAvg);
Else
RSIv = 0;
IF rsiv[1] >= 30 AND rsiv[1] <= 70 Then
{
for cnt1 = 0 to 100
{
Current1 = C+PriceScale*cnt1;
UpAmt1 = current1 - C[1];
If UpAmt1 >= 0 Then
DownAmt1 = 0;
Else
Begin
DownAmt1 = -UpAmt1;
UpAmt1 = 0;
End;
UpAvg1 = (UpAvg[1] * (Length - 1) + UpAmt1) / Length;
DownAvg1 = (DownAvg[1] * (Length - 1) + DownAmt1) / Length;
If UpAvg1 + DownAvg1 <> 0 Then
RSIv1 = 100 * UpAvg1 / (UpAvg1 + DownAvg1);
Else
RSIv1 = 0;
IF rsiv1 >= 70 Then
{
upPrice = CURRENT1;
cnt1 = 101;
}
}
for cnt2 = 0 to 100
{
Current2 = C-PriceScale*cnt2;
UpAmt2 = current2 - C[1];
If UpAmt2 >= 0 Then
DownAmt2 = 0;
Else
Begin
DownAmt2 = -UpAmt2;
UpAmt2 = 0;
End;
UpAvg2 = (UpAvg[1] * (Length - 1) + UpAmt2) / Length;
DownAvg2 = (DownAvg[1] * (Length - 1) + DownAmt2) / Length;
If UpAvg2 + DownAvg2 <> 0 Then
RSIv2 = 100 * UpAvg2 / (UpAvg2 + DownAvg2);
Else
RSIv2 = 0;
IF rsiv2 <= 30 Then
{
dnPrice = CURRENT2;
cnt2 = 101;
}
}
plot1(upPrice);
plot2(dnPrice);
}
즐거운 하루되세요
> 흑수돌 님이 쓴 글입니다.
> 제목 : 수식 재문의
> 지난번에 도움 받았던 수식입니다만,
깔아보니 그림과 같이 나옵니다.
하단선만 저멀리 떨어져 있는데, 어디가 잘못된 것인지
찾을 길이 없어 다시 문의드립니다.
이를 수정하고,
본 수식에 추가 덧붙여서
아래수식 upv, dnv을
(70,30을 가격에 plot1,2로 그린 것처럼)
plot3,4로 가격에 표시하고 싶습니다.
RSIv = RSI(RSI_Period);
upv = Ma(RSIv,BB_Period) + D1 * std(RSIv,BB_Period);
dnv = ma(RSIv,BB_Period) - D1 * std(RSIv,BB_Period) ;
부탁드리겠습니다. 감사합니다.
2022-06-21
1277
글번호 160037
답변완료
3개에서 max + min
보조차트를 이용하여 Z값을 설정하고 싶습니다.
data2(c)와 data3(c)와 data4(c) 3개를 비교하여
- 가장 큰 값과 가장 작은 값의 합을 Z라 한다
ex) (-10, 1, 15)이면 z는 5
ex) (5, -10, 7)이면 z는 -3
- 데이트레이딩
- 금일 발생봉 적용
z 수식 부탁드립니다.
2022-11-02
1072
글번호 160035
답변완료
문의드립니다.
수고 많으십니다.
키움 영웅문의 검색식을 예스스탁 검색식으로 사용하고져 합니다.
동일조건으로 검색 될 수 있도록 부탁드립니다.
★ 검색식
- 주가등락률: [일] 0봉전(중) 시가(종가) 대비 0봉전 종가(시가) 등락률
10% 이상
# 첨부
- 주가등락률
2022-06-21
1161
글번호 160034
회원 님에 의해서 삭제되었습니다.
2022-06-21
180
글번호 160032
답변완료
수식 재문의
지난번에 도움 받았던 수식입니다만,
깔아보니 그림과 같이 나옵니다.
하단선만 저멀리 떨어져 있는데, 어디가 잘못된 것인지
찾을 길이 없어 다시 문의드립니다.
이를 수정하고,
본 수식에 추가 덧붙여서
아래수식 upv, dnv을
(70,30을 가격에 plot1,2로 그린 것처럼)
plot3,4로 가격에 표시하고 싶습니다.
RSIv = RSI(RSI_Period);
upv = Ma(RSIv,BB_Period) + D1 * std(RSIv,BB_Period);
dnv = ma(RSIv,BB_Period) - D1 * std(RSIv,BB_Period) ;
부탁드리겠습니다. 감사합니다.
Input : Length(9);
Var : Counter(0), DownAmt(0), UpAmt(0), UpSum(0), DownSum(0), UpAvg(0), DownAvg(0),RSIV(0),Current(0);
var : cnt1(0),current1(0),UpAmt1(0),DownAmt1(0),UpAvg1(0),DownAvg1(0),RSIv1(0);
var : cnt2(0),current2(0),UpAmt2(0),DownAmt2(0),UpAvg2(0),DownAvg2(0),RSIv2(0);
var : upPrice(0),dnPrice(0);
If CurrentBar == 1 AND Length > 0 Then
Begin
UpSum = 0;
DownSum = 0;
For Counter = 0 To Length - 1
Begin
UpAmt = C[Counter] - C[Counter+1];
If UpAmt >= 0 Then
DownAmt = 0;
Else Begin
DownAmt = -UpAmt;
UpAmt = 0;
End;
UpSum = UpSum + UpAmt;
DownSum = DownSum + DownAmt;
End;
UpAvg = UpSum / Length;
DownAvg = DownSum / Length;
End
Else If CurrentBar > 1 AND Length > 0 Then Begin
UpAmt = C[0] - C[1];
If UpAmt >= 0 Then
DownAmt = 0;
Else Begin
DownAmt = -UpAmt;
UpAmt = 0;
End;
UpAvg = (UpAvg[1] * (Length - 1) + UpAmt) / Length;
DownAvg = (DownAvg[1] * (Length - 1) + DownAmt) / Length;
End;
If UpAvg + DownAvg <> 0 Then
RSIv = 100 * UpAvg / (UpAvg + DownAvg);
Else
RSIv = 0;
IF rsiv[1] >= 30 AND rsiv[1] <= 70 Then
{
for cnt1 = 0 to 100
{
Current1 = C+PriceScale*cnt1;
UpAmt1 = current1 - C[1];
If UpAmt1 >= 0 Then
DownAmt1 = 0;
Else
Begin
DownAmt1 = -UpAmt1;
UpAmt1 = 0;
End;
UpAvg1 = (UpAvg[1] * (Length - 1) + UpAmt1) / Length;
DownAvg1 = (DownAvg[1] * (Length - 1) + DownAmt1) / Length;
If UpAvg1 + DownAvg1 <> 0 Then
RSIv1 = 100 * UpAvg1 / (UpAvg1 + DownAvg1);
Else
RSIv1 = 0;
IF rsiv1 >= 70 Then
{
upPrice = CURRENT1;
cnt1 = 101;
}
}
for cnt2 = 0 to 100
{
Current2 = C-PriceScale*cnt1;
UpAmt2 = current2 - C[1];
If UpAmt2 >= 0 Then
DownAmt2 = 0;
Else
Begin
DownAmt2 = -UpAmt2;
UpAmt2 = 0;
End;
UpAvg2 = (UpAvg[1] * (Length - 1) + UpAmt2) / Length;
DownAvg2 = (DownAvg[1] * (Length - 1) + DownAmt2) / Length;
If UpAvg2 + DownAvg2 <> 0 Then
RSIv2 = 100 * UpAvg2 / (UpAvg2 + DownAvg2);
Else
RSIv2 = 0;
IF rsiv2 <= 30 Then
{
dnPrice = CURRENT2;
cnt2 = 101;
}
}
plot1(upPrice);
plot2(dnPrice);
}
2022-06-21
1319
글번호 160030
답변완료
Reverse 지표 타주기 수식 부탁드려요
안녕하세요!
reverse 지표에 대한 타주기 수식 부탁드려요!!
타분봉간 60분 reverse를 1분에 표시...
** reverse 지표 **
------------------
Input : Short(12), Long(24);
value1 = accumN(C-C[1],Short);
value2 = accumN(C-C[1],Long);
value3 = iff(C>C[1],C-C[1],0);
value4 = iff(C<C[1],C-C[1],0);
If value1 > 0 Then
plot1(value1*(-100)/accumN(value3,Short), "reverse1");
Else
plot1(value1*100/accumN(value4,Short), "reverse1");
If value2 > 0 then
plot2(value2*(-100)/accumN(value3,Long),"reverse2");
Else
plot2(value2*100/accumN(value4,Long),"reverse2");
PlotBaseLine1(0, "기준선 0");
PlotBaseLine2(75, "기준선 75");
PlotBaseLine3(-75, "기준선 -75");
-----------------------------------------
2022-06-20
1108
글번호 160029
답변완료
수식변환의뢰
각 항목별로 수식변환 부탁드립니다.
[일]0봉전 윗그림자가 몸통의 50%이하고 아래그림자가 10%이하인 양봉
[일]0봉전 아래그림자가 몸통의 50%이하고 윗그림자가 10%이하 음봉
2022-06-20
1138
글번호 160027
답변완료
77739 수식 재문의
도움 주셔서 항상 감사드립니다.
아래에 찍히는 점을 plot로
차트에 남길 수 있도록 수정 부탁드립니다.
파동이 확정된 뒤,
지난 파동들의 값을 가져오는거라.
쉽게 생각하고 따로 언급드리지 않았습니다..
번거롭게 해드려 죄송합니다.
부탁드리겠습니다.
안녕하세요
예스스탁입니다.
추가된 TL24,TL25 추세선내용 참고하셔서
필요한 갯수만큼 확장하시기 바랍니다.
input:length(6);
Var:j(0),jj(0),HH(0),LL(0),최종고가(0),최종저가(0),최종꼭지점(""),처리구분(""),
TL1(0),Text1(0),TL2(0),TL3(0),TL4(0),TL5(0),TL12(0),TL13(0),TL14(0),TL15(0),T(0);
Array:고[10,4](0),저[10,4](0); // 1:가격,2:Index,3:sDate,4:sTime
var : TL24(0),TL25(0);
#==========================================#
HH = IFF(0==1,C,H);
LL = IFF(0==1,C,L);
If Index == 0 Then
{
고[1,1] = HH;
저[1,1] = LL;
}
Condition1 = Highest(HH,length) == HH and 최종고가 <> HH;
Condition2 = Lowest (LL,length) == LL and 최종저가 <> LL;
처리구분 = "";
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
{
T = 1;
최종고가 = HH; // 신규고점을 체크하기 위해 저장
If 최종꼭지점 == "저점" Then
{
For j = 10 DownTo 2
{
For jj = 1 To 4
{
고[j,jj] = 고[j-1,jj];
}
}
고[1,1] = HH;
고[1,2] = Index;
고[1,3] = sDate;
고[1,4] = sTime;
TL1 = TL_New(저[1,3],저[1,4],저[1,1],고[1,3],고[1,4],고[1,1]);
If 1 == 1 Then
{
Text1 = Text_New(고[1,3],고[1,4],고[1,1],NumToStr(고[1,1],2));
Text_SetStyle(Text1, 0, 1);
Text_SetColor(Text1,WHITE);
}
TL_SetSize(TL1,1);
TL_SetColor(TL1,WHITE);
}
Else If 고[1,1] < HH Then // 1번 고점보다 높은 고가 출현
{
고[1,1] = HH;
고[1,2] = Index;
고[1,3] = sDate;
고[1,4] = sTime;
TL_SetEnd(TL1,고[1,3],고[1,4],고[1,1]);
// 시작점은 변동없고 끝점의 위치가 현재 봉으로 연장된 것임
If 1 == 1 Then
{
Text_SetLocation(Text1,고[1,3],고[1,4],고[1,1]);
Text_SetString(Text1,NumToStr(고[1,1],2));
}
}
최종꼭지점 = "고점";
}
#==========================================#
If 처리구분 == "저점처리" Then
{
T = -1;
최종저가 = LL;
If 최종꼭지점 == "고점" then
{
For j = 10 DownTo 2
{
For jj = 1 To 4
{
저[j,jj] = 저[j-1,jj];
}
}
저[1,1] = LL;
저[1,2] = Index;
저[1,3] = sDate;
저[1,4] = sTime;
TL1 = TL_New(고[1,3],고[1,4],고[1,1],저[1,3],저[1,4],저[1,1]);
If 1 == 1 Then
{
Text1 = Text_New(저[1,3],저[1,4],저[1,1],NumToStr(저[1,1],2));
Text_SetStyle(Text1, 0, 0);
Text_SetColor(Text1,WHITE);
}
TL_SetSize(TL1,1);
TL_SetColor(TL1,WHITE);
}
Else If 저[1,1] > LL then
{
저[1,1] = LL;
저[1,2] = Index;
저[1,3] = sDate;
저[1,4] = sTime;
TL_SetEnd(TL1,저[1,3],저[1,4],저[1,1]);
If 1 == 1 Then
{
Text_SetLocation(Text1,저[1,3],저[1,4],저[1,1]);
Text_SetString(Text1,NumToStr(저[1,1],2));
}
}
최종꼭지점 = "저점";
}
if T == -1 and T[1] != -1 Then
{
TL2 = TL_New(고[2,3],고[2,4],고[2,1],sdate,stime,고[2,1]);
TL_Delete(TL3);
TL3 = TL_New(고[1,3],고[1,4],고[1,1],sdate,stime,고[1,1]);
TL_SetExtRight(TL3,true);
TL_SetSize(TL2,3);
TL_SetColor(TL2,RED);
TL_SetSize(TL3,3);
TL_SetColor(TL3,RED);
TL12 = TL_New(고[2,3],고[2,4],고[2,1],sdate,stime,고[2,1]);
TL_Delete(TL13);
TL13 = TL_New(고[1,3],고[1,4],고[1,1],sdate,stime,고[1,1]);
TL_SetExtRight(TL13,true);
TL_SetSize(TL12,1);
TL_SetColor(TL12,RED);
TL_SetSize(TL13,1);
TL_SetColor(TL13,RED);
TL_Delete(TL24);
TL_Delete(TL25);
TL24 = TL_New(고[1,3],고[1,4],고[1,1]-abs(고[2,1]-저[2,1]),sdate,stime,고[1,1]-abs(고[2,1]-저[2,1]));
TL25 = TL_New(고[1,3],고[1,4],고[1,1]-abs(고[3,1]-저[3,1]),sdate,stime,고[1,1]-abs(고[3,1]-저[3,1]));
TL_SetExtRight(TL24,true);
TL_SetExtRight(TL25,true);
TL_SetSize(TL24,0);
TL_SetStyle(TL24,3);
TL_SetColor(TL24,blue);
TL_SetSize(TL25,0);
TL_SetStyle(TL25,3);
TL_SetColor(TL25,blue);
}
if T == 1 and T[1] != 1 Then
{
TL4= TL_New(저[2,3],저[2,4],저[2,1],sdate,stime,저[2,1]);
TL_Delete(TL5);
TL5= TL_New(저[1,3],저[1,4],저[1,1],sdate,stime,저[1,1]);
TL_SetExtRight(TL5,true);
TL_SetSize(TL4,3);
TL_SetColor(TL4,blue);
TL_SetSize(TL5,3);
TL_SetColor(TL5,blue);
TL14= TL_New(저[2,3],저[2,4],저[2,1],sdate,stime,저[2,1]);
TL_Delete(TL15);
TL15= TL_New(저[1,3],저[1,4],저[1,1],sdate,stime,저[1,1]);
TL_SetExtRight(TL15,true);
TL_SetSize(TL14,1);
TL_SetColor(TL14,blue);
TL_SetSize(TL15,1);
TL_SetColor(TL15,blue);
TL_Delete(TL24);
TL_Delete(TL25);
TL24 = TL_New(저[1,3],저[1,4],저[1,1]+abs(고[2,1]-저[2,1]),sdate,stime,저[1,1]+abs(고[2,1]-저[2,1]));
TL25 = TL_New(저[1,3],저[1,4],저[1,1]+abs(고[3,1]-저[3,1]),sdate,stime,저[1,1]+abs(고[3,1]-저[3,1]));
TL_SetExtRight(TL24,true);
TL_SetExtRight(TL25,true);
TL_SetSize(TL24,0);
TL_SetStyle(TL24,3);
TL_SetColor(TL24,Red);
TL_SetSize(TL25,0);
TL_SetStyle(TL25,3);
TL_SetColor(TL25,Red);
}
즐거운 하루되세요
2022-06-20
1104
글번호 160022
답변완료
수식변환의뢰
수식변환의뢰
각 항목별 수식변환 부탁드립니다.
[예] [일]1봉전 2봉중 신저거래량 ==> V(1) < lowest(V(2), 2)
기간내 평균 거래량비율:[일]0봉전 5봉이내에서 1평균거래량대비(기준봉포함) 50%이상 1회 이상
분봉 금일 첫봉대비 거래량비율:[5분]주기 금일 첫봉 거래량대비 0봉전 거래량비율 200%이상
거래량비율:[일]5봉 평균(0봉전)거래량대비 동일주기 0봉전 100%이상
[일]0봉전 이평(단순 50) 5봉이내 박스에서 고가 1회 상한선 상향 돌파
주가등락률:[1분]65봉전(중) 고가대비 0봉전 종가등락률 -3%이하
기간내 등락률:[일]1봉전 5봉이내에서 전일종가대비종가 10% 이상
신고가:[일]1봉전 고가가 33봉이내에서 신고가
최저종가:[일]1봉전 종가가 60이내 최저종가
주가이평추세:[주]0봉전 (종가 10)이평 상승추세유지 2회 이상
상세이평비교:[일]0봉전 단순 (종가 1 )이평이 단순(종가 20)이평을 5봉이내 80이상 95이하 1회 이상
주가이평등락률:[일]1봉전(중)종가20이평대비 0봉전종가1이평 등락률 1%이상 30%이하
주가이평돌파:[일]0봉전기준 20봉이내에서 0봉전 (종가 1)이평 (종가 20)이평 데드크로스
주가비교:[월]1봉전 시가 < 1봉전 종가
연속상승하락:[일]1봉전 3봉 연속상승발생
이평이격도[일]0봉전(종가 10, 종가 40) : 98%이상 105%이하 1회이상
일봉기준 10일이내에서 1일중 첫하한가 발생
일봉기준 10일이내에서 1일간 연속상한가 발생
52주 최고가대비 -20%이상 0%이하
2022-06-20
2242
글번호 160015