相關標簽:

?

打開光標可看往日變動

?

?

原理解析：
輸出INPUT:時間(20,1,100),圖形(10,1,100) 填充背景 機構賦值:EXTDATA(11) 凈量賦值:EXTDATA(5) 大戶賦值:EXTDATA(12) 中戶賦值:EXTDATA(13) 主力賦值:EXTDATA(6) 散戶賦值:EXTDATA(7) 機金額賦值:機構*收盤價 主金額賦值:主力*收盤價 大金額賦值:大戶*收盤價 中金額賦值:中戶*收盤價 散金額賦值:散戶*收盤價 輸出莊家資金進出:(機構+主力+大戶)/圖形,畫洋紅色,線寬為2 輸出散戶資金進出:(散戶+中戶)/圖形,畫綠色,線寬為2 莊減昨賦值:莊家資金進出-1日前的莊家資金進出 散減昨賦值:散戶資金進出-1日前的散戶資金進出 當滿足條件1時,在莊家資金進出+莊減昨和莊家資金進出位置之間畫柱狀線,寬度為2,0不為0則畫空心柱.,畫紅色 當滿足條件1時,在散戶資金進出和散戶資金進出+散減昨位置之間畫柱狀線,寬度為2,1不為0則畫空心柱.,畫青色 機構均價賦值:機金額/機構 主力均價賦值:主金額/主力 大戶均價賦值:大金額/大戶 中戶均價賦值:中金額/中戶 散戶均價賦值:散金額/散戶 機構20賦值:機構的時間日累和/圖形 主力20賦值:主力的時間日累和/圖形 大戶20賦值:大戶的時間日累和/圖形 中戶20賦值:中戶的時間日累和/圖形 散戶20賦值:散戶的時間日累和/圖形 凈量20賦值:凈量的時間日累和/圖形 總01賦值:凈量+機構+主力+大戶+中戶+散戶 總02賦值:散戶-中戶-大戶-主力-機構-凈量 總03賦值:凈量20+機構20+主力20+大戶20+中戶20+散戶20 總04賦值:散戶20-中戶20-大戶20-主力20-機構20-凈量20 總賦值:總01和總03的較大值 總3賦值:總02和總04的較小值 P賦值:SYSPARAM(1) 當滿足條件BARPOS=SYSPARAM(3)-20時,在0和總[P]*1.02位置之間畫柱狀線,寬度為150,0不為0則畫空心柱.,SHIFT1,ALIGN2,畫白色 當滿足條件BARPOS=SYSPARAM(3)-20時,在0和總3[P]*1.02位置之間畫柱狀線,寬度為150,0不為0則畫空心柱.,SHIFT1,ALIGN2,畫白色 當滿足條件BARPOS=SYSPARAM(3)-20時,在0和總[P]*0.99位置之間畫柱狀線,寬度為140,0不為0則畫空心柱.,SHIFT1,ALIGN2,畫深灰色 當滿足條件BARPOS=SYSPARAM(3)-20時,在0和總3[P]*0.99位置之間畫柱狀線,寬度為140,0不為0則畫空心柱.,SHIFT1,ALIGN2,畫深灰色 當滿足條件BARPOS=DATACOUNT-13時,在0和凈量[P]位置之間畫柱狀線,寬度為20,0不為0則畫空心柱.,畫棕色 當滿足條件BARPOS=DATACOUNT-16時,在0和機構[P]位置之間畫柱狀線,寬度為15,0不為0則畫空心柱.,畫紅色 當滿足條件BARPOS=DATACOUNT-18時,在0和主力[P]位置之間畫柱狀線,寬度為15,0不為0則畫空心柱.,畫黃色 當滿足條件BARPOS=DATACOUNT-20時,在0和大戶[P]位置之間畫柱狀線,寬度為15,0不為0則畫空心柱.,畫洋紅色 當滿足條件BARPOS=DATACOUNT-22時,在0和中戶[P]位置之間畫柱狀線,寬度為15,0不為0則畫空心柱.,畫青色 當滿足條件BARPOS=DATACOUNT-24時,在0和散戶[P]位置之間畫柱狀線,寬度為15,0不為0則畫空心柱.,COLOR8000 當滿足條件BARPOS=DATACOUNT-25時,在總[P]位置書寫文字,PXUP38,ALIGN5,畫藍色 當滿足條件BARPOS=DATACOUNT-23時,在總[P]位置書寫文字,PXUP38,ALIGN5,畫藍色 當滿足條件BARPOS=DATACOUNT-21時,在總[P]位置書寫文字,PXUP38,ALIGN5,畫藍色 當滿足條件BARPOS=DATACOUNT-19時,在總[P]位置書寫文字,PXUP38,ALIGN5,畫藍色 當滿足條件BARPOS=DATACOUNT-17時,在總[P]位置書寫文字,PXUP38,ALIGN5,畫藍色 當滿足條件BARPOS=DATACOUNT-14時,在總[P]位置書寫文字,PXUP38,ALIGN5,畫藍色 當滿足條件BARPOS=SYSPARAM(3)-35時,在0和總[P]*1.02位置之間畫柱狀線,寬度為150,0不為0則畫空心柱.,SHIFT1,ALIGN2,畫藍色 當滿足條件BARPOS=SYSPARAM(3)-35時,在0和總3[P]*1.02位置之間畫柱狀線,寬度為150,0不為0則畫空心柱.,SHIFT1,ALIGN2,畫藍色 當滿足條件BARPOS=SYSPARAM(3)-35時,在0和總[P]*0.99位置之間畫柱狀線,寬度為140,0不為0則畫空心柱.,SHIFT1,ALIGN2,畫深灰色 當滿足條件BARPOS=SYSPARAM(3)-35時,在0和總3[P]*0.99位置之間畫柱狀線,寬度為140,0不為0則畫空心柱.,SHIFT1,ALIGN2,畫深灰色 當滿足條件BARPOS=DATACOUNT-28時,在0和凈量20[P]位置之間畫柱狀線,寬度為20,0不為0則畫空心柱.,畫棕色 當滿足條件BARPOS=DATACOUNT-31時,在0和機構20[P]位置之間畫柱狀線,寬度為15,0不為0則畫空心柱.,畫紅色 當滿足條件BARPOS=DATACOUNT-33時,在0和主力20[P]位置之間畫柱狀線,寬度為15,0不為0則畫空心柱.,畫黃色 當滿足條件BARPOS=DATACOUNT-35時,在0和大戶20[P]位置之間畫柱狀線,寬度為15,0不為0則畫空心柱.,畫洋紅色 當滿足條件BARPOS=DATACOUNT-37時,在0和中戶20[P]位置之間畫柱狀線,寬度為15,0不為0則畫空心柱.,畫青色 當滿足條件BARPOS=DATACOUNT-39時,在0和散戶20[P]位置之間畫柱狀線,寬度為15,0不為0則畫空心柱.,COLOR8000 當滿足條件BARPOS=DATACOUNT-40時,在總[P]位置書寫文字,PXUP38,ALIGN5,畫藍色

?

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

源碼：

?

?

?

input:時間(20,1,100),圖形(10,1,100);
DRAWGBK(1, COLORRGB(50,80,220),COLORRGB(250,250,250),1);

機構:=EXTDATA(11);
凈量:=EXTDATA(5);
大戶:=EXTDATA(12);
中戶:=EXTDATA(13);
主力:=EXTDATA(6);
散戶:=EXTDATA(7);
機金額:=機構*c;
主金額:=主力*C;
大金額:=大戶*c;
中金額:=中戶*c;
散金額:=散戶*c;
莊家資金進出:(機構+主力+大戶)/圖形,COLORMAGENTA,LINETHICK2;
散戶資金進出:(散戶+中戶)/圖形,COLORGREEN,LINETHICK2;
莊減昨:=莊家資金進出-REF(莊家資金進出,1);
散減昨:=散戶資金進出-REF(散戶資金進出,1);
STICKLINE(1,莊家資金進出+莊減昨,莊家資金進出,2,0),colorred;
STICKLINE(1,散戶資金進出,散戶資金進出+散減昨,2,1),COLORCYAN;
機構均價:=機金額/機構;
主力均價:=主金額/主力;
大戶均價:=大金額/大戶;
中戶均價:=中金額/中戶;
散戶均價:=散金額/散戶;


機構20:=SUM(機構,時間)/圖形;主力20:=SUM(主力,時間)/圖形;大戶20:=SUM(大戶,時間)/圖形;
中戶20:=SUM(中戶,時間)/圖形;散戶20:=SUM(散戶,時間)/圖形;凈量20:=SUM(凈量,時間)/圖形;

總01:=凈量+機構+主力+大戶+中戶+散戶;
總02:=散戶-中戶-大戶-主力-機構-凈量;
總03:=凈量20+機構20+主力20+大戶20+中戶20+散戶20;
總04:=散戶20-中戶20-大戶20-主力20-機構20-凈量20;
總:=MAX(總01,總03); 總3:=MIN(總02,總04);

p:=SYSPARAM(1);
STICKLINE(BARPOS=SYSPARAM(3)-20,0,總[p]*1.02,150,0),SHIFT1,ALIGN2,COLORWHITE;
STICKLINE(BARPOS=SYSPARAM(3)-20,0,總3[p]*1.02,150,0),SHIFT1,ALIGN2,COLORWHITE;
STICKLINE(BARPOS=SYSPARAM(3)-20,0,總[p]*0.99,140,0),SHIFT1,ALIGN2,COLORGRAY;
STICKLINE(BARPOS=SYSPARAM(3)-20,0,總3[p]*0.99,140,0),SHIFT1,ALIGN2,COLORGRAY;
STICKLINE(BARPOS=DATACOUNT-13,0,凈量[p],20,0),COLORBROWN;
STICKLINE(BARPOS=DATACOUNT-16,0,機構[p],15,0),COLORRED;
STICKLINE(BARPOS=DATACOUNT-18,0,主力[p],15,0),COLORYELLOW;
STICKLINE(BARPOS=DATACOUNT-20,0,大戶[p],15,0),COLORMAGENTA;
STICKLINE(BARPOS=DATACOUNT-22,0,中戶[p],15,0),COLORCYAN;
STICKLINE(BARPOS=DATACOUNT-24,0,散戶[p],15,0),COLOR8000;
DRAWTEXT(BARPOS=DATACOUNT-25,總[p],'散 \n戶'),PXUP38,align5,COLORBLUE;
DRAWTEXT(BARPOS=DATACOUNT-23,總[p],'中 \n戶'),PXUP38,align5,COLORBLUE;
DRAWTEXT(BARPOS=DATACOUNT-21,總[p],'大 \n戶'),PXUP38,align5,COLORBLUE;
DRAWTEXT(BARPOS=DATACOUNT-19,總[p],'主 \n力'),PXUP38,align5,COLORBLUE;
DRAWTEXT(BARPOS=DATACOUNT-17,總[p],'機 \n構'),PXUP38,align5,COLORBLUE;
DRAWTEXT(BARPOS=DATACOUNT -14,總[p],'凈 \n量'),PXUP38,align5,COLORBLUE;
STICKLINE(BARPOS=SYSPARAM(3)-35,0,總[p]*1.02,150,0),SHIFT1,ALIGN2,COLORBLUE;
STICKLINE(BARPOS=SYSPARAM(3)-35,0,總3[p]*1.02,150,0),SHIFT1,ALIGN2,COLORBLUE;
STICKLINE(BARPOS=SYSPARAM(3)-35,0,總[p]*0.99,140,0),SHIFT1,ALIGN2,COLORGRAY;
STICKLINE(BARPOS=SYSPARAM(3)-35,0,總3[p]*0.99,140,0),SHIFT1,ALIGN2,COLORGRAY;
STICKLINE(BARPOS=DATACOUNT-28,0,凈量20[p],20,0),COLORBROWN;
STICKLINE(BARPOS=DATACOUNT-31,0,機構20[p],15,0),COLORRED;
STICKLINE(BARPOS=DATACOUNT-33,0,主力20[p],15,0),COLORYELLOW;
STICKLINE(BARPOS=DATACOUNT-35,0,大戶20[p],15,0),COLORMAGENTA;
STICKLINE(BARPOS=DATACOUNT-37,0,中戶20[p],15,0),COLORCYAN;
STICKLINE(BARPOS=DATACOUNT-39,0,散戶20[p],15,0),COLOR8000;
DRAWTEXT(BARPOS=DATACOUNT-40,總[p],'N天總量'),PXUP38,align5,COLORBLUE;

?

?

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

?