stochastics 이중천정

stochastics slow%K지표가 과열권에서 고점을 두번 형성을 만드는 것을 표현, 조건을 만족하면 1, 만족하지 않으면 0값을 리턴.



input : p1(12), p2(5), left(3), right(2), Period(50);
var : stoK(0), HighVal1(0), HighVal2(0), Highidx1(0), Highidx2(0);

stoK = stochasticsK(p1,p2);

HighVal1 = SwingHigh(1,stoK,left,right,Period);
HighVal2 = SwingHigh(2,stoK,left,right,Period);
Highidx1 = SwingHighbar(1,stoK,left,right,Period);
Highidx2 = SwingHighbar(2,stoK,left,right,Period);

if 
HighVal1 > 80 and HighVal2 > 80 and //최근 고점과 그 이전 고점이 과열권인 80보다 크고
Highidx2-Highidx1 > 5 and           //두개 고점의 간격이 5봉 이상 떨어져 있고  
Highidx2-Highidx1 < 15              //두개 고점의 간격이 15봉 이내이고 
and stoK[right]== HighVal1 and    //2개 전봉에서 최근 고점이 형성되었고
accumN(iff(stoK < stoK[1],1,0), 2) == 2   //최근 두개봉의 스토캐스틱 값이 연속 하락하면
then       
      plot1(1);
else
      plot1(0);