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

霸占大牛股+老鸭头(公式、源码)[大智慧公式]

相关标签:

 

咱们千钧班长的霸占大牛股,我在图中加入“老鸭头”指标,希望班长和同学们喜欢。第一次发指标贴,不会贴图,请谅解。
 

原理解析:

VARL13赋值:("平滑异同平均的DIFF[取周线数据]"(26,12,9))
VARL14赋值:("平滑异同平均的DEA[取周线数据]"(26,12,9))
VL赋值:1日前的最低价
VH赋值:1日前的最高价
VAR1赋值:最高价-VH的绝对值的13日[1日权重]移动平均/最高价-VH和0的较大值的13日[1日权重]移动平均*100
VAR2赋值:最低价-VL的绝对值的13日[1日权重]移动平均/最低价-VL和0的较大值的13日[1日权重]移动平均*100
VAR3赋值:VAR1的13日简单移动平均
VAR4赋值:VAR2的13日简单移动平均
VAR5赋值:34日内最低价的最低值
VAR6赋值:34日内最高价的最高值
VAR7赋值:如果最高价>=VAR6,返回VAR3,否则返回0的3日指数移动平均
VAR8赋值:如果最低价<=VAR5,返回VAR4,否则返回0的3日指数移动平均
VAR9赋值:((((收盘价-54日内最低价的最低值)/(54日内最高价的最高值-54日内最低价的最低值))*100)的7日[1日权重]移动平均的5日[1日权重]移动平均)
VAR10赋值:((((收盘价-54日内最低价的最低值)/(54日内最高价的最高值-54日内最低价的最低值)*100)的7日[1日权重]移动平均) * 16.18) - (VAR9* 10.9)
VAR11赋值:如果VAR10<=VAR9ANDVAR8>1日前的VAR8,返回VAR8*8,否则返回0的55日过滤
VAR21赋值:60日内最低价的最低值
VAR31赋值:60日内最高价的最高值
VAR41赋值:(收盘价-VAR21)/(VAR31-VAR21)*100的13日指数移动平均
VAR51赋值:0.667*1日前的VAR41+0.333*VAR41的21日指数移动平均
VARL2赋值:VAR51上穿VAR41ANDVAR41>84的13日过滤
当满足条件收盘价>OPENORCLOSE=OPENANDCLOSE>1日前的收盘价时,在最低价和最高价位置之间画柱状线,宽度为0.1,0不为0则画空心柱.,画红色
当满足条件收盘价>OPENORCLOSE=OPENANDCLOSE>1日前的收盘价时,在开盘价和收盘价位置之间画柱状线,宽度为7,0不为0则画空心柱.,画红色
当满足条件收盘价<OPENORCLOSE=OPENANDCLOSE<=1日前的收盘价时,在最低价和最高价位置之间画柱状线,宽度为0.1,0不为0则画空心柱.,画青色
当满足条件收盘价<OPENORCLOSE=OPENANDCLOSE<=1日前的收盘价时,在开盘价和收盘价位置之间画柱状线,宽度为7,0不为0则画空心柱.,画青色
当满足条件开盘价>=收盘价时,在收盘价和开盘价位置之间画柱状线,宽度为0,0不为0则画空心柱.,COLOR00FF00
当满足条件开盘价>=收盘价时,在收盘价和开盘价位置之间画柱状线,宽度为8,0不为0则画空心柱.,COLOR008800
当满足条件开盘价>=收盘价时,在收盘价和开盘价位置之间画柱状线,宽度为7,0不为0则画空心柱.,COLOR009900
当满足条件开盘价>=收盘价时,在收盘价和开盘价位置之间画柱状线,宽度为6,0不为0则画空心柱.,COLOR00AA00
当满足条件开盘价>=收盘价时,在收盘价和开盘价位置之间画柱状线,宽度为5,0不为0则画空心柱.,COLOR00BB00
当满足条件开盘价>=收盘价时,在收盘价和开盘价位置之间画柱状线,宽度为4,0不为0则画空心柱.,COLOR00CC00
当满足条件开盘价>=收盘价时,在收盘价和开盘价位置之间画柱状线,宽度为3,0不为0则画空心柱.,COLOR00DD00
当满足条件开盘价>=收盘价时,在收盘价和开盘价位置之间画柱状线,宽度为2,0不为0则画空心柱.,COLOR00EE00
当满足条件开盘价>=收盘价时,在收盘价和开盘价位置之间画柱状线,宽度为1,0不为0则画空心柱.,COLOR00FF00
当满足条件收阳线时,在收盘价和开盘价位置之间画柱状线,宽度为0,0不为0则画空心柱. ,COLORFFBBFF
当满足条件收阳线时,在收盘价和开盘价位置之间画柱状线,宽度为8,0不为0则画空心柱. ,COLORFF00FF
当满足条件收阳线时,在收盘价和开盘价位置之间画柱状线,宽度为7,0不为0则画空心柱. ,COLORFF22FF
当满足条件收阳线时,在收盘价和开盘价位置之间画柱状线,宽度为6,0不为0则画空心柱. ,COLORFF44FF
当满足条件收阳线时,在收盘价和开盘价位置之间画柱状线,宽度为5,0不为0则画空心柱. ,COLORFF66FF
当满足条件收阳线时,在收盘价和开盘价位置之间画柱状线,宽度为4,0不为0则画空心柱. ,COLORFF88FF
当满足条件收阳线时,在收盘价和开盘价位置之间画柱状线,宽度为3,0不为0则画空心柱. ,COLORFF99FF
当满足条件收阳线时,在收盘价和开盘价位置之间画柱状线,宽度为2,0不为0则画空心柱. ,COLORFFAAFF
当满足条件收阳线时,在收盘价和开盘价位置之间画柱状线,宽度为1,0不为0则画空心柱. ,COLORFFBBFF
DRAWTEXTABS(20,0,STKLABEL+' '+品种名称+' '),COLORFFFF80
输出持股线:收盘价的26日简单移动平均,线宽为2,COLOR6600FF
输出QJJ:(VARL13上穿VARL14ANDVARL14<0ANDCROSS(收盘价,持股线))的90日过滤,线宽为0
输出输出输出输出输出DRAWTEXTREL(0,900,'一发千钧告诫朋友:指标是参考,决策在人脑.锁定:分批建仓.霸占:满仓待涨.逃跑:遵守纪律.祝君:股海拾贝 沙海淘金'),COLOR989500
输出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+' 造纸印刷'
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+' 3G'
VAR100赋值:VAR100+' H股'
VAR100赋值:VAR100+' QFII持股'
VAR100赋值:VAR100+' ST'
VAR100赋值:VAR100+' 奥运'
VAR100赋值:VAR100+' 创投'
VAR100赋值:VAR100+' 次新股'
VAR100赋值:VAR100+' 大盘'
VAR100赋值:VAR100+' 股权改革'
VAR100赋值:VAR100+' 股权投资'
DD赋值:FINANCE2(35)
SS赋值:FINANCE2(37)
GG赋值:FINANCE2(3)
TH赋值:市盈(动)
输出输出输出输出DRAWTEXTABS(20,20,'总股本:'+NUMTOSTRN(DD,0)+'万股' +' 流通A股:'+NUMTOSTRN(SS,0)+'万股'+'市盈率:'+NUMTOSTRN(TH,2)+' 倍'+'每股收益:'+NUMTOSTRN(GG,3)+' 元'),COLOR989500
DRAWTEXTABS(20,40,VAR100+' '),COLOR989500
当满足条件VAR11时,在收盘价*0.98位置书写文字,COLORFFFF00
当满足条件QJJ时,在收盘价*1.09位置画1号图标
当满足条件QJJ时,在最低价*0.78位置书写文字,COLOR00FFFF
当满足条件VARL2时,在收盘价*1.04位置书写文字,画绿色
 

源码:

 

varl13:=("macd.diff#WEEK"(26,12,9));
varl14:=("macd.dea#WEEK"(26,12,9));
VL:=REF(LOW,1); VH:=REF(H,1);
Var1:=SMA(ABS(H-Vh),13,1)/SMA(MAX(H-Vh,0),13,1)*100;
Var2:=SMA(ABS(L-VL),13,1)/SMA(MAX(L-VL,0),13,1)*100;
Var3:=MA(Var1,13);
Var4:=MA(Var2,13);
Var5:=LLV(L,34);
Var6:=HHV(H,34);
Var7:=EMA(IF(H>=Var6,Var3,0),3);
Var8:=EMA(IF(L<=Var5,Var4,0),3);
var9:=(SMA(SMA((((CLOSE - LLV(LOW,54)) / (HHV(HIGH,54) - LLV(LOW,54))) * 100),7,1),5,1));
var10:=((SMA(((CLOSE - LLV(LOW,54)) / (HHV(HIGH,54) - LLV(LOW,54)) * 100),7,1)) * 16.18) - (var9* 10.9);
Var11:=FILTER(IF(var10<=var9 AND Var8>REF(Var8,1),Var8*8,0),55);
Var21:=LLV(LOW,60);
Var31:=HHV(HIGH,60);
Var41:=EMA((CLOSE-Var21)/(Var31-Var21)*100,13);
Var51:=EMA(0.667*REF(Var41,1)+0.333*Var41,21);
varl2:=FILTER(CROSS(Var51,Var41) AND Var41>84,13);
{K线}
STICKLINE(CLOSE>OPEN or CLOSE=OPEN and CLOSE>REF(CLOSE,1),LOW,HIGH,0.1,0),colorred;
STICKLINE(CLOSE>OPEN or CLOSE=OPEN and CLOSE>REF(CLOSE,1),OPEN,CLOSE,7,0),colorred;
STICKLINE(CLOSE<OPEN or CLOSE=OPEN and CLOSE<=REF(CLOSE,1),LOW,HIGH,0.1,0),colorcyan;
STICKLINE(CLOSE<OPEN or CLOSE=OPEN and CLOSE<=REF(CLOSE,1),OPEN,CLOSE,7,0),colorcyan;
STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,0,0 ),COLOR00FF00;
STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,8,0 ),COLOR008800;
STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,7,0 ),COLOR009900;
STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,6,0 ),COLOR00AA00;
STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,5,0 ),COLOR00BB00;
STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,4,0 ),COLOR00CC00;
STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,3,0 ),COLOR00DD00;
STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,2,0 ),COLOR00EE00;
STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,1,0 ),COLOR00FF00;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,0,0) ,COLORFFBBFF;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,8,0) ,COLORFF00FF;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,7,0) ,COLORFF22FF;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,6,0) ,COLORFF44FF;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,5,0) ,COLORFF66FF;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,4,0) ,COLORFF88FF;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,3,0) ,COLORFF99FF;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,2,0) ,COLORFFAAFF;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,1,0) ,COLORFFBBFF;
DRAWTEXTABS(20,0,STKLABEL+' '+STKNAME+' '),ColorFFFF80;
持股线:MA(C,26),LINETHICK2,COLOR6600FF;
qjj:FILTER((CROSS(varl13,varl14) and varl14<0 and CROSS(c,持股线)),90),LINETHICK0;{http://www.cxh99.com}
DRAWTEXTREL(0,900,'一发千钧告诫朋友:指标是参考,决策在人脑.锁定:分批建仓.霸占:满仓待涨.逃跑:遵守纪律.祝君:股海拾贝 沙海淘金'),Color989500;
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('造纸印刷')=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('重庆')=1 then var100:=var100+' 重庆';
if inblock('3G')=1 then var100:=var100+' 3G';
if inblock('H股')=1 then var100:=var100+' H股';
if inblock('QFII持股')=1 then var100:=var100+' QFII持股';
if inblock('ST')=1 then var100:=var100+' ST';
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+' 股权投资';
DD:=FINANCE2(35);
SS:=FINANCE2(37);
GG:=FINANCE2(3);
TH:=DYNAINFO(39);
DRAWTEXTABS(20,20,'总股本:'+NUMTOSTRn(DD,0)+'万股' +' 流通A股:'+NUMTOSTRn(SS,0)+'万股'+'市盈率:'+NUMTOSTRn(TH,2)+' 倍'+'每股收益:'+NUMTOSTRn(GG,3)+' 元'),Color989500;
DRAWTEXTABS(20,40,var100+' '),Color989500;
DRAWTEXT(var11,C*0.98,'锁定'),ColorFFFF00;
DRAWICON(qjj,C*1.09,1);
DRAWTEXT(qjj,l*0.78,'霸占大牛股'),COLOR00FFFF;
DRAWTEXT(varl2,C*1.04,'逃跑'),COLORGREEN;{http://www.cxh99.com}


MA5 : MA(close,5);
MA10 : MA(close,10);
MA60 : MA(close,60);
pday1 := barslast(cross(ma5,ma60));{5日均线上穿60日均线}
pday2 := barslast(cross(ma10,ma60));{10日均线上穿60日均线,至此形成鸭颈部}
pday3 := barslast(high=hhv(high,pday2));{形成头部,要下跌}
pday4 := barslast(cross(ma10,ma5){ or (ref(ma10,1)<ref(ma5,1) and ma5=ma10)});{下跌后,5日均线和10日均线死叉}
pday5 := barslast(cross(ma5,ma10){ or (ref(ma5,1)=ref(ma10,1) and ma5>ma10)});{回落不久,5日均线和10日均线形成金叉,形成部}
a1:= pday1>pday2 and pday2>pday3 and pday3>pday4 and pday4>pday5 and pday5<5;
a2:= count(cross(ma10,ma5),pday2)=1;
a3:=ma5>ma60 and ma10>ma60;
老鸭头:=(A1 AND A2 and a3) and FILTER(A1 AND A2 and a3 ,5);
drawtext(老鸭头,l,'老鸭头'),COLORYELLOW;{http://cxh99.com}
stickline(老鸭头,h,l,0.5,0),COLORYELLOW;{http://cxh99.com}
stickline(老鸭头,o,c,6,1),coloryellow,linethick3;<!--++ plugin_code qcomic begin--><!--++ plugin_code qcomic end-->

 

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

 

 

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

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

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

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

 


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

相关文章

    没有相关内容