股资源-股票学习站-学炒股-股票课程-炒股教程-分析选股指标-入门基础知识

 找回密码
 注册昵称

QQ登录

只需一步,快速开始

搜索

[通达信] 〖财务动量情绪〗一键洞悉财务动量与情绪密码全能主图看盘源码


   
楼主
2026-9-7 14:15:06

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;



XX1:=REF(CLOSE,1);

XX2:=XX1*1.1-CLOSE<0.01 AND HIGH=CLOSE AND IF(CODELIKE('1') OR CODELIKE('2'),0,1) OR (XX1*1.2-CLOSE<0.01 AND HIGH=CLOSE AND IF(CODELIKE('1') OR CODELIKE('2'),1,0));



XX14:=CON2STR(FINANCE(1)/100000000,2);

XX15:=STRCAT('总股本:',XX14);

XX16:=CON2STR(FINANCE(44),2);

XX17:=STRCAT(STRCAT('收入增:',XX16),'%');

XX18:=CON2STR(CAPITAL/1000000,2);

XX19:=STRCAT('流通股本:',XX18);

XX20:=CON2STR((FINANCE(20)-FINANCE(21))/FINANCE(20)*100,2);

XX21:=STRCAT(STRCAT('毛利率:',XX20),'%');

XX22:=CON2STR(TOTALCAPITAL/1000000*CLOSE,2);

XX23:=STRCAT('总市值:',XX22);

XX24:=CON2STR(FINANCE(30)/FINANCE(20)*100,2);

XX25:=STRCAT(STRCAT('净利:',XX24),'%');

XX26:=CON2STR(CAPITAL/1000000*CLOSE,2);

XX27:=STRCAT('流通市值:',XX26);

XX28:=CON2STR(FINANCE(43),2);

XX29:=STRCAT(STRCAT('净增:',XX28),'%');

XX30:=CON2STR(CLOSE/FINANCE(38),2);

XX31:=STRCAT('市盈率:',XX30);



DRAWTEXT_FIX(1,0,0.1,0,XX15),COLORCYAN;

DRAWTEXT_FIX(1,0.1,0.1,0,XX17),COLORYELLOW;

DRAWTEXT_FIX(1,0,0.14,0,XX19),COLORCYAN;

DRAWTEXT_FIX(1,0.1,0.14,0,XX21),COLORYELLOW;

DRAWTEXT_FIX(1,0,0.18,0,XX23),COLORCYAN;

DRAWTEXT_FIX(1,0.1,0.18,0,XX25),COLORYELLOW;

DRAWTEXT_FIX(1,0,0.22,0,XX27),COLORCYAN;

DRAWTEXT_FIX(1,0.1,0.22,0,XX29),COLORYELLOW;

DRAWTEXT_FIX(1,0,0.26,0,XX31),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;



XX32:=STRCAT(STRCAT('今日涨跌比',CON2STR(DYNAINFO(60)/(DYNAINFO(60)+DYNAINFO(61))*100,2)),'%');

DRAWTEXT_FIX(ISLASTBAR,0,1,0,XX32),COLORGREEN;

XX33:=STRCAT(STRCAT('MA5:',CON2STR(MA(CLOSE,5),2)),'元');

DRAWTEXT_FIX(ISLASTBAR,0.14,1,0,XX33),COLORWHITE;

XX34:=STRCAT(STRCAT('MA10:',CON2STR(MA(CLOSE,10),2)),'元');

DRAWTEXT_FIX(ISLASTBAR,0.24,1,0,XX34),COLORYELLOW;

XX35:=STRCAT(STRCAT('MA13:',CON2STR(MA(CLOSE,13),2)),'元');

DRAWTEXT_FIX(ISLASTBAR,0.34,1,0,XX35),COLORMAGENTA;



XX36:=STRCAT(STRCAT('半年涨停',CON2STR(REF(COUNT(XX2,120),1),0)),'个');

DRAWTEXT_FIX(ISLASTBAR,0.6,1,0,XX36),COLORWHITE;

XX37:=STRCAT(STRCAT('三个月涨停',CON2STR(REF(COUNT(XX2,60),1),0)),'个');

DRAWTEXT_FIX(ISLASTBAR,0.7,1,0,XX37),COLORYELLOW;

XX38:=STRCAT(STRCAT('一个月涨停',CON2STR(REF(COUNT(XX2,20),1),0)),'个');

DRAWTEXT_FIX(ISLASTBAR,0.8,1,0,XX38),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);



XXR1:=100*(C-LLV(L,5))/(HHV(C,5)-LLV(L,5));

XXR2:=100*(C-LLV(L,10))/(HHV(C,10)-LLV(L,10));

XXR3:=100*(C-LLV(L,20))/(HHV(C,20)-LLV(L,20));

XXR4:=100*(C-LLV(L,30))/(HHV(C,30)-LLV(L,30));



XXZ1:=BARSLAST(CROSS(30,XXR1))<2 AND BARSLAST(CROSS(XXR1,50))<2;

XXZ2:=BARSLAST(CROSS(XXR4,XXR1))<2 AND XXR1>XXR4;

XXZ3:=XXR1>60 AND XXR4>70;

XXE:=BARSLAST(CROSS(50,XXR1))<3 AND BARSLAST(CROSS(XXR1,50))<3;

XXE1:=BARSLAST(CROSS(XXR4,XXR1))<2 AND XXR1>XXR4;

XXW:=BARSLAST(CROSS(XXR4,XXR1))<5 AND XXR1>XXR4;



DRAWTEXT(COUNT(XXW,3)=1 AND XXW AND C>MA(C,20),LOW*1.001,'启动'),COLORYELLOW;

DRAWICON(COUNT(XXW,3)=1 AND XXW AND C>MA(C,20),LOW*1.001,34);



XXR_1:=CLOSE/REF(CLOSE,1)>=1.04 AND CLOSE/REF(CLOSE,1)<=1.075;

XXR_2:=CLOSE/REF(CLOSE,1)>=1.093;

STICKLINE(XXR_2,OPEN,CLOSE,3,0),COLOR0077BB;

STICKLINE(XXR_2,OPEN,CLOSE,2.6,0),COLOR0088CC;

STICKLINE(XXR_2,OPEN,CLOSE,2.2,0),COLOR0099CC;

STICKLINE(XXR_2,OPEN,CLOSE,1.8,0),COLOR00AADD;

STICKLINE(XXR_2,OPEN,CLOSE,1.4,0),COLOR00BBDD;

STICKLINE(XXR_2,OPEN,CLOSE,1,0),COLOR00CCEE;

STICKLINE(XXR_2,OPEN,CLOSE,0.6,0),COLOR00DDEE;

STICKLINE(XXR_2,OPEN,CLOSE,0.2,0),COLOR00EEFF;

STICKLINE(XXR_2,OPEN,CLOSE,0.1,0),COLORYELLOW;

STICKLINE(XXR_2,HIGH,LOW,0,0),COLORYELLOW;



筹码扫描:(CURRBARSCOUNT=13,42),NODRAW;

划线范围:(CURRBARSCOUNT=0,55),NODRAW;

XXR_3:=IF(CURRBARSCOUNT<=55 AND CURRBARSCOUNT>=13 AND 筹码扫描,CONST(REF(LOW,XXE)),DRAWNULL);

辅助线1:IF(CURRBARSCOUNT<=55 AND 筹码扫描=0,CONST(REF(LOW,XXE)),DRAWNULL),DOTLINE,COLORRED;

有效K线1:筹码扫描 AND ABS((MAX(OPEN,CLOSE)-XXR_3)/XXR_3*100)<=1.5,NODRAW;

满足1:COUNT(有效K线1,55)>=3,NODRAW;

成立线1:IF(CONST(满足1),XXR_3,DRAWNULL),COLORGREEN,LINETHICK2;

STICKLINE(有效K线1,OPEN,CLOSE,2,0),COLORMAGENTA;

STICKLINE(有效K线1,LOW,HIGH,0,0),COLORMAGENTA;

STICKLINE(CURRBARSCOUNT=XXE+1,OPEN,CLOSE,2,0),COLORMAGENTA;

STICKLINE(CURRBARSCOUNT=XXE+1,LOW,HIGH,0,0),COLORMAGENTA;

DRAWTEXT_FIX(1,0.980,20,1,', '),COLOR333333;

XXR_4:=IF(CURRBARSCOUNT<=55 AND CURRBARSCOUNT>=13 AND 筹码扫描,CONST(REF(LOW,XXE1)),DRAWNULL);

辅助线2:IF(CURRBARSCOUNT<=55 AND 筹码扫描=0,CONST(REF(LOW,XXE1)),DRAWNULL),DOTLINE,COLORRED;

有效K线2:筹码扫描 AND ABS((MAX(HIGH,CLOSE)-XXR_4)/XXR_4*100)<=1.5,NODRAW;

满足2:COUNT(有效K线2,55)>=2,NODRAW;

成立线2:IF(CONST(满足2),XXR_4,DRAWNULL),COLORGREEN,LINETHICK2;

STICKLINE(有效K线2,OPEN,CLOSE,2,0),COLORMAGENTA;

STICKLINE(有效K线2,LOW,HIGH,0,0),COLORMAGENTA;

STICKLINE(CURRBARSCOUNT=XXE1+1,OPEN,CLOSE,2,0),COLORWHITE;

STICKLINE(CURRBARSCOUNT=XXE1+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);
















未
回复

举报