通达信变色双均线主图未加密选股指标公式源码

源码正文：

P1:=10{XG51};
P2:=20{XG51};
DRAWGBK(C>0, RGB(0,10,10),RGB(88,0,0),0,'11',0){XG51};
DRAWNUMBER(ISLAstBAR,C,C),COLORmaGENTA{XG51};
N8:=STRCAT(CON2STR(YEAR,0),' 年 ');
Y8:=STRCAT(CON2STR(MONTH,0),' 月 ');
R8:=STRCAT(CON2STR(DAY,0),' 日 ');
MAR1:=MA(CLOSE,P1){XG51};
C1:=C>=MAR1{XG51};
C2:=C<MAR1{XG51};
AA:=C1>=C2{XG51};
BB:=C2>C1{XG51};
STICKLINE(AA,C,O,3,0),COLORWHITE{XG51};
STICKLINE(AA,H,L,0,0),COLORWHITE{XG51};
STICKLINE(BB,C,O,3,0),COLOR00FF00{XG51};
STICKLINE(BB,H,L,0,0),COLOR00FF00{XG51};
STICKLINE(AA,CLOSE,OPEN,3,0),COLOR000099{XG51};
STICKLINE(AA,CLOSE,OPEN,2.2,0),COLOR0000CC{XG51};
STICKLINE(AA,CLOSE,OPEN,1.5,0),COLOR0000FF;
STICKLINE(AA,CLOSE,OPEN,0.5,0),COLORCC66FF{XG51};
STICKLINE(BB,CLOSE,OPEN,3,0),COLORFF7700{XG51};
STICKLINE(BB,CLOSE,OPEN,2.2,0),COLORFF9900{XG51};
STICKLINE(BB,CLOSE,OPEN,1.5,0),COLORFFBB00{XG51};
STICKLINE(BB,CLOSE,OPEN,0.5,0),COLORGREEN{XG51};
MAA:MAR1,COLOR00FF00,LINETHICK2{XG51};
IF(MAA>=REF(MAA,1),MAA,DRAWNULL),COLORWHITE,LINETHICK2{XG51};
IF(MAA<REF(MAA,1),MAA,DRAWNULL),COLORFFFFFF,LINETHICK2{XG51};
MAB:MA(CLOSE,P2),COLOR00FF00,LINETHICK2{XG51};
IF(MAB>=REF(MAB,1),MAB,DRAWNULL),COLORLIMAGENTA,LINETHICK2{XG51};
IF(MAB<REF(MAB,1),MAB,DRAWNULL),COLORCYAN,LINETHICK2{XG51};
SJ8:=STRCAT(STRCAT(N8,Y8), R8);
VAR2:=(2*CLOSE+HIGH+LOW)/4{XG51};
VAR3:=IF(YEAR>=2099 AND MONTH>2,0,1){XG51};
VAR4:=LLV(LOW,5);
VAR5:=HHV(HIGH,4){XG51};
VAR6:=ema((VAR2-VAR4)/(VAR5-VAR4)*100,4)*VAR3{XG51};
VAR7:=EMA(0.667*REF(VAR6,1)+0.333* VAR6,2)*VAR3{XG51};
DRAWTEXT(crOSS(VAR6, VAR7) AND VAR6<30,L-0.05,'←低吸'),COLOR00FFFF{XG51};
DRAWTEXT(CROSS(VAR7, VAR6) AND VAR6>70,H+0.05,'←高抛'),COLOR00FFFF{XG51};
DRAWICON(CROSS(VAR6, VAR7) AND VAR6<30,L-0.05,13){XG51};
DRAWICON(CROSS(VAR7, VAR6) AND VAR6>70,H+0.05,14){XG51};
AAA:= MAA>=REF(MAA,1){XG51};
BBB:= MAA<REF(MAA,1){XG51};
DDD:=MAB>=REF(MAB,1){XG51};
EEE:=MAB<REF(MAB,1){XG51};
TT:=IF(ISLASTBAR,240/FROMOPEN,1){XG51};
NN:=120{XG51};
HH:=HHV(V*TT,NN){XG51};
LL:=LLV(V,NN){XG51};
最高:=CONST(HH){XG51};
最低:=CONST(LL){XG51};
最高2:=CONST(HHV(H,NN)){XG51};
最低2:=CONST(LLV(L,NN)){XG51};
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{XG51};
RCC1:=最高2*0.9-(最高2-最低2)*PP{XG51};
最低3:=MIN(RCC1,最低2){XG51};
AA1:=最低3{XG51};
STICKLINE(AAA,AA1-0.000*AA1,AA1-0.040*AA1,4,0),COLOR0000FF{XG51};
STICKLINE(BBB,AA1-0.000*AA1,AA1-0.040*AA1,4,1),COLOR686868{XG51};
STICKLINE(EEE,AA1-0.050*AA1,AA1-0.090*AA1,4,1),COLOR686868{XG51};
STICKLINE(DDD,AA1-0.050*AA1,AA1-0.090*AA1,4,0),COLORFF00FF{XG51};
DRAWTEXT_FIX(C>0,0.5,0,0,SJ8),COLOR00FFFF{XG51};
DRAWTEXT_FIX(1,0.5,0.84,0,'★★ A-红色均线持股 ★ ★ B-粉色均线持股★★'),COLOR00FFFF{XG51};
今日保护价:(REF(C,2)+REF(C,1)+O)/3,COLOR00FFFF,NODRAW{XG51};
顶点:IF(CURRBARSCOUNT<=60,CONST(IF(ISLASTBAR=1,HHV(H,BArslAST(CURRBARSCOUNT=60)),1)),DRAWNULL),COLORWHITE,DOTLINE{XG51};
低点:IF(CURRBARSCOUNT<=60,CONST(IF(ISLASTBAR=1,LLV(L,BARSLAST(CURRBARSCOUNT=60)),1)),DRAWNULL),COLORLIMAGENTA,DOTLINE{XG51};
STICKLINE(cci>=200 AND H>=顶点,O,C,3,0),COLORYELLOW{XG51};
STICKLINE(CCI<=100 AND L<=低点,O,C,3,0),COLORBLUE{XG51};
DRAWTEXT(ISLASTBAR,顶点,'顶点'),COLORWHITE{XG51};
DRAWTEXT(ISLASTBAR,低点,'低点'),COLORLIMAGENTA{X_G.5*1_C_N_{};

源码正文：

VAR2:=(CLOSE-LLV(LOW,15))/(HHV(HIGH,15)-LLV(LOW,15))*100;
VAR3:=SMA(VAR2,5,1);
VAR4:=REF(VAR3,1);
VAR5:=Sma(VAR3,10,1);
VAR6:=(HHV(HIGH,52)-CLOSE)/(HHV(HIGH,52)-LLV(LOW,52))*100;
VAR7:=MA(VAR6,5);
VAR8:=LLV(LOW,5)=LLV(LOW,120);
VAR9:=REF(CLOSE,1);
VARA:=SMA(MAX(CLOSE-VAR9,0),6,1)/SMA(Abs(CLOSE-VAR9),6,1)*100;
VARB:=SMA(MAX(CLOSE-VAR9,0),12,1)/SMA(ABS(CLOSE-VAR9),12,1)*100;
VARC:=(CLOSE+LOW+HIGH)/3;
VARD:=SUM((VARC-REF(LOW,1)-(HIGH-VARC))*vol/100000/(HIGH-LOW),0);
VARE:=ema(VARD,1);
VARF:=VARE;
VAR10:=MA(VARE,12);
VAR11:=MA(VARE,26);
VAR12:=(VARF-VAR10)*60;
VAR13:=IF(VAR12>0.05,VAR12,0);
VAR14:=IF(VAR13>50,50,VAR13);
VAR15:=CAPITAL/EMA(VOL,5)/30*1.1;
VAR16:=VAR15;
VAR17:=EMA(COst(85),10);
VAR18:=EMA(COST(1),10);
VAR19:=EMA(CLOSE,10);
VAR1A:=(VAR19-VAR18)*100/(VAR17-VAR18);
VAR1B:=REF(VAR1A,1);
VAR1C:=(CLOSE-REF(CLOSE,12))/REF(CLOSE,12)*100;
VAR1D:=(INDEXC-REF(INDEXC,12))/REF(INDEXC,12)*100;
VAR1E:=EMA(VAR1C-VAR1D,4);
VAR1F:=EMA(VAR1D-VAR1C,4);VAR20:=MA(VAR1C,4);
VAR21:=MA(VAR1C,8);
VAR22:=REF(VAR20,1);
VAR23:=MA((VAR1A-REF(VAR1A,12))/REF(VAR1A,12)*100,4);
VAR24:=IF(VAR23<=-20,-20,VAR23);
VAR25:=IF(VAR24>=20,20,VAR24);
VAR26:=VAR25;
VAR27:=REF(VAR26,1);
VAR28:=REF(VAR26,5);
VAR29:=IF(crOSS(VAR14,VAR16),1,0);
VAR2A:=IF(VAR14<VAR16,-10,10);
VAR2B:=IF(VAR1E>VAR1F,5,-5);
VAR2C:=IF(VAR3>VAR5,5,-5);
VAR2D:=IF(VAR20>VAR21,6,-6);
VAR2E:=IF(VAR20>0 AND VAR20>VAR21,8,-8);
VAR2F:=IF(VAR26<0,-10,10);
VAR30:=IF(VAR20>VAR22,10,-10);
VAR31:=IF(VAR26>VAR27,5,0);
VAR32:=IF(VAR26<VAR27,-5,0);
VAR33:=IF(CLOSE>OPEN,3,-3);
走势: (VAR2A+VAR2B+VAR2C+VAR2D+VAR2E+VAR2F+VAR30+VAR31+VAR32+VAR33);
VAR34:=REF(CLOSE,2)*0.865;
VAR35:=REF(CLOSE,13)*0.772;
VAR36:=MIN(VAR34,VAR35);
VAR37:=100*VOL/CAPITAL;
VAR38:=MA(CLOSE,13);
VAR39:=CLOSE>0.899*REF(CLOSE,1) AND CLOSE<0.901*REF(CLOSE,1);
VAR3A:=EMA(WINNER(CLOSE)*100,5);
VAR3B:=EMA(WINNER(CLOSE)*100,30)-CAPITAL/EMA(VOL,30)/5;
VAR3C:=CAPITAL/EMA(VOL,5)/5;
VAR3D:=VAR3A;
VAR3E:=IF(VAR3D>0,0-VAR3D,0-VAR3D);
VAR3F:=REF(VAR3D,1);
主力趋势: (VAR3B+50);
VAR40:=VAR3B+50;
VAR41:=REF(VAR40,1);
VAR42:=MA(CLOSE,5);
VAR43:=MA(CLOSE,10);
VAR44:=MA(CLOSE,30);
VAR45:=MA(CLOSE,12);
VAR46:=MA(CLOSE,26);
VAR47:=REF(VAR45,1);
VAR48:=REF(VAR46,1);
VAR49:=(VAR45-VAR46)/VAR45*100;
VAR4A:=ABS(VAR45-VAR47)/VAR45*100;
VAR4B:=REF(VAR46,1);
VAR4C:=REF(VAR4A,1);
VAR4D:=REF(VAR42,1);
VAR4E:=REF(VAR43,1);
VAR4F:=COUNT(CLOSE>REF(CLOSE,1),5)/5*100;
VAR50:=(HHV(HIGH,36)-CLOSE)/(HHV(HIGH,36)-LLV(LOW,36))*100;
VAR51:=SMA(VAR50,5,1);
VAR52:=(CLOSE-LLV(LOW,8))/(HHV(HIGH,8)-LLV(LOW,8))*100;
VAR53:=SMA(VAR52,2,1);
VAR54:=MA(VOL/CAPITAL,30)*MA(VOL,60)/10000+MA(CLOSE,30)*8;
VAR55:=REF(VAR51,1);
VAR56:=REF(VAR53,1);
VAR57:=REF(VAR54,1);
VAR58:=MA(VAR53,5);
VAR59:=MA(VAR53,12);
VAR5A:=MA(VAR53,26);
VAR5B:=REF(VAR4F,1);
VAR5C:=(VAR54-VAR57)/VAR54*100;
VAR5D:=SMA(VAR50,5,1);
VAR5E:=REF(VAR5D,1);
VAR5F:=SMA(VAR52,2,1);
VAR60:=REF(VAR5F,1);
VAR61:=IF(CLOSE>OPEN,1,0);
VAR62:=IF(VAR42>VAR4D,1,0);
VAR63:=IF(VAR43>VAR4E,1,0);
VAR64:=IF(VAR4A>VAR4C,1,0);
VAR65:=IF(VAR53>VAR56,5,0);
VAR66:=IF(VAR55>VAR51,5,0);
VAR67:=IF(VAR54>VAR57,2,0);
VAR68:=IF(VAR49>2.25,10,0);
VAR69:=IF(VAR53>60,6,0);
VAR6A:=IF(VAR53>80,8,0);
VAR6B:=IF(VAR53>VAR51,10,0);
VAR6C:=IF(VAR53>VAR51,VAR59-VAR5A,0);
VAR6D:=IF(VAR53>VAR51 AND VAR51<20,5,0);
VAR6E:=IF(CLOSE>VAR45 AND VAR45>VAR46,5,0);
VAR6F:=IF(VAR45>VAR46,5,0);
VAR70:=IF(VAR46>VAR4B,5,0);
VAR71:=IF(VAR51<18,VAR58-VAR51,0);
VAR72:=IF(VAR51>VAR53 AND VAR51>50,8,0);
VAR73:=(VAR61+VAR62+VAR63+VAR64+VAR65+VAR66+VAR67+VAR68+VAR69+VAR6A+VAR6B+VAR6C+VAR6D+VAR6E+VAR6F+VAR70+VAR71-VAR72);
VAR74:=REF(VAR73,1);
多头:=MA(VAR73,5);
VAR75:=MA(VAR73,8);
VAR76:=MA(VAR73,12);
VAR77:=MA(VAR73,26);
VAR78:=MA(VAR73,13);
VAR79:=REF(VAR76,1);
VAR7A:=REF(VAR76,2);
VAR7B:=IF(CROSS(VAR3,VAR5) AND VAR4<35 AND VAR7>50 AND VAR1A<25 AND VAR1A>VAR1B AND VAR41<VAR40 AND (VARA>VARB AND VARB>VAR3 OR VARA>VAR3 AND VAR8),100,0);
VAR7C:=IF((CLOSE-VAR36)/CLOSE<0.1 AND VAR41<VAR40 AND SUM(VAR37,5)/5<1.8,100,0);
VAR7D:=IF(CROSS(VAR3,VAR5) AND VAR8 AND VAR3<25 AND VAR1A<20 OR CROSS(VAR3,VAR5) AND VAR8 AND VAR3<40 AND VAR1A<10,100,0);
信号: IF(VAR7B=100 OR VAR7C=100 OR VAR7D=100,20,-50);DRAWTEXT_FIX(C>O,0.01,0.9,0,' 理想财富 '),COLORWHITE{XG51};
DRAWTEXT_FIX(C>O,1,1,0,'程序化交易模型'),COLORWHITE{X_G=5+1_C_N_{};