[求助]求通達(dá)信的dvol函數(shù)源碼
作者：金字塔 來源：cxh99.com 發(fā)布時(shí)間：2017年02月06日
- 咨詢內(nèi)容：
通達(dá)信不能分時(shí)預(yù)警，金字塔可以，但是沒有內(nèi)置dvol函數(shù)，求源碼，謝謝。
- 金字塔客服：
你問錯(cuò)地方了，通達(dá)信函數(shù)源碼請咨詢通達(dá)信那邊
- 用戶回復(fù)：
我的意思是誰能在金字塔里實(shí)現(xiàn)通達(dá)信的那個(gè)函數(shù)的預(yù)警。
- 網(wǎng)友回復(fù)：
這個(gè)函數(shù)是什么意思，用來實(shí)現(xiàn)什么目的？有具體的使用范例嗎？
- 網(wǎng)友回復(fù)：
不定周期成交量統(tǒng)計(jì)，就是買賣中看買盤和賣盤轉(zhuǎn)換的一個(gè)指標(biāo)，順便統(tǒng)計(jì)當(dāng)日買賣量比例。網(wǎng)上有人轉(zhuǎn)化過，但是轉(zhuǎn)變的效果不好，通達(dá)信本身不支持分時(shí)預(yù)警。但是目前能支持分時(shí)預(yù)警的軟件又沒有通達(dá)信dvol這個(gè)函數(shù)。所以找人轉(zhuǎn)化。
TH:=BARSLAST(C<REF(C,1)); -------------- 飛狐轉(zhuǎn)化TL:=BARSLAST(C>=REF(C,1));HC:=SETVAL(C>=REF(C,1),C,-TH,C);LC:=SETVAL(C<REF(C,1),C,-TL,C);DCLOS:IF(C>=REF(C,1),HC,LC);T:=BARSLAST(DCLOS<>REF(DCLOS,1));DVOL:SUM(V,BARSLAST(DCLOS<>REF(DCLOS,1))+1)*100;DVOL:=SETVAL(DCLOS<>REFX(DCLOS,1),DVOL,-T,DVOL);var1:=BARSLAST(C<REF(C,1));--------------------------------------------------以下是通達(dá)信源碼。var2:=BARSLAST(C>=REF(C,1));var3:=SETVAL(C>=REF(C,1),C,-var1,C);var4:=SETVAL(C<REF(C,1),C,-var2,C);DCLOS:=IF(C>=REF(C,1),var3,var4);var5:=BARSLAST(DCLOS<>REF(DCLOS,1));var6:=SUM(V,BARSLAST(DCLOS<>REF(DCLOS,1))+1)*100;DVOL:=SETVAL(DCLOS<>REFX(DCLOS,1),var6,-var5,var6);A1:=(DVOL/C)/2; A2:=SUM(IF(A1>100 AND CLOSE>REF(CLOSE,1),A1,0),0); A3:=SUM(IF(A1>100 AND CLOSE<REF(CLOSE,1),A1,0),0); A4:=SUM(IF(A1<100 AND CLOSE>REF(CLOSE,1),A1,0),0); A5:=SUM(IF(A1<100 AND CLOSE<REF(CLOSE,1),A1,0),0); A6:=A2+A3+A4+A5;機(jī)買:(A2/A6)*100,LINETHICK2,COLORRED;機(jī)賣:(A3/A6)*100,LINETHICK2,COLORGREEN;散買:(A4/A6)*100,LINETHICK0;散賣:(A5/A6)*100,LINETHICK0;主力差:機(jī)買-機(jī)賣,LINETHICK2;散戶差:散買-散賣,LINETHICK0; DRAWTEXT(主力差>0 AND REF(主力差,1)<=0,C*0.85,'●機(jī)構(gòu)'),COLORRED; DRAWTEXT(主力差<0 AND REF(主力差,1)>=0,-C*0.85,'○機(jī)構(gòu)'),COLORWHITE; DRAWTEXT(散戶差>0 AND REF(散戶差,1)<=0,C*0.15,'▲散戶'),COLORCYAN; DRAWTEXT(散戶差<0 AND REF(散戶差,1)>=0,-C*0.15,'△散戶'),COLORWHITE;
打印本文
關(guān)閉窗口