泊船瓜洲 王安石好词:STKINDI示例代码

一、STKINDI示例代码 函数注释如下：
引用任意证券任意周期的任意指标输出
用法 :
STKINDI(STKLABEL,INDINAME,INDITYPE,PERIOD)
INDITYPE为指标类型，有效值范围为(0-2)，依次表示技术指标、条件选股、交易系统公式;
PERIOD为周期类型，有效值范围为(-1-11)，依次表示:
当前周期、分笔成交、1分钟、5分钟、15分钟、30分钟、60分钟、日、周、月、年、多日、多分钟
例如：STKINDI('1A0001','MA.MA1',0,DATAPERIOD);例1：引用大盘的涨跌家数。
①被引用公式，设被引用的公式名称为“涨跌家数”，其公式代码如下：
A:ADVANCE;
D:DECLINE;②引用大盘的涨跌家数，示例代码如下：
fStkName:=if(STRCMP(STKMARKET, 'SH'),'399301','1A0001');
fAdvance:=STKINDI(fStkName,'涨跌家数.A',0,6);
fDecline:=STKINDI(fStkName,'涨跌家数.D',0,6);说明：大盘函数advance、decline只能被大盘所使用，不能在个股中直接使用，这段代码，示范了如何利用STKINDI函数达到在个股中引用的目的。例2：在日k线中引用本股票5分钟的obv该怎么写？
求解：代码如下
StkIndi(StkLabel,'OBV',0,2);{注意，公式的名称应使用大写字母} 二、横向统计相关函数的用法简介：1、横向统计数据函数 ESTDATA(N)，取得横向统计日线数据(1-N)，仅在日线分析周期有效；
2、用法举例：
例：设计一个公式，统计当日A股板块涨停板的股票数。 3、方法如下：
①设计一个公式，判断个股是否涨停，代码如下，设公式名称是“涨停判断”： bl:=if(STKINBLOCK('ST板块'),1.05,1.1);{如果为ST涨停为5%，否则为10%}
ztb:abs(c-intpart(ref(c,1)*bl*100+0.5)/100)<0.0001;{如果涨停返回1，否则返回0}
{注：对新股的涨停未做判断，另外个股因历史的原因，是否被ST或PT处理无法判断，因此对历史数据的判断并不准确} ②建立横向统计数据项：鼠标点菜单“管理/横向统计管理”，在“横向统计管理”对话框中，点“新增”，找到刚才设计的公式“涨停判断”。 ⑴数据名称改为“涨停板”
⑵选择技术指标“涨停判断”，计算周期“日线”、指标线“ztb”为默认，不作修改。
⑶横向统计方法选“全部累加”。
⑷“计算时选择除权后的数据”不选即前面不打勾。
⑸点“设置范围”按钮，选择统计范围。
⑹置好范围后，点确定。至此，我们就设计了一个横向统计数据项“涨停板”，在图中序号是1，则引用时是estdata(1)。③设计一个引用“涨停板”的公式，公式代码如下，设公式的名称是zttj：
涨停板统计:estdata(1); 在K线图中，调用公式zttj，就可以看到我们所需要的结果了。 练习：如果对横向统计有兴趣的话，可以仿此，做一个跌停板统计公式。当然可以把涨停、跌停做成二合一公式。三、如何计算当日交易分钟数:T定义为1分钟周期图上，开盘后的交易分钟数，
1、代码之一 --------------------------------------------------------------------------------
T:=IF(BETWEEN(HOUR,9,11),(HOUR-9.5)*60+MINUTE,
   IF(BETWEEN(HOUR,13,15),(HOUR-9.5-1.5)*60+MINUTE,240));
--------------------------------------------------------------------------------
稍加优化：
--------------------------------------------------------------------------------T:=IF(BETWEEN(HOUR,9,11),(HOUR-9.5)*60+MINUTE,
   IF(BETWEEN(HOUR,13,15),(HOUR-11)*60+MINUTE,240));
--------------------------------------------------------------------------------代码解释：
如果小时数介于9和11间，返回值(HOUR-9.5)*60+MINUTE
　　否则
　　　　如果小时数介于13和15之间，返回值(HOUR-9.5-1.5)*60+MINUTE
　　　　　　否则返回值2402、观察所有的股票一天的1分钟周期图，可以发现，都是起始于9:31，结束于15:00，并且中午休市不显示，因此代码一可以简化为如下公式代码二，请自行解释代码。
公式代码二： --------------------------------------------------------------------------------T:=IF(HOUR<=11,(HOUR-9.5)*60+MINUTE,
   IF(HOUR>=11,(HOUR-11)*60+MINUTE,240));
--------------------------------------------------------------------------------3、公式代码二，在1分钟周期中，其实返回240的情况可以合并如下（为什么？）
公式代码三：
T:=IF(HOUR<=11,(HOUR-9.5)*60+MINUTE,(HOUR-11)*60+MINUTE);整理后得到，公式代码四：
T:=IF(HOUR<12,HOUR*60+MINUTE-570,HOUR*60+MINUTE-660);4、公式代码四，可以改写如下的公式代码五：
T1:=IF(HOUR<12,570,660);
T:=HOUR*60+MINUTE-T1;　　呵呵，570就是9.5小时对应的分钟数，660是11小时对应的分钟数。其实一开始我们就可以写出这个公式了。我在飞狐公式入门五的答贴中，提示了“用时间类的函数，例如现在是10：30的话，怎么算交易时间呢？如果‘现在’是14：00，又怎么算交易时间？”公式代码五，是南客喜欢的表达方式，比公式代码四要多写一行，但更灵活、易于变化。　　好了，问题解决了，也该给喜欢思考的弟兄一点问题。
　　问题1：在5--60分钟周期图上，设计一个计算当日交易分钟数的公式，进一步设计出量比公式。
　　问题2：国内A、B股等的交易分2个时段，即上午和下午各交易2小时，在中午休市1.5小时，如果设想一个股市，一天之中，交易3个或更多个时段，当日交易分钟数的公式，又该怎么写？为了方便写公式，假设为3个时段：上午为9:30--11:30，下午为13:00--15:00，晚上为19:00--21:00。　　提示：公式改写为适用于5--60分钟周期，还需考虑当日是否停牌。为了减少难度，先不考虑停牌的情况，等公式调试成功后，再考虑如何加入判断是否停牌的条件。四、相关系数函数CORR简单介绍及示例代码: 相关系数函数CORR，可以比较两只个股或个股与大盘的指标或价格在N周期内走势的相似程度，函数返回的数值越大，相似程序越高。下面是最后N周期内，个股与大盘收盘价走势相似程度的示例代码：ts0:=barssince(c);
ts1:=barslast(barssince(backset(islastbar,N+1))=0);
ts:=if(ts0bl:=ref(IndexC/C,Ts);{确定基准日压缩比率}
fc:c*bl/bl;
fIndexC:IndexC/bl;{按比率压缩大盘指数，以便跟个股收盘比较}
相似程度:CORR(fc,fIndexC,N),linethick0;简单的应用方法：
1、指标作为副图指标，可通过对“相似程度”排序，找出近期走势跟大盘相似程度较高的个股。
2、也可以把代码中的IndexC换成其它作为样本的个股，找出同类走势的个股。
转贴《教育统计学》中，对相关系数的描述：相关系数在教育研究中，常涉及到两个事物(变量)的相互关系问题，例如，学习成绩与非智力因素的关系，数学成绩与物理成绩的关系，男女生学习成绩的关系，等等。其关系表现为以下三种变化；第一，正相关：一个变量增加或减少时，另一个变量也相应增加或减少；第二，负相关：一个变量增加或减少时，另一个变量却减少或增加；第三，无相关：说明两个变量是独立的，即由一个变量值，无法预测另一个变量值。统计学中，就用“相关系数"来从数量上描述两个变量之间的相关程度，用符号“r"来表示。相关系数取值范围限于：－１≤r≤＋１相关系数表示的意义
相关系数（r） 0.00   0.00－±0.3   ±0.30－±0.50 ±0.50－±0.80  ±0.80－±1.00
相关程度       无相关  微正负相关     实正负相关        显著正负相关       高度正负相关 五、不同股票(证券)引用不同大盘指数的参考代码: 对于indexc替换成如下的index_c：
--------------------------------------------------------------------------------index_sh_c:=
if(STKTYPE=1,"1A0002$close",
  if(STKTYPE=2,"1A0003$close",
    if(STKTYPE=3,"1B0008$close",indexc)));{对A股、B股及基金引用不同指数}index_sz_c:=
if(STKTYPE=1,"399002$close",
  if(STKTYPE=2,"399003$close",
    if(STKTYPE=3,"399305$close",indexc)));index_c:if(STRCMP(STKMARKET, 'SH')=0,index_sh_c,index_sz_c);-------------------------------------------------------------------------------- 以上代码仅考虑了A股、B股、基金，其它未作区分，可根据自己的需要进行修改。
对于indexo替换成如下的index_o：
--------------------------------------------------------------------------------index_sh_o:=
if(STKTYPE=1,"1A0002$open",
  if(STKTYPE=2,"1A0003$open",
    if(STKTYPE=3,"1B0008$open",indexo)));index_sz_o:=
if(STKTYPE=1,"399002$open",
  if(STKTYPE=2,"399003$open",
    if(STKTYPE=3,"399305$open",indexo)));index_o:if(STRCMP(STKMARKET, 'SH')=0,index_sh_o,index_sz_o);--------------------------------------------------------------------------------
对于indexh替换成如下的index_h：
--------------------------------------------------------------------------------
index_sh_h:=
if(STKTYPE=1,"1A0002$high",
  if(STKTYPE=2,"1A0003$high",
    if(STKTYPE=3,"1B0008$high",indexh)));index_sz_h:=
if(STKTYPE=1,"399002$high",
  if(STKTYPE=2,"399003$high",
    if(STKTYPE=3,"399305$high",indexh)));index_h:if(STRCMP(STKMARKET, 'SH')=0,index_sh_h,index_sz_h);--------------------------------------------------------------------------------对于indexl替换成如下的index_l： --------------------------------------------------------------------------------
index_sh_l:=
if(STKTYPE=1,"1A0002$low",
  if(STKTYPE=2,"1A0003$low",
    if(STKTYPE=3,"1B0008$low",indexl)));index_sz_l:=
if(STKTYPE=1,"399002$low",
  if(STKTYPE=2,"399003$low",
    if(STKTYPE=3,"399305$low",indexl)));index_l:if(STRCMP(STKMARKET, 'SH')=0,index_sh_l,index_sz_l);--------------------------------------------------------------------------------对于indexa替换成如下的index_A： --------------------------------------------------------------------------------
index_sh_A:=
if(STKTYPE=1,"1A0002$Amount",
  if(STKTYPE=2,"1A0003$Amount",
    if(STKTYPE=3,"1B0008$Amount",indexA)));index_sz_A:=
if(STKTYPE=1,"399002$Amount",
  if(STKTYPE=2,"399003$Amount",
    if(STKTYPE=3,"399305$Amount",indexA)));index_A:if(STRCMP(STKMARKET, 'SH')=0,index_sh_A,index_sz_A);--------------------------------------------------------------------------------对于indexv替换成如下的index_V： --------------------------------------------------------------------------------
index_sh_V:=
if(STKTYPE=1,"1A0002$Vol",
  if(STKTYPE=2,"1A0003$Vol",
    if(STKTYPE=3,"1B0008$Vol",indexV)));index_sz_V:=
if(STKTYPE=1,"399002$Vol",
  if(STKTYPE=2,"399003$Vol",
    if(STKTYPE=3,"399305$Vol",indexV)));index_V:if(STRCMP(STKMARKET, 'SH')=0,index_sh_V,index_sz_V);--------------------------------------------------------------------------------六、控制语句if...then...else示例
通过参数N，控制调整均线数，代码参考如下：input:p1(5,0,300),p2(10,0,300),p3(20,0,300),p4(30,0,300),n(4,1,4);{参数定义}
IF n>0 then MA1:MA(CLOSE,P1);{如果n>=1则输出ma1指标线}
IF n>1 then MA2:MA(CLOSE,P2);{如果n>=2则输出ma1指标线}
IF n>2 then MA3:MA(CLOSE,P3);{如果n>=3则输出ma1指标线}
IF n>3 then MA4:MA(CLOSE,P4);{如果n>=4则输出ma1指标线}由于目前IF cond THEN expr1 ELSE expr2　中条件cond暂时只能用常数，因此，可配合主要是参数、常数函数例2：修改成交量公式VOL，当流通盘不为零且当前周期为日以上周期时，显示换手率，代码参考如下（仿此，大家绕过指标模组，可以自行设计，“绑定”到周期、券种等的公式）VOL,VOLSTICK;MA1:MA(VOL,M1);
MA2:MA(VOL,M2);
MA3:MA(VOL,M3);
if capital>0 and DATAPERIOD>=6 then 换手率:vol/capital;当切换到60分钟及以下周期，或者切换到大盘（此时流通盘＝0），会发现“换手率”指标线、名称及数值都不显示。稍加改进，使用复合语句，可适用于任意周期：例3，修改成交量公式，流通盘不为0时，显示换手率（60分钟及以下周期，计算当日最新的换手率），代码参考如下： 
PHP代码:--------------------------------------------------------------------------------
VOL,VOLSTICK;
MA1:MA(VOL,M1);
MA2:MA(VOL,M2);
MA3:MA(VOL,M3);IF CAPITAL>0 then //如果换手率＞0,则
  IF DATATYPE>=6 then //如果周期为日及以上的较长周期,则
    b:=VOL/CAPITAL*100
  else //否则
  begin //复合语句开始，即以下3条语句，视为1条语句，end表示复合语句结束
    tj:=DAY>REF(DAY,1) or BARSSINCE(CLOSE)=0;
    ts:=BARSLAST(tj)+1;
    b:=SUM(VOL,ts)/CAPITAL*100;
  end;
换手率:b;--------------------------------------------------------------------------------
修改或创建这个公式后，大家会发现，只要流通盘＝0，则换手率指标线就不会被显示，例如切换到大盘观察。七、循环语句示例:移动平均线的N种写法 移动平均线的N种写法（V3.5.30828 以上版本支持）
PHP代码:
--------------------------------------------------------------------------------INPUT:n(5,1,300);  //参数申明
VARIABLE:k=0;      //变量申明
FOR i=0 TO n-1 DO
  k:=k+ref(close,i); //把最近 n 天的收盘价累加
MA1:k/n;           //实现MA(C,N) ///////////////////////////////////////////
INPUT:N(5,1,300);      //参数申明
VARIABLE:i=0,k=0,j=0; //变量申明
VAR1:=C;
FOR j=1 TO DATACOUNT DO
BEGIN
IF j>=n THEN
BEGIN
  WHILE i  BEGIN
   k:=k+VAR1[j-i];
   i:=i+1;
  END;
  MA2[j]:k/n;        //实现MA(C,N)
  i:=0;
  k:=0;
END;
END;///////////////////////////////////////////
INPUT:N(5,1,300);      //参数申明
VARIABLE:i=0,k=0,VAR1:=C; //变量申明
FOR j=1 TO DATACOUNT DO
BEGIN
k:=k+VAR1[j];
IF j>=n THEN
BEGIN
  IF j>n THEN
    k:=k-VAR1[j-n];
  MA3[j]:k/n;        //实现MA(C,N)
  i:=0;
END;
END;
/////////////////////////////-------------------------------------------------------------------------------- 还有很多写法还可以只计算最后1个有效数值，比如用于提高预警速度，大家练习试试//////////////////////////////////////////////////////////南客再附上一段历史流通盘的代码：
//说明：本公式，无法计算增发、职工股上市等情形，公式原型为原子兄用VBS设计的代码
var1:=splitdata(1)+splitdata(2);
cap:=c;
cap[datacount]:=1;
for i=datacount downto 2 do cap[i-1]:=cap/(1+var1/10);
capi:=cap*capital/100;
历史流通盘∥万股:capi;
drawnumber(cap>ref(cap,1) or barscount(c)=1,capi,capi,0);八、序列数据量
所属类别: 常数函数 参数数量: 0序列数据量。
用法:
DATACOUNT，返回序列数据数量
注意：该函数返回常数　　解说：以日周期为例，我们知道，个股的收盘价就是一个序列变量，每天都有一个数值，总共有很多个数值，到底有多少个数值？如果个股数据是完整的，数值的个数就是上市后总的有效交易天数（即K线的数量）。显然人工去点不现实，这里提供的函数，就是计算这个数据的。　　代码示例：K线数:datacount;②在飞狐新开发的公式系统中，序列变量可以用数组表示，比如：
fc:=close;
定义了一个序列变量fc，它等于个股所有的收盘价。请看下面代码：fc:=c;
第1天收盘价:fc[1];
最后1天收盘价:fc[datacount];图示如下　　想想看1：如何表示第1根K线的日期（通常是上市的日期），如果想将股票按上市日期先后排序，这个公式会很有用。
　　想想看2：编写一个选股公式，选出上市天数少于N的公式。与barscount的区别：显然，这是一个序列变量，随K线的位置不同而不同。而datacount是一个常量，不管在哪个K线的位置上，它都是同一个数值。[ 本帖最后由 一发千钧 于 2008-12-2 20:02 编辑{原文链接：http://www.55188.com/thread-2465017-1-1.html} 新增函数应用：如何遍历板块股票代码 PHP代码:--------------------------------------------------------------------------------
bk:='深圳A股';
variable:j=1,k=0,dm_len=0,lstr[6]='00000',blksum:=STKCOUNT(bk),dmstr[blksum]='';
lstr[2]:='0000';lstr[3]:='000';lstr[4]:='00';lstr[5]:='0';lstr[6]:='';
while j<=blksum do begin
  dm:=NumToStr(k,0);
  dm_len:=strlen(dm);
  dm:=lstr[dm_len]+dm;
  if stkinblock(dm,bk) then begin
    dmstr[j]:=dm;
    j:=j+1;
  end;  k:=k+1;
end;//以下是一些字符串函数及运算的综合应用
EXPLAIN(1,dmstr[1]);  //在解盘中，输出深圳A股第1只股票的代码
EXPLAIN(1,stknameex(dmstr[2]));//第2只股票的名称
EXPLAIN(1,dmstr[3]+stknameex(dmstr[3]));//第3只股票的代码及名称
EXPLAIN(1,'深圳A股第4只股票的代码是：'+dmstr[4]);
EXPLAIN(1,dmstr[5]+'最后收盘价:'+numtostr(close,2));
EXPLAIN(1,'深圳A股共有股票:'+numtostr(blksum,0)+'只');--------------------------------------------------------------------------------
　　如果您有编程的功底，上面代码一看就明白，但对没有编程经验的狐友们来说就不容易了。下面尽量详细地对思路和公式代码做一些解说，并对代码进行适当扩展。
　　1、所谓遍历股票代码，就是能够访问某板块中所有的股票代码，如果连访问都不能实现，怎么做一些更加强大的诸如横向统计、排序的功能？
　　2、上面的公式代码是以深圳A股板块为例，我们看看深圳A股的股票代码，它们都是很有规律的，000001、000002、...、000999、001696、001896，请注意这些代码的特征：
　　①股票代码要理解成字符串，而不是数值，如果是数值的话，股票代码就成了1、2、...、999、1696、1896。
　　②这些代码如果转换成数值，大体集中在某个数的范围，如上面所示，深圳A股代码的数值目前都小于1896，代码的数值大多都是呈递增1的规律，少量有跳跃的情况，比如000040跳到000042，000041不存在。
　　因此，我们初步可以设计一个循环
PHP代码:--------------------------------------------------------------------------------
j:=0;
while j<=1896 do
begin
  j:=j+1;
end;--------------------------------------------------------------------------------　　上面这段代码，是个循环，每次循环都执行一次由begin和end所包围起来的语句，这里只有一条语句即j:=j+1，目的让变量j从1每次循环都递增1，直到j=1896为止。
　　j:=j+1这条赋值语句，初次接触的话不大好理解，大意是这样，右边的j比如现在等于2，这条语句是让右边的j现有的数值加上1，然后再送回到变量j之中，执行完这条语句后，j就由2递增1变成了等于3。
　　j:=j+1，看起来有点象计数器的功能吧？每循环一次，计数器就增加1，因此也可以称变量j为计数器(变量)。
　　好了，思路敏捷的狐友，马上就能想到，这个计数器会生成从0到1896总共1897个数值，如果进行转换，也就是把数值转换成字符串，则深圳A股所有的股票代码都包含在里面了。
　　呵呵，的确是这样，因此我们设计下面一个稍加改进的循环，来逼近我们要完成的任务：PHP代码:--------------------------------------------------------------------------------
j:=0;
while j<=1896 do
begin
  dm:=NumToStr(j,0);  //把数值j转换成字符串并赋值给变量dm，保留小数位数0
  j:=j+1;
end;
EXPLAIN(islastbar,dm); //当处在最后一根K线位置时，输出字符串dm的内容--------------------------------------------------------------------------------　　最后一行代码，是用解盘函数输出字符串变量dm的结果，我们可以在“解”中观察，不过这里由于dm是单值变量，不是序列变量，只能保存最后的一次结果，因此只能观察到结果是1896。如果想观察其它的结果，只好改循环首语句，比如：
while j<=1 do　大家可以发现这些结果，还有一点小问题，没有前导的0，即我们要的是000001、0001896，而不是1、1896这样的字符串，怎么办呢？
　　给它们的前面加上0就可以了，但加上0的个数有讲究的，比如1在前面要加上5个0，1896前面只需加上2个0，很明显，要加的0的个数，等于6减字符串的字符个数。因此，设计公式代码如下：
PHP代码:--------------------------------------------------------------------------------
variable:lstr[6]='00000';//定义一个数组lstr[6],共6个元素，并让所有6个元素初始都等于字符串'00000'//下面对字符串数组lstr[]第2至第6个元素重新进行赋值，以便巧妙应用
lstr[2]:='0000';lstr[3]:='000';lstr[4]:='00';lstr[5]:='0';lstr[6]:='';
j:=0;
while j<=1896 do
begin
  dm:=NumToStr(j,0);  //把数值j转换成字符串并赋值给变量dm，保留小数位数0
  dm_len:=strlen(dm); //求出dm的长度，并赋值给变量dm_len
  dm:=lstr[dm_len]+dm;  //由dm的长度，确定应该给dm的前面加上多少个字符0
  j:=j+1;
end;
EXPLAIN(islastbar,dm); //当处在最后一根K线位置时，输出字符串dm的内容-------------------------------------------------------------------------------- 　对这行代码稍加解释：dm:=lstr[dm_len]+dm，如果某次循环右边的dm等于'19',则它的字符串长度为dm_len等于2，则这行代码此时等价于dm:=lstr[2]+dm，而lstr[2]等于'0000'，结果就是在'19'的前面加上4个字符'0'即成了'000019'，然后再把'000019'赋值给dm，于是左边的dm就等于'000019'　　到此为止，我们只是实现了所生成的字符串，可以让深圳A股的代码全部被包含在其中，但还有大量的“废”字符串，我们要把没用的字符串过滤掉。取出我们真正需要的。　　要用到的函数　　①stkinblock(dm,bk)，函数注释：如果股票代码dm从属于板块bk，则函数返回数值1，否则返回数值0　　②条件控制语句IF cond THEN expr1 ELSE expr2,意思是:当满足 cond 条件的时候，执行语句 expr1，否则执行 expr2 语句　　设计代码如下：PHP代码:--------------------------------------------------------------------------------
variable:lstr[6]='00000';
lstr[2]:='0000';lstr[3]:='000';lstr[4]:='00';lstr[5]:='0';lstr[6]:='';
j:=0;
bk:='深圳A股'; //bk赋值为字符串'深圳A股'
while j<=1896 do
begin
  dm:=NumToStr(j,0);  //把数值j转换成字符串并赋值给变量dm，保留小数位数0
  dm_len:=strlen(dm); //求出dm的长度，并赋值给变量dm_len
  dm:=lstr[dm_len]+dm;  //由dm的长度，确定应该给dm的前面加上多少个字符0
  if stkinblock(dm,bk) then //如果股票代码dm属于bk，则执行下面由begin、end包含的语句
  begin
    dm1:=dm;  //真正需要的股票代码是这里的dm1
  end;
  j:=j+1;
end;
EXPLAIN(islastbar,dm1); //当处在最后一根K线位置时，输出字符串dm1的内容--------------------------------------------------------------------------------公式代码设计到这里似乎可以结束了，因为我们要的结果都可以生成了。其实还有改进的余地：　　①dm1只是个单值的字符串变量，它只能保存最后的结果，而不能保存所有的结果。这里考虑使用数组，数组可以自行定义很多个元素，让每个元素保存一个结果。　　②循环首的j<1896总觉得不对劲，不够智能化，比如将来“深圳A股”板块最后的代码不是0001896，则这段公式代码的结果就不对了。　　针对以上问题，设计公式代码如下： PHP代码:--------------------------------------------------------------------------------
variable:lstr[6]='00000';
lstr[2]:='0000';lstr[3]:='000';lstr[4]:='00';lstr[5]:='0';lstr[6]:='';
j:=0;  //记录循环次数的计数器
k:=1;  //记录股票代码的个数的计数器
bk:='深圳A股'; //bk赋值为字符串'深圳A股'
blksum:=STKCOUNT(bk); //板块所包含证券数量
variable:dmstr[blksum]='';  //定义一个字符串数组用于记录股票代码，元素个数为blksum,初始值为空
while k<=blksum do  //当计数器k<=blksum时，执行以下循环
begin
  dm:=NumToStr(j,0);  //把数值j转换成字符串并赋值给变量dm，保留小数位数0
  dm_len:=strlen(dm); //求出dm的长度，并赋值给变量dm_len
  dm:=lstr[dm_len]+dm;  //由dm的长度，确定应该给dm的前面加上多少个字符0
  if stkinblock(dm,bk) then //如果股票代码dm属于bk，则执行下面由begin、end包含的语句
  begin
    dmstr[k]:=dm;  //真正需要的股票代码，记录到字符串数组dmstr的第k个元素中
    k:=k+1;  //记录找到的股票代码的个数
  end;
  j:=j+1;  //记录循环的次数
end;
EXPLAIN(islastbar,dmstr[1]); //当处在最后一根K线位置时，输出深圳A股第1只股票的代码--------------------------------------------------------------------------------　　有了以上公式，我们就可以把范围扩大，比如遍历'A股板块'的所有股票代码，很简单，只需改一条语句，即把　bk:='深圳A股'　改成　bk:='A股板块'。　　公式代码如下（且慢执行，等下面的解说）：PHP代码:--------------------------------------------------------------------------------
variable:lstr[6]='00000';
lstr[2]:='0000';lstr[3]:='000';lstr[4]:='00';lstr[5]:='0';lstr[6]:='';
j:=0;  //记录循环次数的计数器
k:=1;  //记录股票代码的个数的计数器
bk:='A股板块'; //bk赋值为字符串'深圳A股'
blksum:=STKCOUNT(bk); //板块所包含证券数量
variable:dmstr[blksum]='';  //定义一个字符串数组用于记录股票代码，元素个数为blksum,初始值为空
while k<=blksum do  //当计数器k<=blksum时，执行以下循环
begin
  dm:=NumToStr(j,0);  //把数值j转换成字符串并赋值给变量dm，保留小数位数0
  dm_len:=strlen(dm); //求出dm的长度，并赋值给变量dm_len
  dm:=lstr[dm_len]+dm;  //由dm的长度，确定应该给dm的前面加上多少个字符0
  if stkinblock(dm,bk) then //如果股票代码dm属于bk，则执行下面由begin、end包含的语句
  begin
    dmstr[k]:=dm;  //真正需要的股票代码，记录到字符串数组dmstr的第k个元素中
    k:=k+1;  //记录找到的股票代码的个数
  end;
  j:=j+1;  //记录循环的次数
end;
EXPLAIN(islastbar,dmstr[1]); //当处在最后一根K线位置时，输出字符串深圳A股第1只股票的代码--------------------------------------------------------------------------------　　假如你试图执行这段代码，你会发现好慢哦~~　　为何会这样？因为从深圳A股切换到上海A股的股票代码时，是从1896跳跃到600000，中间有508104次空循环，这中间没有一个代码是真正的股票代码，因此可以这样来提高循环的执行效率，在公式代码中插入如下几行代码：if j=1896 then j:=599999;if j=600999 then break;　　优化后的代码如下： PHP代码:--------------------------------------------------------------------------------
variable:lstr[6]='00000';
lstr[2]:='0000';lstr[3]:='000';lstr[4]:='00';lstr[5]:='0';lstr[6]:='';
j:=0;  //记录循环次数的计数器
k:=1;  //记录股票代码的个数的计数器
bk:='A股板块'; //bk赋值为字符串'深圳A股'
blksum:=STKCOUNT(bk); //板块所包含证券数量
variable:dmstr[blksum]='';  //定义一个字符串数组用于记录股票代码，元素个数为blksum,初始值为空
while k<=blksum do  //当计数器k<=blksum时，执行以下循环
begin
  dm:=NumToStr(j,0);  //把数值j转换成字符串并赋值给变量dm，保留小数位数0
  dm_len:=strlen(dm); //求出dm的长度，并赋值给变量dm_len
  dm:=lstr[dm_len]+dm;  //由dm的长度，确定应该给dm的前面加上多少个字符0
  if stkinblock(dm,bk) then //如果股票代码dm属于bk，则执行下面由begin、end包含的语句
  begin
    dmstr[k]:=dm;  //真正需要的股票代码，记录到字符串数组dmstr的第k个元素中
    k:=k+1;  //记录找到的股票代码的个数
  end;
  if j=1896 then j:=599999;  //计数器j直接跳到到上海A股对应的最小代码
  if j=600999 then break;  //如果记录到这个代码则跳出循环
  j:=j+1;  //记录循环的次数
end;//以下是一些字符串函数及运算的综合应用
EXPLAIN(1,dmstr[1]);  //在解盘中，输出深圳A股第1只股票的代码
EXPLAIN(1,stknameex(dmstr[2]));//第2只股票的名称
EXPLAIN(1,dmstr[3]+stknameex(dmstr[3]));//第3只股票的代码及名称
EXPLAIN(1,'深圳A股第4只股票的代码是：'+dmstr[4]);
EXPLAIN(1,dmstr[5]+'最后收盘价:'+numtostr(close,2));
EXPLAIN(1,'深圳A股共有股票:'+numtostr(blksum,0)+'只');--------------------------------------------------------------------------------　　这行代码　if j=600999 then break　有什么用？以防万一，如果有人改了市场规则，把500001之类的股票计入上海A股的话，这里的循环会出不来的，会造成电脑死循环，飞狐长时间没有响应。 以上公式代码，只是个示例，效率不太高，如果能有个方法，直接给出板块中所有的股票代码，那就不需要这段公式代码。　　给出这个示例，是想通过大致解剖整个公式代码的设计过程，让大家对循环、条件语句有个初步的认识。　　最后，给大家个练习的机会：　　1、修改上述代码，计算“A股板块”的成交量（这就是横向统计了）　　2、以上公式代码，使用的是while循环，有办法改成fox循环吗？(当心，在修改代码的过程中，如果不慎的话，有可能造成死循环，对于win9x操作系统，也许很难退出，对于NT以上操作系统，可以强行退出)　　3、高级问题：通过以上代码，可以做出横向排序，不过建议不要用代码本身来实现排序（会很慢的），应使用今天发布的新函数SORTPOS(X,D,N1,N2)来实现。　　4、借用论坛的一个问题：ff:=barslast(date=1030107);周期:=5;VERTLInE(ff=0 or ff=周期*1 or ff=周期*2 or ff=周期*3 or ff=周期*4 or ff=周期*5or ff=周期*6 or ff=周期*7 or ff=周期*8 or ff=周期*9 or ff=周期*10or ff=周期*11 or ff=周期*12 or ff=周期*13 or ff=周期*14 or ff=周期*15or ff=周期*16 or ff=周期*17 or ff=周期*18 or ff=周期*19 or ff=周期*20or ff=周期*21 or ff=周期*22 or ff=周期*23 or ff=周期*24 or ff=周期*25or ff=周期*26 or ff=周期*27 or ff=周期*28 or ff=周期*29 or ff=周期*30or ff=周期*31 or ff=周期*32 or ff=周期*33 or ff=周期*34 or ff=周期*35or ff=周期*36 or ff=周期*37 or ff=周期*38 or ff=周期*39 or ff=周期*40),POInTDOT;　　把以上代码，改成用循环表示。　　5、一个数列定义如下：f[1]=1,f[2]=1,f[n]=f[n-1]+f[n-2]，你能用循环计算出f[10]等于多少吗？这个数列是很有名的，许多股票预测都会用到它。　　呵呵，具体我也记不住了，谁能告诉我它叫什么？[ 本帖最后由 宝钢主力 于 2008-12-2 19:42 编辑 ]VBS入门续：条件语句
VBS入门续：条件语句 条件语句是程序中的最基本、最重要的语句之一，今天通过一个简单实例学习条件语句。 问题：设计一个指标，除首日外，如果当日涨停（设10%为涨停），则公式输出1，否则输出0。 公式代码：
fc:=c;
n=1.099;
<%
vc=ffl.vardata("fc")
vn=ffl.vardata("n")
vs=ffl.vardata("js") last=ubound(vc) vc(0)=0
for i=last to 1 step -1
if vc(i)>=vn*vc(i-1) then
  vc(i)=1
else
  vc(i)=0
end if
next
ffl.vardata("fc")=vc
%>
fc  
VBS程序条件语句部分解释，参阅VBS帮助文件，如下代码为条件语句： if vc(i)>=vn*vc(i-1) then  ----如果...则,这里的条件是判断当日涨停否
    vc(i)=1                             ----vc(i)赋值1
else                                      ----否则
    vc(i)=0                             ----vc(i)赋值0
end if                                   ----条件语句结束 {原文链接：http://www.55188.com/thread-2465017-1-1.html}