通达信中华航母一号和二号,副图,源码
2012年9月23日下午16时许,中国第一艘航母平台16号舰在大连举行交船仪式,16号舰与相邻停泊的88号舰全部挂满旗。随后,16号舰舰桥桅杆升起五星红旗,舰首升起八一军旗,舰尾升起海军旗,17点20分,交船仪式完成,为祝贺交中国第一艘航母平台16号交船仪式顺利完成特编制此两指标。(注:此两指标因引用了周、月指标参数,当周末月末还未过去的日期内选股可能发生信号漂移现象)
此两中华航母号指标需先安装1.{AMACD别删引用指标},再安装另两只指标,用法一看就明白。
1.{AMACD副图,别删引用指标}
RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;
K:SMA(RSV,3,1);
K势区:IF((EVERY(K>=REF(K,1),1)),10,0)COLOR0000FF,LINETHICK2;
K买:IF((CROSS(K势区,0.01) ),1,0),COLOR00FFFF,LINETHICK1;
DIF:EMA(CLOSE,12)-EMA(CLOSE,26);
DIF势区:IF((EVERY(DIF>=REF(DIF,1),1)),10,0)COLOR0000FF,LINETHICK2;
DIF买:IF((CROSS(DIF势区,0.01) ),1,0),COLOR00FFFF,LINETHICK1;
LC:=REF(CLOSE,1);
RSI1:SMA(MAX(CLOSE-LC,0),9,1)/SMA(ABS(CLOSE-LC),9,1)*100;
RSI势区:IF((EVERY(RSI1>=REF(RSI1,1),1)),10,0)COLOR0000FF,LINETHICK2;
RSI买:IF((CROSS(RSI势区,0.01) ),1,0),COLOR00FFFF,LINETHICK1;
2.{中华航母1号}
{KDJ日金}
日K:="AMACD.K势区#DAY";
DRAWICON(日K=10,1,1);
DRAWICON(日K=0,1,2);
{MACD日金}
日DIF:="AMACD.DIF势区#DAY";
DRAWICON(日DIF=10,1.1,1);
DRAWICON(日DIF=0,1.1,2);
{RSI日}
日RSI:="AMACD.RSI势区#DAY";
DRAWICON(日RSI=10,1.2,1);
DRAWICON(日RSI=0,1.2,2);
周K:="AMACD.K势区#WEEK";
DRAWICON(周K=10,1.3,1);
DRAWICON(周K=0,1.3,2);
{MACD周金}
周DIF:="AMACD.DIF势区#WEEK";
DRAWICON(周DIF=10,1.4,1);
DRAWICON(周DIF=0,1.4,2);
{RSI周}
周RSI:="AMACD.RSI势区#WEEK";
DRAWICON(周RSI=10,1.5,1);
DRAWICON(周RSI=0,1.5,2);
{DRAWTEXT(ISLASTBAR=1,1.5,'周R'),COLORFFFFFF;}
{KDJ月金}
月K:="AMACD.K势区#MONTH";
DRAWICON(月K=10,1.6,1);
DRAWICON(月K=0,1.6,2);
{MACD月金}
月DIF:="AMACD.DIF势区#MONTH";
DRAWICON(月DIF=10,1.7,1);
DRAWICON(月DIF=0,1.7,2);
{DRAWTEXT(ISLASTBAR=1,1.7,'月M'),COLORFFFFFF;}
{RSI月}
月RSI:="AMACD.RSI势区#MONTH";
DRAWICON(月RSI=10,1.8,1);
DRAWICON(月RSI=0,1.8,2);
2,COLOR000000;
选股:=IF(月RSI=10 AND 月DIF=10 AND 月K=10 AND 日RSI=10 AND 日DIF=10 AND 日K=10 AND 周RSI=10 AND 周DIF=10 AND 周K=10,1,0);
STICKLINE(选股=1 ,1,1.88,1.5,1 ),COLORRED;
{选股:=IF(月RSI=1 AND 月DIF=1 AND 月K=1 AND 日RSI=1 AND 日DIF=1 AND 日K=1 AND 周RSI=1 AND 周DIF=1 AND 周K=1,1,0);
STICKLINE(选股=1 ,1,1.88,1.5,1 ),COLORRED; }
选112:=IF((日K=10 OR 日DIF=10 OR 日RSI=10)AND (周K=10 OR 周DIF=10 OR 周RSI=10)AND(月K=10 OR 月DIF=10 OR 月RSI=10),1,0);
STICKLINE(选112=1 ,1,1.88,1,1 ),COLOR05FFFF;
XG:IF(选112=1 AND REF(选112,1)=0 AND REF(选112,2)=0,0.8,0)COLORRED;
A7:=C-REF(C,1);
A8:=100*EMA(EMA(A7,6),6)/EMA(EMA(ABS(A7),6),6);
买:=LLV(A8,2)=LLV(A8,7) AND COUNT(A8<0,2) AND CROSS(A8,MA(A8,2));
日AK:="AMACD.K买#DAY";
{MACD日金}
日ADIF:="AMACD.DIF买#DAY";
{RSI日}
日ARSI:="AMACD.RSI买#DAY";
周AK:="AMACD.K买#WEEK";
{MACD周金}
周ADIF:="AMACD.DIF买#WEEK";
{RSI周}
周ARSI:="AMACD.RSI买#WEEK";
{KDJ月金}
月AK:="AMACD.K买#MONTH";
{MACD月金}
月ADIF:="AMACD.DIF买#MONTH";
{RSI月}
月ARSI:="AMACD.RSI买#MONTH";
{选选股:=IF(月ARSI=1 AND 月ADIF=1 AND 月AK=1 AND 日ARSI=1 AND 日ADIF=1 AND 日AK=1 AND 周ARSI=1 AND 周ADIF=1 AND 周AK=1,1,0);}
选123:=IF((日AK=1 OR 日ADIF=1 OR 日ARSI=1)AND (周AK=1 OR 周ADIF=1 OR 周ARSI=1)AND(月AK=1 OR 月ADIF=1 OR 月ARSI=1),1,0);
低买:IF((CROSS(XG,0.01){AND 买} AND 选123=1),1,0),COLOR00FFFF,LINETHICK3;
3.{中华航母2号}
{KDJ日金}
日K:="KDJ.K#DAY"(9,3,3);2,COLOR000000;
日D:="KDJ.D#DAY"(9,3,3);
DRAWICON(日K>日D,1,1);
DRAWICON(日K<日D,1,2);
{DRAWTEXT(ISLASTBAR=1,1,'日K'),COLORFFFFFF;}
{MACD日金}
日DIF:="MACD.DIF#DAY"(12,26,9);
日DEA:="MACD.DEA#DAY"(12,26,9);
DRAWICON(日DIF>日DEA,1.1,1);
DRAWICON(日DIF<日DEA,1.1,2);
{DRAWTEXT(ISLASTBAR=1,1.1,'日M'),COLORFFFFFF;}
{RSI日}
日RSI:="RSI.RSI1#DAY"(9);
DRAWICON(日RSI>50,1.2,1);
DRAWICON(日RSI<50,1.2,2);
{DRAWTEXT(ISLASTBAR=1,1.2,'日R'),COLORFFFFFF;}
{KDJ周金}
周K:="KDJ.K#WEEK"(9,3,3);
周D:="KDJ.D#WEEK"(9,3,3);
DRAWICON(周K>周D,1.3,1);
DRAWICON(周K<周D,1.3,2);
{DRAWTEXT(ISLASTBAR=1,1.3,'周K'),COLORFFFFFF;}
{MACD周金}
周DIF:="MACD.DIF#WEEK"(12,26,9);
周DEA:="MACD.DEA#WEEK"(12,26,9);
DRAWICON(周DIF>周DEA,1.4,1);
DRAWICON(周DIF<周DEA,1.4,2);
{DRAWTEXT(ISLASTBAR=1,1.4,'周M'),COLORFFFFFF;}
{RSI周}
周RSI:="RSI.RSI1#WEEK"(9);
DRAWICON(周RSI>50,1.5,1);
DRAWICON(周RSI<50,1.5,2);
{DRAWTEXT(ISLASTBAR=1,1.5,'周R'),COLORFFFFFF;}
{KDJ月金}
月K:="KDJ.K#MONTH"(9,3,3);
月D:="KDJ.D#MONTH"(9,3,3);
DRAWICON(月K>月D,1.6,1);
DRAWICON(月K<月D,1.6,2);
{DRAWTEXT(ISLASTBAR=1,1.6,'月K'),COLORFFFFFF;}
{MACD月金}
月DIF:="MACD.DIF#MONTH"(12,26,9);
月DEA:="MACD.DEA#MONTH"(12,26,9);
DRAWICON(月DIF>月DEA,1.7,1);
DRAWICON(月DIF<月DEA,1.7,2);
{DRAWTEXT(ISLASTBAR=1,1.7,'月M'),COLORFFFFFF;}
{RSI月}
月RSI:="RSI.RSI1#MONTH"(9);
DRAWICON(月RSI>50,1.8,1);
DRAWICON(月RSI<50,1.8,2);
{DRAWTEXT(ISLASTBAR=1,1.8,'月R'),COLORFFFFFF;}
{前一天涨停板 若出现全部金叉以后
第二天 开盘前挂单买进 }
选股:=IF(月RSI>50 AND 月DIF>月DEA AND 月K>月D AND 日RSI>50 AND 日DIF>日DEA AND 日K>日D AND 周RSI>50 AND 周DIF>周DEA AND 周K>周D,1,0);
STICKLINE(选股=1 ,1,1.88,1.5,1 ),COLORRED;
XG:IF(选股=1,0.8,0)COLORRED;
低买:IF((CROSS(XG,0.01)),1,0),COLOR00FFFF,LINETHICK3;