交易策略发布专区-[原创]虚拟期货5档行情源代码金字塔客服中心 - 专业程序化交易软件提供商

以下内容为程序代码:

1 variable:askprice2=0,askvol2=0,bidprice2=0,bidvol2=0;
2 variable:askprice3=0,askvol3=0,bidprice3=0,bidvol3=0;
3 variable:askprice4=0,askvol4=0,bidprice4=0,bidvol4=0;
4 variable:askprice5=0,askvol5=0,bidprice5=0,bidvol5=0;
5 variable:askprice6=0,askvol6=0,bidprice6=0,bidvol6=0;
6
7
8
9 refaskprice:=ref(askprice,1);
10 refaskvol:=ref(askvol,1);
11 refbidprice:=ref(bidprice,1);
12 refbidvol:=ref(bidvol,1);
13
14 if askprice＜refaskprice then begin
15     askprice6:=askprice5;
16     askvol6:=askvol5;
17     askprice5:=askprice4;
18     askvol5:=askvol4;
19     askprice4:=askprice3;
20     askvol4:=askvol3;
21     askprice3:=askprice2;
22     askvol3:=askvol2;
23     askprice2:=refaskprice;
24     askvol2:=refaskvol;
25 end;
26
27 if askprice＞refaskprice then begin
28     askprice2:=askprice3;
29     askvol2:=askvol3;
30     askprice3:=askprice4;
31     askvol3:=askvol4;
32     askprice4:=askprice5;
33     askvol4:=askvol5;
34     askprice5:=askprice6;
35     askvol5:=askvol6;
36 end;
37
38 if bidprice＞refbidprice then begin
39     bidprice6:=bidprice5;
40     bidvol6:=bidvol5;
41     bidprice5:=bidprice4;
42     bidvol5:=bidvol4;
43     bidprice4:=bidprice3;
44     bidvol4:=bidvol3;
45     bidprice3:=bidprice2;
46     bidvol3:=bidvol2;
47     bidprice2:=refbidprice;
48     bidvol2:=refbidvol;
49 end;
50
51 if bidprice＜refbidprice then begin
52     bidprice2:=bidprice3;
53     bidvol2:=bidvol3;
54     bidprice3:=bidprice4;
55     bidvol3:=bidvol4;
56     bidprice4:=bidprice5;
57     bidvol4:=bidvol5;
58     bidprice5:=bidprice6;
59     bidvol5:=bidvol6;
60 end;
61
62 x1:=900;
63 x2:=970;
64 y1:=75;
65 y2:=25;
66
67 n:=0;
68
69 drawtextex(1,1,x1,0,\'--------------------\',colorgreen);
70
71 drawtextex(1,1,x1,25,\'卖五 \'+numtostr(askprice5,n),colorwhite);
72 drawtextex(1,1,x2,25,numtostr(askvol5,0),coloryellow);
73
74 drawtextex(1,1,x1,50,\'--------------------\',colorgreen);
75
76 drawtextex(1,1,x1,75,\'卖四 \'+numtostr(askprice4,n),colorwhite);
77 drawtextex(1,1,x2,75,numtostr(askvol4,0),coloryellow);
78
79 drawtextex(1,1,x1,100,\'--------------------\',colorgreen);
80
81 drawtextex(1,1,x1,125,\'卖三 \'+numtostr(askprice3,n),colorwhite);
82 drawtextex(1,1,x2,125,numtostr(askvol3,0),coloryellow);
83
84 drawtextex(1,1,x1,150,\'--------------------\',colorgreen);
85
86 drawtextex(1,1,x1,175,\'卖二 \'+numtostr(askprice2,n),colorwhite);
87 drawtextex(1,1,x2,175,numtostr(askvol2,0),coloryellow);
88
89 drawtextex(1,1,x1,200,\'--------------------\',colorgreen);
90
91 drawtextex(1,1,x1,225,\'卖一 \'+numtostr(askprice,n),colorwhite);
92 drawtextex(1,1,x2,225,numtostr(askvol,0),coloryellow);
93
94 drawtextex(1,1,x1,250,\'--------------------\',colorred);
95
96 drawtextex(1,1,x1,275,\'买一 \'+numtostr(bidprice,n),colorwhite);
97 drawtextex(1,1,x2,275,numtostr(bidvol,0),coloryellow);
98
99 drawtextex(1,1,x1,300,\'--------------------\',colorgreen);
100
101 drawtextex(1,1,x1,325,\'买二 \'+numtostr(bidprice2,n),colorwhite);
102 drawtextex(1,1,x2,325,numtostr(bidvol2,0),coloryellow);
103
104 drawtextex(1,1,x1,350,\'--------------------\',colorgreen);
105
106 drawtextex(1,1,x1,375,\'买三 \'+numtostr(bidprice3,n),colorwhite);
107 drawtextex(1,1,x2,375,numtostr(bidvol3,0),coloryellow);
108
109 drawtextex(1,1,x1,400,\'--------------------\',colorgreen);
110
111 drawtextex(1,1,x1,425,\'买四 \'+numtostr(bidprice4,n),colorwhite);
112 drawtextex(1,1,x2,425,numtostr(bidvol4,0),coloryellow);
113
114 drawtextex(1,1,x1,450,\'--------------------\',colorgreen);
115
116 drawtextex(1,1,x1,475,\'买五 \'+numtostr(bidprice5,n),colorwhite);
117 drawtextex(1,1,x2,475,numtostr(bidvol5,0),coloryellow);
118
119 drawtextex(1,1,x1,500,\'--------------------\',colorgreen);