相关标签:

虚拟期货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,