通达信优化综合主图指标源码 简单 说明

此指标是以某日期为定点结合量价，此指标可调整转换均价线或布林线以”研判涨幅度“买卖。
图中的修饰符{信号}是出布林线上轨和RSI>76 RSI>80.K线有单阳不破和一阳破三线。
 

{主图综合指标}
{设参数}
{RQA(1990,3000,2011),RQB(1,12,1),RQC(1,31,1), GF(0,4,0),GE(0,2,0),N1(0,255,5),N2(0,255,10),N3(0,255,20),N4(0,255,55),N5(0,255,120)}

RQD:=(RQA-1900)*10000+RQB*100+RQC;
DJ:=REF(L,BARSLAST(DATE<=RQD )),NODRAW;
低价:IF(DATE>=RQD AND GF>=1,DJ,DRAWNULL),COLOREEEE00,LINETHICK3;
FU:=C-低价;
低到当前幅度%:FU/低价*100,NODRAW,COLOR00FFFF;
区间高:HHV(H,BARSLAST(DATE=RQD )),NODRAW,COLOR00DD00;
FUGA:=区间高-C;
高到当前幅度%:FUGA/区间高*100,NODRAW,COLORFFFF00;
时间:=CURRBARSCOUNT<100 AND BARSLAST(DATE<=RQD)<11 AND (LLV(L,BARSLAST(DATE<=RQD))DJ);
AB1:=BARSLAST(DATE<=RQD)=1 AND 时间 AND GF>=1;
AB2:=BARSLAST(DATE<=RQD)=2 AND 时间 AND GF>=1;
AB3:=BARSLAST(DATE<=RQD)=3 AND 时间 AND GF>=1;
AB4:=BARSLAST(DATE<=RQD)=4 AND 时间 AND GF>=1;
AB5:=BARSLAST(DATE<=RQD)=5 AND 时间 AND GF>=1;
AB6:=BARSLAST(DATE<=RQD)=6 AND 时间 AND GF>=1;
AB7:=BARSLAST(DATE<=RQD)=7 AND 时间 AND GF>=1;
AB8:=BARSLAST(DATE<=RQD)=8 AND 时间 AND GF>=1;
AB9:=BARSLAST(DATE<=RQD)=9 AND 时间 AND GF>=1;
AB10:=BARSLAST(DATE<=RQD)=10 AND 时间 AND GF>=1;
数字:=IF(AB1=1,'1',IF(AB2=1,'2',IF(AB3=1,'3',IF(AB4=1,'4',IF(AB5=1,'5',IF(AB6=1,'6',
IF(AB7=1,'7',IF(AB8=1,'8',IF(AB9=1,'9',IF(AB10=1,'10',DRAWNULL))))))))));
DRAWTEXT(AB1=1 OR AB2=1 OR AB3=1 OR AB4=1 OR AB5=1 OR AB6=1 OR AB7=1 OR AB8=1 OR AB9=1 OR AB10=1,DJ*0.999,数字),COLORGREEN;
低价A:=IF(DATE>=RQD AND GF>=1,DJ*1.03,DRAWNULL);
低价B:=IF(DATE>=RQD AND GF>=1,DJ*1.05,DRAWNULL);
低价C:=IF(DATE>=RQD AND GF>=2,DJ*1.08,DRAWNULL);
低价D:=IF(DATE>=RQD AND GF>=2,DJ*1.13,DRAWNULL);
低价E:=IF(DATE>=RQD AND GF>=3,DJ*1.18,DRAWNULL);
低价F:=IF(DATE>=RQD AND GF>=3,DJ*1.25,DRAWNULL);
低价G:IF(DATE>=RQD AND GF>=4,DJ*1.33,DRAWNULL),COLOR999999;
低价H:=IF(DATE>=RQD AND GF>=4,DJ*1.37,DRAWNULL);
DRAWBAND(低价,RGB(80,0,0),低价A,RGB(110,11,115));
DRAWBAND(低价A,RGB(80,0,0),低价B,RGB(66,166,66));
DRAWBAND(低价B,RGB(80,0,0),低价C,RGB(77,77,77));
DRAWBAND(低价C,RGB(80,0,0),低价D,RGB(88,88,88));
DRAWBAND(低价D,RGB(80,0,0),低价E,RGB(6,55,66));
DRAWBAND(低价E,RGB(80,0,0),低价F,RGB(8,8,99));
DRAWTEXT(ISLASTBAR AND GF>=1,DJ*1.03,'3'),COLOR208FFF;
DRAWTEXT(ISLASTBAR AND GF>=1,DJ*1.05,'5'),COLOR208FFF;
DRAWTEXT(DATE<=RQD AND GF>=2,低价C,'8'),COLOR208FFF;
DRAWTEXT(DATE<=RQD AND GF>=2,低价D,'13'),COLOR208FFF;
DRAWTEXT(DATE<=RQD AND GF>=3,低价E,'18'),COLOR208FFF;
DRAWTEXT(DATE<=RQD AND GF>=3,低价F,'25'),COLOR208FFF;{
DRAWTEXT(DATE<=RQD AND GF>=3,低价G,'33'),COLOR208FFF;{
DRAWTEXT(DATE<=RQD AND GF>=3,低价H,'37'),COLOR208FFF;}
DRAWKLINE(H,O,L,C);{K线}
AS:=(O+H+L+C)/4;
MMA5:=EMA(AS,N1);
SYAA:=EMA(AS,N2);
SYAB:=EMA(AS,N3);
SYAC:=EMA(AS,N4);
SYAD:=EMA(AS,N5);
BMA5:IF(GE=1,MMA5,DRAWNULL),LINETHICK1,COLORFFFFFF;
BMA10:IF(GE=1,SYAA,DRAWNULL),LINETHICK1,COLOR00FFFF;
BMA20:IF(GE=1,SYAB,DRAWNULL),LINETHICK1,COLORFF99FF;
BMA55:IF(GE=1,SYAC,DRAWNULL),LINETHICK1,COLOR209FFF;
BMAX:IF(GE=1,SYAD,DRAWNULL),LINETHICK1,COLORFFFF00;
BL:=EMA(AS,17);
BLS:= BL+2.58*STDP(C,20);
BL2:= BL+1.96*STDP(C,20);
BL3A:=BL-1.96*STDP(C,20);
BLXA:=BL-2.58*STDP(C,20);
BMA:IF(GE>=2,BLS,DRAWNULL),LINETHICK1,COLOR00FFFF;
BMB:IF(GE>=2,BL2,DRAWNULL),LINETHICK1,COLORFF99FF;
BMC:IF(GE>=2,BL3A,DRAWNULL),LINETHICK1,COLORF0FF00;
BMD:IF(GE>=2,BLXA,DRAWNULL),LINETHICK1,COLOR00FF00;
BME:IF(GE>=2,BL,DRAWNULL),LINETHICK1,COLOR00FF00;
DRAWICON(CROSS(H,BLS),H,2);
DRAWICON(CROSS(H,BL2),H*1.007,8);
LC := REF(CLOSE,1);
RSI1:=SMA(MAX(CLOSE-LC,0),6,1)/SMA(ABS(CLOSE-LC),6,1)*100;
GB:IF(RSI1>76,H*1.001,DRAWNULL),CIRCLEDOT,LINETHICK3,COLORFFFF00;
GBB:IF(RSI1>80,H*1.002,DRAWNULL),CROSSDOT,LINETHICK3,COLOR0000FF;
阳涨幅:=4;
阳倍量:=2;
单阳:=C>O*(1+阳涨幅/100) AND VOL>REF(VOL,1)*阳倍量;
DRAWTEXT(CURRBARSCOUNT<100 AND 单阳,L*0.998,'阳'),COLOR00FFFF;
低不破价:=REF(L,BARSLAST(单阳));
单阳不破:=CURRBARSCOUNT<100 AND BARSLAST(单阳)<11 AND (LLV(L,BARSLAST(单阳))>低不破价 OR LLV(L,BARSLAST(单阳))=低不破价);
阳低:IF(单阳不破 AND GF>=0,低不破价,DRAW