通达信抄底黄金副图/选股指标 源码 贴图

DRAWGBK(C>0,RGB(10,10,10),RGB(10,10,10),0,'01',0); {背景不要可删除}
{龙行天下大底}
HH:=MAX(HIGH,REF(CLOSE,1));
LL:=MIN(LOW,REF(CLOSE,1));
AAA:=SUM(CLOSE-LL,7)/SUM(HH-LL,7);
BB:=SUM(CLOSE-LL,14)/SUM(HH-LL,14);
CC:=SUM(CLOSE-LL,28)/SUM(HH-LL,28);
TLIKTLI:=(AAA/7+BB/14+CC/28)*7*14*28/(7*14+14*28+7*28)*1000;
MTLIKTLI:=EMA(TLIKTLI,6);
AVPRICE:=((CLOSE+OPEN+LOW+HIGH)/(4));
XXVOL:=(VOL)*(AVPRICE);
AAD:=(SUM(XXVOL,25)+0.001)/(SUM(VOL,25)+0.001);
GN:=(((500)*(AVPRICE-AAD))/(MAX(AVPRICE,AAD)));
白虎:=EMA(GN,14);
地鼠2:=EMA(MTLIKTLI,1)/-4.5815926;
天下大底:=白虎<地鼠2;
大底:天下大底<1 AND REF(天下大底,1)>0,COLORMAGENTA;
{飘零买点}
M1:=WINNER( MA(CLOSE,1))*200;
M2:=WINNER(MA(CLOSE,20))*200;
VAR1:=(CLOSE-LLV(LOW,80))/(HHV(HIGH,80)-LLV(LOW,80))*200;
VAR2:=SMA(VAR1,3,1);
VAR3:=SMA(VAR2,3,1);
VAR4:=3*VAR2-2*VAR3;
VAR5:=LLV(LOW,5);
VAR6:=HHV(HIGH,5);
VAR7:=EMA((CLOSE-VAR5)/(VAR6-VAR5)*100,4)*2;
VAR8:=EMA(0.667*REF(VAR7,1)+0.333*VAR7,2);
VAR9:=3*VAR7-2*VAR8;
VARA:=POW(MA(CLOSE,5),2)+MA(CLOSE,5);
VARB:=POW(MA(LOW,5),2)+MA(LOW,5);
VARC:=POW(MA(HIGH,5),2)+MA(HIGH,5);
VARD:=(VARA-LLV(VARB,64))/(HHV(VARC,64)-LLV(VARB,64))*150+65-10;
VARE:=SMA(VARD,3,1)*1.5-100;
VARF:=SMA(VARE,3,1);
VAR10:=3*VARE-2*VARF;
VAR11:=(HIGH+LOW+CLOSE*2)/4;
VAR12:=EMA(VAR11,13);
VAR13:=STD(VAR11,13);
VAR14:=(VAR11-VAR12)*100/VAR13;
VAR15:=EMA(VAR14,5);
VAR17:=EMA(VAR15,13)+200-100;
VAR18:=EMA(VAR17,10);
VAR19:=3*VAR17-2*VAR18;
VAR1A:=VAR2+VAR7+VARE+VAR17;
VAR1B:=VAR3+VAR8+VARF+VAR18;
VAR1C:=VAR4+VAR9+VAR10+VAR19;
VAR1D:=(HIGH+LOW+CLOSE)/3;
VAR20:=(VAR1D-MA(VAR1D,34))/(0.015*AVEDEV(VAR1D,34));
VAR21:=DMA(AMOUNT/VOL/100,VOL/CAPITAL);
VAR22:=(HIGH+LOW+CLOSE+VAR1D)/4;
VAR23:=EMA(VAR22,24);
VAR24:=STD(VAR22,24);
VAR25:=(VAR22-VAR23)/VAR24*100;
VAR26:=(VAR1D-MA(VAR1D,24))/(0.015*AVEDEV(VAR1D,24));
VAR27:=EMA(VAR25,5);
VAR2A:=((VAR27+VAR26+VAR20)/3+165)/4;
VAR2B:=(EMA(EMA(EMA(VAR2A,15),10),5)-25)*2+VAR21;
VAR2C:=(VAR1A+VAR1B+VAR1C*30)/32/5-15;
VAR2D:=EMA(VAR2C,13);{13}
VAR2E:=(VAR2A+VAR2C)/2/1.1;
VAR28:=(CLOSE-MA(CLOSE,6))/MA(CLOSE,6)*100;
VAR29:=(CLOSE-MA(CLOSE,12))/MA(CLOSE,12)*100;
VAR30:=(CLOSE-MA(CLOSE,24))/MA(CLOSE,24)*100;
VAR31:=REF(CLOSE,1);
VAR32:=SMA(MAX(CLOSE-VAR31,0),5,1)/SMA(ABS(CLOSE-VAR31),5,1)*100;
VAR33:=(HIGH+LOW+CLOSE)/3;
VAR34:=(VAR33-MA(VAR33,14))/(0.015*AVEDEV(VAR33,14));
飘零买点60%:(VAR28>=-15.8 AND VAR28<=-12.2 AND VAR29<=-20.8 AND VAR30<=-27.5 AND VAR32<=11.7 AND VAR34<=-145)*100,COLORGREEN;
{专抄大底}{10%利润61%胜率}{公式网WWW.GPXIAZAI.COM}
VAR2T:=IF(EMA(CLOSE,5)/EMA(EMA(CLOSE,9),16)<=0.85 AND CLOSE/REF(CLOSE,1)>0.905 AND CLOSE/REF(CLOSE,1)<1.05 AND VOL/CAPITAL*100<5,50,0);
VAR3T:=(-100)*(HHV(HIGH,34)-CLOSE)/(HHV(HIGH,34)-LLV(LOW,34))+100;
VAR4T:=(-100)*(HHV(HIGH,50)-CLOSE)/(HHV(HIGH,50)-LLV(LOW,50))+100;
VAR5T:=(-100)*(HHV(HIGH,70)-CLOSE)/(HHV(HIGH,70)-LLV(LOW,70))+100;
VAR6T:=((CLOSE-MA(CLOSE,34))/MA(CLOSE,34)*100+10)*5;
VAR7T:=((CLOSE-MA(CLOSE,50))/MA(CLOSE,50)*100+10)*5;
VAR8T:=((CLOSE-MA(CLOSE,70))/MA(CLOSE,70)*100+10)*5;
VAR9T:=(VAR3T+VAR4T+VAR5T+VAR6T+VAR7T+VAR8T)/6;
VARBT:=ABS(VAR6T-VAR8T);
VARCT:=(VAR9T+VARBT)/2;
VAR10T:=IF(VARCT<0 AND CLOSE=LLV(CLOSE,5) AND CLOSE/REF(CLOSE,1)>0.905 AND CLOSE/REF(CLOSE,1)<1.05 AND VOL/CAPITAL*100<5,-50,0);
VAR13T:=REF(CLOSE,2)*0.865;
VAR14T:=REF(CLOSE,13)*0.772;
VAR15T:=MIN(VAR13T,VAR14T);
VAR16T:=100*VOL/CAPITAL;
VAR18T:=IF((CLOSE-VAR15T)/CLOSE<0.03 AND SUM(VAR16T,5)/5<1.8,1,0);
VAR19T:=IF(VAR18T>0 AND (VAR10T<0 OR VAR2T>0),100,0);
AAT:=MA(CLOSE,80)-MA(CLOSE,10)/3;
专抄大底61%:VAR19T AND CLOSE<AAT,COLORCYAN;
{大黑熊2012}{10%利润62%胜率}
DVAR1:=(CLOSE-MA(CLOSE,48))/MA(CLOSE,48)*100<-28;
DVAR2:=SMA(MAX(CLOSE-REF(CLOSE,1),0),12,1)/SMA(ABS(CLOSE-
REF(CLOSE,1)),12,1)*100>23;
DVAR3:=DVAR1 AND DVAR2;
大黑熊62%:DVAR3 AND VOL>MA(VOL,18) AND (REF(CLOSE,1)>REF(OPEN,1) OR
REF(CLOSE,1)<REF(OPEN,1)) AND (REF(CLOSE,2)>REF(OPEN,2) OR
REF(CLOSE,2)<REF(OPEN,2)) AND (REF(CLOSE,3)>REF(OPEN,3) OR
REF(CLOSE,3)<REF(OPEN,3)) AND (REF(CLOSE,4)>REF(OPEN,4) OR
REF(CLOSE,4)<REF(OPEN,4)) AND (REF(CLOSE,5)>REF(OPEN,5) OR
REF(CLOSE,5)<REF(OPEN,5)) AND (REF(CLOSE,6)>REF(OPEN,6) OR
REF(CLOSE,6)<REF(OPEN,6)),COLORWHITE;
{信号出来后不要急着买，等第二天不创新低再分3--5批买入};
{股山寻矿}{10%利润62%胜率}
E7:=C<=MA(C,45)*0.75;
E8:=1/(WINNER(C*1.2)-WINNER(C*0.8))>=10;
金矿石三:=E7 AND E8 AND C>LLV(L,3);
E9:=(CLOSE-MA(CLOSE,48))/MA(CLOSE,48)*100<-25;
E10:=(CLOSE-MA(CLOSE,70))/MA(CLOSE,70)*100<-27;
E11:=E9 AND E10;
E12:=VOL<REF(VOL,1)*2.8 OR CLOSE<MA(CLOSE,48)*0.7 AND (COUNT(CLOSE<OPEN*0.97,2)=2 AND C>-3.7 OR COUNT(HIGH/LOW>1.065,5)>3);
金矿石四:=E11 AND (CLOSE>OPEN*1.06 OR CLOSE>REF(CLOSE,1)*1.038) AND E12;
股山寻矿62%:金矿石三 OR 金矿石四,COLORMAGENTA;
{铁底}{10%利润63%胜率}
M:=30;
A:=INDEXC/MA(INDEXC,58)<0.848 AND C/EMA(C,58)<0.81;
B:=BARSLAST(A)+1;
D:=BETWEEN(B,2,M) AND C<REF(C,B);
铁底63%:COUNT(A,2) OR D,COLORGREEN;
{福旺}{10%利润67%胜率}
XF_1:=CLOSE/MA(CLOSE,40)*100<76;
XF_2:=CLOSE/MA(CLOSE,60)*100<74;
XF_3:=HIGH>LOW*1.051;
XF_4:=XF_3 AND COUNT(XF_3,5)>1;
XF_5:=IF(XF_4 AND (XF_1 OR XF_2),2,0);
XF_6:=CLOSE/REF(CLOSE,25)<=1.1;
XF_7:=SMA(MAX(CLOSE-REF(CLOSE,2),0),7,1)/SMA(ABS(CLOSE-REF(CLOSE,2)),7,1)*100<15;
XF_8:=(CLOSE-LLV(LOW,8))/(HHV(HIGH,8)-LLV(LOW,8))*100;
XF_9:=SMA(XF_8,2,1);
XF_10:=IF(XF_9>REF(XF_9,1) AND REF(XF_9,1)<REF(XF_9,2) AND XF_9<23,1.5,0);
福旺67%:XF_6 AND XF_5 AND XF_7 AND XF_10,COLORRED;
{耍无赖}{10%利润67%胜率}
BIAS0:=(C-MA(C,2))/MA(C,2)*100;
HXL:=V/CAPITAL*100;
D1:=INDEXC;
D2:=MA(D1,13);
DR2:=D2>1.050*D1;
E1:=(C-HHV(C,12))/HHV(C,12)*10;
E2:=(C-REF(C,26))/REF(C,26)*10;
E3:=MA(C,3);
SJ1:=DR2;
SJ2:=E2<-2.30;
SJ3:=BIAS0<-2.7;
SJ5:=SJ1 AND SJ2 AND SJ3;
SJ6:=CROSS(0.5,SJ5);
JS1:=CROSS(SJ6,0.5);JS2:=BARSLAST(JS1=1);
JS3:=JS2<=5 AND C<REF(C,JS2);
耍无赖67%:SJ6 OR JS3,COLORYELLOW;
{缩量底}{10%利润76%胜率}
X_1:=VOL<MA(VOL,5) AND MA(VOL,5)<MA(VOL,55) AND CLOSE/REF(CLOSE,1)>1.028 AND MA(CLOSE,10)>CLOSE*1.05 AND MA(CLOSE,10)<CLOSE*1.13 AND MA(CLOSE,60)>CLOSE*1.28;
X_2:=(CLOSE-SMA(CLOSE,13,1))/SMA(CLOSE,13,1)*(-100);
X_3:=REF(X_2,1)>13 AND REF(X_2,1)/X_2>1.23 AND CLOSE/REF(CLOSE,1)>1.03;
X_4:=FILTER(IF(X_3 AND REF(CLOSE,1)<=COST(1),1,0) AND CLOSE<>LOW,5);
X_5:=IF(HIGH>LOW*1.051 AND COUNT(HIGH>LOW*1.051,5)>1 AND (CLOSE/MA(CLOSE,40)*100<78 OR CLOSE/MA(CLOSE,60)*100<74),2,0);
X_16:=CLOSE/REF(CLOSE,1)>1.011 AND VOL*1.1<REF(VOL,1) AND CLOSE>OPEN*1.015 AND REF(CLOSE,1)/REF(CLOSE,2)<0.999 AND REF(CLOSE,1)*1.015<REF(OPEN,1) AND NOT(CLOSE/REF(CLOSE,1)>1.0989);
X_17:=IF(X_16,0.5,0);
缩底:=X_1+X_4+X_5+X_17>=2 AND KDJ.D<10 AND KDJ.J>0;
缩量底76%:缩底>0 AND REF(缩底,1)<1,COLORCYAN;