体现不出回落的状态。
IF TBUYHOLDINGEX( '','' ,0 )>0 AND EXTGBDATA('a' )=0 THEN BEGIN
EXTGBDATASET( 'a',1 );
END
IF DYNAINFO( 7)>EXTGBDATA('a' ) and EXTGBDATA('a' )>0 THEN BEGIN
EXTGBDATASET( 'a',DYNAINFO( 7));
END
//5%到10%的位置标记
IF EXTGBDATA('a' )>tenterprice*1.05 AND EXTGBDATA('a' )<tenterprice*1.1 THEN BEGIN
EXTGBDATASET( 'stage',1);
END
IF DYNAINFO( 7)<tenterprice*1.05 and EXTGBDATA('a' )>0 and EXTGBDATA('stage' )=1 THEN BEGIN
TSELL(1,1,MKT );
EXTGBDATASET( 'a',0);
EXTGBDATASET( 'stage',0);
END
//10%到15%的位置标记
IF EXTGBDATA('a' )>tenterprice*1.1 AND EXTGBDATA('a' )<tenterprice*1.15 THEN BEGIN
EXTGBDATASET( 'stage',2);
END
IF DYNAINFO( 7)<tenterprice*1.1 and EXTGBDATA('a' )>0 and EXTGBDATA('stage' )=2 THEN BEGIN
TSELL(1,1,MKT );
EXTGBDATASET( 'a',0);
EXTGBDATASET( 'stage',0);
END
//大于15%的位置标记
IF EXTGBDATA('a' )>tenterprice*1.15 THEN BEGIN
EXTGBDATASET( 'stage',3);
END
IF DYNAINFO( 7)<tenterprice*1.15 and EXTGBDATA('a' )>0 and EXTGBDATA('stage' )=3 THEN BEGIN
TSELL(1,1,MKT );
EXTGBDATASET( 'a',0);
EXTGBDATASET( 'stage',0);
END