안녕하세요, 예스스탁 입니다.복잡한 수식 공부 없이 여러분의 아이디어를 말하면 시스템 트레이딩 언어 예스랭귀지로 작성해주는 서비스예스나 AI(YesNa AI)가 출시되었습니다.지금 예스나 AI를 직접 경험해 보실 수 있도록 20크레딧(질문권 20회)를 무료로 증정해 드리고 있습니다.바로 여러분의 아이디어를 코드로 변환해보세요.--------------------------------------------------🚀 YesNa AI 핵심 기능- 지표식/전략식/종목검색식 생성: 자연어로 요청하면 예스랭귀지 문법에 맞는 코드를 작성합니다.- 종목검색식 변환 지원: K증권의 종목 검색식을 예스랭귀지로 변환 지원합니다.- 컴파일 검증: 작성된 코드가 실행 가능한지 컴파일러를 통해 문법 검증을 거쳐 결과물을 제공합니다.상세한 서비스 개요 및 활용 방법은 [서비스 소개 페이지]에서 확인하실 수 있습니다.▶ 서비스 소개 페이지: 바로가기서비스 사용 유의사항 및 결제 환불정책은 [이용약관]을 참고 부탁드립니다.▶ 서비스 이용약관: 바로가기💬 이용 문의사용 중 문의사항은 [프로그램 사용법 Q&A] 게시판에서 [예스나 AI] 카테고리를 설정 후 문의해 주시면 상세히 안내해 드리겠습니다.--------------------------------------------------앞으로도 AI를 활용한 다양한 트레이딩 기능들을 지속적으로 선보일 예정입니다.많은 관심과 기대 부탁드립니다.

조건 : 장시작후 3번째 캔들 고가, 저가 기준 매수신호 발생 : 4번째 캔들의 종가가 3번째 캔들의 고가보다 클 경우 매도신호 발생 : 4번째 캔들의 종가가 3번째 캔들의 저가보다 작을 경우 수고하세요

안녕하세요 하기 다시 문의 드립니다. 하기 ADX 수식에서 하향할 때도 진입하는 수식을 만들고 싶습니다. 조건은 하기와 같습니다. 1. ADX 라인이 35 위에서 아래로 내려올 때만 적용됩니다. 2. 내려오면서 DP/DM 교차가 이루어지면, DP/DM 상태에 따라 진입합니다. 3. 하향진입은 한번 진입하면 DP/DM 교차가 이루어지더라도 변화없이, 손익절 또는 다음 신호가 나올 때 까지 유지합니다. - 상방 진입은 DP/DM 교차가 이루어 지면 청산하는데.. 하방 진입은 그렇지 않습니다. 첨부 파일 확인 부탁드립니다. input : P(14); var : ADXV(0),DP(0),DM(0); ADXV = ADX(P); DP = Diplus(P); DM = DiMinus(P); if crossup(ADXV,20) Then{ if DP > DM Then buy(); if DP < DM Then sell(); } if MarketPosition == 1 Then{ if CrossDown(DP,DM) Then ExitShort(); } if MarketPosition == -1 Then{ if CrossUp(DP,DM) Then ExitShort(); }

아래의 수식을 적용해 써보면 선물지수가 같은값일경우 예를들면 r1이나 r2 값이 같을경우 겹쳐서 표기가 되는데 값이 같을경우 겹치기 않게 표기되는 방법은 없는지요.... 값이 같을경우 r1 이나 r2 글자를 판명하기 쉽게 나타내어 지면 좋겠는데요. 수정부탁드립니다... var : rt1(0),rt2(0),rt3(0),rt4(0),rt5(0),rt6(0),rt7(0),rt8(0),rt9(0),rt10(0),rt11(0),rt12(0),rt13(0),rt14(0),rt15(0),rt16(0),rt17(0),rt18(0),rt19(0),rt20(0), st1(0),st2(0),st3(0),st4(0),st5(0),st6(0),st7(0),st8(0),st9(0),st10(0),st11(0),st12(0),st13(0),st14(0),st15(0),st16(0),st17(0),st18(0),st19(0),st20(0); #R1 Text_Delete(rt1); if R1 > 0 Then rt1 = Text_New(sdate,stime,R1,"R1 : "+NumToStr(R1,2)); #R2 Text_Delete(rt2); if R2 > 0 Then rt2 = Text_New(sdate,stime,R2,"R2 : "+NumToStr(R2,2)); #R3 Text_Delete(rt3); if R3 > 0 Then rt3 = Text_New(sdate,stime,R3,"R3 : "+NumToStr(R3,2)); #R4 Text_Delete(rt4); if R4 > 0 Then rt4 = Text_New(sdate,stime,R4,"R4 : "+NumToStr(R4,2)); #R5 Text_Delete(rt5); if R5 > 0 Then rt5 = Text_New(sdate,stime,R5,"R5 : "+NumToStr(R5,2)); #R6 Text_Delete(rt6); if R6 > 0 Then rt6 = Text_New(sdate,stime,R6,"R6 : "+NumToStr(R6,2)); #R7 Text_Delete(rt7); if R7 > 0 Then rt7 = Text_New(sdate,stime,R7,"R7 : "+NumToStr(R7,2)); #R8 Text_Delete(rt8); if R8 > 0 Then rt8 = Text_New(sdate,stime,R8,"R8 : "+NumToStr(R8,2)); #R9 Text_Delete(rt9); if R9 > 0 Then rt9 = Text_New(sdate,stime,R9,"R9 : "+NumToStr(R9,2)); #R10 Text_Delete(rt10); if R10 > 0 Then rt10 = Text_New(sdate,stime,R10,"R10 : "+NumToStr(R10,2)); #R11 Text_Delete(rt11); if R11 > 0 Then rt11 = Text_New(sdate,stime,R11,"R11 : "+NumToStr(R11,2)); #R12 Text_Delete(rt12); if R12 > 0 Then rt12 = Text_New(sdate,stime,R12,"R12 : "+NumToStr(R12,2)); #R13 Text_Delete(rt13); if R13 > 0 Then rt13 = Text_New(sdate,stime,R13,"R13 : "+NumToStr(R13,2)); #R14 Text_Delete(rt14); if R14 > 0 Then rt14 = Text_New(sdate,stime,R14,"R14 : "+NumToStr(R14,2)); #R15 Text_Delete(rt15); if R15 > 0 Then rt15 = Text_New(sdate,stime,R15,"R15 : "+NumToStr(R15,2)); #R16 Text_Delete(rt16); if R16 > 0 Then rt16 = Text_New(sdate,stime,R16,"R16 : "+NumToStr(R16,2)); #R17 Text_Delete(rt17); if R17 > 0 Then rt17 = Text_New(sdate,stime,R17,"R17 : "+NumToStr(R17,2)); #R18 Text_Delete(rt18); if R18 > 0 Then rt18 = Text_New(sdate,stime,R18,"R18 : "+NumToStr(R18,2)); #R19 Text_Delete(rt19); if R19 > 0 Then rt19 = Text_New(sdate,stime,R19,"R19 : "+NumToStr(R19,2)); #R20 Text_Delete(rt20); if R20 > 0 Then rt20 = Text_New(sdate,stime,R20,"R20 : "+NumToStr(R20,2));

input:틱배수(10), // 기존 개념 point 대신에 1호가 단위에 몇 배수를 곱한 값을 사용키로 했다. Figure(3); Var:j(0),k(0),n(0),pnt(0), Col(0), // 칼럼(열)수를 증가하면서 관리한다. LowLimit(0), // csv 파일 출력시 불필요한 라인을 줄이기 위해 최저값을 계산 출력개수(50); // 아래 xo[200,100]으로 선언했기 때문에 100칼럼까지 출력이 가능하지만 // 최근 상황만 파악하기 위해 50으로 줄였다. // 더 많은 칼럼을 출력하고자 한다면 xo[200,100]에서 100을 더 큰 수로 바꿔준다. Array:고[100](0),저[100](0),구분[100](""), // 100개의 칼럼을 선언 price[200](0), // 200개의 행 xo[200,100](""); // 엑셀에서 cells(row,column)과 같은 개념 #=====================================================# # P&F 계산 #=====================================================# pnt = PriceScale * 틱배수; // P&F 는 종가를 기반으로 계산한다. 변형해서 다르게 계산해도 무방 // TickSize()는 사용자함수임. 아래 포스트에 있음 // http://yahoosir.blog.me/220651602149 if 구분[0] == "" then { if 고[0] == 0 then 고[0] = C; if 저[0] == 0 then 저[0] = C; Col = 1; if 저[0] + Figure * pnt <= C then { 구분[0] = "X"; 고[0] = 저[0] + int( ( C - 저[0] ) / pnt ) * pnt; } else if 고[0] - Figure * pnt >= C then { 구분[0] = "O"; 저[0] = 고[0] - int( ( 고[0] - C ) / pnt ) * pnt; } } else if 구분[0] == "X" then { if 고[0] - Figure * pnt >= C then { Col = Col + 1; for j = 98 downto 0 { 고[j+1] = 고[j]; 저[j+1] = 저[j]; 구분[j+1] = 구분[j]; } 구분[0] = "O"; 고[0] = 고[1] - pnt; 저[0] = 고[1] - int( ( 고[1] - C ) / pnt ) * pnt; } else if 고[0] + pnt <= C then { 고[0] = 고[0] + int( ( C - 고[0] ) / pnt ) * pnt; } } else if 구분[0] == "O" then { if 저[0] + Figure * pnt <= C then { Col = Col + 1; for j = 98 downto 0 { 고[j+1] = 고[j]; 저[j+1] = 저[j]; 구분[j+1] = 구분[j]; } 구분[0] = "X"; 고[0] = 저[1] + int( ( C - 저[1] ) / pnt ) * pnt; 저[0] = 저[1] + pnt; } else if 저[0] - pnt >= C then { 저[0] = 저[0] - int( ( 저[0] - C ) / pnt ) * pnt; } } Plot1( iff( 구분[0] == "X", 고[0], 저[0] ) ); // _Plot1 > _Plot2 일때 와 _Plot1 < _Plot2 일때 각각 채워넣기를 한다. plot2( iff( 구분[0] == "X", 저[0], 고[0] ) ); #=====================================================# # 엑셀용 자료 가공 #=====================================================# if lastbaronchart() then { price[1] = 고[0]; LowLimit = 저[0]; for k = 1 to 출력개수 // 50개 열까지만 출력하도록 하였으므로 이 부분은 취향에 맞춰 수정한다. { price[1] = max( price[1], 고[k] ); if 저[k] > 0 then LowLimit = min( LowLimit, 저[k] ); } n = 199; for k = 2 to 199 { price[k] = price[k-1] - ( PriceScale * 틱배수); if price[k] < LowLimit then { n = k - 1; k = 200; } } col = min( col, 출력개수 ); for j = Col - 1 DownTo 0 { for k = 1 to n { if 고[j] >= price[k] and price[k] >= 저[j] then { xo[k,Col-j] = 구분[j]; } } } for k = 1 to n { Print(SymbolName+"_PnF.csv",",%.2f,%s,%s,%s,%s,%s,%s,%s,%s,%s,%s,%s,%s,%s,%s,%s,%s,%s,%s,%s,%s,%s,%s,%s,%s,%s,%s,%s,%s,%s,%s,%s,%s,%s,%s,%s,%s,%s,%s,%s,%s,%s,%s,%s,%s,%s,%s,%s,%s,%s,%s" ,price[k],xo[k,1],xo[k,2],xo[k,3],xo[k,4],xo[k,5],xo[k,6],xo[k,7],xo[k,8],xo[k,9],xo[k,10] ,xo[k,11],xo[k,12],xo[k,13],xo[k,14],xo[k,15],xo[k,16],xo[k,17],xo[k,18],xo[k,19],xo[k,20] ,xo[k,21],xo[k,22],xo[k,23],xo[k,24],xo[k,25],xo[k,26],xo[k,27],xo[k,28],xo[k,29],xo[k,30] ,xo[k,31],xo[k,32],xo[k,33],xo[k,34],xo[k,35],xo[k,36],xo[k,37],xo[k,38],xo[k,39],xo[k,40] ,xo[k,41],xo[k,42],xo[k,43],xo[k,44],xo[k,45],xo[k,46],xo[k,47],xo[k,48],xo[k,49],xo[k,50] ); } } 위에서 plot1 이 plot2 를 상향돌파할때 plot11 만들고 그봉에서만 PlaySound("C:￦예스트레이더￦data￦Sound￦bubbles.wav"); } plot2 이 plot1 를 상향돌파할때 plot12 만들고 그봉에서만 PlaySound("C:￦예스트레이더￦data￦Sound￦accept.wav" ); } 부탁 드립니다

if sDate<=20160731 then SetStopEndofday(150000); else SetStopEndofday(153000); 장 시간이 바뀌기 전에 이 서식을 넣어서 약 한두달간은 포지션이 장끝날시에 잘 정리가 되었습니다. 그런데 어제와 오늘 장 신호가 들어갔음에도 종료시에 종료가 안되고 포지션이 남아 있는 경우가 두번이나 일어났습니다. 이러한 경우가 일어나게 되면, 한두번이라도 잔고에 어쩌면 심각한 피해을 줄 수 있는 문제라고 생각합니다. 이러한 문의를 종종 받으시는지 궁금하며, 혹시나 그 원인이 어디에 있는지 궁금합니다.

1. Input:chRate(0.5); //전환율 또는 변동률 Var:j(0),upTr(100),dnTr(-100),upRate(0),dnRate(0),trnd(0),TL(0), date11(0),date12(0),time11(0),time12(0),TL1(0), date21(0),date22(0),time21(0),time22(0),TL2(0), date31(0),date32(0),time31(0),time32(0),TL3(0); Array:hiVal[10](0),loVal[10](0),hiBar[10](0),loBar[10](0); //hiVal[1]은 전고점, hiVal[2]는 전전고점, hiVal[3]은 전전전고점 //hiVal[0]은 변곡점 이후 현재봉까지의 고점. 현재 고점은 진행중이므로 계속 바뀐다. //loVal[0]은 반대 개념 upRate = 1 + (chRate/100); //상승률 dnRate = 1 - (chRate/100); //하락률 for j = 1 to 9 { //전고,전저점을 9개까지 보관 loBar[j] = loBar[j] + 1; //전저점의 위치. 현재 봉으로부터 떨어져 있는 거리 hiBar[j] = hiBar[j] + 1; //전고점의 위치 } if hiVal[0] <= H or hiVal[0] == 0 then { //전고,전저점 이후 현재까지의 고점 hiVal[0] = H; //0을 체크한 이유는 초기에 값이 없는 구간이 생기기 때문 hiBar[0] = 0; //현재 고점의 위치가 0이란 것은 현재봉의 고가가 구간 고점이라는 의미 } else { hiBar[0] = hiBar[0] + 1; //현재 고점의 위치 } if loVal[0] >= L or loVal[0] == 0 then { //전고,전저점 이후 현재까지 저점 loVal[0] = L; loBar[0] = 0; } else { loBar[0] = loBar[0] + 1; //현재 구간 저점의 위치 } if trnd != dnTr && hiVal[0] > H && hiVal[0] * dnRate > L then trnd = dnTr; //저가가 고가 대비 변동률보다 밑으로 떨어지면 하락추세로 설정 //단, 현재봉의 고가가 변곡점 이후 최고가이면 상승 추세가 진행중이라고 본다. //그래서 현재봉의 고가가 hiVal[0]보다 작다는 조건이 추가되었다. else if trnd != upTr && loVal[0] < L && loVal[0] * upRate < H then trnd = upTr; //고가가 저가 대비 변동률보다 높으면 상승추세로 설정 if trnd[1] == upTr and trnd == dnTr then { //상승추세였다가 하락추세로 바뀌었다면 for j = 8 downto 1 { //새로운 전고점이 생기는 것이므로 hiVal[j+1] = hiVal[j]; //전고점을 하나씩 뒤로 보낸다. hiBar[j+1] = hiBar[j]; //전고점은 전전고점이 되고, 전전고점은 전전전고점이 된다. } hiVal[1] = hiVal[0]; //새로운 전고점에 현재 고점을 대입 hiBar[1] = hiBar[0]; hiVal[0] = H; //전고점이 확정되었으므로 전고점 이후 최고가는 현재봉의 고가 hiBar[0] = 0; loVal[0] = L; loBar[0] = 0; //전고점이 새로 생긴 것이니까 전저점에서 전고점까지 추세선을 긋는다. date11 = date[loBar[1]]; //추세선 시작일. 전저점의 날짜 time11 = stime[loBar[1]]; //추세선 시작시간 Value11 = loVal[1]; //추세선 시작가격 date12 = date[hiBar[1]]; //추세선 종료일. 전고점의 날짜 time12 = stime[hiBar[1]]; //추세선 종료시간 Value12 = hiVal[1]; //추세선 종료가격 TL1 = TL_New(date11,time11,Value11,date12,time12,Value12); //TL_New는 신규 추세선을 그려주는 함수 } if trnd[1] == dnTr and trnd == dnTr and //추세는 하락 상태에서 바뀌지 않았는데 hiVal[1] < hiVal[0] and //전고점보다 더 높은 고점이 출현했다면 hiVal[0] * dnRate > L then { hiVal[1] = hiVal[0]; //전고점을 현재의 고점으로 바꿔준다. hiBar[1] = hiBar[0]; hiVal[0] = H; hiBar[0] = 0; loVal[0] = L; loBar[0] = 0; //전고점이 추가된 게 아니고 바뀐 것이므로 종료일,종료시간,종료가격만 바꿔준다. date12 = date[hiBar[1]]; //추세선 종료일 time12 = stime[hiBar[1]]; Value12 = hiVal[1]; TL_SetEnd(TL1, date12,time12,Value12); //TL_SetEnd는 기존추세선의 종료지점을 변경해주는 추세선 함수이다. //TL_Delete 함수를 써서 직전의 추세선을 지우고 다시 TL_New로 추세선을 추가해도 된다. } if trnd[1] == dnTr and trnd == upTr then { //추세가 하락에서 상승으로 바뀌었을 경우 for j = 8 downto 1 { //이전저점은 전전저점으로, 전전저점은 전전전저점으로 번호를 부여 loVal[j+1] = loVal[j]; loBar[j+1] = loBar[j]; } loVal[1] = loVal[0]; loBar[1] = loBar[0]; loVal[0] = L; loBar[0] = 0; hiVal[0] = H; hiBar[0] = 0; date11 = date[hiBar[1]]; //전저점이 새로이 생긴 것이므로 시작점은 전고점이 된다. time11 = stime[hiBar[1]]; Value11 = hiVal[1]; date12 = date[loBar[1]]; time12 = stime[loBar[1]]; Value12 = loVal[1]; TL1 = TL_New(date11,time11,Value11,date12,time12,Value12); } if trnd[1] == upTr and trnd == upTr and //추세는 상승을 유지하고 있는데 loVal[1] > loVal[0] and //전저점보다 낮은 저가가 출현했다면 loVal[0] * upRate < H then { loVal[1] = loVal[0]; //직전의 전저점만 바꿔준다. loBar[1] = loBar[0]; loVal[0] = L; loBar[0] = 0; hiVal[0] = H; hiBar[0] = 0; date12 = date[loBar[1]]; time12 = stime[loBar[1]]; Value12 = loVal[1]; TL_SetEnd(TL1, date12,time12,Value12); } if trnd == upTr and loVal[2] > loVal[1] then TL_SetColor(TL1,BLUE); else if trnd == dnTr and hiVal[2] < hiVal[1] then TL_SetColor(TL1,RED); else TL_SetColor(TL1,BLACK); TL_SetSize(TL1,2); TL_SetColor(TL2,RED); TL_SetColor(TL3,BLUE); if var1 <= 0 and Trnd == uptr and Trnd != Trnd[1] Then{ var1 = 1; value1 = loval[1]; TL1 = Text_New(sdate[lobar[1]],stime[lobar[1]],value1-PriceScale*2,"●"); TL_SetColor(TL,RED); TL_SetSize(TL,2); Text_SetStyle(TL1,2,2); Text_SetColor(TL1,RED);#텍스트 색상 TL= Text_New(sdate[lobar[1]],stime[lobar[1]],L,"상승"); Text_SetColor(TL,RED);#텍스트 색상 } if var1 >= 0 and Trnd == dntr and Trnd != Trnd[1] then{ var1 = -1; value1 = hival[1]; TL2 = Text_New(sdate[hibar[1]],stime[hibar[1]],value1+PriceScale*2,"●"); TL_SetColor(TL,BLUE); TL_SetSize(TL,2); Text_SetStyle(TL2,2,2);#텍스트 좌우 상하 정렬 Text_SetColor(TL2,BLUE);#텍스트 색상 TL= Text_New(sdate[hibar[1]],stime[hibar[1]],H,"하락"); Text_SetColor(TL,BLUE);#텍스트 색상 } 위수식에 시스템으로 하여 만들고 싶은 부분이있습니다 1. 예시: 상승,하락 부분에 문의를 드립니다 예시: 상승 하고 난뒤 익절을 추가하고싶습니다 (외부변수 10틱청산) 하락 하고 난뒤 익절을 추가하고싶습니다 우와 같은부분

안녕하세요? 1. 매달 홀수달 25일의 고가를 지표선으로 표시 부탁드립니다. 만약 25일이 장이 안열릴 경우, 그전날로 리턴부탁드립니다. 2. 매달 짝수달의 21일의 고가를 지표선으로 표시 부탁드립니다. 만약 21일이 장이 안열릴 경우, 그전날로 리턴부탁드립니다.

매번 친절한 답변 너무 감사드립니다.. 혹시 수식으로 진입하고나서 청산 되면, 진입 및 청산 신호 (화살표)를 화면에서 지우도록 표현이 가능한지요?

Text를 좌/우/위/아래 말고 글씨를 90도로 돌려서 표시하는 수식 부탁드립니다. 즉 고개를 옆으로 돌려서 볼 수 있도록..