|
感谢前辈的源码 本人只是改编 需要雨杨版数据接收支持，其他版本不能使用
{神熬五线源码}
DRAWTEXTREL(50,10,' 代码: '+STKLABEL+' '+STKNAME+' 日期: '+YEAR+'年'+MONTH+'月 '+DAY+'日 '),linethick2,ColorFFFF80;
{引用}
DDX:="LX-DDX.DDX#day";
DDY:="LX-DDY.DDY#day";
DDZ:="LX-DDZ.DDZ#day";
LH:="LX-DDX.连红#day";
SH:="LX-DDX.拾红#day";
RSH:="LX-DDX.廿红#day";
LSH:="LX-DDX.陆拾红#day";
MRDS:="全景引用.买入单#day";
MCDS:="全景引用.卖出单#day";
ZLC:="全景引用.主力差#day";
TC:="全景引用.特单差#day";
DC:="全景引用.大单差#day";
ZC:="全景引用.中单差#day";
XC:="全景引用.小单差#day";
XN:="全景引用.小单买#day";
XM:="全景引用.小单卖#day";
ZN:="全景引用.中单买#day";
ZM:="全景引用.中单卖#day";
DN:="全景引用.大单买#day";
DM:="全景引用.大单卖#day";
TN:="全景引用.特单买#day";
TM:="全景引用.特单卖#day";
ZLN:="全景引用.主单买#day";
ZLM:="全景引用.主单卖#day";
SS:="全景引用.散持#day";
ZS:="全景引用.中持#day";
DS:="全景引用.大持#day";
CS:="全景引用.超持#day";
ZLS:="全景引用.主持#day";
ZJDN:="全景引用.动能#day";
LZZS:="全景引用.领涨指数#day";
ZHS:="全景引用.帐户数#day";
JHCG:="全景引用.均户持股#day";
ZHZJ:="全景引用.帐户增减#day";
JHCGZJ:="全景引用.均户持股增减#day";
{条件}
DSC:=MCDS-MRDS;
MDB:=MCDS/(MRDS+MCDS);
NDB:=MRDS/(MRDS+MCDS);
DSB:=MDB-NDB;
DPZS:=INDEXC;
DPZG:=INDEXH;
DPZD:=INDEXL;
{超赢}
HS:=(vol/capital);
XDN:=SUM((XN*AMOUNT/10000),0);
XDM:=SUM((XM*AMOUNT/10000),0);
XJ:=XDN-XDM;
XZ:=SUM(((vol/capital)*100*(XN-XM)),0);
ZDN:=SUM((ZN*AMOUNT/10000),0);
ZDM:=SUM((ZM*AMOUNT/10000),0);
ZJ:=ZDN-ZDM;
ZZ:=SUM(((vol/capital)*100*(ZN-ZM)),0);
DDN:=SUM((DN*AMOUNT/10000),0);
DDM:=SUM((DM*AMOUNT/10000),0);
DJ:=DDN-DDM;
DZ:=SUM(((vol/capital)*100*(DN-DM)),0);
TDN:=SUM((TN*AMOUNT/10000),0);
TDM:=SUM((TM*AMOUNT/10000),0);
TJ:=TDN-TDM;
TZ:=SUM(((vol/capital)*100*(TN-TM)),0);
ZLDN:=SUM((ZLN*AMOUNT/10000),0);
ZLDM:=SUM((ZLM*AMOUNT/10000),0);
ZLJ:=ZLDN-ZLDM;
ZLZ:=SUM(((vol/capital)*100*(ZLN-ZLM)),0);
{画柱图};
ZDZ:=300/(MAX(ZLDN,ZLDM,TDN,TDM,DDN,DDM,ZDN,ZDM,XDN,XDM,XJ,ZJ,DJ,TJ,ZLJ));
ZLNR:=380-(ZLDN*ZDZ);
ZLMC:=380-(ZLDM*ZDZ);
TNR:=380-(TDN*ZDZ);
TMC:=380-(TDM*ZDZ);
DNR:=380-(DDN*ZDZ);
DMC:=380-(DDM*ZDZ);
ZNR:=380-(ZDN*ZDZ);
ZMC:=380-(ZDM*ZDZ);
XNR:=380-(XDN*ZDZ);
XMC:=380-(XDM*ZDZ);
XJN:=380-(ABS(XJ)*ZDZ);
ZJN:=380-(ABS(ZJ)*ZDZ);
DJN:=380-(ABS(DJ)*ZDZ);
TJN:=380-(ABS(TJ)*ZDZ);
ZLJN:=380-(ABS(ZLJ)*ZDZ);
小股民:XJ,linethick1,COLORFFFFFF;
中户:ZJ,linethick1,colorGreen;
大户:DJ,linethick1,colorYellow;
机构:TJ,linethick1,ColorFF0000;
主力:ZLJ,linethick2,colorRed;
DRAWRECTREL(160,XNR,180,380,RGB(200,0,0)),COLOR000000,LAYER5;
DRAWRECTREL(180,XMC,200,380,RGB(0,200,0)),COLOR000000,LAYER5;
DRAWRECTREL(200,XJN,220,380,(IF((XJ >= 0),RGB(200,0,255),RGB(255,255,0)))),COLOR000000,LAYER5;
DRAWRECTREL(250,ZNR,270,380,RGB(200,0,0)),COLOR000000,LAYER5;
DRAWRECTREL(270,ZMC,290,380,RGB(0,200,0)),COLOR000000,LAYER5;
DRAWRECTREL(290,ZJN,310,380,(IF((ZJ >= 0),RGB(200,0,255),RGB(255,255,0)))),COLOR000000,LAYER5;
DRAWRECTREL(340,DNR,360,380,RGB(200,0,0)),COLOR000000,LAYER5;
DRAWRECTREL(360,DMC,380,380,RGB(0,200,0)),COLOR000000,LAYER5;
DRAWRECTREL(380,DJN,400,380,(IF((DJ >= 0),RGB(200,0,255),RGB(255,255,0)))),COLOR000000,LAYER5;
DRAWRECTREL(430,TNR,450,380,RGB(200,0,0)),COLOR000000,LAYER5;
DRAWRECTREL(450,TMC,470,380,RGB(0,200,0)),COLOR000000,LAYER5;
DRAWRECTREL(470,TJN,490,380,(IF((TJ >= 0),RGB(200,0,255),RGB(255,255,0)))),COLOR000000,LAYER5;
DRAWRECTREL(520,ZLNR,540,380,RGB(200,0,0)),COLOR000000,LAYER5;
DRAWRECTREL(540,ZLMC,560,380,RGB(0,200,0)),COLOR000000,LAYER5;
DRAWRECTREL(560,ZLJN,580,380,(IF((ZLJ >= 0),RGB(200,0,255),RGB(255,255,0)))),COLOR000000,LAYER5;
DRAWTEXTREL(120,400,'买入'),COLOR6600FF;
DRAWTEXTREL(120,480,'卖出'),ColorABFF46;
DRAWTEXTREL(120,560,'净买'),COLORFFFF00;
DRAWTEXTREL(140,240,'散'),COLORFFFFFF;
DRAWTEXTREL(140,320,'户'),COLORFFFFFF;
DRAWTEXTREL(160,400,NUMTOSTRN(XDN,2)),COLOR6600FF;
DRAWTEXTREL(160,480,NUMTOSTRN(XDM,2)),ColorABFF46;
DRAWTEXTREL(160,560,NUMTOSTRN(XJ,2)),COLORFFFFFF;
DRAWTEXTREL(230,240,'中'),colorGreen;
DRAWTEXTREL(230,320,'户'),colorGreen;
DRAWTEXTREL(250,400,NUMTOSTRN(ZDN,2)),COLOR6600FF;
DRAWTEXTREL(250,480,NUMTOSTRN(ZDM,2)),ColorABFF46;
DRAWTEXTREL(250,560,NUMTOSTRN(ZJ,2)),colorGreen;
DRAWTEXTREL(320,240,'大'),colorYellow;
DRAWTEXTREL(320,320,'户'),colorYellow;
DRAWTEXTREL(340,400,NUMTOSTRN(DDN,2)),COLOR6600FF;
DRAWTEXTREL(340,480,NUMTOSTRN(DDM,2)),ColorABFF46;
DRAWTEXTREL(340,560,NUMTOSTRN(DJ,2)),colorYellow;
DRAWTEXTREL(410,240,'特'),ColorFF0000;
DRAWTEXTREL(410,320,'大'),ColorFF0000;
DRAWTEXTREL(430,400,NUMTOSTRN(TDN,2)),COLOR6600FF;
DRAWTEXTREL(430,480,NUMTOSTRN(TDM,2)),ColorABFF46;
DRAWTEXTREL(430,560,NUMTOSTRN(TJ,2)),ColorFF0000;
DRAWTEXTREL(500,240,'主'),colorRed;
DRAWTEXTREL(500,320,'力'),colorRed;
DRAWTEXTREL(520,400,NUMTOSTRN(ZLDN,2)),COLOR6600FF;
DRAWTEXTREL(520,480,NUMTOSTRN(ZLDM,2)),ColorABFF46;
DRAWTEXTREL(520,560,NUMTOSTRN(ZLJ,2)),colorRed;
WP:=sum(if(DYNAINFO(23)*close,DYNAINFO(23),0),0)*0.003906;
NP:=sum(if(DYNAINFO(22)*close,DYNAINFO(22),0),0)*0.003906;
ZDL:=(WP-NP)/(NP+WP)*100;
TCL:=(ZLN-ZLM)*VOL/VOL*100;
{各单增减比例显示}
DRAWTEXTREL(120,640,'增减'),COLORFFFF00;
DRAWTEXTREL(160,640,NUMTOSTRN(XZ,2)+'%'),COLORFFFFFF;
DRAWTEXTREL(250,640,NUMTOSTRN(ZZ,2)+'%'),colorGreen;
DRAWTEXTREL(340,640,NUMTOSTRN(DZ,2)+'%'),colorYellow;
DRAWTEXTREL(430,640,NUMTOSTRN(TZ,2)+'%'),ColorFF0000;
DRAWTEXTREL(520,640,NUMTOSTRN(ZLZ,2)+'%'),colorRed;
DRAWTEXTREL(120,720,'持仓'),COLORFFFF00;
DRAWTEXTREL(160,720,NUMTOSTRN(SS,2)+'%'),COLORFFFFFF;
DRAWTEXTREL(250,720,NUMTOSTRN(ZS,2)+'%'),colorGreen;
DRAWTEXTREL(340,720,NUMTOSTRN(DS,2)+'%'),colorYellow;
DRAWTEXTREL(430,720,NUMTOSTRN(CS,2)+'%'),ColorFF0000;
DRAWTEXTREL(520,720,NUMTOSTRN(ZLS,2)+'%'),colorRed;
|
