请帮忙检测一下漏洞-->股指换月合约代码 - 公式模型编写问题提交 - 金字塔客服中心 - 专业程序化交易软件提供商

以下代码是按自己的思路编写的一个代码，虽然按历史数据计算出来的结果来看基本上都没有什么问题，但是不知道会不会存在其它的问题，所以请教一个各位高手，帮忙看一下是否有什么漏洞，顺便也探讨一下公式上的编写提高一下编程的能力，谢谢！

mon:=month;
w:=weekday;
dy:=if(month<>ref(month,1) or barscount(c)=1,if((day-weekday)<3,1,
if(fracpart((day-weekday)/7)<=0.4,intpart((day-weekday)/7)+1,intpart((day-weekday)/7)+2)),0);
b:=barscount(mon)=1;

jgxq:=intpart(((day-weekday)-(ref(day,1)+(7-ref(weekday,1))))/7);
jq:=mon=ref(mon,1) and (day-ref(day,1))>3;
dr:=if(jq and jgxq>0,jgxq,if(jq and (weekday-ref(weekday,1))=1,1,0));

u:=c-c;
zd:=barpos-min(barscount(w),barscount(mon));
for i=zd[datacount] to datacount do begin
    if b[i]>0 then
       u[i]:=dy[i];
    else if mon[i]<>mon[i-1] then
       u[i]:=dy[i];
    else if mon[i]=mon[i-1] and w[i]<w[i-1] and dr[i]<=0 then
       u[i]:=u[i-1]+1;
    else if mon[i]=mon[i-1] and w[i]<w[i-1] and dr[i]>0 then
       u[i]:=u[i-1]+1+dr[i];
    else if mon[i]=mon[i-1] and w[i]>w[i-1] and dr[i]>0 then
       u[i]:=u[i-1]+dr[i];
    else u[i]:=u[i-1];end;
u:=u;

hys:=if(u<3,mon,if(u=3 && w<=4,mon,if(u=3 && w>4,mon+1,if(u>3,mon+1,0))));
uc:if(date>=1100416 and date<=1100501,5,if(hys>12,1,hys));//第三个星期的周五换合约,遇节假日顺延

主题：请帮忙检测一下漏洞-->股指换月合约代码