hx817 2004-12-18 15:25
飞狐内置循环、判断等控制语句入门一(南客)
序：
飞狐内嵌的VBScript（或JScript）脚本语言，功能已经非常强大，可以真正在编程的意义上编制各种强大的公式，不比DLL弱，甚至某些无法用DLL实现的功能，亦可在VBScript (或JScript)中实现，但比较明显的弱点是，VBScript（或JScript）语言是解释执行的，速度比DLL慢。
为此，飞狐在3.5以上版本中，开发了内置的循环、判断语句，提供字符串处理函数等功能，可以把飞狐中的序列变量等同于数组处理，任意访问序列变量，进一步加强了飞狐的公式系统。
下面以入门的形式，分若干专题并配以适当的示例、练习、思考，与大家一起共同学习。
由于涉及编程的许多概念比较复杂，因此在讲述的过程，假定大家已经有了一定的编公式的基础，对许多编一般公式的细节不再详述。
网络论坛上开设互动专题，受到诸多条件的局限，不知道大家的学习效果如何，希望能够在专题的贴子后，提出建议、问题，以便下一专题能够及时调整难易程度。此外，我也会尽量抽时间回答贴子中的问题。同时也请高手们帮助解答，并指出专题中的错误！谢谢大家！
一、序列变量与数组：
在飞狐的新公式系统的增加部分中，需要大量运用并区分数组、单值变量及序列变量的概念，这些概念也是进一步学习编程（比如编DLL）所必需的，因此有必要简单描述并初步掌握这些概念。
1、常数与单值变量：
常数，在飞狐中，就是不允许改变的数值，在我们平常写公式时，为了公式更加灵活，大量使用了参数，这些参数就是常数，不允许在公式中改变，比如参数n(1,1,25)，表示参数n最小值是1、最大值是25、默认值是1，如果在公式中再写一行“n:=30;”就是非法的。
单值变量，即只有一个数值，不随时间而改变，比如“x:100;”，就是定义了一个单值变量x=100，这个值不随时间而改变，做成副图指标看，今天x是100明天x也是100，直到最后1根K线也是100，即副图指标是一条数值为100的水平直线。
hx817 2004-12-18 15:26
2、数组：
所谓数组，就是有序数据的集合
如{1,2,5,7,9}这样一组有先后顺序的数据，我们可以把它们定义成一个数组，例如定义为A，数组A就表示这组有序的数据，这里A就是数组的名称(即数组名)。
数组中的每1个数据，称之为数组中的一个元素，显然上面所说的数组A，第1个元素是1，第2个元素是2，第3个元素是5......，用A[1]、A[2]、A[3]......来表示，用方括号括起来的部分称之为下标，用下标来表示第几个元素。大家可以看出，在本例中，A[1]等于1，A[2]等于2，A[5]等于7，数组A共5个元素，我们就说数组A的长度是5。
上面所举的例子，数组的每一个元素是数值型的，称之为数值型数组，数组的每个元素也可以是字符串的，即字符串型数组。
一般来说，数组的使用，要先定义，然后初始化（即赋予数组的每个元素一个初始的数据）。在飞狐中，目前只支持一维数组，并且下标是从1开始的。
在飞狐中，如何定义、初始化并使用数组？下面简单示例说明：
例1、在飞狐中，定义一个含10个元素的数值型数组
定义数组的语句是variable,公式代码如下：
[code]
variable:A[10]=0; //定义一个含10个元素的数值型数组A，并把所有元素初始化为0;
[/code]
例2：定义一个3个元素的字符串型的数组
公式代码如下：
[code]
variable:B[3]='abc'; //定义一个含3个元素的字符串型数组B，并把所有元素初始化为'abc'
[/code]
例3：把{1,3,5,7,9}定义为数组
分析：这组数据共有5个数值型数据，因此应定义长度为5的数组，并给每个元素赋值。公式代码如下：
[code]
variable:A[5]=0;
A[1]:=1;
A[2]:=3;
A[3]:=5;
A[4]:=7;
A[5]:=9;
[/code]
例4：把{1,5}和{'a','b','c'}定义为数组
分析：variable语句，可以同时定义多个变量、数组，之间用逗号隔开。公式代码如下：
[code]
variable:A[2]=0,B[3]='';
A[1]:=1;
A[2]:=5;
B[1]:='a';
B[2]:='b';
B[3]:='c';
[/code]
前面所举的关于数组例子，都是概念性的，单纯数组的应用一般都比较复杂，比如，从每天的分笔成交中统计，各个成交价位成交的笔数。等到后面讲完循环时再写具体的代码。
3、序列变量：
我们平时接触最多的是收盘价close，写一行代码“fc:close"，就是定义了一个变量fc，并把收盘价赋值给变量fc。这里变量fc就是序列变量，因为fc不是一个值，而是一序列随时间而变化的值(收盘价)，在K线图中，从第1根K线到最后1根K线都有一个收盘价，因此fc跟单值变量不同，是由一系列的值组成的变量，因此我们称之为序列变量。事实上，把“fc:close”这行代码做成一个指标，就可以看出fc是一条变化的曲线而不是一条水平直线。
飞狐新的公式系统，可以把序列变量作为一个数组，这是一个特殊的数组，这个数组的最小下标是从序列变量的起始有效位置开始，数组的最大下标是K线数量，其中K线的数量，可以从datacount函数得到。
比如“fc:close;"，这行代码，可以把fc看成是一个下标从1开始直到datacount的数组。如果我们想知道第1、2、5、最后1根K线的收盘价，可以写成如下代码：
[code]
fc:=close;
fc[1];
fc[2];
fc[5];
fc[datacount];
[/code]
hx817 2004-12-18 15:26
再看一例“fm:ma(c,5)”，这里的5日均价fm也是一个序列变量，可以看成下标从5开始直到datacount的数组。想想看，为什么起始下标不是从1开始，而是从5开始？我想知道K线图上倒数第2根K线对应的5日均价怎么写公式代码？
今天就说这些，下面提供一些练习与思考：
思考1：如何知道当前股票的K线数？使用什么函数？
思考2：如果“fv:=vol”，那么fv[9]表示什么？
思考3：“fmh:ma(h,5)”，fmh[datacount]表示什么？
试试：在飞狐中新建一个公式，编一段下面的公式代码：
[code]
LL:=MA(Low,10);
A:LL[9];
[/code]
这段代码想表达什么？可以通过吗？为什么？
练习1：根据序列变量可以看成一个数组，编一个公式，求出当前股票的上市日期。
练习2：函数barpos返回当前是第几根K线，由此，设计一个公式，在最后1根K线和倒数第10根K线处，用函数drawicon做一标记。
练习3：画一条从上市第1天开始的水平直线，其高度等于当前股票的历史最高价。
练习4：画一条从上市第1天开始的水平直线，其高度位于当前股票历史最高、最低价之间的一半位置。
练习5：当前股票，2003年最高价是多少？首次出现该最高价的日期是哪天？
PBQY1898 2004-12-19 05:27
顶
maxyan 2005-1-2 20:49
fm:ma(c,50)，为什么起始下标不是从1开始，而是从5开始？我想知道K线图上倒数第2根K线对应的5日均价怎么写公式代码？
这是南客老师出的题目，小弟愚笨，想不出答案，请大家帮忙提醒，谢谢！！
股市骑兵00 2005-1-2 21:48
[quote][i]maxyan[/i] 于 2005-1-2 08:49 PM 写道:
fm:ma(c,50)，为什么起始下标不是从1开始，而是从5开始？我想知道K线图上倒数第2根K线对应的5日均价怎么写公式代码？
这是南客老师出的题目，小弟愚笨，想不出答案，请大家帮忙提醒，谢谢！！ [/quote]
5日均价当然是从第5天开始的呀，怎么会从第1天开始呢？
下标当然从5开始啦！
maxyan 2005-1-3 17:43
骑兵兄，K线图上倒数第2根K线对应的5日均价怎么写公式代码？
股市骑兵00 2005-1-3 17:48
[quote][i]maxyan[/i] 于 2005-1-3 05:43 PM 写道:
骑兵兄，K线图上倒数第2根K线对应的5日均价怎么写公式代码？ [/quote]
不客气，参照上面的例子是这样吧。
fmh:=ma(c,5);
fmh[datacount-1];//K线图上倒数第2根K线对应的5日均价
清风斜阳 2005-1-16 23:11
好
通过认真学习，本人已经有所领悟，正在试验中。献上一图，算是讨教
清风斜阳 2005-1-24 23:54
感谢老师教导
[quote][i]hx817[/i] 于 2004-12-18 03:25 PM 写道:
序：
飞狐内嵌的VBScript（或JScript）脚本语言，功能已经非常强大，可以真正在编程的意义上编制各种强大的公式，不比DLL弱，甚至某些无法用DLL实现的功能，亦可在VBScript (或JScript)中实现，但比较明显的 ... [/quote]
dhxhangxin 2005-3-31 06:25
谁能把题作了，另外再多出i些vbs的题。
jesse_huch 2005-4-4 22:19
非常感谢
jesse_huch 2005-4-4 22:20
非常感谢