主题：请问如何编一个比较2个合约的涨跌价差套利公式，如何弄？

以下内容为程序代码:

1 runmode:1;
2
3 账户:='666666';
4
5 品种1:='er05';
6 品种2:='er09';
7
8 品种1最新价:=dynainfo2(7,品种1);
9 品种2最新价:=dynainfo2(7,品种2);
10
11 品种1涨跌:=dynainfo2(12,品种1);
12 品种2涨跌:=dynainfo2(12,品种2);
13
14 涨跌差值:=品种1涨跌-品种2涨跌;
15
16 if 涨跌差值＞=-15 then begin
17     tbuy(1,1,lmt,0,品种1最新价,账户,品种1),orderqueue;
18     tbuyshort(1,1,lmt,0,品种2最新价,账户,品种2),orderqueue;
19 end

以下内容为程序代码:

1 runmode:1;
2
3 品种1:='er05';
4 品种2:='er09';
5
6 品种1涨跌:=callstock(品种1,vtopen)-callstock(品种1,vtopen,6);
7 品种2涨跌:=callstock(品种2,vtopen)-callstock(品种2,vtopen,6);
8
9 涨跌差值:品种1涨跌-品种2涨跌;