{这是程式化交易设计指南第66页例}
{买入信号临时变量：收盘创200天新高}
MYBUY:=CLOSE=HHV(CLOSE,200); //HHV(CLOSE,200)这个函数返回的应该是创新高当日的收盘价，
//MYBUY是序列变量，为什么是信号1，以下第13行buy(i)=1，如果buy是数组，为什么直接等于开盘信号1？
MYSELL:=CLOSE;
CLOSEPRICE:=CLOSE;
<%
close=FFL.VarData("CLOSEPRICE")
buy=FFL.VarData("MYBUY") //buy定义为数组
sell=FFL.VarData("MYSELL")
lastbuyprice=0
for i=0 to UBOUND(close)
sell(i)=0
if (lastbuyprice>0) then
buy(i)=0
end if
if (lastbuyprice=0) AND (buy(i)=1) then //为什么直接等于开盘信号1，buy是不是数组？
lastbuyprice=close(i)
end if
if (lastbuyprice>0) AND ((close(i)>(1.1*lastbuyprice)) OR (close(i)<(0.92*lastbuyprice))) then
sell(i)=1
lastbuyprice=0
end if
next
FFL.VarData("MYBUY")=buy
FFL.VarData("MYSELL")=sell
%>
ENTERLONG:MYBUY;
EXITLONG:MYSELL;