将＂淑女宣修改主图-短进A＂改成通达信

将＂淑女宣修改主图-短进A＂改成通达信

编写要求：

解答：

网友求助：

RSV:=(C-LLV(L,9))/(HHV(H,9)-LLV(L,9))*100;
K:=SMA(RSV,3,1);
D:=SMA(K,3,1);
J:=3*K-2*D;
X:=LLV(J,2)=LLV(J,8);
Y:=IF(CROSS(J,REF(J+0.01,1)) AND X AND J<20,30,0);
主力:=EMA( (CLOSE-MA(CLOSE,3))/MA(CLOSE,3),2);
散户:=EMA( (CLOSE-MA(CLOSE,20))/MA(CLOSE,20),7);
VAR2:=LLV(LOW,10);
VAR3:=HHV(HIGH,25);
动能趋势线:=100*EMA((CLOSE-VAR2)/(VAR3-VAR2),4);
DRAWTEXT(CROSS(动能趋势线,70),HIGH*1.04,'★注意'),COLORGREEN;
AA05:MA(C,5),linethick1,coloryellow;五日乖离率:=(C-AA05)/AA05*100;
BB05:=ATAN((AA05/REF(AA05,1)-1)*100)*180/3.1416;

STICKLINE(BB05>30 AND AA05>REF(AA05,1),
AA05,REF(AA05,1),3,1),COLORCYAN;
AA10:MA(C,10);AA20:=MA(C,20);BB10:=ATAN((AA10/REF(AA10,1)-1)*100)*180/3.1416;
STICKLINE(BB05<0
AND AA05<REF(AA05,1),
AA05,REF(AA05,1),3,1),coloryellow;
AA30:MA(C,30);三拾日乖离率:=(C-AA30)/AA30*100;
VAR1:=(AA20-AA30)>REF((AA20-AA30),1)
AND AA20>REF(AA20,1) AND AA30>REF(AA30,1);

DRAWTEXTABS(12,40,'★淑女宣修改主图★'),linethick4,COLORRED;
所属板块:=BKNAME;
DRAWTEXTABS(12,5, '所属板块： '+所属板块),COLORYELLOW;
每股收益:=FINANCE2(3);
市盈率:=DYNAINFO(39);
每股公积金:=FINANCE2(7);
DRAWTEXTABS(12,20,'每股收益： '+NUMTOSTRN(每股收益,3)+'元 利润增长：'+FINANCE2(10)+'% 市盈率：'+NUMTOSTRN(市盈率,1)+'倍 '+' 每股公积金：'+NUMTOSTRN(每股公积金,2)+'元'),COLORYELLOW;