您现在的位置:程序化交易>> 股票公式>> 大智慧>> 大智慧公式>>正文内容

热点F10指标公式[大智慧公式]

相关标签:

 

原理解析:

相对位置上画矩形
DRAWTEXTREL(15,55,''+STKLABEL+''+品种名称),线宽为1,画白色
ZYTB赋值:FINANCE2(11)
JLTB赋值:FINANCE2(10)
输出奥运概念:(STRFIND(BKNAME,'奥运',1)>0),COLOR00FFFF,POINTDOT,线宽为0
输出整体上市:(STRFIND(BKNAME,'整体上市',1)>0),COLORFF00FF,POINTDOT,线宽为0
输出定向增发:(STRFIND(BKNAME,'定向增发',1)>0),COLOR00FF00,POINTDOT,线宽为0
输出预盈预增:(STRFIND(BKNAME,'预盈预增',1)>0),COLOR0000FF,POINTDOT,线宽为0
输出基金重仓:(STRFIND(BKNAME,'基金重仓',1)>0),COLORFFFF00,POINTDOT,线宽为0
输出DRAWTEXTREL(450,50,'■机构评级:'+EXTRASTRING('评级')),COLORFFFF00
输出输出DRAWTEXTREL(165,50,'总股本:'+NUMTOSTRN(FINANCE2(35),0)+'万' +'流通A股:'+NUMTOSTRN(FINANCE2(37),0)+'万'),COLOR00FFFF
条件判断 DISPSTATUS=2 THEN BEGIN
输出VAR100赋值:'所属地区:'
VAR100赋值:VAR100+' 安 徽'
VAR100赋值:VAR100+' 北 京'
VAR100赋值:VAR100+' 福 建'
VAR100赋值:VAR100+' 甘 肃'
VAR100赋值:VAR100+' 广 东'
VAR100赋值:VAR100+' 广 西'
VAR100赋值:VAR100+' 贵 州'
VAR100赋值:VAR100+' 海 南'
VAR100赋值:VAR100+' 河 北'
VAR100赋值:VAR100+' 河 南'
VAR100赋值:VAR100+' 黑龙江'
VAR100赋值:VAR100+' 湖 北'
VAR100赋值:VAR100+' 湖 南'
VAR100赋值:VAR100+' 吉 林'
VAR100赋值:VAR100+' 江 苏'
VAR100赋值:VAR100+' 江 西'
VAR100赋值:VAR100+' 辽 宁'
VAR100赋值:VAR100+' 内蒙古'
VAR100赋值:VAR100+' 宁 夏'
VAR100赋值:VAR100+' 青 海'
VAR100赋值:VAR100+' 山 东'
VAR100赋值:VAR100+' 山 西'
VAR100赋值:VAR100+' 陕 西'
VAR100赋值:VAR100+' 上 海'
VAR100赋值:VAR100+' 深 圳'
VAR100赋值:VAR100+' 四 川'
VAR100赋值:VAR100+' 天 津'
VAR100赋值:VAR100+' ***'
VAR100赋值:VAR100+' 新 疆'
VAR100赋值:VAR100+' 云 南'
VAR100赋值:VAR100+' 浙 江'
VAR100赋值:VAR100+' 重 庆'
VAR100赋值:VAR100+' H股'
VAR100赋值:VAR100+' 3G'
VAR100赋值:VAR100+' QFII持股'
VAR100赋值:VAR100+' 创投'
VAR100赋值:VAR100+' 次新股'
VAR100赋值:VAR100+' 大盘'
VAR100赋值:VAR100+' 参股金融'
VAR100赋值:VAR100+' 股权投资'
END
DRAWTEXTREL(20,295,VAR100),COLOR00FFFF
输出输出输出DRAWTEXTREL(250,300,'■市盈率:'+NUMTOSTRN(市盈(动),2)+'%'+' ■每股收益:'+NUMTOSTRN(FINANCE2(3),3)+' ■主营收入:'+NUMTOSTRN(FINANCE2(27),0)+'元'+' ■主营同比:'+NUMTOSTRN(ZYTB,2)+'%'+' ■净利同比:'+NUMTOSTRN(JLTB,0)+'%'),COLORFFFFFF
输出输出输出DRAWTEXTREL(20,550,'--*-- 净资产:'+NUMTOSTRN(FINANCE2(4),2)+'元'+'--*-- 净资收益率:'+NUMTOSTRN(FINANCE2(5),2)+'%'+' --*--公积金:'+NUMTOSTRN(FINANCE2(7),2)+'元'+' --*--未分配利润:'+NUMTOSTRN(FINANCE2(8),2)+'元 --*--'),画红色
输出DRAWTEXTREL(10,800,'所属板块:'+BKNAME),COLORFFFFFF
AA赋值:DISPSTATUS=2
买入赋值:STRFIND(EXTRASTRING('评级'),'买入',1)>0
增持赋值:STRFIND(EXTRASTRING('评级'),'增持',1)>0
持有赋值:STRFIND(EXTRASTRING('评级'),'持有',1)>0
当满足条件收盘价*AA时,在0和9位置之间画柱状线,宽度为6,1不为0则画空心柱.,COLORFFFFFF
当满足条件买入*AA时,在0和9位置之间画柱状线,宽度为6,0不为0则画空心柱.,COLOR00FF00
当满足条件增持*AA时,在0和9位置之间画柱状线,宽度为6,0不为0则画空心柱.,COLOR0000FF
当满足条件持有*AA时,在0和9位置之间画柱状线,宽度为6,0不为0则画空心柱.,COLORFF00FF
10,COLOR0000FF
DRAWTEXTREL(810,550,'■买入'),COLOR00FF00
DRAWTEXTREL(860,550,'■增持'),COLOR0000FF
DRAWTEXTREL(910,550,'■持有'),COLORFF00FF
DRAWTEXTREL(960,550,'=>'),画白色
当满足条件奥运概念*AA时,在10位置书写文字,COLOR00FFFF
当满足条件整体上市*AA时,在8.5位置书写文字,COLORFF00FF
当满足条件定向增发*AA时,在7位置书写文字,COLOR00FF00
当满足条件预盈预增*AA时,在5.5位置书写文字,COLOR0000FF
当满足条件基金重仓*AA时,在4位置书写文字,COLORFFFF00
 

源码:

 


DRAWRECTREL(0,0,150,500,RGB(255,0,0));
DRAWTEXTREL(15,55,''+STKLABEL+''+STKNAME),LINETHICK1,COLORwhite;
ZYTB:=FINANCE2(11);JLTB:=FINANCE2(10);
奥运概念:(STRFIND(BKNAME,'奥运',1)>0),COLOR00FFFF,POINTDOT,LINETHICK0;{http://www.cxh99.com}
整体上市:(STRFIND(BKNAME,'整体上市',1)>0),COLORFF00FF,POINTDOT,LINETHICK0;{http://www.cxh99.com}
定向增发:(STRFIND(BKNAME,'定向增发',1)>0),COLOR00FF00,POINTDOT,LINETHICK0;{http://www.cxh99.com}
预盈预增:(STRFIND(BKNAME,'预盈预增',1)>0),COLOR0000FF,POINTDOT,LINETHICK0;{http://www.cxh99.com}
基金重仓:(STRFIND(BKNAME,'基金重仓',1)>0),COLORFFFF00,POINTDOT,LINETHICK0;{http://www.cxh99.com}
DRAWTEXTREL(450,50,'■机构评级:'+Extrastring('评级')),colorFFFF00;
DRAWTEXTREL(165,50,'总股本:'+NUMTOSTRN(FINANCE2(35),0)+'万' +'流通A股:'+NUMTOSTRN(FINANCE2(37),0)+'万'),COLOR00ffff;
if DISPSTATUS=2 then begin;
var100:='所属地区:';
if inblock('安徽')=1 then var100:=var100+' 安 徽';
if inblock('北京')=1 then var100:=var100+' 北 京';
if inblock('福建')=1 then var100:=var100+' 福 建';
if inblock('甘肃')=1 then var100:=var100+' 甘 肃';
if inblock('广东')=1 then var100:=var100+' 广 东';
if inblock('广西')=1 then var100:=var100+' 广 西';
if inblock('贵州')=1 then var100:=var100+' 贵 州';
if inblock('海南')=1 then var100:=var100+' 海 南';
if inblock('河北')=1 then var100:=var100+' 河 北';
if inblock('河南')=1 then var100:=var100+' 河 南';
if inblock('黑龙江')=1 then var100:=var100+' 黑龙江';
if inblock('湖北')=1 then var100:=var100+' 湖 北';
if inblock('湖南')=1 then var100:=var100+' 湖 南';
if inblock('吉林')=1 then var100:=var100+' 吉 林';
if inblock('江苏')=1 then var100:=var100+' 江 苏';
if inblock('江西')=1 then var100:=var100+' 江 西';
if inblock('辽宁')=1 then var100:=var100+' 辽 宁';
if inblock('内蒙古')=1 then var100:=var100+' 内蒙古';
if inblock('宁夏')=1 then var100:=var100+' 宁 夏';
if inblock('青海')=1 then var100:=var100+' 青 海';
if inblock('山东')=1 then var100:=var100+' 山 东';
if inblock('山西')=1 then var100:=var100+' 山 西';
if inblock('陕西')=1 then var100:=var100+' 陕 西';
if inblock('上海')=1 then var100:=var100+' 上 海';
if inblock('深圳')=1 then var100:=var100+' 深 圳';
if inblock('四川')=1 then var100:=var100+' 四 川';
if inblock('天津')=1 then var100:=var100+' 天 津';
if inblock('***')=1 then var100:=var100+' ***';
if inblock('新疆')=1 then var100:=var100+' 新 疆';
if inblock('云南')=1 then var100:=var100+' 云 南';
if inblock('浙江')=1 then var100:=var100+' 浙 江';
if inblock('重庆')=1 then var100:=var100+' 重 庆';
if inblock('H股')=1 then var100:=var100+' H股';
if inblock('3G')=1 then var100:=var100+' 3G';
if inblock('QFII持股')=1 then var100:=var100+' QFII持股';
if inblock('创投')=1 then var100:=var100+' 创投';
if inblock('次新股')=1 then var100:=var100+' 次新股';
if inblock('大盘')=1 then var100:=var100+' 大盘';
if inblock('参股金融')=1 then var100:=var100+' 参股金融';
if inblock('股权投资')=1 then var100:=var100+' 股权投资';
end;
DRAWTEXTREL(20,295,var100),color00ffff;
DRAWTEXTREL(250,300,'■市盈率:'+NUMTOSTRN(DYNAINFO(39),2)+'%'+' ■每股收益:'+NUMTOSTRN(FINANCE2(3),3)+' ■主营收入:'+NUMTOSTRN(FINANCE2(27),0)+'元'+' ■主营同比:'+NUMTOSTRN(ZYTB,2)+'%'+' ■净利同比:'+NUMTOSTRN(JLTB,0)+'%'),COLORffffff;
DRAWTEXTREL(20,550,'--*-- 净资产:'+NUMTOSTRN(FINANCE2(4),2)+'元'+'--*-- 净资收益率:'+NUMTOSTRN(FINANCE2(5),2)+'%'+' --*--公积金:'+NUMTOSTRN(FINANCE2(7),2)+'元'+' --*--未分配利润:'+NUMTOSTRN(FINANCE2(8),2)+'元 --*--'),COLORRED;
DRAWTEXTREL(10,800,'所属板块:'+BKNAME),COLORffffff;
AA:=DISPSTATUS=2;
买入:=STRFIND(Extrastring('评级'),'买入',1)>0{,COLOR00FF00};
增持:=STRFIND(Extrastring('评级'),'增持',1)>0{,COLOR0000FF};
持有:=STRFIND(Extrastring('评级'),'持有',1)>0{,COLORFF00FF};
STICKLINE(C*AA,0,9,6,1),COLORFFFFFF;
STICKLINE(买入*AA,0,9,6,0),COLOR00FF00;
STICKLINE(增持*AA,0,9,6,0),COLOR0000FF;
STICKLINE(持有*AA,0,9,6,0),COLORFF00FF;
10,COLOR0000FF;
DRAWTEXTREL(810,550,'■买入'),COLOR00FF00;
DRAWTEXTREL(860,550,'■增持'),COLOR0000FF;
DRAWTEXTREL(910,550,'■持有'),COLORFF00FF;
DRAWTEXTREL(960,550,'=>'),COLORwhite;
DRAWTEXT(奥运概念*AA,10,''),COLOR00FFFF;
DRAWTEXT(整体上市*AA,8.5,''),COLORFF00FF;
DRAWTEXT(定向增发*AA,7,''),COLOR00FF00;
DRAWTEXT(预盈预增*AA,5.5,''),COLOR0000FF;
DRAWTEXT(基金重仓*AA,4,''),COLORFFFF00;

 

公式导入教程: 【通达信公式源码导入方法教程】 【同花顺公式源码导入方法教程】 【大智慧新一代公式源码导入方法教程

 

 

有思路,想编写各种指标公式,交易模型,选股公式,还原公式的朋友

可联系技术人员 QQ: 262069696  点击在线交流或微信:cxhjy888 进行 有偿收费 编写!(注:由于人数限制,QQ或微信请选择方便的一个联系我们就行,加好友时请简单备注下您的需求,否则无法通过。谢谢您!)

怎么收费,代编流程等详情请点击查阅!

(注:由于人数限制,QQ或微信请选择方便的一个联系我们就行,加好友时请简单备注下您的需求,否则无法通过。谢谢您!)

 


【字体: 】【打印文章】【查看评论

相关文章

    没有相关内容