主题：[求助]求高人将下面的程序改成适合在金字塔中运行的语句

runmode:0;

input:percentOfRange(0.3,0.1,1,0.1);
input:minRange(0.2,0.1,1,0.1);
input:stopLossSet(0.5,0.1,1,0.1);
input:trailingStart(0.8,0.1,1,0.1);
input:trailingStop(0.5,0.1,1,0.1);

variable:longStopped=false;
variable:shortStopped=false;
variable:stopLine=0;

preDayHigh:=callstock(stklabel,vthigh,6,-1);
preDayLow:=callstock(stklabel,vtlow,6,-1);

dayOpen:=valuewhen(date<>ref(date,1),open);
preDayRange:=preDayHigh-preDayLow;

if preDayRange<dayOpen*minRange*0.01 then
 preDayRange:=dayOpen*minRange*0.01;

upperBand:=trimprice(dayOpen+preDayRange*percentOfRange);
lowerBand:=trimprice(dayOpen-preDayRange*percentOfRange);

enterTime:=time>=09100 and time<=140000;
exitTime:=time>=145000;

longCond:=enterTime and high>=upperBand and not(longStopped);
longPrice:=max(upperBand,open);

shortCond:=enterTime and low<=lowerBand and not(shortStopped);
shortPrice:=min(lowerBand,open);

if holding=0 then begin
 if longCond then begin
  buy(1,1,limitr,longPrice);
  longStopped:=true;
 end 
end

if holding=0 then begin
 if shortCond then begin
  buyshort(1,1,limitr,shortPrice);
  shortStopped:=true;
 end
end

higherAfterEntry:=ref(hhv(high,enterbars),1);
lowerAfterEntry:=ref(llv(low,enterbars),1);

if holding>0 then begin
 if higherAfterEntry>=avgenterprice+dayOpen*trailingStart*0.01 then
  stopline:=higherAfterEntry-dayOpen*trailingStop*0.01;
 else
  stopline:=upperBand-dayOpen*stopLossSet*0.01;
 
 if low<=stopLine then begin
  sell(1,holding,limitr,min(stopLine,open));
  longStopped:=true;  
  shortStopped:=false;
 end 
 
 if time>=exitTime then
  sell(1,holding,limitr,open); 
end

if holding<0 then begin
 if lowerAfterEntry<=avgenterprice-dayOpen*trailingStart*0.01 then
  stopline:=lowerAfterEntry+dayOpen*trailingStop*0.01;
 else
  stopline:=lowerBand+dayOpen*stopLossSet*0.01;
 
 if high>=stopLine then begin
  sellshort(1,holding,limitr,max(stopLine,open));
  shortStopped:=true;
  longStopped:=false;
 end 
 
 if time>=exitTime then
  sellshort(1,holding,limitr,open); 
end