通达信红财神源码副图,通达信公式

以下是通达信红财神源码副图源码和使用说明

通达信红财神源码副图源码：

    P:=13;S:=5;M:=1;
    DIFF:Ema(C,S)-EMA(C,P);
    DEA:EMA(DIFF,M),COLORRED;
    macd:2*(DIFF-DEA),COLORstICK;
    P1:=P;S1:=S;
    DIFF1:EMA(C,S1)-EMA(C,P1);
    DEA1:EMA(DIFF,M),COLORRED;
    MacD1:=2*(DIFF1-DEA1),COLORSTICK;
    MACD2:=DEA;
    STICKLINE(MACD2<=REF(MACD2,1)ANDMACD2>0,0,MACD2*50,3,0),COLOR00AAFF;
    STICKLINE(MACD2<=REF(MACD2,1)ANDMACD2>0,0,MACD2*50,1.8,0),COLOR00BBFF;
    STICKLINE(MACD2<=REF(MACD2,1)ANDMACD2>0,0,MACD2*50,1.3,0),COLOR00CCFF;
    STICKLINE(MACD2<=REF(MACD2,1)ANDMACD2>0,0,MACD2*50,1.2,0),COLOR00ddfF;
    STICKLINE(MACD2<=REF(MACD2,1)ANDMACD2>0,0,MACD2*50,1,0),COLOR00EEFF;
    STICKLINE(MACD2<=REF(MACD2,1)ANDMACD2>0,0,MACD2*50,0.5,0),COLOR00FFFF;
    STICKLINE(MACD2>REF(MACD2,1)ANDMACD2>0,0,MACD2*50,3.4,0),COLOR0000AA;
    STICKLINE(MACD2>REF(MACD2,1)ANDMACD2>0,0,MACD2*50,3.2,0),COLOR0011BB;
    STICKLINE(MACD2>REF(MACD2,1)ANDMACD2>0,0,MACD2*50,3,0),COLOR0022CC;
    STICKLINE(MACD2>REF(MACD2,1)ANDMACD2>0,0,MACD2*50,2,0),COLOR0033DD;
    STICKLINE(MACD2>REF(MACD2,1)ANDMACD2>0,0,MACD2*50,1,0),COLOR0044EE;
    STICKLINE(MACD2>REF(MACD2,1)ANDMACD2>0,0,MACD2*50,0.5,0),COLOR0055FF;
    STICKLINE(MACD2>REF(MACD2,1)ANDMACD2<=0,0,MACD2*50,3.4,0),COLORAA00BB;
    STICKLINE(MACD2>REF(MACD2,1)ANDMACD2<=0,0,MACD2*50,3.2,0),COLORBB11BB;
    STICKLINE(MACD2>REF(MACD2,1)ANDMACD2<=0,0,MACD2*50,3,0),COLORCC22BB;
    STICKLINE(MACD2>REF(MACD2,1)ANDMACD2<=0,0,MACD2*50,2,0),COLORDD33BB;
    STICKLINE(MACD2>REF(MACD2,1)ANDMACD2<=0,0,MACD2*50,1,0),COLOREE44BB;
    STICKLINE(MACD2>REF(MACD2,1)ANDMACD2<=0,0,MACD2*50,0.5,0),COLORFF55BB;
    STICKLINE(MACD2<=REF(MACD2,1)ANDMACD2<=0,0,MACD2*50,3,0),COLORFF7700;
    STICKLINE(MACD2<=REF(MACD2,1)ANDMACD2<=0,0,MACD2*50,1.5,0),COLORFF8811;
    STICKLINE(MACD2<=REF(MACD2,1)ANDMACD2<=0,0,MACD2*50,1.2,0),COLORFFAA22;
    STICKLINE(MACD2<=REF(MACD2,1)ANDMACD2<=0,0,MACD2*50,1.0,0),COLORFFBB33;
    STICKLINE(MACD2<=REF(MACD2,1)ANDMACD2<=0,0,MACD2*50,0.8,0),COLORFFDD44;
    STICKLINE(MACD2<=REF(MACD2,1)ANDMACD2<=0,0,MACD2*50,0.5,0),COLORFFFF55;
    VARA:=REF(LOW,1);
    VARB:=SMA(Abs(LOW-VARA),3,1)/SMA(MAX(LOW-VARA,0),3,1)*100;
    VARC:=EMA(IF(CLOSE*1.3,VARB*10,VARB/10),3);
    VARD:=LLV(LOW,30);
    VARE:=HHV(VARC,30);
    VARF:=IF(MA(CLOSE,58),1,0);
    VARG:=EMA(IF(LOW<=VARD,(VARC+VARE*2)/2,0),3)/618*VARF;
    VARH:=IF(VARG>28,28,VARG);
    吸筹:STICKLINE(VARH>-120,0,VARH,6,1),COLOR0FFFFF;
    备钱:IF(吸筹,1,0),COLOR0FFFFF;
    RSV:=(((CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9)))*100);
    K:=SMA(RSV,3,1);
    D:=SMA(K,3,1);
    J:=3*K-2*D;
    X:=LLV(J,2)=LLV(J,8);
    买入时机:IF(crOSS(J,3),65,0),COLORFF00FF,LINETHICK3;
    DRAWTEXT(买入时机,70.1,'跟庄'),COLOR00FF00;
    VA:=(2*C+H+L)/4;
    VB:=LLV(L,5);
    VC:=HHV(H,5);
    红线上穿买:EMA((VA-VB)/(VC-VB)*100,5),COLORRED;
    红线下穿卖:EMA(红线上穿买,3),COLORFFFF00;
    趋势:3*SMA((CLOSE-LLV(LOW,27))/(HHV(HIGH,27)-LLV(LOW,27))*100,5,1)-2*SMA(SMA((CLOSE-LLV(LOW,27))/(HHV(HIGH,27)-LLV(LOW,27))*100,5,1),3,1),COLOR00FFFF;
    秘密买点:IF(趋势<=3,20,0),COLOR00FF00,LINETHICK3;
    机构建仓:IF(趋势<5,40,0),COLORFFFFFF,LINETHICK3;
    N:=5;
    VAR1:4*SMA((CLOSE-LLV(LOW,N))/(HHV(HIGH,N)-LLV(LOW,N))*100,5,1)-
    3*SMA(SMA((CLOSE-LLV(LOW,N))/(HHV(HIGH,N)-LLV(LOW,N))*100,5,1),3.2,1),COLORYELLOW,LINETHICK0;
    VAR2:8,COLORGREEN,LINETHICK0;
    上升在即:IF(CROSS(VAR1,VAR2),80,0),STICK,COLOR0000CC,LINETHICK2;
    专吸庄血:IF(VAR1<=8,25,0),STICK,COLORWHITE,LINETHICK2;
    DRAWTEXT(CROSS(VAR1,VAR2),80,'准备买入'),COLOR00FFFF;
    J1:=REVERSE(J);
    AA:=REF(MA(C,1),10)>REF(MA(C,60),10);
    买点:CROSS(J,J1)ANDAA;
    STICKLINE(买点,0,-30,-12,0),COLOR0000FF;
    STICKLINE(买点,-20,-30,-10,0),COLORWHITE;
    STICKLINE(买点,-20,-30,-6,0),COLORYELLOW;
    DRAWTEXT(买点,-35,'财神'),COLORFF00FF;
    买线:=EMA(C,2);
    卖线:=EMA(SLOPE(C,21)*20+C,42);
    STICKLINE(买线>=卖线,REFDATE(HHV(H,0),DATE),REFDATE(LLV(L,0),DATE),6,0),COLOR001050;
    STICKLINE(买线<卖线,REFDATE(HHV(H,0),DATE),REFDATE(LLV(L,0),DATE),6,0),COLOR404050;
    DRAWKLINE(H,O,L,C);
    指导:=EMA((EMA(CLOSE,4)+EMA(CLOSE,6)+EMA(CLOSE,12)+EMA(CLOSE,24))/4,2);
    界:=MA(CLOSE,27);
    B买:IF(CROSS(指导,界)ORCROSS(买线,卖线),C,DRAWNULL),COLORMAGENTA,NODRAW;持仓:IF(买线>=卖线,C,DRAWNULL),COLORRED,NODRAW;
    S卖:IF(CROSS(界,指导)ORCROSS(卖线,买线),C,DRAWNULL),COLORLIGRAY,NODRAW;
    空仓:IF(买线<卖线,C,DRAWNULL),COLORGREEN,NODRAW;
    DRAWICON(CROSS(买线,卖线),L,1);
    DRAWICON(CROSS(卖线,买线),H,2);
    MA5:MA(CLOSE,M1),COLORFFFFFF;
    MA13:MA(CLOSE,M2),COLOR00FF00;
    MA21:MA(CLOSE,M3),COLOR8000FF;
    MA77:MA(CLOSE,M4),LINETHICK2;
    MA99:MA(CLOSE,M5),LINETHICK2;
    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),1))AND(REF(ZIG(3,5),1)>=REF(ZIG(3,5),2))AND(REF(ZIG(3,5),2)>=REF(ZIG(3,5),3)),HIGH*1.01,2);
    VAR3:=(CLOSE-MA(CLOSE,6))/MA(CLOSE,6)*100;
    VAR4:=(CLOSE-MA(CLOSE,24))/MA(CLOSE,24)*100;
    VAR5:=(CLOSE-MA(CLOSE,32))/MA(CLOSE,32)*100;
    VAR6:=(VAR3+VAR4+VAR5)/3;
    VAR7:=EMA(VAR6,5);
    ZB:=EMA(EMA(VAR3,5),5)*3,COLORSTICK;
    VAR8:=IF(VAR6<=-20,10,0);
    VAR9:=HHV(VAR8,10);
    VARA:=IF(VAR9ANDCROSS(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))ANDJ>10;
    HS:=VOL/CAPITAL*100,,COLORGREEN;
    DRAWTEXT(VAR8=10ANDFILTER(VAR8=10,5),LOW*0.93,'接近底部')COLORMAGENTA;
    DRAWTEXT(VARA=20,LOW*0.95,'底部')COLORYELLOW;
    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);
    VAR10:=100-3*SMA((OPEN-LLV(LOW,75))/(HHV(HIGH,75)-LLV(LOW,75))*100,20,1)+2*SMA(SMA((OPEN-LLV(LOW,75))/(HHV(HIGH,75)-LLV(LOW,75))*100,20,1),15,1);
    VAR11:=VARF<REF(VAR10,1)ANDVOL>REF(VOL,1)ANDCLOSE>REF(CLOSE,1);
    DRAWTEXT(VAR11ANDCOUNT(VAR11,30)=1,LOW*0.95,'资金'),LINETHICK1,COLORFF00FF;
    VAR12:=(HIGH+LOW+CLOSE)/3;
    VAR13:=(VAR12-MA(VAR12,14))/(0.015*AVEDEV(VAR12,14));
    VAR14:=(VAR12-MA(VAR12,70))/(0.015*AVEDEV(VAR12,70));
    VAR15:=IF(VAR13>=150ANDVAR13<200ANDVAR14>=150ANDVAR14<200,10,0);
    VAR16:=IF(VAR13<=-150ANDVAR13>-200ANDVAR14<=-150ANDVAR14>-200,-10,VAR15);
    VAR17:=(CLOSE-MA(CLOSE,13))/MA(CLOSE,13)*100;
    VAR18:=100-ABS(VAR17);
    VAR19:=IF(VAR18<90,VAR18,100);
    VAR1A:=IF(VARE>0,VARE,0);
    VAR1B:=IF(VAR14>=200ANDVAR13>=150,15,IF(VAR14<=-200ANDVAR13<=-150,-15,VAR16))+60;
    VAR1C:=VAR1A>48ANDVAR1B>60ANDVAR19<100;
    DRAWTEXT(VAR1CANDCOUNT(VAR1C,30)=1,LOW*0.95,'大笔')COLORWHITE;
    VAR1:=ZIG(3,13);
    STICKLINE((REF(VAR1,2)<REF(VAR1,1))AND(VAR1<REF(VAR1,1)),CLOSE,OPEN,5,0),COLOR66FF00;
    AAA:=CONST(HHV(H*0.85,90));
    A74:=MA(CLOSE,20);
    A75:=(CLOSE>MA(CLOSE,5));
    A76:=(MA(CLOSE,5)>MA(CLOSE,10));
    A77:=(CLOSE>MA(CLOSE,10));
    A78:=(MA(CLOSE,5)>MA(CLOSE,20));
    A79:=(CLOSE>MA(CLOSE,20));
    A710:=REF(A74,1);
    A711:=(A74>A710);
    AVX:=(((((IF(A75,10,(0-10))+IF(A76,10,(0-10)))+IF(A77,10,(0-10)))
    +IF(A78,10,(0-10)))+IF(A79,10,(0-10)))+IF(A711,10,(0-10)));
    DSLX:=(CLOSE/INDEXC);
    DSLX1:=MA(DSLX,5);
    DSLX2:=MA(DSLX,10);
    V1:=MA(VOL,5);
    V2:=MA(VOL,10);
    T1:=CONST(IF(C<200AND((CROSS(AVX,1)AND(V1>=V2))AND(DSLX>=DSLX1)),1,0));
    T2:=CONST(IF(C<200AND((CROSS(AVX,1)AND(V1<V2))AND(DSLX>=DSLX1)),1,0));
    T3:=CONST(IF(C<200AND((CROSS(AVX,1)AND(V1>V2))AND(DSLX<DSLX1)),1,0));
    T4:=CONST(IF(C<200AND((CROSS(AVX,1)AND(V1<=V2))AND(DSLX<DSLX1)),1,0));
    T5:=CONST(IF(C<200AND((CROSS(1,AVX)AND(V1>=V2))AND(DSLX>=DSLX1)),1,0));
    T6:=CONST(IF(C<200AND((CROSS(1,AVX)AND(V1<V2))AND(DSLX>=DSLX1)),1,0));
    T7:=CONST(IF(C<200AND((CROSS(1,AVX)AND(V1>=V2))AND(DSLX<DSLX1)),1,0));
    T8:=CONST(IF(C<200AND((CROSS(1,AVX)AND(V1<V2))AND(DSLX<DSLX1)),1,0));
    T9:=CONST(IF(C<200AND((((AVX>=1)AND(REF(AVX,1)>0))AND(V1>=V2))AND(DSLX>=DSLX1)),1,0));
    T10:=CONST(IF(C<200AND((((AVX>=1)AND(REF(AVX,1)>0))AND(V1<V2))AND(DSLX>=DSLX1)),1,0));
    T11:=CONST(IF(C<200AND((((AVX>=1)AND(REF(AVX,1)>0))AND(V1>=V2))AND(DSLX<DSLX1)),1,0));
    T12:=CONST(IF(C<200AND((((AVX>=1)AND(REF(AVX,1)>0))AND(V1<V2))AND(DSLX<DSLX1)),1,0));
    T13:=CONST(IF(C<200AND((((AVX<1)AND(REF(AVX,1)<0))AND(V1>=V2))AND(DSLX>=DSLX1)),1,0));
    T14:=CONST(IF(C<200AND((((AVX<1)AND(REF(AVX,1)<0))AND(V1<V2))AND(DSLX>=DSLX1)),1,0));
    T15:=CONST(IF(C<200AND((((AVX<1)AND(REF(AVX,1)<0))AND(V1>=V2))AND(DSLX<DSLX1)),1,0));
    T16:=CONST(IF(C<200AND((((AVX<1)AND(REF(AVX,1)<0))AND(V1<V2))AND(DSLX<DSLX1)),1,0));
    T17:=CONST(IF(C>200AND(CROSS(AVX,1)AND(V1>=V2)),1,0));
    T18:=CONST(IF(C>200AND(CROSS(AVX,1)AND(V1>=V2)),1,0));
    T19:=CONST(IF(C>200AND(CROSS(AVX,1)AND(V1<V2)),1,0));
    T20:=CONST(IF(C>200AND(CROSS(1,AVX)AND(V1>=V2)),1,0));
    T21:=CONST(IF(C>200AND(CROSS(1,AVX)AND(V1<V2)),1,0));
    T22:=CONST(IF(C>200AND(((AVX>=1)AND(REF(AVX,1)>0))AND(V1>=V2)),1,0));
    T23:=CONST(IF(C>200AND(((AVX>=1)AND(REF(AVX,1)>0))AND(V1<V2)),1,0));
    T24:=CONST(IF(C>200AND(((AVX<1)AND(REF(AVX,1)<0))AND(V1>=V2)),1,0));
    T25:=CONST(IF(C>200AND(((AVX<1)AND(REF(AVX,1)<0))AND(V1<V2)),1,0));
    DRAWTEXT_FIX(T1=1ANDCURRBARSCOUNT=70,0,0.92,0,'量能理想,明显走强,中线参与，仓位在2/3左右。'),COLORFFFFFF;
    DRAWTEXT_FIX(T2=1ANDCURRBARSCOUNT=70,0,0.92,0,'走势趋强,还显不足,短线进场，仓位在1/2左右。'),COLORFFFFFF;
    DRAWTEXT_FIX(T3=1ANDCURRBARSCOUNT=70,0,0.92,0,'量价良好,没有明显走强，短线进场，仓位1/2左右。'),COLORFFFFFF;
    DRAWTEXT_FIX(T4=1ANDCURRBARSCOUNT=70,0,0.92,0,'形态尚可，量能不足，未完全走强，短线参与，仓位1/3左右。'),COLORFFFFFF;
    DRAWTEXT_FIX(T5=1ANDCURRBARSCOUNT=70,0,0.92,0,'形态变坏，重仓者减持大半，清仓者观望。'),COLORFFFFFF;
    DRAWTEXT_FIX(T6=1ANDCURRBARSCOUNT=70,0,0.92,0,'随大盘一起下跌，明显缩量走势，考虑到风险，减持或清仓。'),COLORFFFFFF;
    DRAWTEXT_FIX(T7=1ANDCURRBARSCOUNT=70,0,0.92,0,'该股放量下跌，走势明显偏弱，离场观望。'),COLORFFFFFF;
    DRAWTEXT_FIX(T8=1ANDCURRBARSCOUNT=70,0,0.92,0,'该股缩量下跌，走势偏弱，离场观望。'),COLORFFFFFF;
    DRAWTEXT_FIX(T9=1ANDCURRBARSCOUNT=70,0,0.92,0,'该股形态良好，强势明显，量能充足，可以继续持有。'),COLORFFFFFF;
    DRAWTEXT_FIX(T10=1ANDCURRBARSCOUNT=70,0,0.92,0,'上行趋势不变，强势依然，量能开始转弱，注意风险。'),COLORFFFFFF;
    DRAWTEXT_FIX(T11=1ANDCURRBARSCOUNT=70,0,0.92,0,'该股仍然具备上涨潜力，但股性偏弱，可考虑减仓。'),COLORFFFFFF;
    DRAWTEXT_FIX(T12=1ANDCURRBARSCOUNT=70,0,0.92,0,'该股走势趋弱，量能不足，减持大部分筹码。'),COLORFFFFFF;
    DRAWTEXT_FIX(T13=1ANDCURRBARSCOUNT=70,0,0.92,0,'该股形态不佳，注意成交量的变化，目前不适合参与。'),COLORFFFFFF;
    DRAWTEXT_FIX(T14=1ANDCURRBARSCOUNT=70,0,0.92,0,'趋势不明，股价偏弱，注意量能变化，目前不宜参与。'),COLORFFFFFF;
    DRAWTEXT_FIX(T15=1ANDCURRBARSCOUNT=70,0,0.92,0,'有走强迹象，但量能不足，趋势不明，不适合操作。'),COLORFFFFFF;
    DRAWTEXT_FIX(T16=1ANDCURRBARSCOUNT=70,0,0.92,0,'该股走势太弱，没有参与价值。'),COLORFFFFFF;
    DRAWTEXT_FIX(T17=1ANDCURRBARSCOUNT=70,0,0.92,0,'大盘理想，有明显走强迹象，中线参与，仓位在2/3左右。'),COLORFFFFFF;
    DRAWTEXT_FIX(T18=1ANDCURRBARSCOUNT=70,0,0.92,0,'如前期经过一轮下跌，最佳买点，前期有过一段涨幅需谨慎。'),COLORFFFFFF;
    DRAWTEXT_FIX(T19=1ANDCURRBARSCOUNT=70,0,0.92,0,'考虑短线进场，仓位在1/2左右，一旦量能放大,加仓买入。'),COLORFFFFFF;
    DRAWTEXT_FIX(T20=1ANDCURRBARSCOUNT=70,0,0.92,0,'大盘形态走坏，重仓者可以减去大部分仓位。'),COLORFFFFFF;
    DRAWTEXT_FIX(T21=1ANDCURRBARSCOUNT=70,0,0.92,0,'大盘缩量调整，注意风险，短线清仓观望。'),COLORFFFFFF;
    DRAWTEXT_FIX(T22=1ANDCURRBARSCOUNT=70,0,0.92,0,'大盘走势良好，量能理想，可以继续持有强势股。'),COLORFFFFFF;
    DRAWTEXT_FIX(T23=1ANDCURRBARSCOUNT=70,0,0.92,0,'大盘形态良好，但量能稍显不足，随时准备减仓。'),COLORFFFFFF;
    DRAWTEXT_FIX(T24=1ANDCURRBARSCOUNT=70,0,0.92,0,'大盘趋势不明，注意成交量变化，目前不适宜进场。'),COLORFFFFFF;
    DRAWTEXT_FIX(T25=1ANDCURRBARSCOUNT=70,0,0.92,0,'大盘趋势向下，量能萎缩，不适合进场。'),COLORFFFFFF;
    A1J:=ABS(((3.48*CLOSE+HIGH+LOW)/4-EMA(CLOSE,10))/EMA(CLOSE,10));{23}
    A2J:=DMA(((2.15*CLOSE+LOW+HIGH)/4),A1J);
    金线王:=EMA(A2J,5)*1;{200}
    金线王2:=EMA(A2J,200)*1.118;{200}
    条件:=(C-REF(C,1))/REF(C,1)*100>8;
    金K线:=CROSS(C,金线王)AND条件;
    RRFJ:=金K线,STICK;
    STICKLINE(IF(RRFJ,-120,0),+80,0,2,0),COLORLIMAGENTA;{COLOR000088;}
    DRAWTEXT(RRFJ,42,'---接财神'),COLORYELLOW;

通达信红财神源码副图截图