主题：[求助]怎样恢复分笔数据刷新速度

以下内容为程序代码:

1
2 Va:IF(OPENINT＞=REF(OPENINT,1) AND BUYVOL＞=500,VOL/2,0),STICK,linethick2,colorred;
3 Ca:=IF(OPENINT＞=REF(OPENINT,1) AND BUYVOL＞=500,CLOSE,0),LINETHICK0;
4 主动买入成本:=SUM(Va*Ca,QT)/SUM(Va,QT),LINETHICK0;
5
6 Vb:=IF(OPENINT-REF(OPENINT,1)＞=500 AND SELLVOL＞=500,(OPENINT-REF(OPENINT,1))/2,0),STICK;
7 Cb:=IF(OPENINT-REF(OPENINT,1)＞=500 AND SELLVOL＞=500,CLOSE,0),LINETHICK0;
8 被动买入成本:=SUM(Vb*Cb,QT)/SUM(Vb,QT),LINETHICK0;
9
10 //多头成本:(SUM(Va*Ca,QT)+SUM(Vb*Cb,QT))/SUM(Va+Vb,QT),LINETHICK0;
11 //多头仓位:SUM(Va+Vb,QT),LINETHICK0;
12
13
14
15
16
17 Vc:IF(OPENINT＞=REF(OPENINT,1) AND SELLVOL＞=500,VOL/2,0),STICK,linethick2,colorblue;
18 Cc:=IF(OPENINT＞=REF(OPENINT,1) AND SELLVOL＞=500,CLOSE,0),LINETHICK0;
19 主动卖出成本:=SUM(Vc*Cc,QT)/SUM(Vc,QT),LINETHICK0;
20
21 Vd:=IF(OPENINT-REF(OPENINT,1)＞=500 AND BUYVOL＞=500,(OPENINT-REF(OPENINT,1))/2,0),STICK;
22 Cd:=IF(OPENINT-REF(OPENINT,1)＞=500 AND BUYVOL＞=500,CLOSE,0),LINETHICK0;
23 被动卖出成本:=SUM(Vd*Cd,QT)/SUM(Vd,QT),LINETHICK0;
24
25 //空头成本:(SUM(Vc*Cc,QT)+SUM(Vd*Cd,QT))/SUM(Vc+Vd,QT),LINETHICK0;
26 //空头仓位:SUM(Vc+Vd,QT),LINETHICK0;
27
28 CCL:OPENINT,NOAXIS;
29
30
31
32
33 VL:-IFELSE(SELLVOL＞=500 AND OPENINT＜REF(OPENINT,1),VOL/2,0),STICK,linethick2,colorblue;
34 VS:-IFELSE(BUYVOL＞=500 AND OPENINT＜REF(OPENINT,1),VOL/2,0),STICK,linethick2,colorred;
35
36 //多头逃兵:sum(VL,QT),LINETHICK0,colorblue;
37 //空头逃兵:sum(VS,QT),LINETHICK0,colorred;
38
39 多头成本:(SUM(Va*Ca,QT)+SUM(Vb*Cb,QT))/SUM(Va+Vb,QT),LINETHICK0,colorred;
40 空头成本:(SUM(Vc*Cc,QT)+SUM(Vd*Cd,QT))/SUM(Vc+Vd,QT),LINETHICK0,colorblue;
41 多头仓位:SUM(Va+Vb,QT),LINETHICK0,colorred;
42 空头仓位:SUM(Vc+Vd,QT),LINETHICK0,colorblue;
43 多头逃兵:sum(VL,QT),LINETHICK0,colorred;
44 空头逃兵:sum(VS,QT),LINETHICK0,colorblue;