[转]通达信绝隹主图和五线波段幅图源码

易简轩

绝隹主图
MMS:=MA(SMA((L+H+2*C)/4-REF((L+H+2*C)/4,1),5,1)/SMA(ABS((L+H+2*C)/4-REF((L+H+2*C)/4,1)),5,1)*100,1)+50;
G1:=IF(-MMS>95,0,20);
UOO:=(-(((CLOSE-LLV(CLOSE,7))/(HHV(CLOSE,7)-LLV(CLOSE,7))*100=100)>0 AND G1)+1);
KS:=(((CLOSE - EMA(CLOSE,13)) / EMA(CLOSE,13)) * (0 - 100));
KS1:=IF(BARSCOUNT(C)=1,C/10000,(1-C/SMA(C,13,1))*100);
趋势线:=EMA(((KS / 10) + EMA(CLOSE,10)),3);
AA:=-100*(趋势线-CLOSE)/趋势线;
AC:=(EMA(AA,5) );
SSL:=EMA(CLOSE,3);
MMV:=EMA(((SLOPE(CLOSE,22) * 20) + CLOSE),55);
MM:=MA(MMV,1);
STICKLINE(((SSL>MM)),SSL,MM,0.01,0),COLORRED;
SA:=(MM*0.985);
SS:=(MA(CLOSE,5));
DD:=(MA(CLOSE,13));
GG:=(MA(CLOSE,21));
捞钱手:IF(((SSL>MM)),MM,SA),LINETHICK2,COLORFF00FF;
{IF(SSL<MM,捞钱手,DRAWNULL),LINETHICK2,COLORFFFFFF;}
能量线:=DMA(((CLOSE + OPEN) / 2),(VOL / (SMA(VOL,4,1) *4)));
上开:=O;
上收:=C;
上高:=H;
上低:=L;
JJ:=(上开+上高+上低)/3;
A:=EMA(JJ,4);
智能黄金线:A,COLORYELLOW,LINETHICK1;
B:=REF(A,1);
STICKLINE(((SSL<MM)),捞钱手,智能黄金线,0.01,0),COLORFFFF00;
VA1:=EMA(上收,8);
VA2:=EMA(上收,20);
DRAWTEXT(CROSS(ZIG(3,8),REF(ZIG(3,8),1)),LOW*0.978,'★绝佳') ,LINETHICK2,COLORRED;
DRAWTEXT(CROSS(REF(ZIG(3,10),1),ZIG(3,10)),HIGH*1.02,'★卖');
DRAWTEXT(CROSS(VA1,VA2)AND(C>=O)AND 智能黄金线>REF(智能黄金线,1),VA1*0.97,'★买'),COLOR00FF00;
选手Ａ:=MA(上收,3);
箱顶Ａ:=MA(REF(HHV(上收,6),1),3);
箱底Ａ:=MA(REF(LLV(上收,3),1),3);
T1:=MA(上收,20)>=REF(MA(上收,20),1);
T2:=CROSS(选手Ａ,箱底Ａ) AND 箱顶Ａ/箱底Ａ>100/100 AND T1;
T3:=CROSS(箱顶Ａ,选手Ａ) AND 箱顶Ａ/箱底Ａ>100/100;
选手:=MA(上收,2);
箱顶:MA(REF(HHV(上收,30),1),2),COLOR0000FF,LINETHICK2;
箱底:MA(REF(LLV(上收,30),1),2),COLOR00FF00,LINETHICK2;
T4:=CROSS(选手,箱底) AND 箱顶/箱底>110/100;
T5:=CROSS(箱顶,选手) AND 箱顶/箱底>110/100;
VAR1:=(上收-LLV(上低,27))/(HHV(上高,27)-LLV(上低,27))*100;
VAR2:=SMA(VAR1,3,1);
VAR3:=SMA(VAR2,3,1);
VAR4:=SMA(VAR3,3,1);
{DRAWTEXT(VAR3 >=VAR4 ,箱顶,'--中期好'),COLOR00FFFF;
DRAWTEXT(VAR3<VAR4 ,箱顶,'--中期坏'),COLORF0F000;
DRAWTEXT(A>B ,箱底,'--短期好'),COLOR00FFFF;
DRAWTEXT(A<B ,箱底,'--短期坏'),COLORF0F000;}
DRAWTEXT(CROSS(VAR3,VAR4)AND(C>=O)AND VAR3<40 AND UOO>0,LOW*0.96,'★'),COLORF00FF0;
STICKLINE(C>=O,C,O,5,0),COLORRED;
STICKLINE(C>=O,H,L,0,0),COLORYELLOW;
STICKLINE(C<=O,C,O,5,0),COLORGREEN;
STICKLINE(C<=O,H,L,0,0),COLORFFFF00;
买线:=EMA(C,2);
卖线:=EMA(SLOPE(C,21)*20+C,42);
DRAWTEXT(CROSS(买线,卖线)AND 箱顶>=REF(箱顶,1),LOW*0.95,'★跟'),COLOR00FFFF;
STICKLINE(CROSS(买线,卖线),OPEN,CLOSE,3,0),COLOR00FFFF;
五线波段（副图）
{坐标线位置:0;20;30;50;80;90;100;}
{额外Y轴:0;20;50}
STICKLINE(C>0,20,100,10,0),COLOR95AA95;
STICKLINE(C>0,80,80,10,0),COLORCC55CC;
STICKLINE(C>0,90,90,10,0),COLORCC55CC;
STICKLINE(C>0,20,30,10,0),COLOR557575;
强弱分界:50,COLORLIRED,NODRAW;
{信号灯}
SAR1:=(CLOSE+HIGH+LOW)/3;
SAR2:=EMA(SAR1,10);
SAR3:=REF(SAR2,1);
绿等待:IF(SAR2,99,DRAWNULL),COLOR00DD00,LINETHICK5;
黄买: IF(SAR2>SAR3,99,DRAWNULL), COLOR00DDDD,LINETHICK5;
蓝卖: IF(SAR2<SAR3,99,DRAWNULL),COLORDD0000,LINETHICK5;
{波段强弱}
ZC:=(100 - ((90 * (HHV(HIGH,14) - CLOSE)) / (HHV(HIGH,14) - LLV(LOW,14))))
COLOR00DDDD;
DRAWBAND(ZC,RGB(100,15,55),50,RGB(0,100,50));
{中线波段}
VAR0:=(CLOSE-LLV(LOW,60))/(HHV(HIGH,60)-LLV(LOW,60))*100;
VARA:=SMA(VAR0,3,1);
VAR1:=SMA(VARA,4,1)-10;
STICKLINE(REF(VAR1,1)<VAR1,VAR1,REF(VAR1,1),5,0),COLOR0055FF;
STICKLINE(REF(VAR1,1)>VAR1,VAR1,REF(VAR1,1),5,1),COLOR007500;
{趋势顶底判断}
A4:=SMA((HHV(H,9)-C)/(HHV(H,9)-LLV(LOW,9))*100-70,9,1)+100;
A5:=(C-LLV(L,9))/(HHV(H,9)- LLV(L,9))*100;
A6:=SMA(SMA(A5,3,1),3,1)+100;
A7:=(A6-A4)/1.5+10;
趋势:A7,COLOR00AAFF,NODRAW;
趋势底线:=EMA(趋势,5),COLORGREEN;
STICKLINE(趋势>趋势底线,趋势,趋势底线,0.1,0),COLOR0099FF;
STICKLINE(趋势<=趋势底线,趋势,趋势底线,0.1,-1),COLOR95AA00;
趋势金叉:IF(CROSS(趋势,趋势底线),趋势,DRAWNULL),CIRCLEDOT,COLORFF33FF;
趋势死叉:IF(CROSS(趋势底线,趋势),趋势,DRAWNULL),CIRCLEDOT,COLOR66FF00;
TV1:=趋势;
TV2:=趋势底线;
TV3:=BARSLAST(REF(CROSS(TV1,TV2),1));
TV3A:=REF(CLOSE,TV3+1)>CLOSE AND TV1>REF(TV1,TV3+1) AND
CROSS(TV1,TV2);
趋势底背离:IF(TV3A,TV1,DRAWNULL),CIRCLEDOT,LINETHICK3,COLORFF00FF;
TV4:=BARSLAST(REF(CROSS(TV2,TV1),1));
TV4A:=REF(CLOSE,TV4+1)<CLOSE AND REF(TV1,TV4+1)>TV1 AND
CROSS(TV2,TV1);
趋势顶背离:IF(TV4A,TV1,DRAWNULL),CIRCLEDOT,LINETHICK3,COLORFF6600;
{KD}
SSV:=(C-LLV(L,9))/(HHV(H,9)-LLV(L,9))*100;
K:SMA(SSV,3,1),LINETHICK2,COLOR0033FF;
D:=SMA(K,3,1);
K弱:IF(K<=REF(K,1),K,DRAWNULL),LINETHICK2,COLORDDDD00;
KD金叉:IF(CROSS(K,D),K,DRAWNULL),CIRCLEDOT,COLOR0000FF;
KD死叉:IF(CROSS(D,K),K,DRAWNULL),CIRCLEDOT,COLORFF0000;

lzh6868689

MMS:=MA(SMA((L+H+2*C)/4-REF((L+H+2*C)/4,1),5,1)/SMA(ABS((L+H+2*C)/4-REF((L+H+2*C)/4,1)),5,1)*100,1)+50; G1:=IF(-MMS>95,0,20); UOO:=(-(((CLOSE-LLV(CLOSE,7))/(HHV(CLOSE,7)-LLV(CLOSE,7))*100=100)>0 AND G1)+1); KS:=(((CLOSE - EMA(CLOSE,13)) / EMA(CLOSE,13)) * (0 - 100)); KS1:=IF(BARSCOUNT(C)=1,C/10000,(1-C/SMA(C,13,1))*100); 趋势线:=EMA(((KS / 10) + EMA(CLOSE,10)),3); AA:=-100*(趋势线-CLOSE)/趋势线; AC:=(EMA(AA,5) ); SSL:=EMA(CLOSE,3); MMV:=EMA(((SLOPE(CLOSE,22) * 20) + CLOSE),55); MM:=MA(MMV,1); STICKLINE(((SSL>MM)),SSL,MM,0.01,0),COLORRED; SA:=(MM*0.985); SS:=(MA(CLOSE,5)); DD:=(MA(CLOSE,13)); GG:=(MA(CLOSE,21)); 捞钱手:IF(((SSL>MM)),MM,SA),LINETHICK2,COLORFF00FF; {IF(SSL<MM,捞钱手,DRAWNULL),LINETHICK2,COLORFFFFFF;} 能量线:=DMA(((CLOSE + OPEN) / 2),(VOL / (SMA(VOL,4,1) *4))); 上开:=O; 上收:=C; 上高:=H; 上低:=L; JJ:=(上开+上高+上低)/3; A:=EMA(JJ,4); 智能黄金线:A,COLORYELLOW,LINETHICK1; B:=REF(A,1); STICKLINE(((SSL<MM)),捞钱手,智能黄金线,0.01,0),COLORFFFF00; VA1:=EMA(上收,8); VA2:=EMA(上收,20); DRAWTEXT(CROSS(ZIG(3,8),REF(ZIG(3,8),1)),LOW*0.978,'★绝佳') ,LINETHICK2,COLORRED; DRAWTEXT(CROSS(REF(ZIG(3,10),1),ZIG(3,10)),HIGH*1.02,'★卖'); DRAWTEXT(CROSS(VA1,VA2)AND(C>=O)AND 智能黄金线>REF(智能黄金线,1),VA1*0.97,'★买'),COLOR00FF00; 选手Ａ:=MA(上收,3); 箱顶Ａ:=MA(REF(HHV(上收,6),1),3); 箱底Ａ:=MA(REF(LLV(上收,3),1),3); T1:=MA(上收,20)>=REF(MA(上收,20),1); T2:=CROSS(选手Ａ,箱底Ａ) AND 箱顶Ａ/箱底Ａ>100/100 AND T1; T3:=CROSS(箱顶Ａ,选手Ａ) AND 箱顶Ａ/箱底Ａ>100/100; 选手:=MA(上收,2); 箱顶:MA(REF(HHV(上收,30),1),2),COLOR0000FF,LINETHICK2; 箱底:MA(REF(LLV(上收,30),1),2),COLOR00FF00,LINETHICK2; T4:=CROSS(选手,箱底) AND 箱顶/箱底>110/100; T5:=CROSS(箱顶,选手) AND 箱顶/箱底>110/100; VAR1:=(上收-LLV(上低,27))/(HHV(上高,27)-LLV(上低,27))*100; VAR2:=SMA(VAR1,3,1); VAR3:=SMA(VAR2,3,1); VAR4:=SMA(VAR3,3,1); {DRAWTEXT(VAR3 >=VAR4 ,箱顶,'--中期好'),COLOR00FFFF; DRAWTEXT(VAR3<VAR4 ,箱顶,'--中期坏'),COLORF0F000; DRAWTEXT(A>B ,箱底,'--短期好'),COLOR00FFFF; DRAWTEXT(A<B ,箱底,'--短期坏'),COLORF0F000;} DRAWTEXT(CROSS(VAR3,VAR4)AND(C>=O)AND VAR3<40 AND UOO>0,LOW*0.96,'★'),COLORF00FF0; STICKLINE(C>=O,C,O,5,0),COLORRED; STICKLINE(C>=O,H,L,0,0),COLORYELLOW; STICKLINE(C<=O,C,O,5,0),COLORGREEN; STICKLINE(C<=O,H,L,0,0),COLORFFFF00; 买线:=EMA(C,2); 卖线:=EMA(SLOPE(C,21)*20+C,42);  DRAWTEXT(CROSS(买线,卖线)AND 箱顶>=REF(箱顶,1),LOW*0.95,'★跟'),COLOR00FFFF; STICKLINE(CROSS(买线,卖线),OPEN,CLOSE,3,0),COLOR00FFFF;   五线波段（副图） {坐标线位置:0;20;30;50;80;90;100;} {额外Y轴:0;20;50} STICKLINE(C>0,20,100,10,0),COLOR95AA95; STICKLINE(C>0,80,80,10,0),COLORCC55CC; STICKLINE(C>0,90,90,10,0),COLORCC55CC; STICKLINE(C>0,20,30,10,0),COLOR557575; 强弱分界:50,COLORLIRED,NODRAW; {信号灯} SAR1:=(CLOSE+HIGH+LOW)/3; SAR2:=EMA(SAR1,10); SAR3:=REF(SAR2,1); 绿等待:IF(SAR2,99,DRAWNULL),COLOR00DD00,LINETHICK5; 黄买: IF(SAR2>SAR3,99,DRAWNULL), COLOR00DDDD,LINETHICK5; 蓝卖: IF(SAR2<SAR3,99,DRAWNULL),COLORDD0000,LINETHICK5; {波段强弱} ZC:=(100 - ((90 * (HHV(HIGH,14) - CLOSE)) / (HHV(HIGH,14) - LLV(LOW,14)))) COLOR00DDDD; DRAWBAND(ZC,RGB(100,15,55),50,RGB(0,100,50)); {中线波段} VAR0:=(CLOSE-LLV(LOW,60))/(HHV(HIGH,60)-LLV(LOW,60))*100; VARA:=SMA(VAR0,3,1); VAR1:=SMA(VARA,4,1)-10; STICKLINE(REF(VAR1,1)<VAR1,VAR1,REF(VAR1,1),5,0),COLOR0055FF; STICKLINE(REF(VAR1,1)>VAR1,VAR1,REF(VAR1,1),5,1),COLOR007500; {趋势顶底判断} A4:=SMA((HHV(H,9)-C)/(HHV(H,9)-LLV(LOW,9))*100-70,9,1)+100; A5:=(C-LLV(L,9))/(HHV(H,9)- LLV(L,9))*100; A6:=SMA(SMA(A5,3,1),3,1)+100; A7:=(A6-A4)/1.5+10; 趋势:A7,COLOR00AAFF,NODRAW; 趋势底线:=EMA(趋势,5),COLORGREEN; STICKLINE(趋势>趋势底线,趋势,趋势底线,0.1,0),COLOR0099FF; STICKLINE(趋势<=趋势底线,趋势,趋势底线,0.1,-1),COLOR95AA00; 趋势金叉:IF(CROSS(趋势,趋势底线),趋势,DRAWNULL),CIRCLEDOT,COLORFF33FF; 趋势死叉:IF(CROSS(趋势底线,趋势),趋势,DRAWNULL),CIRCLEDOT,COLOR66FF00; TV1:=趋势; TV2:=趋势底线; TV3:=BARSLAST(REF(CROSS(TV1,TV2),1)); TV3A:=REF(CLOSE,TV3+1)>CLOSE AND TV1>REF(TV1,TV3+1) AND  CROSS(TV1,TV2); 趋势底背离:IF(TV3A,TV1,DRAWNULL),CIRCLEDOT,LINETHICK3,COLORFF00FF; TV4:=BARSLAST(REF(CROSS(TV2,TV1),1)); TV4A:=REF(CLOSE,TV4+1)<CLOSE AND REF(TV1,TV4+1)>TV1 AND CROSS(TV2,TV1); 趋势顶背离:IF(TV4A,TV1,DRAWNULL),CIRCLEDOT,LINETHICK3,COLORFF6600; {KD} SSV:=(C-LLV(L,9))/(HHV(H,9)-LLV(L,9))*100; K:SMA(SSV,3,1),LINETHICK2,COLOR0033FF; D:=SMA(K,3,1); K弱:IF(K<=REF(K,1),K,DRAWNULL),LINETHICK2,COLORDDDD00; KD金叉:IF(CROSS(K,D),K,DRAWNULL),CIRCLEDOT,COLOR0000FF; KD死叉:IF(CROSS(D,K),K,DRAWNULL),CIRCLEDOT,COLORFF0000;

不宜饮用

谢谢楼主 无私的分享  辛苦

逍遥汉

谢谢楼主，支持楼主，顶起

谔谔鱼

学习学习，天天向上

李天华

蒙山沂水

谢谢了

红阳

谢谢楼主无私分享！

相骏缘

向高手学习

邓友谊

学习学习学习

云霄之外

谢谢楼主无私分享！

梦想至上

谢谢 提供 分享

红剑红

有未来11111

南山竹

向高手学习....

兰湖天

学习学习..

兔八哥

{:soso_e160:}

兰湖天

学习学习..

南山竹

谢谢分享..