大智慧VOL更优副图指标

大智慧VOL更优副图指标

源码

VOL,VOLSTICK;
VAR1:=VOL/((HIGH-LOW)*2-ABS(CLOSE-OPEN));
成交:VOL,POINTDOT;
主买:IF(CLOSE>OPEN,VAR1*(HIGH-LOW),IF(CLOSE 主卖:IF(CLOSE>OPEN,0-VAR1*((HIGH-CLOSE)+(OPEN-LOW)),IF(CLOSE STICKLINE(VOL>0,VOL,0,4,1),COLORWHITE;
STICKLINE(主买>0,0,主买,4,0),COLORRED;
STICKLINE(主卖<0,0,主卖,4,0),COLOR00FF00;
日换手％:vol/(CAPITAL/100);
昨比:VOL-REF(VOL,1),COLORA66FFE,LINETHICK0;
周换手率％:SUM(日换手％,5),COLORA5FE4B;
成交额【千万】:AMOUNT/10000000,POINTDOT,COLOR66EECC;
MA5:=MA(CLOSE,5);
MA10:=MA(CLOSE,10);
MA20:=MA(CLOSE,20);
MA30:=MA(CLOSE,30);
MA60:=MA(CLOSE,60);
MA90:=MA(CLOSE,90);
MA125:=MA(CLOSE,125);
BIAS:=(C-MA20)/MA20*100;
SHAMOUNT:=AMOUNT;
SHVOL:=VOL;
J12:=(HIGH - ((HIGH - LOW) / 3));
J23:=(LOW + ((HIGH - LOW) / 3));
t1:=(((IF((CLOSE = OPEN),1,0) + IF((CLOSE >= J12),1,0)) + IF((CLOSE <= J23),1,0)) > 1);
t2:=((((CLOSE > J23) AND (CLOSE < J12)) AND (OPEN > J23)) AND (OPEN < J12));
t3:=((CLOSE >= J12) AND (OPEN <= J23));
t4:=(((OPEN <= J12) AND (OPEN >= J23)) AND (CLOSE > J12));
t5:=(((OPEN <= J23) AND (CLOSE <= J12)) AND (CLOSE >= J23));
t6:=((CLOSE <= J23) AND (OPEN >= J12));
t7:=(((OPEN <= J12) AND (OPEN >= J23)) AND (CLOSE < J23));
t8:=(((OPEN >= J12) AND (CLOSE <= J12)) AND (CLOSE >= J23));
t9:=(((SHAMOUNT / SHVOL) / 100) > REF(HIGH,1));
t10:=(((SHAMOUNT / SHVOL) / 100) < REF(LOW,1));
if DISPSTATUS=2 then begin;
var1000:='';
var100:='所属板块:';
if inblock('A股板块')=1 then var100:=var100+'A股板块';
if inblock('B股板块')=1 then var100:=var100+',B股板块';
if inblock('H股')=1 then var100:=var100+',H股';
if inblock('ST')=1 then var100:=var100+',ST';
if inblock('安徽')=1 then var100:=var100+',安徽';
if inblock('奥运')=1 then var100:=var100+',奥运';
if inblock('北京')=1 then var100:=var100+',北京';
if inblock('创投')=1 then var100:=var100+',创投';
if inblock('次新股')=1 then var100:=var100+',次新股';
if inblock('大盘')=1 then var100:=var100+',大盘';
if inblock('大智慧88')=1 then var100:=var100+',大智慧88';
if inblock('低价')=1 then var100:=var100+',低价';
if inblock('电力')=1 then var100:=var100+',电力';
if inblock('电脑')=1 then var100:=var100+',电脑';
if inblock('电器')=1 then var100:=var100+',电器';
if inblock('电子信息')=1 then var100:=var100+',电子信息';
if inblock('房地产')=1 then var100:=var100+',房地产';
if inblock('纺织服装')=1 then var100:=var100+',纺织服装';
if inblock('福建')=1 then var100:=var100+',福建';
if inblock('甘肃')=1 then var100:=var100+',甘肃';
if inblock('钢铁')=1 then var100:=var100+',钢铁';
if inblock('高价')=1 then var100:=var100+',高价';
if inblock('高派现')=1 then var100:=var100+',高派现';
if inblock('工程建筑')=1 then var100:=var100+',工程建筑';
if inblock('供水供气')=1 then var100:=var100+',供水供气';
if inblock('广东')=1 then var100:=var100+',广东';
if inblock('广西')=1 then var100:=var100+',广西';
if inblock('贵州')=1 then var100:=var100+',贵州';
if inblock('海南')=1 then var100:=var100+',海南';
if inblock('河北')=1 then var100:=var100+',河北';
if inblock('河南')=1 then var100:=var100+',河南';
if inblock('黑龙江')=1 then var100:=var100+',黑龙江';
if inblock('湖北')=1 then var100:=var100+',湖北';
if inblock('湖南')=1 then var100:=var100+',湖南';
if inblock('化工')=1 then var100:=var100+',化工';
if inblock('化纤')=1 then var100:=var100+',化纤';
if inblock('基金')=1 then var100:=var100+',基金';
if inblock('基金重仓')=1 then var100:=var100+',基金重仓';
if inblock('机械')=1 then var100:=var100+',机械';
if inblock('吉林')=1 then var100:=var100+',吉林';
if inblock('建材')=1 then var100:=var100+',建材';
if inblock('江苏')=1 then var100:=var100+',江苏';
if inblock('江西')=1 then var100:=var100+',江西';
if inblock('交通工具')=1 then var100:=var100+',交通工具';
if inblock('交通设施')=1 then var100:=var100+',交通设施';
if inblock('教育传媒')=1 then var100:=var100+',教育传媒';
if inblock('金融')=1 then var100:=var100+',金融';
if inblock('可转债')=1 then var100:=var100+',可转债';
if inblock('辽宁')=1 then var100:=var100+',辽宁';
if inblock('旅游酒店')=1 then var100:=var100+',旅游酒店';
if inblock('煤炭石油')=1 then var100:=var100+',煤炭石油';
if inblock('内蒙古')=1 then var100:=var100+',内蒙古';
if inblock('酿酒食品')=1 then var100:=var100+',酿酒食品';
if inblock('宁夏')=1 then var100:=var100+',宁夏';
if inblock('农林牧渔')=1 then var100:=var100+',农林牧渔';
if inblock('农业龙头')=1 then var100:=var100+',农业龙头';
if inblock('其他行业')=1 then var100:=var100+',其他行业';
if inblock('汽车')=1 then var100:=var100+',汽车';
if inblock('汽配')=1 then var100:=var100+',汽配';
if inblock('青海')=1 then var100:=var100+',青海';
if inblock('券商重仓')=1 then var100:=var100+',券商重仓';
if inblock('山东')=1 then var100:=var100+',山东';
if inblock('山西')=1 then var100:=var100+',山西';
if inblock('陕西')=1 then var100:=var100+',陕西';
if inblock('商业连锁')=1 then var100:=var100+',商业连锁';
if inblock('上海')=1 then var100:=var100+',上海';
if inblock('上证180')=1 then var100:=var100+',上证180';
if inblock('上证50')=1 then var100:=var100+',上证50';
if inblock('社保重仓')=1 then var100:=var100+'