很牛很好用的大智慧公式源码奉献给大家另附【通达信】发家分时（抓涨停）介绍
很牛很好用的大智慧公式源码奉献给大家另附【通达信】发家分时（抓涨停）
顶底雷达源码： 买入: ZIG(3,10)>REF(ZIG(3,10),1) AND REF(ZIG(3,10),1)<REF(ZIG(3,10),2), COLORRED;
卖出: ZIG(3,10)<REF(ZIG(3,10),1) AND REF(ZIG(3,10),1)>REF(ZIG(3,10),2),COLORF0F000;
很牛很好用的大智慧公式源码奉献给大家，共享（方法是只要你复制以下公式到大智慧公式编辑器即可）：
专吸庄血（公式源码）
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;
VARO5:=LLV(LOW,27);
VARO6:=HHV(HIGH,34);
VARO7:=EMA((CLOSE-VARO5)/(VARO6-VARO5)*4,4)*25;
建仓区: IF((VARO7<10),80,100) ,COLOR00CCFF,LINETHICK1;
0,LINETHICK2 ,COLORFFCC00;
二、资金判牛（公式源码）
做空能量线: SMA((HHV(HIGH,36)-CLOSE)/(HHV(HIGH,36)-LLV(LOW,36))*100,2,1),COLORGREEN,LINETHICK3;
做多能量线: SMA((CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100,5,1)-8,COLORRED,LINETHICK3;
短线通道:15,COLORGREEN;
强弱分界:45,COLOR00FFFF;
短线顶部:85,COLORFF00FF;
FILLRGN(做多能量线,短线通道,做多能量线<=短线通道),COLORRED;
FILLRGN(做空能量线,短线顶部,做空能量线>=短线顶部),COLORRED;
FILLRGN(做空能量线,短线通道,做空能量线<=短线通道),COLORBLUE;
FILLRGN(做多能量线,短线顶部,做多能量线>=短线顶部),COLORBLUE;
3、主力进场（公式源码）
VAR1:=REF((LOW+OPEN+CLOSE+HIGH)/4,1);
VAR2:=SMA(ABS(LOW-VAR1),13,1)/SMA(MAX(LOW-VAR1,0),10,1);
VAR3:=EMA(VAR2,10);
VAR4:=LLV(LOW,33);
VAR5:=EMA(IF(LOW<=VAR4,VAR3,0),3);
主力进场:IF(VAR5>REF(VAR5,1),VAR5,0),LINETHICK0,COLORRED;
STICKLINE(VAR5>REF(VAR5,1),0,VAR5,6,0 ),COLORRED;
STICKLINE(VAR5>REF(VAR5,1),0,VAR5,5,0 ),COLOR000055;
STICKLINE(VAR5>REF(VAR5,1),0,VAR5,4,0 ),COLOR000077;
STICKLINE(VAR5>REF(VAR5,1),0,VAR5,3.1,0 ),COLOR000099;
STICKLINE(VAR5>REF(VAR5,1),0,VAR5,2.5,0 ),COLOR0000BB;
STICKLINE(VAR5>REF(VAR5,1),0,VAR5,1.5,0 ),COLOR0000DD;
STICKLINE(VAR5>REF(VAR5,1),0,VAR5,1,0 ),COLOR0000FF;
洗盘:IF(VAR5<REF(VAR5,1),VAR5,0),LINETHICK0,COLORGREEN;
STICKLINE(VAR5<REF(VAR5,1),0,VAR5,6,0),COLORGREEN;
STICKLINE(VAR5<REF(VAR5,1),0,VAR5,5,0),COLOR005500;
STICKLINE(VAR5<REF(VAR5,1),0,VAR5,4,0),COLOR007700;
STICKLINE(VAR5<REF(VAR5,1),0,VAR5,3,0),COLOR009900;
STICKLINE(VAR5<REF(VAR5,1),0,VAR5,2.5,0),COLOR00BB00;
STICKLINE(VAR5<REF(VAR5,1),0,VAR5,1.5,0),COLOR00DD00;
STICKLINE(VAR5<REF(VAR5,1),0,VAR5,1,0),COLOR00FF00;
VAR12:=SMA(ABS(VAR1-H),13,1)/SMA(MAX(VAR1-H,0),10,1);
VAR13:=EMA(VAR12,10);
VAR14:=HHV(H,33);
VAR15:=EMA(IF(H>=VAR14,VAR13,0),3);
冲顶:IF(VAR15>REF(VAR15,1),VAR15,0),LINETHICK0,COLORFF00FF;
STICKLINE(VAR15>REF(VAR15,1),0,VAR15,6,0),COLORFF00FF;
STICKLINE(VAR15>REF(VAR15,1),0,VAR15,5,0 ),COLOR550055;
STICKLINE(VAR15>REF(VAR15,1),0,VAR15,4,0 ),COLOR770077;
STICKLINE(VAR15>REF(VAR15,1),0,VAR15,3,0 ),COLOR990099;
STICKLINE(VAR15>REF(VAR15,1),0,VAR15,2.5,0 ),COLORBB00BB;
STICKLINE(VAR15>REF(VAR15,1),0,VAR15,1.5,0 ),COLORDD00DD;
STICKLINE(VAR15>REF(VAR15,1),0,VAR15,1,0 ),COLORFF00FF;
主力出场:IF(VAR15<REF(VAR15,1),VAR15,0),LINETHICK0,COLORYELLOW;
STICKLINE(VAR15<REF(VAR15,1),0,VAR15,6,0 ),COLORYELLOW;
STICKLINE(VAR15<REF(VAR15,1),0,VAR15,5,0),COLOR005555;
STICKLINE(VAR15<REF(VAR15,1),0,VAR15,4,0),COLOR007777;
STICKLINE(VAR15<REF(VAR5,1),0,VAR15,3,0),COLOR009999;
STICKLINE(VAR15<REF(VAR15,1),0,VAR15,2.5,0),COLOR00BBBB;
STICKLINE(VAR15<REF(VAR15,1),0,VAR15,1.5,0),COLOR00DDDD;
STICKLINE(VAR15<REF(VAR15,1),0,VAR15,1,0),COLOR00FFFF;
A1:=REF(CLOSE,2);
A2:=SMA(MAX(CLOSE-A1,0),7,1)/SMA(ABS(CLOSE-A1),7,1)*100;
波段介入点:IF(A2<19,19,0),COLORWHITE;
4、新VOL（公式源码）
当日:VOL;
量5:MA(VOL,5),colorred;
量10:MA(VOL,10);
VAR1:=VOL/((HIGH-LOW)*2-ABS(CLOSE-OPEN));
主动买盘:IF(CLOSE>OPEN,VAR1*(HIGH-LOW),IF(CLOSE<OPEN,VAR1*((HIGH-OPEN)+(CLOSE-LOW)),VOL/2)),Color0000FF,STICK;
主动卖盘:IF(CLOSE>OPEN,VAR1*((HIGH-CLOSE)+(OPEN-LOW)),IF(CLOSE<OPEN,VAR1*(HIGH-LOW),VOL/2)),Color00E521,STICK;
买卖盘比:主动买盘/主动卖盘;
WJ:=(HIGH+LOW+CLOSE)/3;
VD1:=IF(HIGH=LOW,1,HIGH-MAX(OPEN,CLOSE));
VD2:=IF(HIGH=LOW,1,MAX(CLOSE,OPEN)-WJ);
VD3:=IF(HIGH=LOW,1,MIN(OPEN,CLOSE)-LOW);
VD4:=IF(HIGH=LOW,1,WJ-MIN(CLOSE,OPEN));
VD5:=VOL/IF(HIGH=LOW,4,HIGH-LOW);
VD6:=(VD1*VD5);
VD7:=(VD2*VD5);
VD8:=(VD3*VD5);
VD9:=(VD4*VD5);
买入量:=(VD9+VD8);
卖出量:=(VD6+VD7);
买入资金:=买入量*close/100;
卖出资金:=卖出量*close/100;
资金进出:=买入资金-卖出资金;
买卖资金比:=买入资金/卖出资金;
挂单买盘:=MA(主动买盘,3);
挂单卖盘:=(MA(主动卖盘,3));
STICKLINE((主动买盘 > 0),0,主动买盘,8,0),color0000FF;
STICKLINE((主动买盘 > 0),0,主动买盘,7.8,0),color0018FF;
STICKLINE((主动买盘 > 0),0,主动买盘,7.5,0),color001BFF;
STICKLINE((主动买盘 > 0),0,主动买盘,7.3,0),color0022FF;
STICKLINE((主动买盘 > 0),0,主动买盘,7,0),color0035FF;
STICKLINE((主动买盘 > 0),0,主动买盘,6.8,0),color0041FF;
STICKLINE((主动买盘 > 0),0,主动买盘,6.5,0),color0050FF;
STICKLINE((主动买盘> 0),0,主动买盘,6.3,0),color0059FF;
STICKLINE((主动买盘 > 0),0,主动买盘,6,0),color0062FF;
STICKLINE((主动买盘 > 0),0,主动买盘,5.7,0),color006CFF;
STICKLINE((主动买盘> 0),0,主动买盘,5.5,0),color007AFF;
STICKLINE((主动买盘 > 0),0,主动买盘,5.3,0),color0080FF;
STICKLINE((主动买盘 > 0),0,主动买盘,5,0),color0089FF;
STICKLINE((主动买盘 > 0),0,主动买盘,4.5,0),color0095FF;
STICKLINE((主动买盘 > 0),0,主动买盘,3.5,0),color009CFF;
STICKLINE((主动买盘 > 0),0,主动买盘,3,0),color00ABFF;
STICKLINE((主动买盘> 0),0,主动买盘,2.5,0),color00C0FF;
STICKLINE((主动买盘 > 0),0,主动买盘,1.5,0),color00D1FF;
STICKLINE((主动买盘> 0),0,主动买盘,1,0),color00EAFF;
STICKLINE((主动买盘 > 0),0,主动买盘,0.7,0),color00FFFF;
STICKLINE((主动卖盘 > 0),0,主动卖盘,8,0),color006800;
STICKLINE((主动卖盘 > 0),0,主动卖盘,7.8,0),color007F00;
STICKLINE((主动卖盘 > 0),0,主动卖盘,7,5),color008B00;
STICKLINE((主动卖盘 > 0),0,主动卖盘,7,3),color008B00;
STICKLINE((主动卖盘> 0),0,主动卖盘,7,0),color009000;
STICKLINE((主动卖盘 > 0),0,主动卖盘,6.8,0),color009500;
STICKLINE((主动卖盘> 0),0,主动卖盘,6.5,0),color009C00;
STICKLINE((主动卖盘> 0),0,主动卖盘,6.3,0),color00A300;
STICKLINE((主动卖盘 > 0),0,主动卖盘,6,0),color00AB00;
STICKLINE((主动卖盘 > 0),0,主动卖盘,5.7,0),color00AF00;
STICKLINE((主动卖盘 > 0),0,主动卖盘,5.5,0),color00B900;
STICKLINE((主动卖盘 > 0),0,主动卖盘,5.3,0),color00C000;
STICKLINE((主动卖盘 > 0),0,主动卖盘,5,0),color00C100;
STICKLINE((主动卖盘 > 0),0,主动卖盘,4.5,0),color00CA00;
STICKLINE((主动卖盘> 0),0,主动卖盘,3.5,0),color00D300;
STICKLINE((主动卖盘> 0),0,主动卖盘,3,0),color00DB00;
STICKLINE((主动卖盘> 0),0,主动卖盘,2.5,0),color00EA00;
STICKLINE((主动卖盘> 0),0,主动卖盘,1.5,0),color00FF00;
DRAWTEXTABS(1,1,'【买卖盘解量(手)】');
DRAWTEXTABS(1,30,'┃当日买卖量='+NUMTOSTR(VOL)),ColorFF00FF;
DRAWTEXTABS(1,60,'┃当日主动买量='+NUMTOSTR(主动买盘)),Color00ff00;
DRAWTEXTABS(1,90,'┃当日主动卖量='+NUMTOSTR(主动卖盘)),Coloryellow;
DRAWTEXTABS(1,120,'┃当日买卖盘比='+NUMTOSTR(买卖盘比)),ColorFF00FF;
DRAWTEXTABS(250,30,'┃买入资金累计万元: '+NUMTOSTR(买入资金)),Colorred,LINETHICK1;
DRAWTEXTABS(250,60,'┃卖出资金累计万元: '+NUMTOSTR(卖出资金)),Color00ff00,LINETHICK1;
DRAWTEXTABS(250,90,'┃资金进出万元: '+NUMTOSTR(资金进出)),Coloryellow,LINETHICK1;
DRAWTEXTABS(250,120,'┃买卖资金比: '+NUMTOSTR(买卖资金比)),Coloryellow,LINETHICK1;
DRAWTEXTABS(1,150,'┃当日挂单买盘: '+NUMTOSTR(挂单买盘)),Colorred,LINETHICK1;
DRAWTEXTABS(250,500,'┃当日挂单卖盘: '+NUMTOSTR(挂单卖盘)),Color00ff00,LINETHICK1;
5、猎庄端窝（公式源码）
DRAWTEXTREL(10,900,'..'),linethick1,COLOR00EEff;
DRAWGBKLAST(1,STRIP(RGB(4,1,28),RGB(4,1,35),0));
N:=5;
N1:=21;
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);
小试牛刀: IF(CROSS(VAR1,8),8,0),STICK,COLORRED;
DRAWICON(小试牛刀>0,8,7);
发现庄迹: IF(VAR1<=8,15,0),STICK,COLORCYAN,LINETHICK2;
VARO5:=LLV(LOW,27);
VARO6:=HHV(HIGH,34);
VARO7:=EMA((CLOSE-VARO5)/(VARO6-VARO5)*4,4)*25;
建仓区: IF((VARO7<10),100,118) ,COLOR00CCFF,LINETHICK1;
CD1:=(HHV(H,9)-C)/(HHV(H,9)-LLV(L,9))-0.7;
CD2:=(C-LLV(L,9))/(HHV(H,9)-LLV(L,9));
CD3:=SMA(SMA(CD2,3,1),3,1);
CD4:=(CD3-SMA(CD1,9,1))-0.5;
CD5:=IF(CD4>0.00,CD4,0.00);
CD6:=REF(CD5,1);
VAR81:=MA(C,9);
空头1:=IF(CD6-CD5,CD6,CD5);
VAR1A:=(HHV(HIGH,9)-CLOSE)/(HHV(HIGH,9)-LLV(LOW,9))*100-70;
VAR2A:=SMA(VAR1A,9,1)+100;
VAR3A:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;
VAR4A:=SMA(VAR3A,3,1);
VAR5A:=SMA(VAR4A,3,1)+100;
VAR6A:=VAR5A-VAR2A;
端庄窝:IF(VAR6A>N1,VAR6A-N1,0),COLORRED;
果断出击:IF(CROSS(端庄窝,0.01),18,0),STICK,COLOR0000CC,LINETHICK2;
DRAWICON(果断出击>0,18,7);
XG:=CROSS(端庄窝,0.01);
选底:IF(XG=1,16,0),STICK,LINETHICK3;
LC:=REF(CLOSE,1);
RSI:=SMA(MAX(CLOSE-LC,0),6,1)/SMA(ABS(CLOSE-LC),6,1)*100;
E:=CROSS(83,RSI);
减仓空仓:10*(CROSS(CD6,CD5) OR E),COLORGREEN;
DRAWICON(减仓空仓>0,113,8);
STICKLINE(REF(端庄窝,1)<端庄窝,端庄窝,REF(端庄窝,1),7,0),COLORRED;
STICKLINE(REF(端庄窝,1)>端庄窝,端庄窝,REF(端庄窝,1),7,0),COLOR00FF00;
红持绿空:0,COLORGREEN;
6、买点决策（公式源码）
input:N(60,1,111);
a1:=INDEXC;
a2:=INDEXO;
a3:=DISPSTATUS=1;
a4:=BARSLAST(a3);
a5:=(REF(a1,a4))/(REF(CLOSE,a4));
a6:=IF(a3,CLOSE,(REF(CLOSE,a4)));
a7:=IF(a3,(a1/a5),(REF((a1/a5),a4)));
a8:=a6-a7;
a9:=a2/a5;
a10:=INDEXH/a5;
a11:=INDEXL/a5;
a12:=(CLOSE>OPEN)OR((CLOSE=OPEN)AND(CLOSE>(REF(CLOSE,1))));
a13:=(a1>a2)OR((a1=a2)AND(a1>(REF(a1,1))));
大盘:STICKLINE(a13,(a10 +a8),(a11 +a8),0,0),colorRed;
STICKLINE(a13,((a1/a5) +a8),(a9 +a8),5,0),colorRed;
STICKLINE(NOT(a13),(a11+a8),(a10+a8),0,0),colorGreen;
STICKLINE(NOT(a13),((a1/a5)+a8),(a9+a8),5,0),colorGreen;
PARTLINE(CLOSE,CLOSE>(a1/a5),RGB(255,0,0)),linethick2,colorRed;
PARTLINE(CLOSE,CLOSE>(a1/a5)AND(CLOSE<(REF(CLOSE,1))),RGB(255,0,255)),linethick2,colorMagenta;
PARTLINE(CLOSE,(CLOSE>(a1/a5)AND((MA(CLOSE,30))>(REF((MA(CLOSE,30)),1))))AND((MA((a1/a5),30))<(REF((MA((a1/a5),30)),1))),RGB(255,255,0)),linethick2,colorYellow;
STICKLINE((((REF(a1,1))<(REF(a2,1))) AND(a1>(REF(a1,1)))),((a1/a5)+a8),CLOSE,1,1),Color606060;
STICKLINE((((REF(a1,1))>(REF(a2,1)))AND(a1<(REF(a1,1)))),((a1/a5)+a8),CLOSE,1,1),Color606060;
a14:=MA(CLOSE,10);
a15:=(((EMA(CLOSE,5))*7)+((EMA(CLOSE,10))* 3))/10;
a16:=((SMA((MAX((CLOSE-(REF(CLOSE,1))),0)),6,1))/(SMA(ABS((CLOSE-(REF(CLOSE,1)))),6,1)))* 100;
DRAWTEXT(((DATE >700101)AND(CROSS(84,a16))),HIGH,'▼'),colorGreen;
a17:=(((2*CLOSE)+HIGH)+LOW)/4;
a18:=LLV(LOW,34);
a19:=HHV(HIGH,34);
a20:=EMA((((a17-a18)/(a19-a18))*100),6);
a21:=EMA(((0.667*(REF(a20,1)))+(0.333*a20)),4);
a22:=LLV(LOW,120);
a23:=HHV(HIGH,120);
a24:=a23-a22;
a25:=HHVBARS(CLOSE,N);
REF(CLOSE,a25),POINTDOT,ColorFF0000;
突破:FILTER(((CROSS(CLOSE,((REF(REF(CLOSE,a25),1))*1.001)))AND(REF((a25>= 5),1))),10),POINTDOT,linethick0;
STICKLINE(突破,(CLOSE*0.99),CLOSE,5,0),ColorF600A9;
DRAWTEXT((((SUM((突破>0),0))=1)AND 突破),(CLOSE*0.99),'最佳买点'),colorWhite;
DRAWTEXT((((SUM((突破>0),0))=2)AND 突破),(CLOSE*0.99),'次佳买点'),colorWhite;
DRAWTEXT((((SUM((突破>0),0))=3)AND 突破),(CLOSE*0.99),'理想买点'),colorWhite;
DRAWTEXT((((SUM((突破> 0),0))=4)AND 突破),(CLOSE * 0.99),'及格买点'),colorWhite;
DRAWTEXT((((SUM((突破> 0),0))>=5) AND 突破),(CLOSE * 0.99),'突破'),colorWhite;
a26:=(CLOSE<(a1/a5))AND(CROSS(80,a16));
DRAWICON(a26,CLOSE,8);
DRAWICON((CLOSE>(a1/a5)AND(CROSS(a16,17))),CLOSE,7);
DRAWICON((CROSS(a16,10)),CLOSE,7);
DRAWICON((CROSS(90,a16)),CLOSE,8);
DRAWICON((CROSS(CLOSE,(a1/a5))),CLOSE,11);
DRAWTEXT(((IF(((((((COUNT((CLOSE<(REF(CLOSE,1))),8))/8)>0.3) AND(COUNT((a20>a21),3)))AND((REF(LOW,1))=a22))AND(CLOSE>OPEN)),1,0))AND(CROSS(a16,15))),LOW,'★小底'),ColorFF8080;
a27:=DYNAINFO(3);
a28:=SMA(CLOSE,2,1);
a29:=SMA(CLOSE,6,1);
a30:=2*(a28-a29);
DRAWTEXTABS(10,200,'■所属板块：'+BKNAME),ColorYELLOW,linethick1;
流通盘大小:=FINANCE2(37)/1000000*100;
DRAWTEXTABS(280,220,'流通盘大小：'+NUMTOSTRN(流通盘大小,2)+'亿'),LINETHICK1,ColorYELLOW;
每股收益:=FINANCE2(3);
每股市盈率:=DYNAINFO(39);
每股净资产:=FINANCE2(4);
销售毛利率:=FINANCE2(12);
主营收入同比:=FINANCE2(11);
净利润同比增长:=FINANCE2(10);
DRAWTEXTABS(170,220,'每股收益:'+NUMTOSTRN(每股收益,2)+'元'),COLOR00FF00;
DRAWTEXTABS(170,240,'每股市盈率:'+NUMTOSTRN(每股市盈率,1)+'倍'),COLORRED;
DRAWTEXTABS(170,260,'每股净资产:'+NUMTOSTRN(每股净资产,2)+'元'),COLORRED;
DRAWTEXTABS(20,220,'销售毛利率：'+NUMTOSTRN(销售毛利率,2)+'%'),LINETHICK1,COLOR00FF00;
DRAWTEXTABS(20,240,'主营收入同比增长：'+NUMTOSTRN(主营收入同比,2)+'%'),LINETHICK1,COLOR00FF00;
DRAWTEXTABS(20,260,'净利润同比增长：'+NUMTOSTRN(净利润同比增长,2)+'%'),LINETHICK1,COLOR00FF00;
7、数据投机（指标源码）
{计算股价}
input:股数(0,0,10000000),买入价(0,0,500),预期涨幅(0,0,100),服务费(0,0,100){根据各证券所收费不同，自行调节};
预卖价位:=买入价*(预期涨幅*0.01+1);
买入收费:=买入价*股数*0.0018{各证券所收费不同，自行调节}+服务费;
卖出收费:=预卖价位*股数*0.0028{各证券所收费不同，自行调节}+服务费;
预期盈利:=预卖价位*股数-买入价*股数-买入收费-卖出收费;
DRAWTEXTREL(320,850,'¤预卖价位: '+NUMTOSTRN(预卖价位,2)+' 元'),LINETHICK5,COLORAFAFAF;
DRAWTEXTREL(540,850,'¤预期盈利: '+NUMTOSTRN(预期盈利,2)+' 元'),LINETHICK5,COLORAFAFAF;
{庄家实力}
cyc0:=MAXCYC;
庄家实力:c/cyc0,precis2,LINETHICK0,COLORC68CFF;
DRAWTEXTREL(100,70,'☆庄家实力: '+NUMTOSTRN(庄家实力,2)+' 级'),LINETHICK5,COLORC68CFF;
{精确风险系数}
rsv:=(c-llv(l,15))/(hhv(h,15)-llv(l,15))*100;
kk:=sma(rsv,10,1);
dd:=sma(kk,5,1);
zlcm:=intpart(sma(rsv,10,1));
shcm:=intpart(sma(kk,5,1));
风险系数:zlcm+shcm-70,precis0,LINETHICK0,COLOR66FFFF;
DRAWTEXTREL(320,70,'※风险系数: '+NUMTOSTRN(风险系数,2)+' 级'),LINETHICK5,COLOR66FFFF;
{历史价位系数}
历史价位:(c-llv(l,0))/(hhv(h,0)-llv(l,0))*100,precis0,LINETHICK0,COLORFFBB77;
DRAWTEXTREL(755,70,'⊙历史价位: '+NUMTOSTRN(历史价位,2)+' %'),LINETHICK5,COLORFFBB77;
{量能饱和度}
饱和量度:IF((AMOUNT/C)/(HHV(AMOUNT,20)/HHV(C,20))*100>100,100,(AMOUNT/C)/(HHV(AMOUNT,20)/HHV(C,20))*100),precis0,LINETHICK0,COLORE07EAA;
DRAWTEXTREL(60,270,'§饱和量度: '+NUMTOSTRN(饱和量度,2)+' ℃'),LINETHICK5,COLORE07EAA;
{股价倾斜系数}
hot:=ma(c,13);
倾斜系数:atan(hot-ref(hot,1))*3.142*100,precis0,LINETHICK0,COLORFFCC62;
DRAWTEXTREL(245,270,'∥倾斜系数: '+NUMTOSTRN(倾斜系数,2)+' 度'),LINETHICK5,COLORFFCC62;
{获利比例}
获利比例:WINNER(CLOSE)*100,precis0,LINETHICK0,COLOR79A5FF;
浮筹比例:(winner(c*1.1)-winner(c*0.9))/winner(hhv(h,0))*100,precis0,LINETHICK0,COLORFFCC62;
DRAWTEXTREL(430,270,'◇获利比例: '+NUMTOSTRN(获利比例,2)+' %'),LINETHICK5,COLOR79A5FF;
DRAWTEXTREL(615,270,'□浮筹比例: '+NUMTOSTRN(浮筹比例,2)+' %'),LINETHICK5,COLORFFCC62;
{人均持股}
人均持股:=INTPART(FINANCE2(36)/extradata('散户线')*10000);
DRAWTEXTREL(800,270,'〓人均持股: '+NUMTOSTRN(人均持股,0)+' 股'),LINETHICK5,COLOR79A5FF;
{止损价位}
LC:=REF(CLOSE,1);
止损价位:=(LC*1.0035*97+0.2)/99.65;
DRAWTEXTREL(100,850,'☆止损价位: '+NUMTOSTRN(止损价位,2)+' 元'),LINETHICK5,colorWHITE;
{成本预测}
建仓成本:MAXCYC,precis2,LINETHICK0,COLORFFBB77;
心理价位:DMA(AMOUNT/(100*VOL),VOL/(100*FINANCE2(37)))*1.12,precis2,LINETHICK0,COLORC78EFF;
DRAWTEXTREL(60,470,'○建仓成本: '+NUMTOSTRN(建仓成本,2)+' 元'),LINETHICK5,COLORFFBB77;
DRAWTEXTREL(60,660,'◎心理价位: '+NUMTOSTRN(心理价位,2)+' 元'),LINETHICK5,COLORC78EFF;
{上升空间}
上升空间:100-c/(心理价位-建仓成本)*10,precis0,LINETHICK0,COLOR79A5FF;
DRAWTEXTREL(540,70,'‖上升空间: '+NUMTOSTRN(上升空间,2)+' %'),LINETHICK5,COLOR79A5FF;
{股价预测}
VC:=(HIGH+LOW+OPEN+2*CLOSE)/5;
明日阻力:=2*VC-LOW;
明日支撑:=2*VC-HIGH;
明日突破:=VC+(HIGH-LOW);
明日反转:=VC-(HIGH-LOW);
今日阻力:=REF(明日阻力 , 1);
今日支撑:=REF(明日支撑 , 1);
今日突破:=REF(明日突破 , 1);
今日反转:=REF(明日反转 , 1);
DRAWTEXTREL(245,470,'↑今日支撑: '+NUMTOSTRN(今日支撑,2)+' 元'),LINETHICK5,COLOR5959FF;
DRAWTEXTREL(430,470,'↓今日阻力: '+NUMTOSTRN(今日阻力,2)+' 元'),LINETHICK5,COLOR61FE78;
DRAWTEXTREL(615,470,'♂今日突破: '+NUMTOSTRN(今日突破,2)+' 元'),LINETHICK5,COLOR66FFFF;
DRAWTEXTREL(800,470,'♀今日反转: '+NUMTOSTRN(今日反转,2)+' 元'),LINETHICK5,COLORFC878F;
DRAWTEXTREL(245,660,'↑明日支撑: '+NUMTOSTRN(明日支撑,2)+' 元'),LINETHICK5,COLOR5959FF;
DRAWTEXTREL(430,660,'↓明日阻力: '+NUMTOSTRN(明日阻力,2)+' 元'),LINETHICK5,COLOR61FE78;
DRAWTEXTREL(615,660,'♂明日突破: '+NUMTOSTRN(明日突破,2)+' 元'),LINETHICK5,COLOR66FFFF;
DRAWTEXTREL(800,660,'♀明日反转: '+NUMTOSTRN(明日反转,2)+' 元'),LINETHICK5,COLORFC878F;
{实际盈亏}
实际盈亏:c*股数-买入价*股数-买入收费-卖出收费,precis2,LINETHICK0,colorWHITE;
DRAWTEXTREL(755,850,'￥实际盈亏: '+NUMTOSTRN(实际盈亏,2)+' 元'),LINETHICK5,colorWHITE;
8.庄家吸筹
A1:=DATE <= 1070615;
A2:=(100 * (CLOSE - (MA(CLOSE,30)))) /
(MA(CLOSE,30));
A3:=100 - ((90 * ((HHV(HIGH,20)) - CLOSE)) / ((HHV(HIGH,20))
- (LLV(LOW,20))));
A4:=100 - (MA(((100 * ((HHV(HIGH,6)) - CLOSE)) /
((HHV(HIGH,6)) - (LLV(LOW,6)))),28));
A5:=MA(A4,6);
红持股:IF((A3 <
A5),A5,A3),COLORRED;
绿持币:IF((A3 >
A5),A5,A3),COLORGREEN;
强弱:(A5),LINETHICK1,COLORYELLOW;
A6:=(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)));
A7:=(10);
百万测底:((CROSS(A6,A7)) * 75) *
A1,LINETHICK2,COLOR0000FF;
A8:=(REF(CLOSE,1)) /
CLOSE;
A9:=MIN((MA(((AMOUNT / VOL) / 100),15)),(EMA(((AMOUNT / VOL) /
100),15)));
A10:=((1 - ((SMA(((LOW * A8) - (A8 / 10)),6,1)) / (EMA(((AMOUNT /
VOL) / 100),15)))) * 100) - (100 / 10);
A11:=((((1 - ((MA((LOW - (A8 /
10)),6)) / A9)) * (DMA(CLOSE,(VOL / CAPITAL)))) / (MA(LOW,6))) * 100) - (100 /
10);
A12:=((((A10 + (A11 / 10)) > 0) AND (DATE > 1000101)) AND (DATE
< 1991231)) AND ((COUNT((((1 - (CLOSE / (REF(CLOSE,1)))) > 0.099) AND ((1
- ((REF(CLOSE,1)) / (REF(CLOSE,2)))) > 0.099)),20)) <
3);
A13:=(((((((A10 + (A11 / 10)) > -3.688) AND (DATE > 1000101)) AND
(DATE < 1991231)) AND ((CLOSE / (REF(CLOSE,1))) > 1.02)) AND ((COUNT((((1
- (CLOSE / (REF(CLOSE,1)))) > 0.099) AND ((1 - ((REF(CLOSE,1)) /
(REF(CLOSE,2)))) > 0.099)),20)) < 3)) AND (((REF(CLOSE,1)) /
(REF(CLOSE,2))) < 0.95)) AND ((CLOSE / (HHV(HIGH,20))) <
0.855);
灵桥黑码:((IF(((((100 < 100) AND ((A10 + (A11 / 10)) > 0)) AND
(DATE > 1000101)) AND (DATE < 1991231)),(A12 = 1),(A13 = 1))) * 100) *
A1,LINETHICK2,COLORRED;
A14:=EMA(CLOSE,8);
A15:=EMA(A14,20);
A16:=CROSS(A14,A15);
A17:=A14
< (EMA(CLOSE,120));
大波黑码起步:((A16 AND A17) * 75) *
A1,LINETHICK2,COLORYELLOW;
A18:=SUM((IF((CLOSE >
(REF(CLOSE,1))),VOL,(IF((CLOSE < (REF(CLOSE,1))),(0 -
VOL),0)))),0);
A19:=SUMBARS(VOL,CAPITAL);
A20:=(IF((CLOSE >
(LLV(CLOSE,A19))),1,-1)) * (IF((A18 > (LLV(A18,A19))),1,-1));
A21:=IF((A20
= -1),1,0);
A22:=(COUNT((A21 = 1),8)) > 2;
A23:=((SUM(AMOUNT,13)) /
((AMOUNT / VOL) / 100)) / 100;
A24:=DMA((((((3 * HIGH) + LOW) + OPEN) + (2 *
CLOSE)) / 7),(VOL / A23));
A25:=(((CLOSE - A24) / A24) * 100) <
-15;
A26:=((CLOSE - (MIN(((REF(CLOSE,5)) * 0.865),((REF(CLOSE,21)) *
0.772)))) / CLOSE) < 0.05;
A27:=REF(LOW,1);
A28:=((SMA(ABS((LOW -
A27)),3,1)) / (SMA((MAX((LOW - A27),0)),3,1))) * 100;
A29:=EMA((IF((CLOSE *
1.2),(A28 * 10),(A28 /
10))),3);
A30:=LLV(LOW,38);
A31:=HHV(A29,38);
A32:=IF((LLV(LOW,90)),1,0);
A33:=((EMA((IF((LOW
<= A30),((A29 + (A31 * 2)) / 2),0)),3)) / 618) *
A32;
(STICKLINE(A33,0,A33,6,1)) ,COLORBLUE;
底部不买你后悔:(IF(((A25 AND A26) AND
A22),60,0)) * A1;
9.抓涨停
N:=55;
WL:=(CLOSE-MA(CLOSE,6))/MA(CLOSE,6)*100;
WLT:=MA(WL,89);
WLT1:=CROSS(WL,WLT);
WLT11:=CROSS(WL,-10);
WLT2:=FILTER(WLT1,8);
T1:=WLT11 OR WLT2;
T2:="KDJ.J"(9,3,3)<0 AND "KDJ.J"(9,3,3)>0;
LV:=MA(C,24);
HR0:=HHV(HIGH,N);
HRY0:=LLV(LOW,N);
HRY110:=HR0*HRY0;
HRY330:=SQRT(HRY110);
NS1:=C>HRY330 AND HRY330>=REF(HRY330,1) AND C>LV;
T3:=WLT2 OR WL>WLT;
XG1:=T1 AND NS1;
XG2:=T1 AND T3;
W18:XG1 OR XG2 OR T2;
10.
{选择涨停股票的基本条件}
{ST股票判断、今日停牌股票}
ISST:=STRFIND(STkNAME,UPPERSTR('ST'),1)<>0;
JB:=(ISST=0) and DYNAINFO(8)>0;
{早盘30分钟，成交量}
B:=DYNAINFO(8);
BV:=REF(V,1);
ZF2:=B/BV*100;
{10点的涨幅}
A:=DYNAINFO(7);
AC1:=REF(C,1);
ZF1:=(A-AC1)/AC1*100;
{当前价格高于开盘价}
D:=A-O;
{股票昨天是涨的}
{K:=REF(C,1)-REF(O,1);}
{5日均线比10日均线高}
KK:=ma(c,5) >ma(c,10) and ma(c,5)>ref(ma(c,5),1);
{5分钟、15分钟、30分钟MACD都出现红柱}
DEA5:="MACD.DEA#min5";
DIFF5:="MACD.DIFF#min5";
d5:=DIFF5-DEA5;
DEA15:="MACD.DEA#min15";
DIFF15:="MACD.DIFF#min15";
d15:=DIFF15-DEA15;
DEA30:="MACD.DEA#min30";
DIFF30:="MACD.DIFF#min30";
d30:=DIFF30-DEA30;
{j:=(d5>0 and d15>0) or (d5>0 and d30>0) or (d15>0 and d30>0);}
j:= (d5>0 and d15>0 and d30>0);
{委买大于委卖}
E:=DYNAINFO(23)-DYNAINFO(22);
{昨天成交量比前天多}
F:=REF(V,1)-REF(V,2);
选股:ZF1<6 and ZF2>30 and JB>0 and j>0 and D>0 and E>0 and F>0 and KK>0;
10通信达分时抓涨停
日1:EMA(C,1),COLORFF00FF; 日:=EMA((H+L+C)/3,1); 日5:=MA(EMA((H+L+C)/3,1),5); 日10:=MA(EMA((H+L+C)/3,1),10); 对比日:EMA(REF(日,240),1),COLORWHITE ; 对比日5:=MA(EMA(REF(日,240),1),5); 对比日10:=MA(EMA(REF(日,240),1),10); 强:=日5>对比日5 AND 日10>对比日10 AND 日5-对比日5>0 AND 日10-对比日10>0 ; 角:=(ATAN((日10/REF(日10,5)-1)*100)*180/3.14115926)>30; 角2:=(ATAN((日10/REF(日10,5)-1)*100)*180/3.14115926)>20; 弱:=日5<对比日5 AND 日10<对比日10 AND 日5-对比日5<0 AND 日10-对比日10<0 AND 对比日5>REF(对比日5,3); STICKLINE( CROSS(日5,对比日5) AND C>REF(C,150) AND 角,日5*1.05,REF(LLV(对比日,200),200),1,0),COLORRED; STICKLINE(角2,日5*0.98,REF(LLV(对比日,200),200),1,0),COLORYELLOW; DRAWICON(CROSS(日1,对比日)AND C>REF(C,240),日1*1.05,1); DRAWKLINE(INDEXH,INDEXO,INDEXL,INDEXC);
gd24413
