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

{轴线 分界线}
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 总司令 REF(总司令,1)),120,123,0.4,0),COLORBLUE; { 95 小顶部点-下拐}
STICKLINE((REF(总司令,1) 95 AND REF(总司令,1) REF(总司令,2) AND 总司令 REF(总司令,1)),117,123,0,0),COLORBLUE; { 95 小顶部点-下拐}
STICKLINE((REF(总司令,1) 115) AND REF(总司令,1) REF(总司令,2) AND 总司令 REF(总司令,1),120,124,0.8,0),COLORBLUE;{ 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 REF(CCI,1); STICKLINE(AAA,-45,-42,0,0),COLORGREEN; {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 DIFFCCI; STICKLINE(DDD,-45,-48,0,0),COLORGREEN; {CCI下降区间-可靠} {柱状图}
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 主力 REF(主力,1) AND REF(主力,1) 88,107,110,0.6,0),COLORCYAN; {大顶信号}
STICKLINE(VARD AND REF(主力,1) REF(主力,2) AND 主力 REF(主力,1) AND REF(主力,1) 88,102,110,0,0),COLORCYAN; {大顶信号}
STICKLINE(REF(主力,1) 88 AND 主力 REF(主力,1)AND REF(主力,1) REF(主力,2),105,110,0.5,0),COLORCYAN; {(主力,1) 88顶信号}
STICKLINE(REF(主力,1) 88 AND 主力 REF(主力,1)AND REF(主力,1) 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) {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;{概念板块};