彈指神功六脈神劍指標公式源碼--贏富價值1萬元的東東

ffxb 2010-05-08

展開全文

彈指神功六脈神劍指標公式源碼--贏富價值1萬元的東東

DRAWGBK(1,colorrgb(0,0,100),colorrgb(0,0,0),1);

INPUT:X(2009,1990,2020),M(0.7,0.3,0.9),N(3.3,3.1,3.6);

VAR1:=VOL/((HIGH-LOW)*2-ABS(CLOSE-OPEN));

成交:VOL,POINTDOT,COLORE4C1EE;

主買:IF(CLOSE>OPEN,VAR1*(HIGH-LOW),IF(CLOSE<OPEN,VAR1*((HIGH-OPEN)+(CLOSE-LOW)),VOL/2)),COLORRED,POINTDOT;

主賣:IF(CLOSE>OPEN,VAR1*((HIGH-CLOSE)+(OPEN-LOW)),IF(CLOSE<OPEN,VAR1*(HIGH-LOW),VOL/2)),COLOR00FF00,POINTDOT;

STICKLINE(VOL>0,VOL,0,8,0),ColorE4C1EE;

STICKLINE(主買>0,0,主買,7,0),color1B07E2;

STICKLINE(主賣>0,0,主賣,5,0),COLOR00D11F;

VOLUME:=VOL;

VAR2:=MA(VOLUME,5);

VAR3:=MA(VOLUME,10);

VAR4:=MA(VOLUME,20);

VAR5:=MA(VOLUME,60);

前量比:=VOL/REF(VOL,1); 五量比:=VOL/VAR2; 六量比:=VOL/VAR5;

PARTLINE(MA(VOL,5)>=REF(MA(VOL,5),1),MA(VOL,5)),COLORRED,LINETHICK3;

PARTLINE(MA(VOL,5)<=REF(MA(VOL,5),1),MA(VOL,5)),COLOR00C700,LINETHICK3;

換手率:IF(CAPITAL=0,INDEXV/ESTDATA(12),VOL/FINANCE(7)),PRECISION2,LINETHICK0;

variable:wday[7]='星期六';wday[1]:='星期日';wday[2]:='星期一';

wday[3]:='星期二';wday[4]:='星期三';wday[5]:='星期四';wday[6]:='星期五';

fy:=YEAR;fm:=MONTH;fd:=DAY;wd:=WEEKDAY;p:=SYSPARAM(1);BB:=BARPOS;

str1:=''+NUMTOSTR(fy[p],0)+'年'+NUMTOSTR(fm[p],0)+'月'+NUMTOSTR(fd[p],0)+'日 '+wday[wd[p]+1];

SJ:=OPENMINUTES(CURRENTTIME)>1 and OPENMINUTES(CURRENTTIME)<239;

lj0:=VOL/IF(HIGH=LOW,4,HIGH-LOW);jj:=(HIGH+LOW+CLOSE)/3;

特大:IF(CAPITAL=0,lj0*(jj-MIN(CLOSE,OPEN)),lj0*IF(HIGH=LOW,1,(MIN(OPEN,CLOSE)-LOW))),PRECISION0,COLOR0000FF,LINETHICK;

大戶:IF(CAPITAL=0,lj0*(MIN(OPEN,CLOSE)-LOW),lj0*IF(HIGH=LOW,1,(jj-MIN(CLOSE,OPEN)))),PRECISION0,COLORFF00FF,LINETHICK;

中戶:IF(CAPITAL=0,lj0*(HIGH-MAX(OPEN,CLOSE)),lj0*IF(HIGH=LOW,1,(HIGH-MAX(OPEN,CLOSE)))),PRECISION0,COLOR00FF00,LINETHICK;

散戶:IF(CAPITAL=0,lj0*(MAX(CLOSE,OPEN)-jj),lj0*IF(HIGH=LOW,1,(MAX(CLOSE,OPEN)-jj))),PRECISION0,COLORFF6600,LINETHICK;

總1:=(特大+大戶)-(中戶+散戶);總:=vol;

ww:=SYSPARAM(2);n1:=SYSPARAM(3);nn:=n1-ww+1;hh:=HHV(總,nn);ll:=LLV(總,nn);

ZG:=hh[n1];ZD:=ll[n1];中0:=ZD+(ZG-ZD)*0.5;中:=中0*0.05;CM:=SUM(總1,25);

ZJ:=REF(總1,1);ZSB:=(總1-REF(總1,1))/總*100;

ZSA:=cm/IF(STKTYPE=0,SUM(VOL,25),IF(STKTYPE=13,SUM(VOL,10),CAPITAL));

cc:=REF(CLOSE,BARSLAST(fm>REF(fm,1)));主力成本:=(cc*(特大+大戶)*100)/(特大+大戶)/100;

DF1:=EMA(CLOSE,12)-EMA(CLOSE,26);DA1:=EMA(DF1,9);

lj6:=df1>da1 and da1<0;lj7:="kdj.k">"kdj.d" and "kdj.d"<30;

lj8:=df1<da1;lj9:="kdj.k"<"kdj.d" and "kdj.k">80;

w1:=SUM(大戶,5)+SUM(特大,5);w2:=SUM(散戶,5)+SUM(中戶,5);

量振1:=特大>大戶 and 大戶>散戶;量振2:=特大<散戶 and 大戶<散戶;

標振1:=lj6 and lj7;標振2:=lj8 and lj9;

a:=w1-w2;a0:=IF(a>0,a,0);b0:=IF(a<0,a,0);

STICKLINE(BB=ww,中*0.2,中*9.2,(散戶[P]/總*200)*1.02,1),COLORWHITE,LINETHICK2;

STICKLINE(BB=ww,中*0.8,中*8.6,散戶[P]/總*200,0),COLORFF8800;

STICKLINE(BB=ww,中*10.2,中*19.2,(中戶[P]/總*200)*1.02,1),COLORWHITE,LINETHICK2;

STICKLINE(BB=ww,中*10.8,中*18.6,中戶[P]/總*200,0),COLORFF00FF;

STICKLINE(BB=ww,中*20.2,中*29.2,(大戶[P]/總*200)*1.02,1),COLORWHITE,LINETHICK2;

STICKLINE(BB=ww,中*20.8,中*28.6,大戶[P]/總*200,0),COLOR0088FF;

STICKLINE(BB=ww,中*30.2,中*39.2,(特大[P]/總*200)*1.02,1),COLORWHITE,LINETHICK2;

STICKLINE(BB=ww,中*30.8,中*38.6,特大[P]/總*200,0),COLOR0000FF;

DRAWTEXTEX(CLOSE,1,420,0,str1),ColorffFF00;

DRAWTEXTEX(CLOSE,1,200,0,STKLABEL+' '+STKNAME+''),ColorffFF00;

DRAWTEXT(BB=ww,中*36,'特大:'+NUMTOSTR(特大[P]/總*100,2)+' %'),COLOR00FF00;

DRAWTEXT(BB=ww,中*26,'大戶:'+NUMTOSTR(大戶[P]/總*100,2)+' %'),COLOR00FF00;

DRAWTEXT(BB=ww,中*16,'中戶:'+NUMTOSTR(中戶[P]/總*100,2)+' %'),COLOR00FF00;

DRAWTEXT(BB=ww,中*6,'散戶:'+NUMTOSTR(散戶[P]/總*100,2)+' %'),COLOR00FF00;

DIFF:=EMA(CLOSE,12)-EMA(CLOSE,26);

DEA:=EMA(DIFF,9);

MACD1:=2*(DIFF-DEA);

CS1:=100;

CS2:=HHV(ABS(MACD1),CS1);

CS3:=ABS(100/CS2);

MACD:(MACD1*CS3+100)/2,LINETHICK5,color00FF00;

CS:=MACD;

日紅:=CS>=REF(CS,1);

日轉紅:=日紅 AND REF(日紅,1)=0;

PARTLINE(日紅,CS),LINETHICK5,colorred;

AA:=0;

V1:=LLV(LOW,10);

V2:=HHV(HIGH,25);

價位線:=EMA((CLOSE-V1)/(V2-V1)*4,4);

DRAWTEXT(CROSS(價位線,M),AA,'買'),colorFFFFFF;

DRAWTEXT(CROSS(N,價位線),AA,'賣'),color07F6FF;

VERTLINE(CROSS(價位線,M)),color0000FF,LINEDASHDOT;

VERTLINE(CROSS(N,價位線)),colorFF00,LINEDASHDOT;

DRAWTEXTEX(CLOSE,1,200,130,'主力成本:'+NUMTOSTR(主力成本[p],2)),COLOR00FF00;

DRAWTEXTEX(CLOSE,1,420,130,'主力籌碼占流通:'+NUMTOSTR(IF(ZSA>0,ZSA[P]*100,0),2)+' %'),COLOR00FF00;

DRAWTEXTEX(CLOSE,1,720,130,'較昨日增減:'+NUMTOSTR(ZSB[P],2)+' %'),COLOR00FF00;

DRAWTEXTEX(c and 總1[P]<0,1,720,0,'散戶主買主力主賣'),COLORffee00;

DRAWTEXTEX(c and 總1[P]>0,1,720,0,'主力主買散戶主賣'),COLOR0000ff;

周倉:=SUM(總1,5);月倉:=SUM(總1,25);年倉:=SUM(總1,240);上周:=REF(周倉,1);上月:=REF(月倉,1);

上年:=REF(年倉,BARSLAST(fy=X));周增:=周倉-上周;月增:=月倉-上月;年增:=年倉-上年;