将红绿灯指标在绿灯跟主图机构进场同时出现时做选股

九毛八公式指标

请老师将"优化机构进场"主图跟 "红绿灯"附图中,在绿灯出现时跟主图中机构进场同时出现时做一个选股公式: "优化机构进场"主图原码如下: {N 1 100 20. M 1 100 32. P1 1 100 80. P2 1 100 100} VAR1:=(C+H+O+L)/4; {白线上面要关注，红线上面是买点，买错也要买。} VAR3:=LLV(HIGH,240); VAR4:=100*(CLOSE-VAR3)/VAR3; VAR5:=(CLOSE-LLV(LOW,528))/(HHV(HIGH,528)-LLV(LOW,528))*100; VAR6:=(CLOSE-LLV(CLOSE,530))/(HHV(CLOSE,530)-LLV(CLOSE,530))*100; VAR7:=0; VAR8:=SMA(MAX(CLOSE-REF(CLOSE,1),0),34,1)/SMA(ABS(CLOSE-REF(CLOSE,1)),7,1)*100; VAR9:=SMA(MAX(CLOSE-REF(CLOSE,1),0),13,1)/SMA(ABS(CLOSE-REF(CLOSE,1)),13,1)*100; VAR10:=IF(TROUGHBARS(3,16,1)=0 AND HIGH>LOW+0.04,4,0); VAR11:=ZIG(3,6)>REF(ZIG(3,6),1) AND REF(ZIG(3,6),1)<=REF(ZIG(3,6),2) AND REF(ZIG(3,6),2)<=REF(ZIG(3,6),3); VAR12:=ZIG(3,6)=REF(ZIG(3,6),2) AND REF(ZIG(3,6),2)>=REF(ZIG(3,6),3); VAR13:=ZIG(3,22)>REF(ZIG(3,22),1) AND REF(ZIG(3,22),1)<=REF(ZIG(3,22),2) AND REF(ZIG(3,22),2)<=REF(ZIG(3,22),3); VAR14:=ZIG(3,22)=REF(ZIG(3,22),2) AND REF(ZIG(3,22),2)>=REF(ZIG(3,22),3); VAR15:=ZIG(3,51)>REF(ZIG(3,51),1) AND REF(ZIG(3,51),1)<=REF(ZIG(3,51),2) AND REF(ZIG(3,51),2)<=REF(ZIG(3,51),3); VAR16:=ZIG(3,51)=REF(ZIG(3,51),2) AND REF(ZIG(3,51),2)>=REF(ZIG(3,51),3); VAR17:=ZIG(3,72)>REF(ZIG(3,72),1) AND REF(ZIG(3,72),1)<=REF(ZIG(3,72),2) AND REF(ZIG(3,72),2)<=REF(ZIG(3,72),3); VAR18:=ZIG(3,72)=REF(ZIG(3,72),2) AND REF(ZIG(3,72),2)>=REF(ZIG(3,72),3); VAR19:=EMA(CLOSE,2)-EMA(CLOSE,150); 买１:=VAR10; 买２:=(VAR11+VAR13+VAR15+VAR17); 卖１:=(VAR12+VAR14+VAR16+VAR18); B:IF(买１>0 OR 买２>0,LOW*0.99,DRAWNULL),CROSSDOT,LINETHICK3,COLORYELLOW; DRAWTEXT(买１>0 OR 买２>0,LOW*0.99,'买'),COLORRED; S:IF(卖１>0,HIGH*1.01,DRAWNULL),CROSSDOT,LINETHICK3,COLORGREEN; DRAWTEXT(卖１>0,HIGH*1.02,'卖'),COLORGREEN; DRAWICON((ZIG(3,5)>REF(ZIG(3,5),1)) AND (REF(ZIG(3,5),1)<=REF(ZIG(3,5),2)) AND (REF(ZIG(3,5),2)<=REF(ZIG(3,5),3)),LOW*0.98,1) ; DRAWICON((ZIG(3,5)=REF(ZIG(3,5),2)) AND (REF(ZIG(3,5),2)>=REF(ZIG(3,5),3)),HIGH*1.01,2); ZB:=EMA(EMA(VAR3,5),5)*3, COLORSTICK; VARA:=IF(VAR9 AND CROSS(MA(CLOSE,3),MA(CLOSE,5)),20,0); K:=EMA(VAR7,5)*2, , COLORFF00FF; D:=EMA(K,5), , COLORWHITE; J:=K*3-D*2, ,COLORYELLOW; VARB:=BETWEEN(CLOSE,MA(CLOSE,3),MA(CLOSE,5)) AND J>10; HS:=VOL/CAPITAL*100, , COLORGREEN; VARE:=MA(100*(CLOSE-LLV(CLOSE,34))/(HHV(HIGH,34)-LLV(LOW,34)),5)-20; VARF:=100-3*SMA((CLOSE-LLV(LOW,75))/(HHV(HIGH,75)-LLV(LOW,75))*100,20,1)+2*SMA(SMA((CLOSE-LLV(LOW,75))/(HHV(HIGH,75)-LLV(LOW,75))*100,20,1),15,1); DRAWTEXT(VAR11 AND COUNT(VAR11,30)=1,LOW*0.95,'机构进场'),LINETHICK1,COLORFF00FF; VAR1A:=IF(VARE>0,VARE,0); VAR1B:=IF(VAR14>=200 AND VAR13>=150,15,IF(VAR14<=-200 AND VAR13<=-150,-15,VAR16))+60; VAR1C:=VAR1A>48 AND VAR1B>60 AND VAR19<100; DRAWTEXT(VAR1C AND COUNT(VAR1C,30)=1,LOW*0.95,'大顶（底）') COLORWHITE; 趋势线:EMA(CLOSE,17),LINETHICK1,COLORFFFFFF; 牛熊分界线:EMA(CLOSE,50),LINETHICK1,COLORRED; 卖出:XMA(VAR1,N)*(1+P1/1000),COLORGREEN,LINETHICK2; 买入:XMA(VAR1,M)*(1-P2/1000),COLORMAGENTA,LINETHICK2; 幅度:100*(卖出-买入)/买入,NODRAW; MA1:=MA(VAR1,3); STICKLINE(卖出>LOW AND 卖出MIN(C,O) AND 卖出LOW AND 卖出LOW AND 买入MIN(C,O) AND 买入LOW AND 买入HIGH,OPEN,CLOSE,3,0),COLORMAGENTA; STICKLINE(买入>HIGH,HIGH,LOW,0,0),COLORMAGENTA; "红绿灯附图"原码如下: 红色不操作，黄色观望，绿色持币，短中长期一目了然。 MID:=(3*CLOSE+LOW+OPEN+HIGH)/6; 牛线:=(20*MID+19*REF(MID,1)+18*REF(MID,2)+17*REF(MID,3)+16*REF(MID,4)+15*REF(MID,5)+14*REF(MID,6)+13*REF(MID,7)+12*REF(MID,8)+11*REF(MID,9)+10*REF(MID,10)+9*REF(MID,11)+8*REF(MID,12)+7*REF(MID,13)+6*REF(MID,14)+5*REF(MID,15)+4*REF(MID,16)+3*REF(MID,17)+2*REF(MID,18)+REF(MID,20))/210,COLORRED; 马线:=MA(牛线,6),COLORYELLOW; STICKLINE(C>牛线,2.5,4,8,0),COLORGREEN,LINETHICK2; STICKLINE(C<马线,2.5,4,8,0),COLORRED,LINETHICK2; STICKLINE(牛线>=C AND C>=马线,2.5,4,8,0),COLORYELLOW,LINETHICK2; A:=MAX(MA(C,60),MA(C,120)); B:=MIN(MA(C,60),MA(C,120)); 开枪:C>A,COLORGREEN; 休息:C=C AND C>=B,COLORYELLOW ; STICKLINE(C>A,0.5,2,8,0),COLORGREEN,LINETHICK2; STICKLINE(C=C AND C>=B,0.5,2,8,0),COLORYELLOW,LINETHICK2; R:=0; E:=MAX(MA(C,30),MA(C,60)); F:=MIN(MA(C,30),MA(C,60)); STICKLINE(C>E,-0.5,-2,8,0),COLORGREEN,LINETHICK2; STICKLINE(C=C AND C>=F,-0.5,-2,8,0),COLORYELLOW,LINETHICK2;