您現(xiàn)在的位置：程序化交易>> 股票公式>> 其他>> 其他軟件公式>>正文內(nèi)容

15分,30分,60分,以及日線虛擬成交量，副圖，公式指標源碼，有圖[其他軟件公式]

作者：飛狐來源：cxh99.com 發(fā)布時間：2012年06月26日點擊數(shù)：　【收藏到本網(wǎng)的會員中心】

相關(guān)標簽: 30日線上穿60日線、 macd5分 15分 30分 60 、將10 15 20 30 40 60 、折紙做60 30 15 的角、主力資金日線ddx源碼、 dnf加15的60紫光刷圖、什么叫60日線、 60日線怎么看、 60日線、

源碼：


通達信自帶的虛擬成交量，只能虛擬日線的。我今日寫了個即能虛擬日線，也能虛擬15分、30分、以及60分圖的成交量。
不知道是不是有高手有更簡單的方法，如果有，別見笑哈。我可是把所有時間段逐一寫出來的，費了不少時間呢。

源碼如下：

K15F:=IF(PERIOD=2 AND CURRBARSCOUNT=1 AND DATE=CONST(DATE), 1, DRAWNULL);
K15FX0:=IF(K15F=1 AND TIME=94500, VOL*15/FROMOPEN, DRAWNULL);
K15FX1:=IF(K15F=1 AND TIME>=100000 AND TIME<=104500, VOL*15/(FROMOPEN-(TIME/100-1000+15)),DRAWNULL); 
K15FX2:=IF(K15F=1 AND (TIME=110000 OR TIME=111500), VOL*15/(FROMOPEN-(TIME/100-1100+75)),DRAWNULL); 
K15FX3:=IF(K15F=1 AND TIME>=130000 AND TIME<=134500, VOL*15/(FROMOPEN-(TIME/100-1300+105)),DRAWNULL); 
K15FX4:=IF(K15F=1 AND TIME>=140000 AND TIME<=144500, VOL*15/(FROMOPEN-(TIME/100-1400+165)),DRAWNULL);
K15FX5:=IF(K15F=1 AND TIME=150000, VOL*15/(FROMOPEN-225),DRAWNULL);
STICKLINE(K15F=1 AND TIME=94500, K15FX0, 0, -1, -1), COLOR00C0C0;
STICKLINE(K15F=1 AND TIME>=100000 AND TIME<=104500, K15FX1, 0, -1, -1), COLOR00C0C0;
STICKLINE(K15F=1 AND (TIME=110000 OR TIME=111500), K15FX2, 0, -1, -1), COLOR00C0C0;
STICKLINE(K15F=1 AND TIME>=130000 AND TIME<=134500, K15FX3, 0, -1, -1), COLOR00C0C0;
STICKLINE(K15F=1 AND TIME>=140000 AND TIME<=144500, K15FX4, 0, -1, -1), COLOR00C0C0;
STICKLINE(K15F=1 AND TIME=150000, K15FX5, 0, -1, -1), COLOR00C0C0;

K30F:=IF(PERIOD=3 AND CURRBARSCOUNT=1 AND DATE=CONST(DATE), 1, 0);
K30FX1:=IF(K30F=1 AND (TIME=100000 OR TIME=103000), VOL*30/(FROMOPEN-(TIME/100-1000)),DRAWNULL);
K30FX2:=IF(K30F=1 AND TIME=110000, VOL*30/(FROMOPEN-60), DRAWNULL);
K30FX3:=IF(K30F=1 AND (TIME=130000 OR TIME=133000), VOL*30/(FROMOPEN-(TIME/100-1300+90)),DRAWNULL);
K30FX4:=IF(K30F=1 AND (TIME=140000 OR TIME=143000), VOL*30/(FROMOPEN-(TIME/100-1400+150)),DRAWNULL);
K30FX5:=IF(K30F=1 AND TIME=150000, VOL*30/(FROMOPEN-210), DRAWNULL);
STICKLINE(K30F=1 AND (TIME=100000 OR TIME=103000), K30FX1, 0, -1, -1), COLOR00C0C0;
STICKLINE(K30F=1 AND TIME=110000, K30FX2, 0, -1, -1), COLOR00C0C0;
STICKLINE(K30F=1 AND (TIME=130000 OR TIME=133000), K30FX3, 0, -1, -1), COLOR00C0C0;
STICKLINE(K30F=1 AND (TIME=140000 OR TIME=143000), K30FX4, 0, -1, -1), COLOR00C0C0;
STICKLINE(K30F=1 AND TIME=150000, K30FX5, 0, -1, -1), COLOR00C0C0;

K60F:=IF(PERIOD=4 AND CURRBARSCOUNT=1 AND DATE=CONST(DATE), 1, 0);
K60FX0:=IF(K60F=1 AND TIME=103000, VOL*60/(FROMOPEN-0), DRAWNULL);
K60FX1:=IF(K60F=1 AND TIME>=130000 AND TIME<=150000, VOL*60/(FROMOPEN-((TIME/10000-12)*60)), DRAWNULL);
STICKLINE(K60F=1 AND TIME=103000, K60FX0, 0, -1, -1), COLOR00C0C0;
STICKLINE(K60F=1 AND TIME>=130000 AND TIME<=150000, K60FX1, 0, -1, -1), COLOR00C0C0;

VVOL:=IF(CURRBARSCOUNT=1 AND PERIOD=5,VOL*240/FROMOPEN,DRAWNULL);
STICKLINE(CURRBARSCOUNT=1 AND PERIOD=5,VVOL,0,-1,-1),COLOR00C0C0;

VOLUME:VOL,VOLSTICK;
VOL5:MA(VOL,5),COLORWHITE;
VOL10:MA(VOL,10),COLORYELLOW;

哈哈，果然是班門弄斧，剛知道原來有個MOD函數(shù)，那這個功能實現(xiàn)起來就很簡單了：
A:=PERIOD;
N:=IF(A=1,5,IF(A=2,15,IF(A=3,30,IF(A=4,60,IF(A=5,240,DRAWNULL)))));
P:=MOD(FROMOPEN, N);
M:=IF(P=0, N, P);
VVOL:=IF(CURRBARSCOUNT=1, V*N/M, DRAWNULL),NODRAW,COLORWHITE;
STICKLINE(CURRBARSCOUNT=1, VVOL, 0, -1, -1), COLOR00C0C0;
VOLUME:VOL,VOLSTICK;
VOL5:MA(VOL,5),COLORWHITE;
VOL10:MA(VOL,10),COLORYELLOW;

{ www.kzuj.com.cn }
{<span style="display:none;"><a href="http://www.kzuj.com.cn" title="同花順程序化交易">同花順程序化交易</a></span>}

公式導入教程: 【通達信公式源碼導入方法教程】【同花順公式源碼導入方法教程】【大智慧新一代公式源碼導入方法教程】

bbs.cf8.com.cn/forum.php?mod=viewthread&action=printable&tid=345438