工作人員你好：

      自我添加自寫(xiě)指標(biāo)后，分筆數(shù)據(jù)斷斷續(xù)續(xù)。希望有辦法能恢復(fù)數(shù)據(jù)刷新速度，請(qǐng)指教。

      我的窗體中，有5個(gè)框。一個(gè)動(dòng)態(tài)數(shù)據(jù)，分筆，即時(shí)報(bào)價(jià)表，一副分筆數(shù)據(jù)折線圖，及自編指標(biāo)附圖。

      我的指標(biāo)中包含BUYVOL,使用序列模式。

指標(biāo)如下

   以下內(nèi)容為程序代碼:

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 主動(dòng)買(mǎi)入成本:=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 被動(dòng)買(mǎi)入成本:=SUM(Vb*Cb,QT)/SUM(Vb,QT),LINETHICK0;
9
10 //多頭成本:(SUM(Va*Ca,QT)+SUM(Vb*Cb,QT))/SUM(Va+Vb,QT),LINETHICK0;
11 //多頭倉(cāng)位: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 主動(dòng)賣出成本:=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 被動(dòng)賣出成本:=SUM(Vd*Cd,QT)/SUM(Vd,QT),LINETHICK0;
24
25 //空頭成本:(SUM(Vc*Cc,QT)+SUM(Vd*Cd,QT))/SUM(Vc+Vd,QT),LINETHICK0;
26 //空頭倉(cāng)位: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 多頭倉(cāng)位:SUM(Va+Vb,QT),LINETHICK0,colorred;
42 空頭倉(cāng)位:SUM(Vc+Vd,QT),LINETHICK0,colorblue;
43 多頭逃兵:sum(VL,QT),LINETHICK0,colorred;
44 空頭逃兵:sum(VS,QT),LINETHICK0,colorblue;