标题：[原创]基本面量化交易

runmode:1;

account:='888888';

lots:=volunit*10;

pb:=close/finance(34);
roe:=finance(37);

entrylongcond:=pb<3 and roe>8;
exitlongcond:=pb>3 or roe<8;

if tbuyholdingex(account,stklabel,1)=0 then begin
 if entrylongcond then
  tbuy(1,lots,lmt,close,0,account,stklabel); 
end

if tbuyholdingex(account,stklabel,1)>0 then begin
 if exitlongcond then
  tsell(1,lots,lmt,close,0,account,stklabel); 
end