千钧班长的霸占大牛股，我在图中加入“老鸭头”指标
C/C++ Code复制内容到剪贴板
- 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;
- 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;
- 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;
- stickline(老鸭头,h,l,0.5,0),coloryellow;
- stickline(老鸭头,o,c,6,1),coloryellow,linethick3;