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

안녕하세요 아래 지표식은 파동선을 긋고 해당 파동선에 피봇나치선을 극는 수식인데요 피보나치선이 모든 파동 전체에 나오다 보니 시스템에 부하를 줍니다 그래서 피보나치선을 마지막 확정된 파동 하나에만 긋도록 수식을 수정 부탁합니다 감사합니다 Input:length(12),per1(23.7),per2(38.2),per3(50.0),Per4(61.8),per5(74.6); Var:j(0),lastHiVal(0),lastLoVal(0),turnPntBit(""),TL1(0),diff(0),Tx(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 전환점구분에 값이 있을 때만 then 아래 실행, 없으면 통과 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]); Else TL_SetEnd(TL1,sDate[barArr[1]],sTime[barArr[1]],valArr[1]); } } TL_SetSize(TL1,4); TL_SetColor(TL1,GREEN); if turnPntArr[1] != turnPntArr[1][1] and barArr[3] > 0 Then{ if turnPntArr[2] == "Hi" then{ tx = Text_New(sdate[barArr[2]],stime[barArr[2]],H[barArr[2]],NumToStr(abs(H[barArr[2]]-L[barArr[3]])/PriceScale,0)); Text_SetStyle(tx,2,2); value1 = TL_New(sdate[barArr[3]],stime[barArr[3]],L[barArr[3]],sdate[barArr[2]],stime[barArr[2]],L[barArr[3]]); value2 = TL_New(sdate[barArr[3]],stime[barArr[3]],H[barArr[4]],sdate[barArr[2]],stime[barArr[2]],H[barArr[4]]); diff = abs(L[barArr[3]]-H[barArr[4]]); value3 = TL_New(sdate[barArr[3]],stime[barArr[3]],H[barArr[4]]-diff*(per1/100),sdate[barArr[2]],stime[barArr[2]],H[barArr[4]]-diff*(per1/100)); value4 = TL_New(sdate[barArr[3]],stime[barArr[3]],H[barArr[4]]-diff*(per2/100),sdate[barArr[2]],stime[barArr[2]],H[barArr[4]]-diff*(per2/100)); value5 = TL_New(sdate[barArr[3]],stime[barArr[3]],H[barArr[4]]-diff*(per3/100),sdate[barArr[2]],stime[barArr[2]],H[barArr[4]]-diff*(per3/100)); value6 = TL_New(sdate[barArr[3]],stime[barArr[3]],H[barArr[4]]-diff*(per4/100),sdate[barArr[2]],stime[barArr[2]],H[barArr[4]]-diff*(per4/100)); value7 = TL_New(sdate[barArr[3]],stime[barArr[3]],H[barArr[4]]-diff*(per5/100),sdate[barArr[2]],stime[barArr[2]],H[barArr[4]]-diff*(per5/100)); TL_SetColor(value1,blue); TL_SetColor(value2,blue); TL_SetColor(value3,blue); TL_SetColor(value4,blue); TL_SetColor(value5,green); TL_SetColor(value6,blue); TL_SetColor(value7,blue); } Else{ tx = Text_New(sdate[barArr[2]],stime[barArr[2]],L[barArr[2]],NumToStr(abs(L[barArr[2]]-H[barArr[3]])/PriceScale,0)); Text_SetStyle(tx,2,2); value1 = TL_New(sdate[barArr[3]],stime[barArr[3]],H[barArr[3]],sdate[barArr[2]],stime[barArr[2]],H[barArr[3]]); value2 = TL_New(sdate[barArr[3]],stime[barArr[3]],L[barArr[4]],sdate[barArr[2]],stime[barArr[2]],L[barArr[4]]); diff = abs(L[barArr[4]]-H[barArr[3]]); value3 = TL_New(sdate[barArr[3]],stime[barArr[3]],L[barArr[4]]+diff*(per1/100),sdate[barArr[2]],stime[barArr[2]],L[barArr[4]]+diff*(per1/100)); value4 = TL_New(sdate[barArr[3]],stime[barArr[3]],L[barArr[4]]+diff*(per2/100),sdate[barArr[2]],stime[barArr[2]],L[barArr[4]]+diff*(per2/100)); value5 = TL_New(sdate[barArr[3]],stime[barArr[3]],L[barArr[4]]+diff*(per3/100),sdate[barArr[2]],stime[barArr[2]],L[barArr[4]]+diff*(per3/100)); value6 = TL_New(sdate[barArr[3]],stime[barArr[3]],L[barArr[4]]+diff*(per4/100),sdate[barArr[2]],stime[barArr[2]],L[barArr[4]]+diff*(per4/100)); value7 = TL_New(sdate[barArr[3]],stime[barArr[3]],L[barArr[4]]+diff*(per5/100),sdate[barArr[2]],stime[barArr[2]],L[barArr[4]]+diff*(per5/100)); TL_SetColor(value1,RED); TL_SetColor(value2,red); TL_SetColor(value3,RED); TL_SetColor(value4,red); TL_SetColor(value5,GREEN); TL_SetColor(value6,red); TL_SetColor(value7,red); } } TL_Delete(value11); TL_Delete(value12); TL_Delete(value13); TL_Delete(value14); TL_Delete(value15); TL_Delete(value16); TL_Delete(value17); TL_Delete(value21); TL_Delete(value22); TL_Delete(value23); TL_Delete(value24); TL_Delete(value25); TL_Delete(value26); TL_Delete(value27); if turnPntArr[1] == "Hi" then{ value11 = TL_New(sdate[barArr[2]],stime[barArr[2]],L[barArr[3]],sdate[barArr[1]],stime[barArr[1]],L[barArr[3]]); value12 = TL_New(sdate[barArr[2]],stime[barArr[2]],H[barArr[2]],sdate[barArr[1]],stime[barArr[1]],H[barArr[2]]); diff = abs(L[barArr[3]]-H[barArr[2]]); value13 = TL_New(sdate[barArr[2]],stime[barArr[2]],H[barArr[2]]-diff*(per1/100),sdate[barArr[1]],stime[barArr[1]],H[barArr[2]]-diff*(per1/100)); value14 = TL_New(sdate[barArr[2]],stime[barArr[2]],H[barArr[2]]-diff*(per2/100),sdate[barArr[1]],stime[barArr[1]],H[barArr[2]]-diff*(per2/100)); value15 = TL_New(sdate[barArr[2]],stime[barArr[2]],H[barArr[2]]-diff*(per3/100),sdate[barArr[1]],stime[barArr[1]],H[barArr[2]]-diff*(per3/100)); value16 = TL_New(sdate[barArr[2]],stime[barArr[2]],H[barArr[2]]-diff*(per4/100),sdate[barArr[1]],stime[barArr[1]],H[barArr[2]]-diff*(per4/100)); value17 = TL_New(sdate[barArr[2]],stime[barArr[2]],H[barArr[2]]-diff*(per5/100),sdate[barArr[1]],stime[barArr[1]],H[barArr[2]]-diff*(per5/100)); TL_SetColor(value11,blue); TL_SetColor(value12,blue); TL_SetColor(value13,blue); TL_SetColor(value14,blue); TL_SetColor(value15,GREEN); TL_SetColor(value16,blue); TL_SetColor(value17,blue); value21 = TL_New(sdate[barArr[1]],stime[barArr[1]],H[barArr[1]],sdate,stime,H[barArr[1]]); value22 = TL_New(sdate[barArr[1]],stime[barArr[1]],L[barArr[2]],sdate,stime,L[barArr[2]]); diff = abs(L[barArr[2]]-H[barArr[1]]); value23 = TL_New(sdate[barArr[1]],stime[barArr[1]],L[barArr[2]]+diff*(per1/100),sdate,stime,L[barArr[2]]+diff*(per1/100)); value24 = TL_New(sdate[barArr[1]],stime[barArr[1]],L[barArr[2]]+diff*(per2/100),sdate,stime,L[barArr[2]]+diff*(per2/100)); value25 = TL_New(sdate[barArr[1]],stime[barArr[1]],L[barArr[2]]+diff*(per3/100),sdate,stime,L[barArr[2]]+diff*(per3/100)); value26 = TL_New(sdate[barArr[1]],stime[barArr[1]],L[barArr[2]]+diff*(per4/100),sdate,stime,L[barArr[2]]+diff*(per4/100)); value27 = TL_New(sdate[barArr[1]],stime[barArr[1]],L[barArr[2]]+diff*(per5/100),sdate,stime,L[barArr[2]]+diff*(per5/100)); TL_SetColor(value21,RED); TL_SetColor(value22,RED); TL_SetColor(value23,RED); TL_SetColor(value24,RED); TL_SetColor(value25,GREEN); TL_SetColor(value26,RED); TL_SetColor(value27,RED); } Else{ value11 = TL_New(sdate[barArr[2]],stime[barArr[2]],H[barArr[2]],sdate[barArr[1]],stime[barArr[1]],H[barArr[2]]); value12 = TL_New(sdate[barArr[2]],stime[barArr[2]],L[barArr[3]],sdate[barArr[1]],stime[barArr[1]],L[barArr[3]]); diff = abs(L[barArr[3]]-H[barArr[2]]); value13 = TL_New(sdate[barArr[2]],stime[barArr[2]],L[barArr[3]]+diff*(per1/100),sdate[barArr[1]],stime[barArr[1]],L[barArr[3]]+diff*(per1/100)); value14 = TL_New(sdate[barArr[2]],stime[barArr[2]],L[barArr[3]]+diff*(per2/100),sdate[barArr[1]],stime[barArr[1]],L[barArr[3]]+diff*(per2/100)); value15 = TL_New(sdate[barArr[2]],stime[barArr[2]],L[barArr[3]]+diff*(per3/100),sdate[barArr[1]],stime[barArr[1]],L[barArr[3]]+diff*(per3/100)); value16 = TL_New(sdate[barArr[2]],stime[barArr[2]],L[barArr[3]]+diff*(per4/100),sdate[barArr[1]],stime[barArr[1]],L[barArr[3]]+diff*(per4/100)); value17 = TL_New(sdate[barArr[2]],stime[barArr[2]],L[barArr[3]]+diff*(per5/100),sdate[barArr[1]],stime[barArr[1]],L[barArr[3]]+diff*(per5/100)); TL_SetColor(value11,RED); TL_SetColor(value12,RED); TL_SetColor(value13,RED); TL_SetColor(value14,RED); TL_SetColor(value15,GREEN); TL_SetColor(value16,RED); TL_SetColor(value17,RED); value21 = TL_New(sdate[barArr[1]],stime[barArr[1]],L[barArr[1]],sdate,stime,L[barArr[1]]); value22 = TL_New(sdate[barArr[1]],stime[barArr[1]],H[barArr[2]],sdate,stime,H[barArr[2]]); diff = abs(L[barArr[1]]-H[barArr[2]]); value23 = TL_New(sdate[barArr[1]],stime[barArr[1]],H[barArr[2]]-diff*(per1/100),sdate,stime,H[barArr[2]]-diff*(per1/100)); value24 = TL_New(sdate[barArr[1]],stime[barArr[1]],H[barArr[2]]-diff*(per2/100),sdate,stime,H[barArr[2]]-diff*(per2/100)); value25 = TL_New(sdate[barArr[1]],stime[barArr[1]],H[barArr[2]]-diff*(per3/100),sdate,stime,H[barArr[2]]-diff*(per3/100)); value26 = TL_New(sdate[barArr[1]],stime[barArr[1]],H[barArr[2]]-diff*(per4/100),sdate,stime,H[barArr[2]]-diff*(per4/100)); value27 = TL_New(sdate[barArr[1]],stime[barArr[1]],H[barArr[2]]-diff*(per5/100),sdate,stime,H[barArr[2]]-diff*(per5/100)); TL_SetColor(value21,blue); TL_SetColor(value22,blue); TL_SetColor(value23,blue); TL_SetColor(value24,blue); TL_SetColor(value25,GREEN); TL_SetColor(value26,blue); TL_SetColor(value27,blue); }

안녕하세요. 일전에 문의드렸던 건 중에 아래와 같은 식을 답변 받았습니다. 아래식은 매수 진입도중 강제청산조건이 되기 전에 매도조건이 될 경우, 반대 매매로 들어가서 청산이 되는 것 같이 됩니다. 청산과 동시에 매도도 성립이 되어야하는데 (스위치), 어떻게 수정하면 될지 잘 모르겠습니다. 도와주시면 감사하겠습니다. ======================== input : Left(5),Right(5); var : T(0),cnt(0); var : Hi(0),SH(0),Y1(0),Y2(0),Y3(0),LL1(0),LD1(0),LT1(0),LL2(0),LD2(0),LT2(0),BTL(0); var : Li(0),SL(0),Z1(0),Z2(0),Z3(0),HH1(0),HD1(0),HT1(0),HH2(0),HD2(0),HT2(0),STL(0); #고점발생 if SwingHigh(1,H,Left,right,Left+Right+1) != -1 Then{ T = 1; Hi = index[Right]; SH = H[right]; } #저점발생 if SwingLow(1,L,Left,right,Left+Right+1) != -1 Then{ T = -1; Li = index[right]; SL = L[right]; } #고점이 발생후 고점보다 높은 고가 발생하면 다음 고점/저점 판별까지 대기 if T >= 1 and H > SH Then T = 0; #저점이 발생후 저점보다 낮은 저가 발생하면 다음 고점/저점 판별까지 대기 if T <= -1 and L < SL Then T = 0; #고점발생후 양봉 2개 발생 if T == 1 and countif(C>O,index-Hi) >= 2 Then{ T = 2; #첫양봉과 두번째 양봉 위치 계산 Y1 = 0; Y2 = 0; Y3 = 0; for cnt = (index-Hi)-1 downto 0{ if C[cnt] > O[cnt] Then{ Y1 = Y1+1; if Y1 == 1 Then Y2 = cnt; if Y1 == 2 Then Y3 = cnt; } } #고점에서 첫양봉까지의 최저가위치와 값 계산 LL1 = L[(index-Hi)-1]; LD1 = sdate[(index-Hi)-1]; LT1 = sTime[(index-Hi)-1]; for cnt = Y2 to (index-Hi)-1{ if L[cnt] < LL1 then{ LL1 = L[cnt]; LD1 = sdate[cnt]; LT1 = stime[cnt]; } } #첫양봉에서 두번째양봉까지의 최저가위치와 값 계산 LL2 = L[Y3]; LD2 = sdate[Y3]; LT2 = sTime[Y3]; for cnt = Y3 to Y2-1{ if L[cnt] < LL2 then{ LL2 = L[cnt]; LD2 = sdate[cnt]; LT2 = stime[cnt]; } } #매수 추세선 출력 BTL = TL_New(LD1,LT1,LL1,LD2,LT2,LL2); TL_SetExtRight(BTL,true); TL_SetColor(BTL,RED); } #추세선 발생 후 해당 추세선 보다 낮은 종가 발생하면 매수 if T == 2 then{ if C < TL_GetValue(BTL,sdate,stime) Then buy("b"); } #저점발생후 음봉 2개 발생 if T == -1 and countif(C<O,index-Li) >= 2 Then{ T = -2; #첫음봉과 두번째 음봉 위치 계산 Z1 = 0; Z2 = 0; Z3 = 0; for cnt = (index-Li)-1 downto 0{ if C[cnt] < O[cnt] Then{ Z1 = Z1+1; if Z1 == 1 Then Z2 = cnt; if Z1 == 2 Then Z3 = cnt; } } #저점에서 첫음봉까지의 최고가위치와 값 계산 HH1 = H[(index-Li)-1]; HD1 = sdate[(index-Li)-1]; HT1 = sTime[(index-Li)-1]; for cnt = Z2 to (index-Li)-1{ if H[cnt] > HH1 then{ HH1 = H[cnt]; HD1 = sdate[cnt]; HT1 = stime[cnt]; } } #첫음봉에서 두번째음봉까지의 최고가위치와 값 계산 HH2 = H[Z3]; HD2 = sdate[Z3]; HT2 = sTime[Z3]; for cnt = Z3 to Z2-1{ if H[cnt] > HH2 then{ HH2 = H[cnt]; HD2 = sdate[cnt]; HT2 = stime[cnt]; } } #매도 추세선 출력 STL = TL_New(HD1,HT1,HH1,HD2,HT2,HH2); TL_SetExtRight(STL,true); TL_SetColor(STL,BLUE); } #추세선 발생 후 해당 추세선 보다 높은 종가 발생하면 매도 if T == -2 then{ if C > TL_GetValue(STL,sdate,stime) Then sell("s"); }

이동평균선같은 볼린저밴드 어떻캐만들어야대나요 지표중에 이런개있나요 ? 상방이면 핑크색으로 뜨고 하방이면 보라색으로뜨는대 어떻캐만들방법없을까요

항상 수고 많으십니다. 아래와 같이 수식을 부탁합니다. 1.매수조건 5이평이 10 이평을 크로스하면 1계약 매수 수익률이 -5%이상 손실중이고, 5이평이 10 이평을 크로스하면 (보유수량 * 2)배로 추가매수한다. 2.청산조건 [수익시만 청산] 계좌수익이 5% 이상 수익이면 전량 청산한다.

50128번 답변에 대한 추가 질문입니다. 한 절반정도만 이해가 되는거 같습니다. 1) 어제 미국장의 결과에 따라서 매매를 해야하니, 연결선물의 날짜와 다우의 최근봉의 date가 같을때"가 아니라 다우의 최근 날짜가 하루 전날일때 매매를 하도록 짜는게 맞지 않는지요? - 즉, "if data1(sdate) == data2(date) Then" 이 아니라 "if data1(sdate) - data2(date) == 1 Then" 과 같은 식으로 써야 하는건 아닌지요? 근데 이렇게 날짜와 날짜를 빼는게 가능한건가요? 2) 위 조건을 안 넣으면 전일 미국의 휴장 여부와 상관 없이 가장 가까운 봉으로 판단해서 진입한다고 했는데, 여기에 대해서 두가지 방법으로 시뮬레이션을 하고 싶습니다. 2-1) 가장 가까운 봉의 상승률을 기준으로 한다. => 이건 그냥 알려주신 식에서, 위 조건만 삭제하면 되는 거겠죠? 2-2) 어제 장이 안 열렸으니, 사실 상승률은 0으로 볼 수 있다. 그러므로 어제 장이 안열린 경우의 상승률은 0으로 가정한다. => 요걸 구현하려면 어떻게 해야할까요? - 즉, 2-2)질문의 요지는. 어제 장이 열렸으면, 어제 상승률 값을 기준으로 하고, 어제 장이 안열렸으면 이전일의 상승률이 아니라, 그냥 0을 상승률로 보고 거래 여부를 선택하도록 하는 것입니다. 3) 마지막 추가 질문에 대해서는 그냥 공백 여부 상관 없이 가장 가까운 봉을 읽는 다는 것으로 이해가 되네요. 감사합니다.

까막눈이라 문의 한번 더 드려야할것 같습니다 만들어 주신 조건에서 문의 드릴께요 1. var : A1(0),A2(0),V1(0),M1(0),cnt(0),sum(0),mav1(0); Array : MM[50](0); a1 = (highest(high,10)+lowest(low,10))/2 ; a2 = A1[1]; mav1 = ma(c,5); if bdate != bdate[1] Then{ MM[0] =0; for cnt = 1 to 49{ MM[cnt] = MM[cnt-1][1]; } if C > mav1 Then Condition1 = true; Else Condition1 = false; } MM[0] = MM[0]+M; sum = 0; for cnt = 1 to 10{ sum = sum+MM[cnt]; } M1 = sum/10; V1 = 0; for cnt = 1 to 30{ if DayClose(cnt) >= DayClose(cnt+1)*1.15 Then V1 = V1+1; } if V1 >= 1 and M1 >= 7000000000 and MM[10] > 0 and (a1*1.1 <= MA(c,5) or a2*1.1 <= MA(c, 5)[1]) and C <= a2 *1.005 and C >= a2 then buy(); if MarketPosition == 1 and C < a2*0.97 Then exitlong("bx1"); if MarketPosition == 1 and Condition1 == false and c >= mav1*1.01 Then exitlong("bx2"); if MarketPosition == 1 and Condition1 == true Then{ exitlong("bx31",atlimit,EntryPrice*1.05,"",Floor(MaxContracts*0.5),1); exitlong("bx32",atlimit,EntryPrice*1.10,"",Floor(MaxContracts*0.5),1); } 이 조건에서 수익 -5% 하락시 추가매수 하려면 if MarketPosition == 1 and MaxEntries == 1 Then buy("bb",atlimit,EntryPrice*0.95); 이것만 붙히면 되는지요~ 그리고 예전에 공부할때 어려워서 포기했는데요. 예스차트에서 종목검색을 조건을 넣어서 할수 있다고 하는데 저는 어려워서 못하겠드라구요. 조건은 1. 30일 평균 거래대금 30억이상 30일중 하루라도 종가가 15% 이상인 종목 2. 10봉전 30일 거래대금 30억이상 30일중 하루라도 종가가 15% 이상인 종목 이렇게 찾는 조건식을 만들고 이걸 어떻게 해서 종목검색을 하는지 죄송합니다만 자세하게 설명좀 해주실수 있나요? 저번에도 도저히 못해서 포기했는데 이번에 알려주시면 도전해보겠습니다. 초보하서 죄송합니다 ㅜㅜ