相關(guān)標簽:

 

VARIABLE:K=1;
VAR1:=SUM(VOL,0);
VAR2:=VAR1/CAPITAL;
N:=FLOOR(VAR2);
IF N=REF(N,1)+1 THEN BEGIN
STICKLINE(C,0,180,4,1);
DRAWTEXT(C,80,' 第'),ALIGN0,COLORGREEN;
DRAWTEXT(C,70,' '+NUMTOSTR( N)),ALIGN0,COLORRED;
DRAWTEXT(C,60,' 次'),ALIGN0,COLORGREEN;
DRAWTEXT(C,50,' 完'),ALIGN0,COLORGREEN;
DRAWTEXT(C,40,' 全'),ALIGN0,COLORGREEN;
DRAWTEXT(C,30,' 換'),ALIGN0,COLORGREEN;
DRAWTEXT(C,20,' 手'),ALIGN0,COLORGREEN;
DRAWTEXT(C,10,' '+NUMTOSTR( K)+'天'),ALIGN0,COLORGREEN;
K:=1;
END
ELSE
K:=K+1;
五日換手:SUM(VOL,5)*100/CAPITAL,colorf0f000,LINETHICK0 ;
十日換手:SUM(VOL,10)*100/CAPITAL,colorf0f000,LINETHICK0 ;
二十日換手:SUM(VOL,20)*100/CAPITAL,colorf0f000,LINETHICK0 ;
百日換手:SUM(VOL,100)*100/CAPITAL,colorf0f000,LINETHICK0 ;vol/CAPITAL;
AA:=VOL/((HIGH-LOW)*2-ABS(CLOSE-OPEN));
成交量（手）:VOL,ColorC700FF,LINETHICK0;
主動買盤:IF(CLOSE>OPEN,AA*(HIGH-LOW),IF(CLOSE<OPEN,AA*((HIGH-OPEN)+(CLOSE-LOW)),VOL/2)),COLORred,
LINETHICK0;
主動賣盤:IF(CLOSE>OPEN,0-AA*((HIGH-CLOSE)+(OPEN-LOW)),IF(CLOSE<OPEN,0-AA*(HIGH-LOW),0-VOL/2)),color66ff00,
LINETHICK0;
{解盤：N=75 25 100 }
REFLINE: 0, 25, 75, 100;
Var1:=IF(MA(CLOSE,88),1,0);
Var2:=1/WINNER(CLOSE);
Var3:=100-ABS((CLOSE-MA(CLOSE,13))/MA(CLOSE,13)*100);
HSL:=vol/capital*100;
量能:=SUM(HSL,N);
漲幅１:=100*(CLOSE-REF(CLOSE,N))/REF(CLOSE,N);
流通市值:=capital*c;
AH:=HHV(流通市值,N);
AL:=LLV(流通市值,N);
t1:=if(HSL<=2,1,0);
t2:=if(HSL>2 AND HSL<3,1,0);
t3:=if(HSL>3 AND HSL<5,1,0);
t4:=if(HSL>5 AND HSL<8,1,0);
t5:=if(HSL>8 AND HSL<15,1,0);
t6:=if(HSL>15 AND HSL<25,1,0);
t7:=if(HSL>=25,1,0);
sss:=100/4;
i:=0;
IF HSL<=2 THEN BEGIN DRAWTEXT(c>0 and DISPSTATUS=2,100-(sss*i),'日換手率在1%--2%，股價屬于成交低靡，屬于冷門股。日換手率成交小于3%的成交額稱為“成交無量”。'),Color00FFFF,ALIGN2; i:=i+1;
END
IF HSL>2 AND HSL<3 THEN BEGIN DRAWTEXT(c>0 and
DISPSTATUS=2,100-(sss*i),'日換手率在2%--3%，股價屬于成交溫和，屬于備份股。'),Color00FFFF,ALIGN2;
i:=i+1;
END
IF HSL>3 AND HSL<5 THEN BEGIN DRAWTEXT(c>0 and DISPSTATUS=2,100-(sss*i),' 日換手率在3%--5%，股價屬于成交活躍，表示有莊家在積極活動，屬于熱門股。把10日平均換手率大于3%或大于5%，而后又縮量至換手率小于3%高度控盤的個股作為選股條件。'),Color00FFFF,ALIGN2; i:=i+1; END
IF HSL>5 AND HSL<8 THEN BEGIN DRAWTEXT(c>0 and DISPSTATUS=2,100-(sss*i),' 日換手率在5%--8%, 大于7%，常常超過10%，屬于股價成交帶量，表明籌碼在急劇換手。發(fā)生在低位或是通過第一阻力區(qū)，很可能是強莊積極進貨。'),Color00FFFF,ALIGN2;
i:=i+1; END
IF HSL>8 AND HSL<15 THEN BEGIN DRAWTEXT(c>0 and DISPSTATUS=2,100-(sss*i),' 日換手率大于8%--15%，股價屬于成交放量。'),ColorFFFFF5,ALIGN2; i:=i+1; END
IF HSL>15 AND HSL<25 THEN BEGIN DRAWTEXT(c>0 and DISPSTATUS=2,100-(sss*i),' 日換手率大于15%--25%，股價屬于成交巨量，發(fā)生在高位或高位縮量橫盤之后，很可能是莊家出貨。'),Color00FFFF,ALIGN2;
i:=i+1; END
IF HSL>=25 THEN BEGIN DRAWTEXT(c>0 and DISPSTATUS=2,100-(sss*i),' 日換手率大于25% 股價屬于成交怪異。'),ColorFFFFFF,ALIGN2; i:=i+1; END
IF 量能>3*N AND 漲幅１>3*N THEN BEGIN DRAWTEXT(c>0 and DISPSTATUS=2,100-(sss*i),'繼續(xù)大漲'),ColorFF00FF,ALIGN2; i:=i+1; END
IF 量能<0.5*N AND 漲幅１<N THEN BEGIN DRAWTEXT(c>0 and DISPSTATUS=2,100-(sss*i),'繼續(xù)小漲'),ColorFFFF00,ALIGN2; i:=i+1; END
IF 量能<0.5*N AND 漲幅１>-N AND 漲幅１>0 THEN BEGIN DRAWTEXT(c>0 and DISPSTATUS=2,100-(sss*i),'繼續(xù)小跌'),ColorFFFF00,ALIGN2; i:=i+1; END
IF 量能>3*N AND 漲幅１<-3*N THEN BEGIN DRAWTEXT(c>0 and DISPSTATUS=2,100-(sss*i),'繼續(xù)大跌'),ColorFF00FF,ALIGN2; i:=i+1; END
IF ((量能>3*N AND 漲幅１<N) OR (量能<0.5*N AND 漲幅１>3*N)
OR (量能>3*N AND 漲幅１>-N AND 漲幅１<0) OR (量能<0.5*N AND 漲幅１<-3*N)) THEN BEGIN DRAWTEXT(c>0 and DISPSTATUS=2,100-(sss*i),'注意反轉(zhuǎn)'),ColorFFFFF5,ALIGN2;
i:=i+1; END
IF 漲幅１>0 and 流通市值<=AL THEN BEGIN DRAWTEXT(c>0 and DISPSTATUS=2,100-(sss*i),'流通市值減小，漲幅加大'),Color00FFFF,ALIGN2; i:=i+1; END
IF 漲幅１<=0 and 流通市值<=AL THEN BEGIN DRAWTEXT(c>0 and DISPSTATUS=2,100-(sss*i),'流通市值加大，漲幅減小'),Color00FFFF,ALIGN2; i:=i+1; END;
DRAWTEXTREL(20 ,50 ,'趨勢看周線' );
DRAWTEXTREL(20 ,200 ,'選股看日線' );
DRAWTEXTREL(20 ,350 ,'買股看時線' );BIAS1:=(CLOSE-MA(CLOSE,6))/MA(CLOSE,6)*1000;
BIAS2:=(CLOSE-MA(CLOSE,12))/MA(CLOSE,12)*1000;
BIAS3:=(CLOSE-MA(CLOSE,24))/MA(CLOSE,24)*1000;
BIAS:=(BIAS1+2*BIAS2+3*BIAS3)/6;
乖離:=MA(BIAS,3);
抄底:IF(乖離<-18 AND 乖離>=-27,-10,0), COLORred,LINETHICK0;
STICKLINE(乖離<-3 AND 乖離>=-9,2,0,6,0) , COLORred;
抄底二:IF(乖離<-9,15,0),ColorFF35FF,LINETHICK0;STICKLINE(乖離<-120,15,0,6,0),Colorgreen;STICKLINE(乖離<-53,9,0,6,0),Coloryellow;
STICKLINE(乖離<-13,4,0,6,0),ColorFF35FF;
Var1:=DMA(CLOSE,VOL/MA(VOL,4)/4);
Var2:=DMA(CLOSE,VOL/MA(VOL,31)/31);
Var3:=(CLOSE-Var1)/Var1*100<-10;
Var4:=(Var1-Var2)/Var2*100<-16;
Var5:=(CLOSE-MA(CLOSE,50))/MA(CLOSE,50)*100<-23;
Var6:=SMA(MAX(CLOSE-REF(CLOSE,1),0),3,1)/SMA(ABS(CLOSE-REF(CLOSE,1)),3,1)*100>16;
Var7:=100*(HHV(HIGH,27)-CLOSE)/(HHV(HIGH,27)-LLV(LOW,27));
Var8:=INDEXC;
Var9:=MA(Var8,6);
VarA:=MA(Var8,24);
VarB:=MA(Var8,32);
VarC:=VarB>Var9*1.11 AND VarA>Var9*1.095;
sss:=(Var3 AND Var4 AND (OPEN-REF(CLOSE,1))/REF(CLOSE,1)>-0.07 OR Var5 AND Var6 AND CROSS(Var7,79) OR VarC AND CLOSE/COST(8)<=0.8)*100;
Varr1:=(CLOSE-LLV(LOW,10))/(HHV(HIGH,10)-LLV(LOW,10))*100;
Varr2:=EMA(Varr1,24);
Varr3:=EMA(Varr2,10);
Varr4:=3*Varr2-2*Varr3;
Varr5:=EMA(Varr4,5)/10;CXH:=STRTONUM(STRRIGHT(DATESTR(CURRENTDATE),1));
WARNING('http://www.kzuj.com.cn',CURRENTTIME>180000 and (CXH=1 OR CXH=6));
DRAWTEXTREL(10 ,10 ,'指標公式');

 

 

有思路，想編寫各種指標公式，程序化交易模型，選股公式，預警公式的朋友

可聯(lián)系技術(shù)人員 QQ: 511411198  進行 有償 編寫！（不貴！點擊查看價格！）