stochastics 이중바닥

스토캐스틱 슬로우 K선의 이중바닥을 표현, 조건을 만족하면 1, 만족하지 않으면 0값을 리턴.



input : p1(12), p2(5), left(3), right(2), Period(50);
var : stoK(0), LowVal1(0), LowVal2(0), Lowidx1(0), Lowidx2(0);

stoK = stochasticsK(p1,p2);

LowVal1 = SwingLow(1,stoK,left,right,Period);
LowVal2 = SwingLow(2,stoK,left,right,Period);
Lowidx1 = SwingLowbar(1,stoK,left,right,Period);
Lowidx2 = SwingLowbar(2,stoK,left,right,Period);

if 
LowVal1 < 20 and LowVal2 < 20 and //최근 저점과 그 이전 저점이 침체권인 20보다 작고
Lowidx2-Lowidx1 > 5 and           //두개 저점의 간격이 5봉 이상 떨어져 있고  
Lowidx2-Lowidx1 < 15              //두개 저점의 간격이 15봉 이내이고 
and stoK[right]== LowVal1 and    //2개 전봉에서 최근 저점이 형성되었고
accumN(iff(stoK > stoK[1],1,0), 2) == 2  //최근 두개봉의 스토캐스틱 값이 연속 상승하면
then       
      plot1(1);
else
      plot1(0);