现货海

搜索
1框架
 
 
查看: 643|回复: 0

[指标分享] 请帮忙修改成倚天版本的指标e

[复制链接]
匿名
匿名  发表于 2013-8-27 13:46:18 |阅读模式
DRAWGBK(1,COLORRGB(180,180,180),COLORRGB(250,250,250),1);
DRAWTEXTEX(SYSPARAM(3)=BARPOS,0,10,18,'【代码:'+STKLABEL+' 名称:'+STKNAME+'】'),color400080;
STICKLINE(CLOSE>=OPEN,CLOSE,OPEN,7,0),colorAA;
STICKLINE(CLOSE>=OPEN,CLOSE,OPEN,6,0),colorCC;
STICKLINE(CLOSE>=OPEN,CLOSE,OPEN,4,0),colorDD;
STICKLINE(CLOSE>=OPEN,CLOSE,OPEN,7,0),colorFF;
STICKLINE(CLOSE>=OPEN,HIGH,LOW,0,0),colorFF;
STICKLINE(CLOSE<=OPEN,CLOSE,OPEN,7,0),colorCCCC00;
STICKLINE(CLOSE<=OPEN,CLOSE,OPEN,6,0),colorDDDD00;
STICKLINE(CLOSE<=OPEN,CLOSE,OPEN,4,0),colorEEEE00;
STICKLINE(CLOSE<=OPEN,CLOSE,OPEN,2,0),colorFFFF00;
STICKLINE(CLOSE<=OPEN,HIGH,LOW,0,0),color8A8A00;
量:IF(CLOSE>200,VOL/1000000,VOL/1),LINETHICK0;
MA5:=MA(量,5);
MA13:=MA(量,10);
MA55:=MA(量,204);
MA90:=MA(量,60);
MA120:=MA(量,120);
换手率:VOL/CAPITAL*100,LINETHICK0,PRECISION2,colorFFFF00;
当日成交量:=VOL;
前日成交量:=REF(VOL,1);
二日成交量:=REF(VOL,2);
BF:=(当日成交量-前日成交量)/前日成交量*100;
BFS:=(前日成交量-当日成交量)/当日成交量*100;
BFS二:=(前日成交量-BFS二)/BFS二*100;
STICKLINE(BF>10 AND 换手率>3,(CLOSE+OPEN)/2,OPEN,3,0),colorFFFF;
STICKLINE(BFS>10 AND 换手率<3,(CLOSE+OPEN)/2,CLOSE,5,0),colorFFBB00;
BBF:=REF(BF,1);
HS:=REF(换手率,1);
DRAWTEXT(BF>10 AND 换手率>3 AND BFS二<10 AND HS<3 AND CLOSE>REF(OPEN,1),LOW,'▲'),ALIGN0,PXDN9,colorFFFF;
DDA:=IF(SYSPARAM(1)=(BARSSINCE(CLOSE>0))+1,1,0);
五日换手:SUM(换手率,5),LINETHICK0,PRECISION2,colorFFAADD;
十日换手:SUM(换手率,10),LINETHICK0,PRECISION2,colorFFAADD;
单日放量:=量/MA120>3;
区域放量:=十日换手>50;
横向放量:=CROSS(MA5,MA120);
纵向放量:=五日换手>20;
DRAWTEXTEX(SYSPARAM(3)=BARPOS,0,10,2,'【换手率】:'+NUMTOSTR(换手率[SYSPARAM(1)],2)+'% '+'【五日换手】:'+NUMTOSTR(五日换手[SYSPARAM(1)],2)+'% '+'【十日换手】:'+NUMTOSTR(十日换手[SYSPARAM(1)],2)+'%'+'  当日成交量:'+NUMTOSTR(量[SYSPARAM(1)],0)+'手'),color1;
DRAWICON(单日放量,LOW,8),ALIGN0,PXDN14;
DRAWICON(区域放量,HIGH,7),ALIGN0,PXUP9;
DRAWICON(纵向放量,LOW,6),ALIGN0,PXDN15;
DRAWICON(横向放量,HIGH,12),ALIGN0,PXUP6;
DRAWTEXT(DDA>0 AND 单日放量,LOW,'单日放量→'),ALIGN2,PXDN10,colorFF0000;
DRAWTEXT(DDA>0 AND 区域放量,HIGH,'区域放量→'),ALIGN2,PXUP10,colorFF0000;
DRAWTEXT(DDA>0 AND 纵向放量,LOW,'纵向放量→'),ALIGN2,PXDN35,colorFF0000;
DRAWTEXT(DDA>0 AND 横向放量,HIGH,'横向放量→'),ALIGN2,PXDN5,colorFF0000;
DRAWTEXT(DDA>0 AND BFS>10 AND 换手率<3,LOW,'缩量→'),ALIGN2,PXDN5,colorFFAA00;
DRAWTEXT(DDA>0 AND BF>10 AND 换手率>3,HIGH,'增量→'),ALIGN2,PXUP5,color6400;
MAI:=CLOSE*1.017;
MAII:=CLOSE*1.03;
FMAI:=REF(MAI,1);
FMAII:=REF(MAII,1);
振幅:(HIGH-LOW)/LOW*100,LINETHICK0,colorFFFF;
差价:HIGH-LOW,LINETHICK0,colorFFFF;
VAR3:=HIGH<REF(LOW,1);
VAR4:=LOW>REF(HIGH,1);
DRAWTEXT(VAR3,HIGH,'缺口'),ALIGN0,color800000;
DRAWTEXT(VAR4,LOW,'缺口'),ALIGN0,color60BF;
FBARS:=SYSPARAM(0);
FF5:=BARSSINCE(CLOSE)=FBARS+4;
VERTLINE(FF5),POINTDOT,LINETHICK1,color996666;
DRAWNUMBER(FF5,SYSPARAM(5),5,0),PXUP50,color996666;
FF8:=BARSSINCE(CLOSE)=FBARS+6;
VERTLINE(FF8),POINTDOT,LINETHICK1,colorFF00FF;
DRAWNUMBER(FF8,SYSPARAM(5),7,0),PXUP50,colorFF00FF;
FF8:=BARSSINCE(CLOSE)=FBARS+13;
VERTLINE(FF8),POINTDOT,LINETHICK1,colorFF00FF;
DRAWNUMBER(FF8,SYSPARAM(5),14,0),PXUP50,colorFF00FF;
FF8:=BARSSINCE(CLOSE)=FBARS+34;
VERTLINE(FF8),POINTDOT,LINETHICK1,colorFF00FF;
DRAWNUMBER(FF8,SYSPARAM(5),35,0),PXUP50,colorFF00FF;
FF8:=BARSSINCE(CLOSE)=FBARS+27;
VERTLINE(FF8),POINTDOT,LINETHICK1,colorFF00FF;
DRAWNUMBER(FF8,SYSPARAM(5),28,0),PXUP50,colorFF00FF;
FF8:=BARSSINCE(CLOSE)=FBARS+41;
VERTLINE(FF8),POINTDOT,LINETHICK1,colorFF00FF;
DRAWNUMBER(FF8,SYSPARAM(5),42,0),PXUP50,colorFF00FF;
FF8:=BARSSINCE(CLOSE)=FBARS+48;
VERTLINE(FF8),POINTDOT,LINETHICK1,colorFF00FF;
DRAWNUMBER(FF8,SYSPARAM(5),49,0),PXUP50,colorFF00FF;
FF8:=BARSSINCE(CLOSE)=FBARS+7;
VERTLINE(FF8),POINTDOT,LINETHICK1,color996666;
DRAWNUMBER(FF8,SYSPARAM(5),8,0),PXUP50,color996666;
FF13:=BARSSINCE(CLOSE)=FBARS+12;
VERTLINE(FF13),POINTDOT,LINETHICK1,color996666;
DRAWNUMBER(FF13,SYSPARAM(5),13,0),PXUP50,color996666;
FF21:=BARSSINCE(CLOSE)=FBARS+20;
VERTLINE(FF21),POINTDOT,LINETHICK1,color996666;
DRAWNUMBER(FF21,SYSPARAM(5),21,0),PXUP50,color996666;
FF34:=BARSSINCE(CLOSE)=FBARS+32;
VERTLINE(FF34),POINTDOT,LINETHICK1,color996666;
DRAWNUMBER(FF34,SYSPARAM(5),33,0),PXUP50,color996666;
FF55:=BARSSINCE(CLOSE)=FBARS+54;
VERTLINE(FF55),POINTDOT,LINETHICK1,color996666;
DRAWNUMBER(FF55,SYSPARAM(5),55,0),PXUP50,color996666;
FF89:=BARSSINCE(CLOSE)=FBARS+88;
VERTLINE(FF89),POINTDOT,LINETHICK1,color996666;
DRAWNUMBER(FF89,SYSPARAM(5),89,0),PXUP50,color996666;
FF144:=BARSSINCE(CLOSE)=FBARS+143;
VERTLINE(FF144),POINTDOT,LINETHICK1,color996666;
DRAWNUMBER(FF144,SYSPARAM(5),144,0),PXUP50,color996666;
AJ:=DATEDIFF(DATE,CURRENTDATE);
B:=DATACOUNT-BARPOS+0;
TT:=BARPOS=SYSPARAM(3);
N1:=SYSPARAM(3);
NA:=N1-SYSPARAM(2)+1;
HH:=HHV(HIGH,NA);
LL:=LLV(LOW,NA);
GG:HH[N1],colorFF00FF;
DD:LL[N1],colorFF0000;
FD:=GG-DD;
FDD:=FD/DD*100;
FDDD:=FD/GG*100;
Q:DD+(GG-DD)*0.191,LINEDOT,color804000;
Q2:DD+(GG-DD)*0.382,LINEDOT,color804000;
Q3:DD+(GG-DD)*0.5,LINEDOT,color1;
Q4:DD+(GG-DD)*0.618,LINEDOT,color804000;
Q5:DD+(GG-DD)*0.809,LINEDOT,color804000;
JN1:=DD+(GG-DD)*0.875;
JN6:=DD+(GG-DD)*0.125;
JN11:=DD+(GG-DD)*0.22;
HJ1:=DD+(GG-DD)*0.191;
HJ6:=DD+(GG-DD)*0.55;
HJ11:=DD+(GG-DD)*0.05;
JN2:=DD+(GG-DD)*0.667;
JN7:=DD+(GG-DD)*0.85;
JN12:=DD+(GG-DD)*0.28;
HJ2:=DD+(GG-DD)*0.382;
HJ7:=DD+(GG-DD)*0.45;
JN3:=DD+(GG-DD)*0.333;
JN8:=DD+(GG-DD)*0.78;
JN13:=DD+(GG-DD)*0.15;
HJ3:=DD+(GG-DD)*0.618;
HJ8:=DD+(GG-DD)*0.9;
HJ12:=DD+(GG-DD)*0.08;
JN4:=DD+(GG-DD)*0.625;
JN9:=DD+(GG-DD)*0.72;
JN14:=DD+(GG-DD)*0.75;
HJ4:=DD+(GG-DD)*0.809;
HJ9:=DD+(GG-DD)*0.95;
JN5:=DD+(GG-DD)*0.375;
JN10:=DD+(GG-DD)*0.25;
HJ5:=DD+(GG-DD)*0.5;
HJ10:=DD+(GG-DD)*0.1;
DRAWTEXT(ISLASTBAR=1,JN1,''+'7/8('+NUMTOSTR(JN1,2)+''+'﹋﹋﹋﹋﹋﹋'),ALIGN2,PXDN1,color4D99;
DRAWTEXT(ISLASTBAR=1,JN2,''+'2/3('+NUMTOSTR(JN2,2)+''+' ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄'),ALIGN2,PXDN1,colorBB0000;
DRAWTEXT(ISLASTBAR=1,HJ5,''+'50%('+NUMTOSTR(HJ5,2)+''+' ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄'),ALIGN2,PXDN1,color1;
DRAWTEXT(ISLASTBAR=1,JN3,''+'1/3('+NUMTOSTR(JN3,2)+''+' ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄'),ALIGN2,PXDN1,colorBB0000;
DRAWTEXT(ISLASTBAR=1,JN6,''+'1/8('+NUMTOSTR(JN6,2)+''+'﹋﹋﹋﹋﹋﹋'),ALIGN2,PXDN1,color4D99;
DRAWTEXT(ISLASTBAR=1,HJ6,''+'55%('+NUMTOSTR(HJ6,2)+''+'﹉﹉﹉'),ALIGN2,PXDN2,color1;
DRAWTEXT(ISLASTBAR=1,HJ7,''+'45%('+NUMTOSTR(HJ7,2)+''+'﹉﹉﹉'),ALIGN2,PXDN2,color1;
DRAWTEXT(ISLASTBAR=1,JN8,''+'78%('+NUMTOSTR(JN8,2)+''+'﹊﹊'),ALIGN2,PXDN2,color222222;
DRAWTEXT(ISLASTBAR=1,JN9,''+'72%('+NUMTOSTR(JN9,2)+''+'﹊﹊'),ALIGN2,PXDN2,color222222;
DRAWTEXT(ISLASTBAR=1,JN11,''+'22%('+NUMTOSTR(JN11,2)+''+'﹊﹊'),ALIGN2,PXDN2,color9F9F00;
DRAWTEXT(ISLASTBAR=1,JN12,''+'28%('+NUMTOSTR(JN12,2)+''+'﹊﹊'),ALIGN2,PXDN2,color9F9F00;
DRAWTEXT(ISLASTBAR=1,JN7,''+'85%('+NUMTOSTR(JN7,2)+''+'﹉﹉﹉'),ALIGN2,PXDN2,color208EEE;
DRAWTEXT(ISLASTBAR=1,JN13,''+'15%('+NUMTOSTR(JN13,2)+''+'﹉﹉﹉'),ALIGN2,PXDN2,color208EEE;
DRAWTEXT(ISLASTBAR=1,JN4,''+'5/8('+NUMTOSTR(JN4,2)+''+'﹋﹋﹋﹋﹋﹋'),ALIGN2,PXDN1,color4D99;
DRAWTEXT(ISLASTBAR=1,JN5,''+'3/8('+NUMTOSTR(JN5,2)+''+'﹋﹋﹋﹋﹋﹋'),ALIGN2,PXDN5,color4D99;
DRAWTEXT(ISLASTBAR=1,JN10,''+'2/8('+NUMTOSTR(JN10,2)+''+'﹋﹋﹋﹋﹋﹋'),ALIGN2,PXDN1,color4D99;
DRAWTEXT(ISLASTBAR=1,JN14,''+'6/8('+NUMTOSTR(JN14,2)+''+'﹋﹋﹋﹋﹋﹋'),ALIGN2,PXDN1,color4D99;
DRAWTEXT(TT,Q,'  19.1%:('+NUMTOSTR(Q,2)+''),ALIGN2,PXDN6,color804000;
DRAWTEXT(TT,Q2,'  38.2%:('+NUMTOSTR(Q2,2)+''),ALIGN2,PXUP18,color804000;
DRAWTEXT(TT,Q4,'  61.8%:('+NUMTOSTR(Q4,2)+''),ALIGN2,PXDN10,color804000;
DRAWTEXT(TT,Q5,'  80.9%:('+NUMTOSTR(Q5,2)+''),ALIGN2,PXUP18,color804000;
DRAWTEXT(ISLASTBAR=1,HJ8,''+'90%('+NUMTOSTR(HJ8,2)+''+'﹊﹊'),ALIGN2,PXDN2,colorFFFF00;
DRAWTEXT(ISLASTBAR=1,HJ9,''+'95%('+NUMTOSTR(HJ9,2)+''+'﹊﹊'),ALIGN2,PXDN2,colorFFFF00;
DRAWTEXT(ISLASTBAR=1,HJ11,''+'5%('+NUMTOSTR(HJ11,2)+''+'﹊﹊'),ALIGN2,PXDN2,colorFF0000;
DRAWTEXT(ISLASTBAR=1,HJ10,''+'10%('+NUMTOSTR(HJ10,2)+''+'﹊﹊'),ALIGN2,PXDN2,color1;
DRAWTEXT(ISLASTBAR=1,HJ12,''+'8%('+NUMTOSTR(HJ12,2)+''+'﹊﹊'),ALIGN2,PXDN2,colorFF00EE;
DRAWTEXT(ISLASTBAR=1,DD,'最低'+NUMTOSTR(DD,2)),ALIGN2,PXUP25,color1;
DRAWTEXT(ISLASTBAR=1,GG,'  最高'+NUMTOSTR(GG,2)),ALIGN2,PXDN5,colorFF00FF;
ZHH:=HIGH;
ZGF1:=ZHH/1.0809;
ZGF2:=ZHH/1.1618;
ZGF3:=ZHH/1.0809/1.1618;
ZGF4:=ZHH/1.1618/1.1618;
ZGF5:=ZHH/1.0809/1.1618/1.1618;
ZGF6:=ZHH/1.1618/1.1618/1.1618;
ZGF7:=ZHH/1.0809/1.1618/1.1618/1.1618;
ZGF8:=ZHH/1.1618/1.1618/1.1618/1.1618;
DRAWTEXTEX(SYSPARAM(3)=BARPOS,0,2,36,'【股价到第一半致全一回调位】:'+NUMTOSTR(ZGF1[SYSPARAM(1)],2)+'--'+NUMTOSTR(ZGF2[SYSPARAM(1)],2)+''),colorFF0000;
DRAWTEXTEX(SYSPARAM(3)=BARPOS,0,2,50,'【股价到第二半致全二回调位】:'+NUMTOSTR(ZGF3[SYSPARAM(1)],2)+'--'+NUMTOSTR(ZGF4[SYSPARAM(1)],2)+''),colorFF0000;
DRAWTEXTEX(SYSPARAM(3)=BARPOS,0,2,64,'【股价到第三半致全三回调位】:'+NUMTOSTR(ZGF5[SYSPARAM(1)],2)+'--'+NUMTOSTR(ZGF6[SYSPARAM(1)],2)+''),colorFF0000;
DRAWTEXTEX(SYSPARAM(3)=BARPOS,0,2,78,'【股价到第四半致全四回调位】:'+NUMTOSTR(ZGF7[SYSPARAM(1)],2)+'--'+NUMTOSTR(ZGF8[SYSPARAM(1)],2)+''),colorFF0000;
ZLL:=LOW;
ZGFB1:=ZLL*1.0809;
ZGFB2:=ZLL*1.1618;
ZGFB3:=ZLL*1.0809*1.1618;
ZGFB4:=ZLL*1.1618*1.1618;
ZGFB5:=ZLL*1.1618*1.1618*1.0809;
ZGFB6:=ZLL*1.1618*1.1618*1.1618;
ZGFB7:=ZLL*1.1618*1.1618*1.1618*1.0809;
ZGFB8:=ZLL*1.1618*1.1618*1.1618*1.1618;
DRAWTEXTEX(SYSPARAM(3)=BARPOS,0,2,92,'【股价到第一半致全一压力位】:'+NUMTOSTR(ZGFB1[SYSPARAM(1)],2)+''+'--'+NUMTOSTR(ZGFB2[SYSPARAM(1)],2)+''),colorFF00FF;
DRAWTEXTEX(SYSPARAM(3)=BARPOS,0,2,106,'【股价到第二半致全二压力位】:'+NUMTOSTR(ZGFB3[SYSPARAM(1)],2)+''+'--'+NUMTOSTR(ZGFB4[SYSPARAM(1)],2)+''),colorFF00FF;
DRAWTEXTEX(SYSPARAM(3)=BARPOS,0,2,120,'【股价到第三半致全三压力位】:'+NUMTOSTR(ZGFB5[SYSPARAM(1)],2)+''+'--'+NUMTOSTR(ZGFB6[SYSPARAM(1)],2)+''),colorFF00FF;
DRAWTEXTEX(SYSPARAM(3)=BARPOS,0,2,134,'【股价到第四半致全四压力位】:'+NUMTOSTR(ZGFB7[SYSPARAM(1)],2)+''+'--'+NUMTOSTR(ZGFB8[SYSPARAM(1)],2)+''),colorFF00FF;
DRAWTEXTEX(SYSPARAM(3)=BARPOS,0,2,180,'【起动点价】'+NUMTOSTR(ZLL[SYSPARAM(1)],2)+')'),color1;
DRAWTEXTEX(SYSPARAM(3)=BARPOS,0,135,180,'【回调点价】'+NUMTOSTR(ZHH[SYSPARAM(1)],2)+')'),colorFF0000;
DRAWTEXTEX(SYSPARAM(3)=BARPOS,0,2,150,'【最低/最高幅度】:('+NUMTOSTR(FDD,2)+' % )'+'【最高/最低幅度】:(-'+NUMTOSTR(FDDD,2)+' % )'),color1;
DRAWTEXTEX(SYSPARAM(3)=BARPOS,0,2,165,'【交易日】:'+NUMTOSTR(B[SYSPARAM(1)],0)+'(天) '+'     【自然日】:'+NUMTOSTR(AJ[SYSPARAM(1)],0)+'(天) '),colorFF0000;
回复

使用道具 举报

发表回复

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

快速回复 返回顶部 返回列表