通达信大小底未加密选股指标公式源码

源码正文：

R1:=AMOUNT/vol/100{XG51};
R2:=(3*HIGH+LOW+OPEN+2*CLOSE)/7{XG51};
R3:=SUM(AMOUNT,55)/R1/100{XG51};
R4:=dma(R2,VOL/R3){XG51};
R5:=100*(CLOSE-R4)/R4{XG51};
下:=ma(R5,34)-1.95*stDP(R5,34){XG51};
小底:IF(REF(下>R5,1) AND R5>下,20,0),COLOR8977FF,LINETHICK2{XG51};
大底:IF(LAST(下>R5,5,1),50,0),COLORWHITE,LINETHICK2{XG51};
TDXSTEP246:DRAWICON(REF(下>R5,1) AND R5>下,21,1){XG51};
TDXSTEP247:DRAWICON(REF(下>R5,1) AND R5>下,25,1){XG51};
TDXSTEP248:DRAWICON(REF(下>R5,1) AND R5>下,29,1){XG51};
TDXSTEP249:DRAWICON(LAST(下>R5,5,1),49,17){XG51};
TDXSTEP250:DRAWICON(LAST(下>R5,5,1),55,17){XG51};
TDXSTEP251:DRAWICON(LAST(下>R5,5,1),59,17){X~G!5*1~C~N~{};

源码正文：

日:=500;昨前:=60;高:=REF(HHV(H,日),昨前);低:=REF(LLV(L,日),昨前);H1:=高-(高-低)*1;H2:=高-(高-低)*0.91;H3:=高-(高-低)*0.85;H4:=高-(高-低)*0.809;H5:=高-(高-低)*0.777;H6:=高-(高-低)*0.707{XG51};
H7:=高-(高-低)*0.666;H8:=高-(高-低)*0.618;H9:=高-(高-低)*0.563;H10:=高-(高-低)*0.5;H11:=高-(高-低)*0.424;H12:=高-(高-低)*0.382;H13:=高-(高-低)*0.309;H14:=高-(高-低)*0.25;H15:=高-(高-低)*0.191{XG51};
H16:=高-(高-低)*0.1375;H17:=高-(高-低)*0.0807;一:REFDATE(H2,DATE),COLORLIGREEN,DOTLINE;二:=REFDATE(H3,DATE),COLORBLUE;三:=REFDATE(H4,DATE),COLORLIGREEN;四:=REFDATE(H5,DATE),COLORLICYAN{XG51};
五:=REFDATE(H6,DATE),COLORBLUE;六:=REFDATE(H7,DATE),COLORLIGREEN;七:REFDATE(H8,DATE),,DOTLINE,COLORBROWN;八:=REFDATE(H9,DATE),COLORBLUE;九:=REFDATE(H10,DATE),COLORLIGREEN{XG51};
十:=REFDATE(H11,DATE),COLORLICYAN;十一:=REFDATE(H12,DATE),COLORBLUE;十二:=REFDATE(H13,DATE),COLORLIGREEN;十三:=REFDATE(H14,DATE),COLORLICYAN;十四:=REFDATE(H15,DATE),COLORBLUE{XG51};
十五:=REFDATE(H16,DATE),COLORLIGREEN;十六:REFDATE(H17,DATE),COLORBLUE,DOTLINE;底:REFDATE(H1,DATE),COLORLIBLUE;顶:REFDATE(高,DATE),COLORLICYAN;DRAWKLINE(HIGH,OPEN,LOW,CLOSE);买:=crOSS(C,一){XG51};
卖:=CROSS(十六,C);DRAWICON(买,底,1);DRAWICON(卖,顶,2);N:=3;FF:=(C-REF(C,N))/REF(C,N);AH1:=maX(DYnaINFO(3),DYNAINFO(5));AL1:=MIN(DYNAINFO(3),DYNAINFO(6));AP1:=AH1-AL1;阻力:=AL1+AP1*7/8{XG51};
支撑:=AL1+AP1*0.5/8;现价:=CLOSE;DRAWTEXT(LONGCROSS(支撑,现价,2),C*0.999,'买'),COLORGREEN;DRAWTEXT(LONGCROSS(现价,阻力,2),C*1.004,' 卖'),COLORLIMAGENTA;DRAWICON(LONGCROSS(现价,阻力,2),C*1.002,15){XG51};
TT:=BARSCOUNT(CLOSE);CC:=CLOSE;均线:=IF(BETWEEN(C/(SUM(AMOUNT,0)/SUM(vol*100,0)),1.05,0.95)=0,MA(C,0),(SUM(AMOUNT,0)/SUM(VOL*100,0)));上均:=(均线*1.007 );下均:=(均线/1.005 );时长:=IF(HOUR>=10 AND HOUR<15,1,0){XG51};
涨幅:=(CLOSE>DYNAINFO(3))>1.02;跌幅:=(CLOSE/DYNAINFO(3))<0.98;横盘:=((HHV(CLOSE,BARSCOUNT(CLOSE))-LLV(CLOSE,BARSCOUNT(CLOSE)))/CLOSE)<0.03;YY:=SMA(VOL,30,1);放量:=SUM(VOL,6)>REF(MA(VOL,30),1)*0.03{XG51};
涨跌幅:=涨幅 OR 跌幅;横涨:=横盘 AND 放量 AND (C>上均);DRAWTEXT(FILTER(横涨,50),均线*0.995,' 突破'),COLORLICYAN;DRAWICON(FILTER(横涨,50),均线*0.995,26);MA30:=ema(CLOSE,30);A2:=DYNAINFO(3){XG51};
A3:=IF(C=A2,C*1.005,IF(C<A2,C*1.005,C*0.995));A5:=IF(C=A2,CON2stR(0,2),IF(C>A2,CON2STR((C-A2)/A2*100,2),CON2STR((A2-C)/A2*100,2))){XG51};
A6:=IF(ZTPRICE(DYNAINFO(3),0.1)=C OR DTPRICE(DYNAINFO(3),0.1)=C,STRCAT(CON2STR(C,2),'★ '),IF(C=REF(C,1),STRCAT(CON2STR(C,2),'◆ '),IF(C>REF(C,1),STRCAT(CON2STR(C,2),'▲ '),STRCAT(CON2STR(C,2),' ')))){XG51};
A4:=STRCAT(STRCAT(' ',A6),STRCAT(A5,'%'));分时最高价:=REF(HHV(HIGH,240),1);分时最低价:=REF(LLV(LOW,240),1);A7:=IF(DYNAINFO(3)>C,0.9973,1.0027);DRAWTEXT(CURRBARSCOUNT=240,C*A7,''){XG51};
DRAWTEXT(ISLASTBAR AND C>A2 ,C*1,A4),COLOR3333FF;DRAWTEXT(ISLASTBAR AND C=A2 ,C*1,A4),COLORRED;DRAWTEXT(ISLASTBAR AND C<A2 ,C*1,A4),COLOR42C800;次日涨停:=STRCAT(STRCAT('次日涨停 ',CON2STR(ZTPRICE(CLOSE,0.1),2)),' ▲'){XG51};
次日跌停:=STRCAT(STRCAT('次日跌停 ',CON2STR(DTPRICE(CLOSE,0.1),2)),' ◆');DRAWTEXT_FIX(CURRBARSCOUNT=240,0.001,0.001,0,次日涨停),COLOR3030FF;DRAWTEXT_FIX(CURRBARSCOUNT=240,0.001,0.046,0,次日跌停),COLORCYAN{XG51};
WA1:=V*C/100;WA2:=SUM((IF(((WA1/8>20) AND (CLOSE>(REF(CLOSE,1)))),WA1,0)),0);WA3:=SUM((IF(((WA1/8>20) AND (CLOSE<(REF(CLOSE,1)))),WA1,0)),0);WA4:=SUM((IF(((WA1/8<20) AND (CLOSE>(REF(CLOSE,1)))),WA1,0)),0){XG51};
WA5:=SUM((IF(((WA1/8<20) AND (CLOSE<(REF(CLOSE,1)))),WA1,0)),0);机构买盘:=(WA2);机构卖盘:=(WA3);散户买盘:=(WA4);散户卖盘:=(WA5);DRAWTEXT_FIX(1,0.730,1-0.088,0,STRCAT(STRCAT('【机构买盘】',CON2STR(机构买盘,2)),' 万')),COLORWHITE{XG51};
DRAWTEXT_FIX(1,0.730,1-0.001,0,STRCAT(STRCAT('【机构卖盘】',CON2STR(机构卖盘,2)),' 万')),COLORCYAN;DRAWTEXT_FIX(1,0.860,1-0.088,0,STRCAT(STRCAT('【散户买盘】',CON2STR(散户买盘,2)),' 万')),COLORLIMAGENTA{XG51};
DRAWTEXT_FIX(1,0.860,1-0.001,0,STRCAT(STRCAT('【散户卖盘】',CON2STR(散户卖盘,2)),' 万')),COLORGREEN{XG51};
QA1:=SUM(IF(CLOSE>REF(CLOSE,1),VOL/CAPITAL*100,IF(CLOSE<REF(CLOSE,1),-VOL/CAPITAL*100,0)),0);成交额:=V*C/100,NODRAW;QA4:=SUM((IF(((成交额/8<20) AND (CLOSE>(REF(CLOSE,1)))),成交额,0)),0){XG51};
QA2:=SUM((IF(((成交额/8>20) AND (CLOSE>(REF(CLOSE,1)))),成交额,0)),0);QA3:=SUM((IF(((成交额/8>20) AND (CLOSE<(REF(CLOSE,1)))),成交额,0)),0){XG51};
QA5:=SUM((IF(((成交额/8<20) AND (CLOSE<(REF(CLOSE,1)))),成交额,0)),0);QA6:=((QA2+QA3)+QA4)+QA5;QA7:=IF((ISLASTBAR),((100*QA2)/QA6),0);QA8:=IF((ISLASTBAR),((100*QA3)/QA6),0);QA9:=IF((ISLASTBAR),((100*QA4)/QA6),0){XG51};
QA10:=IF((ISLASTBAR),((100*QA5)/QA6),0);机构买:=(QA2);机构卖:=(QA3);机构进出:=机构买-机构卖;DD1:=1;AAA1:=STRCAT(STRCAT('机构买入 ',CON2STR((100*QA2)/QA6,0)),'%');AAA2:=STRCAT(STRCAT('机构卖出 ',CON2STR((100*QA3)/QA6,0)),'%'){XG51};
AAA0:=STRCAT(STRCAT('机构总买入 ',CON2STR((100*(QA2-QA3))/A6,0)),'%');AAA3:=STRCAT(STRCAT('散户买入 ',CON2STR((100*QA4)/QA6,0)),'%');AAA4:=STRCAT(STRCAT('散户卖出 ',CON2STR((100*QA5)/QA6,0)),'%'){XG51};
AAA5:=STRCAT(STRCAT('散户总买入 ',CON2STR((100*(QA4-QA5))/QA6,0)),'%');DRAWTEXT_FIX(DD1=1,0.001,0.150,0,AAA1),COLORWHITE;DRAWTEXT_FIX(DD1=1,0.001,0.200,0,AAA2),COLORCYAN{XG51};
DRAWTEXT_FIX(DD1=1,0.001,0.255,0,AAA3),COLORLIMAGENTA;DRAWTEXT_FIX(DD1=1,0.001,0.305,0,AAA4),COLORGREEN;DRAWTEXT_FIX(DD1=1,0.001,0.360,0,AAA0),COLORBLUE;DRAWTEXT_FIX(DD1=1,0.001,0.410,0,AAA5),COLORRED{X~G_5-1~C~N~{};