熱點F10指標(biāo)公式

作者：大智慧來源：cxh99.com 發(fā)布時間：2022年06月30日

相關(guān)標(biāo)簽:

原理解析：

相對位置上畫矩形

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

輸出定向增發(fā):(STRFIND(BKNAME,'定向增發(fā)',1)>0),COLOR00FF00,POINTDOT,線寬為0

輸出預(yù)盈預(yù)增:(STRFIND(BKNAME,'預(yù)盈預(yù)增',1)>0),COLOR0000FF,POINTDOT,線寬為0

輸出基金重倉:(STRFIND(BKNAME,'基金重倉',1)>0),COLORFFFF00,POINTDOT,線寬為0

輸出DRAWTEXTREL(450,50,'■機構(gòu)評級:'+EXTRASTRING('評級')),COLORFFFF00

輸出輸出DRAWTEXTREL(165,50,'總股本:'+NUMTOSTRN(FINANCE2(35),0)+'萬' +'流通A股:'+NUMTOSTRN(FINANCE2(37),0)+'萬'),COLOR00FFFF

條件判斷 DISPSTATUS=2 THEN BEGIN

輸出VAR100賦值:'所屬地區(qū):'

VAR100賦值:VAR100+' 安徽'

VAR100賦值:VAR100+' 北京'

VAR100賦值:VAR100+' 福建'

VAR100賦值:VAR100+' 甘肅'

VAR100賦值:VAR100+' 廣東'

VAR100賦值:VAR100+' 廣西'

VAR100賦值:VAR100+' 貴州'

VAR100賦值:VAR100+' 海南'

VAR100賦值:VAR100+' 河北'

VAR100賦值:VAR100+' 河南'

VAR100賦值:VAR100+' 黑龍江'

VAR100賦值:VAR100+' 湖北'

VAR100賦值:VAR100+' 湖南'

VAR100賦值:VAR100+' 吉林'

VAR100賦值:VAR100+' 江蘇'

VAR100賦值:VAR100+' 江西'

VAR100賦值:VAR100+' 遼寧'

VAR100賦值:VAR100+' 內(nèi)蒙古'

VAR100賦值:VAR100+' 寧夏'

VAR100賦值:VAR100+' 青海'

VAR100賦值:VAR100+' 山東'

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

VAR100賦值:VAR100+' 次新股'

VAR100賦值:VAR100+' 大盤'

VAR100賦值:VAR100+' 參股金融'

VAR100賦值:VAR100+' 股權(quán)投資'

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,'--*-- 凈資產(chǎn):'+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

當(dāng)滿足條件收盤價*AA時,在0和9位置之間畫柱狀線,寬度為6,1不為0則畫空心柱.,COLORFFFFFF

當(dāng)滿足條件買入*AA時,在0和9位置之間畫柱狀線,寬度為6,0不為0則畫空心柱.,COLOR00FF00

當(dāng)滿足條件增持*AA時,在0和9位置之間畫柱狀線,寬度為6,0不為0則畫空心柱.,COLOR0000FF

當(dāng)滿足條件持有*AA時,在0和9位置之間畫柱狀線,寬度為6,0不為0則畫空心柱.,COLORFF00FF

10,COLOR0000FF

DRAWTEXTREL(810,550,'■買入'),COLOR00FF00

DRAWTEXTREL(860,550,'■增持'),COLOR0000FF

DRAWTEXTREL(910,550,'■持有'),COLORFF00FF

DRAWTEXTREL(960,550,'=>'),畫白色

當(dāng)滿足條件奧運概念*AA時,在10位置書寫文字,COLOR00FFFF

當(dāng)滿足條件整體上市*AA時,在8.5位置書寫文字,COLORFF00FF

當(dāng)滿足條件定向增發(fā)*AA時,在7位置書寫文字,COLOR00FF00

當(dāng)滿足條件預(yù)盈預(yù)增*AA時,在5.5位置書寫文字,COLOR0000FF

當(dāng)滿足條件基金重倉*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.tumamayizhan.com}
整體上市:(STRFIND(BKNAME,'整體上市',1)>0),COLORFF00FF,POINTDOT,LINETHICK0;{http://www.tumamayizhan.com}
定向增發(fā):(STRFIND(BKNAME,'定向增發(fā)',1)>0),COLOR00FF00,POINTDOT,LINETHICK0;{http://www.tumamayizhan.com}
預(yù)盈預(yù)增:(STRFIND(BKNAME,'預(yù)盈預(yù)增',1)>0),COLOR0000FF,POINTDOT,LINETHICK0;{http://www.tumamayizhan.com}
基金重倉:(STRFIND(BKNAME,'基金重倉',1)>0),COLORFFFF00,POINTDOT,LINETHICK0;{http://www.tumamayizhan.com}
DRAWTEXTREL(450,50,'■機構(gòu)評級:'+Extrastring('評級')),colorFFFF00;
DRAWTEXTREL(165,50,'總股本:'+NUMTOSTRN(FINANCE2(35),0)+'萬' +'流通A股:'+NUMTOSTRN(FINANCE2(37),0)+'萬'),COLOR00ffff;
if DISPSTATUS=2 then begin;
var100:='所屬地區(qū):';
if inblock('安徽')=1 then var100:=var100+' 安徽';
if inblock('北京')=1 then var100:=var100+' 北京';
if inblock('福建')=1 then var100:=var100+' 福建';
if inblock('甘肅')=1 then var100:=var100+' 甘肅';
if inblock('廣東')=1 then var100:=var100+' 廣東';
if inblock('廣西')=1 then var100:=var100+' 廣西';
if inblock('貴州')=1 then var100:=var100+' 貴州';
if inblock('海南')=1 then var100:=var100+' 海南';
if inblock('河北')=1 then var100:=var100+' 河北';
if inblock('河南')=1 then var100:=var100+' 河南';
if inblock('黑龍江')=1 then var100:=var100+' 黑龍江';
if inblock('湖北')=1 then var100:=var100+' 湖北';
if inblock('湖南')=1 then var100:=var100+' 湖南';
if inblock('吉林')=1 then var100:=var100+' 吉林';
if inblock('江蘇')=1 then var100:=var100+' 江蘇';
if inblock('江西')=1 then var100:=var100+' 江西';
if inblock('遼寧')=1 then var100:=var100+' 遼寧';
if inblock('內(nèi)蒙古')=1 then var100:=var100+' 內(nèi)蒙古';
if inblock('寧夏')=1 then var100:=var100+' 寧夏';
if inblock('青海')=1 then var100:=var100+' 青海';
if inblock('山東')=1 then var100:=var100+' 山東';
if inblock('山西')=1 then var100:=var100+' 山西';
if inblock('陜西')=1 then var100:=var100+' 陜西';
if inblock('上海')=1 then var100:=var100+' 上海';
if inblock('深圳')=1 then var100:=var100+' 深圳';
if inblock('四川')=1 then var100:=var100+' 四川';
if inblock('天津')=1 then var100:=var100+' 天津';
if inblock('***')=1 then var100:=var100+' ***';
if inblock('新疆')=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('創(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('股權(quán)投資')=1 then var100:=var100+' 股權(quán)投資';
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,'--*-- 凈資產(chǎn):'+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(定向增發(fā)*AA,7,''),COLOR00FF00;
DRAWTEXT(預(yù)盈預(yù)增*AA,5.5,''),COLOR0000FF;
DRAWTEXT(基金重倉*AA,4,''),COLORFFFF00;

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