将主力力道改为通达信可用的附图指标

编写要求：

A:=EMA(CLOSE,13); 多空力道:=((H-A+L-A)*36); STICKLINE(多空力道>0,0,多空力道,8,0),colormagenta; STICKLINE(多空力道<0,多空力道,0,8,0),colorgreen; LC:=REF(CLOSE,1); RSI1:=SMA(MAX(CLOSE-LC,0),6,1)/SMA(ABS(CLOSE-LC),6,1)*100; AR:=SUM(HIGH-OPEN,26)/SUM(OPEN-LOW,26)*100; 卖点雷达:CROSS(85,RSI1)*30; DRAWTEXT(CROSS(85,RSI1),80,'顶'); Varb:=SMA(MAX(CLOSE-LC,0),7,1)/SMA(ABS(CLOSE-LC),7,1)*100; Varc:=SMA(MAX(CLOSE-LC,0),13,1)/SMA(ABS(CLOSE-LC),13,1)*100; Vard:=BARSCOUNT(CLOSE); 买点雷达:(Varb< 20 AND Varc< 25 AND Vard> 50 AND AR<70 AND VOLREF(散户,1) OR CROSS(主力,散户) AND 散户<-35 ,-15,2); DRAWTEXT(CROSS(RSI1,20)AND 散户<-20 AND 买点雷达 ,-60,'底'); DIF:=(EMA(CLOSE,12) - EMA(CLOSE,26))*3; DEA:=EMA(DIF,27); 牛熊线:=0; FILLRGN((DIF*64),(DEA*64),DIF>DEA,RGB(105,20,80),DIF

解答：

?{通达信测试通过}

A:=EMA(CLOSE,13);