当前位置：分析家公式网 → 股票公式 → 通达信公式 → 一键转帖：易得程序化－－－－六脉神剑（通达信公式 副图 源码 测试图）
软件名称：[B]易得程序化－－－－六脉神剑（通达信公式 副图 源码 测试图）[/B]
软件类型：国产软件
运行环境：Win10/Win9X/Win8/Win2000/WinXP/Win2003/Win7/
软件语言：简体中文
授权方式：分享版
软件大小：3.00 KB
官方主页：Home Page
更新时间：2023-12-20 00:15:25
软件简介:
易得程序化----六脉神剑
DIFF:=EMA(CLOSE,12)-EMA(CLOSE,26);
DEA:=EMA(DIFF,5);
DRAWICON(DIFF>DEA,1,7);
DRAWICON(DIFF< DEA,1,8);
B1:=DIFF>DEA;
MACD金叉:IF(B1,1,0),COLORRED;
RSV1:=(CLOSE-LLV(LOW,8))/(HHV(HIGH,8)-LLV(LOW,8))*100;
K:=SMA(RSV1,3,1);
D:=SMA(K,3,1);
DRAWICON(K>D,2,7);
DRAWICON(K< D,2,8);
{DRAWTEXT(ISLASTBAR=1,2,'.KDJ'),COLORFFFFFF;}
B2:=K>D;
KDJ金叉:IF(B2,2,0),COLORRED;
LC:=REF(CLOSE,1);
RSI1:=(SMA(MAX(CLOSE-LC,0),5,1))/(SMA(ABS(CLOSE-LC),5,1))*100;
RSI2:=(SMA(MAX(CLOSE-LC,0),13,1))/(SMA(ABS(CLOSE-LC),13,1))*100;
DRAWICON(RSI1>RSI2,3,7);
DRAWICON(RSI1< RSI2,3,8);
{//DRAWTEXT(ISLASTBAR=1,3,'.RSI'),COLORFFFFFF;}
B3:=RSI1>RSI2;
RSI金叉:IF(B3,3,0),COLORRED;
RSV:=-1*(HHV(HIGH,13)-CLOSE)/(HHV(HIGH,13)-LLV(LOW,13))*100;
LWR1:=SMA(RSV,3,1);
LWR2:=SMA(LWR1,3,1);
DRAWICON(LWR1>LWR2,4,7);
DRAWICON(LWR1< LWR2,4,8);
{//DRAWTEXT(ISLASTBAR=1,4,'.LWR'),COLORFFFFFF;}
B4:=LWR1>LWR2;
LWR金叉:IF(B4,4,0),COLORRED;
BBI:=(MA(CLOSE,3)+MA(CLOSE,6)+MA(CLOSE,12)+MA(CLOSE,24))/4;
DRAWICON(CLOSE>BBI,5,7);
DRAWICON(CLOSE< BBI,5,8);
{DRAWTEXT(ISLASTBAR=1,5,'.BBI'),COLORFFFFFF;}
B5:=CLOSE>BBI;
BBI金叉:IF(B5,5,0),COLORRED;
MTM:=CLOSE-REF(CLOSE,1);
MMS:=100*EMA(EMA(MTM,5),3)/EMA(EMA(ABS(MTM),5),3);
MMM:=100*EMA(EMA(MTM,13),8)/EMA(EMA(ABS(MTM),13),8);
DRAWICON(MMS>MMM,6,7);
DRAWICON(MMS< MMM,6,8);
{DRAWTEXT(ISLASTBAR=1,6,'.MTM'),COLORFFFFFF;}
B6:=MMS>MMM;
MTM金叉:IF(B6,6,0),COLORRED;
涨买入:IF((B1 AND B2 AND B3 AND B4 AND B5 AND B6) AND REF(B1 AND B2 AND B3 AND B4 AND B5 AND B6,1)=0,7,0),COLORYELLOW,LINETHICK2;
上涨:IF(B1 AND B2 AND B3 AND B4 AND B5 AND B6,7,0),COLORYELLOW,LINETHICK2;
晴天:BARSLASTCOUNT(B1 AND B2 AND B3 AND B4 AND B5 AND B6),LINETHICK0;
雨天:BARSLASTCOUNT(MACD金叉+KDJ金叉+RSI金叉+LWR金叉+BBI金叉+MTM金叉>0 AND MACD金叉+KDJ金叉+RSI金叉+LWR金叉+BBI金叉+MTM金叉< 21 ),LINETHICK0;
雪天:BARSLASTCOUNT(MACD金叉+KDJ金叉+RSI金叉+LWR金叉+BBI金叉+MTM金叉=0),LINETHICK0;
红箭个数:(B1 + B2 + B3 + B4 + B5 + B6),NODRAW,COLORRED;
ZT:=C=IF(CODELIKE('30'),ZTPRICE(REF(CLOSE,1),0.2),ZTPRICE(REF(CLOSE,1),0.1));
DRAWTEXT(FILTER(REF(ZT,5),30),8,'免费全推，易得六脉神剑 分析家公式网http://www.70822.com'),COLOR666666;
[url=http://www.70822.com/soft/sort013/sort05/down-170336.html]易得程序化－－－－六脉神剑（通达信公式 副图 源码 测试图）[/url]