很实用的通达信支撑与压力指标改成金字塔指标　[金字塔]

请各位老师把很实用的通达信支撑与压力指标改成金字塔指标

源码如下

VAR1:=IF((CLOSE>180),91.3,0.91299998);
短支:(INTPART((CLOSE)/(VAR1)))*(VAR1),COLOR0000FF,CROSSDOT,LINETHICK1;
短压:短支+VAR1,COLOR008000,CROSSDOT,LINETHICK1;
VAR2:=(CLOSE>REF(短压,1)) AND (CLOSE>REF(高,1)) AND ((VOL)/(REF(VOL,1))>2) AND (VOL>MA(VOL,120));
DRAWICON(VAR2,LOW,1),COLORFF0000;

此主题相关图片如下：股指当月连续.gif

VAR1:=IF((CLOSE>180),91.3,0.91299998);
短支:(INTPART((CLOSE)/(VAR1)))*(VAR1),COLOR0000FF,CROSSDOT,LINETHICK1;
短压:短支+VAR1,COLOR008000,CROSSDOT,LINETHICK1;
VAR2:=(CLOSE>REF(短压,1)) AND (CLOSE>REF(h,1)) AND ((VOL)/(REF(VOL,1))>2) AND (VOL>MA(VOL,120));
DRAWICON(VAR2,LOW,1),COLORFF0000;