隆重推出：建設自己的指標體系之四－－主力雷達和主力控盤雷達兩個指標源碼(通達信版本) - ...

上海的春天 2010-07-30

展開全文

隆重推出：建設自己的指標體系之四－－主力雷達和主力控盤雷達兩個指標源碼(通達信版本)

管理提醒: 本帖被 xinma111 設置為精華(2010-03-05)

記得論壇上曾有一個同花順的“主力雷達”指標，下面我找了一個通達信版本的“主力雷達”指標奉獻給大家，另一個是主力控盤雷達指標，也十分不錯！
指標名稱：主力雷達
指標說明：指標上均有提示！
指標源碼：
LC:=REF(CLOSE,1);
RSI1:=SMA(MAX(CLOSE-LC,0),6,1)/SMA(ABS(CLOSE-LC),6,1)*100;
AR:=SUM(HIGH-OPEN,26)/SUM(OPEN-LOW,26)*100;
賣點雷達:=CROSS(85,RSI1)*30,COLOR00FF00,LINETHICK2;
DD:=LLV(L,55);
DRAWTEXT(CROSS(85,RSI1) AND C>=DD*1.30,20,'頂'),COLOR00FF00;
DRAWTEXT(CROSS(85,RSI1) AND C<DD*1.30,20,'洗'),COLORFFFFFF;
STICKLINE(賣點雷達,0,20,3,0),COLOR00FF00;
VARB:=SMA(MAX(CLOSE-LC,0),7,1)/SMA(ABS(CLOSE-LC),7,1)*100;
VARC:=SMA(MAX(CLOSE-LC,0),13,1)/SMA(ABS(CLOSE-LC),13,1)*100;
VARD:=BARSCOUNT(CLOSE);
買點雷達:(VARB< 20 AND VARC< 25 AND VARD> 50 AND AR<70)*30,LINETHICK2,COLOR0078FF;
BT1:=CROSS(RSI1,25);
DRAWTEXT(BT1,-80,'底'),COLOR0000FF;
STICKLINE(BT1,-100,-80,3,0),COLOR0000FF;
主力:EMA( (CLOSE-MA(CLOSE,7))/MA(CLOSE,7)*480,2)*5,LINETHICK1,COLOR0000FF;
散戶:EMA( (CLOSE-MA(CLOSE,11))/MA(CLOSE,11)*480,7)*5,LINETHICK2,COLORC87800;
BT2:=CROSS(主力,散戶) AND 主力<-10;
DRAWICON(CROSS(RSI1,25),主力,26);
DRAWICON(CROSS(主力,散戶) AND 主力<-10,主力,23);
BT:=FILTER(COUNT(BT1 OR BT2,3)>=2,3);
STICKLINE(BT,0,50,4,1),COLOR0000FF;
DRAWTEXT(BT,50,'金底'),COLOR0000FF;
STICKLINE(BT2,0,20,3,0),COLORFF00FF;
DRAWTEXT(BT2,20,'超跌'),COLORFF00FF;

指標名稱：主力控盤雷達
指標說明：線上表明主力介入，下線表明沒有主力介入！
指標源碼：
VAR1:=CLOSE-LOW;
VAR2:=HIGH-LOW;
VAR3:=CLOSE-HIGH;
VAR4:=IF(CLOSE>=0,(VAR1/VAR2+VAR3/VAR2)*VOL,(VAR3/VAR2+VAR1/VAR2)*VOL);
主力控盤雷達: SUM(VAR4,10)/10000, VOLSTICK;
增減力度:(MA(CLOSE,34.000) - CLOSE) / MA(CLOSE, 34.000) * 10.000,COLOR6666FF;
STICKLINE(CROSS( 1.700,增減力度), 3,0, 3,0),COLORWHITE;
DRAWTEXT(CROSS( 1.700,增減力度), 8.000,'底'),COLORWHITE;
進倉:STICKLINE(C/REF(C,1)>1.0618, 3,0, 3,0),COLORYELLOW;
DRAWTEXT(C/REF(C,1)>1.0618, 10.000,'進'),COLORYELLOW;
STICKLINE(FILTER(CROSS(0.019100,增減力度),21), 5,0, 3,0),COLORRED;
DRAWTEXT(FILTER(CROSS(0.019100,增減力度),21), 13,'析'),COLORRED;
逢高出局:STICKLINE(FILTER(C/REF(C,1)>1.0918,21), 15,0, 3,0),COLORFFAAFF;
DRAWTEXT(FILTER(C/REF(C,1)>1.0918,21), 30,'出'),COLORFFAAFF;

如果新建公式，具體參見http://www./article-27646.html

描述:主力雷達指標圖
圖片:1.JPG