主题：获取有条件的收盘价

以下内容为程序代码:

1 #MAINCHART
2 AA:Sma(C,5,1);
3 BB:Sma(C,10,1);
4 Variable:TEMP(C),NumericSimple KEYPRICE;
5 LOWPRICE:=ROUND(C[0]*0.9,2);
6 HIGHPRICE:=ROUND(C[0]*1.1,2);
7 SHULIANG:=DataCount; //K线数
8 FOR I=1 TO SHULIANG-1 Step 1 Do Begin
9 TEMP[SHULIANG-I]=TEMP[SHULIANG-I-1]; //序列元素左移
10 END;
11 FOR I=LOWPRICE TO HIGHPRICE Step 0.01 Do Begin
12 TEMP[0]=I; //写入最新价，遍历所有可能取值
13 AAA:=Sma(TEMP,5,1);
14 BBB:=Sma(TEMP,10,1);
15 CCC:=AAA-BBB;
16 IF CCC[0]*CCC[1]＜=0 Then //代表这个价位发生cross
17 Begin
18 KEYPRICE=I;
19 Break; //输出价格，退出遍历
20 END;
21 END;
22 DD:KEYPRICE,NoDraw;