大智慧、分析家、飞狐、倚天2006股票公式加密方法
(注:正式版加密方法与该演示版加密方法稍微不同)
一、
简单例子
假设您原来公式为:
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);
IF not(TAISHAN) THEN BEGIN
{在分析家 中,可以加入该句}
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;
END;
{在分析家 中,可以加入该句}
二、必填加密语句:
1、
下两行一定要添加到您的公式中的前面。
RETNUM:="FHFXJDZH@DZHFXJFH"(1);
TAISHAN:=INTPART(MOD(RETNUM, 10))-5;
2、
在公式中的赋值语句:A:=XXX; 应修改为 A:= if(TAISHAN,
0,
XXX);如:
年:if(TAISHAN, 0, MA(CLOSE,26)),color00ff00;
Var5:=if(TAISHAN, 0,EMA(C,30));
3、
在逻辑判断处,可加入:not(TAISHAN) and ,如:
DRAWICON(not(TAISHAN) and cp=1,l*0.95,4),ALIGN1;
STICKLINE(not(TAISHAN) and
安全买入-安全卖出>0,安全买入,安全卖出,8,0),COLORRED;
STICKLINE(not(TAISHAN) and DISPSTATUS=2 and dp=1 and c>=今日阻力,今日阻力,今日阻力,30,0),Color0000FF;
三、另可选加密语句:
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 市场成本
MA(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);
具体例子,参见 $gongsi 下各目录下面的“翔宇加密.FNC”等。
下载演示版。
泰山翔宇电脑工作室
山东泰山医学院 271000
张裕飞
http://www.Zlocksoft.com
e-mail: Zlocksoft@Zlocksoft.com zlocksoft@163.com
电话:0538-6222485
5389485(小灵通)
13001773563(手机)