相關標簽:

?

原理解析：
輸出趨勢:收盤價的4日指數移動平均的4日指數移動平均,畫黃色 月K賦值:"KDJ的K[取月線數據]" 月D賦值:"KDJ的D[取月線數據]" 周K賦值:"KDJ的K[取周線數據]" 周D賦值:"KDJ的D[取周線數據]" 日K賦值:"隨機指標KD的K" 日D賦值:"隨機指標KD的D" 日金叉賦值:如果日K上穿日D,返回15,否則返回0 周金叉賦值:如果周K上穿周D,返回25,否則返回0 月金叉賦值:如果月K上穿月D,返回35,否則返回0 日周月賦值:如果日金叉=15AND周金叉=25AND月金叉=35,返回1,否則返回0 日周月賺賦值:日周月=1 日周賦值:如果日金叉=15AND周金叉=25,返回2,否則返回0 日周賺賦值:日周=2 周月賦值:如果周金叉=25AND月金叉=35,返回3,否則返回0 日月賦值:如果日金叉=15AND月金叉=35,返回4,否則返回0 日月賺賦值:日月=4 周月賺賦值:周月=3 當滿足條件日周月賺時,在趨勢*0.96位置書寫文字,畫紅色 當滿足條件周月賺時,在趨勢*0.97位置書寫文字,COLORFF00FF 當滿足條件日月賺時,在趨勢*0.98位置書寫文字,畫黃色 DIF賦值:不定周期收盤價的12日指數移動平均-不定周期收盤價的26日指數移動平均 DEA賦值:DIF的9日指數移動平均 AAA賦值:(DIF-DEA)*2*60 啟動賦值:AAA-1日前的AAA上穿15,畫紅色,線寬為2 當滿足條件啟動時,在最低價*0.97位置書寫文字,畫黃色,線寬為2 AA賦值:(收盤價的3日簡單移動平均+收盤價的6日簡單移動平均+收盤價的12日簡單移動平均+收盤價的24日簡單移動平均)/4 BB賦值:AA的2日指數移動平均 TP賦值:(AA上穿BB OR 收盤價上穿AA) AND 收盤價>=收盤價的55日指數移動平均 CC賦值:收盤價的12日指數移動平均-收盤價的26日指數移動平均 DD賦值:CC的9日指數移動平均 主升啟動賦值:TP AND CC上穿DD AND (DD<=-0.07)*CC 當滿足條件主升啟動時,在最低價*0.996位置畫1號圖標 當滿足條件主升啟動時,在最低價位置書寫文字 VAR1賦值:(收盤價+最高價+開盤價+最低價)/4 MA1賦值:VAR1的3日簡單移動平均 輸出MAA5:收盤價的5日簡單移動平均,畫紅色,線寬為1 A3賦值:(收盤價-9日內最低價的最低值)/(9日內最高價的最高值-9日內最低價的最低值)*100 A4賦值:A3的3日[1日權重]移動平均 A5賦值:A4的3日[1日權重]移動平均 A6賦值:3*A4-2*A5 A7賦值:收盤價-1日前的收盤價 A8賦值:100*A7的6日指數移動平均的6日指數移動平均/A7的絕對值的6日指數移動平均的6日指數移動平均 AAA2賦值:如果收盤價>1日前的收盤價,返回成交量(手)*收盤價,否則返回0的歷史累和 AAA3賦值:如果收盤價<1日前的收盤價,返回成交量(手)*收盤價,否則返回0的歷史累和 AAA4賦值:如果收盤價=1日前的收盤價,返回成交量(手)*收盤價,否則返回0的歷史累和 BB1賦值:0 B1萬元賦值:不定周期成交量*不定周期收盤價/100 B1差賦值:B1萬元-1日前的B1萬元 B2萬元賦值:不定周期成交量*不定周期收盤價/100 B2比賦值:B2萬元/1日前的B2萬元 凈流入萬元賦值:(AAA2-AAA3-0.5*AAA4) PM賦值:凈流入萬元的1日簡單移動平均 PMA賦值:PM/1日前的PM>1 PMB賦值:1日前的PMA<1 AND PMA 輸出密碼:(B1萬元的2日簡單移動平均的2日指數移動平均)/100000,畫黃色,NODRAW 二日比賦值:密碼/1日前的密碼 Z1賦值:字符串相加 Z2賦值:字符串相加 Z3賦值:字符串相加 當滿足條件是否最后一個周期時,在橫軸0.01縱軸0.01位置書寫文字,畫黃色 當滿足條件收陽線時,在橫軸0.01縱軸0.9位置書寫文字,畫紅色 當滿足條件收陽線時,在橫軸1縱軸1位置書寫文字,畫紅色

?

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

源碼：

?

趨勢:EMA(EMA(C,4),4),COLORYELLOW;
月K:="KDJ.K#MONTH";
月D:="KDJ.D#MONTH";
周K:="KDJ.K#WEEK";
周D:="KDJ.D#WEEK";
日K:="KD.K";
日D:="KD.D";
日金叉:=IF(CROSS(日K,日D),15,0);
周金叉:=IF(CROSS(周K,周D),25,0);
月金叉:=IF(CROSS(月K,月D),35,0);
日周月:=IF(日金叉=15 AND 周金叉=25 AND 月金叉=35,1,0);
日周月賺:=日周月=1;
日周:=IF(日金叉=15 AND 周金叉=25,2,0);
日周賺:=日周=2;
周月:=IF(周金叉=25 AND 月金叉=35,3,0);
日月:=IF(日金叉=15 AND 月金叉=35,4,0);
日月賺:=日月=4;
周月賺:=周月=3;
DRAWTEXT(日周月賺,趨勢*0.96,'↖LSP大牛'),COLORRED;
DRAWTEXT(周月賺,趨勢*0.97,'↖LSP金牛'),COLORFF00FF;
DRAWTEXT(日月賺,趨勢*0.98,'↖LSP牛牛'),COLORYELLOW;
DIF:=EMA(DCLOSE,12)-EMA(DCLOSE,26);
DEA:=EMA(DIF,9);
AAA:=(DIF-DEA)*2*60;
啟動:=CROSS(AAA-REF(AAA,1),15),COLORRED,LINETHICK2;
DRAWTEXT(啟動,L*0.97,'↖金牛啟動'),COLORYELLOW,LINETHICK2;
AA:=(MA(CLOSE,3)+MA(CLOSE,6)+MA(CLOSE,12)+MA(CLOSE,24))/4;
BB:=EMA(AA,2);
TP:=(CROSS(AA,BB) OR CROSS(C,AA)) AND C>=EMA(C,55);
CC:=EMA(CLOSE,12)-EMA(CLOSE,26);
DD:=EMA(CC,9);
主升啟動:=TP AND CROSS(CC,DD) AND (DD<=-0.07)*CC;
DRAWICON(主升啟動,L*0.996,1);
DRAWTEXT(主升啟動,L,'↖LSP牛');
VAR1:=(C+H+O+L)/4;
MA1:=MA(VAR1,3);
MAA5:MA(C,5),COLORRED,LINETHICK1;
A3:=(C-LLV(L,9))/(HHV(H,9)-LLV(L,9))*100;
A4:=SMA(A3,3,1);
A5:=SMA(A4,3,1);
A6:=3*A4-2*A5;
A7:=C-REF(C,1);
A8:=100*EMA(EMA(A7,6),6)/EMA(EMA(ABS(A7),6),6);
AAA2:=SUM(IF( CLOSE>REF(CLOSE,1),VOL*C,0),0);
AAA3:=SUM(IF( CLOSE<REF(CLOSE,1),VOL*C,0),0);
AAA4:=SUM(IF( CLOSE=REF(CLOSE,1),VOL*C,0),0);
BB1:=0;
B1萬元:=DVOL*DCLOSE/100;
B1差:=B1萬元-REF(B1萬元,1);
B2萬元:=DVOL*DCLOSE/100;
B2比:=B2萬元/REF(B2萬元,1);
凈流入萬元:=(AAA2-AAA3-0.5*AAA4);
PM:=MA(凈流入萬元,1);
PMA:=PM/REF(PM,1)>1;
PMB:=REF(PMA,1)<1 AND PMA;
密碼:(EMA(MA(B1萬元,2),2))/100000,COLORYELLOW,NODRAW;
二日比:=密碼/REF(密碼,1);
Z1:=STRCAT(HYBLOCK,' ');
Z2:=STRCAT(Z1,DYBLOCK);
Z3:=STRCAT(Z2,' ');
DRAWTEXT_FIX(ISLASTBAR,0.01,0.01,0,STRCAT(Z3,GNBLOCK)),COLORYELLOW;DRAWTEXT_FIX(C>O,0.01,0.9,0,' m.kzuj.com.cn '),COLORRED;
DRAWTEXT_FIX(C>O,1,1,0,'程序化交易模型'),COLORRED;

?

?

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

?