修改文華

?

?來源:程序化99

?參考

?

AL:=(C+L+H)/3;
AO:=SMA(AL,13,1)-SMA(AL,34,1);
BBD:(AO-SMA(AO, 5,1))*100,COLORFFCCFF,NODRAW;
BBDA:SMA(BBD,5,2),COLORRED,NODRAW;
RSV1:=BBD;
RSV2:=BBDA;
{BBD彩色柱體}
VAR11:=IF(1,1,0);
BBD1:=IF(BBD>=REF(BBD,1)*VAR11,BBD,NULL);
BBD2:=IF(BBD<REF(BBD,1)*VAR11,BBD,NULL);
STICKLINE(BBD1,0,BBD,3,0),COLOR000088;
STICKLINE(BBD1,0,BBD,1.5,0),COLOR0000AA;
STICKLINE(BBD1,0,BBD,1,0),COLOR0000CC;
STICKLINE(BBD1,0,BBD,0.5,0),COLOR0000FF;
STICKLINE(BBD2,0,BBD,3,0),COLOR888800;
STICKLINE(BBD2,0,BBD,1.5,0),COLORAAAA00;
STICKLINE(BBD2,0,BBD,1,0),COLORCCCC00;
STICKLINE(BBD2,0,BBD,0.5,0),COLORFFFF00;
DRAWICON(((((LLV(BBD,4) > 0) AND (BBD < REF(BBD,1)))
AND (REF(BBD,1) > REF(BBD,2))) AND (REF(BBD,2) > REF(BBD,3)))
,BBD,2);
DRAWICON(((((HHV(BBD,4) < 0) AND (BBD > REF(BBD,1))) AND (REF(BBD,1) < REF(BBD,2))) AND (REF(BBD,2) <
REF(BBD,3))),BBD,1);

?