纏論中樞提示主圖指標公式[同花順公式]

相關標簽:纏論中樞畫線主圖指標 、 纏論畫筆中樞公式指標 、 纏 指標 主圖 中樞 、 纏論線段主圖指標公式 、 精品纏論主圖指標公式 、 通達信纏論中樞主圖 、 通達信纏論中樞指標 、 mt4纏論中樞指標 、 帶中樞纏論指標 、 纏論中樞指標源碼 、 通達信纏論中樞公式 、 纏論中樞畫線公式 、 精確纏論中樞公式 、 纏論中樞劃分公式 、 纏論中樞公式最新 、

?

纏論的中樞提示主圖指標源碼

?

原理解析：
KX賦值:'CHANLUN@KXIAN' KXG賦值:'CHANLUN@KXG' KXD賦值:'CHANLUN@KXD' KXFX賦值:'CHANLUN@KXFX' 筆賦值:'CHANLUN@BI' 輸出筆周期:'CHANLUN@BILAST',線寬為0, COLORFF00FF BILAST賦值:'CHANLUN@BILAST' 段賦值:'CHANLUN@DUAN' 輸出段周期:'CHANLUN@DUANLAST', 線寬為0, COLORFFFFFF DUANLAST賦值:'CHANLUN@DUANLAST' 中樞賦值:'CHANLUN@ZS' ZSZG賦值:'CHANLUN@ZSZG' ZSZD賦值:'CHANLUN@ZSZD' ZSGG賦值:'CHANLUN@ZSGG' ZSDD賦值:'CHANLUN@ZSDD' ZSZZ賦值:'CHANLUN@ZSZZ' ZSKS賦值:'CHANLUN@ZSKSLAST' ZSJS賦值:'CHANLUN@ZSJSLAST' BIFX賦值:-BILAST日前的筆 DUANFX賦值:-DUANLAST日前的段 KXQJ賦值:'CHANLUN@KXQJ' 當滿足條件ZSZG>ZSZDANDDUANFX=1時,在ZSZG和ZSZD位置之間畫柱狀線,寬度為10,1不為0則畫空心柱.,COLOR8E236B 當滿足條件ZSZG>ZSZDANDDUANFX=-1時,在ZSZG和ZSZD位置之間畫柱狀線,寬度為10,1不為0則畫空心柱., COLOR007700 當滿足條件ZSKS=1時,在ZSZZ位置畫直線起點，當滿足條件ZSJS=1時,在ZSZZ位置畫直線終點,0表示是否延長., COLORFFFFFF 當滿足條件KX>0時,在KXG和KXD位置之間畫柱狀線,寬度為5,1不為0則畫空心柱.,COLOR007700,線寬為2 當滿足條件KX<0時,在KXG和KXD位置之間畫柱狀線,寬度為5,1不為0則畫空心柱.,COLOR00FFFF,線寬為2 當滿足條件筆=1時,在KXG和KXD位置之間畫柱狀線,寬度為5,1不為0則畫空心柱., 畫綠色, 線寬為2 當滿足條件筆=-1時,在KXG和KXD位置之間畫柱狀線,寬度為5,1不為0則畫空心柱., 畫紅色, 線寬為2 當滿足條件段=1時,在KXG和KXD位置之間畫柱狀線,寬度為5,0不為0則畫空心柱., COLOR007700, 線寬為2 當滿足條件段=-1時,在KXG和KXD位置之間畫柱狀線,寬度為5,0不為0則畫空心柱., COLOR0000CC, 線寬為2 當滿足條件筆=1時,在最高價位置畫直線起點，當滿足條件筆=-1時,在最低價位置畫直線終點,0表示是否延長.,畫藍色,線寬為2 當滿足條件筆=-1時,在最低價位置畫直線起點，當滿足條件筆=1時,在最高價位置畫直線終點,0表示是否延長.,COLORFF00FF ,線寬為2 當滿足條件段=1時,在最高價位置畫直線起點，當滿足條件段=-1時,在最低價位置畫直線終點,0表示是否延長.,COLOR007700, 線寬為2 當滿足條件段=-1時,在最低價位置畫直線起點，當滿足條件段=1時,在最高價位置畫直線終點,0表示是否延長.,畫紅色, 線寬為2 當滿足條件筆=1時,在最高價*1.038位置書寫文字, COLORFFFFFF 當滿足條件筆=-1時,在最低價*0.96位置書寫文字, COLORFFFFFF VAR3賦值:240日內最高價的最低值 VAR4賦值:100*(收盤價-VAR3)/VAR3 VAR5賦值:(收盤價-528日內最低價的最低值)/(528日內最高價的最高值-528日內最低價的最低值)*100 VAR6賦值:(收盤價-530日內收盤價的最低值)/(530日內收盤價的最高值-530日內收盤價的最低值)*100 VAR7賦值:0 VAR8賦值:收盤價-1日前的收盤價和0的較大值的34日[1日權重]移動平均/收盤價-1日前的收盤價的絕對值的7日[1日權重]移動平均*100 VAR9賦值:收盤價-1日前的收盤價和0的較大值的13日[1日權重]移動平均/收盤價-1日前的收盤價的絕對值的13日[1日權重]移動平均*100 VAR10賦值:如果收盤價16%之字轉向的前1個波谷位置=0ANDH>最低價+0.04,返回4,否則返回0 VAR11賦值:收盤價6%的之字轉向>1日前的收盤價6%的之字轉向 AND 1日前的收盤價6%的之字轉向<=2日前的收盤價6%的之字轉向 AND 2日前的收盤價6%的之字轉向<=3日前的收盤價6%的之字轉向 VAR12賦值:收盤價6%的之字轉向<1日前的收盤價6%的之字轉向 AND 1日前的收盤價6%的之字轉向>=2日前的收盤價6%的之字轉向 AND 2日前的收盤價6%的之字轉向>=3日前的收盤價6%的之字轉向 VAR13賦值:收盤價22%的之字轉向>1日前的收盤價22%的之字轉向 AND 1日前的收盤價22%的之字轉向<=2日前的收盤價22%的之字轉向 AND 2日前的收盤價22%的之字轉向<=3日前的收盤價22%的之字轉向 VAR14賦值:收盤價22%的之字轉向<1日前的收盤價22%的之字轉向 AND 1日前的收盤價22%的之字轉向>=2日前的收盤價22%的之字轉向 AND 2日前的收盤價22%的之字轉向>=3日前的收盤價22%的之字轉向 VAR15賦值:收盤價51%的之字轉向>1日前的收盤價51%的之字轉向 AND 1日前的收盤價51%的之字轉向<=2日前的收盤價51%的之字轉向 AND 2日前的收盤價51%的之字轉向<=3日前的收盤價51%的之字轉向 VAR16賦值:收盤價51%的之字轉向<1日前的收盤價51%的之字轉向 AND 1日前的收盤價51%的之字轉向>=2日前的收盤價51%的之字轉向 AND 2日前的收盤價51%的之字轉向>=3日前的收盤價51%的之字轉向 VAR17賦值:收盤價72%的之字轉向>1日前的收盤價72%的之字轉向 AND 1日前的收盤價72%的之字轉向<=2日前的收盤價72%的之字轉向 AND 2日前的收盤價72%的之字轉向<=3日前的收盤價72%的之字轉向 VAR18賦值:收盤價72%的之字轉向<1日前的收盤價72%的之字轉向 AND 1日前的收盤價72%的之字轉向>=2日前的收盤價72%的之字轉向 AND 2日前的收盤價72%的之字轉向>=3日前的收盤價72%的之字轉向 VAR19賦值:收盤價的2日指數移動平均-收盤價的150日指數移動平均 買１賦值:VAR10 買２賦值:(VAR11+VAR13+VAR15+VAR17) 賣１賦值:(VAR12+VAR14+VAR16+VAR18) 當滿足條件買１>0OR買２>0時,在最低價*0.985位置書寫文字,COLOR00FFFF 當滿足條件賣１>0時,在最高價*1.01位置書寫文字,COLOR00FFFF APP賦值:(成交量(手))/((最高價-最低價)*(2)-收盤價-開盤價的絕對值) ZL賦值:如果(最高價>開盤價),返回(APP)*(最高價-最低價),否則返回如果(最低價<開盤價),返回(APP)*(最高價-開盤價+收盤價-最低價),否則返回(成交量(手))/(2) SF賦值:如果(最高價>開盤價),返回0-(APP)*(最高價-收盤價+開盤價-最低價),否則返回如果(最低價<開盤價),返回0-(APP)*(最高價-最低價),否則返回0-(成交量(手))/(2) 庫存能量賦值:ZL+SF的2日簡單移動平均 庫存平均賦值:ZL+SF的5日簡單移動平均 輸出GET:收盤價5%的之字轉向,畫黃色,線寬為3 PL5賦值:收盤價5%的之字轉向 EN1賦值:PL5>1日前的PL5 AND 1日前的PL5<=2日前的PL5 AND 2日前的PL5<=3日前的PL5 EX1賦值:PL5<1日前的PL5 AND 1日前的PL5>=2日前的PL5 AND 2日前的PL5>=3日前的PL5 PL10賦值:收盤價10%的之字轉向 EN2賦值:PL10>1日前的PL10 AND 1日前的PL10<=2日前的PL10 AND 2日前的PL10<=3日前的PL10 EX2賦值:PL10<1日前的PL10 AND 1日前的PL10>=2日前的PL10 AND 2日前的PL10>=3日前的PL10 PL20賦值:收盤價20%的之字轉向 EN3賦值:PL20>1日前的PL20 AND 1日前的PL20<=2日前的PL20 AND 2日前的PL20<=3日前的PL20 EX3賦值:PL20<1日前的PL20 AND 1日前的PL20>=2日前的PL20 AND 2日前的PL20>=3日前的PL20 走強1賦值:上次PL5<1日前的PL5距今天數 走弱1賦值:上次PL5>1日前的PL5距今天數 走強2賦值:上次PL10<1日前的PL10距今天數 走弱2賦值:上次PL10>1日前的PL10距今天數 走強3賦值:上次PL20<1日前的PL20距今天數 走弱3賦值:上次PL20>1日前的PL20距今天數 ZTJZ5賦值:如果PL10>1日前的PL10,返回統計走強2日中滿足EN1的天數,否則返回0 ZTJD5賦值:如果PL10>1日前的PL10,返回統計走強2日中滿足EX1的天數,否則返回0 DTJZ5賦值:如果PL10<1日前的PL10,返回統計走弱2日中滿足EN1的天數,否則返回0 DTJD5賦值:如果PL10<1日前的PL10,返回統計走弱2日中滿足EX1的天數,否則返回0 ZTJZ10賦值:如果PL20>1日前的PL20,返回統計走強3日中滿足EN2的天數,否則返回0 ZTJD10賦值:如果PL20>1日前的PL20,返回統計走強3日中滿足EX2的天數,否則返回0 DTJZ10賦值:如果PL20<1日前的PL20,返回統計走弱3日中滿足EN2的天數,否則返回0 DTJD10賦值:如果PL20<1日前的PL20,返回統計走弱3日中滿足EX2的天數,否則返回0 當滿足條件EN2ANDDTJZ10=1時,在最低價*0.93位置書寫文字,COLORFFFFFF 當滿足條件EN3ANDZTJZ10=1時,在最低價*0.95位置書寫文字,COLORFF00FF 當滿足條件EX2ANDPL20>1日前的PL20ANDZTJD10=1時,在最高價*1.05位置書寫文字,線寬為2,COLORFFFF00 當滿足條件EN2ANDPL20>1日前的PL20ANDZTJZ10=2時,在最低價*0.95位置書寫文字,線寬為2,COLORFFFF00 當滿足條件EX2ANDPL20>1日前的PL20ANDZTJD10=2OR(ZTJD10=0ORZTJD10=2)ANDEX2時,在最高價*1.04位置書寫文字,線寬為3,COLOR00FF00 輸出MA5:收盤價的5日簡單移動平均,畫白色,線寬為1 輸出MA10:收盤價的10日簡單移動平均,畫淡洋紅色,線寬為1 TIPTEXT(ISNULL(1日后的&收盤價),0,' www.tumamayizhan.com '),畫紅色 TIPTEXT(ISNULL(1日前的收盤價),0,'同花順程序化交易')

?

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

源碼：

?

?

KX:='CHANLUN@KXIAN';
KXG:='CHANLUN@KXG';
KXD:='CHANLUN@KXD';
KXFX:='CHANLUN@KXFX';
筆:='CHANLUN@BI';
筆周期:'CHANLUN@BILAST',LINETHICK0, COLORFF00FF;
BILAST:='CHANLUN@BILAST';{筆周期};
段:='CHANLUN@DUAN';
段周期:'CHANLUN@DUANLAST', LINETHICK0, COLORFFFFFF;
DUANLAST:='CHANLUN@DUANLAST'; {段周期};
中樞:='CHANLUN@ZS';
ZSZG:='CHANLUN@ZSZG';
ZSZD:='CHANLUN@ZSZD';
ZSGG:='CHANLUN@ZSGG';
ZSDD:='CHANLUN@ZSDD';
ZSZZ:='CHANLUN@ZSZZ';
ZSKS:='CHANLUN@ZSKSLAST';
ZSJS:='CHANLUN@ZSJSLAST';
BIFX:=-REF(筆,BILAST);
DUANFX:=-REF(段,DUANLAST);
KXQJ:='CHANLUN@KXQJ';
{畫中樞BEGIN} {以背景方式畫}
STICKLINE(ZSZG>ZSZD AND DUANFX=1, ZSZG, ZSZD, 10, 1),COLOR8E236B;
STICKLINE(ZSZG>ZSZD AND DUANFX=-1, ZSZG, ZSZD, 10, 1), COLOR007700;
{中樞震蕩監視器}
DRAWLINE(ZSKS=1, ZSZZ, ZSJS=1, ZSZZ, 0), COLORFFFFFF;
{畫中樞END}
{頂底分型}
STICKLINE(KX>0, KXG, KXD, 5, 1),COLOR007700,LINETHICK2;
STICKLINE(KX<0, KXG, KXD, 5, 1),COLOR00FFFF,LINETHICK2;
{筆段}
STICKLINE(筆=1, KXG, KXD, 5, 1), COLORGREEN, LINETHICK2;
STICKLINE(筆=-1, KXG, KXD, 5, 1), COLORRED, LINETHICK2;
STICKLINE(段=1, KXG, KXD, 5, 0), COLOR007700, LINETHICK2;
STICKLINE(段=-1, KXG, KXD, 5, 0), COLOR0000CC, LINETHICK2;
{畫K線END}
{畫筆段}
DRAWLINE(筆=1,H,筆=-1,L,0),COLORBLUE,LINETHICK2;
DRAWLINE(筆=-1,L,筆=1,H,0),COLORFF00FF ,LINETHICK2;
DRAWLINE(段=1,H,段=-1,L,0),COLOR007700, LINETHICK2;
DRAWLINE(段=-1,L,段=1,H,0),COLORRED, LINETHICK2;
{筆高低點 周期 力度 提示}
DRAWTEXT(筆= 1, H*1.038, ''+H+''), COLORFFFFFF;
DRAWTEXT(筆=-1, L*0.96, ''+L+''), COLORFFFFFF;
VAR3:=LLV(H,240);
VAR4:=100*(C-VAR3)/VAR3;
VAR5:=(C-LLV(L,528))/(HHV(H,528)-LLV(L,528))*100;
VAR6:=(C-LLV(C,530))/(HHV(C,530)-LLV(C,530))*100;
VAR7:=0;
VAR8:=SMA(MAX(CLOSE-REF(CLOSE,1),0),34,1)/SMA(ABS(CLOSE-REF(CLOSE,1)),7,1)*100;
VAR9:=SMA(MAX(CLOSE-REF(CLOSE,1),0),13,1)/SMA(ABS(CLOSE-REF(CLOSE,1)),13,1)*100;
VAR10:=IF(TROUGHBARS(3,16,1)=0 AND H>L+0.04,4,0);
VAR11:=ZIG(3,6)>REF(ZIG(3,6),1) AND REF(ZIG(3,6),1)<=REF(ZIG(3,6),2) AND REF(ZIG(3,6),2)<=REF(ZIG(3,6),3);
VAR12:=ZIG(3,6)<REF(ZIG(3,6),1) AND REF(ZIG(3,6),1)>=REF(ZIG(3,6),2) AND REF(ZIG(3,6),2)>=REF(ZIG(3,6),3);
VAR13:=ZIG(3,22)>REF(ZIG(3,22),1) AND REF(ZIG(3,22),1)<=REF(ZIG(3,22),2) AND REF(ZIG(3,22),2)<=REF(ZIG(3,22),3);
VAR14:=ZIG(3,22)<REF(ZIG(3,22),1) AND REF(ZIG(3,22),1)>=REF(ZIG(3,22),2) AND REF(ZIG(3,22),2)>=REF(ZIG(3,22),3);
VAR15:=ZIG(3,51)>REF(ZIG(3,51),1) AND REF(ZIG(3,51),1)<=REF(ZIG(3,51),2) AND REF(ZIG(3,51),2)<=REF(ZIG(3,51),3);
VAR16:=ZIG(3,51)<REF(ZIG(3,51),1) AND REF(ZIG(3,51),1)>=REF(ZIG(3,51),2) AND REF(ZIG(3,51),2)>=REF(ZIG(3,51),3);
VAR17:=ZIG(3,72)>REF(ZIG(3,72),1) AND REF(ZIG(3,72),1)<=REF(ZIG(3,72),2) AND REF(ZIG(3,72),2)<=REF(ZIG(3,72),3);
VAR18:=ZIG(3,72)<REF(ZIG(3,72),1) AND REF(ZIG(3,72),1)>=REF(ZIG(3,72),2) AND REF(ZIG(3,72),2)>=REF(ZIG(3,72),3);
VAR19:=EMA(C,2)-EMA(C,150);
買１:=VAR10;
買２:=(VAR11+VAR13+VAR15+VAR17);
賣１:=(VAR12+VAR14+VAR16+VAR18);
DRAWTEXT(買１>0 OR 買２>0,L*0.985,'買'),COLOR00FFFF;
DRAWTEXT(賣１>0,H*1.01,'賣'),COLOR00FFFF;
APP:=(VOL)/((H-L)*(2)-ABS(C-O));
ZL:=IF((H>O),(APP)*(H-L),IF((L<O),(APP)*(H-O+C-L),(VOL)/(2)));
SF:=IF((H>O),0-(APP)*(H-C+O-L),IF((L<O),0-(APP)*(H-L),0-(VOL)/(2)));
庫存能量:=MA(ZL+SF,2);
庫存平均:=MA(ZL+SF,5);
GET:ZIG(3,5),COLORYELLOW,LINETHICK3;
PL5:=ZIG(3,5);
EN1:=PL5>REF(PL5,1) AND REF(PL5,1)<=REF(PL5,2) AND REF(PL5,2)<=REF(PL5,3);
EX1:=PL5<REF(PL5,1) AND REF(PL5,1)>=REF(PL5,2) AND REF(PL5,2)>=REF(PL5,3);
PL10:=ZIG(3,10);
EN2:=PL10>REF(PL10,1) AND REF(PL10,1)<=REF(PL10,2) AND REF(PL10,2)<=REF(PL10,3);
EX2:=PL10<REF(PL10,1) AND REF(PL10,1)>=REF(PL10,2) AND REF(PL10,2)>=REF(PL10,3);
PL20:=ZIG(3,20);
EN3:=PL20>REF(PL20,1) AND REF(PL20,1)<=REF(PL20,2) AND REF(PL20,2)<=REF(PL20,3);
EX3:=PL20<REF(PL20,1) AND REF(PL20,1)>=REF(PL20,2) AND REF(PL20,2)>=REF(PL20,3);
走強1:=BARSLAST(PL5<REF(PL5,1));
走弱1:=BARSLAST(PL5>REF(PL5,1));
走強2:=BARSLAST(PL10<REF(PL10,1));
走弱2:=BARSLAST(PL10>REF(PL10,1));
走強3:=BARSLAST(PL20<REF(PL20,1));
走弱3:=BARSLAST(PL20>REF(PL20,1));
ZTJZ5:=IF(PL10>REF(PL10,1),COUNT(EN1,走強2),0);
ZTJD5:=IF(PL10>REF(PL10,1),COUNT(EX1,走強2),0);
DTJZ5:=IF(PL10<REF(PL10,1),COUNT(EN1,走弱2),0);
DTJD5:=IF(PL10<REF(PL10,1),COUNT(EX1,走弱2),0);
ZTJZ10:=IF(PL20>REF(PL20,1),COUNT(EN2,走強3),0);
ZTJD10:=IF(PL20>REF(PL20,1),COUNT(EX2,走強3),0);
DTJZ10:=IF(PL20<REF(PL20,1),COUNT(EN2,走弱3),0);
DTJD10:=IF(PL20<REF(PL20,1),COUNT(EX2,走弱3),0);
DRAWTEXT(EN2 AND DTJZ10=1,L*0.93,'[類二買]'),COLORFFFFFF;
DRAWTEXT(EN3 AND ZTJZ10=1,L*0.95,'[一買]'),COLORFF00FF;
DRAWTEXT(EX2 AND PL20>REF(PL20,1) AND ZTJD10=1,H*1.05,'[二賣]'),LINETHICK2,COLORFFFF00;
DRAWTEXT(EN2 AND PL20>REF(PL20,1) AND ZTJZ10=2,L*0.95,'[二買]'),LINETHICK2,COLORFFFF00;
DRAWTEXT(EX2 AND PL20>REF(PL20,1) AND ZTJD10=2 OR (ZTJD10=0 OR ZTJD10=2) AND EX2,H*1.04,'[一賣]'),LINETHICK3,COLOR00FF00;
{DRAWTEXTABS(620,-55,'歷史最高價:'+HHV(HIGH,0)),COLORFF00FF;
DRAWTEXTABS(620,-37,'歷史最低價:'+LLV(LOW,0)),COLORAFFF00;
DRAWTEXTABS(750,-55,'20日最高價:'+HHV(HIGH,20)),COLORRED;
DRAWTEXTABS(750,-37,'20日最低價:'+LLV(LOW,20)),COLORAFFF00;};
MA5:MA(CLOSE,5),COLORWHITE,LINETHICK1;
MA10:MA(CLOSE,10),COLORLIMAGENTA,LINETHICK1;TIPTEXT(ISNULL(REFX(&CLOSE,1)),0,' www.tumamayizhan.com '),colorred;
TIPTEXT(ISNULL(REF(CLOSE,1)),0,'同花順程序化交易');

?

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

?