大智慧新一代、分析家、飞狐、和讯股道 等股票公式加密方法

（注：正式加密方法与该演示加密方法有所不同）

张裕飞      http://www.Jmi8.com  http://www.Zlocksoft.com

一、    简单例子

假设您原来公式为：

A1:= (2*C+H+L)/4;

A2:= LLV(L,34);

A3:= HHV(H,34);

80,pointdot,linethick3,coloryellow;

50,pointdot,linethick3,colorred;

20,pointdot,linethick3;

安全买入:EMA((A1-A2)/(A3-A2)*100,13),COLORRED;

安全卖出:EMA(0.667*REF(安全买入,1)+0.333*安全买入,2),COLORgreen;

STICKLINE(安全买入-安全卖出>0,安全买入,安全卖出,8,0),COLORRED;

STICKLINE(安全买入-安全卖出<0,安全买入,安全卖出,8,0),COLORgreen;

则加密后公式为：（红色为应增加部分；水红色和蓝色可增加，可不要；蓝色部分在不同股票中可能不同）

RETNUM:="FHFXJDZH@DZHFXJFH"(1);

TAISHAN:=INTPART(MOD(RETNUM,
10))-5;

Nian:=2000+INTPART(RETNUM/1000);

Yue:=INTPART((MOD(RETNUM, 1000))/10);

Ri:=INTPART(FRACPART(RETNUM)*100+0.4);

Lsoft:=INTPART(FRACPART(RETNUM*100)*10+0.4);

TiShi:= ifs(Lsoft<2, '公式可试用到: ', ifs(Lsoft<3, '公式可租用到: ', '当前日期:
'));

QiXian:=TiShi+NUMTOSTRN(Nian,0)+'年'+NUMTOSTRN(Yue,0)+'月'+NUMTOSTRN(Ri,0)+'日';

DRAWTEXTABS(0,
0, QiXian);

A1:= if(TAISHAN, 0, (2*C+H+L)/4);

A2:=
if(TAISHAN, 0, LLV(L,34));

A3:=
if(TAISHAN, 0, HHV(H,34));

80,pointdot,linethick3,coloryellow;

50,pointdot,linethick3,colorred;

20,pointdot,linethick3;

安全买入:if(TAISHAN, 0, EMA((A1-A2)/(A3-A2)*100,13)),COLORRED;

安全卖出:if(TAISHAN, 0, EMA(0.667*REF(安全买入,1)+0.333*安全买入,2)),COLORgreen;

STICKLINE(not(TAISHAN) and 安全买入-安全卖出>0,安全买入,安全卖出,8,0),COLORRED;

STICKLINE(not(TAISHAN) and 安全买入-安全卖出<0,安全买入,安全卖出,8,0),COLORgreen;

二、必填加密语句：

1、 下两行一定要添加到您的公式中的前面。

RETNUM:="FHFXJDZH@DZHFXJFH"(1);

TAISHAN:=INTPART(MOD(RETNUM, 10))-5;

2、 在公式中的赋值语句：A:=XXX; 应修改为
A:= if(TAISHAN, 0, XXX);如：（操作方法见后面图567）

年:if(TAISHAN, 0, MA(CLOSE,26)),color00ff00;

Var5:=if(TAISHAN, 0,EMA(C,30));

3、
在逻辑判断处，可加入：not(TAISHAN) and  ，如：（操作方法见后面图1234）

DRAWICON(not(TAISHAN) and  cp=1,l*0.95,4),ALIGN1;

DRAWTEXT(not(TAISHAN) and  CROSS(84,VarE),HIGH,'☆减磅'),COLORGREEN;

三、另可选加密语句：

1、在分析家 或
大智慧 中，可以在 TAISHAN:=INTPART(MOD(RETNUM, 10))-5; 后面、公式前面加上一句：

IF not(TAISHAN) THEN BEGIN

然后写您的公式，

在您公式最后，要加上下面这一行：

END;

但注意：在大智慧中加入上述语句，有时会影响指标图！！！建议在大智慧中不加！

2、在 分析家 中，可以在每句语句前都可加：if not(TAISHAN) then ，如：

if not(TAISHAN) then 80,pointdot,linethick3,coloryellow;

if not(TAISHAN) then DRAWTEXTREL(10,230,var100),color00ffff;

if not(TAISHAN) then 市场成本:DMA(AMOUNT/V/100,V/CAPITAL),COLORRED;

在其它股票中加入该句会造成错误！

四、限制日期的显示：

1、如果您想显示股票公式可使用的期限，可添加下列代码：

Nian:=2000+INTPART(RETNUM/1000);

Yue:=INTPART((MOD(RETNUM, 1000))/10);

Ri:=INTPART(FRACPART(RETNUM)*100+0.4);

Lsoft:=INTPART(FRACPART(RETNUM*100)*10+0.4);

上面三行，分别得到限制使用日期的：年、月、日。

最后一行的值代表软件在试用期内、或在租用期内、或无日期限制。

2、若要显示上述日期，在不同股票公式中，加入的代码可能不同！！

如在大智慧中：

TiShi:= ifs(Lsoft<2, '公式可试用到: ', ifs(Lsoft<3, '公式可租用到: ', '当前日期:
'));

QiXian:=TiShi+NUMTOSTRN(Nian,0)+'年'+NUMTOSTRN(Yue,0)+'月'+NUMTOSTRN(Ri,0)+'日';

DRAWTEXTABS(0,
0, QiXian);

在分析家中：

TiShi:=  STRMID('公式可试用到：公式可租用到：系统当前日期：',(Lsoft-1)*14,14);

QiXian:=TiShi+NUMTOSTRN(Nian,0)+'年'+NUMTOSTRN(Yue,0)+'月'+NUMTOSTRN(Ri,0)+'日';

DRAWTEXTABS(0,
0, QiXian);

在飞  狐中：

QiXian:='账户使用期限: '+NUMTOSTR(Nian,0)+'年'+NUMTOSTR(Yue,0)+'月'+NUMTOSTR(Ri,0)+'日';

DRAWTEXTEX(1,0,0,0,QiXian);

五、代码快速修改方法：

1、 运行 Microsoft Word 文档，把您的公式指标拷贝到文档中。

2、 把“DRAWTEXT(”全部替换为 “DRAWTEXT(not(TAISHAN) and ”，注意
and 后面有一个空格。

操作方法如下：

l  点击 Word 的“编辑”－>“替换”（如图1）

图1：选择Word替换菜单

l
在“查找内容”中填写“DRAWTEXT(”，在“替换为”中填写“DRAWTEXT(not(TAISHAN) and ”，注意
and 后面有一个空格。然后按“全部替换“键（如图2）。

图2：替换“DRAWTEXT(”为
“DRAWTEXT(not(TAISHAN)
and ”

3、 把“DRAWICON (”全部替换为 “DRAWICON
(not(TAISHAN) and ”，注意 and 后面有一个空格。

操作方法如下：

l  在“查找内容”中填写“DRAWICON (”，在“替换为”中填写“DRAWICON
(not(TAISHAN) and ”，注意 and 后面有一个空格。然后按“全部替换“键（如图3）。

图3：替换“DRAWICON
(”为 “DRAWICON (not(TAISHAN) and ”

4、 把“STICKLINE (”全部替换为 “STICKLINE
(not(TAISHAN) and ”，注意 and 后面有一个空格。

操作方法如下：

l
在“查找内容”中填写“STICKLINE (”，在“替换为”中填写“STICKLINE
(not(TAISHAN) and ”，注意 and 后面有一个空格。然后按“全部替换“键（如图4）。

图4：替换“STICKLINE
(”为 “STICKLINE (not(TAISHAN) and ”

5、 把“:=” 全部替换为
“:= if(TAISHAN, 0,”。

操作方法如下：

l
在“查找内容”中填写“:=”，在“替换为”中填写“:= if(TAISHAN, 0,”。然后按“全部替换“键（如图5）。

图5：替换“:=”为 “:= if(TAISHAN, 0,”

6、 上步操作中，因为加的“:= if(TAISHAN, 0,”中一个左括号“（”号，所以那个语句的后面，必须价格右括号“）”。

这个因为不能“全部替换”，所以操作麻烦些。操作方法如下：

方法一：在“查找内容”中填写“;”，在“替换为”中填写“);”。然后按“查找下一处”，然后观察找到的这一行是否包含“:=
if(TAISHAN, 0,”，如果包含，就选“替换”；如果不是，就继续选“查找下一处”。（如图6）。

注意：一定不要选“全部替换”键。个别代码的右括号“）”不一定放在最后，如：“年:if(TAISHAN, 0, MA(CLOSE,26)),color00ff00;”要放到
color00ff00 前的逗号前。

图6：替换“;”为 “);”

方法二：只查找包含
“:= if(TAISHAN, 0,”的代码，找到这一行后，直接在后面加右括号“)”即可。（如图7）。

图7：查找包含
“:= if(TAISHAN, 0,”的代码

7、 所有替换完毕后，再把下面应该加的语句加到上述代码最前面：

RETNUM:="FHFXJDZH@DZHFXJFH"(1);

TAISHAN:=INTPART(MOD(RETNUM, 10))-5;

Nian:=2000+INTPART(RETNUM/1000);

Yue:=INTPART((MOD(RETNUM,
1000))/10);

Ri:=INTPART(FRACPART(RETNUM)*100+0.4);

Lsoft:=INTPART(FRACPART(RETNUM*100)*10+0.4);

TiShi:= ifs(Lsoft<2,
'公式可试用到: ', ifs(Lsoft<3, '公式可租用到: ', '当前日期:
'));

QiXian:=TiShi+NUMTOSTRN(Nian,0)+'年'+NUMTOSTRN(Yue,0)+'月'+NUMTOSTRN(Ri,0)+'日';

DRAWTEXTABS(0, 0, QiXian);

8、 从
Word 中选择所有修改后的代码，“复制”、“粘贴”到大智慧或其它股票系统的公式中。

张裕飞

http://www.Jmi8.com  http://www.Zlocksoft.com

E-mail:
[email-masked] [email-masked]
[email-masked]

电话：0538-6222485  13001773563（手机）

QQ：690537661