同花順指標(biāo)----大集綿

雨打浪花 2010-06-16

展開全文

同花順的BBD指標(biāo) 源碼

a=(ZDMR[-1]+BDMR[-1]);
b=(ZDMC[-1]+BDMC[-1]);
a1=SUM(a,1);
b1=-SUM(b,1);
STICKLINE(a1+b1>0,0,a1+b1,9,0),color0000ff;
STICKLINE(a1+b1<0,0,a1+b1,9,0),color00ff00;
三日bbd:SUM(a1+b1,3),colorcyan;
五日bbd:SUM(a1+b1,5),colorred;
十日bbd:SUM(a1+b1,10),colorwhite;

同花順的大盤超級BBD指標(biāo)，判斷大盤，盤中趨勢非常好，可惜同花順破解難登，恰逢貓大端午大作，就加進(jìn)操盤手軟件中，現(xiàn)拿出來給大家試試，，還有些指標(biāo)稍后上傳，祝壇友們端午快樂。。源碼如下。。 jg:=(ORDERAMT(1 ,3)-ORDERAMT( 2,3))/100000000;
dh:=(ORDERAMT(1 ,2)-ORDERAMT( 2,2)-ORDERAMT(1 ,3)+ORDERAMT( 2,3))/100000000;
凈額億元:(ORDERAMT( 1,2)-ORDERAMT( 2,2))/100000000,COLORSTICK,LINETHICK2;
超級機(jī)構(gòu):SUM(jg,0),COLOREED,LINETHICK2;
普通機(jī)構(gòu):SUM(dh,0),color3399FF ;
　

同花順一組分時指標(biāo)公式源碼-------

（1）分時圖KDJ

N 1 100 14
M1 1 100 3
M2 1 100 3

RSV=(NEW-LLV(NEW,N))/(HHV(NEW,N)-LLV(NEW,N))*100;
a=SMA(RSV,M1,1);
b=SMA(a,M2,1);
e=3*a-2*b;
IF(a<0) a=0;
IF(a>100) a=100;
IF(b<0) b=0;
IF(b>100) b=100;
IF(e<0) e=0;
IF(e>100) e=100;
K:a;
D:b;
J:e;

（2）

分時圖MACD

SHORT 1 100 12
LONG 1 100 26
M 1 100 9

Df:EMA(NEW,SHORT) - EMA(NEW,LONG);
DA:EMA(Df,M);
MD:2*(Df-DA),COLORSTICK;
FILLRGN(DF,DA,DF>REF(DF,3),RGB(255,0,0),DF<REF(DF,3),RGB(0,255,255));

（3）

分時動因

動因:(OUTVOL-INVOL )/VOL*100,colorwhite;
多空線:0;

（4）

分時BBI

BBI:=(EMA(NEW,3)+EMA(NEW,6)+EMA(NEW,12)+EMA(NEW,24))/4;
PARTLINE(BBI,BBI>REF(BBI,1),RGB(255,0,255),BBI<REF(BBI,1),RGB(0,255,255),1);

（5）

分時BIAS

BIAS1 : (NEW-MA(NEW,6))/MA(NEW,6)*100;
BIAS2 : (NEW-MA(NEW,12))/MA(NEW,12)*100;
BIAS3 : (NEW-MA(NEW,24))/MA(NEW,24)*100;

（6）

分時FSRSI

LC := REF(NEW,1);
RSI$1:SMA(MAX(NEW-LC,0),6,1)/SMA(ABS(NEW-LC),6,1)*100;
RSI$2:SMA(MAX(NEW-LC,0),12,1)/SMA(ABS(NEW-LC),12,1)*100;
RSI$3:SMA(MAX(NEW-LC,0),24,1)/SMA(ABS(NEW-LC),24,1)*100;
zero1:20,POINTDOT;
zero2:80,POINTDOT;

（7）

分時布林線

N 5 100 20

MID : MA(NEW,N);
上軌: MID + STD(NEW,N);
下軌: MID - STD(NEW,N);
上極限: MID + 2*STD(NEW,N);
下極限: MID - 2*STD(NEW,N);

（8）

分時主圖箭頭

LC=REF(NEW,1);
WRSI=SMA(MAX(NEW-LC,0),9,1)/SMA(ABS(NEW-LC),9,1)*100;
IF (CROSS(20,WRSI))
BUY;
IF (CROSS(WRSI,80))
SELL;

（9）

大盤分時均價線

成交總額:=SUM(NEW*VOL,0);
成交總量:=SUM(ABS(VOL),0);
均價:成交總額/成交總量;

（10）

分時線變色指標(biāo)

最新:=(IF(ISNULL(NEW),PRE,NEW));
PARTLINE(最新,最新>=REF(最新,1),RGB(255,0,0),最新<=REF(最新,1),RGB(0,255,0));

IF (MARKETTYPE == 176 OR MARKETTYPE==64)
{
b=SUBSAMEDAY(&VOL) ;
m=SUM(b*最新,0);
均價:IF(m>0,m/VOL,PRE);
}
ELSE IF(CODETYPE!=0)
{
IF(ISNULL(MONEY) OR ISNULL(VOL) OR VOL==0 OR MONEY==0)
均價:PRE;
ELSE IF(VOL==VOL[1] OR MONEY==MONEY[1])
均價:均價[1];
ELSE
均價:MONEY/VOL;
}
DRAWGBK(FORMATTIME(1)<10 AND TRADETIME>242),RGB(0,0,128);
RETURN;

hx_star;
hx_star_p;
hx_PriceLow;
hx_PriceUp;
hx_PriceMemo;

（11）

分時通道

最新:=(IF(ISNULL(NEW),PRE,NEW));
IF(ISNULL(NEW),PRE,NEW);
IF (MARKETTYPE == 176 OR MARKETTYPE==64)
{
b=SUBSAMEDAY(&VOL) ;
m=SUM(b*最新,0);
均價:IF(m>0,m/VOL,PRE);
}
ELSE IF(CODETYPE!=0)
{
IF(ISNULL(MONEY) OR ISNULL(VOL) OR VOL==0 OR MONEY==0)
  均價:PRE;
ELSE IF(VOL==VOL[1] OR MONEY==MONEY[1])
   均價:均價[1];
ELSE
   均價:MONEY/VOL;
}
DRAWGBK(FORMATTIME(1)<10 AND TRADETIME>242),RGB(0,0,128);
MA30:=MA(NEW,24);
上軌:MA30 + 2*STD(NEW,57),POINTDOT,COLORFFf00F;
下軌:MA30 - 2*STD(NEW,57),POINTDOT,COLORFFf00F;
中軌:(EMA(NEW,7)+EMA(NEW,14)+EMA(NEW,34)+EMA(NEW,54))/4,colorgreen;
RETURN;
hx_star;
hx_star_p;
hx_grow_p;
hx_walk_p;
hx_risk_p;
hx_grow;
hx_plate;
hx_walk;
hx_risk;
hx_PriceLow;
hx_PriceUp;
hx_PriceMemo;

（12）

分時kdj與布林極限的疊加

mid:=EMA(NEW,20);
upper:=mid+2*STD(NEW,20);
lower:=mid-2*STD(NEW,20);
布林極限:=(NEW-lower)/(upper-lower)*100;
b1:20;
b2:50;
b3:80;
b4:0;
b5:100;
STICKLINE(REF(布林極限,1)>=布林極限 ,布林極限 ,REF(布林極限,1),0,0 ),COLOR00FF00;
STICKLINE(REF(布林極限,1)>=布林極限 ,布林極限 ,REF(布林極限,1),8,0 ),COLOR008800;
STICKLINE(REF(布林極限,1)>=布林極限 ,布林極限 ,REF(布林極限,1),7,0 ),COLOR009900;
STICKLINE(REF(布林極限,1)>=布林極限 ,布林極限 ,REF(布林極限,1),6,0 ),COLOR00AA00;
STICKLINE(REF(布林極限,1)>=布林極限 ,布林極限 ,REF(布林極限,1),5,0 ),COLOR00BB00;
STICKLINE(REF(布林極限,1)>=布林極限 ,布林極限 ,REF(布林極限,1),4,0 ),COLOR00CC00;
STICKLINE(REF(布林極限,1)>=布林極限 ,布林極限 ,REF(布林極限,1),3,0 ),COLOR00DD00;
STICKLINE(REF(布林極限,1)>=布林極限 ,布林極限 ,REF(布林極限,1),2,0 ),COLOR00EE00;
STICKLINE(REF(布林極限,1)>=布林極限 ,布林極限 ,REF(布林極限,1),1,0 ),COLOR00FF00;

STICKLINE(布林極限>=REF(布林極限,1),布林極限,REF(布林極限,1),0,0) ,COLORFFBBFF;
STICKLINE(布林極限>=REF(布林極限,1),布林極限,REF(布林極限,1),8,0) ,COLORFF00FF;
STICKLINE(布林極限>=REF(布林極限,1),布林極限,REF(布林極限,1),7,0) ,COLORFF22FF;
STICKLINE(布林極限>=REF(布林極限,1),布林極限,REF(布林極限,1),6,0) ,COLORFF44FF;
STICKLINE(布林極限>=REF(布林極限,1),布林極限,REF(布林極限,1),5,0) ,COLORFF66FF;
STICKLINE(布林極限>=REF(布林極限,1),布林極限,REF(布林極限,1),4,0) ,COLORFF88FF;
STICKLINE(布林極限>=REF(布林極限,1),布林極限,REF(布林極限,1),3,0) ,COLORFF99FF;
STICKLINE(布林極限>=REF(布林極限,1),布林極限,REF(布林極限,1),2,0) ,COLORFFAAFF;
STICKLINE(布林極限>=REF(布林極限,1),布林極限,REF(布林極限,1),1,0) ,COLORFFBBFF;
LOWV:=LLV(NEW,15);
HIGHV:=HHV(NEW,15);
RSV:=EMA((NEW-LOWV)/(HIGHV-LOWV)*100,3);
K:=EMA(RSV,3);
D:=MA(K,3);
PARTLINE(d,d>=REF(d,1),RGB(255,0,0),d<=REF(d,1),RGB(0,255,255));

a1:=BARSLAST(REF(CROSS(K,D),1));
b1:=REF(NEW,a1+1)>NEW AND REF(D,a1+1)<D AND CROSS(K,D) AND k<30;
DRAWTEXT(IF(b1>0,1,0),d,'K底背'),colorcyan;
c1:=BARSLAST(REF(CROSS(D,K),1));
d1:=REF(NEW,c1+1)<NEW AND REF(D,c1+1)>D AND CROSS(D,K) AND k>70;
DRAWTEXT(IF(d1>0,1,0),d,'K頂背'),coloryellow;

中趨勢線:=3*SMA((NEW-LLV(NEW,27))/(HHV(NEW,27)-LLV(NEW,27))*100,5,1)-2*SMA(SMA((NEW-LLV(NEW,27))/(HHV(NEW,27)-LLV(NEW,27))*100,5,1),3,1);
中準(zhǔn)備買入: IF(中趨勢線<=10,-10,0),colormagenta;
中準(zhǔn)備賣出: IF(中趨勢線>=90,110,100),colorcyan;

長趨勢線:=3*SMA((NEW-LLV(NEW,55))/(HHV(NEW,55)-LLV(NEW,55))*100,5,1)-2*SMA(SMA((NEW-LLV(NEW,55))/(HHV(NEW,55)-LLV(NEW,55))*100,5,1),3,1);
長準(zhǔn)備買入: STICKLINE(長趨勢線<=10 ,-5,-10,1,0);
長準(zhǔn)備賣出: STICKLINE(長趨勢線>=90,105,110,1,0);

（13）

分時1分鐘K線圖

STICKLINE(REF(NEW,1)>=NEW ,NEW ,REF(NEW,1),0,0 ),COLOR00FF00;
STICKLINE(REF(NEW,1)>=NEW ,NEW ,REF(NEW,1),8,0 ),COLOR008800;
STICKLINE(REF(NEW,1)>=NEW ,NEW ,REF(NEW,1),7,0 ),COLOR009900;
STICKLINE(REF(NEW,1)>=NEW ,NEW ,REF(NEW,1),6,0 ),COLOR00AA00;
STICKLINE(REF(NEW,1)>=NEW ,NEW ,REF(NEW,1),5,0 ),COLOR00BB00;
STICKLINE(REF(NEW,1)>=NEW ,NEW ,REF(NEW,1),4,0 ),COLOR00CC00;
STICKLINE(REF(NEW,1)>=NEW ,NEW ,REF(NEW,1),3,0 ),COLOR00DD00;
STICKLINE(REF(NEW,1)>=NEW ,NEW ,REF(NEW,1),2,0 ),COLOR00EE00;
STICKLINE(REF(NEW,1)>=NEW ,NEW ,REF(NEW,1),1,0 ),COLOR00FF00;

STICKLINE(NEW>REF(NEW,1),NEW,REF(NEW,1),0,0) ,COLORFFBBFF;
STICKLINE(NEW>REF(NEW,1),NEW,REF(NEW,1),8,0) ,COLORFF00FF;
STICKLINE(NEW>REF(NEW,1),NEW,REF(NEW,1),7,0) ,COLORFF22FF;
STICKLINE(NEW>REF(NEW,1),NEW,REF(NEW,1),6,0) ,COLORFF44FF;
STICKLINE(NEW>REF(NEW,1),NEW,REF(NEW,1),5,0) ,COLORFF66FF;
STICKLINE(NEW>REF(NEW,1),NEW,REF(NEW,1),4,0) ,COLORFF88FF;
STICKLINE(NEW>REF(NEW,1),NEW,REF(NEW,1),3,0) ,COLORFF99FF;
STICKLINE(NEW>REF(NEW,1),NEW,REF(NEW,1),2,0) ,COLORFFAAFF;
STICKLINE(NEW>REF(NEW,1),NEW,REF(NEW,1),1,0) ,COLORFFBBFF;

中軌:=MA(NEW,20);
上極限:中軌+2*STD(NEW,20),colorred;
下極限:中軌-2*STD(NEW,20),colorblue;
BBI:=(MA(NEW,3)+MA(NEW,6)+MA(NEW,12)+MA(NEW,24))/4;
PARTLINE(BBI,BBI>REF(BBI,1),RGB(255,0,0),BBI<REF(BBI,1),RGB(0,255,0),1);

（14）

自用同花順分時KDJ(長短線結(jié)合加建倉)

RSV:=(NEW-LLV(NEW,14))/(HHV(NEW,14)-LLV(NEW,14))*100;
K:=SMA(RSV,3,1);
D:=SMA(K,3,1);
J1:=(3*K-2*D);
IF(j1>100) j1=100;
IF(j1<0) j1=0;
j2:=SMA(j1,3,1);
j:=SMA(j2,3,1);
PARTLINE(j,j>=REF(j,1),RGB(255,0,0),j<=REF(j,1),RGB(0,255,0));
zero1:0;
ZERO2:20,POINTDOT,colorwhite;
ZERO3:80,POINTDOT,colorwhite;
zero4:100;
V11:=3*SMA((NEW-LLV(NEW,55))/(HHV(NEW,55)-LLV(NEW,55))*100,5,1)-2*SMA(SMA((NEW-LLV(NEW,55))/(HHV(NEW,55)-LLV(NEW,55))*100,5,1),3,1);
趨勢線:=EMA(V11,3);
V12:=(趨勢線-REF(趨勢線,1))/REF(趨勢線,1)*100;
準(zhǔn)備現(xiàn)金: STICKLINE(趨勢線<=10 ,20,25,1,0),colorcc9900;
買入股票: STICKLINE(趨勢線<=10 AND V12>10 ,30,20,1,0),color0099ff;
見頂清倉: STICKLINE(趨勢線>=90 AND V12<=90,80,70,1,0),colorgray;
準(zhǔn)備現(xiàn)金: STICKLINE(趨勢線<=13 AND j<=20,20,25,1,0),colorcc9900;

（15）

自用分時MACD

Dif:=EMA(NEW,6) - EMA(NEW,21);
diff:=EMA(dif,6);
dea:=MA(diff,6);
zero:0;
MB:=dea-REF(dea,1);

PARTLINE(dea,dea>REF(dea,1),RGB(255,0,255),dea<REF(dea,1),RGB(0,255,255),1);

a1:=BARSLAST(REF(CROSS(Mb,0),1));
b1:=REF(NEW,a1+1)>NEW AND REF(dEA,a1+1)<DEA AND CROSS(Mb,0) AND diff<0;
DRAWTEXT(IF(b1>0,1,0),dea,'macd底背'),colorcyan;
c1:=BARSLAST(REF(CROSS(0,Mb),1));
d1:=REF(NEW,c1+1)<NEW AND REF(DEA,c1+1)>dEA AND CROSS(0,Mb) AND diff>0;
DRAWTEXT(IF(d1>0,1,0),dea,'macd頂背'),colormagenta;

（16）

權(quán)證分時

最新:IF(ISNULL(NEW),PRE,NEW);

主力持倉:=EMA(100*(NEW-LLV(NEW,34))/(HHV(NEW,34)-LLV(NEW,34)),3);
箱頂:HHV(MA((NEW),5),30);
箱底:LLV(MA((NEW),5),30) ;
長底:LLV(MA((NEW),5),120);

JJ:=(NEW+HHV(MA((NEW),5),2)+LLV(MA((NEW),5),2))/3;
AA:=EMA(JJ,3);
BB:=REF(AA,1);
STICKLINE(AA>BB,AA,BB,3,0),coloryellow,;

V1:=LLV(NEW,10);
V2:=HHV(NEW,25);
價位線:=EMA((NEW-V1)/(V2-V1)*4,4);
DRAWTEXT(CROSS(價位線,0.3),NEW,'★'),colorred;

IF (MARKETTYPE == 176 OR MARKETTYPE==64)
{
      b=SUBSAMEDAY(&VOL) ;
      m=SUM(b*最新,0);
      均價:IF(m>0,m/VOL,PRE);
}
ELSE IF(CODETYPE!=0)
{
      IF(ISNULL(MONEY) OR ISNULL(VOL) OR VOL==0 OR MONEY==0)
            均價:PRE;
ELSE IF(VOL==VOL[1] OR MONEY==MONEY[1])
   均價:均價[1];
ELSE
   均價:MONEY/VOL;
}
DRAWGBK(FORMATTIME(1)<10 AND TRADETIME>242),RGB(0,0,128);
RETURN;
hx_star;
hx_star_p;
hx_PriceLow;
hx_PriceUp;
hx_PriceMemo;

（17）

分時量變紅和綠

DRAWGBK(FORMATTIME(1)<10 AND (MARKETTYPE==32 OR MARKETTYPE==16)
AND TRADETIME>242,
STRIP(RGB(0,0,128),RGB(0,0,128),1));

量:MAX(0,SUBSAMEDAY(&VOL));
RETURN 量;

（18）

分時用指標(biāo)

最新:IF(ISNULL(NEW),PRE,NEW);
MA13:MA(NEW,n1);
MA34:MA(NEW,n2);
DIFF : =EMA(NEW,13) - EMA(NEW,34);
DEA  : =EMA(DIFF,13);
MACDFS : =2*(DIFF-DEA/2);
PARTLINE(MA13,MA13>REF(MA13,1),RGB(222,0,222),MA13<REF(MA13,1),RGB(0,255,255)),LINETHICK2;
PARTLINE(MA34,MA34>REF(MA34,1),RGB(255,0,0),MA34<REF(MA34,1),RGB(0,255,255)),LINETHICK2;
PARTLINE(最新,最新>REF(最新,1),RGB(255,0,0),最新<REF(最新,1),RGB(0,255,255)),LINETHICK1;
高分:HHV(MA13,15);
低分:LLV(MA13,15);
低分1:LLV(MA13,34);
DRAWTEXT(CROSS(最新,低分1) AND MACDFS>DIFF  AND MA13>低分1 ,低分1,'買入');

N1:1  100  13
N2:1  100  34

（19）

堅持分時kdj

LOWV:=LLV(NEW,15);
HIGHV:=HHV(NEW,15);
RSV:=EMA((NEW-LOWV)/(HIGHV-LOWV)*100,3);
K:=EMA(rsv,3);
D:=MA(K,3);
zero1:20,pointdot,colorwhtite;
zero2:80,pointdot,colorwhite;
zero3:0;
zero4:100;
PARTLINE(d,d>=REF(d,1),RGB(255,0,0),d<=REF(d,1),RGB(0,255,0));
a1:=BARSLAST(REF(CROSS(k,d),1));
b1:=REF(NEW,a1+1)>NEW AND REF(K,a1+1)<K AND CROSS(k,d) AND k<30;
DRAWTEXT(IF(b1>0,1,0),d,'k底背'),colorgreen;
c1:=BARSLAST(REF(CROSS(d,k),1));
d1:=REF(NEW,c1+1)<NEW AND REF(K,c1+1)>K AND CROSS(d,k) AND k>70;
DRAWTEXT(IF(d1>0,1,0),d,'k頂背'),coloryellow;
中趨勢線:=3*SMA((NEW-LLV(NEW,27))/(HHV(NEW,27)-LLV(NEW,27))*100,5,1)-2*SMA(SMA((NEW-LLV(NEW,27))/(HHV(NEW,27)-LLV(NEW,27))*100,5,1),3,1);
長趨勢線:=3*SMA((NEW-LLV(NEW,55))/(HHV(NEW,55)-LLV(NEW,55))*100,5,1)-2*SMA(SMA((NEW-LLV(NEW,55))/(HHV(NEW,55)-LLV(NEW,55))*100,5,1),3,1);
DRAWGBK(中趨勢線>=90,STRIP(RGB(100,0,100),RGB(100,0,100),2));
DRAWGBK(中趨勢線<=10,STRIP(RGB(0,100,100),RGB(0,100,100),2));
DRAWGBK(長趨勢線>=90,STRIP(RGB(150,0,150),RGB(150,0,150),2));
DRAWGBK(長趨勢線<=10,STRIP(RGB(0,150,150),RGB(0,150,150),2));

（20）

精品分時macd
參數(shù)；
short 5 40 12
long10 100 26
m 2 40 9

dif:=ema(new,5) - ema(new,21);
dea1:=sma(dif,5,1);
dea:=sma(dea1,5,1);
zero:0,pointdot,colorwhite;

partline(dea,dea>ref(dea,1),rgb(255,0,255),dea<ref(dea,1),rgb(0,255,255),1);

(21)小刀K線

VAR1:=NEW>REF(NEW,1) AND NEW>REF(NEW,2);
VAR2:=REF(VAR1,1) AND NEW<=REF(NEW,1) AND NEW>=REF(NEW,2);
VAR3:=REF(VAR2,1) AND NEW>=REF(NEW,1) AND NEW<=REF(NEW,2);
VAR4:=REF(VAR3,1) AND NEW<=REF(NEW,1) AND NEW>=REF(NEW,2);
VAR5:=REF(VAR4,1) AND NEW>=REF(NEW,1) AND NEW<=REF(NEW,2);
VAR6:=REF(VAR5,1) AND NEW<=REF(NEW,1) AND NEW>=REF(NEW,2);
VAR7:=REF(VAR6,1) AND NEW>=REF(NEW,1) AND NEW<=REF(NEW,2);
VAR8:=REF(VAR7,1) AND NEW<=REF(NEW,1) AND NEW>=REF(NEW,2);
VAR9:=REF(VAR8,1) AND NEW>=REF(NEW,1) AND NEW<=REF(NEW,2);
VARA:=REF(VAR9,1) AND NEW<=REF(NEW,1) AND NEW>=REF(NEW,2);
VARB:=REF(VARA,1) AND NEW>=REF(NEW,1) AND NEW<=REF(NEW,2);
VARC:=REF(VARB,1) AND NEW<=REF(NEW,1) AND NEW>=REF(NEW,2);
STICKLINE(VAR1 OR VAR2 OR VAR3 OR VAR4 OR VAR5 OR VAR6 OR VAR7 OR
VAR8 OR VAR9 OR VARA OR VARB OR VARC,NEW,REF(NEW,1),3,1),colorred;
VARD:=NEW<REF(NEW,1) AND NEW<REF(NEW,2);
VARE:=REF(VARD,1) AND NEW>=REF(NEW,1) AND NEW<=REF(NEW,2);
VARF:=REF(VARE,1) AND NEW<=REF(NEW,1) AND NEW>=REF(NEW,2);
VAR10:=REF(VARF,1) AND NEW>=REF(NEW,1) AND NEW<=REF(NEW,2);
VAR11:=REF(VAR10,1) AND NEW<=REF(NEW,1) AND NEW>=REF(NEW,2);
VAR12:=REF(VAR11,1) AND NEW>=REF(NEW,1) AND NEW<=REF(NEW,2);
VAR13:=REF(VAR12,1) AND NEW<=REF(NEW,1) AND NEW>=REF(NEW,2);
VAR14:=REF(VAR13,1) AND NEW>=REF(NEW,1) AND NEW<=REF(NEW,2);
VAR15:=REF(VAR14,1) AND NEW<=REF(NEW,1) AND NEW>=REF(NEW,2);
VAR16:=REF(VAR15,1) AND NEW>=REF(NEW,1) AND NEW<=REF(NEW,2);
VAR17:=REF(VAR16,1) AND NEW<=REF(NEW,1) AND NEW>=REF(NEW,2);
VAR18:=REF(VAR17,1) AND NEW>=REF(NEW,1) AND NEW<=REF(NEW,2);
STICKLINE(VARD OR VARE OR VARF OR VAR10 OR VAR11 OR VAR12 OR VAR13 OR
VAR14 OR VAR15 OR VAR16 OR VAR17 OR VAR18,NEW,REF(NEW,1),3,0),COLORFFCC66;
VAR19:=REF(VARD OR VARE OR VARF OR VAR10 OR VAR11 OR VAR12 OR VAR13 OR
VAR14 OR VAR15 OR VAR16 OR VAR17 OR VAR18,1) AND VAR1;
VAR1A:=REF(VAR1 OR VAR2 OR VAR3 OR VAR4 OR VAR5 OR VAR6 OR VAR7 OR
VAR8 OR VAR9 OR VARA OR VARB OR VARC,1) AND VARD;
STICKLINE(VAR19,REF(NEW,1),REF(NEW,2),3,0),colorred;
STICKLINE(VAR1A,REF(NEW,1),REF(NEW,2),3,0),colorblue;

箱底:LLV(MA((NEW),5),30),colorwhite;
箱頂:HHV(MA((NEW),6),30),COLOR00AAFF;

(22)

小刀趨勢

短趨勢:((3*SMA((NEW-LLV(NEW,27))/(HHV(NEW,27)-LLV(NEW,27))*100,5,1)-2*SMA(SMA((NEW-LLV(NEW,27))/(HHV(NEW,27)-LLV(NEW,27))*100,5,1),3,1)-50)*1.032+50),colorred;
VAR2:=(NEW+HHV(MA(NEW,5),2)+LLV(MA(NEW,5),2))/3;
VAR3:=LLV(NEW,34);
VAR4:=HHV(NEW,34);
長趨勢:EMA((VAR2-VAR3)/(VAR4-VAR3)*100,13),COLOR00FF00;
主力持倉:EMA(100*(NEW-LLV(NEW,34))/(HHV(NEW,34)-LLV(NEW,34)),3),colorblue;

（23）

分時macd 帶買賣箭頭

Diff:=EMA(NEW,5) - EMA(NEW,21);
dif:=EMA(diff,5);
dea:=EMA(dif,5);
zero:0;

PARTLINE(dif,dif>=REF(dif,1),RGB(255,0,0),dif<=REF(dif,1),RGB(0,255,0));
PARTLINE(dea,dea>=REF(dea,1),RGB(255,0,255),dea<=REF(dea,1),RGB(0,255,255));

mb:=dea-REF(dea,1);

a1:=BARSLAST(REF(CROSS(Mb,0),1));
b1:=REF(NEW,a1+1)>NEW AND REF(dEA,a1+1)<DEA AND CROSS(Mb,0) AND diff<0;
DRAWTEXT(IF(b1>0,1,0),dea,'macd底背'),colorcyan;
c1:=BARSLAST(REF(CROSS(0,Mb),1));
d1:=REF(NEW,c1+1)<NEW AND REF(DEA,c1+1)>dEA AND CROSS(0,Mb) AND diff>0;
DRAWTEXT(IF(d1>0,1,0),dea,'macd頂背'),colormagenta;

lc=REF(NEW,1);
wrsi=SMA(MAX(NEW-lc,0),9,1)/SMA(ABS(NEW-lc),9,1)*100;
IF (CROSS(20,wrsi))
BUY;
IF (CROSS(wrsi,80))
SELL;

（24）

變色分時圖

{DRAWGBK(DATE>900103,STRIP(RGB(100,180,255),RGB(120,120,255),1));}
最新:=(IF(ISNULL(NEW),PRE,NEW)),Color00FFFF,LINETHICK2;
PARTLINE(最新,最新>=REF(最新,1),RGB(255,0,0),最新<=REF(最新,1),RGB(0,255,0)),LINETHICK2;
IF (MARKETTYPE == 176 OR MARKETTYPE==64)
{
b=SUBSAMEDAY(&VOL) ;
m=SUM(b*最新,0);
均價:IF(m>0,m/VOL,PRE);
}
ELSE IF(CODETYPE!=0)
{
IF(ISNULL(MONEY) OR ISNULL(VOL) OR VOL==0 OR MONEY==0)
均價:PRE;
ELSE IF(VOL==VOL[1] OR MONEY==MONEY[1])
   均價:均價[1];
ELSE
   均價:MONEY/VOL;
}
DRAWGBK(FORMATTIME(1)<10 AND TRADETIME>242),RGB(0,0,128);
RETURN;
hx_star;
hx_star_p;
hx_PriceLow;
hx_PriceUp;
hx_PriceMemo;

（25）

分時變色

DRAWGBK(V>1,STRIP(RGB(120,120,255),RGB(140,140,255),1));
最新:IF(ISNULL(NEW),PRE,NEW);
主力持倉:=EMA(100*(NEW-LLV(NEW,34))/(HHV(NEW,34)-LLV(NEW,34)),3);
箱頂:HHV(MA((NEW),5),30);
箱底:LLV(MA((NEW),5),30) ,ColorFFFF06;
長底:LLV(MA((NEW),5),120);
JJ:=(NEW+HHV(MA((NEW),5),2)+LLV(MA((NEW),5),2))/3;
AA:=EMA(JJ,3);
BB:=REF(AA,1);
STICKLINE(AA>BB,AA,BB,3,0),coloryellow,;
V1:=LLV(NEW,10);
V2:=HHV(NEW,25);
價位線:=EMA((NEW-V1)/(V2-V1)*4,4);
DRAWTEXT(CROSS(價位線,0.3),NEW,'★'),colorred;
IF (MARKETTYPE == 176 OR MARKETTYPE==64)
{
      b=SUBSAMEDAY(&VOL) ;
      m=SUM(b*最新,0);
      均價:IF(m>0,m/VOL,PRE);
}
ELSE IF(CODETYPE!=0)
{
      IF(ISNULL(MONEY) OR ISNULL(VOL) OR VOL==0 OR MONEY==0)
            均價:PRE;
ELSE IF(VOL==VOL[1] OR MONEY==MONEY[1])
   均價:均價[1];
ELSE
   均價:MONEY/VOL;
}
DRAWGBK(FORMATTIME(1)<10 AND TRADETIME>242),RGB(0,0,128);
RETURN;
hx_star;
hx_star_p;
hx_PriceLow;
hx_PriceUp;
hx_PriceMemo;

（26）

趨勢

短趨勢:((3*SMA((NEW-LLV(NEW,27))/(HHV(NEW,27)-LLV(NEW,27))*100,5,1)-2*SMA(SMA((NEW-LLV(NEW,27))/(HHV(NEW,27)-LLV(NEW,27))*100,5,1),3,1)-50)*1.032+50),colorred;
VAR2:=(NEW+HHV(MA(NEW,5),2)+LLV(MA(NEW,5),2))/3;
VAR3:=LLV(NEW,34);
VAR4:=HHV(NEW,34);
長趨勢:EMA((VAR2-VAR3)/(VAR4-VAR3)*100,13),COLOR00FF00;
主力持倉:EMA(100*(NEW-LLV(NEW,34))/(HHV(NEW,34)-LLV(NEW,34)),3),colorblue;

（27）

權(quán)證變色

最新:IF(ISNULL(NEW),PRE,NEW);
byx:=MA(最新,10);
xxx:=MA(最新,20);
yyy:=MA(最新,40);
k:=SLOPE(byx,3);
K7:=SLOPE(byx,7);
m_k=MA(k,2);
aa=SLOPE(m_k,1);
//K13:=SLOPE(byx,7);
//PARTLINE(最新,k>=0AND K7>=0 AND aa>=0 ,RGB(255,0,0),k<=0 AND K7<=0 AND aa<=0 ,RGB(0,255,0));
FILLRGN(byx,REF(byx,2),byx>REF(byx,2),RGB(255,0,0),byx<REF(byx,2),RGB(0,0,255));
//FILLRGN(xxx,REF(xxx,4),xxx>REF(xxx,4),RGB(200,50,50),xxx<REF(xxx,4),RGB(10,100,200));
//FILLRGN(yyy,0.998*REF(yyy,2),yyy>REF(yyy,2),RGB(200,20,20),yyy<REF(yyy,2),RGB(10,200,50));
主力持倉:=EMA(100*(NEW-LLV(NEW,34))/(HHV(NEW,34)-LLV(NEW,34)),3);
箱頂:HHV(MA((NEW),5),30),colorbrown;
箱底:LLV(MA((NEW),5),30) ,colormagenta;
長底:LLV(MA((NEW),5),120),colorgray;
JJ:=(NEW+HHV(MA((NEW),5),2)+LLV(MA((NEW),5),2))/3;
AA:=EMA(JJ,3);
BB:=REF(AA,1);
STICKLINE(AA>BB,AA,BB,3,0),coloryellow;
V1:=LLV(NEW,10);
V2:=HHV(NEW,25);
價位線:=EMA((NEW-V1)/(V2-V1)*4,4);
DRAWTEXT(CROSS(價位線,0.3),NEW,'★'),colorred;
IF (MARKETTYPE == 176 OR MARKETTYPE==64)
{
b=SUBSAMEDAY(&VOL) ;
m=SUM(b*最新,0);
均價:IF(m>0,m/VOL,PRE);
}
ELSE IF(CODETYPE!=0)
{
IF(ISNULL(MONEY) OR ISNULL(VOL) OR VOL==0 OR MONEY==0)
  均價:PRE;
ELSE IF(VOL==VOL[1] OR MONEY==MONEY[1])
   均價:均價[1];
ELSE
   均價:MONEY/VOL;
}
DRAWGBK(FORMATTIME(1)<10 AND TRADETIME>242),RGB(0,0,128);
jun_k=SLOPE(均價,1);
PARTLINE(最新,k>=0AND K7>=0  AND jun_k>=0 ,RGB(255,0,0),k<=0 AND K7<=0  AND jun_k<=0 ,RGB(0,255,0));
RETURN;
hx_star;
hx_star_p;
hx_PriceLow;
hx_PriceUp;
hx_PriceMemo;

資金分布源碼如下：

DRAWGBK(DATE>900103,STRIP(RGB(0,0,20),RGB(0,0,80),1));
cap:=CLOSE;
AL1:=MA(VOL,5);
AL2:=MA(VOL,40);
A1:=LLV(LOW,120);
A2:=1.191*A1;
A3:=1.382*A1;
A4:=1.618*A1;
A5:=1.809*A1;
A6:=MA(C,60);
觀望:=(C<A2)*VOL,COLOR808040,LINETHICK0;
低吸:=(C>A2)*VOL,COLORE0FFFF,LINETHICK0;
持股:=(C>A3)*VOL,COLORFF33FF,LINETHICK0;
突破:=(C>A4)*VOL,COLOR00FFFF,LINETHICK0;
瘋馬:=(C>A5)*VOL,COLOR0000FF,LINETHICK0;
減倉:=(C>A5 AND C<A6)*VOL,COLORFF8000,LINETHICK0;

STICKLINE(C<A2,0,VOL,10,0),Color9E7001;
STICKLINE(C<A2,0,VOL,8,0), ColorBE8601;
STICKLINE(C<A2,0,VOL,6,0), ColorDE9C01;
STICKLINE(C<A2,0,VOL,5,0), ColorFEB301;
STICKLINE(C<A2,0,VOL,4,0), ColorFEBC21;
STICKLINE(C<A2,0,VOL,3,0), ColorFEC641;
STICKLINE(C<A2,0,VOL,2,0), ColorFECF61;
STICKLINE(C<A2,0,VOL,1,0), ColorFED981;

STICKLINE(C>A2,0,VOL,10,0),Color4F4F4F;
STICKLINE(C>A2,0,VOL,8,0),Color5F5F5F;
STICKLINE(C>A2,0,VOL,6,0),Color6F6F6F;
STICKLINE(C>A2,0,VOL,5,0),Color7F7F7F;
STICKLINE(C>A2,0,VOL,4,0),Color8F8F8F;
STICKLINE(C>A2,0,VOL,3,0),Color9F9F9F;
STICKLINE(C>A2,0,VOL,2,0),ColorAFAFAF;
STICKLINE(C>A2,0,VOL,1,0),ColorC0C0C0;

STICKLINE(C>A3,0,VOL,10,0),Color9F009F;
STICKLINE(C>A3,0,VOL,8,0),ColorBF00BF;
STICKLINE(C>A3,0,VOL,6,0),ColorDF00DF;
STICKLINE(C>A3,0,VOL,5,0),ColorFF00FF;
STICKLINE(C>A3,0,VOL,4,0),ColorFF20FF;
STICKLINE(C>A3,0,VOL,3,0),ColorFF40FF;
STICKLINE(C>A3,0,VOL,2,0),ColorFF60FF;
STICKLINE(C>A3,0,VOL,1,0),ColorFF80FF;

STICKLINE(C>A4,0,VOL,10,0),Color04769B;
STICKLINE(C>A4,0,VOL,8,0),Color058DBA;
STICKLINE(C>A4,0,VOL,6,0),Color06A5D9;
STICKLINE(C>A4,0,VOL,5,0),Color07BCF8;
STICKLINE(C>A4,0,VOL,4,0),Color27C4F8;
STICKLINE(C>A4,0,VOL,3,0),Color46CCF9;
STICKLINE(C>A4,0,VOL,2,0),Color65D5FA;
STICKLINE(C>A4,0,VOL,1,0),Color84DDFB;

STICKLINE(C>A5,0,VOL,10,0),Color00009F;
STICKLINE(C>A5,0,VOL,8,0),Color0000BF;
STICKLINE(C>A5,0,VOL,6,0),Color0000DF;
STICKLINE(C>A5,0,VOL,5,0),Color0000FF;
STICKLINE(C>A5,0,VOL,4,0),Color2020FF;
STICKLINE(C>A5,0,VOL,3,0),Color4040FF;
STICKLINE(C>A5,0,VOL,2,0),Color6060FF;
STICKLINE(C>A5,0,VOL,1,0),Color8080FF;

STICKLINE(C>A5 AND C<A6,0,VOL,10,0),Color009F00;
STICKLINE(C>A5 AND C<A6,0,VOL,8,0),Color00BF00;
STICKLINE(C>A5 AND C<A6,0,VOL,6,0),Color00DF00;
STICKLINE(C>A5 AND C<A6,0,VOL,5,0),Color00FF00;
STICKLINE(C>A5 AND C<A6,0,VOL,4,0),Color20FF20;
STICKLINE(C>A5 AND C<A6,0,VOL,3,0),Color40FF40;
STICKLINE(C>A5 AND C<A6,0,VOL,2,0),Color60FF60;
STICKLINE(C>A5 AND C<A6,0,VOL,1,0),Color80FF80;
V1:MA(VOL,5),colorred;
V2:MA(VOL,40),COLOR00D7FF;

分時的，l2用，源碼，

普通機(jī)構(gòu):((BIGBUYCOUNT2+WAITBUYCOUNT2)-(BIGSELLCOUNT2+WAITSELLCOUNT2));
普通機(jī)構(gòu)凈額:((BIGBUYMONEY2+WAITBUYMONEY2)-(BIGSELLMONEY2+WAITSELLMONEY2));
超級機(jī)構(gòu):((BIGBUYCOUNT1+WAITBUYCOUNT1)-(BIGSELLCOUNT1+WAITSELLCOUNT1))-普通機(jī)構(gòu);
超級機(jī)構(gòu)凈額:((BIGBUYMONEY1+WAITBUYMONEY1)-(BIGSELLMONEY1+WAITSELLMONEY1))-普通機(jī)構(gòu)凈額;

[同花順] 【同花順指標(biāo)公式】開盤預(yù)測全天指標(biāo)公式-2010最新版

STICKLINE(HOUR>=9 AND HOUR<10 ,0, V/((TIME-93000)/100)*240,4.5,1),colorwhite;
STICKLINE(HOUR>=10 AND HOUR<11 ,0, V/((TIME-100000)/100+30)*240,4.5,1),colorwhite;
STICKLINE(HOUR>=11 AND HOUR<12 ,0, V/((TIME-110000)/100+90)*240,4.5,1),colorwhite;
STICKLINE(HOUR>=13 AND HOUR<=14,0, V/((TIME-130000)/100+120)*240,4.5,1),colorwhite;
STICKLINE(HOUR>=14 AND HOUR<=15,0, V/((TIME-140000)/100+180)*240,4.5,1),colorwhite;
VAR1:=VOL/((HIGH-LOW)*2-ABS(CLOSE-OPEN));
主動買盤:=IF(CLOSE>OPEN,VAR1*(HIGH-LOW),IF(CLOSE<OPEN,VAR1*((HIGH-OPEN)+(CLOSE-LOW)),VOL));
主動賣盤:=IF(CLOSE>OPEN,0-VAR1*((HIGH-CLOSE)+(OPEN-LOW)),IF(CLOSE<OPEN,0-VAR1*(HIGH-LOW),0-VOL));
STICKLINE(C>O,0,VOL,4.5,1),colorred;
STICKLINE(C<O ,0,VOL,4.5,1),COLORFFFF00;
STICKLINE(C=O AND C<REF(C,1),0,VOL,4.5,1),COLORFFFF00;
STICKLINE(C=O AND C>REF(C,1),0,VOL,4.5,1),colorred;
STICKLINE(主動買盤>0,0,主動買盤,4.5,0),colorred;
換手: VOL/CAPITAL*100;
STICKLINE(換手>=3 AND 換手<8,0, 主動買盤,2,0),coloryellow;
STICKLINE(換手>=8,0, 主動買盤, 2,0) ,colorgreen;
MA5:MA(VOL,5),coloryellow;
MA13:MA(VOL,13),colorwhite;
DRAWTEXT(CROSS(MA5,MA13),CROSS(MA5,MA13),'*'),coloryellow;

[同花順]買賣線

買線:=EMA(C,2);
賣線:=EMA(SLOPE(C,21)*20+C,42);
BU:=CROSS(買線,賣線);
SEL:=CROSS(賣線,買線);
DRAWTEXT(bu,LOW*0.999,'B'),colorred,linethick3;
DRAWTEXT(bu,LOW,'﹉'),Color208FFF,LINETHICK3;
DRAWTEXT(sel,HIGH,'﹉'),ColorFFFF00,LINETHICK3;
DRAWTEXT(sel,HIGH*1.008,'S'),colorffff00,linethick3;
STICKLINE(買線>=賣線,LOW,HIGH,1,0),colorred;
STICKLINE(買線>=賣線,CLOSE,OPEN,4.5,0),color0000aa;
STICKLINE(買線>=賣線,CLOSE,OPEN,4,0),color0000cc;
STICKLINE(買線>=賣線,CLOSE,OPEN,3,0),color0000cc;
STICKLINE(買線>=賣線,CLOSE,OPEN,2,0),color0000ee;
STICKLINE(買線<賣線,CLOSE,OPEN,4.5,0),coloraaaa00;
STICKLINE(買線<賣線,CLOSE,OPEN,4,0),colorbbbb00;
STICKLINE(買線<賣線,CLOSE,OPEN,3,0),colorcccc00;
STICKLINE(買線<賣線,CLOSE,OPEN,2,0),coloreeee00;
STICKLINE(買線<賣線,LOW,HIGH,1,0),colorffff00;
STICKLINE(CROSS(買線,賣線) OR CROSS(賣線,買線),OPEN,CLOSE,3,0),color00ffff;
指導(dǎo)線: EMA((EMA(CLOSE,4)+EMA(CLOSE,6)+EMA(CLOSE,12)+EMA(CLOSE,24))/4,2),linethick1,ColorFFffFF;
界: MA(CLOSE,27),linethick1,Color00FFFF;
DRAWTEXT(CROSS(指導(dǎo)線,界),界,'￣'),Colorffffff;
DRAWTEXT(CROSS(界,指導(dǎo)線),界,'￣'),Color00ffff;
RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;
K:=SMA(RSV,3,1);
D:=SMA(K,3,1);
J:=3*K-2*D;
G:=95;

超級BBD源碼(普通版同花順可用）

本帖最后由 cssm 于 2009-8-25 23:26 編輯

從網(wǎng)上找了一個同花順的BBD源碼，發(fā)現(xiàn)數(shù)據(jù)不顯示，把多余語句刪了，并作了一些修改，去掉了一條線，看起來比較清爽

a=(ZDMR[-1]+BDMR[-1]);
b=(ZDMC[-1]+BDMC[-1]);
a1=SUM(a,1);
b1=-SUM(b,1);
STICKLINE(a1+b1>0,0,a1+b1,9,0),color0000ff;
STICKLINE(a1+b1<0,0,a1+b1,9,0),color00ff00;
三日bbd:SUM(a1+b1,3),colorcyan;
五日bbd:SUM(a1+b1,5),colorred;
十日bbd:SUM(a1+b1,10),colorwhite;

和level2的比較了一下，值有點出入，但基本上趨勢是相差無幾，大家可以自己用用看