通达信日月司令部指标公式源码副图

　　stICKLINE(1,0,0.5,0,1),COLORWHITE;{0分界线}

　　STICKLINE(1,75.3,75.7,0,1),COLORRED;{76分界线}

　　STICKLINE(1,78.7,79,0,1),COLORRED;{80分界线}

　　STICKLINE(1,100,100.8,0,0),COLORYELLOW;{主力线---100分界线}

　　STICKLINE(1,95,96,0,0),COLORYELLOW; {主力线---95分界线}

　　STICKLINE(1,90,91,0,0),COLORCYAN; {主力线---90分界线}

　　{1. 总司令-趋势线}

　　LCZSL:=REF(CLOSE,1);rsi5:=((SMA(maX((CLOSE-LCZSL),0),5,1)/SMA(Abs((CLOSE-LCZSL)),5,1))*100); TRT:=SUM(MAX(MAX((HIGH-LOW),ABS((HIGH-REF(CLOSE,1)))),ABS((LOW-REF(CLOSE,1)))),10);

　　HD:=(HIGH-REF(HIGH,1));LD:=(REF(LOW,1)-LOW);DMP:=SUM(IF(((HD> 0) AND (HD>LD)),HD,0),10); DMM:=SUM(IF(((LD >0) AND (LD>HD)),LD,0),10);pdi:=((DMP*100)/TR);mdi:=((DMM*100)/TR);

　　ADX:=MA(((ABS((MDI-PDI))/(MDI+PDI))*100),5);AV:=(RSI5+ADX); DXR:=(((ADX+REF(ADX,5))/2)+RSI5);wr10:=((100*(HHV(HIGH,10)-CLOSE))/(HHV(HIGH,10)-LLV(LOW,10)));NEWvol:=(RSI5-WR10);

　　阶段底部:=(AV+NEWVOL)/2; {因整合到一幅图故除以2}

　　总司令:LLV(阶段底部,1),COLORBLUE; {总司令线}

　　草地:(阶段底部 <=-15),COLORGREEN,NODRAW; {底区间}

　　STICKLINE((阶段底部 <=0),-0.3,总司令,0,0),COLORBLUE; {重要-底区间}

　　STICKLINE((阶段底部 <=0),-0.1,0.3,0.4,0),COLORBLUE; {重要-底区间}

　　STICKLINE((阶段底部 <=-15),-15.3,总司令,0.6,0),COLORBLUE;{重要-底区间}

　　STICKLINE(草地,-1,-3,0.6,0),COLORGREEN; {重要-底区间}

　　STICKLINE((REF(总司令,1)>95 AND REF(总司令,1)>REF(总司令,2) AND 总司令95 小顶部点-下拐}

　　STICKLINE((REF(总司令,1)>95 AND REF(总司令,1)>REF(总司令,2) AND 总司令95 小顶部点-下拐}

　　STICKLINE((REF(总司令,1)>115) AND REF(总司令,1)>REF(总司令,2) AND 总司令115 大顶卖点-下拐}

　　STICKLINE(1,115,115.8,0,0),COLORBLUE;{总司令 115分界线}

　　{2. 获利筹码}

　　情报:WINNER(CLOSE)*100,COLORYELLOW;{获利筹码线}

　　STICKLINE(1,95.3,100,0,0),COLOR363636; {高部区间宽带}

　　STICKLINE(情报>0,情报*0.95,0,0,0),COLOR363636;

　　STICKLINE(情报>6 AND REF(情报*0.95,1)<6,5,6.2,0.1,0),COLORYELLOW; {提醒}

　　STICKLINE(1,5.7,6,0,0),COLORYELLOW;{获利筹码--6分界线}

　　{4. cci 柱状红绿提示}

　　STICKLINE(1,20.8,20,0,0),COLORWHITE; {CCI-200顶部区间宽带!重要}

　　STICKLINE(1,15.8,15,0,0),COLOR363636; {CCI-150顶部区间宽带!重要}

　　STICKLINE(1,-15.3,-20,0,0),COLOR363636; {CCI- -150~-200底部区间宽带!重要}

　　STICKLINE(1,-15.8,-15,0,0),COLORWHITE; {CCI-150顶部区间宽带!重要}

　　STICKLINE(1,-20.8,-20,0,0),COLORWHITE; {CCI-200顶部区间宽带!重要}

　　毛主席:CCI/10,COLORWHITE; {CCI线,除以10}

　　CCI3:=EMA(CCI,3);DIFFCCI:=MA(CCI3,2);

　　AAA:=CCI

　　BBB:=CCI>REF(CCI,1); STICKLINE(BBB,-45,-42,0,0),COLORRED; {CCI大于前一日提示} {柱状图}

　　CCC:=CCI3>DIFFCCI; STICKLINE(CCC,-45,-48,0,0),COLORRED; {CCI上升区间-可靠} {柱状图}

　　DDD:=CCI3

　　STICKLINE(CCI<-150,-42,-44,0.8,0),COLORWHITE; {提示-CCI 底区间} {柱状图}

　　STICKLINE((crOSS(CCI,-150)),-45,-42,1,0),COLORRED; {提示-CCI CROSS -150跨越底区间} {柱状图}

　　STICKLINE((CROSS(150,CCI)),-45,-42,1,0),COLORGREEN;{提示-CCI CROSS 150 下穿顶区间} {柱状图}

　　STICKLINE(CCI<-200,-20,毛主席,0.4,0),COLORWHITE; {重要提醒-CCI大底部区间-表示在CCI线上}

　　STICKLINE(CCI> 200, 20,毛主席,0.4,0),COLORWHITE; {重要提醒-CCI大顶部区间-表示在CCI线上}

　　{3. 红军主力线-筹码分布}

　　主力:MA(WINNER(CLOSE*0.95)*100,3),COLORCYAN; {重要-主力线}

　　VAR2:=1/WINNER(CLOSE); VAR3:=MA(CLOSE,13); VAR4:=100-ABS((CLOSE-VAR3)/VAR3*100); {涨跌幅偏离}

　　VAR5:=LLV(LOW,75); VAR6:=HHV(HIGH,75); VAR7:=(VAR6-VAR5)/100; VAR8:=SMA((CLOSE-VAR5)/VAR7,20,1); VAR9:=SMA((OPEN-VAR5)/VAR7,20,1);

　　VARA:=3*VAR8-2*SMA(VAR8,15,1); VARB:=3*VAR9-2*SMA(VAR9,15,1); VARC:=100-VARB;

　　空袭:=(100-IF(VAR2>5,IF(VAR2<100,VAR2,VAR4-10),0));

　　VARD:=主力>VAR4; VARE:=REF(LOW,1)*0.9; VARF:=LOW*0.9;

　　VAR10:=(VARF*VOL+VARE*(CAPITAL-VOL))/CAPITAL; VAR11:=EMA(VAR10,30); VAR12:=CLOSE-REF(CLOSE,1);

　　VAR13:=MAX(VAR12,0); VAR14:=ABS(VAR12); VAR15:=SMA(VAR13,7,1)/SMA(VAR14,7,1)*100;

　　VAR16:=SMA(VAR13,13,1)/SMA(VAR14,13,1)*100; VAR17:=BARSCOUNT(CLOSE); VAR18:=SMA(MAX(VAR12,0),6,1)/SMA(ABS(VAR12),6,1)*100;

　　VAR19:=(-200)*(HHV(HIGH,60)-CLOSE)/(HHV(HIGH,60)-LLV(LOW,60))+100; VAR1A:=(CLOSE-LLV(LOW,15))/(HHV(HIGH,15)-LLV(LOW,15))*100;

　　VAR1B:=SMA((SMA(VAR1A,4,1)-50)*2,3,1); VAR1C:=(INDEXC-LLV(INDEXL,14))/(HHV(INDEXH,14)-LLV(INDEXL,14))*100;

　　VAR1D:=SMA(VAR1C,4,1); VAR1E:=SMA(VAR1D,3,1); VAR1F:=(HHV(HIGH,30)-CLOSE)/CLOSE*100;

　　红河谷:VAR18<=25 AND VAR19<-95 AND VAR1F>20 AND VAR1B<-30 AND VAR1E<30 AND VAR11-CLOSE>=-0.25 AND VAR15<22 AND VAR16<28 AND VAR17>50,COLORRED,NODRAW;

　　雪山:VARD,COLORWHITE,NODRAW;

　　STICKLINE(红河谷,75,80,0.6,0),COLORRED; {红河谷-基本面好会大涨--长红针}

　　STICKLINE(红河谷,60,80,0,0),COLORRED; {红河谷-基本面好会大涨--长红针}

　　STICKLINE(主力>REF(主力,1),-53,-55,1,0),COLORRED; {柱状图}

　　STICKLINE(主力>REF(主力,1) AND REF(主力,1)<3,-53,-55,1,0),COLORRED; {柱状图 粗柱体：表示主力在低位}

　　STICKLINE(主力<=REF(主力,1),-53,-55,1,0),COLORGREEN;{柱状图}

　　STICKLINE(VARD,89,91,0.5,0),COLORWHITE; {雪山--警戒--VAR4与主力线交叉区域}

　　STICKLINE(VARD AND REF(主力,1)>REF(主力,2) AND 主力88,107,110,0.6,0),COLORCYAN; {大顶信号}

　　STICKLINE(VARD AND REF(主力,1)>REF(主力,2) AND 主力88,102,110,0,0),COLORCYAN; {大顶信号}

　　STICKLINE(REF(主力,1)>88 AND 主力REF(主力,2),105,110,0.5,0),COLORCYAN; {(主力,1)>88顶信号}

　　STICKLINE(REF(主力,1)>88 AND 主力REF(主力,2),102,110,0,0),COLORCYAN; {(主力,1)>88顶信号}

　　{日月CCI超跌大底将来}

　　TJ11:=MA(CCI,3);TJ22:=TJ11<=-190 OR REF(CCI,1)<=-190;

　　日落:TJ22>REF(TJ22,1) AND 主力<3,COLORWHITE,NODRAW; {第二天}

　　STICKLINE(日落,-42,-44,1,0),COLORWHITE;{提示-CCI超跌大底将来} {柱状图}

　　STICKLINE(日落,73,75,1,0),COLORWHITE;{提示-CCI超跌大底将来} {80线提示点}

　　{5. 日月bias超跌}

　　BIAS1:=(CLOSE-MA(CLOSE,6))/MA(CLOSE,6)*100;

　　BIAS2:=(CLOSE-MA(CLOSE,12))/MA(CLOSE,12)*100;

　　BIAS3:=(CLOSE-MA(CLOSE,24))/MA(CLOSE,24)*100;

　　BIAS:=(BIAS1+2*BIAS2+3*BIAS3)/6;乖离:=MA(BIAS,3);

　　日出:CROSS(BIAS,乖离) AND 乖离<-9,COLORRED,NODRAW;

　　STICKLINE(日出,75,77,1,0),COLORRED; {BIAS超跌}

　　{6. RSI 柱状红绿提示}

　　赤水深:RSI,COLORYELLOW,NODRAW;

　　RSIMA3:=EMA(RSI,3);DIFFRSI:=EMA(RSIMA3,2);

　　AA:=RSI>=REF(RSI,1); STICKLINE(AA,-41,-35,0,0),COLORRED; {RSI大于上一日} {柱状图}

　　BB:=RSI<=REF(RSI,1); STICKLINE(BB,-41,-35,0,0),COLORGREEN; {RSI小于上一日} {柱状图}

　　CC:=CROSS(RSIMA3,DIFFRSI);STICKLINE(CC,-41,-38,0,0),COLORRED; {RSIMA3上穿DIFF}{柱状图}

　　DD:=CROSS(DIFFRSI,RSIMA3);STICKLINE(DD,-41,-38,0,0),COLORGREEN; {RSIMA3下穿DIFF}{柱状图}

　　STICKLINE(RSI<20,-35,-37,1,0),COLORWHITE; {提示-RSI 底区间} {柱状图}

　　STICKLINE((CROSS(RSI,20)),-35,-38,1,0),COLORRED; {提示-RSI CROSS 20 跨越底区间} {柱状图}

　　STICKLINE((CROSS(80,RSI)),-35,-38,1,0),COLORGREEN; {提示-RSI CROSS 80 下穿顶区间} {柱状图}

　　{日月RSI下限底}

　　LCXX:=REF(CLOSE,1);

　　RSI20:=SMA(MAX(CLOSE-LCXX,0),5,1)/SMA(ABS(CLOSE-LCXX),5,1)*100;

　　下限:=LLV(RSI20,20); {是RSI20--20日以来最低}

　　RSI选股:=REF(RSI20,1)=REF(下限,1) AND RSI20>REF(RSI20,1) AND REF(RSI20,1)<10; {RSI<10绝对底部买进}

　　STICKLINE(RSI选股,-35,-33,2,0),COLORRED;{提示-RSI底部区间} { 粗 柱状图}

　　{7. RSI大底将来--周k线参考意义大，基本面好会大涨}

　　STICKLINE(1,81.3,82,0,0),COLORRED;{80-分界线}

　　LCDD:=REF(CLOSE,1);

　　TEMP1:=MAX(CLOSE-LCDD,0);TEMP2:=ABS(CLOSE-LCDD);

　　RSI16:=SMA(TEMP1,16,1)/SMA(TEMP2,16,1)*100,COLORYELLOW;

　　ERSI:=EMA(RSI16,2);

　　长征:REF(ERSI,1)<30 AND ERSI>REF(ERSI,1),COLORMAGENTA,NODRAW;{周K线参考意义大}

　　STICKLINE(长征,84,86,1,0),COLORMAGENTA;{画在85线的点提示}

　　{8.日月反攻}

　　FVAR1:=(CLOSE-LLV(LOW,13))/(HHV(HIGH,13)-LLV(LOW,13))*100;

　　FVAR2:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;

　　FVAR3:=(SMA(FVAR2,3,1)-18)*1.55;

　　FVAR4:=SMA(FVAR3,3,1);

　　FVAR5:=(CLOSE-LLV(LOW,100))/(HHV(HIGH,100)-LLV(LOW,100))*100;

　　FVAR6:=SMA(FVAR5,10,1);

　　FVAR7:=(EMA(SMA(FVAR6,8,1),34)-25)*2.6;

　　FVAR8:=POW(MA(CLOSE,5),2)+MA(CLOSE,5);

　　FVAR9:=POW(MA(LOW,5),2)+MA(LOW,5);

　　FVARA:=POW(MA(HIGH,5),2)+MA(HIGH,5);

　　FVARB:=((FVAR8-LLV(FVAR9,64))/(HHV(FVARA,64)-LLV(FVAR9,64))*150+65-10)/2;

　　FVARC:=SMA(FVARB,3,1)*1.5-46;

　　FVARD:=SMA(FVARC,3,1);

　　FVARE:=3*FVARC-2*VARD;

　　FVARF:=(FVAR1+FVAR2+FVAR5)/3;

　　FVAR10:=((FVAR3+FVAR3+FVAR6+FVARC)/4-15)*1.67;

　　FVAR11:=((FVAR4+FVAR4+FVAR7+FVARD)/4-15)*1.67;

　　FVAR12:=((FVAR1+FVAR5*2+FVARF+FVAR10+FVAR11+FVARB+FVARC+FVARD+FVARE)/10-15)*1.67;

　　FVAR13:=(HHV(HIGH,5)-CLOSE)/(HHV(HIGH,5)-LLV(LOW,5))*(-1)+0.9;

　　FVAR14:=(HHV(HIGH,10)-CLOSE)/(HHV(HIGH,10)-LLV(LOW,10))*(-1)+0.92;

　　FVAR15:=(HHV(HIGH,15)-CLOSE)/(HHV(HIGH,15)-LLV(LOW,15))*(-1)+0.93;

　　FVAR16:=(HHV(HIGH,55)-CLOSE)/(HHV(HIGH,55)-LLV(LOW,55))*(-1)+0.94;

　　FVAR17:=(HHV(HIGH,89)-CLOSE)/(HHV(HIGH,89)-LLV(LOW,89))*(-1)+0.95;

　　FVAR18:=(HHV(HIGH,120)-CLOSE)/(HHV(HIGH,120)-LLV(LOW,120))*(-1)+0.91;

　　FVAR19:=(HHV(HIGH,180)-CLOSE)/(HHV(HIGH,180)-LLV(LOW,180))*(-1)+0.96;

　　FVAR1A:=((FVAR13*8+FVAR14*8+FVAR15*8+FVAR16+FVAR17+FVAR18+FVAR19)/28-0.1)*185;

　　FVAR1B:=SMA(FVAR1A,3,1);FVAR1C:=(SMA(FVAR1B,8,1)-8)*1.18;

　　浮动筹码:= (FVAR10+FVAR11+FVAR12+FVARC+FVARD+FVARE+FVAR1C+FVAR7)/13 ;

　　浮动筹码1:= (FVAR10+FVAR11+FVAR12+FVARC+FVARD+FVARE+FVAR1C+FVAR7)/21 ;

　　浮动筹码2:= (FVAR10+FVAR11+FVAR12+FVARC+FVARD+FVARE+FVAR1C+FVAR7)/34;

　　获利筹码:= (FVAR3+FVAR6+FVAR1B*2)/4 ;

　　FVARA1:=(CLOSE-LLV(LOW,60.13547854))/(HHV(HIGH,60.13547854)-LLV(LOW,60))*80;

　　FVARB1:=SMA(FVARA1,7,1);FVARC1:=SMA(FVARB1,5,1);

　　英雄:=IF(CROSS(FVARB,FVARC) AND FVARB<20,100,0),LINETHICK2,COLORRED;

　　FVAR2N:=LLV(LOW,3)<=LLV(LOW,60);FVAR3N:=C>O AND (C/O>1.03 OR C>1.03*REF(C,1));

　　绝地反攻:=IF(FVAR2N AND FVAR3N,90,0),COLORYELLOW,LINETHICK2;

　　TJXG:=EXIST(绝地反攻,1);

　　反攻:TJXG,NODRAW,COLORRED;

　　STICKLINE(反攻,80,78,1,0),COLORRED; {柱状图-提示}

　　{10.操盘资金 - 柱状红绿提示}

　　XA1:=DMA((HIGH+LOW+CLOSE*2)/4,0.9);

　　XA2:=REF(EMA(XA1,3),1);

　　操盘:=MA((CLOSE-XA2)*10,2);

　　STICKLINE(操盘<=0,-57,-59,1,0),COLORGREEN;{柱状图}

　　STICKLINE(操盘>0,-57,-59,1,0),COLORRED; {柱状图}

　　{11.日月十战七胜}

　　MAA5:=MA(C,5);MAA10:=MA(C,10);MAA30:=MA(C,30); KS:=IF(MAA10>MAA30,MAA10,MAA30);

　　A3:=(C-LLV(L,9))/(HHV(H,9)-LLV(L,9))*100;A4:=SMA(A3,3,1);A5:=SMA(A4,3,1); A6:=3*A4-2*A5;A7:=C-REF(C,1);A8:=100*EMA(EMA(A7,6),6)/EMA(EMA(ABS(A7),6),6);

　　十战七胜:=LLV(A8,2)=LLV(A8,7) AND COUNT(A8<0,2) AND CROSS(A8,MA(A8,2));

　　STICKLINE(十战七胜,81,83,1,0),COLORRED; {82线的红点提示}

　　{9. 第23军-二十三日线}

　　第23军:(((7*SMA((((CLOSE-LLV(LOW,23))/(HHV(HIGH,23)-LLV(LOW,23)))*30),4,1))-(3*SMA(SMA((((CLOSE-LLV(LOW,23))/(HHV(HIGH,23)-LLV(LOW,23)))*30),4,1),3,1)))

　　-SMA(SMA(SMA((((CLOSE-LLV(LOW,23))/(HHV(HIGH,23)-LLV(LOW,23)))*30),4,1),3,1),2,1)),COLORBROWN; {公式原数字：27天，我修改为23天，信号提前1天}

　　DIFFZX:=EMA(第23军,2);

　　STICKLINE(第23军>DIFFZX,-49,-51,1,0),COLORRED; {柱状图}

　　STICKLINE(第23军<=DIFFZX,-49,-51,1,0),COLORGREEN; {柱状图}

　　STICKLINE(第23军<20 AND 第23军>REF(第23军,1),-49,-51,0.4,0),COLORRED; {低位大于前一日} {柱状图}

　　STICKLINE(第23军<20 AND 第23军>REF(第23军,1) AND REF(主力,1)<=3,-49,-51,1,0),COLORRED; {低位大于前一日&且主力在低位<3，用粗红色加强提示} {柱状图}

　　DRAWTEXT(CURRBARSCOUNT=1,115,' 115'),COLORBLUE; {115线}

　　DRAWTEXT(CURRBARSCOUNT=1,98,' 100'),COLORYELLOW; {100线}

　　DRAWTEXT(CURRBARSCOUNT=1,90,' 90'),COLORCYAN; {90线}

　　DRAWTEXT(CURRBARSCOUNT=1,85,' 7'),COLORRED; {十战七胜}

　　DRAWTEXT(CURRBARSCOUNT=1,78,' FG'),COLORRED; {FG }

　　DRAWTEXT(CURRBARSCOUNT=1,73,' SUN'),COLORRED; {BIAS-CCI超跌 }

　　DRAWTEXT(CURRBARSCOUNT=1,18,' CCI'),COLORWHITE; {CCI}

　　DRAWTEXT(CURRBARSCOUNT=1,5,' WIN'),COLORYELLOW; {WINNER}

　　DRAWTEXT(CURRBARSCOUNT=1,0,' 0'),COLORWHITE; {0 }

　　DRAWTEXT(CURRBARSCOUNT=1,-18,' CCI'),COLORWHITE; {CCI }

　　DRAWTEXT(CURRBARSCOUNT=1,-37,' RSI'),COLORYELLOW; {RSI }

　　DRAWTEXT(CURRBARSCOUNT=1,-44,' CCI'),COLORWHITE; {CCI }

　　DRAWTEXT(CURRBARSCOUNT=1,-50,' 23'),COLORBROWN; {23线}

　　DRAWTEXT(CURRBARSCOUNT=1,-54.6,' ZL'),COLORCYAN; {主力线}

　　DRAWTEXT(CURRBARSCOUNT=1,-59.5,' CP'),COLORRED; {操盘资金};

　　{显示股票信息}

　　DRAWTEXT_FIX(ISLASTBAR,0,0.01,0,DYBLOCK); {区域板块}

　　DRAWTEXT_FIX(ISLASTBAR,0,0.05,0,GNBLOCK),COLORYELLOW;{概念板块};