發(fā)一個很實用的附圖指標源代碼：
1 M 缺省0.7 最小0.3 最大 0.9
2 N 缺省3.3 最小3.1 最大3.6
VOL=AMOUNT;
VAR1:=VOL/((HIGH-LOW)*2-ABS(CLOSE-OPEN));
VAR2:=DYNAINFO(7)=CLOSE AND DYNAINFO(10)=AMOUNT;
{IF(DYNAINFO(7)=CLOSE AND DYNAINFO(10)=AMOUNT,VAR1,VAR3),COLORGREEN;}
主買: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;
主買盤:=IF(CLOSE>OPEN,VAR1*(HIGH-LOW),IF(CLOSE<OPEN,VAR1*((HIGH-OPEN)+(CLOSE-LOW)),VOL/2));
主賣盤:=IF(CLOSE>OPEN,VAR1*((HIGH-CLOSE)+(OPEN-LOW)),IF(CLOSE<OPEN,VAR1*(HIGH-LOW),VOL/2));
STICKLINE(主買盤>0,0,主買盤,1,0),COLORRED;
STICKLINE(主賣盤<0,VOL,主買盤,1,0),COLOR00FF00;
額:=AMOUNT/10000000;
資金進:MA(主買盤/10000,4),COLORRED;
資金出:MA((主賣盤/10000),4),COLOR00FF00;
bb:=(主買盤+主賣盤);
STICKLINE(資金進>資金出,資金進,資金出,6,0),colorred;
STICKLINE(資金進<資金出,資金出,資金進,6,0),colorgreen;
STICKLINE(資金進>資金出,資金進,資金出,6,0),colorred;
STICKLINE(資金進<資金出,資金出,資金進,6,0),colorgreen;
AA:=VOL/((HIGH-LOW)*2-ABS(CLOSE-OPEN));
換手率:=VOL/CAPITAL*100;
主力吸籌:換手率>3 AND 換手率<=5,COLORMAGENTA;
加快吸籌:換手率>5 AND 換手率<=7,COLOR99ff;
STICKLINE(主力吸籌,0,VOL,9,0),COLORMAGENTA;
STICKLINE(加快吸籌,0,VOL,9,0),COLOR99ff;
Var1:=DYNAINFO(17)*REF(MA(VOL,5),1);
Var2:=DYNAINFO(7)=CLOSE AND DYNAINFO(10)=AMOUNT;
預(yù)測Ｖ1:=IF(DYNAINFO(7)=CLOSE AND DYNAINFO(10)=AMOUNT,Var1,Var2);
預(yù)測Ｖ:IF(VOL>=預(yù)測Ｖ1,VOL,預(yù)測Ｖ1),LINETHICK0;
比:=預(yù)測Ｖ/VOL;
WJ:=(HIGH+LOW+CLOSE)/3;
V1:=IF(HIGH=LOW,1,HIGH-MAX(OPEN,CLOSE));
V2:=IF(HIGH=LOW,1,MAX(CLOSE,OPEN)-WJ);
V3:=IF(HIGH=LOW,1,MIN(OPEN,CLOSE)-LOW);
V4:=IF(HIGH=LOW,1,WJ-MIN(CLOSE,OPEN));
V5:=VOL/IF(HIGH=LOW,4,HIGH-LOW);
V6:=(V1*V5);
V7:=(V2*V5);
V8:=(V3*V5);
V9:=(V4*V5);
買盤1:=DYNAINFO(23)*比;
賣盤1:=DYNAINFO(22)*比;
買盤2:=(V9+V8)*比;
賣盤2:=(V6+V7)*比;
買盤:=IF(STKTYPE<>0 AND BARSTATUS=2 AND DATATYPE=6,買盤1,買盤2);
賣盤:=IF(STKTYPE<>0 AND BARSTATUS=2 AND DATATYPE=6,賣盤1,賣盤2);
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;
VOLUME:=VOL;
VAR1:=VOL/((HIGH-LOW)*2-ABS(CLOSE-OPEN));
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;
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)+' %'),Color00EEFF;
DRAWTEXT(BB=ww,中*26,'大戶:'+NUMTOSTR(大戶[P]/總*100,2)+' %'),Color00EEFF;
DRAWTEXT(BB=ww,中*16,'中戶:'+NUMTOSTR(中戶[P]/總*100,2)+' %'),Color00EEFF;
DRAWTEXT(BB=ww,中*6,'小股民:'+NUMTOSTR(小股民[P]/總*100,2)+' %'),Color00EEFF;
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);
日轉(zhuǎn)紅:=日紅 AND REF(日紅,1)=0;
AA:=0;
V1:=LLV(LOW,10);
V2:=HHV(HIGH,25);
價位線:=EMA((CLOSE-V1)/(V2-V1)*4,4);
DRAWTEXTEX(CLOSE,1,200,130,'主力成本:'+NUMTOSTR(主力成本[p],2)),COLOR00FF00;
DRAWTEXTEX(CLOSE,1,350,130,'主力籌碼占流通:'+NUMTOSTR(IF(ZSA>0,ZSA[P]*100,0),2)+' %'),COLOR00FF00;
DRAWTEXTEX(CLOSE,1,560,130,'較昨日增減:'+NUMTOSTR(ZSB[P],2)+' %'),COLOR00FF00;
DRAWTEXTEX(CLOSE and 總1[P]<0,1,720,0,'小股民主買 主力主賣'),COLORffee00;
DRAWTEXTEX(CLOSE and 總1[P]>0,1,720,0,'主力主買 小股民主賣'),COLOR0000ff;
VOL=AMOUNT;
VAR1:=VOL/((HIGH-LOW)*2-ABS(CLOSE-OPEN));
VAR2:=DYNAINFO(7)=CLOSE AND DYNAINFO(10)=AMOUNT;
{IF(DYNAINFO(7)=CLOSE AND DYNAINFO(10)=AMOUNT,VAR1,VAR3),COLORGREEN;}
主買盤:=IF(CLOSE>OPEN,VAR1*(HIGH-LOW),IF(CLOSE<OPEN,VAR1*((HIGH-OPEN)+(CLOSE-LOW)),VOL/2));
主賣盤:=IF(CLOSE>OPEN,VAR1*((HIGH-CLOSE)+(OPEN-LOW)),IF(CLOSE<OPEN,VAR1*(HIGH-LOW),VOL/2));
STICKLINE(主買盤>0,0,主買盤,1,0),COLORRED;
STICKLINE(主賣盤<0,VOL,主買盤,1,0),COLOR00FF00;
換手:=VOL/CAPITAL*100;
STICKLINE(換手>0 ,0, 主買盤,0,0),COLORYELLOW;
STICKLINE(換手>0,VOL, 主買盤, 0,0) ,COLORRED;
bb:=(主買盤+主賣盤);
STICKLINE(資金進>資金出,資金進,資金出,6,0),colorred;
STICKLINE(資金進<資金出,資金出,資金進,6,0),colorgreen;
STICKLINE(資金進>資金出,資金進,資金出,6,0),colorred;
STICKLINE(資金進<資金出,資金出,資金進,6,0),colorgreen;
AA:=VOL/((HIGH-LOW)*2-ABS(CLOSE-OPEN));
STICKLINE(主買>0,0,主買,6,0 ),Color6666cc;
STICKLINE(主買>0,0,主買,5,0 ),COLOR7777dd;
STICKLINE(主買>0,0,主買,6.4 ,0 ),COLOR8888ee;
STICKLINE(主買>0,0,主買,4.1 ,0 ),COLOR9999ff;
STICKLINE( 主賣>0,0 ,主賣,6,0 ),COLORaaaaaa;
STICKLINE(主賣>0 ,0 ,主賣,5,0 ),Colorbbbbbb;
STICKLINE(主賣>0 ,0 ,主賣,6.4,0 ),Colorcccccc;
STICKLINE(主賣>0 ,0 ,主賣,6.1,0 ),ColorFF8800;
WJ:=(HIGH+LOW+CLOSE)/3;
VD1:=IF(HIGH=LOW,1,HIGH-MAX(OPEN,CLOSE));
VD2:=IF(HIGH=LOW,1,MAX(CLOSE,OPEN)-WJ);
VD3:=IF(HIGH=LOW,1,MIN(OPEN,CLOSE)-LOW);
VD4:=IF(HIGH=LOW,1,WJ-MIN(CLOSE,OPEN));
VD5:=VOL/IF(HIGH=LOW,4,HIGH-LOW);
VD6:=(VD1*VD5);
VD7:=(VD2*VD5);
VD8:=(VD3*VD5);
VD9:=(VD4*VD5);
買入量:=(VD9+VD8);
賣出量:=(VD6+VD7);
買入資金:=買入量*CLOSE/100;
賣出資金:=賣出量*CLOSE/100;
資金進出:=買入資金-賣出資金;
買賣資金比:=買入資金/賣出資金;
DRAWTEXTEX(CLOSE,1,250,100,' ┃買入資金累計萬元: '+NUMTOSTR(買入資金,2))Colorred,LINETHICK1;
DRAWTEXTEX(CLOSE,1,250,200,' ┃賣出資金累計萬元: '+NUMTOSTR(賣出資金,2))Color00ff00,LINETHICK1;
DRAWTEXTEX(CLOSE,1,250,300,' ┃資金進出萬元: '+NUMTOSTR(資金進出,2))Coloryellow,LINETHICK1;
