안녕하세요 예스스탁입니다. var : MMM(0),YY(0),MM(0),DD(0),K(0),A(0),HH(0),LL(0),cnt(0); var : 고(0),저(0),종(0),HL(0),KKK(0),FF(0),편차합(0),FFF(0); Array : vwH[20](0),vwL[20](0),vwC[20](0); MMM = floor(sDate/100)%100; YY = iff((MMM+1-1) == 1 or (MMM+1-1) == 2, floor(sDate/10000)-1,floor(sDate/10000)); MM = iff((MMM+1-1) == 1, 13, iff((MMM+1-1) ==2, 14, MMM)); DD = sDate%100; K = (DD +floor((13*MM+8)/5) + floor(YY/400) + floor(YY/100) + YY)%7+2; A = iff(K>7,K-7,K); HH = iff(A[1]>A, H, iff(A[2]>A[1], Highest(H,2), iff(A[3]>A[2], Highest(H,3), iff(A[4]>A[3], Highest(H,4),Highest(H,5))))); LL = iff( A[1]>A, L, iff(A[2]>A[1], Lowest(L,2), iff(A[3]>A[2], Lowest(L,3), iff(A[4]>A[3], Lowest(H,4),Lowest(H,5))))); if A[1] > A Then { vwH[1] = HH[1]; vwL[1] = LL[1]; vwC[1] = C[1]; For cnt = 2 to 19 { vwH[cnt] = vwH[cnt-1][1]; vwL[cnt] = vwL[cnt-1][1]; vwC[cnt] = vwC[cnt-1][1]; } } 고 = vwH[k]; 저 = vwL[k]; 종 = vwC[k]; HL=(고+저+종)/3; KKK =(HH+LL+C)/3; FF =(KKK+ HL[1]+HL[2]+HL[3]+HL[4]+HL[5]+HL[6]+HL[7]+HL[8]+ HL[9]+HL[10]+HL[11]+HL[12]+HL[13]+HL[14]+HL[15]+HL[16]+ HL[17]+HL[18]+HL[19])/20; 편차합=(pow(KKK-FF,2)+ pow(HL[1]-FF,2)+ pow(HL[2]-FF,2)+ pow(HL[3]-FF,2)+ pow(HL[4]-FF,2)+ pow(HL[5]-FF,2)+ pow(HL[6]-FF,2)+ pow(HL[7]-FF,2)+ pow(HL[8]-FF,2)+ pow(HL[9]-FF,2)+ pow(HL[10]-FF,2)+ pow(HL[11]-FF,2)+ pow(HL[12]-FF,2)+ pow(HL[13]-FF,2)+ pow(HL[14]-FF,2)+ pow(HL[15]-FF,2)+ pow(HL[16]-FF,2)+ pow(HL[17]-FF,2)+ pow(HL[18]-FF,2)+ pow(HL[19]-FF,2)); FFF= FF+2*sqrt(편차합/20); if C > FFF Then Find(1); 즐거운 하루되세요 > 마신영 님이 쓴 글입니다. > 제목 : 키움수식을 예스트레이드수식으로 변환부탁드립니다(종목검색) > MMM= floor(D/100)%100; YY= if((MMM+1-1) == 1 or (MMM+1-1) == 2, floor(D/10000)-1,floor(D/10000)); MM= if((MMM+1-1) == 1, 13, if((MMM+1-1) ==2, 14, MMM)); DD=D%100; K=(DD +floor((13*MM+8)/5) + floor(YY/400) + floor(YY/100) + YY)%7+2; A=if(KK>7,KK-7,KK); HH= if( A(1)>A, H, if(A(2)>A(1), Highest(H,2), if(A(3)>A(2), Highest(H,3), if(A(4)>A(3), Highest(H,4),Highest(H,5))))); 고= valuewhen(k,A(1)>A, HH(1)); LL= if( A(1)>A, L, if(A(2)>A(1), Lowest(L,2), if(A(3)>A(2), Lowest(L,3), if(A(4)>A(3), Lowest(H,4),Lowest(H,5))))); 저= valuewhen(k,A(1)>A, LL(1)); 종= valuewhen(k,A(1)>A, C(1)); HL=(고+저+종)/3; HH= if(A(1)>A, H, if(A(2)>A(1), Highest(H,2), if(A(3)>A(2), Highest(H,3), if(A(4)>A(3), Highest(H,4),Highest(H,5))))); LLL= if(A(1)>A, L, if(A(2)>A(1), Lowest(H,2), if(A(3)>A(2), Lowest(H,3), if(A(4)>A(3), Lowest(H,4),Lowest(H,5))))); KKK =(HH+LLL+C)/3; FF =(KKK()+ HL(1)+HL(2)+HL(3)+HL(4)+HL(5)+HL(6)+HL(7)+HL(8)+ HL(9)+HL(10)+HL(11)+HL(12)+HL(13)+HL(14)+HL(15)+HL(16)+ HL(17)+HL(18)+HL(19))/20; 편차합=( pow(KKK()-FF,2)+ pow(HL(1)-FF,2)+ pow(HL(2)-FF,2)+ pow(HL(3)-FF,2)+ pow(HL(4)-FF,2)+ pow(HL(5)-FF,2)+ pow(HL(6)-FF,2)+ pow(HL(7)-FF,2)+ pow(HL(8)-FF,2)+ pow(HL(9)-FF,2)+ pow(HL(10)-FF,2)+ pow(HL(11)-FF,2)+ pow(HL(12)-FF,2)+ pow(HL(13)-FF,2)+ pow(HL(14)-FF,2)+ pow(HL(15)-FF,2)+ pow(HL(16)-FF,2)+ pow(HL(17)-FF,2)+ pow(HL(18)-FF,2)+ pow(HL(19)-FF,2)); FFF= FF+2*sqrt(편차합/20); C > FFF