相關標簽:

?

?

原理解析：
日期日成交量(手),COLORFFFF00,線寬為1,DOTLINE 輸出成交（億）:成交額(元)/100000000,POINTDOT VAR1賦值:成交量(手)/((最高價-最低價)*2-收盤價-開盤價的絕對值) 輸出買盤:如果收陽線,返回VAR1*(最高價-最低價),否則返回如果收陰線,返回VAR1*((最高價-開盤價)+(收盤價-最低價)),否則返回成交量(手)/2,畫紅色,POINTDOT 輸出賣盤:-如果收陽線,返回0-VAR1*((最高價-收盤價)+(開盤價-最低價)),否則返回如果收陰線,返回0-VAR1*(最高價-最低價),否則返回0-成交量(手)/2,畫綠色,POINTDOT 主動買盤賦值:如果收陽線,返回VAR1*(最高價-最低價),否則返回如果收陰線,返回VAR1*((最高價-開盤價)+(收盤價-最低價)),否則返回成交量(手)/2,畫紅色,POINTDOT 主動賣盤賦值:如果收陽線,返回0-VAR1*((最高價-收盤價)+(開盤價-最低價)),否則返回如果收陰線,返回0-VAR1*(最高價-最低價),否則返回0-成交量(手)/2,COLOR00FF00,POINTDOT 輸出主買占%:主動買盤/成交量(手)*100,NODRAW 輸出主賣占%:-主動賣盤/成交量(手)*100,NODRAW 輸出凈買:(買盤-賣盤),畫紅色,NODRAW A賦值:周期類型 N賦值:如果A=0,返回1,否則返回如果A=1,返回5,否則返回如果A=2,返回15,否則返回如果A=3,返回30,否則返回如果A=4,返回60,否則返回如果A=5,返回240,否則返回無效數(shù) M賦值:如果N=1,返回如果當前離開盤分鐘數(shù)關于1的模=0,返回1,否則返回當前離開盤分鐘數(shù)關于1的模,否則返回如果N=5,返回如果當前離開盤分鐘數(shù)關于5的模=0,返回5,否則返回當前離開盤分鐘數(shù)關于5的模,否則返回如果N=15,返回如果當前離開盤分鐘數(shù)關于15的模=0,返回15,否則返回當前離開盤分鐘數(shù)關于15的模,否則返回如果N=30,返回如果當前離開盤分鐘數(shù)關于30的模=0,返回30,否則返回當前離開盤分鐘數(shù)關于30的模,否則返回如果N=60,返回條件判斷,否則返回? 輸出倍率:主動買盤/主動賣盤的絕對值,畫青色,NODRAW 成交賦值:成交量(手),POINTDOT 輸出主力持倉:100*(收盤價-34日內最低價的最低值)/(34日內最高價的最高值-34日內最低價的最低值)的3日指數(shù)移動平均,COLORFF00FF 輸出獲利比例:((以收盤價計算的獲利盤比例)*(100)),畫紅色 輸出換手率:換手線,NODRAW 輸出五換:換手率的5日累和,NODRAW 輸出十換:換手率的10日累和,NODRAW 輸出量比:成交量(手)/1日前的成交量(手),畫白色,NODRAW 當滿足條件成交量(手)>0時,在成交量(手)和0位置之間畫柱狀線,寬度為3,0不為0則畫空心柱.,COLOR006600 當滿足條件成交量(手)>0時,在成交量(手)和0位置之間畫柱狀線,寬度為2,0不為0則畫空心柱.,COLOR009900 當滿足條件成交量(手)>0時,在成交量(手)和0位置之間畫柱狀線,寬度為1.1,0不為0則畫空心柱.,COLOR00CC00 當滿足條件成交量(手)>0時,在成交量(手)和0位置之間畫柱狀線,寬度為0.4,0不為0則畫空心柱.,COLOR00FF00 當滿足條件買盤>0時,在0和買盤位置之間畫柱狀線,寬度為3,0不為0則畫空心柱.,COLOR000066 當滿足條件買盤>0時,在0和買盤位置之間畫柱狀線,寬度為2,0不為0則畫空心柱.,COLOR000099 當滿足條件買盤>0時,在0和買盤位置之間畫柱狀線,寬度為1.1,0不為0則畫空心柱.,COLOR0000CC 當滿足條件買盤>0時,在0和買盤位置之間畫柱狀線,寬度為0.4,0不為0則畫空心柱.,COLOR0000FF VAR2賦值:1*成交額(元) MA1賦值:1*成交額(元)的5日簡單移動平均 MA2賦值:1*成交額(元)的10日簡單移動平均 三十日天量賦值:30日內VAR2的最高值=VAR2 六十日天量賦值:60日內VAR2的最高值=VAR2 百日天量賦值:100日內VAR2的最高值=VAR2 一年天量賦值:250日內VAR2的最高值=VAR2 當滿足條件三十日天量時,在成交量(手)和成交量(手)*0.9位置之間畫柱狀線,寬度為1.6,0不為0則畫空心柱.,COLORFF00FF 當滿足條件六十日天量時,在成交量(手)和成交量(手)*0.9位置之間畫柱狀線,寬度為1.6,0不為0則畫空心柱.,畫黃色 當滿足條件百日天量時,在成交量(手)和成交量(手)*0.9位置之間畫柱狀線,寬度為1.6,0不為0則畫空心柱.,COLORFFFFFF 當滿足條件一年天量時,在成交量(手)和成交量(手)*0.9位置之間畫柱狀線,寬度為1.6,0不為0則畫空心柱.,COLORFF0000 三十日地量賦值:30日內VAR2的最低值=VAR2 六十日地量賦值:60日內VAR2的最低值=VAR2 百日地量賦值:100日內VAR2的最低值=VAR2 一年地量賦值:250日內VAR2的最低值=VAR2 當滿足條件三十日地量時,在0和20000位置之間畫柱狀線,寬度為0.2,0不為0則畫空心柱.,COLORC08000 當滿足條件六十日地量時,在0和20000位置之間畫柱狀線,寬度為0.2,0不為0則畫空心柱.,畫黃色 當滿足條件百日地量時,在0和20000位置之間畫柱狀線,寬度為0.2,0不為0則畫空心柱.,COLORFFFFFF 當滿足條件一年地量時,在0和20000位置之間畫柱狀線,寬度為0.2,0不為0則畫空心柱.,COLORFF0000 當滿足條件是否最后一個周期時,在橫軸0.0縱軸0位置書寫文字,COLOR0080FF 當滿足條件是否最后一個周期時,在橫軸0.04縱軸0位置書寫文字,COLORFF00FF 當滿足條件是否最后一個周期時,在橫軸0.09縱軸0位置書寫文字,COLOR00FFFF 當滿足條件是否最后一個周期時,在橫軸0.14縱軸0位置書寫文字,COLORFFFFFF 當滿足條件是否最后一個周期時,在橫軸0.19縱軸0位置書寫文字,COLORFF0000 當滿足條件是否最后一個周期時,在橫軸0.0縱軸0.15位置書寫文字,COLOR0080FF 當滿足條件是否最后一個周期時,在橫軸0.04縱軸0.15位置書寫文字,COLORC08000 當滿足條件是否最后一個周期時,在橫軸0.09縱軸0.15位置書寫文字,COLOR00FFFF 當滿足條件是否最后一個周期時,在橫軸0.14縱軸0.15位置書寫文字,COLORFFFFFF 當滿足條件是否最后一個周期時,在橫軸0.19縱軸0.15位置書寫文字,COLORFF0000 輸出V5:成交量(手)的5日簡單移動平均,COLOR0000FF,線寬為2 輸出V10:成交量(手)的10日簡單移動平均,COLOR00FFFF,線寬為2

?

?

?

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

源碼：

REFDATE(VOL,DATE),COLORFFFF00,LINETHICK1,DOTLINE;{收盤價水平線};
成交（億）:AMOUNT/100000000,POINTDOT;
VAR1:=VOL/((HIGH-LOW)*2-ABS(CLOSE-OPEN));
買盤:IF(CLOSE>OPEN,VAR1*(HIGH-LOW),IF(CLOSE<OPEN,VAR1*((HIGH-OPEN)+(CLOSE-LOW)),VOL/2)),COLORRED,POINTDOT ;
賣盤:-IF(CLOSE>OPEN,0-VAR1*((HIGH-CLOSE)+(OPEN-LOW)),IF(CLOSE<OPEN,0-VAR1*(HIGH-LOW),0-VOL/2)),COLORGREEN,POINTDOT;
主動買盤:=IF(CLOSE>OPEN,VAR1*(HIGH-LOW),IF(CLOSE<OPEN,VAR1*((HIGH-OPEN)+(CLOSE-LOW)),VOL/2)),COLORRED,POINTDOT;
主動賣盤:=IF(CLOSE>OPEN,0-VAR1*((HIGH-CLOSE)+(OPEN-LOW)),IF(CLOSE<OPEN,0-VAR1*(HIGH-LOW),0-VOL/2)),COLOR00FF00,POINTDOT;
主買占%:主動買盤/VOL*100,NODRAW;
主賣占%:-主動賣盤/VOL*100,NODRAW;
凈買:(買盤-賣盤),COLORRED,NODRAW;
A:=PERIOD;
N:=IF(A=0,1,IF(A=1,5,IF(A=2,15,IF(A=3,30,IF(A=4,60,IF(A=5,240,DRAWNULL))))));
M:=IF(N=1,IF(MOD(FROMOPEN,1)=0,1,
MOD(FROMOPEN,1)),IF(N=5,IF(MOD(FROMOPEN,5)=0,5,
MOD(FROMOPEN,5)),IF(N=15,IF(MOD(FROMOPEN,15)=0,15,
MOD(FROMOPEN,15)),IF(N=30,IF(MOD(FROMOPEN,30)=0,30,
MOD(FROMOPEN,30)),IF(N=60,IF(MOD(FROMOPEN,60)=0,60,
MOD(FROMOPEN,60)),IF(N=240,FROMOPEN,DRAWNULL))))));
倍率:主動買盤/ABS(主動賣盤),COLORCYAN,NODRAW;
成交:=VOL,POINTDOT;
主力持倉:EMA(100*(CLOSE-LLV(LOW,34))/(HHV(HIGH,34)-LLV(LOW,34)),3),COLORFF00FF;
獲利比例:((WINNER(CLOSE))*(100)),COLORRED;
換手率:HSL,NODRAW;
五換:SUM(換手率,5),NODRAW;
十換:SUM(換手率,10),NODRAW;
量比:V/REF(V,1),COLORWHITE,NODRAW;
STICKLINE(VOL>0,VOL,0,3,0),COLOR006600;
STICKLINE(VOL>0,VOL,0,2,0),COLOR009900;
STICKLINE(VOL>0,VOL,0,1.1,0),COLOR00CC00;
STICKLINE(VOL>0,VOL,0,0.4,0),COLOR00FF00;
STICKLINE(買盤>0,0,買盤,3,0),COLOR000066;
STICKLINE(買盤>0,0,買盤,2,0),COLOR000099;
STICKLINE(買盤>0,0,買盤,1.1,0),COLOR0000CC;
STICKLINE(買盤>0,0,買盤,0.4,0),COLOR0000FF;VAR2:=1*AMOUNT;
MA1:=1*MA(AMOUNT,5);
MA2:=1*MA(AMOUNT,10);
三十日天量:=HHV(VAR2,30)=VAR2;
六十日天量:=HHV(VAR2,60)=VAR2;
百日天量:=HHV(VAR2,100)=VAR2;
一年天量:=HHV(VAR2,250)=VAR2;
STICKLINE(三十日天量,VOL,VOL*0.9,1.6,0),COLORFF00FF;
STICKLINE(六十日天量,VOL,VOL*0.9,1.6,0),COLORYELLOW;
STICKLINE(百日天量,VOL,VOL*0.9,1.6,0),COLORFFFFFF;
STICKLINE(一年天量,VOL,VOL*0.9,1.6,0),COLORFF0000;
三十日地量:=LLV(VAR2,30)=VAR2;
六十日地量:=LLV(VAR2,60)=VAR2;
百日地量:=LLV(VAR2,100)=VAR2;
一年地量:=LLV(VAR2,250)=VAR2;
STICKLINE(三十日地量,0,20000,0.2,0),COLORC08000;
STICKLINE(六十日地量,0,20000,0.2,0),COLORYELLOW;
STICKLINE(百日地量,0,20000,0.2,0),COLORFFFFFF;
STICKLINE(一年地量,0,20000,0.2,0),COLORFF0000;
DRAWTEXT_FIX(ISLASTBAR ,0.0,0,0, '量柱上方'),COLOR0080FF;
DRAWTEXT_FIX(ISLASTBAR ,0.04,0,0,'三十日天量'),COLORFF00FF;
DRAWTEXT_FIX(ISLASTBAR ,0.09,0,0,'六十日天量'),COLOR00FFFF;
DRAWTEXT_FIX(ISLASTBAR ,0.14,0,0,'一百日天量'),COLORFFFFFF;
DRAWTEXT_FIX(ISLASTBAR ,0.19,0,0,'一年天量'),COLORFF0000;DRAWTEXT_FIX(ISLASTBAR ,0.0,0.15,0, '量柱下方'),COLOR0080FF;
DRAWTEXT_FIX(ISLASTBAR ,0.04,0.15,0,'三十日地量'),COLORC08000;
DRAWTEXT_FIX(ISLASTBAR ,0.09,0.15,0,'六十日地量'),COLOR00FFFF;
DRAWTEXT_FIX(ISLASTBAR ,0.14,0.15,0,'一百日地量'),COLORFFFFFF;
DRAWTEXT_FIX(ISLASTBAR ,0.19,0.15,0,'一年地量'),COLORFF0000;
{說明:量柱上方.粉紅色是三十日天量,黃色是六十日天量,綠色是一百日天量,藍色是一年天量.
量柱下方,粉紅色是三十日地量,黃色是六十日地量,綠色是一百天地量,藍色是一年地量};
V5:MA(VOL,5),COLOR0000FF,LINETHICK2;
V10:MA(VOL,10),COLOR00FFFF,LINETHICK2;
中間價:VOL/2,LINETHICK4,POINTDOT,COLOR00FFFF;DRAWTEXT_FIX(C>O,0.01,0.9,0,' m.kzuj.com.cn '),COLORRED;
DRAWTEXT_FIX(C>O,1,1,0,'程序化交易模型'),COLORRED;

?

?

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

?