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

다음 1.은 항생, 골드, 나스닥 등 붙, 틱챠트에서 전일 14:30분부터 장시작과 함께 시가를 기준으로 타주기(일봉) 3일선을 긋는 지표입니다. 맞는지 검토를 부탁드리며 혹시 정규장 외는 제외하는 것이 가능한지요? 다음 2는 역시 해외선물 시고저종중 가격을 장시작과 함께 표기하는 것입니다. 그런데 각 라인들이 시가기준이 아닌 듯 합니다. 검토를 부탁드립니다. 감사합니다. 1. ================= input : p(3),굵기(5),R(102),G(102),B(102); var : cnt(0),sum(0),mav(0); var : TL1(0),TL2(0),TL3(0),TL4(0); sum = DayOpen(0); if P >= 3 Then { For cnt = 1 to P-1 { sum = sum + DayClose(cnt); } } mav = sum/P; if Index == 0 or (sTime >= 143000 and sTime[1] < 143000) Then { var1 = sDate; Var2 = stime; } if Bdate != Bdate[1] Then { if var1 > 0 and Var2 > 0 Then { TL1 = TL_New(var1,Var2,mav,sDate,sTime,mav); TL_SetColor(TL1,RGB(R,G,B)); TL_SetSize(TL1, 굵기); } } Else { if sTime < 113000 Then { TL_SetBegin(TL1,var1,Var2,mav); TL_SetEnd(TL1,sDate,sTime,mav); } } 2.================== input : 색상1(green),색상2(RED),색상3(BLUE),색상4(BLACK),색상5(cyan); input : 굵기1(0),굵기2(0),굵기3(0),굵기4(0),굵기5(5); input : 폰트크기1(12),폰트크기2(12),폰트크기3(12),폰트크기4(12),폰트크기5(12); var : TL1(0),TL2(0),TL3(0),TL4(0),TL5(0); var : Tx1(0),Tx2(0),Tx3(0),Tx4(0),Tx5(0); if Index == 0 or (sTime >= 153000 and sTime[1] < 153000) Then { var1 = sDate; Var2 = stime; } if Bdate != Bdate[1] Then { if var1 > 0 and Var2 > 0 Then { TL1 = TL_New(var1,Var2,DayOpen(0),sDate,sTime,Dayopen(0)); TL2 = TL_New(var1,Var2,DayHigh(1),sDate,sTime,DayHigh(1)); TL3 = TL_New(var1,Var2,DayLow(1),sDate,sTime,DayLow(1)); TL4 = TL_New(var1,Var2,DayClose(1),sDate,sTime,DayClose(1)); TL5 = TL_New(var1,Var2,(DayHigh(1)+DayLow(1))/2,sDate,sTime,(DayHigh(1)+DayLow(1))/2); #추세선 색상 TL_SetColor(TL1,색상1); TL_SetColor(TL2,색상2); TL_SetColor(TL3,색상3); TL_SetColor(TL4,색상4); TL_SetColor(TL5,색상5); #추세선 굵기 TL_SetSize(TL1,굵기1); TL_SetSize(TL2,굵기2); TL_SetSize(TL3,굵기3); TL_SetSize(TL4,굵기4); TL_SetSize(TL5,굵기5); tx1 = text_new(var1,Var2,DayOpen(0),"당일시가:"+NumToStr(DayOpen(0),2)); tx2 = text_new(var1,Var2,DayHigh(1),"전일고가:"+NumToStr(DayHigh(1),2)); tx3 = text_new(var1,Var2,DayLow(1),"전일저가:"+NumToStr(DayLow(1),2)); tx4 = text_new(var1,Var2,DayClose(1),"전일종가:"+NumToStr(DayClose(1),2)); tx5 = text_new(var1,Var2,(DayHigh(1)+DayLow(1))/2,"전일중심:"+NumToStr((DayHigh(1)+DayLow(1))/2,2)); #텍스트 색상 text_SetColor(tx1,색상1); text_SetColor(tx2,색상2); text_SetColor(tx3,색상3); text_SetColor(tx4,색상4); text_SetColor(tx5,색상5); #텍스트 크기 Text_SetSize(Tx1,폰트크기1); Text_SetSize(Tx2,폰트크기2); Text_SetSize(Tx3,폰트크기3); Text_SetSize(Tx4,폰트크기4); Text_SetSize(Tx5,폰트크기5); } } Else { if sTime < 093000 Then { TL_SetEnd(TL1,sDate,sTime,DayOpen(0)); TL_SetEnd(TL2,sDate,sTime,DayHigh(1)); TL_SetEnd(TL3,sDate,sTime,DayLow(1)); TL_SetEnd(TL4,sDate,sTime,DayClose(1)); TL_SetEnd(TL5,sDate,sTime,(DayHigh(1)+DayLow(1))/2); } }

1. 전일과 분리되어 당일 부터 시작되는 종가 파라볼릭 차트에서 파라볼릭 양전환시 파라볼릭 음전환 상태의 바닥과 파라볼릭 양전환 상태의 천정 연결선 표시 파라볼릭 음전환시 파라볼릭 양전환 상태의 천정과 파라볼릭 음전환 상태의 바닥 연결선 표시 2. 전일과 연속되어 진행되는 종가 파라볼릭 차트에서 파라볼릭 양전환시 파라볼릭 음전환 상태의 바닥과 파라볼릭 양전환 상태의 천정 연결선 표시 파라볼릭 음전환시 파라볼릭 양전환 상태의 천정과 파라볼릭 음전환 상태의 바닥 연결선 표시 감사합니다

오전8시 시작. 다음날 오전 6시50분 시스템 완전종료. 스토어캐스틱 퍼스트 75위 85사이의 있고 이평120선과 음봉캔들의 이격이 0.5안으로 들어와서 봉완성되면 매수. 손절 400틱. 익절 800틱.

안녕하세요? 아래수식에서 전환선과기준선도 선의 기울기에따라 색상을 넣고싶습니다 감사드립니다 Inputs: 전환선기간(9), 기준선기간(26), 스팬2기간(52); Variables: 기준선(0), 전환선(0), 후행스팬(0), 선행스팬1(0), 선행스팬2(0); 전환선 = (Highest(High, 전환선기간) + Lowest(Low, 전환선기간)) / 2; 기준선 = (Highest(High, 기준선기간) + Lowest(Low, 기준선기간)) / 2; 후행스팬 = Close ; 선행스팬1 = (전환선 + 기준선) / 2 ; 선행스팬2 = (Highest(High, 스팬2기간) + Lowest(Low, 스팬2기간)) / 2; Plot1(전환선, "전환선"); Plot2(기준선, "기준선"); Plot3(후행스팬, "후행스팬",iff(후행스팬>후행스팬[1],RED,BLUE)); Plot4(선행스팬1," 선행스팬1",iff(선행스팬1>선행스팬1[1],RED,BLUE)); Plot5(선행스팬2, "선행스팬2",iff(선행스팬2>선행스팬2[1],RED,BLUE));

안녕하세요 아래의 수식을 수정 부탁드립니다. 수정사항은 파동선이 바뀔때 즉 파동선이 위로향하면 주황, 아래로 향하면 파랑 그리고 표현이 될지 모르나 아래에서 위로 , 위에서 아래로 바뀌기전의 중간상황은 녹색으로 표시를 하는데 챠트 하단에 막대 그래프로 표시하고 싶습니다. 글로 표현하자니 제대로 전달될는지 모르겠습니다 Input:length(12); 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); 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); } TL1 = TL_New(sDate[sBar],sTime[sBar],저점[1,1],sDate[eBar],sTime[eBar],고점[1,1]); TL_SetColor(TL1,WHITe); 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, 1, 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); 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); } TL1 = TL_New(sDate[sBar],sTime[sBar],고점[1,1],sDate[eBar],sTime[eBar],저점[1,1]); TL_SetColor(TL1,blue); 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, 1, 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); TL3 = TL_New(sDate[sBar],sTime[sBar],고점[2,1],sDate[eBar],sTime[eBar],고점[1,1]); TL_SetColor(TL3,GREEn); TL_SetExtLeft(TL3,true); TL_SetExtRight(TL3,true); } } } TL_SetSize(TL1,0.5); TL_SetSize(TL2,0.5); TL_SetSize(TL3,0.5); TL_Val1 = 0; TL_Val2 = 0; If 고점[2,1] > 고점[1,1] and 고점[2,1] > 고점[3,1] Then { If 고점[1,2] < 저점[1,2] and 저점[3,1] < 저점[2,1] Then TL_Val1 = (저점[2,1]-저점[3,1])/(저점[2,2]-저점[3,2]) * (Index-저점[3,2])+저점[3,1]; If 저점[1,2] < 고점[1,2] and 저점[2,1] < 저점[1,1] Then TL_Val1 = (저점[1,1]-저점[2,1])/(저점[1,2]-저점[2,2]) * (Index-저점[2,2])+저점[2,1]; } If 저점[2,1] < 저점[1,1] and 저점[2,1] < 저점[3,1] Then { If 저점[1,2] < 고점[1,2] and 고점[3,1] > 고점[2,1] Then TL_Val2 = (고점[2,1]-고점[3,1])/(고점[2,2]-고점[3,2]) * (Index-고점[3,2])+고점[3,1]; If 고점[1,2] < 저점[1,2] and 고점[2,1] > 고점[1,1] Then TL_Val2 = (고점[1,1]-고점[2,1])/(고점[1,2]-고점[2,2]) * (Index-고점[2,2])+고점[2,1]; }

* 항상 많은 도움에 고맙습니다. * 아래 수식을 120틱봉 에서 쓰고 있는데 타주기 240분봉 에서 신호가 나오면 선긋기 되도록 요청 드립니다. 즉 차트는 120봉 신호는 240봉에서 발생 하면 선긋기 입니다. ## 아래 수식 var: TL48(0); var1 = ma(c,5) ; Var2 = ma(c,20) ; if CrossDown(var1, Var2) Then { TL48 = TL_New(sdate,stime,9999999,sdate,stime,0); } * 매번 고맙습니다. 수고하십시요.

수고 많으십니다 첨부한 수식 중 매수신호봉 저가기준 손절 20틱(레드선), 익절50틱(블루선) 라인 매도신호봉 고가기준 손절20(레드선)틱, 익절50틱(블루선) 라인 부탁드립니다 감사합니다~ input : 전환선기간(9),기준선기간(26),선행스팬2기간(52),시작시간(080000),종료시간(220000); Var : 기준선(0), 전환선(0), 선행스팬1(0), 선행스팬2(0),구름상단(0),구름하단(0),Tcond(false); 전환선 = (Highest(H, 전환선기간) + Lowest(L, 전환선기간)) / 2; 기준선 = (Highest(H, 기준선기간) + Lowest(L, 기준선기간)) / 2; 선행스팬1 = (전환선[25] + 기준선[25]) / 2 ; 선행스팬2 = (Highest(H, 선행스팬2기간)[25] + Lowest(L, 선행스팬2기간)[25]) / 2; 구름상단 = max(선행스팬1,선행스팬2); 구름하단 = Min(선행스팬1,선행스팬2); if (sdate != sdate[1] and stime >= 시작시간) or (sdate == sdate[1] and stime >= 시작시간 and stime[1] < 시작시간) Then Tcond = true; if (sdate != sdate[1] and stime >= 종료시간) or (sdate == sdate[1] and stime >= 종료시간 and stime[1] < 종료시간) Then{ Tcond = false; if MarketPosition == 1 Then exitlong(); if MarketPosition == -1 Then ExitShort(); } if Tcond == true then{ if crossup(전환선,구름상단) Then buy(); if CrossDown(전환선,구름하단) Then sell(); } input : 틱(20); var : RR(0), TL(0),TX1(0),TX2(0); if MarketPosition == 1 Then { rr = Floor((highest(H,BarsSinceEntry)-EntryPrice)/(PriceScale*틱)); if rr > rr[1] Then{ tx1 = Text_New(sdate,stime,H,NumToStr(RR*틱,0)+"틱"); Text_SetStyle(tx1,1,2); } TL_Delete(TL); TL_New(EntryDate,EntryTime,L[BarsSinceEntry],sdate,stime,L[BarsSinceEntry]); Text_Delete(Tx2); tx2 = Text_New(sdate,stime,L[BarsSinceEntry],NumToStr(L[BarsSinceEntry],2)); } if MarketPosition == -1 Then { rr = Floor((EntryPrice-lowest(L,BarsSinceEntry))/(PriceScale*틱)); if rr > rr[1] Then{ tx1 = Text_New(sdate,stime,H,NumToStr(RR*틱,0)+"틱"); Text_SetStyle(tx1,1,2); } TL_Delete(TL); TL_New(EntryDate,EntryTime,H[BarsSinceEntry],sdate,stime,H[BarsSinceEntry]); Text_Delete(Tx2); tx2 = Text_New(sdate,stime,H[BarsSinceEntry],NumToStr(H[BarsSinceEntry],2)); }

이평20 이평120 위의 있고 첫번째 음봉캔들 매수.두번째 음봉캔들 매수. 이평20 이평120 아래의 있고 첫번째 양봉캔들 매도. 두번째 양봉캔들 매도. 수고하세요.

input : n(1),x(50); input : StartTime(80000),EndTime(50000); Inputs : Period(20), Sence(1.5), CC_DN(Yellow); Input : 당일수익틱수(100),당일손실틱수(100); Var : N1(0),dayPl(0),당일수익(0),당일손실(0),Xcond(false); var : Tcond(false); Vars: VLineUp(0), VLineDn(0), HHighest(0), LLowest(0), JustChanged(FALSE), VLine(0), DBN(0); Array: Highs[35](0), Lows[35](0), RRange[35](0), UpWave[1](FALSE), DnWave[1](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); } } If STime == 180000 Then DBN = 0; DBN = DBN + 1; Var1 = Period; Var2 = Var1 - 1; Var3 = Var1 - 2; Var5 = Sence; Var6 = H-L; JustChanged = FALSE; if CurrentBar <= Var2 then begin Highs[CurrentBar] = Close; Lows[CurrentBar] = Close; RRange[CurrentBar] = (H-L) /2; end; if CurrentBar == Var1 then begin if Highs[Var2] >= Highs[Var3] then begin UpWave[1] = TRUE; HHighest = Highs[Var2]; VLineUp = HHighest - (Var5 * MA(Var6,Var2)); #Plot1(VLineUp,"VLineUp"); end; if Highs[Var2] < Highs[Var3] then begin DnWave[1] = TRUE; LLowest = Lows[Var2]; VLineDn = LLowest + (Var5 * MA(Var6,Var2)); #Plot2(VLineDn,"VLineDn"); end; end; if CurrentBar > Var1 then begin if DnWave[1] and Close > VLineDn then begin DnWave[1] = FALSE; UpWave[1] = TRUE; JustChanged = TRUE; HHighest = Close; LLowest = 0; end; if UpWave[1] and Close < VLineUp and JustChanged == FALSE then begin UpWave[1] = FALSE; DnWave[1] = TRUE; JustChanged = TRUE; LLowest = Close; HHighest = 0; end; if JustChanged == FALSE then begin if Close > HHighest then HHighest = Close; else if Close < LLowest then LLowest = Close; end; VLineUp = HHighest - (Var5 * MA(Var6,Var2)); VLineDn = LLowest + (Var5 * MA(Var6,Var2)); /*if UpWave[1] then Plot1(VLineUp,"VLineUp", Red); else if DnWave[1] then Plot1(VLineDn,"VLineUp", CC_DN); */ end; 당일수익 = PriceScale*당일수익틱수; 당일손실 = PriceScale*당일손실틱수; if Bdate != Bdate[1] Then { Xcond = false; N1 = NetProfit; } daypl = NetProfit-N1; if TotalTrades > TotalTrades[1] then { if daypl >= 당일수익 Then Xcond = true; if (IsExitName("dbp",1) == true or IsExitName("dsp",1) == true) then Xcond = true; } if Tcond == true and Xcond == False Then { if CountIf(C>O,n) == n and H >= L[2]+PriceScale*x and UpWave[1] Then Buy(); if CountIf(C<O,n) == n and L <= H-PriceScale*x and DnWave[1] Then sell(); } if MarketPosition == 1 then{ ExitLong("dbp",atlimit,EntryPrice+((당일수익-daypl)/CurrentContracts)); } if MarketPosition == -1 then{ ExitShort("dsp",atlimit,EntryPrice-((당일수익-daypl)/CurrentContracts)); } 안녕하세요. 위식에서 수정부탁드려요 매수.매도시 다음신호 나올때까지 동일신호 중복 진입금지. 한신호에서 한번만 신호발생 되도록 해 주세요. 예:매수 신호 발생후 매도신호 나올때까지 한번만 신호발생 중복진임금지 매도시 매수신호 발생시까지 한번만 진입. 시작시간 수정시 오후22시면 어떻게 수정 하는지 여부 알려 주세요. 22000으로 수정하니까 적용이 안됨니다.