通达信流通股东未加密选股指标公式源码

通达信流通股东未加密选股指标公式源码

源码正文：

DRAwrECTREL(0,0,360,650,RGB(0,64,128)){XG51};
DRAWTEXT_FIX(ISLAstBAR,0.0,0.0,0,'股东统计分析：'),COLORCYAN{XG51};
DRAWTEXT_FIX(ISLASTBAR,0.03,0.06,0,'1、前十大股东持股合计：'),COLORBLUE{XG51};
环比增减1:=(FINONE(245,0,0)-FINONE(245,0,1))/FINONE(245,0,1)*100{XG51};
HG111:=IF(环比增减1>0,VARCAT(VARCAT( '增加 ' ,VAR2STR( 环比增减1,2)),' %　'),IF(环比增减1<0,VARCAT(VARCAT( '减少 ' ,VAR2STR(-环比增减1,2)),' %　'),' ')){XG51};
HGH111:=STRCAT(STRCAT('占总股本 ',STRCAT(CON2STR(FINVALUE(245)/FINVALUE(238)*100,2),' %　')),STRCAT('占流通盘 ',STRCAT(CON2STR(FINVALUE(245)/FINVALUE(239)*100,2),' %　'))){XG51};
SDGDCGLXFX:=IF(FINONE(245,0,0)<FINONE(245,0,1) AND FINONE(245,0,1)<FINONE(245,0,2) AND FINONE(245,0,2)<FINONE(245,0,3),'连续三季度减少',IF(FINVALUE(245)>FINONE(245,0,1) AND FINONE(245,0,1)>FINONE(245,0,2) AND FINONE(245,0,2)>FINONE(245,0,3),'连续三季度增加','')){XG51};
DRAWTEXT_FIX(ISLASTBAR,0.05,0.12,0,HGH111),COLORBLUE{XG51};
DRAWTEXT_FIX(ISLASTBAR,0.05,0.18,0,STRCAT('较上期 ',STRCAT(HG111,SDGDCGLXFX))),COLORBLUE{XG51};
GDrslXZJFX:=IF(FINONE(242,0,0)<FINONE(242,0,1) AND FINONE(242,0,1)<FINONE(242,0,2) AND FINONE(242,0,2)<FINONE(242,0,3),'连续三季度减少',IF(FINVALUE(242)>FINONE(242,0,1) AND FINONE(242,0,1)>FINONE(242,0,2) AND FINONE(242,0,2)>FINONE(242,0,3),'连续三季度增加','')){XG51};
DRAWTEXT_FIX(ISLASTBAR AND ((FINVALUE(242)-FINONE(242,0,1))/FINONE(242,0,1))<=0,0.03,0.24,0,STRCAT('2、本期股东人数较上期减： ',STRCAT(CON2STR((FINVALUE(242)-FINONE(242,0,1))/FINONE(242,0,1)*100,2),STRCAT(' %，',GDRSLXZJFX)))),COLORLICYAN{XG51};
DRAWTEXT_FIX(ISLASTBAR AND ((FINVALUE(242)-FINONE(242,0,1))/FINONE(242,0,1))> 0,0.03,0.24,0,STRCAT('2、本期股东人数较上期增： ',STRCAT(CON2STR((FINVALUE(242)-FINONE(242,0,1))/FINONE(242,0,1)*100,2),STRCAT(' %，',GDRSLXZJFX)))),COLORLICYAN{XG51};
HGH222:=STRCAT(STRCAT('占总股本 ',STRCAT(CON2STR(FINVALUE(247)/FINVALUE(238)*100,2),' %　')),STRCAT('占流通盘 ',STRCAT(CON2STR(FINVALUE(247)/FINVALUE(239)*100,2),' %　'))){XG51};
JGCGLXZJFX:=IF(FINONE(247,0,0)<FINONE(247,0,1) AND FINONE(247,0,1)<FINONE(247,0,2) AND FINONE(247,0,2)<FINONE(247,0,3),'连续三季度减少',IF(FINVALUE(247)>FINONE(247,0,1) AND FINONE(247,0,1)>FINONE(247,0,2) AND FINONE(247,0,2)>FINONE(247,0,3),'连续三季度增加','')){XG51};
DRAWTEXT_FIX(ISLASTBAR,0.03,0.30,0,STRCAT('3、共 ',STRCAT(CON2STR(FINVALUE(246),0),STRCAT(' 家机构，共持有 ',STRCAT(CON2STR(FINVALUE(247)/10000,2),' 万股'))))),COLORCYAN{XG51};
DRAWTEXT_FIX(ISLASTBAR,0.05,0.36,0,HGH222),COLORCYAN{XG51};
DRAWTEXT_FIX(ISLASTBAR,0.05,0.42,0,STRCAT('增幅 ',STRCAT(CON2STR((FINONE(247,0,0)-FINONE(247,0,1))/FINONE(247,0,1)*100,2),STRCAT(' % ',JGCGLXZJFX)))),COLORCYAN{XG51};
环比增减3:=(FINONE(284,0,0)-FINONE(284,0,1))/FINONE(284,0,1)*100{XG51};
HG333:=IF(环比增减3>0,VARCAT(VARCAT( '增加 ' ,VAR2STR( 环比增减3,2)),' %　'),IF(环比增减3<0,VARCAT(VARCAT( '减少 ' ,VAR2STR(-环比增减3,2)),' %　'),' ')){XG51};
GJDCGLXFX:=IF(FINONE(284,0,0)<FINONE(284,0,1) AND FINONE(284,0,1)<FINONE(284,0,2) AND FINONE(284,0,2)<FINONE(284,0,3),'连续三季度减少',IF(FINVALUE(284)>FINONE(284,0,1) AND FINONE(284,0,1)>FINONE(284,0,2) AND FINONE(284,0,2)>FINONE(284,0,3),'连续三季度增加','')){XG51};
DRAWTEXT_FIX(ISLASTBAR,0.03,0.48,0,STRCAT('4、国家队持 ',STRCAT(CON2STR(FINVALUE(284),2),STRCAT(' 万股，占总股本 ',STRCAT(CON2STR(FINVALUE(284)*10000/FINVALUE(238)*100,2),' %　'))))),COLORRED{XG51};
DRAWTEXT_FIX(ISLASTBAR,0.05,0.54,0,STRCAT('较上期 ',STRCAT(HG333,GJDCGLXFX))),COLORRED{X*G_5~1*C*N*{};

通达信MACD水上低位飞吻主图未加密选股指标公式源码

源码正文：

dif:=ema(CLOSE,12)-Ema(CLOSE,26){XG51};
DEA:=EMA(DIF,9){XG51};
macd:=(DIF-DEA)*2,COLORstICK{XG51};
AA:=MacD>0 AND MACD<0.4 AND REF(MACD,1)>=0 AND REF(MACD,2)>=0{XG51};
BB:=DIF>=DEA AND DIF>0 AND DEA>0{XG51};
CC:=MACD>REF(MACD,1) AND REF(MACD,1)<REF(MACD,2) AND REF(MACD,2)<REF(MACD,3) AND REF(MACD,3)<REF(MACD,4) {XG51};
DD:=V/REF(V,1)>=2{XG51};
EE:=REF(MACD,1)>0 AND REF(MACD,2)>0{XG51};
FF:=MA(CLOSE, 250){XG51};
MID:=(3*CLOSE+LOW+OPEN+HIGH)/6{XG51};
牛线:=(20*MID+19*REF(MID,1)+18*REF(MID,2)+17*REF(MID,3)+16*REF(MID,4)+15*REF(MID,5)+14*REF(MID,6)+13*REF(MID,7)+12*REF(MID,8)+11*REF(MID,9)+10*REF(MID,10)+9*REF(MID,11)+8*REF(MID,12)+7*REF(MID,13)+6*REF(MID,14)+5*REF(MID,15)+4*REF(MID,16)+3*REF(MID,17)+2*REF(MID,18)+REF(MID,20))/210,COLORWHITE{XG51};
XX:= crOSS(C,牛线) AND C>REF(H,1){XG51};
DRAWTEXT(AA AND BB AND CC AND DD AND EE AND XX,L,'起爆'){X=G_5?1=C=N={};