我的自用主圖指標(biāo)公式代碼源碼

作者：飛狐來源：cxh99.com 發(fā)布時間：2021年10月21日

相關(guān)標(biāo)簽:西點自用指標(biāo)公式、通達信主圖指標(biāo)公式、黃金柱主圖指標(biāo)公式、金鉆指標(biāo)公式主圖、獲利盤主圖指標(biāo)公式、絕密主圖指標(biāo)公式、 macd主圖指標(biāo)公式、波段主圖指標(biāo)公式、恒者主圖指標(biāo)公式、分時主圖指標(biāo)公式、股票主圖指標(biāo)公式、主圖指標(biāo)公式源碼、妖股啟動指標(biāo)公式主圖、

{我的自用主圖
今天俺的中關(guān)村漲停，特將我的自用主圖拿出來分享。
本公式是我將各個公式組合而成，并非原創(chuàng)，如果喜歡請頂帖，加分，嘿嘿！}

原理解析：

填充背景

S賦值:('股票代碼：' + STKLABEL)

當(dāng)滿足條件(SYSPARAM(2)=BARPOS)時,在收盤價位置書寫文字,ALIGN4,畫黃色

當(dāng)滿足條件(BARPOS=SYSPARAM(2))時,在最高價位置書寫文字,ALIGN4,畫黃色

VARC賦值:((收盤價-10日內(nèi)最低價的最低值)/(10日內(nèi)最高價的最高值-10日內(nèi)最低價的最低值))*(100)的4日[1日權(quán)重]移動平均

VARD賦值:((收盤價-11日內(nèi)最低價的最低值)/(11日內(nèi)最高價的最高值-11日內(nèi)最低價的最低值))*(100)的4日[1日權(quán)重]移動平均

VARE賦值:((收盤價-12日內(nèi)最低價的最低值)/(12日內(nèi)最高價的最高值-12日內(nèi)最低價的最低值))*(100)的4日[1日權(quán)重]移動平均

VARF賦值:((收盤價-13日內(nèi)最低價的最低值)/(13日內(nèi)最高價的最高值-13日內(nèi)最低價的最低值))*(100)的4日[1日權(quán)重]移動平均

VAR10賦值:((收盤價-14日內(nèi)最低價的最低值)/(14日內(nèi)最高價的最高值-14日內(nèi)最低價的最低值))*(100)的4日[1日權(quán)重]移動平均

VAR11賦值:((收盤價-15日內(nèi)最低價的最低值)/(15日內(nèi)最高價的最高值-15日內(nèi)最低價的最低值))*(100)的4日[1日權(quán)重]移動平均

VAR12賦值:((收盤價-16日內(nèi)最低價的最低值)/(16日內(nèi)最高價的最高值-16日內(nèi)最低價的最低值))*(100)的4日[1日權(quán)重]移動平均

VAR13賦值:((收盤價-17日內(nèi)最低價的最低值)/(17日內(nèi)最高價的最高值-17日內(nèi)最低價的最低值))*(100)的4日[1日權(quán)重]移動平均

VAR14賦值:((收盤價-18日內(nèi)最低價的最低值)/(18日內(nèi)最高價的最高值-18日內(nèi)最低價的最低值))*(100)的4日[1日權(quán)重]移動平均

VAR17賦值:((收盤價-20日內(nèi)最低價的最低值)/(20日內(nèi)最高價的最高值-20日內(nèi)最低價的最低值))*(100)的4日[1日權(quán)重]移動平均

VAR18賦值:(最高價+最低價+收盤價)/(3)

VAR19賦值:(VAR18-VAR18的14日簡單移動平均)/((0.015)*(VAR18的14日平均絕對偏差))

VAR1A賦值:(VAR18-VAR18的70日簡單移動平均)/((0.015)*(VAR18的70日平均絕對偏差))

VAR1B賦值:如果(VAR19>=150)AND(VAR19<200)AND(VAR1A>=150)AND(VAR1A<200),返回(-10),否則返回0

VAR1C賦值:如果(VAR19<=(-150))AND(VAR19>(-200))AND(VAR1A<=(-150))AND(VAR1A>(-200)),返回10,否則返回0

VAR1D賦值:((收盤價-收盤價的13日簡單移動平均)/(收盤價的13日簡單移動平均))*(100)

VAR1E賦值:100-VAR1D的絕對值

趨勢賦值:((VAR11-50)*(2)的3日[1日權(quán)重]移動平均+(VARD-50)*(2)的3日[1日權(quán)重]移動平均)/(2),畫紅色,線寬為2

D賦值:((3)*(VAR17-50))*(2)-(2)*((VAR17-50)*(2)的3日[1日權(quán)重]移動平均),COLOR00FFFF

當(dāng)滿足條件D上穿趨勢時,在(最低價*0.99)位置書寫文字

長下影賦值:(收盤價和開盤價的較小值-最低價)/(最高價-最低價)>0.38

最新價賦值:最低價,線寬為0

新價賦值:收盤價,線寬為0

高價賦值:最高價,線寬為0

輸出出貨:1.36*收盤價的2日線性回歸預(yù)測值的40日簡單移動平均,COLOR08FFFF,POINTDOT,PRECISION2,線寬為3

輸出高拋:1.16*收盤價的2日線性回歸預(yù)測值的40日簡單移動平均,COLORFF82FF,POINTDOT,PRECISION2,線寬為3

輸出低吸:0.82*收盤價的2日線性回歸預(yù)測值的40日簡單移動平均,COLORF7E300,POINTDOT,PRECISION2,線寬為3

輸出滿倉:0.72*收盤價的2日線性回歸預(yù)測值的40日簡單移動平均,COLOR0000FF,POINTDOT,PRECISION2,線寬為3

輸出平衡:(高拋+低吸)/2,畫白色,PRECISION2,,POINTDOT,線寬為0

關(guān)注1賦值:滿倉>最新價 AND 長下影 AND 最新價<1日前的最新價,線寬為0

關(guān)注2賦值:低吸>最新價 AND 長下影 AND 最新價<1日前的最新價,線寬為0

M3賦值:收盤價的3日簡單移動平均,線寬為0

M8賦值:收盤價的8日簡單移動平均線寬為0

M21賦值:收盤價的21日簡單移動平均線寬為0

BB賦值:BARPOS=SYSPARAM(1)

輸出VARIABLE:WDAY[7]='星期六'

源碼：

DRAWGBK(v>1,colorRGB(10,160,0),colorRGB(25,15,0),70);
S:=('股票代碼：' + STKLABEL);
DRAWTEXT((SYSPARAM(2) = BARPOS),CLOSE,S),ALIGN4,colorYELLOW;
DRAWTEXT((BARPOS = SYSPARAM(2)),HIGH,((((((((((((((((((((((((((((((((((' 所屬板塊:' + BLKNAME) + '\n') + '發(fā)行價') + NUMTOSTR(FINANCE(51),2)) + '元') + ' 發(fā)行量') + NUMTOSTR(FINANCE(52),2)) + '萬股') + '\n') + '總股本') + NUMTOSTR(FINANCE(1),0)) + '萬股') + ' 流通A股') + NUMTOSTR(FINANCE(7),0)) + '萬股') + ' 凈資產(chǎn)') + NUMTOSTR(FINANCE(35),2)) + '億元') + ' 每股收益') + NUMTOSTR(FINANCE(33),2)) + '元') + ' 每股未分配') + NUMTOSTR(FINANCE(32),2)) + '元') + '\n') + '市盈率') + NUMTOSTR(DYNAINFO(39),2)) + '%') + ' 投資收益') + NUMTOSTR(FINANCE(24),2)) + '元') + ' 股東總數(shù)') + NUMTOSTR(FINANCE(50),0)) + '戶')),ALIGN4,colorYELLOW;
{分析家公式網(wǎng) http://www..com}
VARC:=SMA(((CLOSE-LLV(LOW,10))/(HHV(HIGH,10)-LLV(LOW,10)))*(100),4,1);
VARD:=SMA(((CLOSE-LLV(LOW,11))/(HHV(HIGH,11)-LLV(LOW,11)))*(100),4,1);
VARE:=SMA(((CLOSE-LLV(LOW,12))/(HHV(HIGH,12)-LLV(LOW,12)))*(100),4,1);
VARF:=SMA(((CLOSE-LLV(LOW,13))/(HHV(HIGH,13)-LLV(LOW,13)))*(100),4,1);
VAR10:=SMA(((CLOSE-LLV(LOW,14))/(HHV(HIGH,14)-LLV(LOW,14)))*(100),4,1);
VAR11:=SMA(((CLOSE-LLV(LOW,15))/(HHV(HIGH,15)-LLV(LOW,15)))*(100),4,1);
VAR12:=SMA(((CLOSE-LLV(LOW,16))/(HHV(HIGH,16)-LLV(LOW,16)))*(100),4,1);
VAR13:=SMA(((CLOSE-LLV(LOW,17))/(HHV(HIGH,17)-LLV(LOW,17)))*(100),4,1);
VAR14:=SMA(((CLOSE-LLV(LOW,18))/(HHV(HIGH,18)-LLV(LOW,18)))*(100),4,1);
VAR17:=SMA(((CLOSE-LLV(LOW,20))/(HHV(HIGH,20)-LLV(LOW,20)))*(100),4,1);
VAR18:=(HIGH+LOW+CLOSE)/(3);
VAR19:=(VAR18-MA(VAR18,14))/((0.015)*(AVEDEV(VAR18,14)));
VAR1A:=(VAR18-MA(VAR18,70))/((0.015)*(AVEDEV(VAR18,70)));
VAR1B:=IF((VAR19>=150) AND (VAR19<200) AND (VAR1A>=150) AND (VAR1A<200),(-10),0);
VAR1C:=IF((VAR19<=(-150)) AND (VAR19>(-200)) AND (VAR1A<=(-150)) AND (VAR1A>(-200)),10,0);
VAR1D:=((CLOSE-MA(CLOSE,13))/(MA(CLOSE,13)))*(100);
VAR1E:=100-ABS(VAR1D);趨勢:=(SMA((VAR11-50)*(2),3,1)+SMA((VARD-50)*(2),3,1))/(2),COLORRED,LINETHICK2;
D:=((3)*(VAR17-50))*(2)-(2)*(SMA((VAR17-50)*(2),3,1)),COLOR00FFFF;
DRAWTEXT(CROSS(D,趨勢),(LOW * 0.99),'買進');
{}
長下影:=(MIN(CLOSE,OPEN)-LOW)/(HIGH-LOW)>0.38;
最新價:=LOW,LINETHICK0;
新價:=CLOSE,LINETHICK0;
高價:=HIGH,LINETHICK0;
出貨:1.36*MA(FORCAST(CLOSE,2),40),COLOR08ffff,POINTDOT,PRECISION2,LINETHICK3;
高拋:1.16*MA(FORCAST(CLOSE,2),40),COLORff82ff,POINTDOT,PRECISION2,LINETHICK3;
低吸:0.82*MA(FORCAST(CLOSE,2),40),COLORf7e300,POINTDOT,PRECISION2,LINETHICK3;
滿倉:0.72*MA(FORCAST(CLOSE,2),40),COLOR0000ff,POINTDOT,PRECISION2,LINETHICK3;
平衡:(高拋+低吸)/2,ColorWHITE,PRECISION2,,POINTDOT,LINETHICK0;關(guān)注1:=滿倉>最新價 AND 長下影 AND 最新價<REF(最新價,1),linethick0;
關(guān)注2:=低吸>最新價 AND 長下影 AND 最新價<REF(最新價,1),linethick0;{}M3:=MA(CLOSE,3),linethick0;
M8:=MA(CLOSE,8)linethick0;
M21:=MA(CLOSE,21)linethick0;
BB:=BARPOS=SYSPARAM(1);
variable:wday[7]='星期六';
wday[1]:='星期日';
wday[2]:='星期一';
wday[3]:='星期二';
wday[4]:='星期三';
wday[5]:='星期四';
wday[6]:='星期五';
fy:=year;
fm:=month;
fd:=day;
wd:=weekday;
p:=sysparam(1);
str1:='今天是：'+numtostr(fy[p],0)+'年'+numtostr(fm[p],0)+'月'
+numtostr(fd[p],0)+'日, '+wday[wd[p]+1];
explain(barpos=p,str1),colorRED;
DRAWTEXT(barpos=p,H*1.12,str1),ALIGN2,coloryellow,;
買線:=EMA(C,2);
賣線:=EMA(SLOPE(C,13)*20+C,40);
BU:=cross(買線,賣線);
SEL:=cross(賣線,買線);
drawtext(bu,LOW*0.996,'B'),colorred,linethick3;
買入:bu AND LOW*0.996,LINETHICK0,COLORRED;
drawtext(sel,HIGH*1.028,'S'),colorffff00,linethick3;
stickline(買線>=賣線,low,high,1,0),colorred;
stickline(買線>=賣線,close,open,4.5,0),color0000aa;
stickline(買線>=賣線,close,open,4,0),color0000cc;
stickline(買線>=賣線,close,open,3,0),color0000cc;
stickline(買線>=賣線,close,open,2,0),color0000ee;
stickline(買線<賣線,close,open,4.5,0),coloraaaa00;
stickline(買線<賣線,close,open,4,0),colorbbbb00;
stickline(買線<賣線,close,open,3,0),colorcccc00;
stickline(買線<賣線,close,open,2,0),coloreeee00;
stickline(買線<賣線,low,high,1,0),colorffff00;
stickline(cross(買線,賣線) or cross(賣線,買線),open,close,3,0),color00ffff;
v1:=ema(close,5);
v2:=ema(ema(close,90)*1.01,10),;
DRAWTEXT(cross(v1,v2),v1+0.01,'牛起步'),color00ff00,LINETHICK2;
VAR1:=LLV(LOW,21);
VAR2:=HHV(HIGH,21);
AK1:=EMA((((CLOSE - VAR1) / (VAR2 - VAR1)) * 100),5);
AK:=EMA((((CLOSE - VAR1) / (VAR2 - VAR1)) * 50),13);
AB:=CROSS(AK1,AK);
DRAWICON(cross(v1,v2),v2,1);
DRAWTEXT(關(guān)注1,(LOW * 0.99),'○牛窩'),colorYELLOW;
牛窩:關(guān)注1,LINETHICK0;
牛起步:cross(v1,v2),LINETHICK0;
黑馬掃蕩:=滿倉>最新價 AND 滿倉<高價,LINETHICK0;
黑馬:關(guān)注1 OR 關(guān)注2 OR 黑馬掃蕩,LINETHICK0,COLORYELLOW;input:n(4,1,255);
wN:=N;{原碼 N:=3;}
wA1:=REF(H,wN)=HHV(H,2*wN+1); wB1:=FILTER(wA1,wN);
wC1:=BACKSET(wB1,wN+1);
wD1:=FILTER(wC1,wN);{高點}
wA2:=REF(L,wN)=LLV(L,2*wN+1); wB2:=FILTER(wA2,wN);
wC2:=BACKSET(wB2,wN+1);
wD2:=FILTER(wC2,wN);{低點}
wR1:=BACKSET(BARSTATUS=2,BARSLAST(wD1)+1); wS1:=wR1>REF(wR1,1); {前一高}
wT1:=BACKSET(BARSTATUS=2,BARSLAST(wD2)+1); wU1:=wT1>REF(wT1,1); {前一低}
wR2:=BACKSET(wS1,REF(BARSLAST(wD1),1)+2); wS2:=wR2>REF(wR2,1); {前二高}
wT2:=BACKSET(wU1,REF(BARSLAST(wD2),1)+2); wU2:=wT2>REF(wT2,1); {前二低}
wR3:=BACKSET(wS2,REF(BARSLAST(wD1),1)+2); wS3:=wR3>REF(wR3,1); {前三高}
wT3:=BACKSET(wU2,REF(BARSLAST(wD2),1)+2); wU3:=wT3>REF(wT3,1); {前三低}
wR4:=BACKSET(wS3,REF(BARSLAST(wD1),1)+2); wS4:=wR4>REF(wR4,1); {前四高}
wT4:=BACKSET(wU3,REF(BARSLAST(wD2),1)+2); wU4:=wT4>REF(wT4,1); {前四高}
DRAWLINE(wS2,H,wS1,H,1),Color0000Ff,LINETHICK1; {壓力１:}
DRAWLINE(wU2,L,wU1,L,1),ColorWHITE,LINETHICK1;{支撐１:}
DRAWLINE(wS3,H,wS2,H,1),Color0000Ff,LINETHICK0; {壓力２:}
DRAWLINE(wU3,L, wU2,L,1),ColorWHITE,LINETHICK0;{支撐２:}
DRAWLINE(wS4,H,wS3,H,1),Color0000Ff,LINETHICK0;{壓力３:}
DRAWLINE(wU4,L, wU3,L,1),ColorWHITE,LINETHICK0;{支撐３;}提示：公式有未來函數(shù)

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