天一神鞭指標公式源碼

作者：通達信來源：cxh99.com 發(fā)布時間：2020年11月23日

相關(guān)標簽:

源碼：
動態(tài)止損度:=5; 黑:=0;{下跌通道黑色K線開關(guān)} 離L:=0;{乖離提示開關(guān)} 提示:=0;{買賣文字提示開關(guān)} 布林M:=0;{開關(guān)}MMA:=0; 五:MA(CLOSE,5),COLORWHITE; 十:MA(CLOSE,10),COLOR00FFFF; M18:=MA(CLOSE,18),COLORRED; 離基:=五; 離O:=離基*1.20,COLOR555555; 離A:離基*1.15,COLOR555555; 離B:離基*1.10,COLOR555555; 離C:離基*0.90,COLOR555555; 離D:=離基*0.85,COLOR333333; EXP50:=EXPMA(CLOSE,50),COLORGREEN; MA30:MA(CLOSE,30),LINETHICK1,COLORRED; MA60:MA(CLOSE,60),COLORGREEN; β0:=(H-L)/2+L,LINETHICK0; α:=β0,LINETHICK0; β:=REF(β0,1),LINETHICK0,COLORGREEN; γ:=REF(β0,2),LINETHICK0,COLORMAGENTA; {漲:PLOYLINE(C>REF(C,1),CONST(C)),COLOR0000AA,LINETHICK1; 跌:PLOYLINE(C<REF(C,1),CONST(C)),COLOR00AA00,LINETHICK1;}高:PLOYLINE(1,CONST(HHV(H,50))),COLOR770077,LINETHICK1; 低:=PLOYLINE(1,CONST(LLV(L,50))),COLOR777700,LINETHICK1; 中:=PLOYLINE(1,(高-低)/2+低),COLOR005555,LINETHICK4; 止損價:=CONST(HHV(C,5)*(100-動態(tài)止損度)/100); 止:PLOYLINE(CONST(C)<=止損價,止損價),COLOR888800,LINETHICK4;DRAWTEXT(DYNAINFO(7)<=止損價 AND ISLASTBAR,止損價*1.05,'止損'); AA:=CLOSE/REF(C,1)>=1.09; BA:=CLOSE/REF(C,1)>=1.09; DRAWKLINE(H,O,L,C); STICKLINE(AA,O,C,2.5,1),COLORYELLOW; MA1:=MA(CLOSE,5),COLORRED; MA2:=MA(CLOSE,10),COLORYELLOW; MA3:=MA(CLOSE,20),COLOR770077; E50:=EXPMA(CLOSE,50),LINETHICK1,POINTDOT,COLORLIGREEN; E100:=EXPMA(CLOSE,100),POINTDOT,COLORGRAY; MA181:MA(C,181),COLORGRAY; {MA60:=MA(C,60),COLOR007700;} {周:IF( MMA=1 ,MA2,DRAWNULL),COLORYELLOW,LINETHICK1; 月:IF( MMA=1 ,MA3,DRAWNULL),COLORWHITE,LINETHICK1; 季:IF( MMA=1 ,MA4,DRAWNULL),COLORGREEN,LINETHICK1;}{IF(C>E50 ,E50,DRAWNULL),COLOR00FF00,LINETHICK1;}IF(CONST(α>β) AND DYNAINFO(7)>0,DYNAINFO(7),DRAWNULL),COLOR000088,LINETHICK1; IF(CONST(α<=β)AND DYNAINFO(7)>0 ,DYNAINFO(7),DRAWNULL),COLOR008800,LINETHICK1; IF(CONST(α>β) AND DYNAINFO(7)>0 AND DYNAINFO(7)>=高*0.99,DYNAINFO(7),DRAWNULL),COLOR000088,LINETHICK1; IF(CONST(α<=β)AND DYNAINFO(7)>0 AND DYNAINFO(7)<=低*1.01 ,DYNAINFO(7),DRAWNULL),COLOR008800,LINETHICK1; N1:=12; N2:=26; N3:=9; DIFF:=(EMA(CLOSE,N1) - EMA(CLOSE,N2)); DEA:=EMA(DIFF,N3); MACD:=(2 * (DIFF - DEA)); MACD2:=MACD;SARH:=CLOSE>SAR(4,2,20);{IF(C<MA3 ,MA1,DRAWNULL),COLOR555555,LINETHICK1;} {IF(C<MA3 ,MA2,DRAWNULL),COLOR222222,LINETHICK1;}{IF(五>=REF(五,1) ,離A,DRAWNULL),COLOR0000FF,LINETHICK1; IF(五>=REF(五,1) ,離B,DRAWNULL),COLOR0000FF,LINETHICK1; IF(五<=REF(五,1) ,離C,DRAWNULL),COLOR00FF00,LINETHICK1; IF(五<=REF(五,1) ,離D,DRAWNULL),COLOR00FF00,LINETHICK1;}五V:=MA(V,5);{IF(五V>=REF(五V,1) ,離A,DRAWNULL),COLOR0000FF,LINETHICK1; IF(五V>=REF(五V,1) ,離B,DRAWNULL),COLOR0000FF,LINETHICK1; IF(五V<=REF(五V,1) ,離C,DRAWNULL),COLOR00FF00,LINETHICK1; IF(五V<=REF(五V,1) ,離D,DRAWNULL),COLOR00FF00,LINETHICK1;} {IF(五<REF(五,2) AND 離L=0,離A,DRAWNULL),COLOR555555,LINETHICK1; IF(五<REF(五,2) AND 離L=0,離D,DRAWNULL),COLOR555555,LINETHICK1;}TYP:=(HIGH+LOW+CLOSE)/3; CCI:=(TYP-MA(TYP,14))/(0.015*AVEDEV(TYP,14)); STICKLINE(C<MA3 AND 黑=1,H,L,0,0),COLOR555555; STICKLINE(MA1<MA3 AND 黑=1,O,C,2.5,1),COLOR555555;STICKLINE(BA AND C<MA3,O,C,2.7,1),COLORWHITE; {DRAWICON(MACD>REF(MACD,1) AND CROSS(C,MA3) AND 提示=0 ,L,1);}{DRAWICON(REF(C>MA3 AND 提示,1) AND CROSS(MA(C,5),C),H,2);}N:=14; M:=6;HD :=HIGH-REF(HIGH,1); LD :=REF(LOW,1)-LOW; DMP:=EXPMEMA(IF(HD>0&&HD>LD,HD,0),N); DMM:=EXPMEMA(IF(LD>0&&LD>HD,LD,0),N); PDI:=DMP*100/TR; MDI:=DMM*100/TR; ADX:=EXPMEMA(ABS(MDI-PDI)/(MDI+PDI)*100,M); ADXR:=EXPMEMA(ADX,M); DMIJX:=CROSS(PDI,MDI) AND C>O ; {STICKLINE(DMIJX,H,L,0,1),COLORYELLOW; STICKLINE(DMIJX,O,C,2.7,0),COLORYELLOW;}{DRAWICON(DMIJX AND 提示=0,L,1);} {DRAWTEXT(H>離A,離A/0.99,''),COLORYELLOW;}頭上邊:=MAX(O,C),NODRAW; 頭下邊:=MIN(O,C),NODRAW; 垂頭:=ABS(O-C),NODRAW;{垂頭} 長針:=(頭下邊-L),NODRAW;{長針} 垂:=長針/垂頭>2 AND (H-頭上邊)<=長針 AND L<REF(L,1) AND O<REF(C,1),NODRAW; DRAWTEXT(垂 AND L<=LLV(L,3) AND L<離C AND 提示,L/1.01,'針') AND 提示,COLORGREEN,LINETHICK4; DRAWTEXT(H>MA(CLOSE,5)*1.07 AND ISLASTBAR AND 提示,H*1.01,'離!'),COLORGREEN,LINETHICK2; DRAWTEXT(L<MA(CLOSE,5)*1.005 AND L>MA(CLOSE,5) AND 提示=0 AND H<MA(CLOSE,5)*1.07 AND ISLASTBAR,L/1.02,'低吸'),COLORGREEN,LINETHICK2;{////MACD反身向上////} {MACD紅縮:=REF(MACD,1)>MACD AND MACD>0; DRAWTEXT(REF(EVERY(MACD紅縮,3),1) AND MACD>REF(MACD,1) AND C>MA(C,22) AND 提示=0,L/1.02,'啟動'),COLORWHITE; } {////MACD反身向上2////} {MACD紅縮2:=REF(MACD,1)>MACD AND MACD>0; DRAWTEXT(REF(EVERY(MACD紅縮2,2),1) AND MACD>REF(MACD,1) AND C>MA(C,22) AND EVERY(DIFF>0,3) AND 提示=0,L/1.02,'起動'),COLORWHITE; }{突破買進(源碼)}{DRAWTEXT(DYNAINFO(7)>0 AND ISLASTBAR ,HIGH,'("DYNAINFO(7)")');} 上5日:=REF(EVERY(C<MA1,2),1) AND CROSS(C,MA1); STICKLINE(上5日,H,L,0,0),COLORFF00FF; {STICKLINE(上5日,O,C,2.7,0),COLOR3366FF;} STICKLINE(上5日,O,C,2.7,0),COLORFF00FF; DRAWICON(上5日,L,1); 破5日:=REF(EVERY(C>MA1,4),1) AND CROSS(MA1,C); DRAWICON(破5日,H,2); DT:=REF(CLOSE/REF(C,1),1)<=0.95; DRAWTEXT(AA AND DT AND CURRBARSCOUNT<60 ,H,'急挖坑'),COLORGREEN;SC1:=MACD.MACD<0; SC2:=CROSS(十,五); SC3:=MA(V,5)<MA(V,10); SC:=SC1 AND SC2 AND SC3 ; DRAWTEXT(SC AND CURRBARSCOUNT<10 ,HHV(H,5),'三死叉'),COLORWHITE;JC1:=MACD.MACD>0; JC2:=CROSS(五,十); JC3:=MA(V,5)>MA(V,10); JC:=JC1 AND JC2 AND JC3 ; DRAWTEXT(JC AND CURRBARSCOUNT<20 ,LLV(L,5),'后金叉'),COLORYELLOW;{ZS:=CROSS(DMI.ADXR,DMI.ADX); DRAWTEXT(ZS AND CURRBARSCOUNT<10 ,HHV(H,5),'轉(zhuǎn)勢'),COLORRED;}{IF(五<REF(五,1),五,DRAWNULL),COLOR888888,LINETHICK1;};{XQK:=H<REF(L,1) ; DRAWTEXT(XQK AND CURRBARSCOUNT<20 ,H,'□□□□□□□□□□□□'),COLOR999999; SQK:= L>REF(H,1); DRAWTEXT(SQK AND CURRBARSCOUNT<20 ,L,'□□□□□□□□□□□□'),COLORRED;}; DRAWTEXT(CROSS(H,離B) AND CURRBARSCOUNT<10 ,HHV(H,3),'超乖離'),COLORYELLOW; DRAWTEXT(CROSS(H,離A) AND CURRBARSCOUNT<10 ,HHV(H,3),'超乖離'),COLORYELLOW; DRAWTEXT(CROSS(離C,L) AND CURRBARSCOUNT<10 ,LLV(L,3),'負乖離'),COLORWHITE; DRAWTEXT((C<MA(C,5) OR MA(C,5)<MA(C,10)) AND CURRBARSCOUNT<2,HHV(H,5)*1.04,'MA5下'),COLORRED; DRAWTEXT((C<MA(C,5) OR MA(C,5)<MA(C,10)) AND CURRBARSCOUNT<2 ,HHV(H,5)*1.01,'不持股'),COLORRED;

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

原理解析：

動態(tài)止損度賦值:5

黑賦值:0

離L賦值:0

提示賦值:0

布林M賦值:0

MMA賦值:0

輸出五:收盤價的5日簡單移動平均,畫白色

輸出十:收盤價的10日簡單移動平均,COLOR00FFFF

M18賦值:收盤價的18日簡單移動平均,畫紅色

離基賦值:五

離O賦值:離基*1.20,COLOR555555

輸出離A:離基*1.15,COLOR555555

輸出離B:離基*1.10,COLOR555555

輸出離C:離基*0.90,COLOR555555

離D賦值:離基*0.85,COLOR333333

EXP50賦值:收盤價的50日指數(shù)移動平均,畫綠色

輸出MA30:收盤價的30日簡單移動平均,線寬為1,畫紅色

輸出MA60:收盤價的60日簡單移動平均,畫綠色

β0賦值:(最高價-最低價)/2+最低價,線寬為0

α賦值:β0,線寬為0

β賦值:1日前的β0,線寬為0,畫綠色

γ賦值:2日前的β0,線寬為0,畫洋紅色

輸出高:當(dāng)滿足條件1時以50日內(nèi)最高價的最高值的最后一日取值設(shè)為常數(shù)位置為頂點畫折線連接,COLOR770077,線寬為1

低賦值:當(dāng)滿足條件1時以50日內(nèi)最低價的最低值的最后一日取值設(shè)為常數(shù)位置為頂點畫折線連接,COLOR777700,線寬為1

中賦值:當(dāng)滿足條件1時以(高-低)/2+低位置為頂點畫折線連接,COLOR005555,線寬為4

止損價賦值:5日內(nèi)收盤價的最高值*(100-動態(tài)止損度)/100的最后一日取值設(shè)為常數(shù)

輸出止:當(dāng)滿足條件收盤價的最后一日取值設(shè)為常數(shù)<=止損價時以止損價位置為頂點畫折線連接,COLOR888800,線寬為4

當(dāng)滿足條件現(xiàn)價<=止損價ANDISLASTBAR時,在止損價*1.05位置書寫文字

AA賦值:收盤價/1日前的收盤價>=1.09

BA賦值:收盤價/1日前的收盤價>=1.09

K線

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

MA1賦值:收盤價的5日簡單移動平均,畫紅色

MA2賦值:收盤價的10日簡單移動平均,畫黃色

MA3賦值:收盤價的20日簡單移動平均,COLOR770077

E50賦值:收盤價的50日指數(shù)移動平均,線寬為1,POINTDOT,畫淡綠色

E100賦值:收盤價的100日指數(shù)移動平均,POINTDOT,畫深灰色

輸出MA181:收盤價的181日簡單移動平均,畫深灰色

如果α>β的最后一日取值設(shè)為常數(shù)ANDDYNAINFO(7)>0,返回現(xiàn)價,否則返回?zé)o效數(shù),COLOR000088,線寬為1

如果α<=β的最后一日取值設(shè)為常數(shù)ANDDYNAINFO(7)>0,返回現(xiàn)價,否則返回?zé)o效數(shù),COLOR008800,線寬為1

如果α>β的最后一日取值設(shè)為常數(shù)ANDDYNAINFO(7)>0ANDDYNAINFO(7)>=高*0.99,返回現(xiàn)價,否則返回?zé)o效數(shù),COLOR000088,線寬為1

如果α<=β的最后一日取值設(shè)為常數(shù)ANDDYNAINFO(7)>0ANDDYNAINFO(7)<=低*1.01,返回現(xiàn)價,否則返回?zé)o效數(shù),COLOR008800,線寬為1

N1賦值:12

N2賦值:26

N3賦值:9

DIFF賦值:(收盤價的N1日指數(shù)移動平均 - 收盤價的N2日指數(shù)移動平均)

DEA賦值:DIFF的N3日指數(shù)移動平均

MACD賦值:(2 * (DIFF - DEA))

MACD2賦值:MACD

SARH賦值:收盤價>步長為2極限值為20的4日拋物轉(zhuǎn)向

五V賦值:成交量(手)的5日簡單移動平均

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

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

當(dāng)滿足條件收盤價<MA3AND黑=1時,在最高價和最低價位置之間畫柱狀線,寬度為0,0不為0則畫空心柱.,COLOR555555

當(dāng)滿足條件MA1<MA3AND黑=1時,在開盤價和收盤價位置之間畫柱狀線,寬度為2.5,1不為0則畫空心柱.,COLOR555555

當(dāng)滿足條件BAANDC<MA3時,在開盤價和收盤價位置之間畫柱狀線,寬度為2.7,1不為0則畫空心柱.,畫白色

N賦值:14

M賦值:6

賦值:最高價-1日前的最高價

賦值:1日前的最低價-最低價

DMP賦值:如果HD>0并且HD>LD,返回HD,否則返回0的N日指數(shù)平滑移動平均

DMM賦值:如果LD>0并且LD>HD,返回LD,否則返回0的N日指數(shù)平滑移動平均

PDI賦值:DMP*100/真實波幅

MDI賦值:DMM*100/真實波幅

ADX賦值:MDI-PDI的絕對值/(MDI+PDI)*100的M日指數(shù)平滑移動平均

ADXR賦值:ADX的M日指數(shù)平滑移動平均

DMIJX賦值:PDI上穿MDI AND 收陽線

頭上邊賦值:開盤價和收盤價的較大值,NODRAW

頭下邊賦值:開盤價和收盤價的較小值,NODRAW

垂頭賦值:開盤價-收盤價的絕對值,NODRAW

長針賦值:(頭下邊-最低價),NODRAW

垂賦值:長針/垂頭>2 AND (最高價-頭上邊)<=長針 AND 最低價<1日前的最低價 AND 開盤價<1日前的收盤價,NODRAW

當(dāng)滿足條件垂ANDL<=3日內(nèi)最低價的最低值A(chǔ)NDL<離CAND提示時,在最低價/1.01位置書寫文字 AND 提示,畫綠色,線寬為4

當(dāng)滿足條件最高價>收盤價的5日簡單移動平均*1.07ANDISLASTBARAND提示時,在最高價*1.01位置書寫文字,畫綠色,線寬為2

當(dāng)滿足條件最低價<收盤價的5日簡單移動平均*1.005ANDL>收盤價的5日簡單移動平均AND提示=0ANDH<收盤價的5日簡單移動平均*1.07ANDISLASTBAR時,在最低價/1.02位置書寫文字,畫綠色,線寬為2

上5日賦值:1日前的最近2日一直存在收盤價<MA1 AND 收盤價上穿MA1

當(dāng)滿足條件上5日時,在最高價和最低價位置之間畫柱狀線,寬度為0,0不為0則畫空心柱.,COLORFF00FF

當(dāng)滿足條件上5日時,在開盤價和收盤價位置之間畫柱狀線,寬度為2.7,0不為0則畫空心柱.,COLORFF00FF

當(dāng)滿足條件上5日時,在最低價位置畫1號圖標

破5日賦值:1日前的最近4日一直存在收盤價>MA1 AND MA1上穿收盤價

當(dāng)滿足條件破5日時,在最高價位置畫2號圖標

DT賦值:1日前的收盤價/1日前的收盤價<=0.95

當(dāng)滿足條件AAANDDTANDCURRBARSCOUNT<60時,在最高價位置書寫文字,畫綠色

SC1賦值:MACD.MACD<0

SC2賦值:十上穿五

SC3賦值:成交量(手)的5日簡單移動平均<成交量(手)的10日簡單移動平均

SC賦值:SC1 AND SC2 AND SC3?

當(dāng)滿足條件SCANDCURRBARSCOUNT<10時,在5日內(nèi)最高價的最高值位置書寫文字,畫白色

JC1賦值:MACD.MACD>0

JC2賦值:五上穿十

JC3賦值:成交量(手)的5日簡單移動平均>成交量(手)的10日簡單移動平均

JC賦值:JC1 AND JC2 AND JC3?

當(dāng)滿足條件JCANDCURRBARSCOUNT<20時,在5日內(nèi)最低價的最低值位置書寫文字,畫黃色

當(dāng)滿足條件最高價上穿離BANDCURRBARSCOUNT<10時,在3日內(nèi)最高價的最高值位置書寫文字,畫黃色

當(dāng)滿足條件最高價上穿離AANDCURRBARSCOUNT<10時,在3日內(nèi)最高價的最高值位置書寫文字,畫黃色

當(dāng)滿足條件離C上穿最低價ANDCURRBARSCOUNT<10時,在3日內(nèi)最低價的最低值位置書寫文字,畫白色

當(dāng)滿足條件(收盤價<收盤價的5日簡單移動平均ORMA(收盤價,5)<收盤價的10日簡單移動平均)ANDCURRBARSCOUNT<2時,在5日內(nèi)最高價的最高值*1.04位置書寫文字,畫紅色

當(dāng)滿足條件(收盤價<收盤價的5日簡單移動平均ORMA(收盤價,5)<收盤價的10日簡單移動平均)ANDCURRBARSCOUNT<2時,在5日內(nèi)最高價的最高值*1.01位置書寫文字,畫紅色

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