[求助]求通達信的dvol函數源碼

作者：金字塔來源：cxh99.com 發布時間：2017年02月06日

咨詢內容： 通達信不能分時預警，金字塔可以，但是沒有內置dvol函數，求源碼，謝謝。
金字塔客服： 你問錯地方了，通達信函數源碼請咨詢通達信那邊
用戶回復： 我的意思是誰能在金字塔里實現通達信的那個函數的預警。
網友回復： 這個函數是什么意思，用來實現什么目的？有具體的使用范例嗎？
網友回復： 不定周期成交量統計，就是買賣中看買盤和賣盤轉換的一個指標，順便統計當日買賣量比例。網上有人轉化過，但是轉變的效果不好，通達信本身不支持分時預警。但是目前能支持分時預警的軟件又沒有通達信dvol這個函數。所以找人轉化。

TH:=BARSLAST(C<REF(C,1)); -------------- 飛狐轉化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));--------------------------------------------------以下是通達信源碼。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;機買:(A2/A6)*100,LINETHICK2,COLORRED;機賣:(A3/A6)*100,LINETHICK2,COLORGREEN;散買:(A4/A6)*100,LINETHICK0;散賣:(A5/A6)*100,LINETHICK0;主力差:機買-機賣,LINETHICK2;散戶差:散買-散賣,LINETHICK0; DRAWTEXT(主力差>0 AND REF(主力差,1)<=0,C*0.85,'●機構'),COLORRED; DRAWTEXT(主力差<0 AND REF(主力差,1)>=0,-C*0.85,'○機構'),COLORWHITE; DRAWTEXT(散戶差>0 AND REF(散戶差,1)<=0,C*0.15,'▲散戶'),COLORCYAN; DRAWTEXT(散戶差<0 AND REF(散戶差,1)>=0,-C*0.15,'△散戶'),COLORWHITE;