行業信息霸占大牛股買賣主圖指標公式源碼

相關標簽:boll主圖指標公式源碼 、 macd主圖指標源碼公式 、 主圖買賣指標公式源碼 、 白金主圖指標公式源碼 、 大智慧ddx指標源碼 、 超宏主圖指標公式源碼 、 大智慧主圖箱體指標 、 大智慧主圖指標大全 、 大智慧波段主圖指標 、 通達信主圖指標源碼 、 波浪指標主圖指標源碼 、 元帥主圖指標源碼 、 背離主圖指標指標源碼 、 趨勢主圖指標源碼 、 基本面主圖指標源碼 、

?

大智慧霸占大牛股主圖源碼源碼

?

?

原理解析：
DRAWGBKLAST(收盤價>0,STRIP(自定色,自定色,0)) 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位置書寫文字,畫綠色 CXH賦值:STRTONUM(STRRIGHT(DATESTR(CURRENTDATE),1)) 輸出WARNING('HTTP://www.tumamayizhan.com',CURRENTTIME>180000 AND (CXH=1 OR CXH=6)) DRAWTEXTREL(10 ,10 ,'指標公式')

?

?來源:程序化99（ www.tumamayizhan.com ）

源碼：

?

DRAWGBKLAST(CLOSE>0,STRIP(RGB(95,95,95),RGB(0,0,0),0));
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;CXH:=STRTONUM(STRRIGHT(DATESTR(CURRENTDATE),1));
WARNING('http://www.tumamayizhan.com',CURRENTTIME>180000 and (CXH=1 OR CXH=6));
DRAWTEXTREL(10 ,10 ,'指標公式');

?

?

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

?