最近第一天共振选股

编写要求：

请老师编写最近第一天共振选股(只取第一天共振),谢谢 RSV1:=(CLOSE-LLV(LOW,27))/(HHV(HIGH,27)-LLV(LOW,27))*100; K1:=SMA(RSV1,5,1); D1:=SMA(K1,5,1); J1:=3*K1-2*D1; AA1:=EMA(J1,5); AA2:=REF(AA1,1); STICKLINE(AA1>AA2,AA1,AA2,8,0),COLOR0055AA,PRECIS2,LAYER0;{长J} STICKLINE(AA1>AA2,AA1,AA2,8,0),COLOR0077CC,PRECIS2,LAYER0; STICKLINE(AA1>AA2,AA1,AA2,6,0),COLOR0099DD,PRECIS2,LAYER0; STICKLINE(AA1>AA2,AA1,AA2,5,0),COLOR01BEE7,PRECIS2,LAYER0; STICKLINE(AA1<=AA2,AA1,AA2,8,0),COLOR006600,PRECIS2,LAYER0; STICKLINE(AA1<=AA2,AA1,AA2,8,0),COLOR009900,PRECIS2,LAYER0; STICKLINE(AA1<=AA2,AA1,AA2,6,0),COLOR00BB00,PRECIS2,LAYER0; STICKLINE(AA1<=AA2,AA1,AA2,5,0),COLOR00CC00,PRECIS2,LAYER0; RSV2:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100; K2:=SMA(RSV2,3,1); D2:=SMA(K2,3,1); J2:=3*K2-2*D2; BB1:=EMA(J2,5); BB2:=REF(BB1,1); STICKLINE(BB1>BB2,BB1,BB2,8,0),COLOR000045,PRECIS2,LAYER0;{短J} STICKLINE(BB1>BB2,BB1,BB2,7,0),COLOR000085,PRECIS2,LAYER0; STICKLINE(BB1>BB2,BB1,BB2,6,0),COLOR0000C5,PRECIS2,LAYER0; STICKLINE(BB1>BB2,BB1,BB2,5,0),COLOR0000E5,PRECIS2,LAYER0; STICKLINE(BB1<=BB2,BB1,BB2,8,0),COLOR353500,PRECIS2,LAYER0; STICKLINE(BB1<=BB2,BB1,BB2,7,0),COLOR555500,PRECIS2,LAYER0; STICKLINE(BB1<=BB2,BB1,BB2,6,0),COLOR757500,PRECIS2,LAYER0; STICKLINE(BB1<=BB2,BB1,BB2,5,0),COLOR858500,PRECIS2,LAYER0;

解答：

?RSV1:=(CLOSE-LLV(LOW,27))/(HHV(HIGH,27)-LLV(LOW,27))*100;

K1:=SMA(RSV1,5,1);