通达信仓位主图选股指标公式源码

通达信仓位主图选股指标公式源码

源码正文：

AA:=IF(DYNAINFO(8)>0.01,0.01*DYNAINFO(10)/DYNAINFO(8),DYNAINFO(3)){XG51};
BB:=(DYNAINFO(5)<0.01 || DYNAINFO(6)<0.01){XG51};
DD:=IF(BB,1,(AA<(DYNAINFO(5)+0.01) && AA>(DYNAINFO(6)-0.01))){XG51};
CB:=IF(DD,AMOUNT/vol/100,(HIGH+LOW+OPEN+2*CLOSE)/5);T1:IF(DD,0.01*expma(AMOUNT,3)/EXPma(VOL,3),ema((H+L+O+2*C)/5,3)){XG51};
T2:IF(DD,0.01*EXPMA(AMOUNT,9)/EXPMA(VOL,9),EMA((H+L+O+2*C)/5,9)){XG51};
T3:IF(DD,0.01*EXPMA(AMOUNT,17)/EXPMA(VOL,17),EMA((H+L+O+2*C)/5,17)){XG51};
R:=IF(C>350,34,21){XG51};
A9:=Abs(CB-MA(CB,R))/MA(CB,R),NODRAW{XG51};
JJ:=IF(C>350,dma(CB,A9)*0.97,DMA(CB,A9)){XG51};
AAA:=SAR(13,2,20){XG51};
操盘线:IF(C>350,MA(T1,3),EMA((T1+T2)/2,2)),LINETHICK2,COLORRED{XG51};
GW:=IF((C>操盘线 AND C<JJ) OR (C>JJ AND C<操盘线),1,0);
持股1:=IF(GW=0 AND C>操盘线,C,DRAWNULL){XG51};
观望1:=IF(GW=1,C,DRAWNULL){XG51};
持币1:=IF(GW=0 AND C<操盘线,C,DRAWNULL);
仓位%:IF(持股1=C AND C>REF(C,1)*1.035,100,IF(持股1=C AND C>=REF(C,1) AND
C<REF(C,1)*1.035,85,IF(持股1=C AND C<=REF(C,1),75,IF(观望1=C AND C>=REF(C,1)*1.025,50,
IF(观望1=C AND C<REF(C,1)*1.025,35,IF(持币1=C AND C>REF(C,1)*1.02,20,
IF(持币1=C AND C<REF(C,1)*1.02 AND C>REF(C,1),10,0))))))),COLOR0099FF,NODRAW;  
系数:=VOL/MA(VOL,21){XG51};
TB1:=IF(系数>1.5,1,0);
TB2:=IF(系数>1.2 AND 系数<1.5,1,0){XG51};
TB3:=IF(系数>=1.0 AND 系数<1.2,1,0){XG51};
TS1:=IF(系数<0.995,1 AND 系数>0.8,0);
TS2:=IF(系数<0.8 AND 系数>0.5,1,0){XG51};
TS3:=IF(系数<0.5,1,0){XG51};
放量1:stICKLINE(TB1=1,O,C,0.8,0),COLORWHITE;
放量2:STICKLINE(TB2=1,O,C,0.8,0),COLORFF00FF{XG51};
放量3:STICKLINE(TB3=1 ,O,C,0.8,0),COLOR0099FF{XG51};
缩量1:STICKLINE(TS1=1,O,C,0.8,1),COLORBLUE{XG51};
缩量2:STICKLINE(TS2=1,O,C,0.8,1),COLORYELLOW{XG51};
缩量3:STICKLINE(TS3=1,O,C,0.8,1),COLORCYAN{XG51};
上轨:JJ*1.12,COLORLIGREEN,LINETHICK2;
中轨:JJ,COLORBLACK,LINETHICK2{XG51};
下轨:JJ*0.88,COLORLIRED,LINETHICK2{XG51};
持股线:IF(C>=AAA,操盘线,DRAWNULL),LINETHICK2,COLORLICYAN;
持币线:IF(C<AAA,操盘线,DRAWNULL),LINETHICK2,COLORCYAN{XG51};
曙光初现:=BacKSET(REF(C,1)/REF(O,1)<0.97 AND C/O>1.03 AND O<REF(C,1) AND C>REF(C,1),2){XG51};
STICKLINE(曙光初现,L,H,0.5,0),COLORRED;
R1:=EMA(EMA(CLOSE,9),6){XG51};
控盘:=(R1-REF(R1,1))/REF(R1,1)*500{XG51};
R2:=100*WINNER(CLOSE*0.95){XG51};
拉升钱袋:DRAWICON(((C>O OR C>REF(C,1)*1.05) AND R2>45
AND COST(80)<CLOSE AND 控盘>0 AND 控盘>REF(控盘,1) AND C>REF(C,1)),L*0.96,9){XG51};
粘合上穿:=MAX(MAX(T1,T2),T3)/MIN(MIN(T1,T2),T3)<1.025 AND crOSS(T1,MAX(T2,T3)){XG51};
DRAWTEXT(粘合上穿 AND (T1+T2+T3)>REF(T1+T2+T3,1),L*0.97,'注意'),COLOR0099FF{X_G~5_1_C_N_{};