通达信简单BS主图选股指标公式源码

通达信简单BS主图选股指标公式源码

源码正文：

JJ:=(CLOSE+HIGH+LOW)/3;
E:=ema(JJ,5);
D:=REF(E,1);            
AA1:=AMOUNT/V{XG51};
BB1:=L<AA1*0.9{XG51};
CC1:=(C-REF(C,1))/REF(C,1)*100>1.2{XG51};
DD1:=L<ma(C,5)*0.921{XG51};
EE1:=V<MA(V,5)*1.5{XG51};
FF1:=BB1 AND CC1 AND DD1 AND EE1{XG51};
DRAWTEXT(FF1,(LOW* 0.97),'&larr;老鼠仓'),COLOR4080FF{XG51};
DRAWTEXT(crOSS(REF(zig(3,19),1),ZIG(3,19)),HIGH*1.03,'&larr;顶'),COLORBLUE{XG51};
DRAWTEXT(CROSS(ZIG(3,19),REF(ZIG(3,19),1)),LOW,'&larr;底'),COLORBLUE{XG51};
猎手之路:IF(MA(C,5)>REF(MA(C,5),1),MA(C,5),DRAWNULL)COLORBLUE,LINETHICK3{XG51};
A1:=REF(O,1){XG51};
A2:=Abs((REF(C,1)-A1)/A1){XG51};
A3:=ABS((REF(H,1)-A1)/A1){XG51};
A4:=ABS((REF(L,1)-A1)/A1){XG51};
B1:=ABS((A2+A3+A4)/3){XG51};
B2:=O*B1{XG51};
预测低一:=O-B2{XG51};
预测高一:=O+B2{XG51};
今日保护价:(REF(C,2)+REF(C,1)+O)/3 ,COLOR4080FF,NODRAW{XG51};
开盘价1:=OPEN{XG51};
开盘价2:=REF(OPEN,1){XG51};
最高价1:=HIGH{XG51};
最高价2:=REF(HIGH,1){XG51};
最低价1:=LOW{XG51};
最低价2:=REF(LOW,1){XG51};
收盘价1:=CLOSE{XG51};
收盘价2:=REF(CLOSE,1){XG51};
AA:=最高价2{XG51};
BB:=最低价2{XG51};
CC:=开盘价2{XG51};
DD:=收盘价2{XG51};
EE:=(AA+BB+CC+2*DD)/5{XG51};
AAA:=EE+(AA-BB){XG51};
BBB:=2*EE-BB{XG51};
CCC:=2*EE-AA{XG51};
DDD:=EE-(AA-BB){XG51};
上升突破价:=AAA{XG51};
上升阻力价:=BBB{XG51};
下跌支撑价:=CCC{XG51};
下跌反转价:=DDD{XG51};
EEE:=(EE+上升突破价+上升阻力价+下跌支撑价+下跌反转价)/5{XG51};
心理价:=EEE{XG51};
FFF:=(EEE+开盘价1)/2{XG51};
GGG:=(预测低一+FFF)/2{XG51};
预测低二:=GGG{XG51};
预测高二:=MA(REF(HIGH,1)/REF(CLOSE,2),27)*REF(CLOSE,1){XG51};
DRAWTEXT_FIX(1,0.04,0.15,0,'预测低一:'),COLORBLUE{XG51};
DRAWNUMBER_FIX(1,0.10,0.15,0,CONst(预测低一)),COLORBLUE{XG51};
DRAWTEXT_FIX(1,0.15,0.15,0,'元'),COLORBLUE,LINETHICK1{XG51};
DRAWTEXT_FIX(1,0.04,0.20,0,'预测高一:'),COLORFFFFFF{XG51};
DRAWNUMBER_FIX(1,0.10,0.20,0,CONST(预测高一)),COLORFFFFFF{XG51};
DRAWTEXT_FIX(1,0.15,0.20,0,'元'),COLORFFFFFF,LINETHICK1{XG51};
DRAWTEXT_FIX(1,0.18,0.15,0,'预测低二:'),COLORBLUE{XG51};
DRAWNUMBER_FIX(1,0.24,0.15,0,CONST(预测低二)),COLORBLUE{XG51};
DRAWTEXT_FIX(1,0.29,0.15,0,'元'),COLORBLUE,LINETHICK1{XG51};
DRAWTEXT_FIX(1,0.18,0.20,0,'预测高二:'),COLORFFFFFF{XG51};
DRAWNUMBER_FIX(1,0.24,0.20,0,CONST(预测高二)),COLORFFFFFF{XG51};
DRAWTEXT_FIX(1,0.29,0.20,0,'元'),COLORFFFFFF,LINETHICK1{XG51};
买回价:=预测低二*1.015{XG51};
卖出价:=买回价*(1.03){XG51};
DRAWTEXT_FIX(1,0.04,0.10,0,'卖出价:'),COLOR8080FF,LINETHICK1{XG51};
DRAWNUMBER_FIX(1,0.10,0.10,0,CONST(卖出价)),COLOR8080FF{XG51};
DRAWTEXT_FIX(1,0.15,0.10,0,'元'),COLOR8080FF,LINETHICK1{XG51};
DRAWTEXT_FIX(1,0.18,0.10,0,'买回价:'),COLOR8080FF,LINETHICK1{XG51};
DRAWNUMBER_FIX(1,0.24,0.10,0,CONST(买回价)),COLOR8080FF{XG51};
DRAWTEXT_FIX(1,0.29,0.10,0,'元'),COLOR8080FF,LINETHICK1{XG51};
DRAWTEXT_FIX(1,0.01,0.02,0,'★ =======================================  ★'),COLORWHITE{XG51};
DRAWTEXT_FIX(1,0.12,0.05,0,'T+0 参考操作'),COLORFFFFFF{XG51};
DRAWTEXT_FIX(1,0.01,0.08,0,'三 '),COLOR0000FF{XG51};
DRAWTEXT_FIX(1,0.01,0.12,0,'思'),COLOR0000FF{XG51};
DRAWTEXT_FIX(1,0.01,0.16,0,'后'),COLOR0000FF{XG51};
DRAWTEXT_FIX(1,0.01,0.20,0,'行'),COLOR0000FF{XG51};
DRAWTEXT_FIX(1,0.32,0.08,0,'谨'),COLOR0000FF{XG51};
DRAWTEXT_FIX(1,0.32,0.12,0,'慎'),COLOR0000FF{XG51};
DRAWTEXT_FIX(1,0.32,0.16,0,'操'),COLOR0000FF{XG51};
DRAWTEXT_FIX(1,0.32,0.20,0,'作'),COLOR0000FF{XG51};
DRAWTEXT_FIX(1,0.01,0.24,0,'★ =======================================  ★'),COLORWHITE{XG51};
总额:=AMOUNT{XG51};
买:=IF(O=C AND (C-REF(C,1))/REF(C,1)*100>9.8,AMOUNT,AMOUNT/((H-L)*2-ABS(O-C))*(C-L)){XG51};
买%:=买/AMOUNT*100{XG51};
流入:=AMOUNT*买%/10000000000{XG51};
流出:=AMOUNT/100000000-流入{XG51};
净流:=(流入-流出){XG51};
总额3:=SUM(AMOUNT,3){XG51};
流入3:=SUM(流入,3){XG51};
流出3:=SUM(流出,3){XG51};
净流3:=SUM(流入-流出,3){XG51};
总额5:=SUM(AMOUNT,5){XG51};
流入5:=SUM(流入,5){XG51};
流出5:=SUM(流出,5){XG51};
净流5:=SUM(流入-流出,5){XG51};
总额10:=SUM(AMOUNT,10){XG51};
流入10:=SUM(流入,10){XG51};
流出10:=SUM(流出,10){XG51};
净流10:=SUM(流入-流出,10){XG51};
画:=CONST(FINDHIGH(总额10,0,190,1)){XG51};
换手率1:=vol/CAPITAL*100{XG51};
换手率3:=SUM(VOL/CAPITAL*100,3){XG51};
换手率5:=SUM(VOL/CAPITAL*100,5){XG51};
换手率10:=SUM(VOL/CAPITAL*100,10){XG51};
DRAWTEXT_FIX(1,0.71,0.10,0,'净流(亿):'),COLOR8080FF,COLORRED{XG51};
DRAWTEXT_FIX(1,0.71,0.15,0,'换手率(%):'),COLOR8080FF,COLORRED{XG51};
DRAWTEXT_FIX(1,0.78,0.05,0,'1日'),COLOR8080FF,COLORRED{XG51};
DRAWTEXT_FIX(1,0.83,0.05,0,'3日'),COLOR8080FF,COLORRED{XG51};
DRAWTEXT_FIX(1,0.88,0.05,0,'5日'),COLOR8080FF,COLORRED{XG51};
DRAWTEXT_FIX(1,0.93,0.05,0,'10日'),COLOR8080FF,COLORRED{XG51};
DRAWNUMBER_FIX(1,0.78,0.10,0,CONST((净流))),COLORBLUE{XG51};
DRAWNUMBER_FIX(1,0.83,0.10,0,CONST((净流3))),COLORBLUE{XG51};
DRAWNUMBER_FIX(1,0.88,0.10,0,CONST((净流5))),COLORBLUE{XG51};
DRAWNUMBER_FIX(1,0.93,0.10,0,CONST((净流10))),COLORBLUE{XG51};
DRAWNUMBER_FIX(1,0.78,0.15,0,CONST((换手率1))),COLORBLUE{XG51};
DRAWNUMBER_FIX(1,0.83,0.15,0,CONST((换手率3))),COLORBLUE{XG51};
DRAWNUMBER_FIX(1,0.88,0.15,0,CONST((换手率5))),COLORBLUE{XG51};
DRAWNUMBER_FIX(1,0.93,0.15,0,CONST((换手率10))),COLORBLUE{XG51};
JB1:=REF(C,2)/REF(C,3)>1.095 AND REF(C,2)=REF(H,2) AND REF(C,2)/REF(O,2)>1.03{XG51};
JB2:=REF(C,1)/REF(C,2)<0.96 AND REF(C,1)>REF(O,2){XG51};
JB3:=C/REF(C,1)>1.05 AND O<REF(C,1){XG51};
JBX:=JB1 AND JB2 AND JB3{XG51};
DRAWTEXT(JBX,(LOW* 0.97),'&larr;牛启动'),COLORBLUE{XG51};
MA5:MA(C,5),COLORFFFFFF{XG51};
MAPJ:(MA(CLOSE,3)+MA(CLOSE,6)+MA(CLOSE,12)+MA(CLOSE,24))/4,COLORFFFF00{XG51};
V1:=ABS((2*CLOSE+HIGH+LOW)/4-MA(CLOSE,20))/MA(CLOSE,20);
V2:=(1-7/100)*(dma(CLOSE,V1)){XG51};
V3:=(1+7/100)*(DMA(CLOSE,V1)){XG51};
V5:=MA((LOW+HIGH+CLOSE)/3,5){XG51};
支撑:REFDATE(V2,DATE),DOTLINE,LINETHICK1,COLORLICYAN{XG51};
阻力:REFDATE(V3,DATE),DOTLINE,LINETHICK1,COLORCYAN{XG51};
DRAWTEXT(ISLASTBAR,阻力,'阻力'),COLORCYAN{XG51};
DRAWTEXT(ISLASTBAR,支撑,'支撑'),COLORLICYAN{XG51};
顶点:IF(CURRBARSCOUNT<=60, CONST(IF(ISLASTBAR=1,HHV(H, BArslAST(CURRBARSCOUNT=60)),1)),DRAWNULL),COLORBLUE,DOTLINE{XG51};
低点:IF(CURRBARSCOUNT<=60, CONST(IF(ISLASTBAR=1,LLV(L, BARSLAST(CURRBARSCOUNT=60)),1)),DRAWNULL),COLORLIMAGENTA,DOTLINE{XG51};
DRAWTEXT(ISLASTBAR,顶点,'顶点'),COLORBLUE{XG51};
DRAWTEXT(ISLASTBAR,低点,'底点'),COLORLIMAGENTA{XG51};
VAR1:=(CLOSE>REF(CLOSE,1) AND CLOSE>REF(CLOSE,2)){XG51};
VAR2:=(REF(VAR1,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2)){XG51};
VAR3:=(REF(VAR2,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2)){XG51};
VAR4:=(REF(VAR3,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2)){XG51};
VAR5:=(REF(VAR4,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2)){XG51};
VAR6:=(REF(VAR5,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2)){XG51};
VAR7:=(REF(VAR6,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2)){XG51};
VAR8:=(REF(VAR7,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2)){XG51};
VAR9:=(REF(VAR8,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2)){XG51};
VARA:=(REF(VAR9,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2)){XG51};
VARB:=(REF(VARA,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2)){XG51};
VARC:=(REF(VARB,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2)){XG51};
VARD:=(CLOSE<REF(CLOSE,1) AND CLOSE<REF(CLOSE,2)){XG51};
VARE:=(REF(VARD,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2)){XG51};
VARF:=(REF(VARE,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2)){XG51};
VAR10:=(REF(VARF,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2)){XG51};
VAR11:=(REF(VAR10,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2)){XG51};
VAR12:=(REF(VAR11,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2)){XG51};
VAR13:=(REF(VAR12,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2)){XG51};
VAR14:=(REF(VAR13,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2)){XG51};
VAR15:=(REF(VAR14,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2)){XG51};
VAR16:=(REF(VAR15,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2)){XG51};
VAR17:=(REF(VAR16,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2)){XG51};
VAR18:=(REF(VAR17,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2)){XG51};
VAR19:=((REF(VARD OR VARE OR VARF OR VAR10 OR VAR11 OR VAR12 OR VAR13 OR VAR14 OR VAR15 OR VAR16 OR VAR17 OR VAR18,1)) AND VAR1){XG51};
VAR1A:=((REF(VAR1 OR VAR2 OR VAR3 OR VAR4 OR VAR5 OR VAR6 OR VAR7 OR VAR8 OR VAR9 OR VARA OR VARB OR VARC,1)) AND VARD){XG51};
DRAWICON(VAR1A,H,2){XG51};
DRAWICON(VAR19,L,1){XG51};
LOWER:MA(CLOSE,20)-1.2*STD(CLOSE,20),COLORWHITE,LINETHICK2{X_G?5*1_C_N_{};