分時決策資金指標公式源碼

A1:=(VOL/CLOSE)/3;
{A222:=IF(A1>0.29 AND CLOSE>REF(CLOSE,1),A1,0);}
{A22:=SUM(A222,0);}
A2:=SUM((IF(((A1>0.29) AND (CLOSE>(REF(CLOSE,1)))),A1,0)),0);
A3:=SUM((IF(((A1>0.29) AND (CLOSE<(REF(CLOSE,1)))),A1,0)),0);
A4:=SUM((IF(((A1<0.29) AND (CLOSE>(REF(CLOSE,1)))),A1,0)),0);
A5:=SUM((IF(((A1<0.29) AND (CLOSE<(REF(CLOSE,1)))),A1,0)),0);
DRAWTEXT_FIX(C>O,0.01,0.9,0,' www.kzuj.com.cn '),COLORRED;
DRAWTEXT_FIX(C>O,1,1,0,'程序化交易模型'),COLORRED;
A6:=((A2+A3)+A4)+A5;
A7:=IF((ISLASTBAR=1),((100*A2)/A6),0);
A8:=((IF((ISLASTBAR=1),((100*A3)/A6),0)));
A9:=((IF((ISLASTBAR=1),((100*A4)/A6),0)));
A10:=((IF((ISLASTBAR=1),((100*A5)/A6),0)));
機構買盤:(A2),LINETHICK3,COLORFF55FF;
機構賣盤:(A3),LINETHICK3,COLORFFFF55;
散戶買盤:(A4),COLOR5555FF;
散戶賣盤:(A5),COLOR55FF55;
DRAWTEXT(ISLASTBAR=1,機構買盤*0.9,'機構買盤'),LINETHICK2,COLORFF55FF;
DRAWTEXT(ISLASTBAR=1,機構賣盤,'機構賣盤'),LINETHICK2,COLORFFFF55;
DRAWTEXT(ISLASTBAR=1,散戶買盤,'散戶買盤'),LINETHICK2,COLOR5555FF;
DRAWTEXT(ISLASTBAR=1,散戶賣盤,'散戶賣盤'),LINETHICK2,COLOR55FF55;
 

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝

源碼解析：

A1賦值:(成交量(手)/收盤價)/3
A2賦值:(如果((A1>0.29)AND(收盤價>(昨收))),返回A1,否則返回0)的歷史累和
A3賦值:(如果((A1>0.29)AND(收盤價<(昨收))),返回A1,否則返回0)的歷史累和
A4賦值:(如果((A1<0.29)AND(收盤價>(昨收))),返回A1,否則返回0)的歷史累和
A5賦值:(如果((A1<0.29)AND(收盤價<(昨收))),返回A1,否則返回0)的歷史累和
當滿足條件收陽線時,在橫軸0.01縱軸0.9位置書寫文字,畫紅色
當滿足條件收陽線時,在橫軸1縱軸1位置書寫文字,畫紅色
A6賦值:((A2+A3)+A4)+A5
A7賦值:如果(是否最后一個周期=1),返回((100*A2)/A6),否則返回0
A8賦值:((如果(是否最后一個周期=1),返回((100*A3)/A6),否則返回0))
A9賦值:((如果(是否最后一個周期=1),返回((100*A4)/A6),否則返回0))
A10賦值:((如果(是否最后一個周期=1),返回((100*A5)/A6),否則返回0))
輸出機構買盤:(A2),線寬為3,COLORFF55FF
輸出機構賣盤:(A3),線寬為3,COLORFFFF55
輸出散戶買盤:(A4),COLOR5555FF
輸出散戶賣盤:(A5),COLOR55FF55
當滿足條件是否最后一個周期=1時,在機構買盤*0.9位置書寫文字,線寬為2,COLORFF55FF
當滿足條件是否最后一個周期=1時,在機構賣盤位置書寫文字,線寬為2,COLORFFFF55
當滿足條件是否最后一個周期=1時,在散戶買盤位置書寫文字,線寬為2,COLOR5555FF
當滿足條件是否最后一個周期=1時,在散戶賣盤位置書寫文字,線寬為2,COLOR55FF55