将 真实成交 改成大智慧指标

编写要求：

股票网解答：

网友求助：

{真实成交}
{虚拟量:IF(ISLASTBAR AND DATATYPE=6,VOL*240/OPENMINUTES(CURRENTTIME),0)}
JE:vol,COLORred,LINETHICK;SJ:=if(CURRENTTIME>93000 and CURRENTTIME<150000,
if(CURRENTTIME<113000,(TIMETOT0(CURRENTTIME)-34200)/60,
if(CURRENTTIME>130000,(TIMETOT0(CURRENTTIME)-39600)/60,120)),240);
预测额:IF(BARSTATUS=2,JE/SJ*240,JE),COLOR00FFFF,LINETHICK;
STICKLINE(BARSTATUS=2,0,预测额,9,1),COLOREEEEFF,LINEDOT;
jj:=(HIGH+LOW+CLOSE)/3;qj0:=vol/IF(HIGH=LOW,4,HIGH-LOW);
主买:(qj0*(jj-MIN(CLOSE,OPEN))),COLORred,LINETHICK;
主卖:(qj0*(MIN(OPEN,CLOSE)-LOW)),COLORGREEN,LINETHICK;
散买:(qj0*(HIGH-MAX(OPEN,CLOSE))),COLORMAGENTA,LINETHICK;
散卖:(qj0*(MAX(CLOSE,OPEN)-jj)),COLORYELLOW,LINETHICK;
DDX:IF(HIGH=LOW,4*qJ0,((主卖+主买)-(散买+散卖)))/SUM(VOL,10)*100,COLORRED,LINETHICK;
DDY:((主买+散卖)-(主卖+散买))/SUM(VOL,10)*100,COLORMAGENTA,LINETHICK;
DDZ:((主卖+主买)-(散买+散卖))/((主卖+主买)+(散买+散卖))*100*17,COLORred,LINETHICK;
量5:MA(VOL,5),COLORred,LINETHICK1;
{量25:MA(VOL,25),COLORMAGENTA,LINETHICK1;}
量35:MA(VOL,35),COLORYELLOW,LINETHICK1;
量135:MA(VOL,135),COLORGREEN,LINETHICK1;
换手:JE/CAPITAL*100;换5:SUM(换手,5);换23:SUM(换手,23);换45:SUM(换手,45);
STICKLINE(H=l and C<ref(c,1),0,JE,8,0),COLOR008800;
STICKLINE(H=l and C<ref(c,1),0,JE,5,0),COLOR00aa00;
STICKLINE(H=l and C<ref(c,1),0,JE,3,0),COLOR00cc00;
STICKLINE(H=l and C<ref(c,1),0,JE,1,0),COLOR00ee00;
STICKLINE(H=l and C>ref(c,1),0,JE,8,0),COLOR000088;
STICKLINE(H=l and C>ref(c,1),0,JE,5,0),COLOR0000aa;
STICKLINE(H=l and C>ref(c,1),0,JE,3,0),COLOR0000cc;
STICKLINE(H=l and C>ref(c,1),0,JE,1,0),COLOR0000ff;
STICKLINE(散卖>0,0,主买+主卖+散买+散卖,8,0),COLOR880000;
STICKLINE(散卖>0,0,主买+主卖+散买+散卖,5,0),COLORaa0000;
STICKLINE(散卖>0,0,主买+主卖+散买+散卖,3,0),COLORcc0000;
STICKLINE(散卖>0,0,主买+主卖+散买+散卖,1,0),COLORee0000;
STICKLINE(散买>0,0,主买+主卖+散买,8,0),COLOR880088;
STICKLINE(散买>0,0,主买+主卖+散买,5,0),COLORaa00aa;
STICKLINE(散买>0,0,主买+主卖+散买,3,0),COLORcc00cc;
STICKLINE(散买>0,0,主买+主卖+散买,1,0),COLORee00ee;
STICKLINE(主卖>0,0,主买+主卖,8,0),COLOR008800;
STICKLINE(主卖>0,0,主买+主卖,5,0),COLOR00aa00;
STICKLINE(主卖>0,0,主买+主卖,3,0),COLOR00cc00;
STICKLINE(主卖>0,0,主买+主卖,1,0),COLOR00ee00;
STICKLINE(主买>0,0,主买,8,0),COLOR000088;
STICKLINE(主买>0,0,主买,5,0),COLOR0000aa;
STICKLINE(主买>0,0,主买,3,0),COLOR0000cc;
STICKLINE(主买>0,0,主买,1,0),COLOR0000ff;
AA:=if(c>(h+l)/2,je,0);
BB:=if(c<(h+l)/2,je,0);
F1:=sum(aa,5);
F2:=sum(bb,5);
F3:=ema(F1-F2,3);
T1:=主买>主卖 and cross(f3,ref(f3,1)) and f3<0;
T2:=主卖>主买 and cross(ref(f3,1),f3) and f3>0;
DRAWTEXT(T1,je*1.2,'+B'),COLOR00ffff;
DRAWTEXT(T2,je*1.2,'-S'),COLORffffff;
股本:=FINANCE(1)/10000;流通:=FINANCE(7)/10000;
{DRAWTEXT(BARPOS=SYSPARAM(2)+1,0,'证券代码:'+STKLABEL+' 证券名称:'
+STKNAME+'流通盘:'+NUMTOSTR(流通,2)+'亿股'),ALIGN3,PXUP90,ColorFF00FF;}
收益:=FINANCE(33);WM:=STRTONUM(STRRIGHT(NUMTOSTR(FINANCE(0),0),2));
NSY:=IF(WM=12,收益,收益*12/WM);市盈率:=CLOSE/NSY;
市值:=(CLOSE*FINANCE(1))/10000;
DRAWTEXTEX(CLOSE,1,20,0,'股本:'+NUMTOSTR(股本,2)+'亿股'),ALIGN3,PXUP90,ColorFF00FF;
DRAWTEXTEX(CLOSE,1,140,0,'流通盘:'+NUMTOSTR(流通,2)+'亿股'),ALIGN3,PXUP90,ColorFF00FF;
DRAWTEXTEX(CLOSE,1,270,0,'收益:'+NUMTOSTR(收益,2)+ '元'),ALIGN3,PXUP90,ColorFF00FF;
DRAWTEXTEX(CLOSE,1,380,0,'动态市盈率:'+NUMTOSTR(市盈率,2) + '倍'),ALIGN3,PXUP90,ColorFF00FF;
DRAWTEXTEX(CLOSE,1,550,0,'市值:'+NUMTOSTR(市值,2) + '亿元'),ALIGN3,PXUP90,ColorFF00FF;
明天跑:STICKLINE(CROSS(((SMA(MAX(CLOSE - REF(CLOSE,1),0),7,1))/(SMA(ABS(CLOSE - REF(CLOSE,1)),7,1)))*(100),80),V/1.5,V,5,0),Color00FF00;
 

 

解答如下：

{真实成交}
{虚拟量:IF(ISLASTBAR AND DATATYPE=6,VOL*240/OPENMINUTES(CURRENTTIME),0)}
JE:vol,COLORred,LINETHICK0;SJ:=if(CURRENTTIME>93000 and CURRENTTIME<150000,
if(CURRENTTIME<113000,(TIMETOT0(CURRENTTIME)-34200)/60,
if(CURRENTTIME>130000,(TIMETOT0(CURRENTTIME)-39600)/60,120)),240);
预测额:IF(BARSTATUS=2,JE/SJ*240,JE),COLOR00FFFF,LINETHICK0;
STICKLINE(BARSTATUS=2,0,预测额,9,1),COLOREEEEFF,POINTDOT;
jj:=(HIGH+LOW+CLOSE)/3;qj0:=vol/IF(HIGH=LOW,4,HIGH-LOW);
主买:(qj0*(jj-MIN(CLOSE,OPEN))),COLORred,LINETHICK0;
主卖:(qj0*(MIN(OPEN,CLOSE)-LOW)),COLORGREEN,LINETHICK0;
散买:(qj0*(HIGH-MAX(OPEN,CLOSE))),COLORMAGENTA,LINETHICK0;
散卖:(qj0*(MAX(CLOSE,OPEN)-jj)),COLORYELLOW,LINETHICK0;
DDX:IF(HIGH=LOW,4*qJ0,((主卖+主买)-(散买+散卖)))/SUM(VOL,10)*100,COLORRED,LINETHICK0;
DDY:((主买+散卖)-(主卖+散买))/SUM(VOL,10)*100,COLORMAGENTA,LINETHICK0;
DDZ:((主卖+主买)-(散买+散卖))/((主卖+主买)+(散买+散卖))*100*17,COLORred,LINETHICK0;
量5:MA(VOL,5),COLORred,LINETHICK1;
{量25:MA(VOL,25),COLORMAGENTA,LINETHICK1;}
量35:MA(VOL,35),COLORYELLOW,LINETHICK1;
量135:MA(VOL,135),COLORGREEN,LINETHICK1;
换手:JE/CAPITAL*100;换5:SUM(换手,5);换23:SUM(换手,23);换45:SUM(换手,45);
STICKLINE(H=l and C<ref(c,1),0,JE,8,0),COLOR008800;
STICKLINE(H=l and C<ref(c,1),0,JE,5,0),COLOR00aa00;
STICKLINE(H=l and C<ref(c,1),0,JE,3,0),COLOR00cc00;
STICKLINE(H=l and C<ref(c,1),0,JE,1,0),COLOR00ee00;
STICKLINE(H=l and C>ref(c,1),0,JE,8,0),COLOR000088;
STICKLINE(H=l and C>ref(c,1),0,JE,5,0),COLOR0000aa;
STICKLINE(H=l and C>ref(c,1),0,JE,3,0),COLOR0000cc;
STICKLINE(H=l and C>ref(c,1),0,JE,1,0),COLOR0000ff;
STICKLINE(散卖>0,0,主买+主卖+散买+散卖,8,0),COLOR880000;
STICKLINE(散卖>0,0,主买+主卖+散买+散卖,5,0),COLORaa0000;
STICKLINE(散卖>0,0,主买+主卖+散买+散卖,3,0),COLORcc0000;
STICKLINE(散卖>0,0,主买+主卖+散买+散卖,1,0),COLORee0000;
STICKLINE(散买>0,0,主买+主卖+散买,8,0),COLOR880088;
STICKLINE(散买>0,0,主买+主卖+散买,5,0),COLORaa00aa;
STICKLINE(散买>0,0,主买+主卖+散买,3,0),COLORcc00cc;
STICKLINE(散买>0,0,主买+主卖+散买,1,0),COLORee00ee;
STICKLINE(主卖>0,0,主买+主卖,8,0),COLOR008800;
STICKLINE(主卖>0,0,主买+主卖,5,0),COLOR00aa00;
STICKLINE(主卖>0,0,主买+主卖,3,0),COLOR00cc00;
STICKLINE(主卖>0,0,主买+主卖,1,0),COLOR00ee00;
STICKLINE(主买>0,0,主买,8,0),COLOR000088;
STICKLINE(主买>0,0,主买,5,0),COLOR0000aa;
STICKLINE(主买>0,0,主买,3,0),COLOR0000cc;
STICKLINE(主买>0,0,主买,1,0),COLOR0000ff;
AA:=if(c>(h+l)/2,je,0);
BB:=if(c<(h+l)/2,je,0);
F1:=sum(aa,5);
F2:=sum(bb,5);
F3:=ema(F1-F2,3);
T1:=主买>主卖 and cross(f3,ref(f3,1)) and f3<0;
T2:=主卖>主买 and cross(ref(f3,1),f3) and f3>0;
DRAWTEXT(T1,je*1.2,'+B'),COLOR00ffff;
DRAWTEXT(T2,je*1.2,'-S'),COLORffffff;
明天跑:STICKLINE(CROSS(((SMA(MAX(CLOSE - REF(CLOSE,1),0),7,1))/(SMA(ABS(CLOSE - REF(CLOSE,1)),7,1)))*(100),80),V/1.5,V,5,0),Color00FF00;

>