相關標簽:

?

?

?

原理解析：
賦值: (最高價 + 最低價 + 收盤價)/3 V1賦值:如果TYP>1日前的TYP,返回TYP*成交量(手),否則返回0的80日累和/如果TYP<1日前的TYP,返回TYP*成交量(手),否則返回0的80日累和 換手賦值:成交量(手)/當前流通股本(手)*100 線寬為0 百日換手賦值:換手的100日累和, 線寬為2 輸出持倉估算%:如果百日換手>200,返回(0.3*V1-0.2)*100,否則返回0,線寬為0 輸出日增:(如果TYP>1日前的TYP,返回0.3*TYP*成交量(手),否則返回0-如果TYP<1日前的TYP,返回0.2*TYP*成交量(手),否則返回0)/10000,COLORSTICK,線寬為5 周倉賦值:日增的5日累和 月倉賦值:日增的20日累和 季倉賦值:日增的60日累和 半年倉賦值:日增的120日累和 上周賦值:5日前的周倉 上月賦值:20日前的月倉 上季賦值:60日前的季倉 上半年倉賦值:120日前的周倉 輸出周增:(周倉-上周),COLOR0000FF 輸出月增:(月倉-上月),COLOR00FFFF 輸出季增:(季倉-上季),COLOR00FF00,線寬為2 輸出半年增:半年倉-上半年倉,線寬為1 當滿足條件收陽線時,在橫軸0.01縱軸0.9位置書寫文字,畫紅色 當滿足條件收陽線時,在橫軸1縱軸1位置書寫文字,畫紅色

?

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

源碼：

?

?

TYP := (HIGH + LOW + CLOSE)/3;
V1:=SUM(IF(TYP>REF(TYP,1),TYP*VOL,0),80)/SUM(IF(TYP<REF(TYP,1),TYP*VOL,0),80);
換手:=VOL/CAPITAL*100 LINETHICK0;
百日換手:=sum(換手,100), LINETHICK2;
持倉估算%:if(百日換手>200,(0.3*V1-0.2)*100,0),LINETHICK0;
日增:(IF(TYP>REF(TYP,1),0.3*TYP*VOL,0)-IF(TYP<REF(TYP,1),0.2*TYP*VOL,0))/10000,COLORSTICK,LINETHICK5;
周倉:=SUM(日增,5);
月倉:=SUM(日增,20);
季倉:=SUM(日增,60);
半年倉:=SUM(日增,120);
上周:=REF(周倉,5);
上月:=REF(月倉,20);
上季:=REF(季倉,60);

上半年倉:=REF(周倉,120);
周增:(周倉-上周),COLOR0000FF;
月增:(月倉-上月),COLOR00FFFF;
季增:(季倉-上季),COLOR00FF00,LINETHICK2;
半年增:半年倉-上半年倉,LINETHICK1;

DRAWTEXT_FIX(C>O,0.01,0.9,0,' www.kzuj.com.cn '),COLORRED;
DRAWTEXT_FIX(C>O,1,1,0,'程序化交易模型'),COLORRED;

?

?

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

?