本帖转自:
http://u1046.s6.tt8.cn/ns_detail ... ;cpath=&catid=0
一、
简单例子
假设您原来公式为：
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);
