同花顺均线变色副图源码 EA-万能指标公式

图形中显示高抛低吸价位，可以按照图中指示操作即可。

P1:=10;P2:=20;
r MAR1:=MA(CLOSE,P1);
r C1:=C>=MAR1;
r C2:=C<MAR1;
r AA:=C1>=C2 ;
r BB:=C2>C1 ;
r STICKLINE(AA,C,O,3,0),colorred;
r STICKLINE(AA,H,L,0,0),colorred;
r STICKLINE(BB,C,O,3,0),COLOR00FF00;
r STICKLINE(BB,H,L,0,0),COLOR00FF00;
r STICKLINE(AA,CLOSE,OPEN,3,0),COLOR000099;
r STICKLINE(AA,CLOSE,OPEN,2.2,0),COLOR0000CC;
r STICKLINE(AA,CLOSE,OPEN,1.5,0),COLOR0000FF;
r STICKLINE(AA,CLOSE,OPEN,0.5,0),COLORCC66FF;
r STICKLINE(BB,CLOSE,OPEN,3,0),COLORFF7700;
r STICKLINE(BB,CLOSE,OPEN,2.2,0),COLORFF9900;
r STICKLINE(BB,CLOSE,OPEN,1.5,0),COLORFFBB00;
r STICKLINE(BB,CLOSE,OPEN,0.5,0),colorcyan;
r MAA:MAR1,COLOR00FF00,LINETHICK2;
r IF(MAA>=REF(MAA,1),MAA,DRAWNULL),colorred,,LINETHICK2;
r IF(MAA<REF(MAA,1),MAA,DRAWNULL),COLORFFFFFF,LINETHICK2;
r MAB:MA(CLOSE,P2),COLOR00FF00,LINETHICK2;
r IF(MAB>=REF(MAB,1),MAB,DRAWNULL),colormagenta,LINETHICK2;
r IF(MAB<REF(MAB,1),MAB,DRAWNULL),colorgreen,LINETHICK2;
r DRAWICON(MAA>=REF(MAA,1) AND CROSS(MAA,MAB),MAA*0.98,1);
r DRAWICON(CROSS(MAB,MAA),MAB*1.02,2);
r VAR2:=(2*CLOSE+HIGH+LOW)/4;
r VAR3:=IF(YEAR>=2099 AND MONTH>2,0,1);
r VAR4:=LLV(LOW,5);
r VAR5:=HHV(HIGH,4);
r VAR6:=EMA((VAR2-VAR4)/(VAR5-VAR4)*100,4)*VAR3;
r VAR7:=EMA(0.667*REF(VAR6,1)+0.333* VAR6,2)*VAR3;
r DRAWTEXT(CROSS(VAR6, VAR7) AND VAR6<30,L-0.05,’←低吸’),COLOR00FFFF;
r DRAWTEXT(CROSS(VAR7, VAR6) AND VAR6>70,H+0.05,’←高抛’),COLOR00FFFF;
r DRAWICON(CROSS(VAR6, VAR7) AND VAR6<30,L-0.05,13);
r DRAWICON(CROSS(VAR7, VAR6) AND VAR6>70,H+0.05,14);
r AAA:= MAA>=REF(MAA,1);{C>=MAA;}
r BBB:= MAA<REF(MAA,1);{ C<MAA;}
r DDD:=MAB>=REF(MAB,1);
r EEE:=MAB<REF(MAB,1);
r TT:=IF(ISLASTBAR,240/FROMOPEN,1);
r NN:=120;
r HH:=HHV(V*TT,NN);
r LL:=LLV(V,NN);
r最高:=CONST(HH);
r最低:=CONST(LL);
r最高2:=CONST(HHV(H,NN));
r最低2:=CONST(LLV(L,NN));
r PP:=IF((最高2*0.9-(最高2-最低2)*0.5)>CONST(LLV(L,20)),0.9,IF((最高2*0.9-(最高2-最低2)*0.5)>CONST(LLV(L,50)),0.7,0.6)),NODRAW;
r RCC1:=最高2*0.9-(最高2-最低2)*PP;
r最低3:=MIN(RCC1,最低2);
r AA1:=最低3;
r STICKLINE(AAA,AA1-0.000*AA1,AA1-0.040*AA1,4,0),COLOR0000FF;
r STICKLINE(BBB,AA1-0.000*AA1,AA1-0.040*AA1,4,1),COLOR686868;
r STICKLINE(DDD,AA1-0.050*AA1,AA1-0.090*AA1,4,0),COLORFF00FF;
r STICKLINE(EEE,AA1-0.050*AA1,AA1-0.090*AA1,4,1),COLOR686868;
r DRAWTEXT(1,0.5,0.84,0,’★★ 红色–均线A持股★★粉色–均线B持股★★’),COLOR00FFFF;