|
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);VAR2:STICKLINE(DYNAINFO(7)=CLOSE
AND
DYNAINFO(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) AND
J>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);VAR333:=HHV(HIGH,36);K2:=EMA((CLOSE-VAR222)/(VAR333-VAR222)*100,9);XB:=(IF(CCJ>100
AND K2>50 AND CLOSE>OPEN,0.5,0))+(IF(RSI1>80 AND K2>50
AND
CLOSE>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>80
AND RSI1>85,0.5,0);金指 EMA(IF(LOW<=LLV(LOW,30),VARC,0),3))*150,LINETHICK2,colorFF0000;IF(DYNAINFO(7)=CLOSE
AND DYNAINFO(10)=AMOUNT,VAR1,VAR2),colorFF0000;警戒線:(IF(XA+XB+XC>0,61.8,0))*150;DRAWTEXT(DYNAINFO(7)=CLOSE
AND DYNAINFO(10)=AMOUNT,VOL,'動態(tài)行情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; |
|
|
