相關標簽:

?

{莊買我買}

?

原理解析：
輸出A1:(不定周期成交量/收盤價)/2,畫青色,線寬為1 輸出A222:如果A1>0.29ANDCLOSE>1日前的收盤價,返回A1,否則返回0,畫紅色,線寬為1 A2賦值:如果A1>100ANDCLOSE>1日前的收盤價,返回A1,否則返回0的歷史累和 A3賦值:如果A1>100ANDCLOSE<1日前的收盤價,返回A1,否則返回0的歷史累和 A4賦值:如果A1<100ANDCLOSE>1日前的收盤價,返回A1,否則返回0的歷史累和 A5賦值:如果A1<100ANDCLOSE<1日前的收盤價,返回A1,否則返回0的歷史累和 A6賦值:A2+A3+A4+A5 輸出主買:(A2/A6)*100,畫紅色,線寬為1,NODRAW 輸出主賣:(A3/A6)*100,線寬為1,畫青色,NODRAW 輸出散買:(A4/A6)*100,線寬為1,畫洋紅色,NODRAW 輸出散賣:(A5/A6)*60,線寬為1,畫綠色,NODRAW 輸出主力差:(主買-主賣)*60,畫黃色,線寬為1 如果主力差<=1日前的主力差,返回主力差,否則返回無效數,畫淡青色,線寬為1 如果主力差>1日前的主力差,返回主力差,否則返回無效數,畫黃色,線寬為1 當滿足條件主力差>1日前的主力差時,在主力差和1日前的A222位置之間畫柱狀線,寬度為1,0不為0則畫空心柱.,畫紅色 當滿足條件主力差<=1日前的主力差時,在主力差和1日前的A222位置之間畫柱狀線,寬度為1,0不為0則畫空心柱.,畫青色 當滿足條件主力差<=1日前的主力差時,在A1和1日前的A222位置之間畫柱狀線,寬度為0.5,0不為0則畫空心柱.,畫淡青色 T賦值:A1的有效數據周期數 當滿足條件A1上穿1日前的A222的10日過濾時,在A1和主力差*0.99位置之間畫柱狀線,寬度為1,0不為0則畫空心柱.,畫白色 當滿足條件A1上穿1日前的A222的10日過濾時,在A1*0.99位置書寫文字,畫白色 當滿足條件A222上穿1日前的A1的15日過濾時,在A222*0.99和主力差位置之間畫柱狀線,寬度為1,0不為0則畫空心柱.,畫黃色 當滿足條件A222上穿1日前的A1的15日過濾時,在A1位置書寫文字,畫黃色 當滿足條件是否最后一個周期=1時,在A1位置書寫文字,畫青色 當滿足條件是否最后一個周期=1時,在A222位置書寫文字,畫紅色

?

?來源:程序化99（ www.kzuj.com.cn ）

源碼：

?

?

A1:(DVOL/C)/2,COLORCYAN,LINETHICK1;
A222:IF(A1>0.29 AND CLOSE>REF(CLOSE,1),A1,0),COLORRED,LINETHICK1;
A2:=SUM(IF(A1>100 AND CLOSE>REF(CLOSE,1),A1,0),0);
A3:=SUM(IF(A1>100 AND CLOSE<REF(CLOSE,1),A1,0),0);
A4:=SUM(IF(A1<100 AND CLOSE>REF(CLOSE,1),A1,0),0);
A5:=SUM(IF(A1<100 AND CLOSE<REF(CLOSE,1),A1,0),0);
A6:=A2+A3+A4+A5;
主買:(A2/A6)*100,COLORRED,LINETHICK1,NODRAW;
主賣:(A3/A6)*100,LINETHICK1,COLORCYAN,NODRAW;
散買:(A4/A6)*100,LINETHICK1,COLORMAGENTA,NODRAW;
散賣:(A5/A6)*60,LINETHICK1,COLORGREEN,NODRAW;
主力差:(主買-主賣)*60,COLORYELLOW,LINETHICK1;
IF(主力差<= REF(主力差,1),主力差,DRAWNULL),COLORLICYAN,LINETHICK1;
IF(主力差> REF(主力差,1),主力差,DRAWNULL),COLORYELLOW,LINETHICK1;
STICKLINE(主力差>REF(主力差,1),主力差,REF(A222,1),1,0),COLORRED;
STICKLINE(主力差<=REF(主力差,1),主力差,REF(A222,1),1,0),COLORCYAN;
STICKLINE(主力差<=REF(主力差,1),A1,REF(A222,1),0.5,0),COLORLICYAN;
{STICKLINE(主力差>REF(主力差,1),A1,REF(A222,1),0.5,0),COLORMAGENTA;}
T:=BARSCOUNT(A1);
STICKLINE(FILTER(CROSS(A1,REF(A222,1)),10),A1,主力差*0.99,1,0),COLORWHITE;
DRAWTEXT(FILTER(CROSS(A1,REF(A222,1)),10),A1*0.99,'S'),COLORWHITE;
STICKLINE(FILTER(CROSS(A222,REF(A1,1)),15),A222*0.99,主力差,1,0),COLORYELLOW;
DRAWTEXT(FILTER(CROSS(A222,REF(A1,1)),15), A1,'B'),COLORYELLOW;
DRAWTEXT(ISLASTBAR=1,A1,'S'),COLORCYAN;
DRAWTEXT(ISLASTBAR=1,A222,'B'),COLORRED;

?

公式導入教程: 【通達信公式源碼導入方法教程】 【同花順公式源碼導入方法教程】 【大智慧新一代公式源碼導入方法教程】

?