柱里乾坤 发表于 2017-11-2 20:52

谢谢分享辛苦了

城里 发表于 2017-12-17 19:39

参数百分比2   20   5
右数峰序 220 2
DRAWBAND(MA(CLOSE,60),RGB(80,0,0),MA(CLOSE,120),RGB(0,91,0));   
DRAWBAND(MA(CLOSE,5),RGB(155,50,50),MA(CLOSE,10),RGB(83,123,68));   
DRAWKLINE(H,O,L,C);   
Z1A:=STRCAT(HYBLOCK,' ');
Z2A:=STRCAT(Z1A,FGBLOCK);
Z3A:=STRCAT(Z2A,DYBLOCK);
Z4A:=STRCAT(Z3A,' ');
DRAWTEXT_FIX(ISLASTBAR,0.02,0,0,STRCAT(Z4A,GNBLOCK)),COLORYELLOW;
DRAWTEXT_FIX(1,0.05,0.05,0,EXTERNSTR(0,1))COLOR0000FF;
DRAWTEXT_FIX(1,0.00,0.05,0,STRCAT('主题投资:',EXTERNSTR(0,7))),COLORRED;
MA5:MA(CLOSE,5),COLORWHITE;   
MA10:=MA(CLOSE,10),COLORYELLOW;   
MA20:MA(CLOSE,20),COLORMAGENTA;   
MA60:=MA(CLOSE,60),COLORGREEN;   
MA120:=MA(CLOSE,120),COLORLIMAGENTA;   
MA240:=MA(CLOSE,240),COLORBLUE,NODRAW;   
VOL5:=MA(VOL,5),COLORWHITE;   
VOL10:=MA(VOL,10),COLORYELLOW;   
VOL40:=MA(VOL,40),COLORFF00FF ;   
量托:=VOL5>=VOL40 AND CROSS(VOL10,VOL40) AND REF(VOL10,1)<REF(VOL40,1);   
DRAWTEXT(量托,L-0.012,'量托'),COLORWHITE;   
AA1:=BARSLAST(MA60>MA20 AND (MA20=MA10 OR MA20>MA10));   
BB1:=REF(COUNT(C<MA60,AA1)=AA1,1);   
CC1:=CROSS(C,MA60) AND VOL>MA(VOL,5) AND (C-REF(C,1))/REF(C,1)*100>3;   
芙蓉出水:=BB1 AND CC1,COLOR00FF00;   
DRAWTEXT(芙蓉出水,H+0.3,'芙蓉出水'),COLORFF00FF;   
STICKLINE(芙蓉出水,H,L,1,1),COLORFF00FF;   
STICKLINE(芙蓉出水,O,C,3,1),LINETHICK2,COLORFF00FF;   
MA1:=MA(CLOSE,5);   
MA2:=MA(CLOSE,10);   
MA3:=MA(CLOSE,20);   
ZJ:=AMOUNT/10000;{资金}   
TM:=V-MA(V,10);{量填满}   
一穿三:=MA1>O AND MA2>O AND MA3>O AND MA1<C AND MA2<C AND MA3<C AND CLOSE>OPEN ;   
DRAWTEXT(一穿三,L-0.012,'一穿三'),COLORFF00FF;   
STICKLINE(一穿三,OPEN,CLOSE,1,0),COLORFF00FF;   
TY:=C;   
A1:=REF(TY,10)=HHV(TY,2*10+1); B1:=FILTER(A1,10); C1:=BACKSET(B1,10+1); HD:=FILTER(C1,10);   
A2:=REF(TY,10)=LLV(TY,2*10+1); B2:=FILTER(A2,10); C2:=BACKSET(B2,10+1); LD:=FILTER(C2,10);   
前期高位:REF(C,BARSLAST(HD)),COLORBLUE,POINTDOT;   
STICKLINE(C,前期高位,前期高位,8,0),COLORRED;   
{高点:=(C/REF(C,BARSLAST(HD))-1)*100,NODRAW;   
STICKLINE((HIGH-MAX(CLOSE,OPEN))/(HIGH-LOW)>0.667,H,C,0.8,0),COLORBLUE;}   
三日不破:=MIN(MIN(L,REF(L,1)),REF(L,2))>=REF(L,3);   
三日量缩:=(MAX(MAX(V,REF(V,1)),REF(V,2))<REF(V,3));   
三日价涨A:=C>=REF(C,1);   
三日价涨B:=C<REF(C,1);   
三日价涨C:=MIN(MIN(C,REF(C,1)),REF(C,2))>=REF(L,3);   
TIM:=IF(DATE<1140214,1,0);   
缩倍柱:=(VOL*1.95<=REF(VOL,1))*TIM;   
百日低量:=(VOL=LLV(VOL,100))*TIM;   
倍量柱:=C>REF(C,1)*1.04 AND (VOL>=1.9*REF(VOL,1))*TIM;   
四日前倍量柱:=(REF(VOL,3)>1.9*REF(VOL,4))*TIM;   
四日前高量柱:=(REF(VOL,3)>=REF(VOL,4) AND REF(VOL,3)<1.9*REF(VOL,4) AND 三日量缩)*TIM;   
前三引用不成立:=COUNT(REF(四日前倍量柱,1) AND (REF(三日不破,1) OR REF(三日价涨C,1)),3)=0 AND COUNT(REF(四日前高量柱,1) AND (REF(三日不破,1) OR REF(三日价涨C,1)),3)=0;   
倍量黄金柱:=四日前倍量柱 AND 三日量缩 AND 三日不破 AND 三日价涨A AND 前三引用不成立;   
高量黄金柱:=四日前高量柱 AND 三日量缩 AND 三日不破 AND 三日价涨A AND 前三引用不成立;   
黄金柱:=倍量黄金柱 OR 高量黄金柱;   
次倍量黄金柱:=NOT(黄金柱) AND 四日前倍量柱 AND 三日量缩 AND 三日不破 AND 三日价涨B AND 前三引用不成立;   
次高量黄金柱:=NOT(黄金柱) AND 四日前高量柱 AND 三日量缩 AND 三日不破 AND 三日价涨B AND 前三引用不成立;   
次黄金柱:=次倍量黄金柱 OR 次高量黄金柱;   
准倍量黄金柱:=NOT(黄金柱 OR 次黄金柱) AND 四日前倍量柱 AND ((三日量缩 AND 三日价涨C) OR (COUNT(倍量柱,3)>=1 AND 三日不破)) AND 前三引用不成立;   
准高量黄金柱:=NOT(黄金柱 OR 次黄金柱) AND 四日前高量柱 AND (三日量缩 AND 三日价涨C) AND 前三引用不成立;   
准黄金柱:=准倍量黄金柱 OR 准高量黄金柱;   
倍量将军柱:=NOT(黄金柱 OR 次黄金柱 OR 准黄金柱) AND 四日前倍量柱 AND 三日不破 AND 三日价涨A AND 前三引用不成立;   
高量将军柱:=NOT(黄金柱 OR 次黄金柱 OR 准黄金柱) AND 四日前高量柱 AND 三日不破 AND 三日价涨A AND 前三引用不成立;   
将军柱:=倍量将军柱 OR 高量将军柱;   
次倍量将军柱:=NOT(黄金柱 OR 次黄金柱 OR 准黄金柱 OR 将军柱) AND 四日前倍量柱 AND 三日不破 AND 三日价涨B AND 前三引用不成立;   
次高量将军柱:=NOT(黄金柱 OR 次黄金柱 OR 准黄金柱 OR 将军柱) AND 四日前高量柱 AND 三日不破 AND 三日价涨B AND 前三引用不成立;   
次将军柱:=次倍量将军柱 OR 次高量将军柱;   
准倍量将军柱:=NOT(黄金柱 OR 次黄金柱 OR 准黄金柱 OR 将军柱 OR 次将军柱) AND 四日前倍量柱 AND 三日价涨C AND 前三引用不成立;   
准高量将军柱:=NOT(黄金柱 OR 次黄金柱 OR 准黄金柱 OR 将军柱 OR 次将军柱) AND 四日前高量柱 AND 三日价涨C AND 前三引用不成立;   
准将军柱:=准倍量将军柱 OR 准高量将军柱;   
BACKSET100:=BACKSET(黄金柱 OR 次黄金柱 OR 准黄金柱 OR 将军柱 OR 次将军柱 OR 准将军柱,4);   
FILTER100:=FILTER(BACKSET100,3),NODRAW;   
BACKSET101:=BACKSET(黄金柱,4);   
FILTER101:=FILTER(BACKSET101,3);   
BACKSET102:=BACKSET(次黄金柱,4);   
FILTER102:=FILTER(BACKSET102,3);   
BACKSET103:=BACKSET(准黄金柱,4);   
FILTER103:=FILTER(BACKSET103,3);   
BACKSET104:=BACKSET(将军柱,4);   
FILTER104:=FILTER(BACKSET104,3);   
BACKSET105:=BACKSET(次将军柱,4);   
FILTER105:=FILTER(BACKSET105,3);   
BACKSET106:=BACKSET(准将军柱,4);   
FILTER106:=FILTER(BACKSET106,3);   
黄金线下影线:=REF(FILTER100,3)=1 AND MIN(MIN(L,REF(L,1)),REF(L,2))<=REF(L,3);   
黄金线实体下端:=REF(FILTER100,3)=1 AND MIN(MIN(L,REF(L,1)),REF(L,2))<=MIN(REF(C,3),REF(O,3)) AND MIN(MIN(L,REF(L,1)),REF(L,2))>REF(L,3),LINETHICK0;   
黄金线上影线:=REF(FILTER100,3)=1 AND MIN(MIN(L,REF(L,1)),REF(L,2))>=REF(H,3);   
黄金线实体上端:=REF(FILTER100,3)=1 AND MIN(MIN(L,REF(L,1)),REF(L,2))>=MAX(REF(C,3),REF(O,3)) AND REF(FILTER100,3)=1 AND MIN(MIN(L,REF(L,1)),REF(L,2))<REF(H,3);   
黄金线实体中间:=REF(FILTER100,3)=1 AND MIN(MIN(L,REF(L,1)),REF(L,2))<MAX(REF(C,3),REF(O,3)) AND REF(FILTER100,3)=1 AND MIN(MIN(L,REF(L,1)),REF(L,2))>MIN(REF(C,3),REF(O,3));   
黄金线实体中间1:=REF(FILTER100,3)=1 AND MIN(MIN(L,REF(L,1)),REF(L,2))<MAX(REF(C,3),REF(O,3)) AND REF(FILTER100,3)=1 AND MIN(MIN(L,REF(L,1)),REF(L,2))>MIN(REF(C,3),REF(O,3)) AND REF(L,2)=MIN(MIN(L,REF(L,1)),REF(L,2));   
黄金线实体中间2:=REF(FILTER100,3)=1 AND MIN(MIN(L,REF(L,1)),REF(L,2))<MAX(REF(C,3),REF(O,3)) AND REF(FILTER100,3)=1 AND MIN(MIN(L,REF(L,1)),REF(L,2))>MIN(REF(C,3),REF(O,3)) AND REF(L,1)=MIN(MIN(L,REF(L,1)),REF(L,2));   
黄金线实体中间3:=REF(FILTER100,3)=1 AND MIN(MIN(L,REF(L,1)),REF(L,2))<MAX(REF(C,3),REF(O,3)) AND REF(FILTER100,3)=1 AND MIN(MIN(L,REF(L,1)),REF(L,2))>MIN(REF(C,3),REF(O,3)) AND L=MIN(MIN(L,REF(L,1)),REF(L,2));   
BACKSET201:=BACKSET(黄金线下影线,4);   
FILTER201:=FILTER(BACKSET201,3),NODRAW;   
BACKSET202:=BACKSET(黄金线实体下端,4);   
FILTER202:=FILTER(BACKSET202,3),NODRAW;   
BACKSET203:=BACKSET(黄金线上影线,4);   
FILTER203:=FILTER(BACKSET203,3),NODRAW;   
BACKSET204:=BACKSET(黄金线实体上端,4);   
FILTER204:=FILTER(BACKSET204,3),NODRAW;   
BACKSET205:=BACKSET(黄金线实体中间,4);   
FILTER205:=FILTER(BACKSET205,3),NODRAW;   
BACKSET2051:=BACKSET(黄金线实体中间1,4);   
FILTER2051:=FILTER(BACKSET2051,3),NODRAW;   
BACKSET2052:=BACKSET(黄金线实体中间2,4);   
FILTER2052:=FILTER(BACKSET2052,3),NODRAW;   
BACKSET2053:=BACKSET(黄金线实体中间3,4);   
FILTER2053:=FILTER(BACKSET2053,3),NODRAW;   
BT201:=IF(BARSLAST(FILTER201)=DRAWNULL,BARSCOUNT(CLOSE),BARSLAST(FILTER201));   
BT202:=IF(BARSLAST(FILTER202)=DRAWNULL,BARSCOUNT(CLOSE),BARSLAST(FILTER202));   
BT203:=IF(BARSLAST(FILTER203)=DRAWNULL,BARSCOUNT(CLOSE),BARSLAST(FILTER203));   
BT204:=IF(BARSLAST(FILTER204)=DRAWNULL,BARSCOUNT(CLOSE),BARSLAST(FILTER204));   
BT205:=IF(BARSLAST(FILTER205)=DRAWNULL,BARSCOUNT(CLOSE),BARSLAST(FILTER205));   
BT2051:=IF(BARSLAST(FILTER2051)=DRAWNULL,BARSCOUNT(CLOSE),BARSLAST(FILTER2051));   
BT2052:=IF(BARSLAST(FILTER2052)=DRAWNULL,BARSCOUNT(CLOSE),BARSLAST(FILTER2052));   
BT2053:=IF(BARSLAST(FILTER2053)=DRAWNULL,BARSCOUNT(CLOSE),BARSLAST(FILTER2053));   
最近黄金线:=MIN(MIN(MIN(MIN(MIN(MIN(BT201,BT202),BT203),BT204),BT2051),BT2052),BT2053);   
DAY1:=SUMBARS(FILTER100,1),NODRAW;   
HJX1_1:=IF(SUMBARS(FILTER201,1)=DAY1,IF(DAY1=1,LOW,REF(LOW,DAY1-1)),0),NODRAW;   
HJX1_2:=IF(SUMBARS(FILTER202,1)=DAY1,IF(DAY1=1,MIN(C,O),MIN(REF(C,DAY1-1),REF(OPEN,DAY1-1))),0),NODRAW;   
HJX1_3:=IF(SUMBARS(FILTER203,1)=DAY1,IF(DAY1=1,HIGH,REF(HIGH,DAY1-1)),0),NODRAW;   
HJX1_4:=IF(SUMBARS(FILTER204,1)=DAY1,IF(DAY1=1,MAX(C,O),MAX(REF(C,DAY1-1),REF(OPEN,DAY1-1))),0),NODRAW;   
HJX1_51:=IF(SUMBARS(FILTER2051,1)=DAY1,IF(DAY1=2,LOW,IF(DAY1<2,DRAWNULL,REF(LOW,DAY1-2))),0),NODRAW;   
HJX1_52:=IF(SUMBARS(FILTER2052,1)=DAY1,IF(DAY1=3,LOW,IF(DAY1<3,DRAWNULL,REF(LOW,DAY1-3))),0),NODRAW;   
HJX1_53:=IF(SUMBARS(FILTER2053,1)=DAY1,IF(DAY1=4,LOW,IF(DAY1<4,DRAWNULL,REF(LOW,DAY1-4))),0),NODRAW;   
黄金线:=HJX1_1+HJX1_2+HJX1_3+HJX1_4+HJX1_51+HJX1_52+HJX1_53,COLORYELLOW,NODRAW;   
立桩量:=VOL=HHV(VOL,40) AND VOL>1.9*REF(VOL,1);   
立桩量三日突破:=IF(BARSLAST(立桩量)=1 AND CLOSE>REF(HIGH,1),1,IF(BARSLAST(立桩量)=2 AND CLOSE>REF(HIGH,2),1,IF(BARSLAST(立桩量)=3 AND CLOSE>REF(HIGH,3),1,0)));   
立桩量三日不破:=BARSLAST(立桩量)=3 AND REF(LOW,3)<=MIN(MIN(C,REF(C,1)),REF(C,2));   
BACKSET300:=BACKSET(立桩量三日不破,4);   
BACKSET301:=BACKSET(立桩量三日突破,4);   
立桩量成立:=FILTER(BACKSET300,3) AND BACKSET301 AND 立桩量;   
DRAWTEXT(立桩量成立,HIGH*1.01,'↙立桩量'),COLOR00FF00;   
DRAWTEXT(FILTER101,LOW*0.986,'↖黄金柱'),COLORYELLOW;   
STICKLINE(FILTER101,OPEN,CLOSE,0.5,0),COLORYELLOW;   
DRAWTEXT(FILTER102,LOW*0.986,'↖次黄金柱'),COLORYELLOW;   
DRAWTEXT(FILTER104,LOW*0.986,'↖将军柱'),COLORYELLOW;   
STICKLINE(FILTER104,OPEN,CLOSE,1.5,0),COLORYELLOW;   
K1:=SUMBARS(FILTER104,1);   
STICKLINE(K1,REF(L,K1-2),REF(L,K1-2),10,0),COLORYELLOW;   
K2:=SUMBARS(FILTER101,1);   
STICKLINE(K2,REF(L,K2-2),REF(L,K2-2),10,0),COLORYELLOW;
C12:=REF(C,1);
涨停:=IF((C-C12)*100/C12>=(10-0.01*100/C12),1,0);
跌停:=IF((C12-C)*100/C12>=(10-0.01*100/C12),1,0);
STICKLINE(涨停,OPEN,CLOSE,2,0),COLORYELLOW;
STICKLINE(跌停,OPEN,CLOSE,2,0),COLORGREEN;
现价LOYLINE(1,CONST(C)),COLORBB0077,LINETHICK1;
{ZIG(3,5);}
{百分比:=5};
{右数峰序:=2;}
波谷值: CONST(TROUGH(2,百分比,1)),NODRAW;{前M个ZIG转向波谷值}
波谷距离:= 1+CONST(TROUGHBARS(2,百分比,1)),NODRAW;{前M个ZIG转向波谷到当前距离}
{例如:TROUGH(2,5,2)表示%5最低价ZIG转向的前2个波谷到当前的周期数};
波峰值:= CONST(PEAK(1,百分比,右数峰序));
{例如EAK(1,5,1)表示%5最高价ZIG转向的上一个波峰的数值}
允许误差:=0.024;
XG:= ABS(波峰值-波谷值)<=允许误差 {AND BARSCOUNT(V)>60};
波峰距离:= 1+CONST(PEAKBARS(1,百分比,右数峰序)),NODRAW;
{PEAKBARS(K,N,M)表示之字转向ZIG(K,N)的前M个波峰到当前的周期数,M必须大于等于1}
距离:=CURRBARSCOUNT;
DRAWLINE(距离=波峰距离 AND XG,波谷值,距离=1,波谷值,1),COLORMAGENTA;
DRAWTEXT(距离=波谷距离 AND XG,L*0.98,' 精准峰谷线'),COLORYELLOW;
DRAWICON(距离=波峰距离,H*1.01,2);{波峰位置}
DRAWICON(距离=波谷距离,L*0.985,1);{波谷位置}
精准点:=(ABS(H-波谷值)<=允许误差 OR ABS(L-波谷值)<=0.024) {AND 距离<=120};
STICKLINE(精准点,波谷值,波谷值,3,1),COLORYELLOW;
波谷值2:= CONST(TROUGH(2,百分比,2));
波谷值3:= CONST(TROUGH(2,百分比,3));
波谷值4:= CONST(TROUGH(2,百分比,4));
波谷距离2:= 1+CONST(TROUGHBARS(2,百分比,2));
波谷距离3:= 1+CONST(TROUGHBARS(2,百分比,3));
波谷距离4:= 1+CONST(TROUGHBARS(2,百分比,4));
XG2:= ABS(波谷值-波谷值2)<=允许误差;
XG3:= ABS(波谷值-波谷值3)<=允许误差;
XG4:= ABS(波谷值-波谷值4)<=允许误差;
XGL:=(距离=波谷距离2 AND XG2) OR (距离=波谷距离3 ANDXG3)
OR (距离=波谷距离4 ANDXG4);
DRAWLINE(XGL,波谷值,距离=1,波谷值,1),COLORLIGREEN;
DRAWTEXT(XGL,L*0.98,' 精准谷底线'),COLORYELLOW;
N:=3;
L0:=0.00;{点位差参数}
{底精准线}
L1:=ABS(L-REF(L,1))<=L0;
L2:=ABS(L-REF(L,2))<=L0;
L3:=ABS(L-REF(L,3))<=L0;
L4:=ABS(L-REF(L,4))<=L0;
L5:=ABS(L-REF(L,5))<=L0;
精准线首次:=L1 OR L2 OR L3 OR L4 OR L5;
精准左:=FILTER(精准线首次,N) ;
天数:=BARSLAST(精准左);
LTS:=REF(L,天数);
精准右:=ABS(L-LTS)<=L0;
STICKLINE(精准左,L,L,50,1),COLORMAGENTA;
{顶精准线}
G1:=ABS(H-REF(H,1))<=L0;
G2:=ABS(H-REF(H,2))<=L0;
G3:=ABS(H-REF(H,3))<=L0;
G4:=ABS(H-REF(H,4))<=L0;
G5:=ABS(H-REF(H,5))<=L0;
精准线首次1:=G1 OR G2 OR G3 OR G4 OR G5;
精准左1:=FILTER(精准线首次1,N) ;
天数1:=BARSLAST(精准左1);
HTS:=REF(H,天数1);
精准右1:=ABS(H-HTS)<=L0;
STICKLINE(精准左1,H,H,50,-1),COLORCYAN;
VARA:=O;
VARB:=C;
VARC:=H;
VARD:=L;
AA:=REF(C,1)>REF(O,1) AND C>O AND C<=REF(C,1);
BB:=REF(C,1)<REF(O,1) AND C>O AND C<=REF(C,1);
STICKLINE(AA OR BB,O,C,1,0),COLORYELLOW;
M:=REF(C,1)>REF(O,1) AND C<O AND C>=REF(C,1);
M1:=REF(C,1)<REF(O,1) AND C<O AND C>=REF(C,1);
STICKLINE(M OR M1,O,C,1,0),COLORRED;

jdh2015 发表于 2017-12-17 21:35

学习,谢谢分享。

布衣天子 发表于 2017-12-27 21:52

感谢楼主的分享

ax0908 发表于 2018-1-12 21:55

感谢楼主分享

看过的 发表于 2018-5-15 11:41

谢谢分享辛苦了

wzaigz456 发表于 2018-6-14 14:09

Hhhhhhhhh

mpsv 发表于 2018-6-14 21:14

谢谢楼主分享

fjlph 发表于 2018-7-1 19:24

谢谢分享!!

我爱牛股 发表于 2018-7-22 10:35

谢谢楼主分享

道一非一 发表于 2018-7-22 16:38

真诚奉献通达信指标“夫为妻纲分时T+0”源码

小麦当当 发表于 2018-7-23 17:49

顶起来学习一下。

小麦当当 发表于 2018-7-23 18:44


谢谢分享辛苦了

无门问禅 发表于 2018-12-20 23:15


好好学习,谢谢分享。

无门问禅 发表于 2018-12-20 23:21


谢谢分享辛苦了
页: 9 10 11 12 13 14 15 16 17 18 [19] 20 21 22 23 24 25 26 27 28
查看完整版本: 真诚奉献通达信指标“夫为妻纲分时T+0”源码