编写要求：

飞狐的周金叉选股公式改成通达信的选股指标！ 并当指标出现“周金叉”和“紫柱”分别做成选股指标！

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 O<ma(c,5)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<d and="" 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(j30<j31,'30分钟k值死叉日d值,趋势向下'),coloryellow; explainex(1="1,'60分钟K=',J60,2,0),colorred;" explain(j6075 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);

操盘手公式网官方签约公式老师专业解答源码如下：

{周金叉}