万元叟
发表于 2016-10-12 14:37
谢谢楼主分享
大大陆大
发表于 2016-10-12 18:49
:):):):):)
DFZW16458402
发表于 2016-10-12 19:02
谢谢楼主分享
上大虎
发表于 2016-11-1 07:46
dddddddddd
上大虎
发表于 2016-12-12 15:11
dddddddddd
跌落于朝花夕拾
发表于 2016-12-12 18:24
谢谢楼主分享！向高手学习！
zhoujie202
发表于 2016-12-12 18:56
E13:EXPMA(C,13),COLORGREEN; M8:MA(C,8); M21:MA(C,21); M233:MA(C,233); E10:EXPMA(C,10),COLORRED; ZZT:=C/REF(C,1)>1.095 AND C=H; ZA:=BARSLASTCOUNT(ZZT); ZT:=BARSLAST(CROSS(ZA=3,0.5)); ZLL:=REF(L,(ZT+2)); ZTJ:=C<ZLL; ZAA:=COUNT(ZTJ,ZT+1)=1 AND ZTJ; ZTA:=BARSLAST(ZAA); ZLT:=BARSLAST(L=LLV(L,ZTA+1)); ZTJ1:=CROSS(C,E10); ZXG:=COUNT(ZTJ1,ZLT+1)=1 AND ZTJ1 AND TOTALBARSCOUNT>200; STICKLINE(ZXG,C,O,2,0),COLORYELLOW; DRAWTEXT(ZXG,L*0.95,'起轿'),COLORYELLOW; HA:=M8/M21*100; HTJ:=BARSLASTCOUNT(RANGE(HA,99.9,100.3)); HHB:=MAX(C,O)/MIN(C,O)*100-100; HTJ1:=BARSLASTCOUNT(HHB<2); HZF:=(HHV(H,5)-LLV(L,5))/LLV(L,5)*100; HDZF:=(H-L)/REF(C,1)*100; HTJ2:=COUNT(MIN(C,O)/L>1.03,5)=0; HTJ3:=COUNT(H<REF(L,1),5)=0; HTJ4:=C>M233; HXG:=HTJ>4 AND HTJ1>4 AND HZF<10 AND HTJ2 AND HTJ3 AND HTJ4; STICKLINE(CROSS(HXG,0.5),C,O,2,0),COLORLIMAGENTA; STICKLINE(CROSS(HXG,0.5),H,L,2,0),COLORLIMAGENTA; DRAWTEXT(CROSS(HXG,0.5),L*0.95,'绽放'),COLORYELLOW; ZF:=(C-REF(C,1))/REF(C,1)*100; TJ:=EVERY(RANGE(ZF,-2.22,2.55),15); TJ1:=C>O AND C/REF(C,1)>1.03; TJ2:=COUNT(E13>=REF(E13,1),15); JD:=(ATAN((E13/REF(E13,15)-1)*100)*180/3.1415926); A:=IF(MIN(C,O)>E13,MAX(C,O)/E13*100-100,IF(MAX(C,O)<E13,E13/MIN(C,O),E13)); B:=MAX(C,O)/MIN(C,O)*100-100; LL:=LLV(A,15); HH:=HHV(A,15); HB:=COUNT(BB>3,15)<2; XG:=REF(TJ,1) AND TJ1 AND TJ2>13 AND JD>72 AND REF(LL,1)<1.37 AND REF(HH,1)<11.15; STICKLINE(XG,C,O,2,0),COLORGREEN; DRAWTEXT(XG,L*0.95,'上树'),COLORYELLOW; WT:=BARSLAST(WEEKOFYEAR!=REF(WEEKOFYEAR,1)); C1:=REF(C,WT+1); C2:=REF(C1,WT+1); C3:=REF(C2,WT+1); C4:=REF(C3,WT+1); C5:=REF(C4,WT+1); C6:=REF(C5,WT+1); C7:=REF(C6,WT+1); C8:=REF(C7,WT+1); C9:=REF(C8,WT+1); WM10:=(C+C1+C2+C3+C4+C5+C6+C7+C8+C9)/10; E20:=EXPMA(C,20); E120:=EXPMA(C,120); E250:=EXPMA(C,250); WA:=MACD.DIF; WB:=MACD.DEA; WT1:=BARSLAST(CROSS(WA,WB)); WST:=BARSLAST(CROSS(WB,WA)); WZF:=(HHV(H,110)-LLV(L,110))/LLV(L,110)*100; WTJ:=EVERY(V>REF(V,1),2); WHH:=MAX(MAX(E20,E120),E250); WLL:=MIN(MIN(E20,E120),E250); WNH:=WHH/WLL*100-100; WTJ1:=EVERY(WNH<40,25); WZZF:=(C-REF(C,10))/REF(C,10)*100 ; WTJA:=C>WM10; WXG:=WT1=0 AND WA<REF(WA,WST) AND WB<REF(WB,WST) AND WZF<70 AND WTJ AND WTJ1 AND WZZF<1.4 AND WTJA; STICKLINE(WXG,C,O,2,0),COLORYELLOW; STICKLINE(WXG,H,L,0,0),COLORYELLOW; DRAWTEXT(WXG,H*1.02,'周线走好'),COLORYELLOW; M5:=MA(C,5); M10:=MA(C,10); M15:=MA(C,15); FTJ:=M5>REF(M5,1) AND M10>REF(M10,1) AND M15>=REF(M15,10); FT:=BARSLAST(CROSS(FTJ,0.5)); FTT:=BARSLAST(WEEKOFYEAR!=REF(WEEKOFYEAR,1)); FHH:=MAX(MAX(M5,M10),M15); FLL:=MIN(MIN(M5,M10),M15); FNH:=FHH/FLL*100-100; FZZF:=(C-REF(C,FTT+1))/REF(C,FTT+1)*100; FZZF1:=REF(FZZF,FTT+1); FTJ2:=CROSS(FZZF>20,0.5) OR CROSS(FZZF1>20,0.5); FJD:=(ATAN((M5/REF(M5,1)-1)*100)*180/3.1415926); FTJA:=FZZF1>0 AND FZZF1>0 ; FDT:=M10/M15*100-100>1 AND H/MAX(C,O)<1.03; FBL:=MIN(C,O)/M5; FBL5:=M5/M10*100-100; FXG:=FTJ2 AND C=HHV(C,5) AND BETWEEN(FT,0,5)AND FTJA AND FNH<12 AND FDT AND FBL<1.045 AND FBL5<7.2 AND FJD<77.5; STICKLINE(CROSS(FXG,0.5),C,O,1.8,0),COLORMAGENTA; STICKLINE(CROSS(FXG,0.5),H,L,0,0),COLORMAGENTA; DRAWTEXT(CROSS(FXG,0.5),L*0.98,'周线翻红'),COLORYELLOW; DTJ:=O>REF(H,1) AND C<O AND O/C<C/L AND V>REF(V,1); DTT:=BARSLAST(REF(ZA>1,1) AND DTJ); DXG:=COUNT(CROSS(C,REF(H,DTT)),DTT+1)=1 AND CROSS(C,REF(H,DTT)); STICKLINE(DTT>=0,REF(H,DTT),REF(H,DTT),6,0),COLORRED; DRAWTEXT(DTT=0,REF(H,DTT)*1.02,'清茶'),COLORYELLOW; DRAWICON(DXG,L*0.95,7); QT:=BARSLAST(C>REF(C,1)*1.095 AND C=H); QTJ:=(C-REF(C,QT+1))/REF(C,QT+1)*100; QTJ1:=EVERY(C<O,QT); QTJ2:=COUNT(REF(C,1)/C>1.09,QT)>0 AND REF(C,1)/C>1.09; QA:=QTJ>-1 AND QTJ1 AND QTJ2; QTA:=BARSLAST(QA); QHH:=REF(H,QTA); QTJ3:=EVERY(MAX(C,O)<QHH,QTA); QTJ4:=MIN(C,O)<QHH AND MAX(C,O)>QHH AND COUNT(MIN(C,O)<QHH AND MAX(C,O)>QHH,QTA)=1; QTJ5:=REF(QTJ3,1) AND QTA<69 AND IF(C<O,O/QHH>1.007,C>O) AND IF(C<O,REF(C,1)/C<1.06,C>O);QXG:=QTJ4 AND QTJ5; STICKLINE(QTA>=0,REF(H,QTA),REF(H,QTA),6,0),COLORBLUE; DRAWICON(QXG=1,L*0.95,1); DRAWTEXT(QTA=0,H*1.02,STRCAT(STRCAT('阴线最高价:',VAR2STR(REF(H,QTA),2)),'元'))COLORYELLOW; DIF:=MACD.DIF; H300:=HHVBARS(DIF,300); IA:=BOLL.UB; IT:=BARSLAST(CROSS(IA>=REF(IA,1),0.5)); E25:=EXPMA(C,25); IZF:=EVERY(RANGE(C/REF(C,1),0.97,1.05),IT+1); IZFF:=(HHV(H,IT+1)-LLV(L,IT+1))/LLV(L,IT+1)*100; ITJ:=EVERY(MAX(C,O)/IA<1.02 ,IT+1); IXL:=(ATAN((E25/REF(E25,IT)-1)*100)*180/3.1415926); ITJ1:=CROSS(DIF>=REF(DIF,H300),0.5) AND IZFF<17 AND IZF AND ITJ; ITJ2:=MIN(C,O)/E25>1.04; IXG:=ITJ1 AND IXL>75; STICKLINE(IXG,C,O,2,0),COLORLIRED; STICKLINE(IXG,H,L,0,0),COLORLIRED; DRAWICON(IXG,H*1.01,15); LT8:=LLVBARS(L,60); LTT8:=BARSLAST(CURRBARSCOUNT=CONST(LT8)+1); HT8:=FINDHIGHBARS(H,LT8+1,60,1); A8:DRAWLINE(CURRBARSCOUNT=CONST(HT8)+1,H,ISLASTBAR,REF(H,HT8),0),COLORYELLOW,LINETHICK2; TT8:=BARSLAST(CURRBARSCOUNT=CONST(HT8)+1); AA8:=CROSS(C,CONST(A8)); TJ8:=COUNT(AA8,TT8+1)=1 AND AA8; TJ18:=COUNT(V<MA(V,277),TT8+1) ; BL8:=TJ18/(TT8+1)*100; XG8:=TJ8 AND TT8>40 AND BL8>70; XGT8:=BARSLAST(CURRBARSCOUNT=CONST(BARSLAST(XG8))+1); ZH8:=REF(H,TT8); YL8:=REF(L,LTT8); XC8:=REF(C,XGT8); YZ8:=(XC8-YL8)/YL8*100; ZBL8:=YZ8/REF(LTT8,XGT8); XGA8:=XG8 AND ZBL8<2.95; DRAWLINE(TT8=0,H,LTT8=0,L,0),COLORRED; DRAWLINE(LTT8=0,L,XGT8=0,L,0),COLORRED; DRAWICON(XGA8,L*0.95,9); SNH:=E120/E250*100-100; STA:=EVERY(SNH<3 AND E120>E250,20); STB:=CROSS(E20,MAX(E120,E250)); STC:=MIN(C,O)/E20<1.08; SXG:=STB AND STA AND STC;STICKLINE(SXG,C,O,2,0),COLORLIMAGENTA; DRAWICON(SXG,L*0.95,15); 顶:=MAX(C,O);底:=MIN(C,O); 峰:=顶=REFX(HHV(顶,5),2); 谷:=底=REFX(LLV(底,5),2);超跌:=C/HHV(顶,20)<0.7; 刹车:=谷 AND 超跌; DRAWTEXT(刹车,2*L-顶,'刹车'),COLORGREEN; 凹间峰:=COUNT(刹车,8)>0 AND 峰; DRAWTEXT(凹间峰,2*H-底,'凹间峰'),COLORYELLOW; 凹间峰顶:=REF(顶,BARSLAST(凹间峰)); 换档:=COUNT(凹间峰,8)>0 AND 谷; DRAWTEXT(换档,2*L-H,'换档'),COLORRED; 上车:=COUNT(换档,8)>0 AND COUNT(C>凹间峰顶,BARSLAST(凹间峰))=1; DRAWTEXT(上车,凹间峰顶,'上车'),COLORBLUE; DRAWNUMBER(COUNT(凹间峰,2)=1 AND COUNT(凹间峰,1)=0,凹间峰顶,凹间峰顶),COLORBLUE; DRAWTEXT(C<凹间峰顶 AND COUNT(C>凹间峰顶,BARSLAST(凹间峰))<1,凹间峰顶,'---'),COLORYELLOW; {M(88,1,300),N1(6,1,100);} VAR0A:=EMA(EMA(EMA(CLOSE,2),2),2); MA13:(MA(VAR0A,13)*0.99); (MA(VAR0A,13)*0.999); TLAMSENR:=MAX(MAX((HIGH-LOW),ABS((REF(CLOSE,1)-HIGH))),ABS((REF(CLOSE,1)-LOW))); ATR:=MA(TLAMSENR,13); VAR1A:=(REF(CLOSE,1)-REF(ATR,1)); 生命线:(HHV(VAR1A,12)),LINETHICK3,COLOR0080FF; VAR1B:=EMA(AMOUNT/VOL/100,3); 控盘成本:EMA(VAR1B,M),LINETHICK1; 低吸伏击:EMA(VAR1B,M)*0.85,LINETHICK1,COLORFFFF00; 走势铁底:低吸伏击*0.87,LINETHICK1,COLORFF00FF; VAR2A:=LOW<=走势铁底 AND CLOSE>REF(CLOSE,1)*1.02;DRAWICON(FILTER(VAR2A,N1),L,5); HIGHN:=10;LOWN:=10;HIGHDISPLAY:=0;LOWDISPLAY:=0;ZGDISPLAY:=0;MADISPLAY:=0; AA:=REF(H,HIGHN)=HHV(H,2*HIGHN+1); QY:=BACKSET(AA,HIGHN+1); CC:=FILTER(QY,HIGHN) AND H=HHV(H,HIGHN+1); DRAWICON(CC,H*1.02,2); DDD:=BARSLAST(CC); GDTS:=IF(CC,CURRBARSCOUNT,0); DINGBU:=IF(DDD,REF(H,DDD),H);{顶部} DINGBUTS:=IF(DDD,REF(GDTS,DDD),GDTS); DINGBU1:=REF(DINGBU,DDD+1); GDCS1:=CONST(DINGBUTS); DINGBUTS1:=REF(DINGBUTS,DDD+1); GDCS2:=CONST(DINGBUTS1); DINGBU2:=REF(DINGBU1,DDD+1); MM:=IF(CURRBARSCOUNT>GDCS2,0,1); 高点压力:DRAWLINE(CURRBARSCOUNT=GDCS2,H,CURRBARSCOUNT=GDCS1,H,1) COLORGREEN,LINETHICK2; DRAWLINE(CURRBARSCOUNT=GDCS2,H,ISLASTBAR,REF(H,GDCS2-1),1),COLOR0055FF,POINTDOT; DRAWLINE(CURRBARSCOUNT=GDCS1,H,ISLASTBAR,REF(H,GDCS1-1),1),COLORYELLOW,POINTDOT; AA1:=REF(L,LOWN)=LLV(L,2*LOWN+1); QY1:=BACKSET(AA1,LOWN+1); CC1:=FILTER(QY1,LOWN) AND L=LLV(L,LOWN+1); DRAWICON(CC1,L*0.98,1); DD1:=BARSLAST(CC1); DDTS:=IF(CC1,CURRBARSCOUNT,0); YDB:=IF(DD1,REF(L,DD1),L); DDTS1:=IF(DD1,REF(DDTS,DD1),DDTS); DDCS1:=CONST(DDTS1); ZDB:=REF(YDB,DD1+1); DDTS2:=REF(DDTS1,DD1+1); DDCS2:=CONST(DDTS2); 低点支撑:DRAWLINE(CURRBARSCOUNT=DDCS2,L,CURRBARSCOUNT=DDCS1,L,1) COLORRED,LINETHICK2; ZGSTAR:=(高点压力+低点支撑)/2; ZGEND:=CONST((高点压力+低点支撑)/2); STARDAY:=IF(DDCS2<GDCS2,DDCS2,GDCS2); 中轨:DRAWLINE(CURRBARSCOUNT=STARDAY,ZGSTAR,ISLASTBAR,ZGEND,1),COLORFF55BB,LINETHICK2; DRAWLINE(CURRBARSCOUNT=DDCS1,L,ISLASTBAR,REF(L,DDCS1-1),1),COLORMAGENTA,POINTDOT,; DRAWLINE(CURRBARSCOUNT=DDCS2,L,ISLASTBAR,REF(L,DDCS2-1),1),COLORCYAN,POINTDOT; 三一位:O-(O-C)/3,NODRAW; 中线位:(O+C)/2,NODRAW; 三二位:O-2*(O-C)/3,NODRAW; STICKLINE((O+C)/2,(O+C)/2,(O+C)/2,3,0),COLORYELLOW; TY:=CLOSE;A1:=REF(TY,10)=HHV(TY,2*10+1);B1:=FILTER(A1,10); C10:=BACKSET(B1,10+1);HD:=FILTER(C1,10);A2:=REF(TY,10)=LLV(TY,2*10+1);B2:=FILTER(A2,10); C20:=BACKSET(B2,10+1);LD:=FILTER(C2,10); 前期高位:REF(HIGH,BARSLAST(HD)),COLOR00FF00,POINTDOT; 前期低位:REF(LOW,BARSLAST(LD)),COLORFF00FF,POINTDOT; STICKLINE(CLOSE,前期高位,前期高位,10,0),COLOR00FF00; STICKLINE(CLOSE,前期低位,前期低位,10,0),COLORFF00FF; MA1:MA(CLOSE,5); MA2:MA(CLOSE,10); MA3:MA(CLOSE,30); MA4:MA(CLOSE,60); 日时转换:=IF(PERIOD=5,120,240); QZS:=(EMA(CLOSE,10)+EMA(CLOSE,32))/2; M1:=(EMA(CLOSE,30)+EMA(CLOSE,72))/2; VAR2:=(EMA(VOL,10)+EMA(VOL,32))/2; VAR3:=(MA1+VAR2)/2; VAR4:=EMA(VAR3,30); VAR5:=EMA(VAR3,60); VAR6:=EVERY(MA1>REF(MA1,1),5) AND EVERY(VAR4>REF(VAR4,1),5); VL:=REF(LOW,1); VAR12:=(SMA(ABS(LOW-VL),7,1))/(SMA(MAX(LOW-VL,0),7,1))*100; VAR14:=MA(VAR12,7); VAR15:=LLV(LOW,15); VAR18:=EMA(IF(LOW<=VAR15,VAR14,0),3); VAR110:=SMA(SMA((CLOSE-LLV(LOW,21))/(HHV(HIGH,21)-LLV(LOW,21))*100,7,1),5,1); VAR111:=SMA((CLOSE-LLV(LOW,21))/(HHV(HIGH,21)-LLV(LOW,21))*100,7,1)*16.18-VAR110*10.9; T:=FILTER(IF(VAR111<=VAR110 AND VAR18>REF(VAR18,1),VAR18*8,0),7); DRAWTEXT(T,LOW-0.928,'←洗盘结束'); N1:=7; LC:=REF(CLOSE,1); X:=SMA(MAX(CLOSE-LC,0),N1,1)/SMA(ABS(CLOSE-LC),N1,1)*100,COLORYELLOW,LINETHICK1; 魔鬼:=DRAWLINE(X>=HHV(X,N1),X,X<=LLV(X,N1),X,1),COLOR00FF00; 魔王:=DRAWLINE(X>=HHV(X,N1),X,X<=LLV(X,N1),1,X),COLOR00FF00; TJ01:=X=魔王; TJ11:=X=魔鬼; TJ21:=X<REF(X,1); TJ31:=X>REF(1,X); JRS1:=DRAWICON(TJ11 AND TJ21,X,1); JRS2:=DRAWICON(TJ01 AND TJ31,X,2); DRAWICON(FILTER(JRS1>0,1),L*0.97,1); DRAWICON(FILTER(JRS2>0,1),H*1.02,2); 底区价:=EMA((2*CLOSE+HIGH+LOW)/4,250)*0.728,NODRAW; DRAWTEXT(T,LOW-0.2,'|'),COLORFF00FF; VAR21:=(CLOSE-LLV(LOW,15))/(HHV(HIGH,15)-LLV(LOW,15))*100; VAR22:=SMA(VAR21,2,1); VAR23:=SMA(VAR22,2,1); VAR24:=SMA(VAR23,2,1); VAR25:=CROSS(VAR23,VAR24) AND VAR23<20; DRAWTEXT(FILTER(VAR25,2)=1,LOW-0.4,'←抄底'),COLORRED; DRAWTEXT(FILTER(VAR25,2)=1,LOW-0.2,'1'),COLORRED; VAR29:=CROSS(VAR24,VAR23) AND VAR23>80; DRAWTEXT(FILTER(VAR29,2)=1,HIGH+0.4,'←逃顶'),COLORBLUE; DRAWTEXT(FILTER(VAR29,2)=1,HIGH+0.2,'快'),COLORBLUE;
联想之理想
发表于 2016-12-12 19:01
谢谢楼主分享！
王缘
发表于 2016-12-12 19:32
#在这里快速回复#当前公式 : 洗盘结束 (指标画线公式) 错误句 :A8RAWLINE(CURRBARSCOUNT=CONST(HT8)+1,H,ISLASTBAR,REF(H,HT8),0),COLORYELLOW,LINETHICK2详细信息 : 您在括号前写的不是函数、公式等， 且缺少必要的运算符!错误起始位置 : 4604 ; 长度: 12
王缘
发表于 2016-12-12 19:35
楼主给出的程序错误太多，根本无法运行。
risk
发表于 2017-9-14 10:51
感谢楼主分享！辛苦了！
五线顺上随缘
发表于 2017-9-14 15:21
谢谢楼主分享！
jnhyczy
发表于 2017-9-24 14:43
jnhyczy
发表于 2017-9-24 14:47
jnhyczy
发表于 2017-9-24 15:05