同花顺均线变色副图源码

以下是同花顺均线变色副图源码

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

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