请高手将这个同花顺公式改为通达信公式，谢谢

Question

VAR1:=EMA(EMA(CLOSE,13),13);
KP:=(VAR1-REF(VAR1,1))/REF(VAR1,1)*1000;
D:=CROSS(KP,0);
KSKP:=KP>REF(KP,1) AND KP>0;
A:=(C*2+H+L+O)/5;
B:=(A+REF(A,1))/2;
D:=(A+REF(A,1)+REF(A,2))/3;
紫薇现世:EMA(B,6),COLOR00FF00;
紫薇送福:EMA(D,28),COLORFF0000;
STICKLINE(紫薇送福,紫薇现世,紫薇送福,5,1),colormagenta;
STICKLINE(紫薇送福>紫薇现世,紫薇现世,紫薇送福,5,1),coloryellow;
DRAWTEXT(CROSS(紫薇现世,紫薇送福) AND KSKP,LOW*1.095,'紫n薇n花n开'),colorred,Linethick3;
VAR3:=PEAKBARS(3,15,1)<10;
VAR5:=IF(VAR3=1,2,0);
顶:= IF(VAR5=2,2,0);
顶A:=顶>REF(顶,1);
DRAWTEXT(顶A,LOW*1.095,'★'),coloreeff99;

Answer 1

VAR1:=EMA(EMA(CLOSE,13),13);

KP:=(VAR1-REF(VAR1,1))/REF(VAR1,1)*1000;

D1:=CROSS(KP,0);

KSKP:=KP>REF(KP,1) AND KP>0;

A:=(C*2+H+L+O)/5;

B:=(A+REF(A,1))/2;

D:=(A+REF(A,1)+REF(A,2))/3;

紫薇现世:EMA(B,6),COLOR00FF00;

紫薇送福:EMA(D,28),COLORFF0000;

STICKLINE(紫薇送福,紫薇现世,紫薇送福,5,1),COLORMAGENTA;

STICKLINE(紫薇送福>紫薇现世,紫薇现世,紫薇送福,5,1),COLORYELLOW;

DRAWTEXT(CROSS(紫薇现世,紫薇送福) AND KSKP,LOW*1.095,'紫N薇N花N开'),COLORRED,LINETHICK3;

VAR3:=PEAKBARS(3,15,1)<10;

VAR5:=IF(VAR3=1,2,0);

顶:= IF(VAR5=2,2,0);

顶A:=顶>REF(顶,1);

DRAWTEXT(顶A,LOW*1.095,'★'),COLOREEFF99;