通达信〖财务动量情绪〗捕捉短期资金动量与筹码结构之间的共振源码
这是一款融合基本面与技术面的综合性看盘指标，核心是把公司财务质量、市场获利盘、涨停活跃度和大盘情绪浓缩到主图中，自动标出关键支撑与压力位。它通过捕捉短期资金动量与筹码结构之间的共振，提前提示“启动”和“主升”两类买点，并以醒目颜色突出强势K线，帮助用户快速锁定“基本面扎实、技术面已走强”的个股。
使用时，投资者可先根据界面上的财务数据和获利盘分布，筛出基本面稳健、筹码锁定良好的标的。当指标发出“启动”或“主升”信号，同时K线呈现显眼的强势颜色，可视为短线参考买点。再配合自动生成的支撑压力线与均线走向——趋势向上时持有，跌破关键支撑或趋势转弱时则果断止盈止损，形成一套完整的交易纪律。
{财务动量情绪主图}
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;
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);
未来函数检测结果如下：
该公式包含未来函数:WINNER
该公式包含未来函数:CAPITAL
该公式包含未来函数:DYNAINFO
该公式包含未来函数:FINANCE
该公式包含未来函数:REFX
定制指标公式、软件请联系QQ或微信同号：88652583
当满足条件1时,在横轴0.005纵轴0位置书写文字,画黄色
当满足条件1时,在横轴0.06纵轴0位置书写文字,画黄色
当满足条件1时,在横轴0.005纵轴0.05位置书写文字,画洋红色
当满足条件1时,在横轴0.06纵轴0.05位置书写文字,画黄色
XX1赋值:1日前的收盘价
XX2赋值:XX1*1.1-收盘价<0.01 AND 最高价=收盘价 AND 如果模糊匹配品种代码ORCODELIKE('2'),返回0,否则返回1 OR (XX1*1.2-收盘价<0.01 AND 最高价=收盘价 AND 如果模糊匹配品种代码ORCODELIKE('2'),返回1,否则返回0)
XX14赋值:总股本(股)/100000000的2日取值转为字符串
XX15赋值:字符串相加
XX16赋值:收入同比%的2日取值转为字符串
XX17赋值:字符串相加
XX18赋值:当前流通股本(手)/1000000的2日取值转为字符串
XX19赋值:字符串相加
XX20赋值:(营业收入-营业成本)/营业收入*100的2日取值转为字符串
XX21赋值:字符串相加
XX22赋值:当前总股本(手)/1000000*收盘价的2日取值转为字符串
XX23赋值:字符串相加
XX24赋值:净利润/营业收入*100的2日取值转为字符串
XX25赋值:字符串相加
XX26赋值:当前流通股本(手)/1000000*收盘价的2日取值转为字符串
XX27赋值:字符串相加
XX28赋值:利润同比%的2日取值转为字符串
XX29赋值:字符串相加
XX30赋值:收盘价/每股收益(最近一期)的2日取值转为字符串
XX31赋值:字符串相加
当满足条件1时,在横轴0纵轴0.1位置书写文字,画青色
当满足条件1时,在横轴0.1纵轴0.1位置书写文字,画黄色
当满足条件1时,在横轴0纵轴0.14位置书写文字,画青色
当满足条件1时,在横轴0.1纵轴0.14位置书写文字,画黄色
当满足条件1时,在横轴0纵轴0.18位置书写文字,画青色
当满足条件1时,在横轴0.1纵轴0.18位置书写文字,画黄色
当满足条件1时,在横轴0纵轴0.22位置书写文字,画青色
当满足条件1时,在横轴0.1纵轴0.22位置书写文字,画黄色
当满足条件1时,在横轴0纵轴0.26位置书写文字,画青色
输出获利%:以收盘价计算的获利盘比例*100,NODRAW,画白色
当满足条件获利%>=95ANDISLASTBAR时,在横轴0.88纵轴0位置书写文字,画红色
当满足条件获利%>=80AND获利%<95ANDISLASTBAR时,在横轴0.88纵轴0位置书写文字,画黄色
当满足条件获利%>=50AND获利%<80ANDISLASTBAR时,在横轴0.88纵轴0位置书写文字,画绿色
当满足条件获利%<50ANDISLASTBAR时,在横轴0.88纵轴0位置书写文字,画淡蓝色
XX32赋值:字符串相加
当满足条件是否最后一个周期时,在横轴0纵轴1位置书写文字,画绿色
XX33赋值:字符串相加
当满足条件是否最后一个周期时,在横轴0.14纵轴1位置书写文字,画白色
XX34赋值:字符串相加
当满足条件是否最后一个周期时,在横轴0.24纵轴1位置书写文字,画黄色
XX35赋值:字符串相加
当满足条件是否最后一个周期时,在横轴0.34纵轴1位置书写文字,画洋红色
XX36赋值:字符串相加
当满足条件是否最后一个周期时,在横轴0.6纵轴1位置书写文字,画白色
XX37赋值:字符串相加
当满足条件是否最后一个周期时,在横轴0.7纵轴1位置书写文字,画黄色
XX38赋值:字符串相加
当满足条件是否最后一个周期时,在横轴0.8纵轴1位置书写文字,画红色
输出最新价:如果到最后交易的周期<=50000,返回如果收盘价>0,返回收盘价,否则返回最高价的最后一日取值设为常数,否则返回无效数,DOTLINE,画淡蓝色
HH2赋值:2日内最高价的最高值
LL2赋值:2日内最低价的最低值
T1赋值:上次到最后交易的周期=2距今天数
T2赋值:上次到最后交易的周期=3距今天数
当满足条件T1日前的最高价=HH2时,在最高价位置画直线起点，当满足条件是否最后一个周期时,在T1日前的最高价位置画直线终点,0表示是否延长.,画绿色
当满足条件T1日前的最低价=LL2时,在最低价位置画直线起点，当满足条件是否最后一个周期时,在T1日前的最低价位置画直线终点,0表示是否延长.,画黄色
当满足条件T2日前的最高价=1日后的HH2时,在最高价位置画直线起点，当满足条件是否最后一个周期时,在T2日前的最高价位置画直线终点,0表示是否延长.,画绿色
当满足条件T2日前的最低价=1日后的LL2时,在最低价位置画直线起点，当满足条件是否最后一个周期时,在T2日前的最低价位置画直线终点,0表示是否延长.,画黄色
输出MA1:收盘价的5日简单移动平均
输出均线:收盘价的10日简单移动平均
输出MA3:收盘价的30日简单移动平均
输出MA4:收盘价的60日简单移动平均
画带状线
K线
XXR1赋值:100*(收盘价-5日内最低价的最低值)/(5日内收盘价的最高值-5日内最低价的最低值)
XXR2赋值:100*(收盘价-10日内最低价的最低值)/(10日内收盘价的最高值-10日内最低价的最低值)
XXR3赋值:100*(收盘价-20日内最低价的最低值)/(20日内收盘价的最高值-20日内最低价的最低值)
XXR4赋值:100*(收盘价-30日内最低价的最低值)/(30日内收盘价的最高值-30日内最低价的最低值)
XXZ1赋值:上次30上穿XXR1距今天数<2 AND 上次XXR1上穿50距今天数<2
XXZ2赋值:上次XXR4上穿XXR1距今天数<2 AND XXR1>XXR4
XXZ3赋值:XXR1>60 AND XXR4>70
XXE赋值:上次50上穿XXR1距今天数<3 AND 上次XXR1上穿50距今天数<3
XXE1赋值:上次XXR4上穿XXR1距今天数<2 AND XXR1>XXR4
XXW赋值:上次XXR4上穿XXR1距今天数<5 AND XXR1>XXR4
当满足条件统计3日中满足XXW的天数=1ANDXXWANDC>收盘价的20日简单移动平均时,在最低价*1.001位置书写文字,画黄色
当满足条件统计3日中满足XXW的天数=1ANDXXWANDC>收盘价的20日简单移动平均时,在最低价*1.001位置画34号图标
XXR_1赋值:收盘价/1日前的收盘价>=1.04 AND 收盘价/1日前的收盘价<=1.075
XXR_2赋值:收盘价/1日前的收盘价>=1.093
当满足条件XXR_2时,在开盘价和收盘价位置之间画柱状线,宽度为3,0不为0则画空心柱.,COLOR0077BB
当满足条件XXR_2时,在开盘价和收盘价位置之间画柱状线,宽度为2.6,0不为0则画空心柱.,COLOR0088CC
当满足条件XXR_2时,在开盘价和收盘价位置之间画柱状线,宽度为2.2,0不为0则画空心柱.,COLOR0099CC
当满足条件XXR_2时,在开盘价和收盘价位置之间画柱状线,宽度为1.8,0不为0则画空心柱.,COLOR00AADD
当满足条件XXR_2时,在开盘价和收盘价位置之间画柱状线,宽度为1.4,0不为0则画空心柱.,COLOR00BBDD
当满足条件XXR_2时,在开盘价和收盘价位置之间画柱状线,宽度为1,0不为0则画空心柱.,COLOR00CCEE
当满足条件XXR_2时,在开盘价和收盘价位置之间画柱状线,宽度为0.6,0不为0则画空心柱.,COLOR00DDEE
当满足条件XXR_2时,在开盘价和收盘价位置之间画柱状线,宽度为0.2,0不为0则画空心柱.,COLOR00EEFF
当满足条件XXR_2时,在开盘价和收盘价位置之间画柱状线,宽度为0.1,0不为0则画空心柱.,画黄色
当满足条件XXR_2时,在最高价和最低价位置之间画柱状线,宽度为0,0不为0则画空心柱.,画黄色
输出筹码扫描:(到最后交易的周期=13,42),NODRAW
输出划线范围:(到最后交易的周期=0,55),NODRAW
XXR_3赋值:如果到最后交易的周期<=55ANDCURRBARSCOUNT>=13AND筹码扫描,返回XXE日前的最低价的最后一日取值设为常数,否则返回无效数
输出辅助线1:如果到最后交易的周期<=55AND筹码扫描=0,返回XXE日前的最低价的最后一日取值设为常数,否则返回无效数,DOTLINE,画红色
输出有效K线1:筹码扫描 AND (开盘价和收盘价的较大值-XXR_3)/XXR_3*100的绝对值<=1.5,NODRAW
输出满足1:统计55日中满足有效K线1的天数>=3,NODRAW
输出成立线1:如果满足1的最后一日取值设为常数,返回XXR_3,否则返回无效数,画绿色,线宽为2
当满足条件有效K线1时,在开盘价和收盘价位置之间画柱状线,宽度为2,0不为0则画空心柱.,画洋红色
当满足条件有效K线1时,在最低价和最高价位置之间画柱状线,宽度为0,0不为0则画空心柱.,画洋红色
当满足条件到最后交易的周期=XXE+1时,在开盘价和收盘价位置之间画柱状线,宽度为2,0不为0则画空心柱.,画洋红色
当满足条件到最后交易的周期=XXE+1时,在最低价和最高价位置之间画柱状线,宽度为0,0不为0则画空心柱.,画洋红色
XXR_4赋值:如果到最后交易的周期<=55ANDCURRBARSCOUNT>=13AND筹码扫描,返回XXE1日前的最低价的最后一日取值设为常数,否则返回无效数
输出辅助线2:如果到最后交易的周期<=55AND筹码扫描=0,返回XXE1日前的最低价的最后一日取值设为常数,否则返回无效数,DOTLINE,画红色
输出有效K线2:筹码扫描 AND (最高价和收盘价的较大值-XXR_4)/XXR_4*100的绝对值<=1.5,NODRAW
输出满足2:统计55日中满足有效K线2的天数>=2,NODRAW
输出成立线2:如果满足2的最后一日取值设为常数,返回XXR_4,否则返回无效数,画绿色,线宽为2
当满足条件有效K线2时,在开盘价和收盘价位置之间画柱状线,宽度为2,0不为0则画空心柱.,画洋红色
当满足条件有效K线2时,在最低价和最高价位置之间画柱状线,宽度为0,0不为0则画空心柱.,画洋红色
当满足条件到最后交易的周期=XXE1+1时,在开盘价和收盘价位置之间画柱状线,宽度为2,0不为0则画空心柱.,画白色
当满足条件到最后交易的周期=XXE1+1时,在最低价和最高价位置之间画柱状线,宽度为0,0不为0则画空心柱.,画白色
CBA326赋值:如果CLOSEANDMA(成交量(手),5)/240ANDCLOSE>1日前的收盘价*1.0ANDCLOSE,返回88,否则返回0
CBA327赋值:如果收盘价/1日前的收盘价>1.050ANDVOL/当前流通股本(手)*100<10ANDCLOSE<17ANDHIGH/收盘价<1.010ANDCBA326>0,返回91,否则返回0
当满足条件CBA327>90时,在最低价*1位置书写文字,画黄色
当满足条件CBA327>90时,在最低价*1.001位置画9号图标
