大智慧趋势成本未加密选股指标公式源码

大智慧趋势成本未加密选股指标公式源码

源码正文：

input:y(2011,1991,2099),m(6,1,12),d(30,1,31),y1(2011,1992,2099),m1(9,1,12),d1(31,1,31),y2(2011,1992,2099),m2(9,1,12),d2(31,1,31){XG51};
成交额:AMOUNT/10000000,COLORb400ff{XG51};
stICKLINE(成交额,成交额,0,6,0),COLORBROWN{XG51};
mm:=(y-1900)*10000+m*100+d{XG51};
mb:=(y1-1900)*10000+m1*100+d1{XG51};
mn:=(y2-1900)*10000+m2*100+d2{XG51};
zz:=LAST(DATE>mm)+1{XG51};
zb:=LAST(DATE>mb)+1{XG51};
zc:=LAST(DATE>mn)+1{XG51};
VERTLINE(zz=2,1),COLORgreen{XG51};
VERTLINE(zb=2,1),COLORffffff{XG51};
VERTLINE(zc=2,1),COLORFFFF00{XG51};
个股季:=ref(sum(AMOUNT,zz-zb)/sum(vol*100,zz-zb),zb){XG51};
个股今:=ref(sum(AMOUNT,zb-zc)/sum(VOL*100,zb-zc),zc){XG51};
指数季:=ref(ma(c,zz-zb),zb){XG51};
指数今:=ref(ma(c,zb-zc),zc){XG51};
if zb>1 then begin 季区间成本:if(CATEGORY=1,个股季,指数季),COLORFFFFFF,LINETHICK0;end{XG51};
if zc>1 then begin 今区间成本:if(CATEGORY=1,个股今,指数今),COLORFFFFFF,LINETHICK0;end{XG51};
季区间换手:=ref(SUM(VOL,zz-zb)/CAPITAL*100,zb){XG51};
今区间换手:=ref(SUM(VOL,zb-zc)/CAPITAL*100,zc){XG51};
if zb>1 then begin 季区间换手％:if(CATEGORY=1,季区间换手,指数季),COLORFFFF00,LINETHICK0;end{XG51};
if zc>1 then begin 今区间换手％:if(CATEGORY=1,今区间换手,指数今),COLORFFFF00,LINETHICK0;end{XG51};
DRAWTEXT(zz=2,(LLVALL(HIGH)+HHVALL(HIGH))/2,'起点'),LINETHICK3,ALIGN1,COLORgreen{XG51};
DRAWTEXT(zb=2,(LLVALL(HIGH)+HHVALL(HIGH))/2,'中点'),LINETHICK3,ALIGN1,COLORffffff{XG51};
DRAWTEXT(zc=2,(LLVALL(HIGH)+HHVALL(HIGH))/2,'终点'),LINETHICK3,ALIGN1,COLORFFFF00{XG51};
drawtextAbs(700,10,'●季区间成本 '+NUMTOSTRN(季区间成本,2)+'元'),colorffFFff{XG51};
drawtextABS(960,10,'●今区间成本 '+NUMTOSTRN(今区间成本,2)+'元'),colorffFFff{XG51};
drawtextABS(700,25,'●季区间换手 '+NUMTOSTRN(季区间换手％,1)+'%'),colorffFF00{XG51};
drawtextABS(960,25,'●今区间换手 '+NUMTOSTRN(今区间换手％,1)+'%'),colorffFF00{XG51};
VAR1:=(CLOSE-LLV(LOW,60))/(HHV(HIGH,60)-LLV(LOW,60))*80{XG51};
A:SMA(VAR1,7,1),LINETHICK1,COLOR00FFFF{XG51};
VAR2:=SMA(A,5,1){XG51};
B:IF(crOSS(A,VAR2) AND CROSS(MA(C,5),MA(C,13) AND A>50) ,VAR2*2,VAR2),COLORBLUE{XG51};
PARTLINE(B,B>REF(B,1),RGB(255,0,0),B<REF(B,1),RGB(0,255,0)),LINETHICK2{XG51};
DRAWTEXT(CROSS(B,A) ,B,'止赢!!'),color0000ff{XG51};
DRAWTEXT(CROSS(A,B) ,A,'买'),color00ffff{XG51};
出局:ref(A,BArslAST(cross(ref(A,3),A))+1),POINTDOT,colorD3A9FF,LINETHICK2{XG51};
增仓大股东:="笑看庄舞.增仓大股东数#day"{XG51};
减仓大股东:="笑看庄舞.减仓大股东数#day"{XG51};
新进大股东:="笑看庄舞.新进大股东数#day"{XG51};
未变大股东:="笑看庄舞.未变大股东数#day"{XG51};
DRAWTEXTabs(700,45,'●年报增仓大股东:'+NUMTOSTRN(增仓大股东,0) +'★'+'减仓大股东:'+NUMTOSTRN(减仓大股东,0) +'◆'+'新进大股东:'+NUMTOSTRN(新进大股东,0) +'★'+'未变大股东:'+NUMTOSTRN(未变大股东,0)),color00ffff{XG51};
DRAWTEXTABS(150,20,'●二季前10流占 '+NUMTOSTRN(PFFINON(4252,2011,0630),2)+'%'),COLOR00FFFF{XG51};
DRAWTEXTABS(450,20,'●三季前10流占 '+NUMTOSTRN(PFFINON(4252,2011,0930),2)+'%'),COLOR00FF00{XG51};
DRAWTEXTABS(700,60,'●年报前10流占 '+NUMTOSTRN(PFFINON(4252,2011,1231),2)+'%'),COLOR0098FF{XG51};
二季合计持股:=PFFINON(4251,2011,0630)/10000{XG51};
三季合计持股:=PFFINON(4251,2011,0930)/10000{XG51};
年报合计持股:=PFFINON(4251,2011,1231)/10000{XG51};
三季前十增减％:=(三季合计持股-二季合计持股)/二季合计持股*100{XG51};
DRAWTEXTABS(450,45,'★三季前十流通股东合计持股变化率:'+NUMTOSTRN(三季前十增减％,2)+'%'),ColorffffFF{XG51};
年报前十增减％:=(年报合计持股-三季合计持股)/三季合计持股*100{XG51};
DRAWTEXTABS(700,80,'★年报前十流通股东合计持股变化率:'+NUMTOSTRN(年报前十增减％,2)+'%'),ColorffffFF{X+G*5=1+C+N+{};

大智慧主力异动未加密选股指标公式源码

源码正文：

jj:=(HIGH+LOW+CLOSE)/3{XG51};
qj0:=vol/IF(HIGH=LOW,4,HIGH-LOW){XG51};
qj1:=qj0*(MIN(OPEN,CLOSE)-LOW){XG51};
qj2:=qj0*(jj-MIN(CLOSE,OPEN)){XG51};
qj3:=qj0*(HIGH-maX(OPEN,CLOSE)){XG51};
qj4:=qj0*(MAX(CLOSE,OPEN)-jj){XG51};
AAA:((qj1+qj2)-(qj3+qj4))/((qj1+qj2)+(qj3+qj4))*100*17,LINETHICK0{XG51};
异动:=abs(ma(AAA,10)){XG51};
A0:=IF(异动>=120,异动,0);B0:=IF(异动<120,异动,0){XG51};
stICKLINE(A0,0,A0,8.10,1),COLOR000099{XG51};
STICKLine(B0,0,B0,8.10,1),colorgreen{XG51};
五天异动z:COUNT(A0,5),PRECIS0,coloryellow{XG51};
十天异动z:COUNT(A0,10),PRECIS0,COLORLIMAGENTA{X+G_5-1+C+N+{};