把飞狐的飞升马改成通达信选股指标

编写要求：

求请老师帮忙把飞狐的飞升马改成通达信的指标！并当指标出现“周金叉”和“紫柱”分别做成选股指标，万分感谢！variable:wday[7]='星期六';wday[1]:='星期日';wday[2]:='星期一';wday[3]:='星期二';wday[4]:='星期三';wday[5]:='星期四';wday[6]:='星期五';fy:=year;fm:=month;fd:=day;wd:=weekday;p:=sysparam(1);str1:='今天是：'+numtostr(fy[p],0)+'年'+numtostr(fm[p],0)+'月'+numtostr(fd[p],0)+'日, '+wday[wd[p]+1];explain(barpos=p,str1),coloryellow; wr:100*(HHV(HIGH,N)-CLOSE)/(HHV(HIGH,N)-LLV(LOW,N)),coloryellow,linethick2;80,coloryellow;20,colorred;强弱分水岭:50,POINTDOT,colorgreen;0,colorred,linethick0;100,colorgreen,linethick1;{PARTLINE(wr<=20,wr),colorgreen,LINETHICK2;PARTLINE(wr>=55 and wr<=80,wr),colorblue,linethick2;PARTLINE(wr<=55 and wr>=20,wr),coloryellow,linethick2;PARTLINE(wr>=80 and wr<100,wr),colorred,linethick2;}RSV:=(CLOSE-LLV(LOW,N1))/(HHV(HIGH,N1)-LLV(LOW,N1))*100;K:SMA(RSV,M1,1)colorred,linethick1;D:SMA(K,M2,1)coloryellow,linethick1;J:3*K-2*D colorgreen,linethick1;FILLRGN(K>=D,K,D),colorred;FILLRGN(KMA(V,10); W2:=MA(C,5)>MA(C,10);{DRAWICON(K>D AND BETWEEN(K,25,50) AND BETWEEN(D,25,50)AND W2 AND W1,L,1);}EXPLAIN(K>D AND BETWEEN(K,25,50) AND BETWEEN(D,25,50)AND W2 AND W1,'三金叉见底，买入,股价脱离底部向上,买入'),coloryellow;Var0004:="KDJ.K#WEEK"(9,3,3);Var0005:="KDJ.D#WEEK"(9,3,3);Var0006:="KDJ.K#MONTH"(9,3,3);Var0007:="KDJ.D#MONTH"(9,3,3);周金叉: IF(CROSS(Var0004,Var0005),15,0)linestick, color00ff00;月金叉: IF(CROSS(Var0006,Var0007),20,0)linestick, COLORee99FF;DRAWTEXT(周金叉,16,'周金叉');DRAWTEXT(月金叉,20,'月金叉');EXPLAIN(EXIST(CROSS(50,WR )AND WRD AND W2 AND W1 AND K<=25,'三金叉见底，买入,股价尚处于底部安全区域,重仓介入'),coloryellow;EXPLAIN( K>=D AND BETWEEN(K,50,80)AND W2 AND W1,'三金叉出现，买入,股价进入主升浪,买入'),colorred;EXPLAIN(K>=D AND D>=75 AND W2 AND W1,'三金叉出现，买入,股价进入风险区轻仓进出，快进快出'),coloryellow;EXPLAIN(K<=D AND K>70 ,'高位死叉,不是洗盘就是下跌,若是洗盘则高抛低吸'),coloryellow;Y1:=C>MA(C,5)AND C>MA(C,10)AND OD AND K<=20 AND Var0005<25;DRAWTEXT(海底火山,HIGH,'海底火山'),colorgreen;EXPLAIN(海底火山,'海底火山=股价见底,快速买入'),colorred;B:=VAR0004>VAR0005;EXPLAINEX(B,'周K值大于周D值',var0004,2,0),colorff33cc;EXPLAINEX(B,'周D值是',var0005,2,0),colorff33cc;E:=VAR0006>VAR0007;EXPLAINEX(E,'月K值大于D值',var0006,2,0),colorffff00;EXPLAINEX(E,'月D值是',var0007,2,0),colorffff00;M:=K>D AND K>=REF(K,1) ;G:=K=-50,'日K:',K,2,0),colorred; EXPLAINEX(D>=-50,'日D:',D,2,0),colorred; EXPLAINEX(J>=-50,'日J:',J,2,0),colorred;EXPLAIN(M,'日K值金叉日D值,趋势向上'),colorgreen;EXPLAIN(G,'日K值死叉日D值,趋势向下'),coloryellow;j30:"kdj.k#min30"(9,3,3)linethick0;j31:"kdj.d#min30"(9,3,3)linethick0;j60:"kdj.k#min60"(9,3,3)linethick0;j61:"kdj.d#min60"(9,3,3)linethick0;EXPLAINEX(0=0,'30分钟K=',J30,2,0),colorffff00;EXPLAINEX(1=1,'30分钟D=',J31,2,0),colorffff00;EXPLAIN(j30>j31,'30分钟K值金叉日D值,趋势向上'),coloryellow;EXPLAIN(j3075 AND j61>75,'60分钟K值死叉日D值,趋势向下'),coloryellow;SX:=J30<30 and j31<30 and j60<30 AND j61<30 AND K<20 and D<20;EXPLAIN(j60>j61 ,'60分钟K值金叉日D值,趋势向上'),coloryellow;EXPLAIN(j6075 AND j61>75 AND j3075 AND j31>75 ,'30分钟,60分钟K值全在高位死叉日D值,趋势向下，有一波深幅下跌'),colorff00ff;EXPLAIN(sx,'快进快出，超短线操作')coloryellow;DRAWTEXT(sx,50,'短'),colorgreen;STICKLINE(sx,50,0,0.8,1);

解答：

 {周金叉}