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

노고에 늘 감사드립니다. 5, 20선 골든/데드클로스 국내선물 매매에서 2계약을 첫 진입한 후 위로 2틱, 5틱 오를때 마다 1계약씩 추가로 매수하고, 아래로 2틱, 5틱 내릴때 마다 1계약씩 추가로 매수하는 시스템식이 있습니다. 즉 최소 4계약에서 최대 6계약이 진입됩니다. 그런데 청산은 트레이딩스탑이나 특정조건이 만족하면 청산됩니다. 원하는 것은 이럴 경우 분할해서 일부는 청산하고 싶습니다. 첫 2계약은 확실하지만 나머지 계약은 확실하지 않으니 5, 10선이 데드클로스나면 첫 진입 2계약은 무조건 청산되고 나머지 진입분은 원래대로 스테리딩스탑, 청산 특정조건 만족, 다른방향 신호가 나올시 전량 청산하고 싶습니다. 구현이 가능하다면 진입분의 절반이 청산되게 하고 싶으나 3, 5계약은 절반 규정이 힘들듯해 첫진입 2계약 별도 청산으로 요청드립니다. 이 시스템의 경우 분할 청산하는데 다른 방법이 있은지도 궁금합니다. 미리 감사드립니다~

1. 전월(前月) 월봉 시가를 일간 차트에 표시한다 2. 전전월(前前月) 월봉 시가를 일간 차트에 표시한다 감사합니다

문의 드립니다. 1. 1일전,2일전,3일전,4일전 캔들의 최고가를 현재가가 상향 돌파 하면 즉시 매수 진입(현재가로 즉시매수) 매수시 가격 표시, 매수가격 아래로 내려가면 매수 표시가격 삭제, 매수가격 상향돌파시 매수가격 표시 1일전,2일전,3일전,4일전 최저가를 하향붕괴하면 즉시 매도 진입 2.1일전,2일전,3일전,4일전,캔들의 4평균값을 현재가가 돌파하면 즉시 매수( 봉 완성전 현재가로 즉시 매수) 4평균값을 현재가가 하락시 현재가로 즉시 매도 진입(봉 완성전 현재가로 즉각 실행 되어야 합니다.

1. input : StartTime(200000),EndTime(50000); var : Tcond(false); IF Endtime > starttime Then SetStopEndofday(Endtime); Else { if sDate != sDate[1] Then SetStopEndofday(Endtime); } if (sdate != sdate[1] and stime >= EndTime) or (sdate == sdate[1] and stime >= EndTime and stime[1] < EndTime) Then Tcond = False; if (sdate != sdate[1] and stime >= StartTime) or (sdate == sdate[1] and stime >= StartTime and stime[1] < StartTime) Then { Tcond = true; IF Endtime <= starttime Then { SetStopEndofday(0); } } Inputs: VtyPercent(0.05),ATRperiod(5); If MarketPosition() <> 1 Then Buy ("Vty_LE", AtStop, Close + (VtyPercent * ATR(ATRperiod))); If MarketPosition() <> -1 Then Sell ("Vty_SE)", AtStop, Close - (VtyPercent * ATR(ATRperiod))); If MarketPosition() == 1 Then Buy ("Vty_LE1", AtStop, Close + (VtyPercent * ATR(ATRperiod))); If MarketPosition() == -1 Then Sell ("Vty_SE1)", AtStop, Close - (VtyPercent * ATR(ATRperiod))); if MarketPosition == 1 Then Sell("bs",AtStop,EntryPrice-PriceScale*0); if MarketPosition == -1 Then Buy("sb",AtStop,EntryPrice+PriceScale*0); 2. input:length(5),a틱(10),b틱(10),c틱(5); Var:j(0),lastHiVal(0),lastLoVal(0),sBar(0),eBar(0),TL1(0),Text1(0),process(0),T(0); Array:HH[10,2](0),LL[10,2](0); input : StartTime(150000),EndTime(60000); var : Tcond(false); IF Endtime > starttime Then SetStopEndofday(Endtime); Else { if sDate != sDate[1] Then SetStopEndofday(Endtime); } if (sdate != sdate[1] and stime >= EndTime) or (sdate == sdate[1] and stime >= EndTime and stime[1] < EndTime) Then Tcond = False; if (sdate != sdate[1] and stime >= StartTime) or (sdate == sdate[1] and stime >= StartTime and stime[1] < StartTime) Then { Tcond = true; IF Endtime <= starttime Then { SetStopEndofday(0); } } process = 0; If Highest(H,length) == H and lastHiVal <> H and Lowest(L,length) == L and lastLoVal <> L Then { If LL[1,1] > L Then process = -1; If HH[1,1] < H Then process = 1; } Else If Highest(H,length) == H and lastHiVal <> H Then process = 1; Else If Lowest(L,length) == L and lastLoVal <> L Then process = -1; If process == 1 Then { T = 1; lastHiVal = H; If HH[1,2] < LL[1,2] Then { For j = 10 DownTo 2 { HH[j,1] = HH[j-1,1]; HH[j,2] = HH[j-1,2]; } } If HH[1,2] < LL[1,2] or HH[1,1] < H Then { HH[1,1] = H; HH[1,2] = Index; sBar = Index - LL[1,2]; eBar = 0; If TL_GetBeginDate(TL1) == sDate[sBar] and TL_GetBeginTime(TL1) == sTime[sBar] Then { TL_Delete(TL1); Text_Delete(Text1); } if LL[1,1] > 0 Then { TL1 = TL_New(sDate[sBar],sTime[sBar],LL[1,1],sDate[eBar],sTime[eBar],HH[1,1]); Text1 = Text_New(sDate[eBar],sTime[eBar],HH[1,1],"+"+NumToStr(abs(HH[1,1]-LL[1,1])/PriceScale,0)); Text_SetStyle(Text1, 2, 1); } Else { Text_Delete(text1); Text1 = Text_New(sDate[eBar],sTime[eBar],HH[1,1],"+"+NumToStr(abs(HH[1,1]-LL[1,1])/PriceScale,2)); Text_SetStyle(Text1, 2, 1); } Text_SetStyle(Text1, 2, 1); } if MarketPosition <= 0 and HH[2,1] >= LL[2,1]+PriceScale*a틱 and LL[1,1] <= HH[2,1]-PriceScale*b틱 and Tcond == true Then Buy("b",AtStop,HH[2,1]+PriceScale*c틱); } If process == -1 Then { T = -1; lastLoVal = L; If LL[1,2] < HH[1,2] Then { For j = 10 DownTo 2 { LL[j,1] = LL[j-1,1]; LL[j,2] = LL[j-1,2]; } } If LL[1,2] < HH[1,2] or LL[1,1] > L Then { LL[1,1] = L; LL[1,2] = Index; sBar = Index - HH[1,2]; eBar = 0; If TL_GetBeginDate(TL1) == sDate[sBar] and TL_GetBeginTime(TL1) == sTime[sBar] Then { TL_Delete(TL1); Text_Delete(Text1); } if HH[1,1] > 0 Then { TL1 = TL_New(sDate[sBar],sTime[sBar],HH[1,1],sDate[eBar],sTime[eBar],LL[1,1]); Text1 = Text_New(sDate[eBar],sTime[eBar],LL[1,1],"-"+NumToStr(abs(HH[1,1]-LL[1,1])/PriceScale,0)); Text_SetStyle(Text1, 2, 0); } Else { Text_Delete(text1); Text1 = Text_New(sDate[eBar],sTime[eBar],LL[1,1],"-"+NumToStr(abs(HH[1,1]-LL[1,1])/PriceScale,0)); Text_SetStyle(Text1, 2, 0); } } if MarketPosition >= 0 and LL[2,1] <= HH[2,1]-PriceScale*a틱 and HH[1,1] >= LL[2,1]+PriceScale*b틱 and Tcond == true Then Sell("s",AtStop,LL[2,1]-PriceScale*c틱); } 위 2가지 수식어의 진입후 20틱내 청산금지와 손절40틱의 수식어를 추가 하고자 합니다. --------------------------- 아래 수식어를 추가로 부탁드리며 봉 완성시 기준입니다. 3. 10분선 아래에서 샛별형, 관통형, 강세장악형의 봉패턴중 하나 일때 1분 10분선 골든크로스 2회에서 매수 10분선 위에서 저녁별형, 흑운형, 약세장악형의 봉패턴중 하나 일때 1분 10분선 데드크로스 2회에서 청산 매매시간은 해외선물 10 :00 ~ 익일 06 :00 , 익절 100 , 손절50 4. 10분선 위에서 저녁별형, 흑운형, 약세장악형의 봉패턴중 하나 일때 1분 10분선 데드크로스 2회에서 매도 10분선 아래에서 샛별형, 관통형, 강세장악형의 봉패턴중 하나 일때 1분 10분선 골든크로스 2회에서 청산 매매시간은 해외선물 10 :00 ~ 익일 06 :00 , 익절 100 , 손절50

var : 전환선(0),기준선(0),후행스팬(0),선행스팬1(0),선행스팬2(0),기준선2(0),전환선2(0); Input : Period1(9), Period2(26),Period3(52); 전환선 = (highest(high,Period1)+lowest(low,Period1))/2; 기준선 = (highest(high,Period2)+lowest(low,Period2))/2; 기준선2 = (highest(high,Period2)+lowest(low,Period2))/2; 후행스팬 = C; 선행스팬1 = (전환선+기준선)/2; 선행스팬2 = (highest(high,Period3)+lowest(low,Period3))/2; 전환선2 = (highest(high,Period1)+lowest(low,Period1))/2; Plot1(전환선, "전환선"); Plot2(기준선, "기준선"); Plot3(후행스팬, "후행스팬"); Plot4(선행스팬1, "선행스팬1"); Plot5(선행스팬2, "선행스팬2"); Plot6(기준선2, "기준선2"); Plot7(전환선2, "전환선2"); /* 지표속성창 차트표시탭 후행스팬 수평이동 -25 선행스팬1 수평이동 +25 선행스팬2 수평이동 +25 기준선2 수평이동 +25 *? 위 지표에서 오늘봉 기준 기준선2가 선행스팬1을 골든크로스 하는 검색식을 부탁드립니다 ( 오늘봉기준 26일 전 기준선2가 26일 전 선행스팬1을 골든크로스 하는 종목입니다. 꼭 부탁드립니다.)

안녕하세요? 아래 전략에.대해 스크립트 작성 부탁드립니다. 해외선물 1분봉으로 Data1을 일중거래하고자 합니다. Data1 1분봉 종가 완성봉 등락률(전일 종가 대비) > Data2 1분봉 종가 완성봉 등락률(전일 종가 대비) > Data3 1분봉 종가 완성봉 등락률(전일 종가 대비) > 0 완성 익봉 시가에 매수 진입 Data1 1분봉 종가 완성봉 등락률(전일 종가 대비) < Data2 1분봉 종가 완성봉 등락률(전일 종가 대비) < Data3 1분봉 종가 완성봉 등락률(전일 종가 대비) < 0 완성 익봉 시가에 매도 진입 리버스 전략이며 매수 매도 신규로 하루 최대 각 1회씩만 진입합니다. 당영업일 오전 3시에 강제청산합니다.

안녕하세요^^ 시스템식 작성해 주셔서 감사드립니다. 덕분에 시스템의 기본틀, 어순, 제가 필요함 함수 모두 인지하여 좋은 시스템 만들수 있겠끔 응용이 가능해 졌습니다. 완성 후 보답 하겠습니다. 얼마 남지 한은 한해 송구영신하시고 복 많이 받으시며 행복하시기를 바라겠습니다. 감사합니다^^.

강조식 부탁드립니다. input : i_lenHARSI(14),i_smoothing(7),i_lenRSI(7); var : i_colUp(0),i_colDown(0),i_colWick(0),i_source(0); var : _closeRSI(0),_openRSI(0),_highRSI_raw(0),_lowRSI_raw(0); var : _highRSI(0),_lowRSI(0),_close(0),_open(0),_high(0),_low(0); Var : cnt(0), DownAmt1(0), UpAmt1(0), UpSum1(0), DownSum1(0), UpAvg1(0), DownAvg1(0),RSIV1(0); Var : DownAmt2(0), UpAmt2(0), UpSum2(0), DownSum2(0), UpAvg2(0), DownAvg2(0),RSIV2(0); var : bodyColour(0),wickColour(0); i_colUp = red; i_colDown = teal; i_colWick = gray; i_source = (o+h+l+c)/4; _closeRSI = rsi(i_lenHARSI)-50; _openRSI = IFF(IsNaN(_closeRSI[1]) == False, _closeRSI[1], _closeRSI); If CurrentBar == 1 AND i_lenHARSI > 0 Then Begin UpSum1 = 0; DownSum1 = 0; For cnt = 0 To i_lenHARSI - 1 Begin UpAmt1 = H[cnt] - H[cnt+1]; If UpAmt1 >= 0 Then DownAmt1 = 0; Else Begin DownAmt1 = -UpAmt1; UpAmt1 = 0; End; UpSum1 = UpSum1 + UpAmt1; DownSum1 = DownSum1 + DownAmt1; End; UpAvg1 = UpSum1 / i_lenHARSI; DownAvg1 = DownSum1 / i_lenHARSI; End Else If CurrentBar > 1 AND i_lenHARSI > 0 Then Begin UpAmt1 = H[0] - H[1]; If UpAmt1 >= 0 Then DownAmt1 = 0; Else Begin DownAmt1 = -UpAmt1; UpAmt1 = 0; End; UpAvg1 = (UpAvg1[1] * (i_lenHARSI - 1) + UpAmt1) / i_lenHARSI; DownAvg1 = (DownAvg1[1] * (i_lenHARSI - 1) + DownAmt1) / i_lenHARSI; End; If UpAvg1 + DownAvg1 <> 0 Then RSIV1 = 100 * UpAvg1 / (UpAvg1 + DownAvg1); Else RSIV1 = 0; If CurrentBar == 1 AND i_lenHARSI > 0 Then Begin UpSum2 = 0; DownSum2 = 0; For cnt = 0 To i_lenHARSI - 1 Begin UpAmt2 = L[cnt] - L[cnt+1]; If UpAmt2 >= 0 Then DownAmt2 = 0; Else Begin DownAmt2 = -UpAmt2; UpAmt2 = 0; End; UpSum2 = UpSum2 + UpAmt2; DownSum2 = DownSum2 + DownAmt2; End; UpAvg2 = UpSum2 / i_lenHARSI; DownAvg2 = DownSum2 / i_lenHARSI; End Else If CurrentBar > 2 AND i_lenHARSI > 0 Then Begin UpAmt2 = L[0] - L[1]; If UpAmt2 >= 0 Then DownAmt2 = 0; Else Begin DownAmt2 = -UpAmt2; UpAmt2 = 0; End; UpAvg2 = (UpAvg2[1] * (i_lenHARSI - 1) + UpAmt2) / i_lenHARSI; DownAvg2 = (DownAvg2[1] * (i_lenHARSI - 1) + DownAmt2) / i_lenHARSI; End; If UpAvg2 + DownAvg2 <> 0 Then RSIV2 = 100 * UpAvg2 / (UpAvg2 + DownAvg2); Else RSIV2 = 0; _highRSI_raw = RSIV1-50; _lowRSI_raw = RSIV2-50; _highRSI = max(_highRSI_raw, _lowRSI_raw); _lowRSI = min(_highRSI_raw, _lowRSI_raw); _close = (_openRSI + _highRSI + _lowRSI + _closeRSI) / 4; _open = iff(isnan(_open[i_smoothing]) == true, (_openRSI + _closeRSI) / 2 , (_open[1] * i_smoothing + _close[1]) / (i_smoothing + 1)); _high = max(_highRSI, max(_open, _close)); _low = min(_lowRSI, min(_open, _close)); bodyColour = iff(_close > _open , i_colUp , i_colDown); wickColour = i_colWick; var1 = TL_New_Self(sDate,sTime,_open,sDate,sTime,_close); var2 = TL_New_Self(sDate,sTime,_high,sDate,sTime,max(_open,_close)); var3 = TL_New_Self(sDate,sTime,_Low,sDate,sTime,min(_open,_close)); TL_SetColor(var1,bodyColour); TL_SetColor(var2,i_colWick); TL_SetColor(var2,i_colWick); TL_SetSize(var1,3); TL_SetSize(var2,1); TL_SetSize(var3,1);

안녕하세요! 아래의 수식은 일간의 고,저,종가를 이용하여 만든 피봇지표입니다. 이수식을 가능하다면 주간과 월간의 고,저,종가를 이용하여 만든 피봇지표로 각각 수정을 부탁드립니다! 항상 노고에 감사드립니다! input : 수치표시(1); Var : preHigh(0), preLow(0), preClose(0), HighV(0), LowV(0); Var : Pivot(0),R1(0),R2(0),S1(0),S2(0); Var : TX1(0), TX2(0), TX3(0), TX4(0), TX5(0); if BarInterval <= 60 and DataCompress < 3 Then { if sTime-sTime[1] > 4000 or sTime-sTime[1] < 0 Then { preHigh = HighV[1]; preLow = LowV[1]; preClose = C[1]; HighV = H; LowV = L; } if H > highV Then HighV = H; if L < LowV Then LowV = L; Pivot = (preHigh+preLow+preClose)/3; R1 = 2*Pivot-preLow; R2 = Pivot+preHigh-preLow; S1 = 2*Pivot-preHigh; S2 = Pivot-preHigh+preLow; Plot1(Pivot, "피봇포인트", GRAy, 0, 1); Plot2(R1, "1차저항", RED, 0,1); Plot3(R2, "2차저항", PINk, 0,1); Plot4(S1, "1차지지", GREEN, 0, 1); Plot5(S2, "2차지지", LGREEN, 0, 1); if 수치표시 == 1 and sTime-sTime[1] > 4000 or sTime-sTime[1] < 0 Then { TX1 = Text_New(sdate, stime, Pivot, "▶PV : "+Numtostr(Pivot,2)); Text_SetStyle(TX1, 1, 2); Text_setColor(TX1, GRAY); TX2 = Text_New(sdate, stime, R1, "▶R1 : "+Numtostr(R1,2)); Text_SetStyle(TX2, 1, 2); Text_setColor(TX2, red); TX3 = Text_New(sdate, stime, R2, "▶R2 : "+Numtostr(R2,2)); Text_SetStyle(TX3, 1, 2); Text_setColor(TX3, red); TX4 = Text_New(sdate, stime, S1, "▶S1 : "+Numtostr(S1,2)); Text_SetStyle(TX4, 1, 2); Text_setColor(TX4, GREEN); TX5 = Text_New(sdate, stime, S2, "▶S2 : "+Numtostr(S2,2)); Text_SetStyle(TX5, 1, 2); Text_setColor(TX5, GREEN); } } --------------------------------------------- 아래 함수가 잘 못 되었다고 계속 에러가 뜨네요! 확인 좀 부탁드립니다! input : N(numeric); var : cnt(0); array : MO[99](0); if index() == 0 then MO[1] = O; if index() > 0 then{ if date > date[1]+30 then{ MO[0] = O; for cnt = 1 to 98{ MO[cnt] = MO[cnt-1][1]; } } } MonthOpen = MO[N]; Input : N(numeric); var : cnt(0); array : MH[99](0); if index() == 0 then MH[0] = H; if date > date[1]+30 then{ MH[0] = H; for cnt = 1 to 20{ MH[cnt] = MH[cnt-1][1]; } } if H > MH[0] then{ MH[0] = H; } MonthHigh = MH[N]; Input : N(numeric); var : cnt(0); array : ML[99](0); if index() == 0 then ML[0] = L; if index() > 0 then{ if date > date[1]+30 then{ ML[0] = L; for cnt = 1 to 20{ ML[cnt] = ML[cnt-1][1]; } } } if L < ML[0] then{ ML[0] = L; } MonthLow = ML[N]; input : N(numeric); var : cnt(0); array : MC[99](0); if date > date[1]+30 then{ for cnt = 1 to 98{ MC[cnt] = MC[cnt-1][1]; } } MC[0] = C; Monthclose = MC[N]; -------- WeekOpen input:n(numeric); var:j(0),요일(0); array:weekO[100](0); 요일 = DayOfWeek(date); if date[1] < date and 요일[1] >= 요일 then { for j = 99 downto 1 { weekO[j] = weekO[j-1]; } weekO[0] = o; } WeekOpen = weekO[n]; WeekHigh Input : N(numeric); var : cnt(0); array : WH[99](0); if DayOfWeek(date) < DayOfWeek(date)[1] then{ WH[0] = H; for cnt = 1 to 20{ WH[cnt] = WH[cnt-1][1]; } } if H > WH[0] then{ WH[0] = H; } WeekHigh = WH[N]; WeekLow Input : N(numeric); var : cnt(0); array : WL[99](0); if DayOfWeek(date) < DayOfWeek(date)[1] then{ WL[0] = L; for cnt = 1 to 20{ WL[cnt] = WL[cnt-1][1]; } } if L < WL[0] then{ WL[0] = L; } WeekLow = WL[N]; WeekClose input : N(numeric); var : cnt(0); array : WC[99](0); if DayOfWeek(date) < DayOfWeek(date)[1] then{ for cnt = 1 to 98{ WC[cnt] = WC[cnt-1][1]; } } WC[0] = C; Weekclose = WC[N]; ---------