1){选股公式} {筹码集中} A1:=COST(85); A2:=COST(15); A3:=A1-A2; A4:=(A1+A2)/2; 单峰密集:A3/A4*100<15,linethick0; B1:=HHV(HIGH,250); B2:=LLV(LOW,250); B3:=B1-B2; 低位:A4<(B3*0.4+B2),linethick0; 低位单峰密集:单峰密集AND 低位,colorred; 高位:A4>(B3*0.7+B2),linethick0; 高位单峰密集:单峰密集AND 高位,colorgreen;{ 三位一体选股公式}STICKLINE(OPEN>=CLOSE,VOL,0,9,0),colorAAAAAA; STICKLINE(OPEN>=CLOSE,VOL,0,6,0),colorBBBBBB; STICKLINE(OPEN>=CLOSE,VOL,0,2.4,0),colorCCCCCC; STICKLINE(OPEN>=CLOSE,VOL,0,1.1,0),colorDDDDDD; STICKLINE(CLOSE>OPEN,VOL,0,9,0),color6666CC; STICKLINE(CLOSE>OPEN,VOL,0,6,0),color7777DD; STICKLINE(CLOSE>OPEN,VOL,0,2.4,0),color8888EE; STICKLINE(CLOSE>OPEN,VOL,0,1.1,0),color9999FF; STICKLINE(CLOSE>OPEN,OPEN,LOW,0.5,0),color1199FF; STICKLINE(CLOSE>OPEN,CLOSE,HIGH,0.5,0),color1199FF; STICKLINE(OPEN>=CLOSE,CLOSE,LOW,0.5,0),colorCCCCCC; STICKLINE(OPEN>=CLOSE,OPEN,HIGH,0.5,0),colorCCCCCC; VAR1:=DYNAINFO(17)*REF(MA(VOL,5),1); AR2:STICKLINE(DYNAINFO(7)=CLOSEANDDYNAINFO(10)=AMOUNT,VAR1,0,4,1); VARC:=(SMA(ABS(LOW-REF(LOW,1)),3,1))/(SMA(MAX(LOW-REF(LOW,1),0),3,1)); RSV1:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100; K1:=SMA(RSV1,3,1); D1:=SMA(K1,3,1); J1:=3*K1-2*D1; RSV:=(CLOSE-LLV(LOW,26))/(HHV(HIGH,26)-LLV(LOW,26))*100; K:=SMA(RSV,6,1); D:=SMA(K,3,1); J:=3*K-2*D;LC:=REF(CLOSE,1); XA:=(IF(CROSS(J1,J)AND J<20,-1,0))+(IF(CROSS(J,J1) ANDJ>80,1,0)); TYP:=(HIGH+LOW+CLOSE)/3; CCJ:=(TYP-MA(TYP,14))/(0.015*AVEDEV(TYP,14))/2; RSI1:=(SMA(MAX(CLOSE-LC,0),6,1))/(SMA(ABS(CLOSE-LC),6,1))*100;VAR222:=LLV(LOW,36); AR333:=HHV(HIGH,36); K2:=EMA((CLOSE-VAR222)/(VAR333-VAR222)*100,9); XB:=(IF(CCJ>100AND K2>50 AND CLOSE>OPEN,0.5,0))+(IF(RSI1>80 AND K2>50ANDCLOSE>OPEN,0.5,0));RSV3:=(CLOSE-LLV(LOW,100))/(HHV(HIGH,100)-LLV(LOW,100))*100; K13:=SMA(RSV3,21,1); D13:=SMA(K1,3,1); J13:=3*K13-2*D13; XC:=IF(J13>80AND RSI1>85,0.5,0); 金指 EMA(IF(LOW<=LLV(LOW,30),VARC,0),3))*150,LINETHICK2,colorFF0000; IF(DYNAINFO(7)=CLOSEAND DYNAINFO(10)=AMOUNT,VAR1,VAR2),colorFF0000; 警戒线:(IF(XA+XB+XC>0,61.8,0))*150;DRAWTEXT(DYNAINFO(7)=CLOSEAND DYNAINFO(10)=AMOUNT,VOL,'动态行情VOL');
2.飞狐的单峰密集
sx100:=SUMBARS(100*v/CAPITAL,100); p100:=ma(c,sx100),LINETHICK1,color0000ff; ba100:=BACKSET(BARSTATUS=2,sx100); VERTLINE(ref(ba100,1)=0 and ba100=1),POINTDOT,color0000ff;
sx200:=SUMBARS(100*v/CAPITAL,200); p200:=ma(c,sx200),LINETHICK1,colorff00ff; ba200:=BACKSET(BARSTATUS=2,sx200); VERTLINE(ref(ba200,1)=0 and ba200=1),POINTDOT,colorff00ff;
sx300:=SUMBARS(100*v/CAPITAL,300); p300:=ma(c,sx300),LINETHICK1,colorff6600; ba300:=BACKSET(BARSTATUS=2,sx300); VERTLINE(ref(ba300,1)=0 and ba300=1),POINTDOT,colorff6600;
sx400:=SUMBARS(100*v/CAPITAL,400); p400:=ma(c,sx400),LINETHICK1,color0099ff; ba400:=BACKSET(BARSTATUS=2,sx400); VERTLINE(ref(ba400,1)=0 and ba400=1),POINTDOT,color0099ff;
sx500:=SUMBARS(100*v/CAPITAL,500); p500:=ma(c,sx500),LINETHICK1,colorgray; ba500:=BACKSET(BARSTATUS=2,sx500); VERTLINE(ref(ba500,1)=0 and ba500=1),POINTDOT,colorgray;
a1:=p100;b[1]:=a1[SYSPARAM(1)]; a2:=p200;b[2]:=a2[SYSPARAM(1)]; a3:=p300;b[3]:=a3[SYSPARAM(1)]; a4:=p400;b[4]:=a4[SYSPARAM(1)]; a5:=p500;b[5]:=a5[SYSPARAM(1)]; zd:max(max(max(max(a1,a2),a3),a4),a5); zx:min(min(min(min(a1,a2),a3),a4),a5); PARTLINE(1,zd),COLORGRAY; PARTLINE(1,zx)COLORGRAY; for i=1 to 5 do begin if zd[SYSPARAM(1)]=b then 最大:if(i=1,100,I*100),LINETHICK0,COLORYELLOW;
if zx[SYSPARAM(1)]=b then 最小:if(i=1,100,I*100),LINETHICK0,COLORGREEN;
end; 3.一个单峰密集度选股 1)A50:=COST(50),COLORRED,LINETHICK2;
WINNER(C)*100>50 AND CROSS(C,A50); 2)xa:=sma(cost(80),2,1); xb:=sma(cost(4),3,1); 筹码密集:(xa-xb)/xa*100<25 and COUNT(CLOSE,0)>30;
10. A1:=COST(85); A2:=COST(15); A3:=A1-A2; A4:=(A1+A2)/2; 单峰密集:A3/A4*100<14.45;
|