通达信黄金分割周期公式主图源码

黄金分割周期
 

TM:=120082399;

涨停:IF(DATE<TM,ZTPRICE(REF(C,1),IF(CODELIKE('688'),0.2,IF(NAMEINCLUDE('S'),0.05,0.1))),ZTPRICE(REF(C,1),IF(CODELIKE('688') OR CODELIKE('300'),0.2,IF(NAMEINCLUDE('S'),0.05,0.1)))),NODRAW,COLORRED;

跌停:IF(DATE<TM,DTPRICE(REF(C,1),IF(CODELIKE('688'),0.2,IF(NAMEINCLUDE('S'),0.05,0.1))),DTPRICE(REF(C,1),IF(CODELIKE('688') OR CODELIKE('300'),0.2,IF(NAMEINCLUDE('S'),0.05,0.1)))),NODRAW,COLORGREEN;

明涨停:=IF(DATE<TM,C*IF(CODELIKE('688'),1.2,IF(NAMEINCLUDE('S'),1.05,1.1)),C*(IF(CODELIKE('688') OR CODELIKE('300'),1.2,IF(NAMEINCLUDE('S'),1.05,1.1)))),NODRAW,COLORLIMAGENTA;

明跌停:=IF(DATE<TM,C*IF(CODELIKE('688'),0.8,IF(NAMEINCLUDE('S'),0.45,0.9)),C*(IF(CODELIKE('688') OR CODELIKE('300'),0.8,IF(NAMEINCLUDE('S'),0.45,0.9)))),NODRAW,COLORFFFF00;

ZT:=C=涨停 AND PERIOD=5 AND H=C;

ZT1:=H=涨停 AND PERIOD=5 AND H>C;

DT:=C=跌停 AND PERIOD=5 AND L=C;

DT1:=L=跌停 AND PERIOD=5 AND L<C;

{涨停K线颜色设置}

STICKLINE(ZT,C,(O+C)/2,3,0),COLOR0000CC;

STICKLINE(ZT,O,(O+C)/2,3,0),COLORBBBBBB;

STICKLINE(DT,O,(O+C)/2,3,0),COLORBBBBBB;

STICKLINE(DT,C,(O+C)/2,3,0),COLOR00BB00;

{曾涨跌停打开K线颜色设置}

STICKLINE(ZT1,C,(O+C)/2,3,0),COLORFF00FF;

STICKLINE(ZT1,O,(O+C)/2,3,0),COLOR999999;

STICKLINE(DT1,O,(O+C)/2,3,0),COLOR888888;

STICKLINE(DT1,C,(O+C)/2,3,0),COLOR009900;

HDAY:=150;LDAY:=150;

 TCH:=CONST(FINDHIGH(H,0,HDAY*10,1));

 GTT:=CONST(BARSLAST(TCH=H))+1;

 SX跌H:=CONST(IF(GTT=1,H,REF(H,GTT-1)));

 BCL:=CONST(FINDLOW(L,0,LDAY*10,1));

 DTT:=CONST(BARSLAST(BCL=L))+1,COLORLIBLUE;

 SX涨L:=CONST(IF(DTT=1,L,REF(L,DTT-1)));

{斐波那契 下跌周期}

DRAWTEXT(CURRBARSCOUNT=GTT,SX跌H*0.985,'下跌'),COLOR00FF00;

STICKLINE(CURRBARSCOUNT=GTT,SX跌H,SX涨L,0,0),COLORGREEN;

FB3:STICKLINE(CURRBARSCOUNT=GTT-2,SX跌H,MAX(C,O),0,-1),COLOR556600;

 DRAWTEXT(CURRBARSCOUNT=GTT-2,SX跌H*0.97,'3'),COLOR00FF00;

FB5: STICKLINE(CURRBARSCOUNT=GTT-4,SX跌H,MAX(C,O),0,-1),COLOR556600;

 DRAWTEXT(CURRBARSCOUNT=GTT-4,SX跌H*0.97,'5'),COLOR00FF00;

FB8: STICKLINE(CURRBARSCOUNT=GTT-7,SX跌H,MAX(C,O),0,-1),COLOR556600;

 DRAWTEXT(CURRBARSCOUNT=GTT-7,SX跌H*0.97,'8'),COLOR00FF00;

FB13: STICKLINE(CURRBARSCOUNT=GTT-12,SX跌H,MAX(C,O),0,-1),COLOR556600;

 DRAWTEXT(CURRBARSCOUNT=GTT-12,SX跌H*0.97,'13'),COLOR00FF00;

FB21: STICKLINE(CURRBARSCOUNT=GTT-20,SX跌H,MAX(C,O),0,-1),COLOR556600;

 DRAWTEXT(CURRBARSCOUNT=GTT-20,SX跌H*0.97,'21'),COLOR00FF00;

FB34: STICKLINE(CURRBARSCOUNT=GTT-33,SX跌H,MAX(C,O),0,-1),COLOR556600;

 DRAWTEXT(CURRBARSCOUNT=GTT-33,SX跌H*0.97,'34 '),COLOR00FF00;

FB55: STICKLINE(CURRBARSCOUNT=GTT-54,SX跌H,MAX(C,O),0,-1),COLOR556600;

 DRAWTEXT(CURRBARSCOUNT=GTT-54,SX跌H*0.97,'55'),COLOR00FF00;

FB89: STICKLINE(CURRBARSCOUNT=GTT-88,SX跌H,MAX(C,O),0,-1),COLOR556600;

 DRAWTEXT(CURRBARSCOUNT=GTT-88,SX跌H*0.97,'89'),COLOR00FF00;

FB144: STICKLINE(CURRBARSCOUNT=GTT-143,SX跌H,MAX(C,O),0,-1),COLOR556600;

 DRAWTEXT(CURRBARSCOUNT=GTT-143,SX跌H*0.97,'144'),COLOR00FF00;

FB233: STICKLINE(CURRBARSCOUNT=GTT-232,SX跌H,MAX(C,O),0,-1),COLOR556600;

 DRAWTEXT(CURRBARSCOUNT=GTT-232,SX跌H*0.97,'233'),COLOR00FF00;

FB377: STICKLINE(CURRBARSCOUNT=GTT-376,SX跌H,MAX(C,O),0,-1),COLOR556600;

 DRAWTEXT(CURRBARSCOUNT=GTT-376,SX跌H*0.97,'376'),COLOR00FF00;

FB610: STICKLINE(CURRBARSCOUNT=GTT-609,SX跌H,MAX(C,O),0,-1),COLOR556600;

 DRAWTEXT(CURRBARSCOUNT=GTT-609,SX跌H*0.97,'610'),COLOR00FF00;

{斐波那契 上涨周期}

DRAWTEXT(CURRBARSCOUNT=DTT,SX涨L*1.03,'启动'),COLORYELLOW;

 STICKLINE(CURRBARSCOUNT=DTT,SX跌H,SX涨L,0,0),COLORRED;

 STICKLINE(CURRBARSCOUNT=DTT-2,MIN(C,O),SX涨L,0,-1),COLORAA00AA;

 DRAWTEXT(CURRBARSCOUNT=DTT-2,SX涨L*1.03,'3'),COLOR0000FF;

 STICKLINE(CURRBARSCOUNT=DTT-4,MIN(C,O),SX涨L,0,-1),COLORAA00AA;

 DRAWTEXT(CURRBARSCOUNT=DTT-4,SX涨L*1.03,'5'),COLOR0000FF;

 STICKLINE(CURRBARSCOUNT=DTT-7,MIN(C,O),SX涨L,0,-1),COLORAA00AA;

 DRAWTEXT(CURRBARSCOUNT=DTT-7,SX涨L*1.03,'8'),COLOR0000FF;

 STICKLINE(CURRBARSCOUNT=DTT-12,MIN(C,O),SX涨L,0,-1),COLORAA00AA;

 DRAWTEXT(CURRBARSCOUNT=DTT-12,SX涨L*1.03,'13'),COLOR0000FF;

 STICKLINE(CURRBARSCOUNT=DTT-20,MIN(C,O),SX涨L,0,-1),COLORAA00AA;

 DRAWTEXT(CURRBARSCOUNT=DTT-20,SX涨L*1.03.01,'21'),COLOR0000FF;

 STICKLINE(CURRBARSCOUNT=DTT-33,MIN(C,O),SX涨L,0,-1),COLORAA00AA;

 DRAWTEXT(CURRBARSCOUNT=DTT-33,SX涨L*1.03,'34'),COLOR0000FF;

 STICKLINE(CURRBARSCOUNT=DTT-54,MIN(C,O),SX涨L,0,-1),COLORAA00AA;

 DRAWTEXT(CURRBARSCOUNT=DTT-54,SX涨L*1.03,'55'),COLOR0000FF;

 STICKLINE(CURRBARSCOUNT=DTT-88,MIN(C,O),SX涨L,0,-1),COLORAA00AA;

 DRAWTEXT(CURRBARSCOUNT=DTT-88,SX涨L*1.03,'89'),COLOR0000FF;

 STICKLINE(CURRBARSCOUNT=DTT-143,MIN(C,O),SX涨L,0,-1),COLORAA00AA;

 DRAWTEXT(CURRBARSCOUNT=DTT-143,SX涨L*1.03,'144'),COLOR0000FF;

STICKLINE(CURRBARSCOUNT=DTT-232,MIN(C,O),SX涨L,0,-1),COLORAA00AA;

 DRAWTEXT(CURRBARSCOUNT=DTT-232,SX涨L*1.03,'233'),,COLOR0000FF;

STICKLINE(CURRBARSCOUNT=DTT-376,MIN(C,O),SX涨L,0,-1),COLORAA00AA;

 DRAWTEXT(CURRBARSCOUNT=DTT-376,SX涨L*1.03,'376'),COLOR0000FF;

{黄金分割}

日:=150;昨前:=3;

高1:=REF(HHV(H,日),昨前);

低1:=REF(LLV(L,日),昨前);

低:=REFDATE(低1,DATE),COLORLIBLUE;

顶:=REFDATE(高1,DATE),COLORYELLOW;

DRAWNUMBER(ISLASTBAR,顶,顶),COLORLIBLUE;

DRAWNUMBER(ISLASTBAR,低,低),COLORYELLOW;

 H1:=低1*1.191;

 H2:=低1*1.382;

 H3:=低1*1.5;

 H4:=低1*1.618;

 H5:=低1*1.809;

DH1:STICKLINE(FILTER(BETWEEN(H1,H,L),DTT) AND CURRBARSCOUNT<DTT,H*1.07,L*0.93,0,-1),COLORYELLOW;

DH2:STICKLINE(FILTER(BETWEEN(H2,H,L),DTT) AND CURRBARSCOUNT<DTT,H*1.07,L*0.93,0,-1),COLORYELLOW;

DH3:=STICKLINE(FILTER(BETWEEN(H3,H,L),DTT) AND CURRBARSCOUNT<DTT,H*1.07,L*0.93,0,-1),COLORYELLOW;

DH4:STICKLINE(FILTER(BETWEEN(H4,H,L),DTT) AND CURRBARSCOUNT<DTT,H*1.07,L*0.93,0,-1),COLORYELLOW;

DH5:STICKLINE(FILTER(BETWEEN(H5,H,L),DTT) AND CURRBARSCOUNT<DTT,H*1.07,L*0.93,0,-1),COLORYELLOW;

DRAWTEXT(DH1 AND CURRBARSCOUNT<DTT,L*0.93,'1.191'),COLORLIBLUE;

DRAWTEXT(DH2 AND CURRBARSCOUNT<DTT,L*0.93,'1.382'),COLORLIBLUE;

DRAWTEXT(DH4 AND CURRBARSCOUNT<DTT,L*0.93,'1.618'),COLORLIBLUE;

DRAWTEXT(DH5 AND CURRBARSCOUNT<DTT,L*0.93,'1.809'),COLORLIBLUE;

 L1:=高1*0.191;

 L2:=高1*0.382;

 L3:=高1*0.5;

 L4:=高1*0.618;

 L5:=高1*0.809;

DL1:STICKLINE(FILTER(BETWEEN(L1,H,L),GTT) AND CURRBARSCOUNT<GTT,H*1.07,L*0.93,0,-1),COLORWHITE;

DL2:STICKLINE(FILTER(BETWEEN(L2,H,L),GTT) AND CURRBARSCOUNT<GTT,H*1.07,L*0.93,0,-1),COLORWHITE;

DL3:=STICKLINE(FILTER(BETWEEN(L3,H,L),GTT) AND CURRBARSCOUNT<GTT,H*1.07,L*0.93,0,-1),COLORWHITE;

DL4:STICKLINE(FILTER(BETWEEN(L4,H,L),GTT) AND CURRBARSCOUNT<GTT,H*1.07,L*0.93,0,-1),COLORWHITE;

DL5:STICKLINE(FILTER(BETWEEN(L5,H,L),GTT) AND CURRBARSCOUNT<GTT,H*1.07,L*0.93,0,-1),COLORWHITE;

{分析家公式网 WWW.70822.COM 整理}

DRAWTEXT(DL1 AND CURRBARSCOUNT<GTT,H*1.07,'0.191'),COLORGREEN;

DRAWTEXT(DL2 AND CURRBARSCOUNT<GTT,H*1.07,'0.382'),COLORGREEN;

DRAWTEXT(DL4 AND CURRBARSCOUNT<GTT,H*1.07,'0.618'),COLORGREEN;

DRAWTEXT(DL5 AND CURRBARSCOUNT<GTT,H*1.07,'0.809'),COLORGREEN;

半分:(O+C)/2,NODRAW,COLORWHITE;

JYZY:=(REF(C>=O,1) OR O>REF(H,1)) AND AMOUNT/V/100>REF(C,1) AND C<O;

假阳:=REF(C<=O,1) AND H<REF(O,1) AND C<(REF(O-C,1))/3+REF(C,1) AND AMOUNT/V/100<REF(C,1) AND C>O;

STICKLINE(JYZY,O,C,0.2,0),COLORRED;{假阴柱};

STICKLINE(假阳,O,C,0.5,0),COLORLIGREEN;{假阳柱};

股东增减:=100*(流通股东变化.人数-REF(流通股东变化.人数,1))/REF(流通股东变化.人数,1),NODRAW;

B1:DRAWTEXT(股东增减<=-8 AND (BETWEEN(H4,H,L) OR BETWEEN(L4,H,L)),H,'5级病马'),COLORGREEN;

B2:DRAWTEXT(股东增减<=-10 AND (BETWEEN(H3,H,L) OR BETWEEN(L3,H,L)),MAX(C,O),'4级瘟马'),COLORLIBLUE;

B3:DRAWTEXT(股东增减<=-12 AND (BETWEEN(H2,H,L) OR BETWEEN(L2,H,L)),MIN(C,O),'3级黑马'),COLORWHITE;

B4:DRAWTEXT(股东增减<=-15 AND (BETWEEN(H1,H,L) OR BETWEEN(L1,H,L)),L,'2级巨马'),COLORYELLOW;

B5:DRAWTEXT(股东增减<=-20 AND (BETWEEN(H1,H,L) OR BETWEEN(L1,H,L)),L*0.98,'1级金马'),COLORRED;

A1:DRAWTEXT_FIX(股东增减<=-8 AND (BETWEEN(H4,H,L) OR BETWEEN(L4,H,L)),0.7,0.05,0,'5级病马 '),COLORGREEN;

A2:DRAWTEXT_FIX(股东增减<=-10 AND (BETWEEN(H3,H,L) OR BETWEEN(L3,H,L)),0.66,0.05,0,'4级瘟马'),COLORLIBLUE;

A3:DRAWTEXT_FIX(股东增减<=-12 AND (BETWEEN(H2,H,L) OR BETWEEN(L2,H,L)),0.62,0.05,0,'3级黑马'),COLORWHITE;

A4:DRAWTEXT_FIX(股东增减<=-15 AND (BETWEEN(H1,H,L) OR BETWEEN(L1,H,L)),0.58,0.05,0,'2级巨马'),COLORYELLOW;

A5:DRAWTEXT_FIX(股东增减<=-20 AND (BETWEEN(H1,H,L) OR BETWEEN(L1,H,L)),0.54,0.05,0,'1级金马'),COLORRED;

AB1:=股东增减<=-8 AND (BETWEEN(H4,H,L) OR BETWEEN(L4,H,L));

AB2:=股东增减<=-10 AND (BETWEEN(H3,H,L) OR BETWEEN(L3,H,L));

AB3:=股东增减<=-12 AND (BETWEEN(H2,H,L) OR BETWEEN(L2,H,L));

AB4:=股东增减<=-15 AND (BETWEEN(H1,H,L) OR BETWEEN(L1,H,L));

AB5:=股东增减<=-20 AND (BETWEEN(H1,H,L) OR BETWEEN(L1,H,L));

DTD:=AB1 OR AB2 OR AB3  OR AB4  OR AB5;

日期:=REF(DATE,BARSLAST(DTD))+19000000,NODRAW,COLORYELLOW;

DRAWNUMBER(DTD,L*0.97,日期);

DRAWTEXT_FIX(1,0.5,0,0,STRCAT('定级日期：','')),COLORYELLOW,LINETHICK2;

DRAWNUMBER_FIX(DTD,0.54,0,0,日期),COLORWHITE;

DRAWTEXT_FIX(1,0.5,0.05,0,STRCAT('金马定级：','')),COLORYELLOW,LINETHICK2;

ZY:=C<REF(C,1) AND EXIST(L=LLV(L,20),3);

ZFX:=O>REF(C,1) AND C>REF((H+L)/2,1) AND REF(ZY,1);

DRAWICON(ZFX,L,23);

TJ360:=C=HHV(C,150);{黑马线}

TS360:=BARSLAST(TJ360);

HHC360:=REF(C,TS360);

RHHC360:=REF(HHC360,1);

TJ1360:=H>L AND C>RHHC360 ;

CS1360:=BARSLASTCOUNT(TJ1360);

CSS:=COUNT(CS1360=1,60);

MR:=CS1360=1 AND CSS=1;

HMXTS:=BARSLAST(MR);

黑马线:=CONST(REF(C,HMXTS)),COLORFFFF00,LINETHICK2;

高:=REF(HHV(H,72),5);

龙门:=REFDATE(高,DATE),COLORWHITE,LINETHICK2;

DRAWICON((ZIG(3,5)>REF(ZIG(3,5),1)) AND (REF(ZIG(3,5),1)<=REF(ZIG(3,5),2))

AND (REF(ZIG(3,5),2)<=REF(ZIG(3,5),3)),LOW*0.98,7);

DRAWICON((ZIG(3,5)<REF(ZIG(3,5),1)) AND (REF(ZIG(3,5),1)>=REF(ZIG(3,5),2))

AND (REF(ZIG(3,5),2)>=REF(ZIG(3,5),3)),HIGH*1.02,8);