这样写的最大回撤模型是否正确　[金字塔]

//最大回撤模型如下

当前资产:asset,noaxis,colorgray;
if barpos=1 then 
 begin
 MaxAsset:=当前资产;
 Maxhc:=0;
 end
if 当前资产>MaxAsset then MaxAsset:=当前资产;
if MaxAsset-当前资产>Maxhc then Maxhc:=MaxAsset-当前资产;
最大回撤:Maxhc,linethick0,COLORRED;

如上一段最大回撤模型，是论坛上某人编写的，请问这样的模型是否正确？

http://www.weistock.com/bbs/dispbbs.asp?boardid=10&Id=9439

 阿火秘笈第五个