主题：股票模型编写

ztcond:COUNT((c>=ref(c,1)*1.1),5)>=1;

day_ztcond:STKINDI('','Formula1.ztcond',0,6,-1);
if  ma(c,10)>ma(c,40) and CROSS(close,ma(close,10))=1  then begin
 tbuy(1,200000/close,MKT); 
end

//A有三种数值状态：1，0，最新价；
//当A=1时表示当前有持仓，A=0时表示移动止损执行完毕，A=最新价时用于比较价格是否回落

//将A赋值为1，表示当前有持仓
IF TBUYHOLDINGEX( '','' ,0 )>0 AND EXTGBDATA(STKLABEL )=0 THEN BEGIN
EXTGBDATASET( STKLABEL,1 );
END

//使A始终表示监控开始后的最高价
IF DYNAINFO(  7)>EXTGBDATA(STKLABEL ) and EXTGBDATA(STKLABEL )>0 THEN BEGIN
EXTGBDATASET( STKLABEL,DYNAINFO(  7));
END