-- 作者:NaturalLaw
-- 发布时间:2017/3/9 14:08:44
--
//问题:为啥数组最小下标是0?
RUNMODE:0;//运行模式为逐K线计算
VARIABLE:arrSHV[] = 0;//短期波峰数组 VARIABLE:arrSHT[] = 0;//短期波峰周期位置数组 VARIABLE:arrSLV[] = 0;//短期波谷数组 VARIABLE:arrSLT[] = 0;//短期波谷周期位置数组
//===短期波峰=================================================================================== IF BARPOS > 2 THEN BEGIN SHIF:=H[BARPOS-2] <= H[BARPOS-1] AND H[BARPOS-1] >= H[BARPOS];//判断波峰的条件 IF SHIF THEN BEGIN arrSHV:=H[BARPOS-1]; //波峰值 arrSHT:=BARPOS-1; //波峰位置 END SHN:UBOUND(arrSHV),NODRAW;//波峰个数 SH:arrSHV,COLORGREEN;//短期波峰轨道
//===短期波谷===================================================================================== SLIF:=L[BARPOS-2] >= L[BARPOS-1] AND L[BARPOS-1] <= L[BARPOS];//判断波谷的条件 IF SLIF THEN BEGIN arrSLV:=L[BARPOS-1]; //波谷值 arrSLT:=BARPOS-1; //波谷位置 END SLN:UBOUND(arrSLV),NODRAW;//波谷个数 SL:arrSLV,COLORRED;//短期波谷轨道
END
波峰数组最大上标:UBOUND(arrSHV),NODRAW; 波峰数组最小下标:LBOUND(arrSHV),NODRAW; 波谷数组最大上标:UBOUND(arrSLV),NODRAW; 波谷数组最小下标:LBOUND(arrSLV),NODRAW;
|