|
以下是通达信虎拓圣龙买卖源码（无源码的请下载附件导入）
{XDB:="虎拓圣龙.买入力度";
XDS:="虎拓圣龙.卖出力度";}
MM:=H-REF(C,1);
SS:=REF(C,1)-L;
S:=IF(SS>0,SS,0.01);
M:=IF(MM>0,MM,0.01);
HJ:=M+S;
买入力度:=M/HJ*AMOUNT/CAPITAL;
卖出力度:=S/HJ*AMOUNT/CAPITAL;
X:=(买入力度-卖出力度);
SUMX:=SUM(X,0);
SUMXP:=X*10;
CT:=COUNT(SUMXP>0,0);
ST:=COUNT(SUMXP<0,0);
CZ:=CT-ST;
T1:=V>MA(V,0)*5;
T2:=SLOPE(C,5)>0.02;
T3:=SLOPE(C,4)>0.016;
X1:=T1 AND T2 AND SUMX>0 AND CT>ST*1.5;
X2:=(COUNT(SUMXP>0,6)>5 OR COUNT(SUMXP>0,10)>7) AND SUMX>0.1 AND T3;
Y:=HHV(SUMXP,0);
B:=X1*Y;
庄家:(X2*Y)/200,LINETHICK2,COLOR0088FF;
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-VARA)/1,LINETHICK1 ,colorwhite;
H00:=SUM(IF((CLOSE> REF(CLOSE,1.000)),VOL,IF((CLOSE<REF(CLOSE,1.000)),(0-VOL),0)),0);
H01:=SUMBARS(VOL,CAPITAL);
H02:=IF((CLOSE>LLV(CLOSE,H01)),1.000,(0-1.000))*IF((H00 >LLV(H00,H01)),1.000,(0-1.000));
H03:=(COUNT((IF((H02=(0-1.000)),1.000,0)=1.000),8.000)>2.000);
H04:=((CLOSE-DMA((((3.000 * HIGH + LOW)+OPEN)+2.000 * CLOSE)/7.000,VOL/SUM(AMOUNT,13.000)/
AMOUNT/VOL/100.000/100.000))/DMA((((3.000*HIGH+LOW)+OPEN)+2.000*CLOSE)/7.000,VOL/SUM(AMOUNT,13.000)/
AMOUNT/VOL/100.000/100.000)*100.000<(0-18.000));
H05:=((CLOSE-MIN(REF(CLOSE,5.000)*0.865,REF(CLOSE,21.000)*0.772))/CLOSE<0.009);
H06:=((H03 AND H04) AND H05);
H07:=(((((OPEN < EMA(CLOSE,5.000)) AND (CLOSE=HIGH)) AND (CLOSE/OPEN>=1.05)) AND (VOL/
CAPITAL>=0.019)) AND (VOL/CAPITAL<=0.200));
H08:=(H07 AND (COUNT(H07,5.000)=1.000));
H09:=((((((((((((MA(CLOSE, 3.000)>REF(MA(CLOSE,3.000),1.000)) AND (MA(CLOSE, 5.000)>
REF(MA(CLOSE,5.000),1.000))) AND (MA(CLOSE,10.000)>REF(MA(CLOSE,10.000),1.000))) AND
(VOL/240.000>REF(VOL,30.000)*1.200/240.000*1.500)) AND (CLOSE>LOW*1.059)) AND (CLOSE>
REF(MA(CLOSE,3.000),1.000))) AND REF(CLOSE,1.000)) AND (MA(CLOSE,5.000)>REF(MA(CLOSE,
5.000),1.000))) AND (MA(CLOSE,10.000)>REF(MA(CLOSE,10.000),1.000))) AND (MA(CLOSE,20.000)>
REF(MA(CLOSE,20.000),1.000))) AND (MA(VOL,5.000)>REF(MA(VOL,5.000),1.000))) AND ((MA(CLOSE,5.000)-MA
(CLOSE,10.000))<= 0.579));
A0A:=FILTER(H09,5.000);
牛股:((H06 OR H07) AND A0A),LINETHICK1,colorred;
主力筹码:=EMA(WINNER(CLOSE)*70,10);
散户筹码:=EMA((WINNER(CLOSE*1.1)-WINNER(CLOSE*0.9))*80,10);
机构拉升:(主力筹码-散户筹码)/1,LINETHICK1,colormagenta;
钥匙:50,COLOR00FF66;
ZLCM:=EMA((WINNER(CLOSE) * 70),3);
SHCM:=EMA(((WINNER((CLOSE * 1.1)) - WINNER((CLOSE * 0.9))) * 80),3);
主力控盘:((ZLCM / (ZLCM + SHCM)) * 100),LINETHICK2,coloryellow;
顶:90, LINETHICK2 ,colorred;
风险:80,coloryellow;
VARF:=TROUGHBARS(3,15,1)<4;
多空:=EMA((CLOSE-MA((2*CLOSE+HIGH+LOW)/4,30))/MA((2*CLOSE+HIGH+LOW)/4,30)*100,3),colorwhite;
STICKLINE(FILTER(VARF=1,5) AND 多空<-10,40,0,2,0),COLORF00FF0;
STICKLINE(FILTER(VARF=1,5),40,0,2,0),coloryellow;
DRAWTEXT(牛股,-10.4,'▲←超级黑马'),colorred;
|
