公式模型编写问题提交-写了这样一个策略。后台交易的时候不交易。金字塔客服中心 - 专业程序化交易软件提供商

下面是代码：

//al沪铝

al00:=callstock(\'al00\',vtVOL,6,-1);

al01:=callstock(\'al01\',vtVOL,6,-1);

al02:=callstock(\'al02\',vtVOL,6,-1);

al03:=callstock(\'al03\',vtVOL,6,-1);

al04:=callstock(\'al04\',vtVOL,6,-1);

al05:=callstock(\'al05\',vtVOL,6,-1);

al06:=callstock(\'al06\',vtVOL,6,-1);

al07:=callstock(\'al07\',vtVOL,6,-1);

al08:=callstock(\'al08\',vtVOL,6,-1);

al09:=callstock(\'al09\',vtVOL,6,-1);

al10:=callstock(\'al10\',vtVOL,6,-1);

al11:=callstock(\'al11\',vtVOL,6,-1);

al12:=callstock(\'al12\',vtVOL,6,-1);

if al00=al01 then alcode:=\'al01\';

if al00=al02 then alcode:=\'al02\';

if al00=al03 then alcode:=\'al03\';

if al00=al04 then alcode:=\'al04\';

if al00=al05 then alcode:=\'al05\';

if al00=al06 then alcode:=\'al06\';

if al00=al07 then alcode:=\'al07\';

if al00=al08 then alcode:=\'al08\';

if al00=al09 then alcode:=\'al09\';

if al00=al10 then alcode:=\'al10\';

if al00=al11 then alcode:=\'al11\';

if al00=al12 then alcode:=\'al12\';

alclose:=callstock(alcode,vtCLOSE,6);

alclose1:=callstock(alcode,vtCLOSE,6,-1);

al:=alclose/alclose1-1;

//cu沪铜

cu00:=callstock(\'cu00\',vtVOL,6,-1);

cu01:=callstock(\'cu01\',vtVOL,6,-1);

cu02:=callstock(\'cu02\',vtVOL,6,-1);

cu03:=callstock(\'cu03\',vtVOL,6,-1);

cu04:=callstock(\'cu04\',vtVOL,6,-1);

cu05:=callstock(\'cu05\',vtVOL,6,-1);

cu06:=callstock(\'cu06\',vtVOL,6,-1);

cu07:=callstock(\'cu07\',vtVOL,6,-1);

cu08:=callstock(\'cu08\',vtVOL,6,-1);

cu09:=callstock(\'cu09\',vtVOL,6,-1);

cu10:=callstock(\'cu10\',vtVOL,6,-1);

cu11:=callstock(\'cu11\',vtVOL,6,-1);

cu12:=callstock(\'cu12\',vtVOL,6,-1);

if cu00=cu01 then cucode:=\'cu01\';

if cu00=cu02 then cucode:=\'cu02\';

if cu00=cu03 then cucode:=\'cu03\';

if cu00=cu04 then cucode:=\'cu04\';

if cu00=cu05 then cucode:=\'cu05\';

if cu00=cu06 then cucode:=\'cu06\';

if cu00=cu07 then cucode:=\'cu07\';

if cu00=cu08 then cucode:=\'cu08\';

if cu00=cu09 then cucode:=\'cu09\';

if cu00=cu10 then cucode:=\'cu10\';

if cu00=cu11 then cucode:=\'cu11\';

if cu00=cu12 then cucode:=\'cu12\';

cuclose:=callstock(cucode,vtCLOSE,6);

cuclose1:=callstock(cucode,vtCLOSE,6,-1);

cu:=cuclose/cuclose1-1;

//fu燃油

fu00:=callstock(\'fu00\',vtVOL,6,-1);

fu01:=callstock(\'fu01\',vtVOL,6,-1);

fu02:=callstock(\'fu02\',vtVOL,6,-1);

fu03:=callstock(\'fu03\',vtVOL,6,-1);

fu04:=callstock(\'fu04\',vtVOL,6,-1);

fu05:=callstock(\'fu05\',vtVOL,6,-1);

fu06:=callstock(\'fu06\',vtVOL,6,-1);

fu07:=callstock(\'fu07\',vtVOL,6,-1);

fu08:=callstock(\'fu08\',vtVOL,6,-1);

fu09:=callstock(\'fu09\',vtVOL,6,-1);

fu10:=callstock(\'fu10\',vtVOL,6,-1);

fu11:=callstock(\'fu11\',vtVOL,6,-1);

fu12:=callstock(\'fu12\',vtVOL,6,-1);

if fu00=fu01 then fucode:=\'fu01\';

if fu00=fu02 then fucode:=\'fu02\';

if fu00=fu03 then fucode:=\'fu03\';

if fu00=fu04 then fucode:=\'fu04\';

if fu00=fu05 then fucode:=\'fu05\';

if fu00=fu06 then fucode:=\'fu06\';

if fu00=fu07 then fucode:=\'fu07\';

if fu00=fu08 then fucode:=\'fu08\';

if fu00=fu09 then fucode:=\'fu09\';

if fu00=fu10 then fucode:=\'fu10\';

if fu00=fu11 then fucode:=\'fu11\';

if fu00=fu12 then fucode:=\'fu12\';

fuclose:=callstock(fucode,vtCLOSE,6);

fuclose1:=callstock(fucode,vtCLOSE,6,-1);

fu:=fuclose/fuclose1-1;

//pb沪铅

pb00:=callstock(\'pb00\',vtVOL,6,-1);

pb01:=callstock(\'pb01\',vtVOL,6,-1);

pb02:=callstock(\'pb02\',vtVOL,6,-1);

pb03:=callstock(\'pb03\',vtVOL,6,-1);

pb04:=callstock(\'pb04\',vtVOL,6,-1);

pb05:=callstock(\'pb05\',vtVOL,6,-1);

pb06:=callstock(\'pb06\',vtVOL,6,-1);

pb07:=callstock(\'pb07\',vtVOL,6,-1);

pb08:=callstock(\'pb08\',vtVOL,6,-1);

pb09:=callstock(\'pb09\',vtVOL,6,-1);

pb10:=callstock(\'pb10\',vtVOL,6,-1);

pb11:=callstock(\'pb11\',vtVOL,6,-1);

pb12:=callstock(\'pb12\',vtVOL,6,-1);

if pb00=pb01 then pbcode:=\'pb01\';

if pb00=pb02 then pbcode:=\'pb02\';

if pb00=pb03 then pbcode:=\'pb03\';

if pb00=pb04 then pbcode:=\'pb04\';

if pb00=pb05 then pbcode:=\'pb05\';

if pb00=pb06 then pbcode:=\'pb06\';

if pb00=pb07 then pbcode:=\'pb07\';

if pb00=pb08 then pbcode:=\'pb08\';

if pb00=pb09 then pbcode:=\'pb09\';

if pb00=pb10 then pbcode:=\'pb10\';

if pb00=pb11 then pbcode:=\'pb11\';

if pb00=pb12 then pbcode:=\'pb12\';

pbclose:=callstock(pbcode,vtCLOSE,6);

pbclose1:=callstock(pbcode,vtCLOSE,6,-1);

pb:=pbclose/pbclose1-1;

//螺纹钢

rb00:=callstock(\'rb00\',vtVOL,6,-1);

rb01:=callstock(\'rb01\',vtVOL,6,-1);

rb02:=callstock(\'rb02\',vtVOL,6,-1);

rb03:=callstock(\'rb03\',vtVOL,6,-1);

rb04:=callstock(\'rb04\',vtVOL,6,-1);

rb05:=callstock(\'rb05\',vtVOL,6,-1);

rb06:=callstock(\'rb06\',vtVOL,6,-1);

rb07:=callstock(\'rb07\',vtVOL,6,-1);

rb08:=callstock(\'rb08\',vtVOL,6,-1);

rb09:=callstock(\'rb09\',vtVOL,6,-1);

rb10:=callstock(\'rb10\',vtVOL,6,-1);

rb11:=callstock(\'rb11\',vtVOL,6,-1);

rb12:=callstock(\'rb12\',vtVOL,6,-1);

if rb00=rb01 then rbcode:=\'rb01\';

if rb00=rb02 then rbcode:=\'rb02\';

if rb00=rb03 then rbcode:=\'rb03\';

if rb00=rb04 then rbcode:=\'rb04\';

if rb00=rb05 then rbcode:=\'rb05\';

if rb00=rb06 then rbcode:=\'rb06\';

if rb00=rb07 then rbcode:=\'rb07\';

if rb00=rb08 then rbcode:=\'rb08\';

if rb00=rb09 then rbcode:=\'rb09\';

if rb00=rb10 then rbcode:=\'rb10\';

if rb00=rb11 then rbcode:=\'rb11\';

if rb00=rb12 then rbcode:=\'rb12\';

rbclose:=callstock(rbcode,vtCLOSE,6);

rbclose1:=callstock(rbcode,vtCLOSE,6,-1);

rb:=rbclose/rbclose1-1;

//ru 橡胶

ru00:=callstock(\'ru00\',vtVOL,6,-1);

ru01:=callstock(\'ru01\',vtVOL,6,-1);

ru02:=callstock(\'ru02\',vtVOL,6,-1);

ru03:=callstock(\'ru03\',vtVOL,6,-1);

ru04:=callstock(\'ru04\',vtVOL,6,-1);

ru05:=callstock(\'ru05\',vtVOL,6,-1);

ru06:=callstock(\'ru06\',vtVOL,6,-1);

ru07:=callstock(\'ru07\',vtVOL,6,-1);

ru08:=callstock(\'ru08\',vtVOL,6,-1);

ru09:=callstock(\'ru09\',vtVOL,6,-1);

ru10:=callstock(\'ru10\',vtVOL,6,-1);

ru11:=callstock(\'ru11\',vtVOL,6,-1);

//ru12:=callstock(\'ru12\',vtVOL,6,-1);

if ru00=ru01 then rucode:=\'ru01\';

if ru00=ru02 then rucode:=\'ru02\';

if ru00=ru03 then rucode:=\'ru03\';

if ru00=ru04 then rucode:=\'ru04\';

if ru00=ru05 then rucode:=\'ru05\';

if ru00=ru06 then rucode:=\'ru06\';

if ru00=ru07 then rucode:=\'ru07\';

if ru00=ru08 then rucode:=\'ru08\';

if ru00=ru09 then rucode:=\'ru09\';

if ru00=ru10 then rucode:=\'ru10\';

if ru00=ru11 then rucode:=\'ru11\';

//if ru00=ru12 then rucode:=\'ru12\';

ruclose:=callstock(rucode,vtCLOSE,6);

ruclose1:=callstock(rucode,vtCLOSE,6,-1);

ru:=ruclose/ruclose1-1;

//wr线材

wr00:=callstock(\'wr00\',vtVOL,6,-1);

wr01:=callstock(\'wr01\',vtVOL,6,-1);

wr02:=callstock(\'wr02\',vtVOL,6,-1);

wr03:=callstock(\'wr03\',vtVOL,6,-1);

wr04:=callstock(\'wr04\',vtVOL,6,-1);

wr05:=callstock(\'wr05\',vtVOL,6,-1);

wr06:=callstock(\'wr06\',vtVOL,6,-1);

wr07:=callstock(\'wr07\',vtVOL,6,-1);

wr08:=callstock(\'wr08\',vtVOL,6,-1);

wr09:=callstock(\'wr09\',vtVOL,6,-1);

wr10:=callstock(\'wr10\',vtVOL,6,-1);

wr11:=callstock(\'wr11\',vtVOL,6,-1);

wr12:=callstock(\'wr12\',vtVOL,6,-1);

if wr00=wr01 then wrcode:=\'wr01\';

if wr00=wr02 then wrcode:=\'wr02\';

if wr00=wr03 then wrcode:=\'wr03\';

if wr00=wr04 then wrcode:=\'wr04\';

if wr00=wr05 then wrcode:=\'wr05\';

if wr00=wr06 then wrcode:=\'wr06\';

if wr00=wr07 then wrcode:=\'wr07\';

if wr00=wr08 then wrcode:=\'wr08\';

if wr00=wr09 then wrcode:=\'wr09\';

if wr00=wr10 then wrcode:=\'wr10\';

if wr00=wr11 then wrcode:=\'wr11\';

if wr00=wr12 then wrcode:=\'wr12\';

wrclose:=callstock(wrcode,vtCLOSE,6);

wrclose1:=callstock(wrcode,vtCLOSE,6,-1);

wr:=wrclose/wrclose1-1;

//zn沪锌

zn00:=callstock(\'zn00\',vtVOL,6,-1);

zn01:=callstock(\'zn01\',vtVOL,6,-1);

zn02:=callstock(\'zn02\',vtVOL,6,-1);

zn03:=callstock(\'zn03\',vtVOL,6,-1);

zn04:=callstock(\'zn04\',vtVOL,6,-1);

zn05:=callstock(\'zn05\',vtVOL,6,-1);

zn06:=callstock(\'zn06\',vtVOL,6,-1);

zn07:=callstock(\'zn07\',vtVOL,6,-1);

zn08:=callstock(\'zn08\',vtVOL,6,-1);

zn09:=callstock(\'zn09\',vtVOL,6,-1);

zn10:=callstock(\'zn10\',vtVOL,6,-1);

zn11:=callstock(\'zn11\',vtVOL,6,-1);

zn12:=callstock(\'zn12\',vtVOL,6,-1);

if zn00=zn01 then zncode:=\'zn01\';

if zn00=zn02 then zncode:=\'zn02\';

if zn00=zn03 then zncode:=\'zn03\';

if zn00=zn04 then zncode:=\'zn04\';

if zn00=zn05 then zncode:=\'zn05\';

if zn00=zn06 then zncode:=\'zn06\';

if zn00=zn07 then zncode:=\'zn07\';

if zn00=zn08 then zncode:=\'zn08\';

if zn00=zn09 then zncode:=\'zn09\';

if zn00=zn10 then zncode:=\'zn10\';

if zn00=zn11 then zncode:=\'zn11\';

if zn00=zn12 then zncode:=\'zn12\';

znclose:=callstock(zncode,vtCLOSE,6);

znclose1:=callstock(zncode,vtCLOSE,6,-1);

zn:=znclose/znclose1-1;

//////////////////////////////////

//焦炭

j00:=CALLSTOCK(\'j00\',vtVOL,6,-1);

j01:=CALLSTOCK(\'j01\',vtVOL,6,-1);

j02:=CALLSTOCK(\'j02\',vtVOL,6,-1);

j03:=CALLSTOCK(\'j03\',vtVOL,6,-1);

j04:=CALLSTOCK(\'j04\',vtVOL,6,-1);

j05:=CALLSTOCK(\'j05\',vtVOL,6,-1);

j06:=CALLSTOCK(\'j06\',vtVOL,6,-1);

j07:=CALLSTOCK(\'j07\',vtVOL,6,-1);

j08:=CALLSTOCK(\'j08\',vtVOL,6,-1);

j09:=CALLSTOCK(\'j09\',vtVOL,6,-1);

j10:=CALLSTOCK(\'j10\',vtVOL,6,-1);

j11:=CALLSTOCK(\'j11\',vtVOL,6,-1);

j12:=CALLSTOCK(\'j12\',vtVOL,6,-1);

if j00=j01 then jtcode:=\'j01\';

if j00=j02 then jtcode:=\'j02\';

if j00=j03 then jtcode:=\'j03\';

if j00=j04 then jtcode:=\'j04\';

if j00=j05 then jtcode:=\'j05\';

if j00=j06 then jtcode:=\'j06\';

if j00=j07 then jtcode:=\'j07\';

if j00=j08 then jtcode:=\'j08\';

if j00=j09 then jtcode:=\'j09\';

if j00=j10 then jtcode:=\'j10\';

if j00=j11 then jtcode:=\'j11\';

if j00=j12 then jtcode:=\'j12\';

jtclose:=callstock(jtcode,vtCLOSE,6);

jtclose1:=callstock(jtcode,vtCLOSE,6,-1);

jt:=jtclose/jtclose1-1;

//焦煤

jm00:=CALLSTOCK(\'jm00\',vtVOL,6,-1);

jm01:=CALLSTOCK(\'jm01\',vtVOL,6,-1);

jm02:=CALLSTOCK(\'jm02\',vtVOL,6,-1);

jm03:=CALLSTOCK(\'jm03\',vtVOL,6,-1);

jm04:=CALLSTOCK(\'jm04\',vtVOL,6,-1);

jm05:=CALLSTOCK(\'jm05\',vtVOL,6,-1);

jm06:=CALLSTOCK(\'jm06\',vtVOL,6,-1);

jm07:=CALLSTOCK(\'jm07\',vtVOL,6,-1);

jm08:=CALLSTOCK(\'jm08\',vtVOL,6,-1);

jm09:=CALLSTOCK(\'jm09\',vtVOL,6,-1);

jm10:=CALLSTOCK(\'jm10\',vtVOL,6,-1);

jm11:=CALLSTOCK(\'jm11\',vtVOL,6,-1);

jm12:=CALLSTOCK(\'jm12\',vtVOL,6,-1);

if jm00=jm01 then jmcode:=\'jm01\';

if jm00=jm02 then jmcode:=\'jm02\';

if jm00=jm03 then jmcode:=\'jm03\';

if jm00=jm04 then jmcode:=\'jm04\';

if jm00=jm05 then jmcode:=\'jm05\';

if jm00=jm06 then jmcode:=\'jm06\';

if jm00=jm07 then jmcode:=\'jm07\';

if jm00=jm08 then jmcode:=\'jm08\';

if jm00=jm09 then jmcode:=\'jm09\';

if jm00=jm10 then jmcode:=\'jm10\';

if jm00=jm11 then jmcode:=\'jm11\';

if jm00=jm12 then jmcode:=\'jm12\';

jmclose:=callstock(jmcode,vtCLOSE,6);

jmclose1:=callstock(jmcode,vtCLOSE,6,-1);

jm:=jmclose/jmclose1-1;

//塑料

l00:=CALLSTOCK(\'l00\',vtVOL,6,-1);

l01:=CALLSTOCK(\'l01\',vtVOL,6,-1);

l02:=CALLSTOCK(\'l02\',vtVOL,6,-1);

l03:=CALLSTOCK(\'l03\',vtVOL,6,-1);

l04:=CALLSTOCK(\'l04\',vtVOL,6,-1);

l05:=CALLSTOCK(\'l05\',vtVOL,6,-1);

l06:=CALLSTOCK(\'l06\',vtVOL,6,-1);

l07:=CALLSTOCK(\'l07\',vtVOL,6,-1);

l08:=CALLSTOCK(\'l08\',vtVOL,6,-1);

l09:=CALLSTOCK(\'l09\',vtVOL,6,-1);

l10:=CALLSTOCK(\'l10\',vtVOL,6,-1);

l11:=CALLSTOCK(\'l11\',vtVOL,6,-1);

l12:=CALLSTOCK(\'l12\',vtVOL,6,-1);

if l00=l01 then slcode:=\'l01\';

if l00=l02 then slcode:=\'l02\';

if l00=l03 then slcode:=\'l03\';

if l00=l04 then slcode:=\'l04\';

if l00=l05 then slcode:=\'l05\';

if l00=l06 then slcode:=\'l06\';

if l00=l07 then slcode:=\'l07\';

if l00=l08 then slcode:=\'l08\';

if l00=l09 then slcode:=\'l09\';

if l00=l10 then slcode:=\'l10\';

if l00=l11 then slcode:=\'l11\';

if l00=l12 then slcode:=\'l12\';

slclose:=callstock(slcode,vtCLOSE,6);

slclose1:=callstock(slcode,vtCLOSE,6,-1);

sl:=slclose/slclose1-1;

//豆粨

m00:=CALLSTOCK(\'m00\',vtVOL,6,-1);

m01:=CALLSTOCK(\'m01\',vtVOL,6,-1);

m03:=CALLSTOCK(\'m03\',vtVOL,6,-1);

m05:=CALLSTOCK(\'m05\',vtVOL,6,-1);

m07:=CALLSTOCK(\'m07\',vtVOL,6,-1);

m08:=CALLSTOCK(\'m08\',vtVOL,6,-1);

m09:=CALLSTOCK(\'m09\',vtVOL,6,-1);

m11:=CALLSTOCK(\'m11\',vtVOL,6,-1);

m12:=CALLSTOCK(\'m12\',vtVOL,6,-1);

if m00=m01 then dbcode:=\'m01\';

if m00=m03 then dbcode:=\'m03\';

if m00=m05 then dbcode:=\'m05\';

if m00=m07 then dbcode:=\'m07\';

if m00=m08 then dbcode:=\'m08\';

if m00=m09 then dbcode:=\'m09\';

if m00=m11 then dbcode:=\'m11\';

if m00=m12 then dbcode:=\'m12\';

dbclose:=callstock(dbcode,vtCLOSE,6);

dbclose1:=callstock(dbcode,vtCLOSE,6,-1);

db:=dbclose/dbclose1-1;

//棕榈

p00:=CALLSTOCK(\'p00\',vtVOL,6,-1);

p01:=CALLSTOCK(\'p01\',vtVOL,6,-1);

p02:=CALLSTOCK(\'p02\',vtVOL,6,-1);

p03:=CALLSTOCK(\'p03\',vtVOL,6,-1);

p04:=CALLSTOCK(\'p04\',vtVOL,6,-1);

p05:=CALLSTOCK(\'p05\',vtVOL,6,-1);

p06:=CALLSTOCK(\'p06\',vtVOL,6,-1);

p07:=CALLSTOCK(\'p07\',vtVOL,6,-1);

p08:=CALLSTOCK(\'p08\',vtVOL,6,-1);

p09:=CALLSTOCK(\'p09\',vtVOL,6,-1);

p10:=CALLSTOCK(\'p10\',vtVOL,6,-1);

p11:=CALLSTOCK(\'p11\',vtVOL,6,-1);

p12:=CALLSTOCK(\'p12\',vtVOL,6,-1);

if p00=p01 then zlcode:=\'p01\';

if p00=p02 then zlcode:=\'p02\';

if p00=p03 then zlcode:=\'p03\';

if p00=p04 then zlcode:=\'p04\';

if p00=p05 then zlcode:=\'p05\';

if p00=p06 then zlcode:=\'p06\';

if p00=p07 then zlcode:=\'p07\';

if p00=p08 then zlcode:=\'p08\';

if p00=p09 then zlcode:=\'p09\';

if p00=p10 then zlcode:=\'p10\';

if p00=p11 then zlcode:=\'p11\';

if p00=p12 then zlcode:=\'p12\';

zlclose:=callstock(zlcode,vtCLOSE,6);

zlclose1:=callstock(zlcode,vtCLOSE,6,-1);

zl:=zlclose/zlclose1-1;

//聚氯乙烯

v00:=CALLSTOCK(\'v00\',vtVOL,6,-1);

v01:=CALLSTOCK(\'v01\',vtVOL,6,-1);

v02:=CALLSTOCK(\'v02\',vtVOL,6,-1);

v03:=CALLSTOCK(\'v03\',vtVOL,6,-1);

v04:=CALLSTOCK(\'v04\',vtVOL,6,-1);

v05:=CALLSTOCK(\'v05\',vtVOL,6,-1);

v06:=CALLSTOCK(\'v06\',vtVOL,6,-1);

v07:=CALLSTOCK(\'v07\',vtVOL,6,-1);

v08:=CALLSTOCK(\'v08\',vtVOL,6,-1);

v09:=CALLSTOCK(\'v09\',vtVOL,6,-1);

v10:=CALLSTOCK(\'v10\',vtVOL,6,-1);

v11:=CALLSTOCK(\'v11\',vtVOL,6,-1);

v12:=CALLSTOCK(\'v12\',vtVOL,6,-1);

if v00=v01 then jlyxcode:=\'v01\';

if v00=v02 then jlyxcode:=\'v02\';

if v00=v03 then jlyxcode:=\'v03\';

if v00=v04 then jlyxcode:=\'v04\';

if v00=v05 then jlyxcode:=\'v05\';

if v00=v06 then jlyxcode:=\'v06\';

if v00=v07 then jlyxcode:=\'v07\';

if v00=v08 then jlyxcode:=\'v08\';

if v00=v09 then jlyxcode:=\'v09\';

if v00=v10 then jlyxcode:=\'v10\';

if v00=v11 then jlyxcode:=\'v11\';

if v00=v12 then jlyxcode:=\'v12\';

jlyxclose:=callstock(jlyxcode,vtCLOSE,6);

jlyxclose1:=callstock(jlyxcode,vtCLOSE,6,-1);

jlyx:=jlyxclose/jlyxclose1-1;

//豆油

y00:=CALLSTOCK(\'y00\',vtVOL,6,-1);

y01:=CALLSTOCK(\'y01\',vtVOL,6,-1);

y03:=CALLSTOCK(\'y03\',vtVOL,6,-1);

y05:=CALLSTOCK(\'y05\',vtVOL,6,-1);

y07:=CALLSTOCK(\'y07\',vtVOL,6,-1);

y08:=CALLSTOCK(\'y08\',vtVOL,6,-1);

y09:=CALLSTOCK(\'y09\',vtVOL,6,-1);

y11:=CALLSTOCK(\'y11\',vtVOL,6,-1);

y12:=CALLSTOCK(\'y12\',vtVOL,6,-1);

if y00=y01 then dycode:=\'y01\';

if y00=y03 then dycode:=\'y03\';

if y00=y05 then dycode:=\'y05\';

if y00=y07 then dycode:=\'y07\';

if y00=y08 then dycode:=\'y08\';

if y00=y09 then dycode:=\'y09\';

if y00=y11 then dycode:=\'y11\';

if y00=y12 then dycode:=\'y12\';

dyclose:=callstock(dycode,vtCLOSE,6);

dyclose1:=callstock(dycode,vtCLOSE,6,-1);

dy:=dyclose/dyclose1-1;

//玉米

c00:=CALLSTOCK(\'c00\',vtVOL,6,-1);

c01:=CALLSTOCK(\'c01\',vtVOL,6,-1);

c03:=CALLSTOCK(\'c03\',vtVOL,6,-1);

c05:=CALLSTOCK(\'c05\',vtVOL,6,-1);

c07:=CALLSTOCK(\'c07\',vtVOL,6,-1);

c09:=CALLSTOCK(\'c09\',vtVOL,6,-1);

c11:=CALLSTOCK(\'c11\',vtVOL,6,-1);

if c00=c01 then ymcode:=\'c01\';

if c00=c03 then ymcode:=\'c03\';

if c00=c05 then ymcode:=\'c05\';

if c00=c07 then ymcode:=\'c07\';

if c00=c09 then ymcode:=\'c09\';

if c00=c11 then ymcode:=\'c11\';

ymclose:=callstock(ymcode,vtCLOSE,6);

ymclose1:=callstock(ymcode,vtCLOSE,6,-1);

ym:=ymclose/ymclose1-1;

//豆二

b00:=CALLSTOCK(\'b00\',vtVOL,6,-1);

b01:=CALLSTOCK(\'b01\',vtVOL,6,-1);

b03:=CALLSTOCK(\'b03\',vtVOL,6,-1);

b05:=CALLSTOCK(\'b05\',vtVOL,6,-1);

b07:=CALLSTOCK(\'b07\',vtVOL,6,-1);

b09:=CALLSTOCK(\'b09\',vtVOL,6,-1);

b11:=CALLSTOCK(\'b11\',vtVOL,6,-1);

if b00=b01 then decode:=\'b01\';

if b00=b03 then decode:=\'b03\';

if b00=b05 then decode:=\'b05\';

if b00=b07 then decode:=\'b07\';

if b00=b09 then decode:=\'b09\';

if b00=b11 then decode:=\'b11\';

declose:=callstock(decode,vtCLOSE,6);

declose1:=callstock(decode,vtCLOSE,6,-1);

de:=declose/declose1-1;

//豆一

ax00:=callstock(\'ax00\',vtVOL,6,-1);

ax01:=CALLSTOCK(\'ax01\',vtVOL,6,-1);

ax03:=CALLSTOCK(\'ax03\',vtVOL,6,-1);

ax05:=CALLSTOCK(\'ax05\',vtVOL,6,-1);

ax07:=CALLSTOCK(\'ax07\',vtVOL,6,-1);

ax09:=CALLSTOCK(\'ax09\',vtVOL,6,-1);

ax11:=CALLSTOCK(\'ax11\',vtVOL,6,-1);

ay01:=CALLSTOCK(\'ay01\',vtVOL,6,-1);

ay03:=CALLSTOCK(\'ay03\',vtVOL,6,-1);

ay05:=CALLSTOCK(\'ay05\',vtVOL,6,-1);

ay07:=CALLSTOCK(\'ay07\',vtVOL,6,-1);

ay09:=CALLSTOCK(\'ay09\',vtVOL,6,-1);

ay11:=CALLSTOCK(\'ay11\',vtVOL,6,-1);

{

d1code1:=max(ax01,ax03);

d1code2:=max(d1code1,ax05);

d1code3:=max(d1code2,ax07);

d1code4:=max(d1code3,ax09);

d1code5:=max(d1code4,ax11);

d1code6:=max(d1code5,ay01);

d1code7:=max(d1code6,ay03);

d1code8:=max(d1code7,ay05);

d1code9:=max(d1code8,ay07);

d1code10:=max(d1code9,ay09);

d1code11:=max(d1code10,ay11);

d1code:=d1code11;

}

if ax00=ax01 then d1code:=\'ax01\';

if ax00=ax03 then d1code:=\'ax03\';

if ax00=ax05 then d1code:=\'ax05\';

if ax00=ax07 then d1code:=\'ax07\';

if ax00=ax09 then d1code:=\'ax09\';

if ax00=ax11 then d1code:=\'ax11\';

if ax00=ay01 then d1code:=\'ay01\';

if ax00=ay03 then d1code:=\'ay03\';

if ax00=ay05 then d1code:=\'ay05\';

if ax00=ay07 then d1code:=\'ay07\';

if ax00=ay09 then d1code:=\'ay09\';

if ax00=ay11 then d1code:=\'ay11\';

d1close:=callstock(d1code,vtCLOSE,6);

d1close1:=callstock(d1code,vtCLOSE,6,-1);

d1:=d1close/d1close1-1;

////////////////////////////////////////////

//棉花cf

cf00:=CALLSTOCK(\'cf00\',vtVOL,6,-1);

cf01:=CALLSTOCK(\'cf01\',vtVOL,6,-1);

cf03:=CALLSTOCK(\'cf03\',vtVOL,6,-1);

cf05:=CALLSTOCK(\'cf05\',vtVOL,6,-1);

cf07:=CALLSTOCK(\'cf07\',vtVOL,6,-1);

cf09:=CALLSTOCK(\'cf09\',vtVOL,6,-1);

cf11:=CALLSTOCK(\'cf11\',vtVOL,6,-1);

if cf00=cf01 then cfcode:=\'cf01\';

if cf00=cf03 then cfcode:=\'cf03\';

if cf00=cf05 then cfcode:=\'cf05\';

if cf00=cf07 then cfcode:=\'cf07\';

if cf00=cf09 then cfcode:=\'cf09\';

if cf00=cf11 then cfcode:=\'cf11\';

cfclose:=callstock(cfcode,vtCLOSE,6);

cfclose1:=callstock(cfcode,vtCLOSE,6,-1);

cf:=cfclose/cfclose1-1;

//玻璃

fg00:=callstock(\'fg00\',vtVOL,6,-1);

fg01:=callstock(\'fg01\',vtVOL,6,-1);

fg02:=callstock(\'fg02\',vtVOL,6,-1);

fg03:=callstock(\'fg03\',vtVOL,6,-1);

fg04:=callstock(\'fg04\',vtVOL,6,-1);

fg05:=callstock(\'fg05\',vtVOL,6,-1);

fg06:=callstock(\'fg06\',vtVOL,6,-1);

fg07:=callstock(\'fg07\',vtVOL,6,-1);

fg08:=callstock(\'fg08\',vtVOL,6,-1);

fg09:=callstock(\'fg09\',vtVOL,6,-1);

fg10:=callstock(\'fg10\',vtVOL,6,-1);

fg11:=callstock(\'fg11\',vtVOL,6,-1);

fg12:=callstock(\'fg12\',vtVOL,6,-1);

if fg00=fg01 then fgcode:=\'fg01\';

if fg00=fg02 then fgcode:=\'fg02\';

if fg00=fg03 then fgcode:=\'fg03\';

if fg00=fg04 then fgcode:=\'fg04\';

if fg00=fg05 then fgcode:=\'fg05\';

if fg00=fg06 then fgcode:=\'fg06\';

if fg00=fg07 then fgcode:=\'fg07\';

if fg00=fg08 then fgcode:=\'fg08\';

if fg00=fg09 then fgcode:=\'fg09\';

if fg00=fg10 then fgcode:=\'fg10\';

if fg00=fg11 then fgcode:=\'fg11\';

if fg00=fg12 then fgcode:=\'fg12\';

fgclose:=callstock(fgcode,vtCLOSE,6);

fgclose1:=callstock(fgcode,vtCLOSE,6,-1);

fg:=fgclose/fgclose1-1;

//甲醇

me00:=callstock(\'me00\',vtVOL,6,-1);

me01:=callstock(\'me01\',vtVOL,6,-1);

me02:=callstock(\'me02\',vtVOL,6,-1);

me03:=callstock(\'me03\',vtVOL,6,-1);

me04:=callstock(\'me04\',vtVOL,6,-1);

me05:=callstock(\'me05\',vtVOL,6,-1);

me06:=callstock(\'me06\',vtVOL,6,-1);

me07:=callstock(\'me07\',vtVOL,6,-1);

me08:=callstock(\'me08\',vtVOL,6,-1);

me09:=callstock(\'me09\',vtVOL,6,-1);

me10:=callstock(\'me10\',vtVOL,6,-1);

me11:=callstock(\'me11\',vtVOL,6,-1);

me12:=callstock(\'me12\',vtVOL,6,-1);

if me00=me01 then mecode:=\'me01\';

if me00=me02 then mecode:=\'me02\';

if me00=me03 then mecode:=\'me03\';

if me00=me04 then mecode:=\'me04\';

if me00=me05 then mecode:=\'me05\';

if me00=me06 then mecode:=\'me06\';

if me00=me07 then mecode:=\'me07\';

if me00=me08 then mecode:=\'me08\';

if me00=me09 then mecode:=\'me09\';

if me00=me10 then mecode:=\'me10\';

if me00=me11 then mecode:=\'me11\';

if me00=me12 then mecode:=\'me12\';

meclose:=callstock(mecode,vtCLOSE,6);

meclose1:=callstock(mecode,vtCLOSE,6,-1);

me:=meclose/meclose1-1;

//新菜油

oi00:=CALLSTOCK(\'oi00\',vtVOL,6,-1);

oi01:=CALLSTOCK(\'oi01\',vtVOL,6,-1);

oi03:=CALLSTOCK(\'oi03\',vtVOL,6,-1);

oi05:=CALLSTOCK(\'oi05\',vtVOL,6,-1);

oi07:=CALLSTOCK(\'oi07\',vtVOL,6,-1);

oi09:=CALLSTOCK(\'oi09\',vtVOL,6,-1);

oi11:=CALLSTOCK(\'oi11\',vtVOL,6,-1);

if oi00=oi01 then oicode:=\'oi01\';

if oi00=oi03 then oicode:=\'oi03\';

if oi00=oi05 then oicode:=\'oi05\';

if oi00=oi07 then oicode:=\'oi07\';

if oi00=oi09 then oicode:=\'oi09\';

if oi00=oi11 then oicode:=\'oi11\';

oiclose:=callstock(oicode,vtCLOSE,6);

oiclose1:=callstock(oicode,vtCLOSE,6,-1);

oi:=oiclose/oiclose1-1;

//普麦

pm00:=CALLSTOCK(\'pm00\',vtVOL,6,-1);

pm01:=CALLSTOCK(\'pm01\',vtVOL,6,-1);

pm03:=CALLSTOCK(\'pm03\',vtVOL,6,-1);

pm05:=CALLSTOCK(\'pm05\',vtVOL,6,-1);

pm07:=CALLSTOCK(\'pm07\',vtVOL,6,-1);

pm09:=CALLSTOCK(\'pm09\',vtVOL,6,-1);

pm11:=CALLSTOCK(\'pm11\',vtVOL,6,-1);

if pm00=pm01 then pmcode:=\'pm01\';

if pm00=pm03 then pmcode:=\'pm03\';

if pm00=pm05 then pmcode:=\'pm05\';

if pm00=pm07 then pmcode:=\'pm07\';

if pm00=pm09 then pmcode:=\'pm09\';

if pm00=pm11 then pmcode:=\'pm11\';

pmclose:=callstock(pmcode,vtCLOSE,6);

pmclose1:=callstock(pmcode,vtCLOSE,6,-1);

pm:=pmclose/pmclose1-1;

//新籼稻

ri00:=CALLSTOCK(\'ri00\',vtVOL,6,-1);

ri01:=CALLSTOCK(\'ri01\',vtVOL,6,-1);

ri03:=CALLSTOCK(\'ri03\',vtVOL,6,-1);

ri05:=CALLSTOCK(\'ri05\',vtVOL,6,-1);

ri07:=CALLSTOCK(\'ri07\',vtVOL,6,-1);

ri09:=CALLSTOCK(\'ri09\',vtVOL,6,-1);

ri11:=CALLSTOCK(\'ri11\',vtVOL,6,-1);

if ri00=ri01 then ricode:=\'ri01\';

if ri00=ri03 then ricode:=\'ri03\';

if ri00=ri05 then ricode:=\'ri05\';

if ri00=ri07 then ricode:=\'ri07\';

if ri00=ri09 then ricode:=\'ri09\';

if ri00=ri11 then ricode:=\'ri11\';

riclose:=callstock(ricode,vtCLOSE,6);

riclose1:=callstock(ricode,vtCLOSE,6,-1);

ri:=riclose/riclose1-1;

//菜粕

rm00:=CALLSTOCK(\'rm00\',vtVOL,6,-1);

rm01:=CALLSTOCK(\'rm01\',vtVOL,6,-1);

rm03:=CALLSTOCK(\'rm03\',vtVOL,6,-1);

rm05:=CALLSTOCK(\'rm05\',vtVOL,6,-1);

rm07:=CALLSTOCK(\'rm07\',vtVOL,6,-1);

rm09:=CALLSTOCK(\'rm09\',vtVOL,6,-1);

rm11:=CALLSTOCK(\'rm11\',vtVOL,6,-1);

if rm00=rm01 then rmcode:=\'rm01\';

if rm00=rm03 then rmcode:=\'rm03\';

if rm00=rm05 then rmcode:=\'rm05\';

if rm00=rm07 then rmcode:=\'rm07\';

if rm00=rm09 then rmcode:=\'rm09\';

if rm00=rm11 then rmcode:=\'rm11\';

rmclose:=callstock(rmcode,vtCLOSE,6);

rmclose1:=callstock(rmcode,vtCLOSE,6,-1);

rm:=rmclose/rmclose1-1;

//菜籽

rs00:=CALLSTOCK(\'rs00\',vtVOL,6,-1);

//rs01:=CALLSTOCK(\'rs01\',vtVOL,6,-1);

//rs03:=CALLSTOCK(\'rs03\',vtVOL,6,-1);

//rs05:=CALLSTOCK(\'rs05\',vtVOL,6,-1);

rs07:=CALLSTOCK(\'rs07\',vtVOL,6,-1);

rs08:=CALLSTOCK(\'rs08\',vtVOL,6,-1);

rs09:=CALLSTOCK(\'rs09\',vtVOL,6,-1);

rs11:=CALLSTOCK(\'rs11\',vtVOL,6,-1);

//if rs00=rs01 then rscode:=\'rs01\';

//if rs00=rs03 then rscode:=\'rs03\';

//if rs00=rs05 then rscode:=\'rs05\';

if rs00=rs07 then rscode:=\'rs07\';

if rs00=rs08 then rscode:=\'rs08\';

if rs00=rs09 then rscode:=\'rs09\';

if rs00=rs11 then rscode:=\'rs11\';

rsclose:=callstock(rscode,vtCLOSE,6);

rsclose1:=callstock(rscode,vtCLOSE,6,-1);

rs:=rsclose/rsclose1-1;

//白糖

srx01:=CALLSTOCK(\'srx01\',vtVOL,6,-1);

srx03:=CALLSTOCK(\'srx03\',vtVOL,6,-1);

srx05:=CALLSTOCK(\'srx05\',vtVOL,6,-1);

srx07:=CALLSTOCK(\'srx07\',vtVOL,6,-1);

srx09:=CALLSTOCK(\'srx09\',vtVOL,6,-1);

srx11:=CALLSTOCK(\'srx11\',vtVOL,6,-1);

sry01:=CALLSTOCK(\'srx01\',vtVOL,6,-1);

sry03:=CALLSTOCK(\'srx03\',vtVOL,6,-1);

sry05:=CALLSTOCK(\'srx05\',vtVOL,6,-1);

sry07:=CALLSTOCK(\'srx07\',vtVOL,6,-1);

sry09:=CALLSTOCK(\'srx09\',vtVOL,6,-1);

sry11:=CALLSTOCK(\'srx11\',vtVOL,6,-1);

//srclose:=callstock(srcode,vtCLOSE,6);

//srclose1:=callstock(srcode,vtCLOSE,6,-1);

//sr:=srclose/srclose1-1;

//pta

ta00:=callstock(\'ta00\',vtVOL,6,-1);

ta01:=callstock(\'ta01\',vtVOL,6,-1);

ta02:=callstock(\'ta02\',vtVOL,6,-1);

ta03:=callstock(\'ta03\',vtVOL,6,-1);

ta04:=callstock(\'ta04\',vtVOL,6,-1);

ta05:=callstock(\'ta05\',vtVOL,6,-1);

ta06:=callstock(\'ta06\',vtVOL,6,-1);

ta07:=callstock(\'ta07\',vtVOL,6,-1);

ta08:=callstock(\'ta08\',vtVOL,6,-1);

ta09:=callstock(\'ta09\',vtVOL,6,-1);

ta10:=callstock(\'ta10\',vtVOL,6,-1);

ta11:=callstock(\'ta11\',vtVOL,6,-1);

ta12:=callstock(\'ta12\',vtVOL,6,-1);

if ta00=ta01 then tacode:=\'ta01\';

if ta00=ta02 then tacode:=\'ta02\';

if ta00=ta03 then tacode:=\'ta03\';

if ta00=ta04 then tacode:=\'ta04\';

if ta00=ta05 then tacode:=\'ta05\';

if ta00=ta06 then tacode:=\'ta06\';

if ta00=ta07 then tacode:=\'ta07\';

if ta00=ta08 then tacode:=\'ta08\';

if ta00=ta09 then tacode:=\'ta09\';

if ta00=ta10 then tacode:=\'ta10\';

if ta00=ta11 then tacode:=\'ta11\';

if ta00=ta12 then tacode:=\'ta12\';

taclose:=callstock(tacode,vtCLOSE,6);

taclose1:=callstock(tacode,vtCLOSE,6,-1);

ta:=taclose/taclose1-1;

//新强麦

wh00:=CALLSTOCK(\'wh00\',vtVOL,6,-1);

wh01:=CALLSTOCK(\'wh01\',vtVOL,6,-1);

wh03:=CALLSTOCK(\'wh03\',vtVOL,6,-1);

wh05:=CALLSTOCK(\'wh05\',vtVOL,6,-1);

wh07:=CALLSTOCK(\'wh07\',vtVOL,6,-1);

wh09:=CALLSTOCK(\'wh09\',vtVOL,6,-1);

wh11:=CALLSTOCK(\'wh11\',vtVOL,6,-1);

if wh00=wh01 then whcode:=\'wh01\';

if wh00=wh03 then whcode:=\'wh03\';

if wh00=wh05 then whcode:=\'wh05\';

if wh00=wh07 then whcode:=\'wh07\';

if wh00=wh09 then whcode:=\'wh09\';

if wh00=wh11 then whcode:=\'wh11\';

whclose:=callstock(whcode,vtCLOSE,6);

whclose1:=callstock(whcode,vtCLOSE,6,-1);

wh:=whclose/whclose1-1;

//取出涨幅最大的

if max(max(max(max(max(max(max(max(max(max(max(max(max(max(max(max(max(max(max(max(max(max(max(max(max(max(max(al,cu),fu),pb),rb),ru),wr),zn),jt),jm),sl),db),zl),jlyx),dy),ym),de),d1),cf),fg),me),oi),pm),ri),rm),rs),ta),wh)=al

and time=151000 and holding=0 then tbuy(1,1,lmt,close,0,\'\',alcode);

and time=151000 and holding=0 then tbuy(1,1,lmt,close,0,\'\',cucode);

and time=151000 and holding=0 then tbuy(1,1,lmt,close,0,\'\',fucode);

and time=151000 and holding=0 then tbuy(1,1,lmt,close,0,\'\',pbcode);

and time=151000 and holding=0 then tbuy(1,1,lmt,close,0,\'\',rbcode);

and time=151000 and holding=0 then tbuy(1,1,lmt,close,0,\'\',rucode);

and time=151000 and holding=0 then tbuy(1,1,lmt,close,0,\'\',wrcode);

and time=151000 and holding=0 then tbuy(1,1,lmt,close,0,\'\',zncode);

and time=151000 and holding=0 then tbuy(1,1,lmt,close,0,\'\',jtcode);

and time=151000 and holding=0 then tbuy(1,1,lmt,close,0,\'\',jmcode);

and time=151000 and holding=0 then tbuy(1,1,lmt,close,0,\'\',slcode);

and time=151000 and holding=0 then tbuy(1,1,lmt,close,0,\'\',zlcode);

and time=151000 and holding=0 then tbuy(1,1,lmt,close,0,\'\',jlyxcode);

and time=151000 and holding=0 then tbuy(1,1,lmt,close,0,\'\',dycode);

and time=151000 and holding=0 then tbuy(1,1,lmt,close,0,\'\',ymcode);

and time=151000 and holding=0 then tbuy(1,1,lmt,close,0,\'\',decode);

and time=151000 and holding=0 then tbuy(1,1,lmt,close,0,\'\',d1code);

and time=151000 and holding=0 then tbuy(1,1,lmt,close,0,\'\',cfcode);

and time=151000 and holding=0 then tbuy(1,1,lmt,close,0,\'\',fgcode);

and time=151000 and holding=0 then tbuy(1,1,lmt,close,0,\'\',mecode);

and time=151000 and holding=0 then tbuy(1,1,lmt,close,0,\'\',oicode);

and time=151000 and holding=0 then tbuy(1,1,lmt,close,0,\'\',pmcode);

and time=151000 and holding=0 then tbuy(1,1,lmt,close,0,\'\',ricode);

and time=151000 and holding=0 then tbuy(1,1,lmt,close,0,\'\',rmcode);

and time=151000 and holding=0 then tbuy(1,1,lmt,close,0,\'\',rscode);

and time=151000 and holding=0 then tbuy(1,1,lmt,close,0,\'\',tacode);

and time=151000 and holding=0 then tbuy(1,1,lmt,close,0,\'\',whcode);

//取出涨幅最小的

if min(min(min(min(min(min(min(min(min(min(min(min(min(min(min(min(min(min(min(min(min(min(min(min(min(min(min(al,cu),fu),pb),rb),ru),wr),zn),jt),jm),sl),db),zl),jlyx),dy),ym),de),d1),cf),fg),me),oi),pm),ri),rm),rs),ta),wh)=al

and time=151000 and holding=0 then tbuyshort(1,1,lmt,close,0,\'\',alcode);

and time=151000 and holding=0 then tbuyshort(1,1,lmt,close,0,\'\',cucode);

and time=151000 and holding=0 then tbuyshort(1,1,lmt,close,0,\'\',fucode);

and time=151000 and holding=0 then tbuyshort(1,1,lmt,close,0,\'\',pbcode);

and time=151000 and holding=0 then tbuyshort(1,1,lmt,close,0,\'\',rbcode);

and time=151000 and holding=0 then tbuyshort(1,1,lmt,close,0,\'\',rucode);

and time=151000 and holding=0 then tbuyshort(1,1,lmt,close,0,\'\',wrcode);

and time=151000 and holding=0 then tbuyshort(1,1,lmt,close,0,\'\',zncode);

and time=151000 and holding=0 then tbuyshort(1,1,lmt,close,0,\'\',jtcode);

and time=151000 and holding=0 then tbuyshort(1,1,lmt,close,0,\'\',jmcode);

and time=151000 and holding=0 then tbuyshort(1,1,lmt,close,0,\'\',slcode);

and time=151000 and holding=0 then tbuyshort(1,1,lmt,close,0,\'\',zlcode);

and time=151000 and holding=0 then tbuyshort(1,1,lmt,close,0,\'\',jlyxcode);

and time=151000 and holding=0 then tbuyshort(1,1,lmt,close,0,\'\',dycode);

and time=151000 and holding=0 then tbuyshort(1,1,lmt,close,0,\'\',ymcode);

and time=151000 and holding=0 then tbuyshort(1,1,lmt,close,0,\'\',decode);

and time=151000 and holding=0 then tbuyshort(1,1,lmt,close,0,\'\',d1code);

and time=151000 and holding=0 then tbuyshort(1,1,lmt,close,0,\'\',cfcode);

and time=151000 and holding=0 then tbuyshort(1,1,lmt,close,0,\'\',fgcode);

and time=151000 and holding=0 then tbuyshort(1,1,lmt,close,0,\'\',mecode);

and time=151000 and holding=0 then tbuyshort(1,1,lmt,close,0,\'\',oicode);

and time=151000 and holding=0 then tbuyshort(1,1,lmt,close,0,\'\',pmcode);

and time=151000 and holding=0 then tbuyshort(1,1,lmt,close,0,\'\',ricode);

and time=151000 and holding=0 then tbuyshort(1,1,lmt,close,0,\'\',rmcode);

and time=151000 and holding=0 then tbuyshort(1,1,lmt,close,0,\'\',rscode);

and time=151000 and holding=0 then tbuyshort(1,1,lmt,close,0,\'\',tacode);

and time=151000 and holding=0 then tbuyshort(1,1,lmt,close,0,\'\',whcode);

if holding<>0 and time=150000 then

tsell(1,holding,lmt,close,0,\'\',alcode);

tsellshort(1,holding,lmt,close,0,\'\',alcode);

tsell(1,holding,lmt,close,0,\'\',cucode);

tsellshort(1,holding,lmt,close,0,\'\',cucode);

tsell(1,holding,lmt,close,0,\'\',fucode);

tsellshort(1,holding,lmt,close,0,\'\',fucode);

tsell(1,holding,lmt,close,0,\'\',pbcode);

tsellshort(1,holding,lmt,close,0,\'\',pbcode);

tsell(1,holding,lmt,close,0,\'\',rbcode);

tsellshort(1,holding,lmt,close,0,\'\',rbcode);

tsell(1,holding,lmt,close,0,\'\',rucode);

tsellshort(1,holding,lmt,close,0,\'\',rucode);

tsell(1,holding,lmt,close,0,\'\',wrcode);

tsellshort(1,holding,lmt,close,0,\'\',wrcode);

tsell(1,holding,lmt,close,0,\'\',zncode);

tsellshort(1,holding,lmt,close,0,\'\',zncode);

tsell(1,holding,lmt,close,0,\'\',jtcode);

tsellshort(1,holding,lmt,close,0,\'\',jtcode);

tsell(1,holding,lmt,close,0,\'\',jmcode);

tsellshort(1,holding,lmt,close,0,\'\',jmcode);

tsell(1,holding,lmt,close,0,\'\',slcode);

tsellshort(1,holding,lmt,close,0,\'\',slcode);

tsell(1,holding,lmt,close,0,\'\',dbcode);

tsellshort(1,holding,lmt,close,0,\'\',dbcode);

tsell(1,holding,lmt,close,0,\'\',zlcode);

tsellshort(1,holding,lmt,close,0,\'\',zlcode);

tsell(1,holding,lmt,close,0,\'\',jlyxcode);

tsellshort(1,holding,lmt,close,0,\'\',jlyxcode);

tsell(1,holding,lmt,close,0,\'\',dycode);

tsellshort(1,holding,lmt,close,0,\'\',dycode);

tsell(1,holding,lmt,close,0,\'\',ymcode);

tsellshort(1,holding,lmt,close,0,\'\',ymcode);

tsell(1,holding,lmt,close,0,\'\',decode);

tsellshort(1,holding,lmt,close,0,\'\',decode);

tsell(1,holding,lmt,close,0,\'\',d1code);

tsellshort(1,holding,lmt,close,0,\'\',d1code);

tsell(1,holding,lmt,close,0,\'\',cfcode);

tsellshort(1,holding,lmt,close,0,\'\',cfcode);

tsell(1,holding,lmt,close,0,\'\',fgcode);

tsellshort(1,holding,lmt,close,0,\'\',fgcode);

tsell(1,holding,lmt,close,0,\'\',mecode);

tsellshort(1,holding,lmt,close,0,\'\',mecode);

tsell(1,holding,lmt,close,0,\'\',oicode);

tsellshort(1,holding,lmt,close,0,\'\',oicode);

tsell(1,holding,lmt,close,0,\'\',pmcode);

tsellshort(1,holding,lmt,close,0,\'\',pmcode);

tsell(1,holding,lmt,close,0,\'\',ricode);

tsellshort(1,holding,lmt,close,0,\'\',ricode);

tsell(1,holding,lmt,close,0,\'\',rmcode);

tsellshort(1,holding,lmt,close,0,\'\',rmcode);

tsell(1,holding,lmt,close,0,\'\',rscode);

tsellshort(1,holding,lmt,close,0,\'\',rscode);

tsell(1,holding,lmt,close,0,\'\',tacode);

tsellshort(1,holding,lmt,close,0,\'\',tacode);

tsell(1,holding,lmt,close,0,\'\',whcode);

tsellshort(1,holding,lmt,close,0,\'\',whcode);