霸占大牛股+老鴨頭（公式、源碼）

作者：大智慧來源：cxh99.com 發(fā)布時間：2021年11月16日

相關標簽:

咱們千鈞班長的霸占大牛股，我在圖中加入“老鴨頭”指標，希望班長和同學們喜歡。第一次發(fā)指標貼，不會貼圖，請諒解。
?

原理解析：

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,'一發(fā)千鈞告誡朋友:指標是參考,決策在人腦.鎖定:分批建倉.霸占:滿倉待漲.逃跑:遵守紀律.祝君:股海拾貝沙海淘金'),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+' 其他行業(yè)'

VAR100賦值:VAR100+' 汽車'

VAR100賦值:VAR100+' 汽配'

VAR100賦值:VAR100+' 商業(yè)連鎖'

VAR100賦值:VAR100+' 石化'

VAR100賦值:VAR100+' 通信'

VAR100賦值:VAR100+' 外貿'

VAR100賦值:VAR100+' 醫(yī)藥'

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+' 創(chuàng)投'

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.kzuj.com.cn}
DRAWTEXTREL(0,900,'一發(fā)千鈞告誡朋友:指標是參考,決策在人腦.鎖定:分批建倉.霸占:滿倉待漲.逃跑:遵守紀律.祝君:股海拾貝沙海淘金'),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('其他行業(yè)')=1 then var100:=var100+' 其他行業(yè)';
if inblock('汽車')=1 then var100:=var100+' 汽車';
if inblock('汽配')=1 then var100:=var100+' 汽配';
if inblock('商業(yè)連鎖')=1 then var100:=var100+' 商業(yè)連鎖';
if inblock('石化')=1 then var100:=var100+' 石化';
if inblock('通信')=1 then var100:=var100+' 通信';
if inblock('外貿')=1 then var100:=var100+' 外貿';
if inblock('醫(yī)藥')=1 then var100:=var100+' 醫(yī)藥';
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('創(chuàng)投')=1 then var100:=var100+' 創(chuàng)投';
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.kzuj.com.cn}

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;

公式導入教程: 【通達信公式源碼導入方法教程】【同花順公式源碼導入方法教程】【大智慧新一代公式源碼導入方法教程】

人人爽天天爽夜夜爽qc-人人爽天天爽夜夜爽曰-人人天天爱天天做天天摸-人人天天夜夜-色网站在线-色网站在线看

霸占大牛股+老鴨頭（公式、源碼）