(已解决 @芒果在中国 老师)请老师编辑!!!!!!
[通达信] 3912
VAR1:=1; VAR2:=1/WINNER(CLOSE); VAR3:=MA(CLOSE,13); VAR4:=100-ABS((CLOSE-VAR3)/VAR3*100); VAR5:=LLV(LOW,75); VAR6:=HHV(HIGH,75); VAR7:=(VAR6-VAR5)/100; VAR8:=SMA((CLOSE-VAR5)/VAR7,20,1); VAR9:=SMA((OPEN-VAR5)/VAR7,20,1); VARA:=3*VAR8-2*SMA(VAR8,15,1); VARB:=3*VAR9-2*SMA(VAR9,15,1); VARC:=100-VARB; 新庄: (100-IF(VAR2>5,IF(VAR2<100,VAR2,VAR4-10),0))*VAR1,COLORGREEN,LINETHICK2,POINTDOT ; VARE:=REF(LOW,1)*0.9; VARF:=LOW*0.9; VAR10:=(VARF*VOL+VARE*(CAPITAL-VOL))/CAPITAL; VAR11:=EMA(VAR10,30); VAR12:=CLOSE-REF(CLOSE,1); VAR13:=MAX(VAR12,0); VAR14:=ABS(VAR12); VAR15:=SMA(VAR13,7,1)/SMA(VAR14,7,1)*100; VAR16:=SMA(VAR13,13,1)/SMA(VAR14,13,1)*100; VAR17:=BARSCOUNT(CLOSE); VAR18:=SMA(MAX(VAR12,0),6,1)/SMA(ABS(VAR12),6,1)*100; VAR19:=(-200)*(HHV(HIGH,60)-CLOSE)/(HHV(HIGH,60)-LLV(LOW,60))+100; VAR1A:=(CLOSE-LLV(LOW,15))/(HHV(HIGH,15)-LLV(LOW,15))*100; VAR1B:=SMA((SMA(VAR1A,4,1)-50)*2,3,1); VAR1C:=(INDEXC-LLV(INDEXL,14))/(HHV(INDEXH,14)-LLV(INDEXL,14))*100; VAR1D:=SMA(VAR1C,4,1); VAR1E:=SMA(VAR1D,3,1); VAR1F:=(HHV(HIGH,30)-CLOSE)/CLOSE*100; VAR20:=VAR18<=25 AND VAR19<-95 AND VAR1F>20 AND VAR1B<-30 AND VAR1E<30 AND VAR11-CLOSE>=-0.25 AND VAR15<22 AND VAR16<28 AND VAR17>50; STICKLINE(1,新庄,100,1,0),COLORGREEN; STICKLINE(VAR20,0,80,5,0),COLORRED,LINETHICK3 ; 100,COLORGREEN ,LINETHICK2 ; 0,COLORYELLOW ,LINETHICK2 ; 封单额万:IF(C>=ZTPRICE(REF(C,1),0.1),DYNAINFO(58)*C/100,IF(C<=DTPRICE(REF(C,1),0.1),DYNAINFO(59)*C/100,DRAWNULL)),NODRAW; 主力资金:=((100)*(EMA(EMA(MTM,6),6)))/(EMA(EMA(ABS(MTM),6),6)),COLORRED,LINETHICK2; 移动筹码:=((100)*(EMA(EMA(MTM,26),26)))/(EMA(EMA(ABS(MTM),26),26)),COLORYELLOW,LINETHICK2; 游资:=((100)*(EMA(EMA(MTM,12),12)))/(EMA(EMA(ABS(MTM),12),12)),COLORMAGENTA,LINETHICK2; 散户:=(HHV(HIGH,24)-CLOSE)/(HHV(HIGH,24)-LLV(LOW,24))*100,COLORGREEN,LINETHICK2; 零轴线:0,COLORGRAY,DOTLINE,LINETHICK1; 十天主力持仓:10*WINNER(CLOSE*0.9)*8, COLORCYAN,DOTLINE; DJ:=主力资金>=散户 AND 移动筹码>=散户 AND 游资>=散户 AND 十天主力持仓>=40; DRAWICON(DJ,-5,0); N:=12; M:=26; DIF:(EMA(CLOSE,12)-EMA(CLOSE,26))*200; DEA:EMA(DIF,9); MACD:(DIF-DEA)*2,COLORSTICK; OBV:=DIF; P:=5; A1:=REF(OBV,P)=HHV(OBV,2*P+1);{A1赋值:P日前的OBV=2*P+1日内OBV的最高值} B1:=FILTER(A1,P);{A1的P日过滤} C1:=BACKSET(B1,P+1);{若B1则将最近P+1周期置为1} D1:=FILTER(C1,P);{高点,C1的P日过滤} A2:=REF(OBV,P)=LLV(OBV,2*P+1); B2:=FILTER(A2,P); C2:=BACKSET(B2,P+1); D2:=FILTER(C2,P);{低点} 上:REF(OBV,BARSLAST(D1)),COLORRED,NODRAW; 下:REF(OBV,BARSLAST(D2)),COLORYELLOW,NODRAW; R11:=BACKSET(ISLASTBAR,BARSLAST(D1)+1); S11:=R11>REF(R11,1); DRAWLINE(D1,OBV,S11,OBV,0),COLORYELLOW; {当满足条件D1时,在OBV位置画直线起点, 当满足条件S11时,在OBV位置画直线终点,1表示是否延长.,画黄色} T11:=BACKSET(ISLASTBAR,BARSLAST(D2)+1); U11:=T11>REF(T11,1); DRAWLINE(D2,OBV,U11,OBV,0),COLORRED; {以下是金X提示} DIFF1:=EMA(CLOSE,12)-EMA(CLOSE,27); DEA1:=EMA(DIFF1,9); 强度:IF(DIFF1>=DEA1,DIFF1,DRAWNULL),COLORRED; 金叉:=CROSS(DIFF1,DEA1) AND DIFF1<-0.1; JCCOUNT:=COUNT(CROSS(DIFF1,DEA1),BARSLAST(DEA1>=0)); 二金:=CROSS(DIFF1,DEA1) AND DEA1<0 AND COUNT(JCCOUNT=2,21)=1; DRAWICON(二金,DEA1*1.04,13) ; AB1:=BARSLAST(REF(CROSS(DIFF1,DEA1),1)); 底背离:=REF(CLOSE,AB1+1)>CLOSE AND DIFF1>REF(DIFF1,AB1+1) AND CROSS(DIFF1,DEA1); 底背:DRAWLINE(AB1=0,DEA1,底背离,DEA1,0),COLORRED,POINTDOT; AB2:=BARSLAST(REF(CROSS(DEA1,DIFF1),1)); 顶背离:=REF(CLOSE,AB2+1)<CLOSE AND REF(DIFF1,A2+1)>DIFF1 AND CROSS(DEA1,DIFF1); 顶背:DRAWLINE(AB2=0,DEA1,顶背离,DEA1,0),COLORGREEN,POINTDOT; KK:=IF(C>=O AND (C>=REF(C,1) OR REF(C,1)>=REF(O,1)),1,IF(C<O AND (C<REF(O,1) OR REF(C,1)<REF(O,1)),-1,0)); 红K1:=KK=1 AND C>=O; 红K2:=KK=1 AND C<O; 红K3:=KK=0 AND C>=O; 红K:=红K1 OR 红K2 OR 红K3; DIFF:=(EMA(C,26)-EMA(C,52)); {MACD日线底背离和顶背离的自动画线(未来函数)} DA1:=BARSLAST(REF(CROSS(DIF,DEA),1)); D底背离:=REF(CLOSE,DA1+1)>CLOSE AND DIF>REF(DIF,DA1+1) AND CROSS(DIF,DEA); 底背画线:DRAWLINE(DA1=0,DEA,D底背离,DEA,0),COLORWHITE,DOTLINE; DA2:=BARSLAST(REF(CROSS(DEA,DIF),1)); D顶背离:=REF(CLOSE,DA2+1)<CLOSE AND REF(DIF,DA2+1)>DIF AND CROSS(DEA,DIF); 顶背画线:DRAWLINE(DA2=0,DEA,顶背离,DEA,0),COLORLIGREEN,DOTLINE; {----------------------} W1:STICKLINE(MACD>0,MACD,0,3,1),COLORRED; W2:STICKLINE(MACD<0,MACD,0,3,1),COLORCYAN; VA1:=HHVBARS(MACD,BARSLAST(MACD<0)+1); VA2:=CROSS(BACKSET(CROSS(0,MACD),REF(VA1,1)+2),0.5); QG:=CROSS(BACKSET(CROSS(0,MACD) OR (ISLASTBAR AND MACD>0),REF(VA1,1)+2),0.5); 前高:DRAWLINE(VA2,MACD,REF(VA2,1),REF(MACD,1),1),COLORMAGENTA; VA3:=LLVBARS(MACD,BARSLAST(MACD>0)+1); VA4:=CROSS(BACKSET(CROSS(MACD,0),REF(VA3,1)+2),0.5); BD:=BARSLAST(FILTERX(CROSS(0,MACD),BARSCOUNT(C))); 前低:DRAWLINE(VA4,MACD,REF(VA4,1),REF(MACD,1),1); BDTJ:=IF(MACD<0,FILTERX(MACD=LLV(MACD,BARSLAST(MACD>0)), BARSCOUNT(C)),DRAWNULL); TSBDTJ:=BARSLAST(BDTJ); BDZH:=FILTERX(MACD<CONST(LLV(MACD,BD+1)),BARSCOUNT(C)); BDTS:=BARSLAST(BDZH); 本低:IF(BD+1>=1,CONST(LLV(MACD,BD+1)),DRAWNULL); BDCL:=CROSS(COUNT(CROSS(MACD>本低/2 AND MACD<0,0.5),TSBDTJ)=1,0.5) AND TSBDTJ>=0; 终点:=IF(ISLASTBAR AND MACD>0 AND MACD=HHV(MACD,BARSLAST(MACD<0)),1, IF(FILTERX(QG,BARSCOUNT(C)),2,DRAWNULL)); UU:=(终点=1 OR 终点=2) AND MACD>0; ZZ:=FILTERX(UU,BARSCOUNT(C)); 本高:DRAWLINE(ZZ,MACD,REF(ZZ,1),REF(MACD,1),1),COLORWHITE; 横线:=CONST(REF(MACD,BARSLAST(ZZ))); WW:=MACD>横线; 起始点:=FILTERX(REFX(BARSLAST(WW),1)=1,BARSCOUNT(C)); 天数:BARSLAST(起始点),COLORYELLOW,NODRAW; 上横线:DRAWLINE(起始点,横线,ZZ,横线,0),COLORGREEN,DOTLINE; 下横线:DRAWLINE(BDZH,CONST(LLV(MACD,BD+1)),BDTJ=1,MACD,0),COLOR8080FF,DOTLINE; TJ:=IF(起始点,BARSNEXT(ZZ),DRAWNULL); 红柱数量:IF(天数>0 AND 天数<=REF(TJ,天数),SUM(MACD>0,天数),DRAWNULL),COLORWHITE,NODRAW; 横线起始价:REF(C,天数),NODRAW; 空间评估:(横线起始价-C)/C*100,NODRAW; TT:=BARSLAST(ZZ); WQG:=CROSS(COUNT(CROSS(MACD<本高/2 AND MACD>0,0.5),ZZ)=1,0.5) AND ZZ>=0; STICKLINE(MACD>前高 AND 本高>前高 AND BARSLAST(CROSS(MACD<本高/2,0.5))>0 AND MACD>(前高+本高)/2,MACD,前高,1,0),COLORYELLOW; 前高本高二分位:IF(MACD>0 AND 本高!=前高,DRAWLINE(WQG,(前高+本高)/2,REF(WQG,1),REF((前高+本高)/2,1),1) ,DRAWNULL),COLORC0C000,DOTLINE; AA:=STRCAT(STRCAT(STRCAT('〖','上升空间'),'〗'),CON2STR(IF(空间评估,空间评估, DRAWNULL),2)); STICKLINE(MACD>前高,MACD,前高,1,0),COLORYELLOW; STICKLINE(WQG,MACD,0,1,0),COLORGREEN; STICKLINE(MACD<0 AND MACD<前低 AND 前低<0,MACD,前低,1,0),COLORBLUE; B21:=IF(CROSS(MACD<0,0.5),BARSNEXT(BDTJ),DRAWNULL); TSB1:=BARSLAST(MACD>0)-1; STICKLINE(BARSLAST(BDCL)>=0 AND MACD<前低 AND MACD<0,MACD,前低,1,0),COLORGREEN; STICKLINE(BDCL,MACD,0,1,0),COLORWHITE; STICKLINE(MACD>前高 AND 本高>前高 AND BARSLAST(WQG)>0, MACD,前高,1,0),COLORRED; IF(BARSLAST(BDCL)>=0,本低/2,DRAWNULL),COLORRED,DOTLINE; STICKLINE(VAR5>REF(VAR5,1) AND MACD>=0,MACD/2,0,3,0 ),COLORRED; STICKLINE(VAR5>REF(VAR5,1) AND MACD<0,-MACD/2,0,3,0 ),COLORRED; STICKLINE(VAR5<REF(VAR5,1)AND MACD>=0,MACD/2,0,0,-1),COLORGREEN; STICKLINE(VAR5<REF(VAR5,1)AND MACD<0,-MACD/2,0,0,-1),COLORGREEN; VAR21:=SMA(ABS(HIGH-VAR1),13,1)/SMA(MIN(HIGH-VAR1,0),10,1); VAR31:=EMA(VAR21,10); VAR41:=HHV(HIGH,33); VAR51:=EMA(IF(HIGH>=VAR41,VAR31,0),3); STICKLINE(VAR51>REF(VAR51,1) AND MACD>=0,MACD/2,0,0,-1),COLORWHITE; STICKLINE(VAR51>REF(VAR51,1) AND MACD<0,-MACD/2,0,0,-1),COLORWHITE; STICKLINE(VAR51<REF(VAR51,1) AND MACD>=0,MACD/2,0,3,0),COLORYELLOW; STICKLINE(VAR51<REF(VAR51,1) AND MACD<0,-MACD/2,0,3,0),COLORYELLOW; XA_1:=EMA(VOL,13); XA_2:=EMA(AMOUNT,13); XA_3:=XA_2/XA_1/100; XA_4:=(CLOSE-XA_3)/XA_3*100; XA_5:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100; XA_6:=LLV(OPEN,30); XA_7:=SMA(XA_5,3,1); XA_8:=SMA(XA_7,3,1); XA_9:=3*XA_7-2*XA_8; XA_10:=MA(LOW,20)*1.08; STICKLINE(XA_9>=XA_8 AND CLOSE>=XA_10,0,2,3,0),COLORMAGENTA; [ 本帖最后由 雨夜听潮 于 2018-8-25 09:57 编辑 ] |
附件
延展阅读
楼主 |
2楼 |