通达信量化交易模型未加密选股指标公式源码

通达信量化交易模型未加密选股指标公式源码

源码正文：

阶段箱顶:=20{XG51};
阶段箱底:=10{XG51};
总网格数:=22{XG51};
建仓网格:=10{XG51};
可用资金:=100000{XG51};
手续费‰:=0.30{XG51};
WX:=VARP(C,0){XG51};
格幅%:=(1-POW(阶段箱底/阶段箱顶,1/总网格数))*100,{XG51};
箱顶:=阶段箱顶,POINTDOT,COLORWHITE{XG51};
箱底:=阶段箱底,POINTDOT,COLORCYAN{XG51};
建仓价:=阶段箱顶*POW((100-格幅%)/100,建仓网格)*IF(总网格数<建仓网格,WX,1),COLORmaGENTA,POINTDOT{XG51};
投入:=可用资金{XG51};
格均额:=可用资金/总网格数*(1-手续费‰/1000){XG51};
建仓量（手）:=INTPART((格均额*建仓网格/(阶段箱顶*POW((100-格幅%)/100,建仓网格)*IF(总网格数<建仓网格,WX,1)))/100);
建仓额:=建仓价*建仓量（手）*100{XG51};
余额:=投入-建仓额{XG51};
仓位%:=建仓额/投入*100{XG51};
箱顶1:=stRCAT('箱顶: ',CON2STR(箱顶,2)){XG51};
箱底1:=STRCAT(' 箱底: ',CON2STR(箱底,2)){XG51};
格幅1:=STRCAT(' 格幅%: ',CON2STR(格幅%,2)){XG51};
建仓价1:=STRCAT(' 建仓价: ',CON2STR(建仓价,2)),LINETHICK2{XG51};
建仓量（手）1:=STRCAT(' 建仓量(手): ',CON2STR(建仓量（手）,0)){XG51};
仓位1:=STRCAT(' 仓位%: ',CON2STR(仓位%,2)){XG51};
可用资金1:=STRCAT(' 可用资金: ',CON2STR(可用资金,0)){XG51};
格均额1:=STRCAT(' 格均额: ',CON2STR(格均额,0)){XG51};
建仓额1:=STRCAT(' 建仓额: ',CON2STR(建仓额,0)){XG51};
余额1:=STRCAT(' 余额: ',CON2STR(余额,0)){XG51};
建仓情况:=STRCAT('',STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(箱顶1,箱底1),格幅1),建仓价1),建仓量（手）1),仓位1),可用资金1),格均额1),建仓额1),余额1)){XG51};
DRAWTEXT_FIX(1,0,0,0,建仓情况),COLORBLUE{XG51};
M1:=阶段箱顶*POW((100-格幅%)/100,1)*IF(总网格数<1,WX,1){XG51};
M2:=阶段箱顶*POW((100-格幅%)/100,2)*IF(总网格数<2,WX,1){XG51};
M3:=阶段箱顶*POW((100-格幅%)/100,3)*IF(总网格数<3,WX,1){XG51};
M4:=阶段箱顶*POW((100-格幅%)/100,4)*IF(总网格数<4,WX,1){XG51};
M5:=阶段箱顶*POW((100-格幅%)/100,5)*IF(总网格数<5,WX,1){XG51};
M6:=阶段箱顶*POW((100-格幅%)/100,6)*IF(总网格数<6,WX,1){XG51};
M7:=阶段箱顶*POW((100-格幅%)/100,7)*IF(总网格数<7,WX,1){XG51};
M8:=阶段箱顶*POW((100-格幅%)/100,8)*IF(总网格数<8,WX,1){XG51};
M9:=阶段箱顶*POW((100-格幅%)/100,9)*IF(总网格数<9,WX,1){XG51};
M10:=阶段箱顶*POW((100-格幅%)/100,10)*IF(总网格数<10,WX,1){XG51};
M11:=阶段箱顶*POW((100-格幅%)/100,11)*IF(总网格数<11,WX,1){XG51};
M12:=阶段箱顶*POW((100-格幅%)/100,12)*IF(总网格数<12,WX,1){XG51};
M13:=阶段箱顶*POW((100-格幅%)/100,13)*IF(总网格数<13,WX,1){XG51};
M14:=阶段箱顶*POW((100-格幅%)/100,14)*IF(总网格数<14,WX,1){XG51};
M15:=阶段箱顶*POW((100-格幅%)/100,15)*IF(总网格数<15,WX,1){XG51};
M16:=阶段箱顶*POW((100-格幅%)/100,16)*IF(总网格数<16,WX,1){XG51};
M17:=阶段箱顶*POW((100-格幅%)/100,17)*IF(总网格数<17,WX,1){XG51};
M18:=阶段箱顶*POW((100-格幅%)/100,18)*IF(总网格数<18,WX,1){XG51};
M19:=阶段箱顶*POW((100-格幅%)/100,19)*IF(总网格数<19,WX,1){XG51};
M20:=阶段箱顶*POW((100-格幅%)/100,20)*IF(总网格数<20,WX,1){XG51};
M21:=阶段箱顶*POW((100-格幅%)/100,21)*IF(总网格数<21,WX,1){XG51};
M22:=阶段箱顶*POW((100-格幅%)/100,22)*IF(总网格数<22,WX,1){XG51};
M23:=阶段箱顶*POW((100-格幅%)/100,23)*IF(总网格数<23,WX,1){XG51};
M24:=阶段箱顶*POW((100-格幅%)/100,24)*IF(总网格数<24,WX,1){XG51};
M25:=阶段箱顶*POW((100-格幅%)/100,25)*IF(总网格数<25,WX,1){XG51};
M26:=阶段箱顶*POW((100-格幅%)/100,26)*IF(总网格数<26,WX,1){XG51};
M27:=阶段箱顶*POW((100-格幅%)/100,27)*IF(总网格数<27,WX,1){XG51};
M28:=阶段箱顶*POW((100-格幅%)/100,28)*IF(总网格数<28,WX,1){XG51};
M29:=阶段箱顶*POW((100-格幅%)/100,29)*IF(总网格数<29,WX,1){XG51};
M30:=阶段箱顶*POW((100-格幅%)/100,30)*IF(总网格数<30,WX,1){XG51};
M31:=阶段箱顶*POW((100-格幅%)/100,31)*IF(总网格数<31,WX,1){XG51};
M32:=阶段箱顶*POW((100-格幅%)/100,32)*IF(总网格数<32,WX,1){XG51};
M33:=阶段箱顶*POW((100-格幅%)/100,33)*IF(总网格数<33,WX,1){XG51};
M34:=阶段箱顶*POW((100-格幅%)/100,34)*IF(总网格数<34,WX,1){XG51};
M35:=阶段箱顶*POW((100-格幅%)/100,35)*IF(总网格数<35,WX,1){XG51};
M36:=阶段箱顶*POW((100-格幅%)/100,36)*IF(总网格数<36,WX,1){XG51};
M37:=阶段箱顶*POW((100-格幅%)/100,37)*IF(总网格数<37,WX,1){XG51};
M38:=阶段箱顶*POW((100-格幅%)/100,38)*IF(总网格数<38,WX,1){XG51};
M39:=阶段箱顶*POW((100-格幅%)/100,39)*IF(总网格数<39,WX,1){XG51};
M40:=阶段箱顶*POW((100-格幅%)/100,40)*IF(总网格数<40,WX,1){XG51};
M41:=阶段箱顶*POW((100-格幅%)/100,41)*IF(总网格数<41,WX,1){XG51};
M42:=阶段箱顶*POW((100-格幅%)/100,42)*IF(总网格数<42,WX,1){XG51};
M43:=阶段箱顶*POW((100-格幅%)/100,43)*IF(总网格数<43,WX,1){XG51};
M44:=阶段箱顶*POW((100-格幅%)/100,44)*IF(总网格数<44,WX,1){XG51};
M45:=阶段箱顶*POW((100-格幅%)/100,45)*IF(总网格数<45,WX,1){XG51};
M46:=阶段箱顶*POW((100-格幅%)/100,46)*IF(总网格数<46,WX,1){XG51};
M47:=阶段箱顶*POW((100-格幅%)/100,47)*IF(总网格数<47,WX,1){XG51};
M48:=阶段箱顶*POW((100-格幅%)/100,48)*IF(总网格数<48,WX,1){XG51};
M49:=阶段箱顶*POW((100-格幅%)/100,49)*IF(总网格数<49,WX,1){XG51};
M50:=阶段箱顶*POW((100-格幅%)/100,50)*IF(总网格数<50,WX,1);
DRAWTEXT_FIX(1,0,0.15,0,' 格价 首量 格量 格价 首量 格量 格价 首量 格量 格价 首量 格量 格价 首量 格量 格价 首量 格量 格价 首量 格量'),COLOR4080FF{XG51};
DRAWTEXT_FIX(1,0,0.30,0,STRCAT('',STRCAT(STRCAT('箱顶=',CON2STR(箱顶,2 )),STRCAT(' ',CON2STR(INTPART( 格均额*0/箱顶/100),0))))),COLORCYAN{XG51};
DRAWTEXT_FIX(1,0,0.43,0,STRCAT(' ',STRCAT(STRCAT(STRCAT('1=',CON2STR(M1,2 )),STRCAT(' ',CON2STR(INTPART( 格均额*1/M1/100),0))),STRCAT(' ',CON2STR(INTPART( 格均额/M1/100),0))))),COLOR4080FF{XG51};
DRAWTEXT_FIX(1,0,0.56,0,STRCAT(' ',STRCAT(STRCAT(STRCAT('2=',CON2STR(M2,2 )),STRCAT(' ',CON2STR(INTPART( 格均额*2/M2/100),0))),STRCAT(' ',CON2STR(INTPART( 格均额/M2/100),0))))),COLOR4080FF{XG51};
DRAWTEXT_FIX(1,0,0.69,0,STRCAT(' ',STRCAT(STRCAT(STRCAT('3=',CON2STR(M3,2 )),STRCAT(' ',CON2STR(INTPART( 格均额*3/M3/100),0))),STRCAT(' ',CON2STR(INTPART( 格均额/M3/100),0))))),COLOR4080FF{XG51};
DRAWTEXT_FIX(1,0,0.82,0,STRCAT(' ',STRCAT(STRCAT(STRCAT('4=',CON2STR(M4,2 )),STRCAT(' ',CON2STR(INTPART( 格均额*4/M4/100),0))),STRCAT(' ',CON2STR(INTPART( 格均额/M4/100),0))))),COLOR4080FF{XG51};
DRAWTEXT_FIX(1,0.085,0.30,0,STRCAT(' ',STRCAT(STRCAT(STRCAT('5=',CON2STR(M5,2 )),STRCAT(' ',CON2STR(INTPART( 格均额*5/M5/100),0))),STRCAT(' ',CON2STR(INTPART( 格均额/M5/100),0))))),COLOR4080FF{XG51};
DRAWTEXT_FIX(1,0.085,0.43,0,STRCAT(' ',STRCAT(STRCAT(STRCAT('6=',CON2STR(M6,2 )),STRCAT(' ',CON2STR(INTPART( 格均额*6/M6/100),0))),STRCAT(' ',CON2STR(INTPART( 格均额/M6/100),0))))),COLOR4080FF{XG51};
DRAWTEXT_FIX(1,0.085,0.56,0,STRCAT(' ',STRCAT(STRCAT(STRCAT('7=',CON2STR(M7,2 )),STRCAT(' ',CON2STR(INTPART( 格均额*7/M7/100),0))),STRCAT(' ',CON2STR(INTPART( 格均额/M7/100),0))))),COLOR4080FF{XG51};
DRAWTEXT_FIX(1,0.085,0.69,0,STRCAT(' ',STRCAT(STRCAT(STRCAT('8=',CON2STR(M8,2 )),STRCAT(' ',CON2STR(INTPART( 格均额*8/M8/100),0))),STRCAT(' ',CON2STR(INTPART( 格均额/M8/100),0))))),COLOR4080FF{XG51};
DRAWTEXT_FIX(1,0.085,0.82,0,STRCAT(' ',STRCAT(STRCAT(STRCAT('9=',CON2STR(M9,2 )),STRCAT(' ',CON2STR(INTPART( 格均额*9/M9/100),0))),STRCAT(' ',CON2STR(INTPART( 格均额/M9/100),0))))),COLOR4080FF{XG51};
DRAWTEXT_FIX(1,0.18,0.30,0,STRCAT(' ',STRCAT(STRCAT(STRCAT('10=',CON2STR(M10,2 )),STRCAT(' ',CON2STR(INTPART( 格均额*10/M10/100),0))),STRCAT(' ',CON2STR(INTPART( 格均额/M10/100),0))))),COLOR4080FF{XG51};
DRAWTEXT_FIX(1,0.18,0.43,0,STRCAT(' ',STRCAT(STRCAT(STRCAT('11=',CON2STR(M11,2 )),STRCAT(' ',CON2STR(INTPART( 格均额*11/M11/100),0))),STRCAT(' ',CON2STR(INTPART( 格均额/M11/100),0))))),COLOR4080FF{XG51};
DRAWTEXT_FIX(1,0.18,0.56,0,STRCAT(' ',STRCAT(STRCAT(STRCAT('12=',CON2STR(M12,2 )),STRCAT(' ',CON2STR(INTPART( 格均额*12/M12/100),0))),STRCAT(' ',CON2STR(INTPART( 格均额/M12/100),0))))),COLOR4080FF{XG51};
DRAWTEXT_FIX(1,0.18,0.69,0,STRCAT(' ',STRCAT(STRCAT(STRCAT('13=',CON2STR(M13,2 )),STRCAT(' ',CON2STR(INTPART( 格均额*13/M13/100),0))),STRCAT(' ',CON2STR(INTPART( 格均额/M13/100),0))))),COLOR4080FF{XG51};
DRAWTEXT_FIX(1,0.18,0.82,0,STRCAT(' ',STRCAT(STRCAT(STRCAT('14=',CON2STR(M14,2 )),STRCAT(' ',CON2STR(INTPART( 格均额*14/M14/100),0))),STRCAT(' ',CON2STR(INTPART( 格均额/M14/100),0))))),COLOR4080FF{XG51};
DRAWTEXT_FIX(1,0.28,0.30,0,STRCAT(' ',STRCAT(STRCAT(STRCAT('15=',CON2STR(M15,2 )),STRCAT(' ',CON2STR(INTPART( 格均额*15/M15/100),0))),STRCAT(' ',CON2STR(INTPART( 格均额/M15/100),0))))),COLOR4080FF{XG51};
DRAWTEXT_FIX(1,0.28,0.43,0,STRCAT(' ',STRCAT(STRCAT(STRCAT('16=',CON2STR(M16,2 )),STRCAT(' ',CON2STR(INTPART( 格均额*16/M16/100),0))),STRCAT(' ',CON2STR(INTPART( 格均额/M16/100),0))))),COLOR4080FF{XG51};
DRAWTEXT_FIX(1,0.28,0.56,0,STRCAT(' ',STRCAT(STRCAT(STRCAT('17=',CON2STR(M17,2 )),STRCAT(' ',CON2STR(INTPART( 格均额*17/M17/100),0))),STRCAT(' ',CON2STR(INTPART( 格均额/M17/100),0))))),COLOR4080FF{XG51};
DRAWTEXT_FIX(1,0.28,0.69,0,STRCAT(' ',STRCAT(STRCAT(STRCAT('18=',CON2STR(M18,2 )),STRCAT(' ',CON2STR(INTPART( 格均额*18/M18/100),0))),STRCAT(' ',CON2STR(INTPART( 格均额/M18/100),0))))),COLOR4080FF{XG51};
DRAWTEXT_FIX(1,0.28,0.82,0,STRCAT(' ',STRCAT(STRCAT(STRCAT('19=',CON2STR(M19,2 )),STRCAT(' ',CON2STR(INTPART( 格均额*19/M19/100),0))),STRCAT(' ',CON2STR(INTPART( 格均额/M19/100),0))))),COLOR4080FF{XG51};
DRAWTEXT_FIX(1,0.38,0.30,0,STRCAT(' ',STRCAT(STRCAT(STRCAT('20=',CON2STR(M20,2 )),STRCAT(' ',CON2STR(INTPART( 格均额*20/M20/100),0))),STRCAT(' ',CON2STR(INTPART( 格均额/M20/100),0))))),COLOR4080FF{XG51};
DRAWTEXT_FIX(1,0.38,0.43,0,STRCAT(' ',STRCAT(STRCAT(STRCAT('21=',CON2STR(M21,2 )),STRCAT(' ',CON2STR(INTPART( 格均额*21/M21/100),0))),STRCAT(' ',CON2STR(INTPART( 格均额/M21/100),0))))),COLOR4080FF{XG51};
DRAWTEXT_FIX(1,0.38,0.56,0,STRCAT(' ',STRCAT(STRCAT(STRCAT('22=',CON2STR(M22,2 )),STRCAT(' ',CON2STR(INTPART( 格均额*22/M22/100),0))),STRCAT(' ',CON2STR(INTPART( 格均额/M22/100),0))))),COLOR4080FF{XG51};
DRAWTEXT_FIX(1,0.38,0.69,0,STRCAT(' ',STRCAT(STRCAT(STRCAT('23=',CON2STR(M23,2 )),STRCAT(' ',CON2STR(INTPART( 格均额*23/M23/100),0))),STRCAT(' ',CON2STR(INTPART( 格均额/M23/100),0))))),COLOR4080FF{XG51};
DRAWTEXT_FIX(1,0.38,0.82,0,STRCAT(' ',STRCAT(STRCAT(STRCAT('24=',CON2STR(M24,2 )),STRCAT(' ',CON2STR(INTPART( 格均额*24/M24/100),0))),STRCAT(' ',CON2STR(INTPART( 格均额/M24/100),0))))),COLOR4080FF{XG51};
DRAWTEXT_FIX(1,0.48,0.30,0,STRCAT(' ',STRCAT(STRCAT(STRCAT('25=',CON2STR(M25,2 )),STRCAT(' ',CON2STR(INTPART( 格均额*25/M25/100),0))),STRCAT(' ',CON2STR(INTPART( 格均额/M25/100),0))))),COLOR4080FF{XG51};
DRAWTEXT_FIX(1,0.48,0.43,0,STRCAT(' ',STRCAT(STRCAT(STRCAT('26=',CON2STR(M26,2 )),STRCAT(' ',CON2STR(INTPART( 格均额*26/M26/100),0))),STRCAT(' ',CON2STR(INTPART( 格均额/M26/100),0))))),COLOR4080FF{XG51};
DRAWTEXT_FIX(1,0.48,0.56,0,STRCAT(' ',STRCAT(STRCAT(STRCAT('27=',CON2STR(M27,2 )),STRCAT(' ',CON2STR(INTPART( 格均额*27/M27/100),0))),STRCAT(' ',CON2STR(INTPART( 格均额/M27/100),0))))),COLOR4080FF{XG51};
DRAWTEXT_FIX(1,0.48,0.69,0,STRCAT(' ',STRCAT(STRCAT(STRCAT('28=',CON2STR(M28,2 )),STRCAT(' ',CON2STR(INTPART( 格均额*28/M28/100),0))),STRCAT(' ',CON2STR(INTPART( 格均额/M28/100),0))))),COLOR4080FF{XG51};
DRAWTEXT_FIX(1,0.48,0.82,0,STRCAT(' ',STRCAT(STRCAT(STRCAT('29=',CON2STR(M29,2 )),STRCAT(' ',CON2STR(INTPART( 格均额*29/M29/100),0))),STRCAT(' ',CON2STR(INTPART( 格均额/M29/100),0))))),COLOR4080FF{XG51};
DRAWTEXT_FIX(1,0.58,0.30,0,STRCAT(' ',STRCAT(STRCAT(STRCAT('30=',CON2STR(M30,2 )),STRCAT(' ',CON2STR(INTPART( 格均额*30/M30/100),0))),STRCAT(' ',CON2STR(INTPART( 格均额/M30/100),0))))),COLOR4080FF{XG51};
DRAWTEXT_FIX(1,0.58,0.43,0,STRCAT(' ',STRCAT(STRCAT(STRCAT('31=',CON2STR(M31,2 )),STRCAT(' ',CON2STR(INTPART( 格均额*31/M31/100),0))),STRCAT(' ',CON2STR(INTPART( 格均额/M31/100),0))))),COLOR4080FF{XG51};
DRAWTEXT_FIX(1,0.58,0.56,0,STRCAT(' ',STRCAT(STRCAT(STRCAT('32=',CON2STR(M32,2 )),STRCAT(' ',CON2STR(INTPART( 格均额*32/M32/100),0))),STRCAT(' ',CON2STR(INTPART( 格均额/M32/100),0))))),COLOR4080FF{XG51};
DRAWTEXT_FIX(1,0.58,0.69,0,STRCAT(' ',STRCAT(STRCAT(STRCAT('33=',CON2STR(M33,2 )),STRCAT(' ',CON2STR(INTPART( 格均额*33/M33/100),0))),STRCAT(' ',CON2STR(INTPART( 格均额/M33/100),0))))),COLOR4080FF{XG51};
DRAWTEXT_FIX(1,0.58,0.82,0,STRCAT(' ',STRCAT(STRCAT(STRCAT('34=',CON2STR(M34,2 )),STRCAT(' ',CON2STR(INTPART( 格均额*34/M34/100),0))),STRCAT(' ',CON2STR(INTPART( 格均额/M34/100),0))))),COLOR4080FF{XG51};
DRAWTEXT_FIX(1,0.68,0.30,0,STRCAT(' ',STRCAT(STRCAT(STRCAT('35=',CON2STR(M35,2 )),STRCAT(' ',CON2STR(INTPART( 格均额*35/M35/100),0))),STRCAT(' ',CON2STR(INTPART( 格均额/M35/100),0))))),COLOR4080FF{XG51};
DRAWTEXT_FIX(1,0.68,0.43,0,STRCAT(' ',STRCAT(STRCAT(STRCAT('36=',CON2STR(M36,2 )),STRCAT(' ',CON2STR(INTPART( 格均额*36/M36/100),0))),STRCAT(' ',CON2STR(INTPART( 格均额/M36/100),0))))),COLOR4080FF{XG51};
DRAWTEXT_FIX(1,0.68,0.56,0,STRCAT(' ',STRCAT(STRCAT(STRCAT('37=',CON2STR(M35,2 )),STRCAT(' ',CON2STR(INTPART( 格均额*37/M37/100),0))),STRCAT(' ',CON2STR(INTPART( 格均额/M37/100),0))))),COLOR4080FF{XG51};
DRAWTEXT_FIX(1,0.68,0.69,0,STRCAT(' ',STRCAT(STRCAT(STRCAT('38=',CON2STR(M36,2 )),STRCAT(' ',CON2STR(INTPART( 格均额*38/M38/100),0))),STRCAT(' ',CON2STR(INTPART( 格均额/M38/100),0))))),COLOR4080FF{XG51};
DRAWTEXT_FIX(1,0.68,0.82,0,STRCAT(' ',STRCAT(STRCAT(STRCAT('39=',CON2STR(M35,2 )),STRCAT(' ',CON2STR(INTPART( 格均额*39/M39/100),0))),STRCAT(' ',CON2STR(INTPART( 格均额/M39/100),0))))),COLOR4080FF{X!G~5=1!C!N!{};

通达信2015年巅峰主图未加密选股指标公式源码

源码正文：

上涨家数:=INDEXADV,COLOR0080FF,NODRAW{XG51};
下跌家数:=INDEXDEC,COLORCYAN,NODRAW{XG51};
今日人气:=上涨家数/下跌家数{XG51};
YM:ema(SLOPE((CLOSE+HIGH+LOW)/3,24)*20+(CLOSE+HIGH+LOW)/3,48),COLORWHITE,LINETHICK1;
YM1:=Ema(YM,5),COLORWHITE,LINETHICK1{XG51};
YM2:=EMA(YM1,5),COLORWHITE,LINETHICK1{XG51};
IF(YM>=YM2,YM,DRAWNULL),LINETHICK1,COLORWHITE{XG51};
IF(YM>=YM2,YM1,DRAWNULL),LINETHICK1,COLORWHITE{XG51};
IF(YM<=YM2,YM,DRAWNULL),LINETHICK1,COLORCYAN{XG51};
IF(YM<=YM2,YM1,DRAWNULL),LINETHICK1,COLORCYAN{X_G_5.1_C_N_{};