通达信大资金仓位主图源码

AA:=IF(DYNAINFO(8)>0.01,0.01*DYNAINFO(10)/DYNAINFO(8),DYNAINFO(3));

BB:=(DYNAINFO(5)<0.01 || DYNAINFO(6)<0.01);

DD:=IF(BB,1,(AA<(DYNAINFO(5)+0.01) && AA>(DYNAINFO(6)-0.01)));

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));

T2:IF(DD,0.01*EXPMA(AMOUNT,9)/EXPMA(VOL,9),EMA((H+L+O+2*C)/5,9));

T3:IF(DD,0.01*EXPMA(AMOUNT,17)/EXPMA(VOL,17),EMA((H+L+O+2*C)/5,17));

R:=IF(C>350,34,21);

A9:=ABS(CB-MA(CB,R))/MA(CB,R),NODRAW;

JJ:=IF(C>350,DMA(CB,A9)*0.97,DMA(CB,A9));

AAA:=SAR(13,2,20);

操盘线:IF(C>350,MA(T1,3),EMA((T1+T2)/2,2)),LINETHICK2,COLORWHITE;

GW:=IF((C>操盘线 AND C<JJ) OR (C>JJ AND C<操盘线),1,0);

持股1:=IF(GW=0 AND C>操盘线,C,DRAWNULL);

观望1:=IF(GW=1,C,DRAWNULL);

持币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);

TB1:=IF(系数>1.5,1,0);

TB2:=IF(系数>1.2 AND 系数<1.5,1,0);

TB3:=IF(系数>=1.0 AND 系数<1.2,1,0);

TS1:=IF(系数<0.995,1 AND 系数>0.8,0);

TS2:=IF(系数<0.8 AND 系数>0.5,1,0);

TS3:=IF(系数<0.5,1,0);

放量1:STICKLINE(TB1=1,O,C,0.8,0),COLORRED;

放量2:STICKLINE(TB2=1,O,C,0.8,0),COLORFF00FF;

放量3:STICKLINE(TB3=1 ,O,C,0.8,0),COLOR0099FF;

缩量1:STICKLINE(TS1=1,O,C,0.8,1),COLORYELLOW;

缩量2:STICKLINE(TS2=1,O,C,0.8,1),COLORBLUE;

缩量3:STICKLINE(TS3=1,O,C,0.8,1),COLORGREEN;

上轨:JJ*1.12,COLORLIBLUE,LINETHICK2;

中轨:JJ,COLORLIGRAY,LINETHICK2;

下轨:JJ*0.88,COLORLICYAN,LINETHICK2;

持股线:IF(C>=AAA,操盘线,DRAWNULL),LINETHICK2,COLORLIRED;

持币线:IF(C<AAA,操盘线,DRAWNULL),LINETHICK2,COLORGREEN;

曙光初现:=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);

STICKLINE(曙光初现,L,H,0.5,0),COLORWHITE;

R1:=EMA(EMA(CLOSE,9),6);

控盘:=(R1-REF(R1,1))/REF(R1,1)*500;

R2:=100*WINNER(CLOSE*0.95);

拉升钱袋: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);

粘合上穿:=MAX(MAX(T1,T2),T3)/MIN(MIN(T1,T2),T3)<1.025 AND CROSS(T1,MAX(T2,T3));

DRAWTEXT(粘合上穿 AND (T1+T2+T3)>REF(T1+T2+T3,1),L*0.97,'注意'),COLOR0099FF;