• 커뮤니티
  • 질의응답
  • 예스랭귀지 Q&A

커뮤니티

지표수식을 간단하게 해주실 수 있는지요?

프로필 이미지
당일선물
2019-01-27 04:41:39
264
글번호 125620
답변완료
아래의 지표수식을 간단하게 해주실 수 있는지요. 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");
지표
답변 1
프로필 이미지

예스스탁 예스스탁 답변

2019-01-28 11:19:12

안녕하세요 예스스탁입니다. input :Period(100); var : rrsiv(0),rsiv(0),idx(0); if bdate != bdate[1] Then idx = 0; Else idx = idx+1; 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 idx <= 100 Then { rrsiv = (accumn(iff(C-C[1]<0,C[1]-C,0),idx) /accumn(iff(C-C[1]<0,C[1]-C,C-C[1]),idx)*100-50)*-1*idx/100; rsiv = (accumn(iff(C-C[1]>0,c-c[1],0),idx) /accumn(iff(C-C[1]>0,c-c[1],C[1]-C),idx)*100-50)*-1*idx/100; } PlotBaseLine1(0,"0", black); plot1(rrsiv,"R-RSI"); plot2(rsiv,"RSI"); 즐거운 하루되세요 > 당일선물 님이 쓴 글입니다. > 제목 : 지표수식을 간단하게 해주실 수 있는지요? > 아래의 지표수식을 간단하게 해주실 수 있는지요. 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");
등록