通达信〖财务动量情绪〗筹码线和成立线可辅助判断支撑主图源码

DRAWTEXT_FIX(1,0.005,0,0,'所属风格:'),COLORYELLOW;
DRAWTEXT_FIX(1,0.06,0,0,FGBLOCK),COLORYELLOW;
DRAWTEXT_FIX(1,0.005,0.05,0,'所属概念:'),COLORMAGENTA;
DRAWTEXT_FIX(1,0.06,0.05,0,GNBLOCK),COLORYELLOW;
VA1:=REF(CLOSE,1);
VA2:=VA1*1.1-CLOSE<0.01 AND HIGH=CLOSE AND IF(CODELIKE('1') OR CODELIKE('2'),0,1) OR (VA1*1.2-CLOSE<0.01 AND HIGH=CLOSE AND IF(CODELIKE('1') OR CODELIKE('2'),1,0));
VA14:=CON2STR(FINANCE(1)/100000000,2);
VA15:=STRCAT('总股本：',VA14);
VA16:=CON2STR(FINANCE(44),2);
VA17:=STRCAT(STRCAT('收入增：',VA16),'%');
VA18:=CON2STR(CAPITAL/1000000,2);
VA19:=STRCAT('流通股本：',VA18);
VA20:=CON2STR((FINANCE(20)-FINANCE(21))/FINANCE(20)*100,2);
VA21:=STRCAT(STRCAT('毛利率：',VA20),'%');
VA22:=CON2STR(TOTALCAPITAL/1000000*CLOSE,2);
VA23:=STRCAT('总市值：',VA22);
VA24:=CON2STR(FINANCE(30)/FINANCE(20)*100,2);
VA25:=STRCAT(STRCAT('净利：',VA24),'%');
VA26:=CON2STR(CAPITAL/1000000*CLOSE,2);
VA27:=STRCAT('流通市值：',VA26);
VA28:=CON2STR(FINANCE(43),2);
VA29:=STRCAT(STRCAT('净增：',VA28),'%');
VA30:=CON2STR(CLOSE/FINANCE(38),2);
VA31:=STRCAT('市盈率：',VA30);
DRAWTEXT_FIX(1,0,0.1,0,VA15),COLORCYAN;
DRAWTEXT_FIX(1,0.1,0.1,0,VA17),COLORYELLOW;
DRAWTEXT_FIX(1,0,0.14,0,VA19),COLORCYAN;
DRAWTEXT_FIX(1,0.1,0.14,0,VA21),COLORYELLOW;
DRAWTEXT_FIX(1,0,0.18,0,VA23),COLORCYAN;
DRAWTEXT_FIX(1,0.1,0.18,0,VA25),COLORYELLOW;
DRAWTEXT_FIX(1,0,0.22,0,VA27),COLORCYAN;
DRAWTEXT_FIX(1,0.1,0.22,0,VA29),COLORYELLOW;
DRAWTEXT_FIX(1,0,0.26,0,VA31),COLORCYAN;
获利%:WINNER(CLOSE)*100,NODRAW,COLORWHITE;
DRAWTEXT_FIX(获利%>=95 AND ISLASTBAR,0.88,0,0,'获利盘大于95'),COLORRED;
DRAWTEXT_FIX(获利%>=80 AND 获利%<95 AND ISLASTBAR,0.88,0,0,'80%<获利<95%'),COLORYELLOW;
DRAWTEXT_FIX(获利%>=50 AND 获利%<80 AND ISLASTBAR,0.88,0,0,'50%<获利<80%'),COLORGREEN;
DRAWTEXT_FIX(获利%<50 AND ISLASTBAR,0.88,0,0,'获利盘小于50'),COLORLIBLUE;
VA32:=STRCAT(STRCAT('今日涨跌比',CON2STR(DYNAINFO(60)/(DYNAINFO(60)+DYNAINFO(61))*100,2)),'%');
DRAWTEXT_FIX(ISLASTBAR,0,1,0,VA32),COLORGREEN;
VA33:=STRCAT(STRCAT('MA5:',CON2STR(MA(CLOSE,5),2)),'元');
DRAWTEXT_FIX(ISLASTBAR,0.14,1,0,VA33),COLORWHITE;
VA34:=STRCAT(STRCAT('MA10:',CON2STR(MA(CLOSE,10),2)),'元');
DRAWTEXT_FIX(ISLASTBAR,0.24,1,0,VA34),COLORYELLOW;
VA35:=STRCAT(STRCAT('MA13:',CON2STR(MA(CLOSE,13),2)),'元');
DRAWTEXT_FIX(ISLASTBAR,0.34,1,0,VA35),COLORMAGENTA;
VA36:=STRCAT(STRCAT('半年涨停',CON2STR(REF(COUNT(VA2,120),1),0)),'个');
DRAWTEXT_FIX(ISLASTBAR,0.6,1,0,VA36),COLORWHITE;
VA37:=STRCAT(STRCAT('三个月涨停',CON2STR(REF(COUNT(VA2,60),1),0)),'个');
DRAWTEXT_FIX(ISLASTBAR,0.7,1,0,VA37),COLORYELLOW;
VA38:=STRCAT(STRCAT('一个月涨停',CON2STR(REF(COUNT(VA2,20),1),0)),'个');
DRAWTEXT_FIX(ISLASTBAR,0.8,1,0,VA38),COLORRED;
最新价:IF(CURRBARSCOUNT<=50000,CONST(IF(CLOSE>0,CLOSE,HIGH)),DRAWNULL),DOTLINE,COLORLIBLUE;
HH2:=HHV(H,2);
LL2:=LLV(L,2);
T1:=BARSLAST(CURRBARSCOUNT=2);
T2:=BARSLAST(CURRBARSCOUNT=3);
DRAWLINE(REF(H,T1)=HH2,H,ISLASTBAR,REF(H,T1),0),COLORGREEN;
DRAWLINE(REF(L,T1)=LL2,L,ISLASTBAR,REF(L,T1),0),COLORYELLOW;
DRAWLINE(REF(H,T2)=REFX(HH2,1),H,ISLASTBAR,REF(H,T2),0),COLORGREEN;
DRAWLINE(REF(L,T2)=REFX(LL2,1),L,ISLASTBAR,REF(L,T2),0),COLORYELLOW;
MA1:MA(CLOSE,5);
MA2:MA(CLOSE,10);
MA3:MA(CLOSE,30);
MA4:MA(CLOSE,60);
DRAWBAND(MA3,RGB(0,150,0),MA2,RGB(255,96,96));
DRAWKLINE(H,O,L,C);
VAR1:=100*(C-LLV(L,5))/(HHV(C,5)-LLV(L,5));
VAR2:=100*(C-LLV(L,10))/(HHV(C,10)-LLV(L,10));
VAR3:=100*(C-LLV(L,20))/(HHV(C,20)-LLV(L,20));
VAR4:=100*(C-LLV(L,30))/(HHV(C,30)-LLV(L,30));
VAZ1:=BARSLAST(crOSS(30,VAR1))<2 AND BARSLAST(CROSS(VAR1,50))<2;
VAZ2:=BARSLAST(CROSS(VAR4,VAR1))<2 AND VAR1>VAR4;
VAZ3:=VAR1>60 AND VAR4>70;
VAE:=BARSLAST(CROSS(50,VAR1))<3 AND BARSLAST(CROSS(VAR1,50))<3;
VAE1:=BARSLAST(CROSS(VAR4,VAR1))<2 AND VAR1>VAR4;
VAW:=BARSLAST(CROSS(VAR4,VAR1))<5 AND VAR1>VAR4;
DRAWTEXT(COUNT(VAW,3)=1 AND VAW AND C>MA(C,20),LOW*1.001,'启动'),COLORYELLOW;
DRAWICON(COUNT(VAW,3)=1 AND VAW AND C>MA(C,20),LOW*1.001,34);
VAR_1:=CLOSE/REF(CLOSE,1)>=1.04 AND CLOSE/REF(CLOSE,1)<=1.075;
VAR_2:=CLOSE/REF(CLOSE,1)>=1.093;
STICKLINE(VAR_2,OPEN,CLOSE,3,0),COLOR0077BB;
STICKLINE(VAR_2,OPEN,CLOSE,2.6,0),COLOR0088CC;
STICKLINE(VAR_2,OPEN,CLOSE,2.2,0),COLOR0099CC;
STICKLINE(VAR_2,OPEN,CLOSE,1.8,0),COLOR00AADD;
STICKLINE(VAR_2,OPEN,CLOSE,1.4,0),COLOR00bbdD;
STICKLINE(VAR_2,OPEN,CLOSE,1,0),COLOR00CCEE;
STICKLINE(VAR_2,OPEN,CLOSE,0.6,0),COLOR00ddeE;
STICKLINE(VAR_2,OPEN,CLOSE,0.2,0),COLOR00EEFF;
STICKLINE(VAR_2,OPEN,CLOSE,0.1,0),COLORYELLOW;
STICKLINE(VAR_2,HIGH,LOW,0,0),COLORYELLOW;
筹码扫描:(CURRBARSCOUNT=13,42),NODRAW;
划线范围:(CURRBARSCOUNT=0,55),NODRAW;
VAR_3:=IF(CURRBARSCOUNT<=55 AND CURRBARSCOUNT>=13 AND 筹码扫描,CONST(REF(LOW,VAE)),DRAWNULL);
辅助线1:IF(CURRBARSCOUNT<=55 AND 筹码扫描=0,CONST(REF(LOW,VAE)),DRAWNULL),DOTLINE,COLORRED;
有效k线1:筹码扫描 AND Abs((MAX(OPEN,CLOSE)-VAR_3)/VAR_3*100)<=1.5,NODRAW;
满足1:COUNT(有效K线1,55)>=3,NODRAW;
成立线1:IF(CONST(满足1),VAR_3,DRAWNULL),COLORGREEN,LINETHICK2;
STICKLINE(有效K线1,OPEN,CLOSE,2,0),COLORMAGENTA;
STICKLINE(有效K线1,LOW,HIGH,0,0),COLORMAGENTA;
STICKLINE(CURRBARSCOUNT=VAE+1,OPEN,CLOSE,2,0),COLORMAGENTA;
STICKLINE(CURRBARSCOUNT=VAE+1,LOW,HIGH,0,0),COLORMAGENTA;
VAR_4:=IF(CURRBARSCOUNT<=55 AND CURRBARSCOUNT>=13 AND 筹码扫描,CONST(REF(LOW,VAE1)),DRAWNULL);
辅助线2:IF(CURRBARSCOUNT<=55 AND 筹码扫描=0,CONST(REF(LOW,VAE1)),DRAWNULL),DOTLINE,COLORRED;
有效K线2:筹码扫描 AND ABS((MAX(HIGH,CLOSE)-VAR_4)/VAR_4*100)<=1.5,NODRAW;
满足2:COUNT(有效K线2,55)>=2,NODRAW;
成立线2:IF(CONST(满足2),VAR_4,DRAWNULL),COLORGREEN,LINETHICK2;
STICKLINE(有效K线2,OPEN,CLOSE,2,0),COLORMAGENTA;
STICKLINE(有效K线2,LOW,HIGH,0,0),COLORMAGENTA;
STICKLINE(CURRBARSCOUNT=VAE1+1,OPEN,CLOSE,2,0),COLORWHITE;
STICKLINE(CURRBARSCOUNT=VAE1+1,LOW,HIGH,0,0),COLORWHITE;
CBA326:=IF(CLOSE AND MA(vol,5)/240 AND CLOSE>REF(CLOSE,1)*1.0 AND CLOSE,88,0);
CBA327:=IF(CLOSE/REF(CLOSE,1)>1.050 AND VOL/CAPITAL*100<10 AND CLOSE<17 AND HIGH/CLOSE<1.010 AND CBA326>0,91,0);
DRAWTEXT(CBA327>90,LOW*1,'☆主升'),COLORYELLOW;
DRAWICON(CBA327>90,LOW*1.001,9);