发新话题
打印

[发布] 大智慧、分析家、飞狐、倚天2006股票公式加密方法

大智慧、分析家、飞狐、倚天2006股票公式加密方法

大智慧、分析家、飞狐、倚天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(手机)

TOP

发新话题