主题：[求助]数组值的问题,谢谢老师!

  
此主题相关图片如下：1.png

RUNMODE:0;//运行模式为逐K线计算

VARIABLE:arrSHV[] = 0;//短期波峰数组
VARIABLE:arrSHT[] = 0;//短期波峰位置数组
VARIABLE:arrSLV[] = 0;//短期波谷数组
VARIABLE:arrSLT[] = 0;//短期波谷位置数组
//===短期波峰===================================================================================

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

SHVN:=UBOUND(arrSHV),NODRAW;//波峰个数
SHTN:=UBOUND(arrSHT),NODRAW;//波峰位置个数

SH:arrSHV;//短期波峰轨道

//检查如上代码计算结果是否正确

EXPLAIN(SHVN>0,'最近波峰:'&NUMTOSTR(arrSHV[SHVN],2)),COLORYELLOW;
EXPLAIN(SHVN>0,'次近波峰:'&NUMTOSTR(arrSHV[SHVN-1],2)),COLORRED;
EXPLAIN(SHVN>0,'第三近波峰:'&NUMTOSTR(arrSHV[SHVN-2],2)),COLORWHITE;

EXPLAIN(SHTN>0,'最近波峰周期:'&NUMTOSTR(arrSHT[SHTN],0)),COLORYELLOW;
EXPLAIN(SHTN>0,'次近波峰周期:'&NUMTOSTR(arrSHT[SHTN-1],0)),COLORRED;
EXPLAIN(SHTN>0,'第三近波峰周期:'&NUMTOSTR(arrSHT[SHTN-2],0)),COLORWHITE;

EXPLAIN(SHVN>0,'第一个波峰:'&NUMTOSTR(arrSHV[1],2)),COLORYELLOW;
EXPLAIN(SHVN>0,'第二个波峰:'&NUMTOSTR(arrSHV[2],2)),COLORRED;
EXPLAIN(SHVN>0,'第三个波峰:'&NUMTOSTR(arrSHV[3],2)),COLORWHITE;
EXPLAIN(SHVN>0,'第四个波峰:'&NUMTOSTR(arrSHV[4],2)),COLORWHITE;

EXPLAIN(SHTN>0,'第一个波峰周期:'&NUMTOSTR(arrSHT[1],0)),COLORYELLOW;
EXPLAIN(SHTN>0,'第二个波峰周期:'&NUMTOSTR(arrSHT[2],0)),COLORRED;
EXPLAIN(SHTN>0,'第三个波峰周期:'&NUMTOSTR(arrSHT[3],0)),COLORWHITE;
EXPLAIN(SHTN>0,'第四个波峰周期:'&NUMTOSTR(arrSHT[4],0)),COLORWHITE;

//===短期波谷=====================================================================================
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

SLVN:=UBOUND(arrSLV),NODRAW;//波谷个数
SLTN:=UBOUND(arrSLT),NODRAW;//波谷位置个数

SL:arrSLV;//短期波谷轨道

//检查如上代码计算结果是否正确
EXPLAIN(SLVN>0,'最近波谷:'&NUMTOSTR(arrSLV[SLVN],2)),COLORYELLOW;
EXPLAIN(SLVN>0,'次近波谷:'&NUMTOSTR(arrSLV[SLVN-1],2)),COLORRED;
EXPLAIN(SLVN>0,'第三近波谷:'&NUMTOSTR(arrSLV[SLVN-2],2)),COLORWHITE;

EXPLAIN(SLTN>0,'最近波谷周期:'&NUMTOSTR(arrSLT[SLTN],0)),COLORYELLOW;
EXPLAIN(SLTN>0,'次近波谷周期:'&NUMTOSTR(arrSLT[SLTN-1],0)),COLORRED;
EXPLAIN(SLTN>0,'第三近波谷周期:'&NUMTOSTR(arrSLT[SLTN-2],0)),COLORWHITE;

EXPLAIN(SLVN>0,'第一个波谷:'&NUMTOSTR(arrSLV[1],2)),COLORYELLOW;
EXPLAIN(SLVN>0,'第二个波谷:'&NUMTOSTR(arrSLV[2],2)),COLORRED;
EXPLAIN(SLVN>0,'第三个波谷:'&NUMTOSTR(arrSLV[3],2)),COLORWHITE;
EXPLAIN(SLVN>0,'第四个波谷:'&NUMTOSTR(arrSLV[4],2)),COLORWHITE;

EXPLAIN(SLTN>0,'第一个波谷周期:'&NUMTOSTR(arrSLT[1],0)),COLORYELLOW;
EXPLAIN(SLTN>0,'第二个波谷周期:'&NUMTOSTR(arrSLT[2],0)),COLORRED;
EXPLAIN(SLTN>0,'第三个波谷周期:'&NUMTOSTR(arrSLT[3],0)),COLORWHITE;
EXPLAIN(SLTN>0,'第四个波谷周期:'&NUMTOSTR(arrSLT[4],0)),COLORWHITE;