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

안녕하세요. var1 = accumn(m,dayindex()+1); var2 = var3/dayvolume()/500000; plot1(var2); 위 var2값이 이상하게 나옵니다. 전에는 제대로 나왔는데 이상하게 나온지 보름 넘었습니다. 왜그런지 궁금합니다. 수고하세요.

안녕하세요. 아래는 다계약 진입과 청산, 그리고 본청을 수식화 해 본 것입니다. 1) 2계약 매수진입, 1개는 15틱 수익청, 나머지는 20틱 수익청산. 2) 최대수익이 14틱까지만 도달하고 하락하면 진입가격 5틱 위에서 2계약 모두 청산, 최대수익이 19틱까지만 도달하고 하락하면 진입가격 10틱 위에서 1계약 청산.(1개는 15틱에 수익청산이 이미 되었기 때문) 검증부탁드리며 보다 간단하게 코딩할 수 있는 방법이 있으면 알려주시면 감사하겠습니다. if dayindex == 0 then{ EP = C; buy("b",onclose,def,2);} if MarketPosition == 1 then{ if IsEntryName("b") == true Then ExitLong("bx1",Atlimit,EP + Pricescale*15,"b",1,1); ExitLong("bx2",Atlimit,EP + Pricescale*20,"b",1,1); if IsEntryName("b") == true Then if highest(H,BarsSinceEntry) >= EP + PriceScale*14 and highest(H,BarsSinceEntry) < EP + PriceScale*15 Then ExitLong("b본청1",AtStop,EP + PriceScale*5,"b",2,1); if highest(H,BarsSinceEntry) >= EP + PriceScale*19 and highest(H,BarsSinceEntry) < EP + PriceScale*20 Then ExitLong("b본청2",AtStop,EP + PriceScale*10,"b",1,1); }

수식지왕님 블로그 수식입니다. iength 지표표시에 아무런 설정이없어서 보기가 좀 까다 롭더군요. 예로 차트표시 부분에 추세선을 막대 선 십자 원등으로 표시 할수 있는 메뉴가 생겼으면 합니다. 미리 감사인사 드립니다 ^^ #==========================================# # 지 표 명 : 고저라인 지그재그 파동선 # 버 전 : 1.2 # 작 성 자 : 수식지왕 # 블 로 그 : http://yahoosir.blog.me # 업데이트 : 2017-03-10 #==========================================# Input:length(10),종가사용여부(0),파동선두께(2),수치표시(1); Var:j(0),jj(0),HH(0),LL(0),최종고가(0),최종저가(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,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 { 최종고가 = 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 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 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 Then { Text_SetLocation(Text1,고[1,3],고[1,4],고[1,1]); Text_SetString(Text1,NumToStr(고[1,1],2)); } } 최종꼭지점 = "고점"; } #==========================================# If 처리구분 == "저점처리" Then { 최종저가 = 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 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 then { 저[1,1] = LL; 저[1,2] = Index; 저[1,3] = sDate; 저[1,4] = sTime; 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)); } } 최종꼭지점 = "저점"; }

수고 하십니다..기준선 매매 입니다..올린 수식은 스톡으로 만든 것 입니다.. 이걸 스톡이 아닌 RSI로 진입 청산을 했으면 합니다..제가 수식을 몰라서요~~ 감사 합니다.. Inputs: Length1(0),Length2(0),Length3(0),과매도(0),과매수(0),기준선길이(0); ; Variables: 스토K(0), 스토D(0),기준선(0);; 스토K= StochasticsK(Length1,Length2); 스토D = StochasticsD(Length1,Length2,Length3); 기준선 = (Highest(High, 기준선길이) + Lowest(Low, 기준선길이)) / 2; if C>기준선 Then { If Crossup(스토K, 과매도) Then Buy ("매수"); If CrossDown(스토K, 과매수) Then ExitLong ("매수청산"); } if C<기준선 Then { If CrossDown(스토K, 과매수) Then Sell ("매도"); If Crossup(스토K, 과매도) Then ExitShort ("매도청산"); } if MarketPosition == 1 and CrossDown(c,기준선) Then ExitLong ("매수손절매"); if MarketPosition == -1 and CrossUp(c,기준선) Then ExitShort ("매도손절매");

아래수식은 마지막 지그재그선의 중가에 선을 긋고 오늘쪽으로 연장하여 그값을 표시하는 수식인데요 1. 마지막선뿐만아니라 그전의 모든 지그재그선의 중가에 선을 긋고 오른쪽으로 연장하여 가격을 표시 하고싶습니다 2.그리고 마지막 3지그재선에 중가에 선을 긋고 오른쪽으로 연장하여 가격을 표시 하고싶습니다 부탁드립니다 그리고 전 수식과 구분할수 있도록 수정된 부분은 빨간색으로 부탁드립니다 아래 Input:length(12),X(1); Var:j(0),lastHiVal(0),lastLoVal(0),sBar(0),eBar(0),TL1(0),TL2(0),TL3(0),Text1(0),처리구분(""), TL_Val1(0),TL_Val2(0),TL11(0),tx11(0); Array:고점[10,2](0),저점[10,2](0); 처리구분 = ""; If Highest(H,length) == H and lastHiVal <> H and Lowest(L,length) == L and lastLoVal <> L Then { If 저점[1,1] > L Then 처리구분 = "저점처리"; If 고점[1,1] < H Then 처리구분 = "고점처리"; } Else If Highest(H,length) == H and lastHiVal <> H Then 처리구분 = "고점처리"; Else If Lowest(L,length) == L and lastLoVal <> L Then 처리구분 = "저점처리"; If 처리구분 == "고점처리" Then { lastHiVal = H; If 고점[1,2] < 저점[1,2] Then { For j = 10 DownTo 2 { 고점[j,1] = 고점[j-1,1]; 고점[j,2] = 고점[j-1,2]; } } If 고점[1,2] < 저점[1,2] or 고점[1,1] < H Then { 고점[1,1] = H; 고점[1,2] = Index; sBar = Index - 저점[1,2]; eBar = 0; If TL_GetBeginDate(TL1) == sDate[sBar] and TL_GetBeginTime(TL1) == sTime[sBar] Then { TL_Delete(TL1); Text_Delete(Text1); If 고점[3,1][1] < 고점[2,1][1] and 고점[2,1][1] > 고점[1,1][1] and 저점[2,1][1] < 저점[1,1][1] Then TL_Delete(TL2); } if X == 1 Then{ TL1 = TL_New(sDate[sBar],sTime[sBar],저점[1,1],sDate[eBar],sTime[eBar],고점[1,1]); } TL_Delete(TL11); TL11 = TL_New(sDate[sBar],sTime[sBar],(저점[1,1]+고점[1,1])/2,sDate[eBar],sTime[eBar],(저점[1,1]+고점[1,1])/2); TL_SetExtRight(TL11,true); Text_Delete(tx11); tx11 = Text_New(sdate,stime,(저점[1,1]+고점[1,1])/2,NumToStr((저점[1,1]+고점[1,1])/2,2)); if H < 고점[2,1] Then TL_SetColor(TL1,red); Else TL_SetColor(TL1,MAGENTA); Text1 = Text_New(sDate[eBar],sTime[eBar],고점[1,1],NumToStr(abs(고점[1,1]-저점[1,1])/PriceScale,0)+NewLine+NumToStr(고점[1,1],2)); Text_SetStyle(Text1, 2, 1); If 고점[3,1] < 고점[2,1] and 고점[2,1] > 고점[1,1] and 저점[2,1] < 저점[1,1] Then { sBar = Index - 저점[2,2]; eBar = Index - 저점[1,2]; TL_SetExtLeft(TL2,false); TL_SetExtRight(TL2,false); if X == 1 Then TL2 = TL_New(sDate[sBar],sTime[sBar],저점[2,1],sDate[eBar],sTime[eBar],저점[1,1]); TL_SetColor(TL2,BLUE); TL_SetExtLeft(TL2,true); TL_SetExtRight(TL2,true); } } } If 처리구분 == "저점처리" Then { lastLoVal = L; If 저점[1,2] < 고점[1,2] Then { For j = 10 DownTo 2 { 저점[j,1] = 저점[j-1,1]; 저점[j,2] = 저점[j-1,2]; } } If 저점[1,2] < 고점[1,2] or 저점[1,1] > L Then { 저점[1,1] = L; 저점[1,2] = Index; sBar = Index - 고점[1,2]; eBar = 0; If TL_GetBeginDate(TL1) == sDate[sBar] and TL_GetBeginTime(TL1) == sTime[sBar] Then { TL_Delete(TL1); Text_Delete(Text1); If 저점[2,1][1] < 저점[1,1][1] and 저점[2,1][1] < 저점[3,1][1] and 고점[2,1][1] > 고점[1,1][1] Then TL_Delete(TL3); } if X == 1 Then{ TL1 = TL_New(sDate[sBar],sTime[sBar],고점[1,1],sDate[eBar],sTime[eBar],저점[1,1]); } TL_SetColor(TL1,blue); TL_Delete(TL11); TL11 = TL_New(sDate[sBar],sTime[sBar],(저점[1,1]+고점[1,1])/2,sDate[eBar],sTime[eBar],(저점[1,1]+고점[1,1])/2); TL_SetExtRight(TL11,true); Text_Delete(tx11); tx11 = Text_New(sdate,stime,(저점[1,1]+고점[1,1])/2,NumToStr((저점[1,1]+고점[1,1])/2,2)); if L > 저점[2,1] Then TL_SetColor(TL1,blue); Else TL_SetColor(TL1,cyan); Text1 = Text_New(sDate[eBar],sTime[eBar],저점[1,1],NumToStr(abs(고점[1,1]-저점[1,1])/PriceScale,0)+NewLine+NumToStr(저점[1,1],2)); Text_SetStyle(Text1, 2, 0); If 저점[2,1] < 저점[1,1] and 저점[2,1] < 저점[3,1] and 고점[2,1] > 고점[1,1] Then { sBar = Index - 고점[2,2]; eBar = Index - 고점[1,2]; TL_SetExtLeft(TL3,false); TL_SetExtRight(TL3,false); if X == 1 Then TL3 = TL_New(sDate[sBar],sTime[sBar],고점[2,1],sDate[eBar],sTime[eBar],고점[1,1]); TL_SetColor(TL3,RED); TL_SetExtLeft(TL3,true); TL_SetExtRight(TL3,true); } } } TL_SetSize(TL1,3); TL_SetSize(TL2,2); TL_SetSize(TL3,2);

고생이 많으십니다.시스템 문의 드립니다.^^ 저는 스톡캐스틱슬로우의 변수를 틀리게 하여 겹쳐서 매매를 합니다.(이평선도겹쳐서매매) var : Period11(1),Period12(2),Period13(2); var : Period21(3),Period22(4),Period23(2); var : Period31(5),Period32(6),Period33(2); var : Period41(7),Period42(8),Period43(2); var : Period51(9),Period52(10),Period53(2); var : SMI1(0),SMI2(0),SMI3(0),SMI4(0),SMI5(0),Bcond(false),Scond(false); SMI1 = SMI(Period11,Period12,Period13); SMI2 = SMI(Period21,Period22,Period23); SMI3 = SMI(Period31,Period32,Period33); SMI4 = SMI(Period41,Period42,Period43); SMI5 = SMI(Period51,Period52,Period53); bcond = SMI1 > smi2 and SMI2 > smi3 and SMI3 >smi4 and SMI4 > smi5; scond = SMI1 < smi2 and SMI2 < smi3 and SMI3 <smi4 and SMI4 < smi5; if Bcond == true and Bcond[1] == false Then buy(); if Scond == true and Scond[1] == false Then sell(); 위와 같은 시그널로 매매를 합니다. 이 식에 이동평균선(20일)추가를 하고 싶습니다. 예를 들어 *매수조건 SMI1 > smi2 and SMI2 > smi3 and SMI3 >smi4 and SMI4 > smi5>이평선(20일) *매수청산조건 smi5가 +80선에 닿을때 *매도조건 SMI1 < smi2 and SMI2 < smi3 and SMI3 <smi4 and SMI4 < smi5<이평선(20일) *매도청산조건 smi5가 -80선에 닿을때 입니다. 부탁드립니다.`~~~~~~

또 부탁드리네요 아래 수식을 보조차트로 이용하여 1.KODEX200 ETF 거래할 수 있는 수식(선물 BUY)을 부탁드립니다. 2.KODEX인버스 ETF 거래할 수 있는 수식(선물 SELL)도 부탁드립니다. 둘 다 data2 참조차트 이용한 수식입니다 항상 고맙습니다. -아래- if bdate != bdate[1] Then{ Condition1 = false; var1 = H; var2 = L; } if stime >= 130000 and Condition1 == false and C > O Then{ Condition1 = true; if H < var2 Then buy(); } if stime >= 130000 and Condition2 == false and C < O Then{ Condition2 = true; if L > var1 Then sell(); }

아래의 수식은 직전 60분봉의 고점,저점,중간선에 선을 긋고 값을 표시하는 수식을 부탁 드렸었는데 잘 안되는군요 다시 부탁드릴께요 좀 수정해서 input에서 60분을 변경 가능하도록 (120분,30분,20분....) 그리고 input에서 전봉,전전봉을 선택할수 있도록 전봉(1),전전봉(2),전전전봉(3)... 부탁드립니다 아래 var : TF(0),DD(0),TT(0),HH(0),LL(0); var : TL1(0),TL2(0),TL3(0),Tx1(0),tx2(0),tx3(0); TF = TimeToMinutes(stime)%60; if sdate != date[1] or (sdate == sdate[1] and TF < TF[1]) Then{ HH = H; LL = L; DD = sdate[1]; TT = stime[1]; } if H > HH Then HH = H; if L < LL Then LL = L; TL_Delete(TL1); TL_Delete(TL2); TL_Delete(TL3); TL1 = TL_New(dd,tt,HH,sdate,stime,HH); TL2 = TL_New(dd,tt,LL,sdate,stime,LL); TL3 = TL_New(dd,tt,(HH+LL)/2,sdate,stime,(HH+LL)/2); TL_SetExtRight(TL1,true); TL_SetExtRight(TL2,true); TL_SetExtRight(TL3,true); Text_Delete(tx1); Text_Delete(tx2); Text_Delete(tx3); tx1 = Text_New(sdate,stime,HH,NumToStr(HH,2)); tx2 = Text_New(sdate,stime,LL,NumToStr(LL,2)); tx3 = Text_New(sdate,stime,(HH+LL)/2,NumToStr((HH+LL)/2,2));