相關標簽:

?

?

原理解析：
WEN98精準線N賦值:5 L0賦值:0 L1賦值:最低價-1日前的最低價的絕對值<=L0 L2賦值:最低價-2日前的最低價的絕對值<=L0 L3賦值:最低價-3日前的最低價的絕對值<=L0 L4賦值:最低價-4日前的最低價的絕對值<=L0 L5賦值:最低價-5日前的最低價的絕對值<=L0 精準線首次賦值:L1 OR L2 OR L3 OR L4 OR L5 精準左賦值:精準線首次的N日過濾 當滿足條件精準左時,在最低價和最低價位置之間畫柱狀線,寬度為12,-1不為0則畫空心柱.,畫洋紅色 G1賦值:最高價-1日前的最高價的絕對值<=L0 G2賦值:最高價-2日前的最高價的絕對值<=L0 G3賦值:最高價-3日前的最高價的絕對值<=L0 G4賦值:最高價-4日前的最高價的絕對值<=L0 G5賦值:最高價-5日前的最高價的絕對值<=L0 G6賦值:最高價-6日前的最高價的絕對值<=L0 G7賦值:最高價-7日前的最高價的絕對值<=L0 G8賦值:最高價-8日前的最高價的絕對值<=L0 精準線1首次賦值:G1 OR G2 OR G3 OR G4 OR G5 OR G6 OR G7 OR G8 精準左1賦值:精準線1首次的N日過濾 當滿足條件精準左1時,在最高價和最高價位置之間畫柱狀線,寬度為12,-1不為0則畫空心柱.,COLOR00FF00 K線 當滿足條件精準左時,在最低價位置書寫文字 當滿足條件精準左1時,在最高價位置書寫文字 輸出MA6:收盤價的6日簡單移動平均 輸出MA18:收盤價的18日簡單移動平均 輸出MA24:收盤價的24日簡單移動平均 歡罡持?成交量(手)*收盤價/100,NODRAW A2賦值:(如果((成交額/8>20)AND(收盤價>(1日前的收盤價))),返回成交額,否則返回0)的歷史累和 A3賦值:(如果((成交額/8>20)AND(收盤價<(1日前的收盤價))),返回成交額,否則返回0)的歷史累和 A6賦值:(A2+A3) A7賦值:如果(是否最后一個周期),返回((100*A2)/A6),否則返回0 A8賦值:如果(是否最后一個周期),返回((100*A3)/A6),否則返回0 DD1賦值:1 AAA1賦值:字符串相加 AAA2賦值:字符串相加 AAA3賦值:字符串相加 當滿足條件DD1=1時,在橫軸0縱軸0.02位置書寫文字,畫紅色 當滿足條件DD1=1時,在橫軸0縱軸0.13位置書寫文字,COLOR00FF00 當滿足條件DD1=1時,在橫軸0縱軸0.24位置書寫文字,COLOR00FFFF 當滿足條件收陽線時,在橫軸0.01縱軸0.9位置書寫文字,畫紅色 當滿足條件收陽線時,在橫軸1縱軸1位置書寫文字,畫紅色

?

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

源碼：

?

?

WEN98精準線N:=5;
L0:=0;
L1:=ABS(L-REF(L,1))<=L0;
L2:=ABS(L-REF(L,2))<=L0;
L3:=ABS(L-REF(L,3))<=L0;
L4:=ABS(L-REF(L,4))<=L0;
L5:=ABS(L-REF(L,5))<=L0;
精準線首次:=L1 OR L2 OR L3 OR L4 OR L5;
精準左:=FILTER(精準線首次,N);
STICKLINE(精準左,L,L,12,-1),COLORMAGENTA;
G1:=ABS(H-REF(H,1))<=L0;
G2:=ABS(H-REF(H,2))<=L0;
G3:=ABS(H-REF(H,3))<=L0;
G4:=ABS(H-REF(H,4))<=L0;
G5:=ABS(H-REF(H,5))<=L0;
G6:=ABS(H-REF(H,6))<=L0;
G7:=ABS(H-REF(H,7))<=L0;
G8:=ABS(H-REF(H,8))<=L0;
精準線1首次:=G1 OR G2 OR G3 OR G4 OR G5 OR G6 OR G7 OR G8;
精準左1:=FILTER(精準線1首次,N);
STICKLINE(精準左1,H,H,12,-1),COLOR00FF00;
DRAWKLINE(HIGH,OPEN,LOW,CLOSE);
DRAWTEXT(精準左,L,O);
DRAWTEXT(精準左1,H,L);
MA6:MA(C,6);
MA18:MA(C,18);
MA24:MA(C,24);機構買賣分時成交額:=V*C/100,NODRAW;{萬元}
A2:=SUM((IF(((成交額/8>20) AND (CLOSE>(REF(CLOSE,1)))),成交額,0)),0);
A3:=SUM((IF(((成交額/8>20) AND (CLOSE<(REF(CLOSE,1)))),成交額,0)),0);
A6:=(A2+A3);
A7:=IF((ISLASTBAR),((100*A2)/A6),0);
A8:=IF((ISLASTBAR),((100*A3)/A6),0);
DD1:=1;
AAA1:=STRCAT(STRCAT('機構買',CON2STR((100*A2)/A6,0)),'%%');
AAA2:=STRCAT(STRCAT('機構賣',CON2STR((100*A3)/A6,0)),'%%');
AAA3:=STRCAT(STRCAT('總買入',CON2STR((100*(A2-A3))/A6,0)),'%%');
DRAWTEXT_FIX(DD1=1,0,0.02,0,AAA1),COLORRED;
DRAWTEXT_FIX(DD1=1,0,0.13,0,AAA2),COLOR00FF00;
DRAWTEXT_FIX(DD1=1,0,0.24,0,AAA3),COLOR00FFFF;DRAWTEXT_FIX(C>O,0.01,0.9,0,' m.kzuj.com.cn '),COLORRED;
DRAWTEXT_FIX(C>O,1,1,0,'程序化交易模型'),COLORRED;

?

?

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

?