标题：1到n周期中，每周期最高价连续小于第一个周期收盘价的周期数 如何写

1到n周期中，每周期最高价连续小于第一个周期收盘价的周期数 如何写

variable:nums=0;

cond:=date<>ref(date,1);

c1:=valuewhen(cond,c);

if h<c1 then nums:=nums+1;

if h>=c1 then nums:=0;