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

* 많은 도움에 고맙 습니다. * 상단 매수 하단 매도 매매식 요청 드립니다. input:length(4),종가사용여부(0),파동선두께(5),수치표시(1); Var:j(0),jj(0),HH(0),LL(0),최종고가(0),최종저가(0),최종꼭지점(""),처리구분(""), TL1(0),Text1(0),tl2(0),tl3(0),tl4(0),tl5(0),T(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 { T = 1; 최종고가 = 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 { } 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 { } } 최종꼭지점 = "고점"; } #==========================================# If 처리구분 == "저점처리" Then { T = -1; 최종저가 = 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 { } 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 { } } 최종꼭지점 = "저점"; } if T == -1 and T[1] != -1 Then{ TL2 = TL_New(고[2,3],고[2,4],고[2,1],sdate,stime,고[2,1]); TL_Delete(TL3); TL3 = TL_New(sdate[index-고[1,2]+1],stime[index-고[1,2]+1],고[1,1]-PriceScale*5,sdate,stime,고[1,1]-PriceScale*5); TL_SetExtRight(TL3,true); TL_SetSize(TL2,1); TL_SetColor(TL2,GRAY); TL_SetSize(TL3,3); TL_SetColor(TL3,RED); } if T == 1 and T[1] != 1 Then{ TL2= TL_New(저[2,3],저[2,4],저[2,1],sdate,stime,저[2,1]); TL_Delete(TL3); TL3= TL_New(sdate[index-저[1,2]+1],stime[index-저[1,2]+1],저[1,1]-PriceScale*5,sdate,stime,저[1,1]-PriceScale*5); TL_SetExtRight(TL3,true); TL_SetSize(TL2,1); TL_SetColor(TL2,GRAY); TL_SetSize(TL3,3); TL_SetColor(TL3,PINK); } * 고맙습니다.^^

안녕하세요 게시판 검색중 손절 이후강제로 3개 캔들까지 진입금지 하는 코드를 보았는데요. 트레일링 스탑에서도 적용하고 싶은데요 부탁합니다. 현재 저는 "trailStop_EL"로 청산되면서 동시에 매도 스위칭 되는 상황이 나오고 있어서, 3개의 캔들까지 진입하지 않고 강제로 홀딩하고 싶은데요... 도움 부탁 드립니다. 감사합니다. var:Hvalue (0),Lvalue (0); var:TsValue (0.8) //stoploss 실행 SetStopLoss(PriceScale*8, PointStop); Hvalue = Highest(H, BarsSinceEntry); Lvalue = Lowest(L, BarsSinceEntry); //매수 trailstop 실행 if MarketPosition ==1 then { ExitLong("trailStop_EL", AtStop, Hvalue-TsValue ); } //매도 trailstop 실행 if MarketPosition ==-1 then { ExitShort("trailStop_ES", AtStop, Lvalue+TsValue ); }

관리자님 안녕하세요 저는 신호발생 후 매수(매도)신호발생후에 재진입하는 수식을 문의드립니다. 1. 그림파일의 화살표에 표시된곳에서 신호발생을 원합니다. (신호발생후 5일선 밑에서 음봉(양봉) 발생후 양봉(음봉)발생시 진입하는 수식을 부탁드립니다 2.선행스펜이 위로(아래)꺽인후 5일선아래(위)에서 음봉(양봉)발생후 양봉시 진입 수식을 부탁드립니다.

아래의 지표수식을 간단하게 해주실 수 있는지요. 60850 질문과 관련하여 제가 스스로 만들었는데 너무 길어서 약간의 어려움이 있습니다. 부탁드립니다. 감사합니다. ============== input :Period(100); var : rrsiv(0),rsiv(0); rrsiv = (accumn(iff(C-C[1]<0,C[1]-C,0),Period) /accumn(iff(C-C[1]<0,C[1]-C,C-C[1]),Period)*100-50)*-1; rsiv = (accumn(iff(C-C[1]>0,C-C[1],0),Period) /accumn(iff(C-C[1]>0,C-C[1],C[1]-C),Period)*100-50)*-1; if stime == 090000 Then rrsiv = (accumn(iff(C-C[1]<0,C[1]-C,0),0) /accumn(iff(C-C[1]<0,C[1]-C,C-C[1]),0)*100-50)*-1*0/100; if stime == 090100 Then rrsiv = (accumn(iff(C-C[1]<0,C[1]-C,0),1) /accumn(iff(C-C[1]<0,C[1]-C,C-C[1]),1)*100-50)*-1*1/100; if stime == 090200 Then rrsiv = (accumn(iff(C-C[1]<0,C[1]-C,0),2) /accumn(iff(C-C[1]<0,C[1]-C,C-C[1]),2)*100-50)*-1*2/100; if stime == 090300 Then rrsiv = (accumn(iff(C-C[1]<0,C[1]-C,0),3) /accumn(iff(C-C[1]<0,C[1]-C,C-C[1]),3)*100-50)*-1*3/100; if stime == 090400 Then rrsiv = (accumn(iff(C-C[1]<0,C[1]-C,0),4) /accumn(iff(C-C[1]<0,C[1]-C,C-C[1]),4)*100-50)*-1*4/100; if stime == 090500 Then rrsiv = (accumn(iff(C-C[1]<0,C[1]-C,0),5) /accumn(iff(C-C[1]<0,C[1]-C,C-C[1]),5)*100-50)*-1*5/100; if stime == 090600 Then rrsiv = (accumn(iff(C-C[1]<0,C[1]-C,0),6) /accumn(iff(C-C[1]<0,C[1]-C,C-C[1]),6)*100-50)*-1*6/100; if stime == 090700 Then rrsiv = (accumn(iff(C-C[1]<0,C[1]-C,0),7) /accumn(iff(C-C[1]<0,C[1]-C,C-C[1]),7)*100-50)*-1*7/100; if stime == 090800 Then rrsiv = (accumn(iff(C-C[1]<0,C[1]-C,0),8) /accumn(iff(C-C[1]<0,C[1]-C,C-C[1]),8)*100-50)*-1*8/100; if stime == 090900 Then rrsiv = (accumn(iff(C-C[1]<0,C[1]-C,0),9) /accumn(iff(C-C[1]<0,C[1]-C,C-C[1]),9)*100-50)*-1*9/100; if stime == 091000 Then rrsiv = (accumn(iff(C-C[1]<0,C[1]-C,0),10) /accumn(iff(C-C[1]<0,C[1]-C,C-C[1]),10)*100-50)*-1*10/100; if stime == 091100 Then rrsiv = (accumn(iff(C-C[1]<0,C[1]-C,0),11) /accumn(iff(C-C[1]<0,C[1]-C,C-C[1]),11)*100-50)*-1*11/100; if stime == 091200 Then rrsiv = (accumn(iff(C-C[1]<0,C[1]-C,0),12) /accumn(iff(C-C[1]<0,C[1]-C,C-C[1]),12)*100-50)*-1*12/100; if stime == 091300 Then rrsiv = (accumn(iff(C-C[1]<0,C[1]-C,0),13) /accumn(iff(C-C[1]<0,C[1]-C,C-C[1]),13)*100-50)*-1*13/100; if stime == 091400 Then rrsiv = (accumn(iff(C-C[1]<0,C[1]-C,0),14) /accumn(iff(C-C[1]<0,C[1]-C,C-C[1]),14)*100-50)*-1*14/100; if stime == 091500 Then rrsiv = (accumn(iff(C-C[1]<0,C[1]-C,0),15) /accumn(iff(C-C[1]<0,C[1]-C,C-C[1]),15)*100-50)*-1*15/100; if stime == 091600 Then rrsiv = (accumn(iff(C-C[1]<0,C[1]-C,0),16) /accumn(iff(C-C[1]<0,C[1]-C,C-C[1]),16)*100-50)*-1*16/100; if stime == 091700 Then rrsiv = (accumn(iff(C-C[1]<0,C[1]-C,0),17) /accumn(iff(C-C[1]<0,C[1]-C,C-C[1]),17)*100-50)*-1*17/100; if stime == 091800 Then rrsiv = (accumn(iff(C-C[1]<0,C[1]-C,0),18) /accumn(iff(C-C[1]<0,C[1]-C,C-C[1]),18)*100-50)*-1*18/100; if stime == 091900 Then rrsiv = (accumn(iff(C-C[1]<0,C[1]-C,0),19) /accumn(iff(C-C[1]<0,C[1]-C,C-C[1]),19)*100-50)*-1*19/100; if stime == 092000 Then rrsiv = (accumn(iff(C-C[1]<0,C[1]-C,0),20) /accumn(iff(C-C[1]<0,C[1]-C,C-C[1]),20)*100-50)*-1*20/100; if stime == 092100 Then rrsiv = (accumn(iff(C-C[1]<0,C[1]-C,0),21) /accumn(iff(C-C[1]<0,C[1]-C,C-C[1]),21)*100-50)*-1*21/100; if stime == 092200 Then rrsiv = (accumn(iff(C-C[1]<0,C[1]-C,0),22) /accumn(iff(C-C[1]<0,C[1]-C,C-C[1]),22)*100-50)*-1*22/100; if stime == 092300 Then rrsiv = (accumn(iff(C-C[1]<0,C[1]-C,0),23) /accumn(iff(C-C[1]<0,C[1]-C,C-C[1]),23)*100-50)*-1*23/100; if stime == 092400 Then rrsiv = (accumn(iff(C-C[1]<0,C[1]-C,0),24) /accumn(iff(C-C[1]<0,C[1]-C,C-C[1]),24)*100-50)*-1*24/100; if stime == 092500 Then rrsiv = (accumn(iff(C-C[1]<0,C[1]-C,0),25) /accumn(iff(C-C[1]<0,C[1]-C,C-C[1]),25)*100-50)*-1*25/100; if stime == 092600 Then rrsiv = (accumn(iff(C-C[1]<0,C[1]-C,0),26) /accumn(iff(C-C[1]<0,C[1]-C,C-C[1]),26)*100-50)*-1*26/100; if stime == 092700 Then rrsiv = (accumn(iff(C-C[1]<0,C[1]-C,0),27) /accumn(iff(C-C[1]<0,C[1]-C,C-C[1]),27)*100-50)*-1*27/100; if stime == 092800 Then rrsiv = (accumn(iff(C-C[1]<0,C[1]-C,0),28) /accumn(iff(C-C[1]<0,C[1]-C,C-C[1]),28)*100-50)*-1*28/100; if stime == 092900 Then rrsiv = (accumn(iff(C-C[1]<0,C[1]-C,0),29) /accumn(iff(C-C[1]<0,C[1]-C,C-C[1]),29)*100-50)*-1*29/100; if stime == 093000 Then rrsiv = (accumn(iff(C-C[1]<0,C[1]-C,0),30) /accumn(iff(C-C[1]<0,C[1]-C,C-C[1]),30)*100-50)*-1*30/100; if stime == 093100 Then rrsiv = (accumn(iff(C-C[1]<0,C[1]-C,0),31) /accumn(iff(C-C[1]<0,C[1]-C,C-C[1]),31)*100-50)*-1*31/100; if stime == 093200 Then rrsiv = (accumn(iff(C-C[1]<0,C[1]-C,0),32) /accumn(iff(C-C[1]<0,C[1]-C,C-C[1]),32)*100-50)*-1*32/100; if stime == 093300 Then rrsiv = (accumn(iff(C-C[1]<0,C[1]-C,0),33) /accumn(iff(C-C[1]<0,C[1]-C,C-C[1]),33)*100-50)*-1*33/100; if stime == 093400 Then rrsiv = (accumn(iff(C-C[1]<0,C[1]-C,0),34) /accumn(iff(C-C[1]<0,C[1]-C,C-C[1]),34)*100-50)*-1*34/100; if stime == 093500 Then rrsiv = (accumn(iff(C-C[1]<0,C[1]-C,0),35) /accumn(iff(C-C[1]<0,C[1]-C,C-C[1]),35)*100-50)*-1*35/100; if stime == 093600 Then rrsiv = (accumn(iff(C-C[1]<0,C[1]-C,0),36) /accumn(iff(C-C[1]<0,C[1]-C,C-C[1]),36)*100-50)*-1*36/100; if stime == 093700 Then rrsiv = (accumn(iff(C-C[1]<0,C[1]-C,0),37) /accumn(iff(C-C[1]<0,C[1]-C,C-C[1]),37)*100-50)*-1*37/100; if stime == 093800 Then rrsiv = (accumn(iff(C-C[1]<0,C[1]-C,0),38) /accumn(iff(C-C[1]<0,C[1]-C,C-C[1]),38)*100-50)*-1*38/100; if stime == 093900 Then rrsiv = (accumn(iff(C-C[1]<0,C[1]-C,0),39) /accumn(iff(C-C[1]<0,C[1]-C,C-C[1]),39)*100-50)*-1*39/100; if stime == 094000 Then rrsiv = (accumn(iff(C-C[1]<0,C[1]-C,0),40) /accumn(iff(C-C[1]<0,C[1]-C,C-C[1]),40)*100-50)*-1*40/100; if stime == 094100 Then rrsiv = (accumn(iff(C-C[1]<0,C[1]-C,0),41) /accumn(iff(C-C[1]<0,C[1]-C,C-C[1]),41)*100-50)*-1*41/100; if stime == 094200 Then rrsiv = (accumn(iff(C-C[1]<0,C[1]-C,0),42) /accumn(iff(C-C[1]<0,C[1]-C,C-C[1]),42)*100-50)*-1*42/100; if stime == 094300 Then rrsiv = (accumn(iff(C-C[1]<0,C[1]-C,0),43) /accumn(iff(C-C[1]<0,C[1]-C,C-C[1]),43)*100-50)*-1*43/100; if stime == 094400 Then rrsiv = (accumn(iff(C-C[1]<0,C[1]-C,0),44) /accumn(iff(C-C[1]<0,C[1]-C,C-C[1]),44)*100-50)*-1*44/100; if stime == 094500 Then rrsiv = (accumn(iff(C-C[1]<0,C[1]-C,0),45) /accumn(iff(C-C[1]<0,C[1]-C,C-C[1]),45)*100-50)*-1*45/100; if stime == 094600 Then rrsiv = (accumn(iff(C-C[1]<0,C[1]-C,0),46) /accumn(iff(C-C[1]<0,C[1]-C,C-C[1]),46)*100-50)*-1*46/100; if stime == 094700 Then rrsiv = (accumn(iff(C-C[1]<0,C[1]-C,0),47) /accumn(iff(C-C[1]<0,C[1]-C,C-C[1]),47)*100-50)*-1*47/100; if stime == 094800 Then rrsiv = (accumn(iff(C-C[1]<0,C[1]-C,0),48) /accumn(iff(C-C[1]<0,C[1]-C,C-C[1]),48)*100-50)*-1*48/100; if stime == 094900 Then rrsiv = (accumn(iff(C-C[1]<0,C[1]-C,0),49) /accumn(iff(C-C[1]<0,C[1]-C,C-C[1]),49)*100-50)*-1*49/100; if stime == 095000 Then rrsiv = (accumn(iff(C-C[1]<0,C[1]-C,0),50) /accumn(iff(C-C[1]<0,C[1]-C,C-C[1]),50)*100-50)*-1*50/100; if stime == 095100 Then rrsiv = (accumn(iff(C-C[1]<0,C[1]-C,0),51) /accumn(iff(C-C[1]<0,C[1]-C,C-C[1]),51)*100-50)*-1*51/100; if stime == 095200 Then rrsiv = (accumn(iff(C-C[1]<0,C[1]-C,0),52) /accumn(iff(C-C[1]<0,C[1]-C,C-C[1]),52)*100-50)*-1*52/100; if stime == 095300 Then rrsiv = (accumn(iff(C-C[1]<0,C[1]-C,0),53) /accumn(iff(C-C[1]<0,C[1]-C,C-C[1]),53)*100-50)*-1*53/100; if stime == 095400 Then rrsiv = (accumn(iff(C-C[1]<0,C[1]-C,0),54) /accumn(iff(C-C[1]<0,C[1]-C,C-C[1]),54)*100-50)*-1*54/100; if stime == 095500 Then rrsiv = (accumn(iff(C-C[1]<0,C[1]-C,0),55) /accumn(iff(C-C[1]<0,C[1]-C,C-C[1]),55)*100-50)*-1*55/100; if stime == 095600 Then rrsiv = (accumn(iff(C-C[1]<0,C[1]-C,0),56) /accumn(iff(C-C[1]<0,C[1]-C,C-C[1]),56)*100-50)*-1*56/100; if stime == 095700 Then rrsiv = (accumn(iff(C-C[1]<0,C[1]-C,0),57) /accumn(iff(C-C[1]<0,C[1]-C,C-C[1]),57)*100-50)*-1*57/100; if stime == 095800 Then rrsiv = (accumn(iff(C-C[1]<0,C[1]-C,0),58) /accumn(iff(C-C[1]<0,C[1]-C,C-C[1]),58)*100-50)*-1*58/100; if stime == 095900 Then rrsiv = (accumn(iff(C-C[1]<0,C[1]-C,0),59) /accumn(iff(C-C[1]<0,C[1]-C,C-C[1]),59)*100-50)*-1*59/100; if stime == 100000 Then rrsiv = (accumn(iff(C-C[1]<0,C[1]-C,0),60) /accumn(iff(C-C[1]<0,C[1]-C,C-C[1]),60)*100-50)*-1*60/100; if stime == 100100 Then rrsiv = (accumn(iff(C-C[1]<0,C[1]-C,0),61) /accumn(iff(C-C[1]<0,C[1]-C,C-C[1]),61)*100-50)*-1*61/100; if stime == 100200 Then rrsiv = (accumn(iff(C-C[1]<0,C[1]-C,0),62) /accumn(iff(C-C[1]<0,C[1]-C,C-C[1]),62)*100-50)*-1*62/100; if stime == 100300 Then rrsiv = (accumn(iff(C-C[1]<0,C[1]-C,0),63) /accumn(iff(C-C[1]<0,C[1]-C,C-C[1]),63)*100-50)*-1*63/100; if stime == 100400 Then rrsiv = (accumn(iff(C-C[1]<0,C[1]-C,0),64) /accumn(iff(C-C[1]<0,C[1]-C,C-C[1]),64)*100-50)*-1*64/100; if stime == 100500 Then rrsiv = (accumn(iff(C-C[1]<0,C[1]-C,0),65) /accumn(iff(C-C[1]<0,C[1]-C,C-C[1]),65)*100-50)*-1*65/100; if stime == 100600 Then rrsiv = (accumn(iff(C-C[1]<0,C[1]-C,0),66) /accumn(iff(C-C[1]<0,C[1]-C,C-C[1]),66)*100-50)*-1*66/100; if stime == 100700 Then rrsiv = (accumn(iff(C-C[1]<0,C[1]-C,0),67) /accumn(iff(C-C[1]<0,C[1]-C,C-C[1]),67)*100-50)*-1*67/100; if stime == 100800 Then rrsiv = (accumn(iff(C-C[1]<0,C[1]-C,0),68) /accumn(iff(C-C[1]<0,C[1]-C,C-C[1]),68)*100-50)*-1*68/100; if stime == 100900 Then rrsiv = (accumn(iff(C-C[1]<0,C[1]-C,0),69) /accumn(iff(C-C[1]<0,C[1]-C,C-C[1]),69)*100-50)*-1*69/100; if stime == 101000 Then rrsiv = (accumn(iff(C-C[1]<0,C[1]-C,0),70) /accumn(iff(C-C[1]<0,C[1]-C,C-C[1]),70)*100-50)*-1*70/100; if stime == 101100 Then rrsiv = (accumn(iff(C-C[1]<0,C[1]-C,0),71) /accumn(iff(C-C[1]<0,C[1]-C,C-C[1]),71)*100-50)*-1*71/100; if stime == 101200 Then rrsiv = (accumn(iff(C-C[1]<0,C[1]-C,0),72) /accumn(iff(C-C[1]<0,C[1]-C,C-C[1]),72)*100-50)*-1*72/100; if stime == 101300 Then rrsiv = (accumn(iff(C-C[1]<0,C[1]-C,0),73) /accumn(iff(C-C[1]<0,C[1]-C,C-C[1]),73)*100-50)*-1*73/100; if stime == 101400 Then rrsiv = (accumn(iff(C-C[1]<0,C[1]-C,0),74) /accumn(iff(C-C[1]<0,C[1]-C,C-C[1]),74)*100-50)*-1*74/100; if stime == 101500 Then rrsiv = (accumn(iff(C-C[1]<0,C[1]-C,0),75) /accumn(iff(C-C[1]<0,C[1]-C,C-C[1]),75)*100-50)*-1*75/100; if stime == 101600 Then rrsiv = (accumn(iff(C-C[1]<0,C[1]-C,0),76) /accumn(iff(C-C[1]<0,C[1]-C,C-C[1]),76)*100-50)*-1*76/100; if stime == 101700 Then rrsiv = (accumn(iff(C-C[1]<0,C[1]-C,0),77) /accumn(iff(C-C[1]<0,C[1]-C,C-C[1]),77)*100-50)*-1*77/100; if stime == 101800 Then rrsiv = (accumn(iff(C-C[1]<0,C[1]-C,0),78) /accumn(iff(C-C[1]<0,C[1]-C,C-C[1]),78)*100-50)*-1*78/100; if stime == 101900 Then rrsiv = (accumn(iff(C-C[1]<0,C[1]-C,0),79) /accumn(iff(C-C[1]<0,C[1]-C,C-C[1]),79)*100-50)*-1*79/100; if stime == 102000 Then rrsiv = (accumn(iff(C-C[1]<0,C[1]-C,0),80) /accumn(iff(C-C[1]<0,C[1]-C,C-C[1]),80)*100-50)*-1*80/100; if stime == 102100 Then rrsiv = (accumn(iff(C-C[1]<0,C[1]-C,0),81) /accumn(iff(C-C[1]<0,C[1]-C,C-C[1]),81)*100-50)*-1*81/100; if stime == 102200 Then rrsiv = (accumn(iff(C-C[1]<0,C[1]-C,0),82) /accumn(iff(C-C[1]<0,C[1]-C,C-C[1]),82)*100-50)*-1*82/100; if stime == 102300 Then rrsiv = (accumn(iff(C-C[1]<0,C[1]-C,0),83) /accumn(iff(C-C[1]<0,C[1]-C,C-C[1]),83)*100-50)*-1*83/100; if stime == 102400 Then rrsiv = (accumn(iff(C-C[1]<0,C[1]-C,0),84) /accumn(iff(C-C[1]<0,C[1]-C,C-C[1]),84)*100-50)*-1*84/100; if stime == 102500 Then rrsiv = (accumn(iff(C-C[1]<0,C[1]-C,0),85) /accumn(iff(C-C[1]<0,C[1]-C,C-C[1]),85)*100-50)*-1*85/100; if stime == 102600 Then rrsiv = (accumn(iff(C-C[1]<0,C[1]-C,0),86) /accumn(iff(C-C[1]<0,C[1]-C,C-C[1]),86)*100-50)*-1*86/100; if stime == 102700 Then rrsiv = (accumn(iff(C-C[1]<0,C[1]-C,0),87) /accumn(iff(C-C[1]<0,C[1]-C,C-C[1]),87)*100-50)*-1*87/100; if stime == 102800 Then rrsiv = (accumn(iff(C-C[1]<0,C[1]-C,0),88) /accumn(iff(C-C[1]<0,C[1]-C,C-C[1]),88)*100-50)*-1*88/100; if stime == 102900 Then rrsiv = (accumn(iff(C-C[1]<0,C[1]-C,0),89) /accumn(iff(C-C[1]<0,C[1]-C,C-C[1]),89)*100-50)*-1*89/100; if stime == 103000 Then rrsiv = (accumn(iff(C-C[1]<0,C[1]-C,0),90) /accumn(iff(C-C[1]<0,C[1]-C,C-C[1]),90)*100-50)*-1*90/100; if stime == 103100 Then rrsiv = (accumn(iff(C-C[1]<0,C[1]-C,0),91) /accumn(iff(C-C[1]<0,C[1]-C,C-C[1]),91)*100-50)*-1*91/100; if stime == 103200 Then rrsiv = (accumn(iff(C-C[1]<0,C[1]-C,0),92) /accumn(iff(C-C[1]<0,C[1]-C,C-C[1]),92)*100-50)*-1*92/100; if stime == 103300 Then rrsiv = (accumn(iff(C-C[1]<0,C[1]-C,0),93) /accumn(iff(C-C[1]<0,C[1]-C,C-C[1]),93)*100-50)*-1*93/100; if stime == 103400 Then rrsiv = (accumn(iff(C-C[1]<0,C[1]-C,0),94) /accumn(iff(C-C[1]<0,C[1]-C,C-C[1]),94)*100-50)*-1*94/100; if stime == 103500 Then rrsiv = (accumn(iff(C-C[1]<0,C[1]-C,0),95) /accumn(iff(C-C[1]<0,C[1]-C,C-C[1]),95)*100-50)*-1*95/100; if stime == 103600 Then rrsiv = (accumn(iff(C-C[1]<0,C[1]-C,0),96) /accumn(iff(C-C[1]<0,C[1]-C,C-C[1]),96)*100-50)*-1*96/100; if stime == 103700 Then rrsiv = (accumn(iff(C-C[1]<0,C[1]-C,0),97) /accumn(iff(C-C[1]<0,C[1]-C,C-C[1]),97)*100-50)*-1*97/100; if stime == 103800 Then rrsiv = (accumn(iff(C-C[1]<0,C[1]-C,0),98) /accumn(iff(C-C[1]<0,C[1]-C,C-C[1]),98)*100-50)*-1*98/100; if stime == 103900 Then rrsiv = (accumn(iff(C-C[1]<0,C[1]-C,0),99) /accumn(iff(C-C[1]<0,C[1]-C,C-C[1]),99)*100-50)*-1*99/100; if stime == 104000 Then rrsiv = (accumn(iff(C-C[1]<0,C[1]-C,0),100) /accumn(iff(C-C[1]<0,C[1]-C,C-C[1]),100)*100-50)*-1*100/100; // if stime == 090000 Then rsiv = (accumn(iff(C-C[1]>0,c-c[1],0),0) /accumn(iff(C-C[1]>0,c-c[1],C[1]-C),0)*100-50)*-1*0/100; if stime == 090100 Then rsiv = (accumn(iff(C-C[1]>0,c-c[1],0),1) /accumn(iff(C-C[1]>0,c-c[1],C[1]-C),1)*100-50)*-1*1/100; if stime == 090200 Then rsiv = (accumn(iff(C-C[1]>0,c-c[1],0),2) /accumn(iff(C-C[1]>0,c-c[1],C[1]-C),2)*100-50)*-1*2/100; if stime == 090300 Then rsiv = (accumn(iff(C-C[1]>0,c-c[1],0),3) /accumn(iff(C-C[1]>0,c-c[1],C[1]-C),3)*100-50)*-1*3/100; if stime == 090400 Then rsiv = (accumn(iff(C-C[1]>0,c-c[1],0),4) /accumn(iff(C-C[1]>0,c-c[1],C[1]-C),4)*100-50)*-1*4/100; if stime == 090500 Then rsiv = (accumn(iff(C-C[1]>0,c-c[1],0),5) /accumn(iff(C-C[1]>0,c-c[1],C[1]-C),5)*100-50)*-1*5/100; if stime == 090600 Then rsiv = (accumn(iff(C-C[1]>0,c-c[1],0),6) /accumn(iff(C-C[1]>0,c-c[1],C[1]-C),6)*100-50)*-1*6/100; if stime == 090700 Then rsiv = (accumn(iff(C-C[1]>0,c-c[1],0),7) /accumn(iff(C-C[1]>0,c-c[1],C[1]-C),7)*100-50)*-1*7/100; if stime == 090800 Then rsiv = (accumn(iff(C-C[1]>0,c-c[1],0),8) /accumn(iff(C-C[1]>0,c-c[1],C[1]-C),8)*100-50)*-1*8/100; if stime == 090900 Then rsiv = (accumn(iff(C-C[1]>0,c-c[1],0),9) /accumn(iff(C-C[1]>0,c-c[1],C[1]-C),9)*100-50)*-1*9/100; if stime == 091000 Then rsiv = (accumn(iff(C-C[1]>0,c-c[1],0),10) /accumn(iff(C-C[1]>0,c-c[1],C[1]-C),10)*100-50)*-1*10/100; if stime == 091100 Then rsiv = (accumn(iff(C-C[1]>0,c-c[1],0),11) /accumn(iff(C-C[1]>0,c-c[1],C[1]-C),11)*100-50)*-1*11/100; if stime == 091200 Then rsiv = (accumn(iff(C-C[1]>0,c-c[1],0),12) /accumn(iff(C-C[1]>0,c-c[1],C[1]-C),12)*100-50)*-1*12/100; if stime == 091300 Then rsiv = (accumn(iff(C-C[1]>0,c-c[1],0),13) /accumn(iff(C-C[1]>0,c-c[1],C[1]-C),13)*100-50)*-1*13/100; if stime == 091400 Then rsiv = (accumn(iff(C-C[1]>0,c-c[1],0),14) /accumn(iff(C-C[1]>0,c-c[1],C[1]-C),14)*100-50)*-1*14/100; if stime == 091500 Then rsiv = (accumn(iff(C-C[1]>0,c-c[1],0),15) /accumn(iff(C-C[1]>0,c-c[1],C[1]-C),15)*100-50)*-1*15/100; if stime == 091600 Then rsiv = (accumn(iff(C-C[1]>0,c-c[1],0),16) /accumn(iff(C-C[1]>0,c-c[1],C[1]-C),16)*100-50)*-1*16/100; if stime == 091700 Then rsiv = (accumn(iff(C-C[1]>0,c-c[1],0),17) /accumn(iff(C-C[1]>0,c-c[1],C[1]-C),17)*100-50)*-1*17/100; if stime == 091800 Then rsiv = (accumn(iff(C-C[1]>0,c-c[1],0),18) /accumn(iff(C-C[1]>0,c-c[1],C[1]-C),18)*100-50)*-1*18/100; if stime == 091900 Then rsiv = (accumn(iff(C-C[1]>0,c-c[1],0),19) /accumn(iff(C-C[1]>0,c-c[1],C[1]-C),19)*100-50)*-1*19/100; if stime == 092000 Then rsiv = (accumn(iff(C-C[1]>0,c-c[1],0),20) /accumn(iff(C-C[1]>0,c-c[1],C[1]-C),20)*100-50)*-1*20/100; if stime == 092100 Then rsiv = (accumn(iff(C-C[1]>0,c-c[1],0),21) /accumn(iff(C-C[1]>0,c-c[1],C[1]-C),21)*100-50)*-1*21/100; if stime == 092200 Then rsiv = (accumn(iff(C-C[1]>0,c-c[1],0),22) /accumn(iff(C-C[1]>0,c-c[1],C[1]-C),22)*100-50)*-1*22/100; if stime == 092300 Then rsiv = (accumn(iff(C-C[1]>0,c-c[1],0),23) /accumn(iff(C-C[1]>0,c-c[1],C[1]-C),23)*100-50)*-1*23/100; if stime == 092400 Then rsiv = (accumn(iff(C-C[1]>0,c-c[1],0),24) /accumn(iff(C-C[1]>0,c-c[1],C[1]-C),24)*100-50)*-1*24/100; if stime == 092500 Then rsiv = (accumn(iff(C-C[1]>0,c-c[1],0),25) /accumn(iff(C-C[1]>0,c-c[1],C[1]-C),25)*100-50)*-1*25/100; if stime == 092600 Then rsiv = (accumn(iff(C-C[1]>0,c-c[1],0),26) /accumn(iff(C-C[1]>0,c-c[1],C[1]-C),26)*100-50)*-1*26/100; if stime == 092700 Then rsiv = (accumn(iff(C-C[1]>0,c-c[1],0),27) /accumn(iff(C-C[1]>0,c-c[1],C[1]-C),27)*100-50)*-1*27/100; if stime == 092800 Then rsiv = (accumn(iff(C-C[1]>0,c-c[1],0),28) /accumn(iff(C-C[1]>0,c-c[1],C[1]-C),28)*100-50)*-1*28/100; if stime == 092900 Then rsiv = (accumn(iff(C-C[1]>0,c-c[1],0),29) /accumn(iff(C-C[1]>0,c-c[1],C[1]-C),29)*100-50)*-1*29/100; if stime == 093000 Then rsiv = (accumn(iff(C-C[1]>0,c-c[1],0),30) /accumn(iff(C-C[1]>0,c-c[1],C[1]-C),30)*100-50)*-1*30/100; if stime == 093100 Then rsiv = (accumn(iff(C-C[1]>0,c-c[1],0),31) /accumn(iff(C-C[1]>0,c-c[1],C[1]-C),31)*100-50)*-1*31/100; if stime == 093200 Then rsiv = (accumn(iff(C-C[1]>0,c-c[1],0),32) /accumn(iff(C-C[1]>0,c-c[1],C[1]-C),32)*100-50)*-1*32/100; if stime == 093300 Then rsiv = (accumn(iff(C-C[1]>0,c-c[1],0),33) /accumn(iff(C-C[1]>0,c-c[1],C[1]-C),33)*100-50)*-1*33/100; if stime == 093400 Then rsiv = (accumn(iff(C-C[1]>0,c-c[1],0),34) /accumn(iff(C-C[1]>0,c-c[1],C[1]-C),34)*100-50)*-1*34/100; if stime == 093500 Then rsiv = (accumn(iff(C-C[1]>0,c-c[1],0),35) /accumn(iff(C-C[1]>0,c-c[1],C[1]-C),35)*100-50)*-1*35/100; if stime == 093600 Then rsiv = (accumn(iff(C-C[1]>0,c-c[1],0),36) /accumn(iff(C-C[1]>0,c-c[1],C[1]-C),36)*100-50)*-1*36/100; if stime == 093700 Then rsiv = (accumn(iff(C-C[1]>0,c-c[1],0),37) /accumn(iff(C-C[1]>0,c-c[1],C[1]-C),37)*100-50)*-1*37/100; if stime == 093800 Then rsiv = (accumn(iff(C-C[1]>0,c-c[1],0),38) /accumn(iff(C-C[1]>0,c-c[1],C[1]-C),38)*100-50)*-1*38/100; if stime == 093900 Then rsiv = (accumn(iff(C-C[1]>0,c-c[1],0),39) /accumn(iff(C-C[1]>0,c-c[1],C[1]-C),39)*100-50)*-1*39/100; if stime == 094000 Then rsiv = (accumn(iff(C-C[1]>0,c-c[1],0),40) /accumn(iff(C-C[1]>0,c-c[1],C[1]-C),40)*100-50)*-1*40/100; if stime == 094100 Then rsiv = (accumn(iff(C-C[1]>0,c-c[1],0),41) /accumn(iff(C-C[1]>0,c-c[1],C[1]-C),41)*100-50)*-1*41/100; if stime == 094200 Then rsiv = (accumn(iff(C-C[1]>0,c-c[1],0),42) /accumn(iff(C-C[1]>0,c-c[1],C[1]-C),42)*100-50)*-1*42/100; if stime == 094300 Then rsiv = (accumn(iff(C-C[1]>0,c-c[1],0),43) /accumn(iff(C-C[1]>0,c-c[1],C[1]-C),43)*100-50)*-1*43/100; if stime == 094400 Then rsiv = (accumn(iff(C-C[1]>0,c-c[1],0),44) /accumn(iff(C-C[1]>0,c-c[1],C[1]-C),44)*100-50)*-1*44/100; if stime == 094500 Then rsiv = (accumn(iff(C-C[1]>0,c-c[1],0),45) /accumn(iff(C-C[1]>0,c-c[1],C[1]-C),45)*100-50)*-1*45/100; if stime == 094600 Then rsiv = (accumn(iff(C-C[1]>0,c-c[1],0),46) /accumn(iff(C-C[1]>0,c-c[1],C[1]-C),46)*100-50)*-1*46/100; if stime == 094700 Then rsiv = (accumn(iff(C-C[1]>0,c-c[1],0),47) /accumn(iff(C-C[1]>0,c-c[1],C[1]-C),47)*100-50)*-1*47/100; if stime == 094800 Then rsiv = (accumn(iff(C-C[1]>0,c-c[1],0),48) /accumn(iff(C-C[1]>0,c-c[1],C[1]-C),48)*100-50)*-1*48/100; if stime == 094900 Then rsiv = (accumn(iff(C-C[1]>0,c-c[1],0),49) /accumn(iff(C-C[1]>0,c-c[1],C[1]-C),49)*100-50)*-1*49/100; if stime == 095000 Then rsiv = (accumn(iff(C-C[1]>0,c-c[1],0),50) /accumn(iff(C-C[1]>0,c-c[1],C[1]-C),50)*100-50)*-1*50/100; if stime == 095100 Then rsiv = (accumn(iff(C-C[1]>0,c-c[1],0),51) /accumn(iff(C-C[1]>0,c-c[1],C[1]-C),51)*100-50)*-1*51/100; if stime == 095200 Then rsiv = (accumn(iff(C-C[1]>0,c-c[1],0),52) /accumn(iff(C-C[1]>0,c-c[1],C[1]-C),52)*100-50)*-1*52/100; if stime == 095300 Then rsiv = (accumn(iff(C-C[1]>0,c-c[1],0),53) /accumn(iff(C-C[1]>0,c-c[1],C[1]-C),53)*100-50)*-1*53/100; if stime == 095400 Then rsiv = (accumn(iff(C-C[1]>0,c-c[1],0),54) /accumn(iff(C-C[1]>0,c-c[1],C[1]-C),54)*100-50)*-1*54/100; if stime == 095500 Then rsiv = (accumn(iff(C-C[1]>0,c-c[1],0),55) /accumn(iff(C-C[1]>0,c-c[1],C[1]-C),55)*100-50)*-1*55/100; if stime == 095600 Then rsiv = (accumn(iff(C-C[1]>0,c-c[1],0),56) /accumn(iff(C-C[1]>0,c-c[1],C[1]-C),56)*100-50)*-1*56/100; if stime == 095700 Then rsiv = (accumn(iff(C-C[1]>0,c-c[1],0),57) /accumn(iff(C-C[1]>0,c-c[1],C[1]-C),57)*100-50)*-1*57/100; if stime == 095800 Then rsiv = (accumn(iff(C-C[1]>0,c-c[1],0),58) /accumn(iff(C-C[1]>0,c-c[1],C[1]-C),58)*100-50)*-1*58/100; if stime == 095900 Then rsiv = (accumn(iff(C-C[1]>0,c-c[1],0),59) /accumn(iff(C-C[1]>0,c-c[1],C[1]-C),59)*100-50)*-1*59/100; if stime == 100000 Then rsiv = (accumn(iff(C-C[1]>0,c-c[1],0),60) /accumn(iff(C-C[1]>0,c-c[1],C[1]-C),60)*100-50)*-1*60/100; if stime == 100100 Then rsiv = (accumn(iff(C-C[1]>0,c-c[1],0),61) /accumn(iff(C-C[1]>0,c-c[1],C[1]-C),61)*100-50)*-1*61/100; if stime == 100200 Then rsiv = (accumn(iff(C-C[1]>0,c-c[1],0),62) /accumn(iff(C-C[1]>0,c-c[1],C[1]-C),62)*100-50)*-1*62/100; if stime == 100300 Then rsiv = (accumn(iff(C-C[1]>0,c-c[1],0),63) /accumn(iff(C-C[1]>0,c-c[1],C[1]-C),63)*100-50)*-1*63/100; if stime == 100400 Then rsiv = (accumn(iff(C-C[1]>0,c-c[1],0),64) /accumn(iff(C-C[1]>0,c-c[1],C[1]-C),64)*100-50)*-1*64/100; if stime == 100500 Then rsiv = (accumn(iff(C-C[1]>0,c-c[1],0),65) /accumn(iff(C-C[1]>0,c-c[1],C[1]-C),65)*100-50)*-1*65/100; if stime == 100600 Then rsiv = (accumn(iff(C-C[1]>0,c-c[1],0),66) /accumn(iff(C-C[1]>0,c-c[1],C[1]-C),66)*100-50)*-1*66/100; if stime == 100700 Then rsiv = (accumn(iff(C-C[1]>0,c-c[1],0),67) /accumn(iff(C-C[1]>0,c-c[1],C[1]-C),67)*100-50)*-1*67/100; if stime == 100800 Then rsiv = (accumn(iff(C-C[1]>0,c-c[1],0),68) /accumn(iff(C-C[1]>0,c-c[1],C[1]-C),68)*100-50)*-1*68/100; if stime == 100900 Then rsiv = (accumn(iff(C-C[1]>0,c-c[1],0),69) /accumn(iff(C-C[1]>0,c-c[1],C[1]-C),69)*100-50)*-1*69/100; if stime == 101000 Then rsiv = (accumn(iff(C-C[1]>0,c-c[1],0),70) /accumn(iff(C-C[1]>0,c-c[1],C[1]-C),70)*100-50)*-1*70/100; if stime == 101100 Then rsiv = (accumn(iff(C-C[1]>0,c-c[1],0),71) /accumn(iff(C-C[1]>0,c-c[1],C[1]-C),71)*100-50)*-1*71/100; if stime == 101200 Then rsiv = (accumn(iff(C-C[1]>0,c-c[1],0),72) /accumn(iff(C-C[1]>0,c-c[1],C[1]-C),72)*100-50)*-1*72/100; if stime == 101300 Then rsiv = (accumn(iff(C-C[1]>0,c-c[1],0),73) /accumn(iff(C-C[1]>0,c-c[1],C[1]-C),73)*100-50)*-1*73/100; if stime == 101400 Then rsiv = (accumn(iff(C-C[1]>0,c-c[1],0),74) /accumn(iff(C-C[1]>0,c-c[1],C[1]-C),74)*100-50)*-1*74/100; if stime == 101500 Then rsiv = (accumn(iff(C-C[1]>0,c-c[1],0),75) /accumn(iff(C-C[1]>0,c-c[1],C[1]-C),75)*100-50)*-1*75/100; if stime == 101600 Then rsiv = (accumn(iff(C-C[1]>0,c-c[1],0),76) /accumn(iff(C-C[1]>0,c-c[1],C[1]-C),76)*100-50)*-1*76/100; if stime == 101700 Then rsiv = (accumn(iff(C-C[1]>0,c-c[1],0),77) /accumn(iff(C-C[1]>0,c-c[1],C[1]-C),77)*100-50)*-1*77/100; if stime == 101800 Then rsiv = (accumn(iff(C-C[1]>0,c-c[1],0),78) /accumn(iff(C-C[1]>0,c-c[1],C[1]-C),78)*100-50)*-1*78/100; if stime == 101900 Then rsiv = (accumn(iff(C-C[1]>0,c-c[1],0),79) /accumn(iff(C-C[1]>0,c-c[1],C[1]-C),79)*100-50)*-1*79/100; if stime == 102000 Then rsiv = (accumn(iff(C-C[1]>0,c-c[1],0),80) /accumn(iff(C-C[1]>0,c-c[1],C[1]-C),80)*100-50)*-1*80/100; if stime == 102100 Then rsiv = (accumn(iff(C-C[1]>0,c-c[1],0),81) /accumn(iff(C-C[1]>0,c-c[1],C[1]-C),81)*100-50)*-1*81/100; if stime == 102200 Then rsiv = (accumn(iff(C-C[1]>0,c-c[1],0),82) /accumn(iff(C-C[1]>0,c-c[1],C[1]-C),82)*100-50)*-1*82/100; if stime == 102300 Then rsiv = (accumn(iff(C-C[1]>0,c-c[1],0),83) /accumn(iff(C-C[1]>0,c-c[1],C[1]-C),83)*100-50)*-1*83/100; if stime == 102400 Then rsiv = (accumn(iff(C-C[1]>0,c-c[1],0),84) /accumn(iff(C-C[1]>0,c-c[1],C[1]-C),84)*100-50)*-1*84/100; if stime == 102500 Then rsiv = (accumn(iff(C-C[1]>0,c-c[1],0),85) /accumn(iff(C-C[1]>0,c-c[1],C[1]-C),85)*100-50)*-1*85/100; if stime == 102600 Then rsiv = (accumn(iff(C-C[1]>0,c-c[1],0),86) /accumn(iff(C-C[1]>0,c-c[1],C[1]-C),86)*100-50)*-1*86/100; if stime == 102700 Then rsiv = (accumn(iff(C-C[1]>0,c-c[1],0),87) /accumn(iff(C-C[1]>0,c-c[1],C[1]-C),87)*100-50)*-1*87/100; if stime == 102800 Then rsiv = (accumn(iff(C-C[1]>0,c-c[1],0),88) /accumn(iff(C-C[1]>0,c-c[1],C[1]-C),88)*100-50)*-1*88/100; if stime == 102900 Then rsiv = (accumn(iff(C-C[1]>0,c-c[1],0),89) /accumn(iff(C-C[1]>0,c-c[1],C[1]-C),89)*100-50)*-1*89/100; if stime == 103000 Then rsiv = (accumn(iff(C-C[1]>0,c-c[1],0),90) /accumn(iff(C-C[1]>0,c-c[1],C[1]-C),90)*100-50)*-1*90/100; if stime == 103100 Then rsiv = (accumn(iff(C-C[1]>0,c-c[1],0),91) /accumn(iff(C-C[1]>0,c-c[1],C[1]-C),91)*100-50)*-1*91/100; if stime == 103200 Then rsiv = (accumn(iff(C-C[1]>0,c-c[1],0),92) /accumn(iff(C-C[1]>0,c-c[1],C[1]-C),92)*100-50)*-1*92/100; if stime == 103300 Then rsiv = (accumn(iff(C-C[1]>0,c-c[1],0),93) /accumn(iff(C-C[1]>0,c-c[1],C[1]-C),93)*100-50)*-1*93/100; if stime == 103400 Then rsiv = (accumn(iff(C-C[1]>0,c-c[1],0),94) /accumn(iff(C-C[1]>0,c-c[1],C[1]-C),94)*100-50)*-1*94/100; if stime == 103500 Then rsiv = (accumn(iff(C-C[1]>0,c-c[1],0),95) /accumn(iff(C-C[1]>0,c-c[1],C[1]-C),95)*100-50)*-1*95/100; if stime == 103600 Then rsiv = (accumn(iff(C-C[1]>0,c-c[1],0),96) /accumn(iff(C-C[1]>0,c-c[1],C[1]-C),96)*100-50)*-1*96/100; if stime == 103700 Then rsiv = (accumn(iff(C-C[1]>0,c-c[1],0),97) /accumn(iff(C-C[1]>0,c-c[1],C[1]-C),97)*100-50)*-1*97/100; if stime == 103800 Then rsiv = (accumn(iff(C-C[1]>0,c-c[1],0),98) /accumn(iff(C-C[1]>0,c-c[1],C[1]-C),98)*100-50)*-1*98/100; if stime == 103900 Then rsiv = (accumn(iff(C-C[1]>0,c-c[1],0),99) /accumn(iff(C-C[1]>0,c-c[1],C[1]-C),99)*100-50)*-1*99/100; if stime == 104000 Then rsiv = (accumn(iff(C-C[1]>0,c-c[1],0),100) /accumn(iff(C-C[1]>0,c-c[1],C[1]-C),100)*100-50)*-1*100/100; PlotBaseLine1(0,"0", black); plot1(rrsiv,"R-RSI"); plot2(rsiv,"RSI");

Input : period(10) if C >= O*1.03 then { var1 = H*0.50; var2 = index; } if index <= var2+period and var2 > 0 and C <= var1 Then find(1); 1) 이 수식을 기준봉의 고가 5%가 아닌 기준봉 이후의 고가 5%로 바꿔주세요.

#,안녕하세요. #,아래수식1번)을 시작 날짜를 지정해서 피보나치선을 그리는 방식으로 수정하고 나머지는 동일하게 부탁드립니다, (일봉,주봉,월봉에만 동시적용가능하면 좋겠습니다) #,아래수식2번)은 매수지정가 터치시 신호발생하는 시스템식인데요,여기에 매도지정가도 같은 수식안에서 적용되도록 추가부탁드리며,매수,매도지정가 터치시 소리출력함수가 한번만 발생 하도록 추가부탁 드립니다. -아래1번- input : nday(30),n(1); input : Per1(0),Per2(23.60),Per3(38.20),Per4(50.00),Per5(61.80),Per6(76.40),Per7(88.20),Per8(100.00); var : ndate(0),cnt(0),RR(0),HH(0),LL(0); var : TL1(0),TL2(0),TL3(0),TL4(0),TL5(0),TL6(0),TL7(0),TL8(0); var : Tx1(0),Tx2(0),Tx3(0),Tx4(0),Tx5(0),Tx6(0),Tx7(0),Tx8(0); Array : Hv[10](0),Lv[10](0),Dv[10](0),Tv[10](0); ndate = bdate%100; if bdate != bdate[1] and (ndate == nday or (ndate > nday and ndate[1] < nday)) Then{ Hv[0] = H; Lv[0] = L; Dv[0] = sdate; Tv[0] = stime; for cnt = 1 to 9{ Hv[cnt] = Hv[cnt-1][1]; Lv[cnt] = Lv[cnt-1][1]; Dv[cnt] = Dv[cnt-1][1]; Tv[cnt] = Tv[cnt-1][1]; } } if H > Hv[0] Then Hv[0] = H; if L < Lv[0] Then Lv[0] = L; if Hv[n] > 0 and Hv[n] > 0 then{ HH = Hv[n]; LL = Lv[n]; RR = HH-LL; TL_Delete(TL1); TL_Delete(TL2); TL_Delete(TL3); TL_Delete(TL4); TL_Delete(TL5); TL_Delete(TL6); TL_Delete(TL7); TL_Delete(TL8); TL1 = TL_New(DV[1],TV[1],HH-RR*(Per8/100),Sdate,stime,HH-RR*(Per8/100)); TL2 = TL_New(DV[1],TV[1],HH-RR*(Per7/100),Sdate,stime,HH-RR*(Per7/100)); TL3 = TL_New(DV[1],TV[1],HH-RR*(Per6/100),Sdate,stime,HH-RR*(Per6/100)); TL4 = TL_New(DV[1],TV[1],HH-RR*(Per5/100),Sdate,stime,HH-RR*(Per5/100)); TL5 = TL_New(DV[1],TV[1],HH-RR*(Per4/100),Sdate,stime,HH-RR*(Per4/100)); TL6 = TL_New(DV[1],TV[1],HH-RR*(Per3/100),Sdate,stime,HH-RR*(Per3/100)); TL7 = TL_New(DV[1],TV[1],HH-RR*(Per2/100),Sdate,stime,HH-RR*(Per2/100)); TL8 = TL_New(DV[1],TV[1],HH-RR*(Per1/100),Sdate,stime,HH-RR*(Per1/100)); TL_SetExtRight(TL1,true); TL_SetExtRight(TL2,true); TL_SetExtRight(TL3,true); TL_SetExtRight(TL4,true); TL_SetExtRight(TL5,true); TL_SetExtRight(TL6,true); TL_SetExtRight(TL7,true); TL_SetExtRight(TL8,true); TL_SetStyle(TL1,3); TL_SetStyle(TL2,3); TL_SetStyle(TL3,3); TL_SetStyle(TL4,3); TL_SetStyle(TL5,3); TL_SetStyle(TL6,3); TL_SetStyle(TL7,3); TL_SetStyle(TL8,3); } - 아래2번- input : Price(52.90),pst(1); if pst == 1 then { if MarketPosition <= 0 then { if NextBarOpen <= Price Then buy("b1",AtStop,Price); Else buy("b2",AtLimit,Price); } ExitLong("bx",AtStop,Price-PriceScale*5); } else { if MarketPosition >= 0 then { if NextBarOpen >= Price Then sell("s1",AtStop,Price); Else sell("s2",AtLimit,Price); } Exitshort("sx",AtStop,Price+PriceScale*5); } $,매번감사합니다.

안녕하세요 주말 잘 보내셨습니까? 다름 아니오라 아래는 도와주신 수식이고 항셍 시가고가저가종가 수식인데요. 다른시가는 문제가 없는데 당월시가를 이용하면 이상하게 나옵니다. 30분차트에서 당월시가 1개월씩 시가를 표시 하지 않고 2개월씩 시가를 표시 하고 있습니다. 확인해보시고 개선 부탁드리겠습니다. ㅠㅠ 감사합니다. var : cnt(0),d1(0),d2(0),w1(0),w2(0); Array : DOpen[10](0),DHigh[10](0),DLow[10](0),DClose[10](0); Array : WeekOpen[10](0),WeekHigh[10](0),WeekLow[10](0),WeekClose[10](0); Array : MonthOpen[10](0),MonthHigh[10](0),MonthLow[10](0),MonthClose[10](0); if sdate != sdate[1] Then { d1 = sdate; d2 = d1[1]; w1 = DayOfWeek(sdate); w2 = W1[1]; } if (sdate != sdate[1] and stime >= 101500) or (sdate == sdate[1] and stime >= 101500 and stime[1] < 101500) Then { DOpen[0] = O; Dhigh[0] = H; DLow[0] = L; for cnt = 1 to 9 { DOpen[cnt] = DOpen[cnt-1][1]; DHigh[cnt] = DHigh[cnt-1][1]; DLow[cnt] = DLow[cnt-1][1]; DClose[cnt] = DClose[cnt-1][1]; } if W1 < W2 then { WeekOpen[0] = O; Weekhigh[0] = H; WeekLow[0] = L; for cnt = 1 to 9{ WeekOpen[cnt] = WeekOpen[cnt-1][1]; WeekHigh[cnt] = WeekHigh[cnt-1][1]; WeekLow[cnt] = WeekLow[cnt-1][1]; WeekClose[cnt] = WeekClose[cnt-1][1]; } } if D1 > D2+30 Then { MonthOpen[0] = O; Monthhigh[0] = H; MonthLow[0] = L; for cnt = 1 to 9 { MonthOpen[cnt] = MonthOpen[cnt-1][1]; MonthHigh[cnt] = MonthHigh[cnt-1][1]; MonthLow[cnt] = MonthLow[cnt-1][1]; MonthClose[cnt] = MonthClose[cnt-1][1]; } } } DClose[0] = C; if H > DHigh[0] Then DHigh[0] = H; if L < DLow[0] Then DLow[0] = L; WeekClose[0] = C; if H > WeekHigh[0] Then WeekHigh[0] = H; if L < WeekLow[0] Then WeekLow[0] = L; MonthClose[0] = C; if H > MonthHigh[0] Then MonthHigh[0] = H; if L < MonthLow[0] Then MonthLow[0] = L; plot1(MonthOpen[1],"전월시가"); plot2(MonthHigh[1],"전월고가"); plot3(MonthLow[1],"전월저가"); plot4(MonthClose[1],"전월종가"); plot5(MonthOpen[0],"당월시가"); plot6(MonthHigh[0],"당월고가"); plot7(MonthLow[0],"당월저가"); plot8(MonthClose[0],"당월종가"); plot9(WeekOpen[1],"전주시가"); plot10(WeekHigh[1],"전주고가"); plot11(WeekLow[1],"전주저가"); plot12(WeekClose[1],"전주종가"); plot13(WeekOpen[0],"금주시가"); plot14(WeekHigh[0],"금주고가"); plot15(WeekLow[0],"금주저가"); plot16(WeekClose[0],"금주종가"); plot17(Dopen[1],"전일시가"); plot18(Dhigh[1],"전일고가"); plot19(Dlow[1],"전일저가"); plot20(DClose[1],"전일종가"); plot21(DOpen[0],"당일시가"); plot22(Dhigh[0],"당일고가"); plot23(Dlow[0],"당일저가"); plot24(DClose[0],"당일종가");

안녕하세요. 제가 주식의 어떤 조건을만들어서 아래와 같은 식을 만들어 2분봉차트를 열고 시스템신호를 나타내게 돌리면, 장마감시 청산을 하게되어 있어서 다음날 아침에는 무포가 되게 됩니다. 그리고 조건이 만족하면 신호가 나타나게 만들었는데, 전일 마지막신호가 매도가 나타났고, 당일(오늘아침)아침 바로 매도가 나타나면 전날마지막게 매도신호라서 그런가 당일아침에 매도조건이 되어도 신호표시는 나타나지 않습니다. 그러다가 매수신호가 나타나면 그때서야 매수신호가 나타나고요. (그런데 좀 이상한건 선물지수에 똑같은 신호를 적용하면 선물지수에서는 모든 신호가 제가 의도한대로 전부나 빠지지 않고 잘 나타나는것 같습니다. 물론 선줄적용시는 마지막 문구를 SetStopEndofday(153450);으로 했고요. 다른건 똑같은데 잘이죠.) 뭔가 전날것이 당일까지 영향이 미치는것 같은데, 혹시 산식이 잘못되었나요? 이것도 예스스탁에 저번에 질의해서 만든것인데 뭔가 이상합니다. ==================================================================================== vars : T(0); if bdate != bdate[1] Then T = 0; if T <=0 and 어떤조건 >0 Then { T = 1; buy(); } if T >=0 and 어떤조건 <0 Then { T = -1; sell(); } SetStopEndofday(151950);