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

안녕하세요? 전략식에서 다음과 같이 출력문 테스트중인데 entrydate를 넣으면 메모리오류 및 프로그램 다운이 됩니다. messagelog, print 문 전부 다운되네요. IF sDate >= 20230310 Then Buy(); if sDate ==20230316 Then MessageLog("SymbolName: %s,%.f,%.f,%s",SymbolName,close,EntryPrice,EntryDate);

안녕하세요. data2 종목(선물)의 시초가가 들어오자 마자 주종목(주식)에 주문을 내고자 합니다. If data2(sTime) == 154500 and nextbarOpen/DayHigh(0).......then ... 신호가 발생안하는데, data2(stime)이 작동안하는건가요?

input : Period(12),폭1(0.85),폭2(1.3),폭3(1.7),선두께(3),N(0); Var:j(0),T(0),tl9(0); Var:상승색(Blue), 하락색(Red); Var: date11(0),date12(0),time11(0),time12(0),TL1(0),TL(0), date21(0),date22(0),time21(0),time22(0), date31(0),date32(0),time31(0),time32(0),tx(0),tx1(0),tl4(0),txx(0); Array:HiVal[20](0),LoVal[20](0),HiBar[20](0),LoBar[20](0); Plot1(value12); For j = 0 To 19 { HiBar[j] = HiBar[j] + 1; LoBar[j] = LoBar[j] + 1; } if crossup(c,highest(H,Period)[1]) Then T = 1; if CrossDown(c,Lowest(L,Period)[1]) Then T = -1; If T == -1 Then { If T[1] != -1 Then { For j = 18 DownTo 0 { LoVal[j+1] = LoVal[j]; LoBar[j+1] = LoBar[j]; } LoVal[0] = L; LoBar[0] = 0; date11 = date[HiBar[0]+N]; time11 = stime[HiBar[0]+N]; Value11 = HiVal[0]; date12 = date[LoBar[0]+N]; time12 = stime[LoBar[0]+N]; Value12 = LoVal[0]; TL_Delete(tl); TL = TL_New(sdate,stime,Value12,NextBarSdate,NextBarStime,NextBarOpen); TL1 = TL_New(date11,time11,Value11,date12,time12,Value12); TL_SetColor(TL1,상승색); date21 = date[HiBar[0]+N]; time21 = stime[HiBar[0]+N]; date22 = date[0]; time22 = stime[0]; Condition1 = False; if Condition1 == False and Value12 <= value11-폭1 Then { Condition1 = true; } Condition2 = False; if Condition2 == False and Value12 <= value11-폭2 Then { Condition2 = true; } Condition3 = False; if Condition3 == False and Value12 <= value11-폭3 Then { Condition3 = true; } Text_SetSize(tx,25); if abs(value12[1]-value11[1]) < 0.85 Then Text_Delete(tx); tx = text_new(sDate,stime,value12,NumToStr(value12-value11,2)); Text_SetColor(Tx,Blue); Text_SetStyle(tx,1,0); Text_SetSize(tx,30); Text_SetBold(tx,1); } If LoVal[0] > L Then { LoVal[0] = L; LoBar[0] = 0; date12 = date[LoBar[0]+N]; time12 = stime[LoBar[0]+N]; Value12 = LoVal[0]; TL_SetEnd(TL1, date12,time12,Value12); date22 = date[0]; time22 = stime[0]; TL_Delete(tl); TL = TL_New(sdate,stime,Value12,NextBarSdate,NextBarStime,NextBarOpen); if Condition1 == False and Value12 <= value11-폭1 Then { Condition1 = true; TL9 = TL_New(sDate,sTime,Value12,sDate,sTime,99999); TL_SetColor(TL9,Magenta); TL_SetSize(TL9,1); } if Condition2 == False and Value12 <= value11-폭2 Then { Condition2 = true; TL9 = TL_New(sDate,sTime,Value12,sDate,sTime,99999); TL_SetColor(TL9,Magenta); TL_SetSize(TL9,1); } if Condition3 == False and Value12 <= value11-폭3 Then { Condition3 = true; TL9 = TL_New(sDate,sTime,Value12,sDate,sTime,99999); TL_SetColor(TL9,Red); TL_SetSize(TL9,1); Txx =Text_New(sdate,stime,value12+PriceScale*10,"●"); Text_SetColor(Txx,Magenta); Text_SetStyle(Txx,2,2); Text_SetSize(txx,35); } Text_SetString(tx,NumToStr(value12-value11,2)+""); Text_SetLocation(tx,sDate,sTime,value12); } } If T == 1 Then { If T[1] != 1 Then { For j = 18 DownTo 0 { HiVal[j+1] = HiVal[j]; HiBar[j+1] = HiBar[j]; } HiVal[0] = H; HiBar[0] = 0; date11 = date[LoBar[0]+N]; time11 = stime[LoBar[0]+N]; Value11 = LoVal[0]; date12 = date[HiBar[0]+N]; time12 = stime[HiBar[0]+N]; Value12 = HiVal[0]; TL_Delete(tl); TL = TL_New(sdate,stime,Value12,NextBarSdate,NextBarStime,NextBarOpen); TL1 = TL_New(date11,time11,Value11,date12,time12,Value12); TL_SetColor(TL1,하락색); date31 = date[LoBar[0]]; time31 = stime[LoBar[0]]; date32 = date[0]; time32 = stime[0]; Text_SetSize(tx,25); if abs(value12[1]-value11[1]) < 0.85 Then Text_Delete(tx); tx = text_new(sDate,stime,value12,NumToStr(value12-value11,2)+""); Text_SetColor(Tx,Red); Text_SetStyle(tx,1,1); Text_SetSize(tx,30); Text_SetBold(tx,1); } If HiVal[0] < H Then { HiVal[0] = H; HiBar[0] = 0; date12 = date[HiBar[0]+N]; time12 = stime[HiBar[0]+N]; Value12 = HiVal[0]; TL_SetEnd(TL1, date12,time12,Value12); date32 = date[0]; time32 = stime[0]; Text_SetString(tx,NumToStr(value12-value11,2)+""); Text_SetLocation(tx,sDate,sTime,value12); } } TL_SetSize(TL1,선두께); 1.상하대칭 추세선이 상승 전환되면 직전 하락추세선의 폭만큼 상하 대칭점에(배) 네모 표시. 하락 전환되면 직전 상승추세선의 폭만큼 상하 대칭점에 네모 표시. 2.직전 폭 추세선이 상승 전환되면 직전 상승추세선의 폭만큼,새 하단으로부터 위로 네모 표시. 하락 전환되면 직전 하락추세선의 폭만큼, 새 상단에서 아래로 네모 표시. 감사합니다.

안녕하세요? 아래지표수식을 스템식으로 원합니다 1번 시스템식 1번선이 초록선에서 파랑선으로 또는 빨강선에서 초록선으로변하면 매도 5번선이 파랑선에서 초록선으로 또는 초록선에서빨강선으로 변하면 매수 2번 시스템식 1번선이 빨강선에서 초록선으로 변하면 매도 5번선이 파랑선에서 초록선으로 변하면 매수 감사드립니다 input : a(60); var : T(0),S(0); var1 = highest(h,a)[1]; Var2 = (3*highest(h,a)[1]+lowest(l,a)[1])/4; Var3 = (highest(h,a)[1]+lowest(l,a)[1])/2; var4 = (3*lowest(l,a)[1]+highest(h,a)[1])/4; var5 = lowest(l,a)[1]; if var1 > var1[1] Then T = 1; else if var1 < var1[1] Then T = -1; Else T = 0; if var5 > var5[1] Then S = 1; else if var5 < var5[1] Then S = -1; Else S = 0; Plot1(var1,"1",IFf(T==1,Red,iff(T==-1,Blue,Green))); Plot2(var2); Plot3(var3); Plot4(var4); Plot5(var5,"5",IFf(S==1,Red,iff(S==-1,Blue,Green)));

이전봉 종가(즉, 현재봉 시가 ) 를 가격 표시 하고 전봉 종가 보다 높으면 빨간색 선으로 표시하고 가격표시 이전봉 종가 보다 현재가(현재봉 시가) 가 낮으면 파란색 선으로 표시 하고 얼마나 낮은지 가격 표시 주가 움직임에 따라 가격은 실시간으로 바뀌며, 음봉 양봉이 바귀면 선 색깔도 같이 바뀌게 됩니다. 이전봉 종가 보다 높으면 매수 이전봉 종가를 이탈 하면 매도 다시 전봉 종가 보다 높으면 재매수 를 자동 으로 합니다.

상승하락 저점기준 바닥 마감 최고점 기준 마감 3회 시(예비연장신호변경부탁) 직선표시 및 지그재그표시 부탁합니다. input: length(10),선선굵기(2),gh색상두께(30),직선굵기(1); var:상승색gh(Red),하락색gh(Lime); Var:rjj(0),jjj(0),HHh(0),LLl(0),최종고가(0),최종저가(0),최종꼭지점(""),처리구분(""),utx(0),저hdbox(0),저dbox(0), 저hText1사각(0),cddbox(0),Teext1(0),Teext2(0),sTL55사각(0),ssTL55사각(0), rTL1(0),Text1(0),rTL2(0),rTL3(0),rTL4(0),rTL5(0),rTL12(0),rTL13(0),rTL14(0),rTL15(0),ttT(0),고점변곡(""),저점변곡(""); var : clr1(0),clr2(0),BE(0),SE(0),cnt(0),upcond(False),dncond(False),text2(0); Array:고[10,4](0),저[10,4](0); // 1:가격,2:Index,3:sDate,4:sTime #==========================================# HHh = IFF(0==1,C,H); LLl = IFF(0==1,C,L); If Index == 0 Then { 고[1,1] = HHh; 저[1,1] = LLl; } Condition11 = Highest(HHh,length) == HHh and 최종고가 <> HHh; Condition12 = Lowest (LLl,length) == LLl and 최종저가 <> LLl; 처리구분 = ""; If Condition11 and Condition12 Then // 기간고점과 기간저점 동시 발생 { If 최종꼭지점 == "저점" Then { If 저[1,1] > LLl Then 처리구분 = "저점처리"; Else 처리구분 = "고점처리"; } Else If 최종꼭지점 == "고점" Then { If 고[1,1] < HHh Then 처리구분 = "고점처리"; Else 처리구분 = "저점처리"; } } Else If Condition11 Then 처리구분 = "고점처리"; Else If Condition12 Then 처리구분 = "저점처리"; #==========================================# If 처리구분 == "고점처리" Then { ttT = 1; 최종고가 = HHh; // 신규고점을 체크하기 위해 저장 If 최종꼭지점 == "저점" Then { For rjj = 10 DownTo 2 { For jjj = 1 To 4 { 고[rjj,jjj] = 고[rjj-1,jjj]; } } 고[1,1] = HHh; 고[1,2] = Index; 고[1,3] = sDate; 고[1,4] = sTime; If 1 == 1 Then { rTL1 = TL_New(저[1,3],저[1,4],저[1,1],고[1,3],고[1,4],고[1,1]); // Box_Delete(cdbox); rTL2 = TL_New(고[1,3],고[1,4],0,저[1,3],저[1,4],저[1,1]); //수직선 TL_SetSize(rtl2,3); tl_setcolor(rtl2,tomato); Text1 = Text_New(저[1,3],저[1,4],저[1,1],NewLine+NewLine+NewLine+NewLine+NumToStr(저[1,1],2)+"매수"); Text_SetStyle(Text1, 2, 2); Text_SetColor(Text1,Red); text2 = text_new(sDate[Ceiling((고[1,2]-저[1,2])/2)],sTime[Ceiling((고[1,2]-저[1,2])/2)],(고[1,1]+저[1,1])/2,"상승1파"+NewLine); Text_SetStyle(text2,2,1); } TL_SetSize(rTL1,선선굵기); TL_SetColor(rTL1,Gray); } Else If 고[1,1] < HHh Then // 1번 고점보다 높은 고가 출현 { 고[1,1] = HHh; 고[1,2] = Index; 고[1,3] = sDate; 고[1,4] = sTime; TL_SetEnd(rTL1,고[1,3],고[1,4],고[1,1]); // 시작점은 변동없고 끝점의 위치가 현재 봉으로 연장된 것임 Text_Delete(Teext1); If 1 == 1 Then { Text_SetLocation(Text1,저[1,3],저[1,4],저[1,1]); Text_SetLocation(text2,sDate[Ceiling((고[1,2]-저[1,2])/2)],sTime[Ceiling((고[1,2]-저[1,2])/2)],(고[1,1]+저[1,1])/2); } } 최종꼭지점 = "고점"; } Text_Delete(Teext1); Teext1 = text_new(저[1,3],저[1,4],저[1,1],NewLine+NewLine+NumToStr(저[1,1],2)+"예비연장 매수"); //수정 text_SetStyle(Teext1, 2, 2); Text_SetColor(Teext1,Red); TL_Delete(ssTL55사각); ssTL55사각 = TL_New(고[1,3],고[1,4],0,저[1,3],저[1,4],저[1,1]);//수직선 연장예비신호(수정) tL_SetSize(ssTL55사각,직선굵기); tL_SetColor(ssTL55사각,LimE); #==========================================# If 처리구분 == "저점처리" Then { ttT = -1; 최종저가 = LLl; If 최종꼭지점 == "고점" then { For rjj = 10 DownTo 2 { For jjj = 1 To 4 { 저[rjj,jjj] = 저[rjj-1,jjj]; } } 저[1,1] = LLl; 저[1,2] = Index; 저[1,3] = sDate; 저[1,4] = sTime; If 1 == 1 Then { rTL1 = TL_New(고[1,3],고[1,4],고[1,1],저[1,3],저[1,4],저[1,1]); rTL2 = TL_New(고[1,3],고[1,4],고[1,1],저[1,3],저[1,4],999999999); //수직선 TL_SetSize(rtl2,3); tl_setcolor(rtl2,lime); Text1 = Text_New(고[1,3],고[1,4],고[1,1],NumToStr(고[1,1],2)+"매도"+NewLine+NewLine+NewLine); Text_SetStyle(Text1, 2, 2); Text_SetColor(Text1,Blue); text2 = text_new(sDate[Ceiling((저[1,2]-고[1,2])/2)],sTime[Ceiling((저[1,2]-고[1,2])/2)],(고[1,1]+저[1,1])/2,NewLine+"하락1파"); Text_SetStyle(text2,2,0); } TL_SetSize(rTL1,직선굵기); TL_SetColor(rTL1,Gray); } Else If 저[1,1] > LLl then { 저[1,1] = LLl; 저[1,2] = Index; 저[1,3] = sDate; 저[1,4] = sTime; TL_SetEnd(rTL1,저[1,3],저[1,4],저[1,1]); If 1 == 1 Then { Text_SetLocation(Text1,고[1,3],고[1,4],고[1,1]); Text_SetLocation(text2,sDate[Ceiling((저[1,2]-고[1,2])/2)],sTime[Ceiling((저[1,2]-고[1,2])/2)],(고[1,1]+저[1,1])/2); } } 최종꼭지점 = "저점"; } Text_Delete(Teext1); Teext1 = text_new(고[1,3],고[1,4],고[1,1],NumToStr(고[1,1],2)+"예비연장 매도"+NewLine); //수정 Text_SetStyle(Teext1, 2, 2); Text_SetColor(Teext1,Blue); TL_Delete(sTL55사각); sTL55사각 = TL_New(고[1,3],고[1,4],고[1,1],저[1,3],저[1,4],999999999);//수직선 연장예비신호 tL_SetSize(sTL55사각,직선굵기); tL_SetColor(sTL55사각,LimE);

늘 도움 주셔서 거듭 감사드립니다. 키움에서 사용하던 수식인데 예스랭귀지로 전환하고자 도움 요청드립니다. Ch=eavg(sum(((C-L)-(H-C))/(H-L)*V),short) - eavg(sum(((C-L)-(H-C))/(H-L)*V),long); Valuewhen(1,CrossUp(Ch,0) or Crossdown(Ch,0),low) 감사합니다.

지표수식이 아니라 함수수식으로 부탁드립니다 1분봉이나 2분봉에서 3분봉의 이평을 같이 보는 용도로 사용할려 합니다 함수명은 3minMa로 부탁드립니다 예시)3minMa(3) = 3분봉의 3일 이평선 이런식으로 쓸려합니다