大智慧新版中的一二（原版，原码）未加密选股指标公式源码

大智慧新版中的指标一二（原版，原码）

一、跳空缺口：

{向下跳空缺口}
I1:=0{XG51};
flag1:=0{XG51};
while I1<BArslAST(DISPSTATUS=1)-BARSLAST(DISPSTATUS=2)
DO{XG51};
 IF REF(H,I1)<REF(L,I1+1) AND REF(L,I1+1)>HHV(H,I1+1)
  THEN BEGIN FLAG1:=1{XG51};
         S1:=I1{XG51};
         I1:=BARSLAST(DISPSTATUS=1);        {XG51};
     END
 ELSEI1:=I1+1;    {XG51};
STICKLINE(FLAG1,REF(L,S1+1),HHV(H,S1+1),(s1+1)*20,0),ColorC0C0C0,ALIGN1,LAYER7{XG51};
DRAWTEXT(flag1,REF(L,s1+1),NUMTOSTRN(ref(l,s1+1),2)+'-'+NUMTOSTRN(hhV(h,S1+1),2)),ALIGN2,COLORgreen{XG51};

{向上跳空缺口}
I:=0{XG51};
flag:=0{XG51};
while I<BARSLAST(DISPSTATUS=1)-BARSLAST(DISPSTATUS=2)
DO{XG51};
 IF REF(L,I)>REF(H,I+1) AND REF(H,I+1)<LLV(LOW,I+1)
  THEN BEGIN FLAG:=1{XG51};
         S:=I{XG51};
         I:=BARSLAST(DISPSTATUS=1);        {XG51};
     END
 ELSEI:=I+1;    {XG51};
STICKLINE(FLAG,REF(h,S+1),LLV(LOW,S+1),20*(s+1),500),ColorC0C0C0,ALIGN1,LAYER7{XG51};
DRAWTEXT(FLAG,REF(H,s+1),NUMTOSTRN(ref(h,s+1),2)+'-'+NUMTOSTRN(LLV(LOW,S+1),2)),ALIGN2,COLORred{XG51};

二、封板率

rd:=REQSE( 'maRKETTREND_MIN_FBL_SH000001','/markettrend/index/min?obj=SH000001&field=ShiJian,ZuiXinJiaDengYuZhangTingJiaShu,ZuiGaoJiaDengYuZhangTingJiaShu&output=pb&sub=1',1002 ){XG51};

股票数:=stkindi('SH000001','涨跌家数.上涨家数#MIN1')+stkindi('SH000001','涨跌家数.下跌家数#MIN1')+stkindi('SH000001','涨跌家数.平盘家数#MIN1')+stkindi('SZ399001','涨跌家数.上涨家数#MIN1')+stkindi('SZ399001','涨跌家数.下跌家数#MIN1')+stkindi('SZ399001','涨跌家数.平盘家数#MIN1'){XG51};
封板家数:FINDSE( 'MARKETTREND_MIN_FBL_SH000001','ZuiXinJiaDengYuZhangTingJiaShu'),colorred,linethick0{XG51};
触及涨停:FINDSE( 'MARKETTREND_MIN_FBL_SH000001','ZuiGaoJiaDengYuZhangTingJiaShu'),color4169E1,linethick0{XG51};
rd2:=REQSE( 'MARKETTREND_MIN_FBL_SZ399001','/markettrend/index/min?obj=SZ399001&field=ShiJian,ZuiXinJiaDengYuZhangTingJiaShu,ZuiGaoJiaDengYuZhangTingJiaShu&output=pb&sub=1',1002 ){XG51};
打开家数:触及涨停-封板家数,precis0,colorFF5252,linethick0{XG51};
封板率:封板家数/触及涨停*100{XG51};
partline(封板率,封板率<50,rgb(0,255,0),封板率>=50 and 封板率<60,rgb(255,255,255),封板率>60,rgb(255,0,0)){XG51};
强弱系数:封板家数/股票数*10000,linethick0{XG51};
70,dotline,colorred{XG51};
60,dotline,colorwhite{XG51};
50,dotline,colorgreen;

{*W_W_W!X*G.5_1~C~N~{?}

通达信红豆量公式

源码正文：

亿:AMOUNT/100000000,COLORFF00FF,NODRAW{XG51};
VAR1:=AMOUNT/((HIGH-LOW)*2-Abs(CLOSE-OPEN)){XG51};
流入亿:IF(CLOSE>OPEN,VAR1*(HIGH-LOW),IF(CLOSE<OPEN,VAR1*((HIGH-OPEN)+ (CLOSE-
LOW)),AMOUNT/2.1))/100000000,COLORWHITE,NODRAW{XG51};
流出亿:IF(CLOSE>OPEN,0-VAR1*((HIGH-CLOSE)+(OPEN- LOW)),IF(CLOSE<OPEN,0-VAR1*(HIGH-
LOW),0-AMOUNT/1.9))/100000000,COLOR00FF00,NODRAW{XG51};
额亿:流入亿+流出亿,COLORFFFF00,NODRAW{XG51};
YUWEI:=MA(CLOSE,1)-MA(CLOSE,12),NODRAW{XG51};
STICKLINE(YUWEI>0 AND YUWEI>REF(YUWEI,1
),0,YUWEI,3.6,0)COLOR0D0C6A;  
STICKLINE(YUWEI>0 AND YUWEI>REF(YUWEI,1),0,YUWEI,3,0)COLOR0D06AA;  
STICKLINE(YUWEI>0 AND YUWEI>REF(YUWEI,1),0,YUWEI,1.5,0)COLOR2108C1{XG51};
STICKLINE(YUWEI>0 AND YUWEI>REF(YUWEI,1),0,YUWEI,0.5,0)COLOR9F5DFF;  
STICKLINE(YUWEI>0 AND YUWEI<REF(YUWEI,1),0,YUWEI,3.6,0)COLOR22736F;  
STICKLINE(YUWEI>0 AND YUWEI<REF(YUWEI,1),0,YUWEI,3,0)COLOR22AAD5;  
STICKLINE(YUWEI>0 AND YUWEI<REF(YUWEI,1),0,YUWEI,1.5,0)COLOR10C7BF{XG51};
STICKLINE(YUWEI>0 AND YUWEI<REF(YUWEI,1),0,YUWEI,0.5,0)COLOR80FFFF;  
STICKLINE(YUWEI<0 AND YUWEI<REF
(YUWEI,1),0,YUWEI,3.6,0)COLOR1B7411;  
STICKLINE(YUWEI<0 AND YUWEI<REF(YUWEI,1),0,YUWEI,3,0)COLOR17A715{XG51};
STICKLINE(YUWEI<0 AND YUWEI<REF(YUWEI,1),0,YUWEI,1.5,0)COLOR08D306{XG51};
STICKLINE(YUWEI<0 AND YUWEI<REF(YUWEI,1),0,YUWEI,0.5,0)COLOR40FF00{XG51};
STICKLINE(YUWEI<0 AND YUWEI>REF(YUWEI,1),0,YUWEI,3.6,0)COLOR080E71{XG51};
STICKLINE(YUWEI<0 AND YUWEI>REF(YUWEI,1),0,YUWEI,3,0)COLOR0B0E8C{XG51};
STICKLINE(YUWEI<0 AND YUWEI>REF(YUWEI,1),0,YUWEI,1.5,0)COLOR0905B0{XG51};
STICKLINE(YUWEI<0 AND YUWEI>REF(YUWEI,1),0,YUWEI,0.5,0)COLOR0204F2{XG51};
STICKLINE(YUWEI>0 AND YUWEI>REF(
YUWEI,1)*2,0,YUWEI,3.6,0),COLOR3F00FF{XG51};
STICKLINE(YUWEI>0 AND YUWEI>REF(YUWEI,1)*2,0,YUWEI,3,0),COLORFf10FF{XG51};
STICKLINE(YUWEI>0 AND YUWEI>REF(YUWEI,1)*2,0,YUWEI,1.5,0),COLORFF50FF{XG51};
STICKLINE(YUWEI>0 AND YUWEI>REF(YUWEI,1)*2,0,YUWEI,0.3,0),COLORFF80FF{XG51};
DRAWTEXT(crOSS(0,YUWEI),0.1,'卖')COLOR00FF00{XG51};
DRAWTEXT(CROSS(YUWEI,0),-0.1,'买') COLORDD00FF,LINETHICK3{XG51};
红豆:YUWEI,LINETHICK{X!G+5_1!C!N!{};