金字塔如何实现判断60分钟一涨一跌[金字塔模型]

涨（可以是一根或多根连续上涨K线）——跌（同理 ）以当天第一个上涨K为起点

问题：

1 如何实现？

2 因为60分钟中间有休息15分钟和中午休息时间，而且涉及到划分60分钟周期问题（博弈大师和金字塔划分不同）所以不会像5分钟那样容易实现，很可能会出错，请问这个怎么解决？

variable:zhangtime=0,dietime=0,a=0,b=0;
if date<>ref(date,1) then begin
 if c>o then begin
 zhangtime:=time;
 a:=1;
 end
 
 if c<o then begin
 dietime:=time;
 b:=1;
 end
 
end

if date=ref(date,1)  and a=1 then begin
 if c<o then begin
 dietime:=time;
 a:=2;
 end
end
if date=ref(date,1)  and b=1 then begin
 if c>o then begin
 zhangtime:=time;
 b:=2;
 end
end
z1:zhangtime,linethick0;
d1:dietime,linethick0; 
if time=151500 then BEGIN
a:=0;
b:=0;
dietime:=0;
zhangtime:=0;
end