| 量能支撑平台: input:n(30); TTJ:=BARSLAST((VOL=HHV(VOL,N))); K0:=TTJ=0; K1:=SUMBARS(K0,1); K2:=SUMBARS(K0,2); K3:=SUMBARS(K0,3); K4:=SUMBARS(K0,4); K5:=SUMBARS(K0,5); K6:=SUMBARS(K0,6); K7:=SUMBARS(K0,7); K8:=SUMBARS(K0,8); K9:=SUMBARS(K0,9); K10:=SUMBARS(K0,10); C1:=REF(C,K1-1); AA:STICKLINE(K1<=30,REF(C,K1-1)*1.002,REF(C,K1-1),10,0),COLORYELLOW; BA:STICKLINE(K2<=30,REF(C,K2-1)*1.002,REF(C,K2-1),10,0),COLORWHITE; CA:STICKLINE(K3<=30,REF(C,K3-1)*1.002,REF(C,K3-1),10,0),COLORBLUE; DA:STICKLINE(K4<=30,REF(C,K4-1)*1.002,REF(C,K4-1),10,0),COLORBLUE; EA:STICKLINE(K5<=30,REF(C,K5-1)*1.002,REF(C,K5-1),10,0),COLORBLUE; FA:STICKLINE(K6<=30,REF(C,K6-1)*1.002,REF(C,K6-1),10,0),COLORBLUE; GA:STICKLINE(K7<=30,REF(C,K7-1)*1.002,REF(C,K7-1),10,0),COLORBLUE; HA:STICKLINE(K8<=30,REF(C,K8-1)*1.002,REF(C,K8-1),10,0),COLORBLUE; IA:STICKLINE(K9<=30,REF(C,K9-1)*1.002,REF(C,K9-1),10,0),COLORBLUE; JA:STICKLINE(K10<=30,REF(C,K10-1)*1.002,REF(C,K10-1),10,0),COLORBLUE; DRAWGBK(c,'7' ); Var3:=LLV(H,240); Var4:=100*(C-Var3)/Var3; Var5:=(C-LLV(L,528))/(HHV(H,528)-LLV(L,528))*100; Var6:=(C-LLV(C,530))/(HHV(C,530)-LLV(C,530))*100; Var7:=0; Var8:=MA(HHV(C-REF(C,1),0),34)/MA(ABS(C-REF(C,1)),7)*100; Var9:=MA(HHV(C-REF(C,1),0),13)/MA(ABS(C-REF(C,1)),13)*100; VarA:=BARSCOUNT(C); VarB:=Var8<20 AND Var9<23 AND VarA>35; VarC:=VarB AND COUNT(VarB,1)=1; VarD:=EMA(C,21)-EMA(C,8); VarE:=EMA(VarD,5); VarF:=TROUGH(3,6,1)<4 AND CROSS(VarD,VarE); Var10:=IF(TROUGH(3,16,1)=0 AND H>L+0.04,4,0); Var11:=ZIG(3,6)>REF(ZIG(3,6),1) AND REF(ZIG(3,6),1)<=REF(ZIG(3,6),2) AND REF(ZIG(3,6),2)<=REF(ZIG(3,6),3); Var12:=ZIG(3,6)<REF(ZIG(3,6),1)AND REF(ZIG(3,6),1)>=REF(ZIG(3,6),2) AND REF(ZIG(3,6),2)>=REF(ZIG(3,6),3); Var13:=ZIG(3,22)>REF(ZIG(3,22),1)AND REF(ZIG(3,22),1)<=REF(ZIG(3,22),2)AND REF(ZIG(3,22),2)<=REF(ZIG(3,22),3); Var14:=ZIG(3,22)<REF(ZIG(3,22),1)AND REF(ZIG(3,22),1)>=REF(ZIG(3,22),2)AND REF(ZIG(3,22),2)>=REF(ZIG(3,22),3); Var15:=ZIG(3,51)>REF(ZIG(3,51),1)AND REF(ZIG(3,51),1)<=REF(ZIG(3,51),2) AND REF(ZIG(3,51),2)<=REF(ZIG(3,51),3); Var16:=ZIG(3,51)<REF(ZIG(3,51),1)AND REF(ZIG(3,51),1)>=REF(ZIG(3,51),2)AND REF(ZIG(3,51),2)>=REF(ZIG(3,51),3); Var17:=ZIG(3,72)>REF(ZIG(3,72),1) AND REF(ZIG(3,72),1)<=REF(ZIG(3,72),2)AND REF(ZIG(3,72),2)<=REF(ZIG(3,72),3); Var18:=ZIG(3,72)<REF(ZIG(3,72),1) AND REF(ZIG(3,72),1)>=REF(ZIG(3,72),2)AND REF(ZIG(3,72),2)>=REF(ZIG(3,72),3); Var19:=EMA(C,2)-EMA(C,150); Var1A:=EMA(Var19,100); Var1B:=2*(Var19-Var1A); Var1C:=POW(Var1B,3)*0.1+POW(Var1B,1); Var1D:=SQRT(SQRT(L*H*O*C)); Var1E:=EMA(Var1D*0.97,3); Var1F:=(H+L+C)/3; Var20:=(Var1F-MA(Var1F,14))/(0.015*AVEDEV(Var1F,14)); Var21:=CROSS(Var1E,L); 买点1:=Var10; 买点2:=(Var11+Var13+Var15+Var17); 卖点1:=(Var12+Var14+Var16+Var18); Var22:=买点1 AND VarF AND VarC AND Var21 AND Var4<0AND Var5=0 AND Var6=0 AND Var20<(-110); DRAWTEXT(买点1>0,L-0.15,'B'),LINETHICK4,ALIGN1,colorred; DRAWTEXT(买点2>0,L-0.15,'B'),LINETHICK4,ALIGN1,COLORFF00FF; DRAWTEXT(卖点1>0,H+0.35,'S'),LINETHICK4,ALIGN1,COLOR33FF33; 均线绝杀: MA1: MA(CLOSE,P1); MA2: MA(CLOSE,P2); MA3: MA(CLOSE,P3); DRAWTEXTABS(1,15,'板块:'+BKNAME),Color0099FF{Color5E5E5E}; DRAWTEXT(CROSS(ZIG(3,8),REF(ZIG(3,8),1)),LOW*0.978,'∧') ,LINETHICK2,COLORRED; DRAWTEXT(CROSS(REF(ZIG(3,10),1),ZIG(3,10)),HIGH*1.02,'∨'),LINETHICK2,COLOR00FF00; {顶尖财经:股票学院 http://www.58188.com} I1:=0; flag1:=0; while I1<BARSLAST(DISPSTATUS=1)-BARSLAST(DISPSTATUS=2) DO IF REF(H,I1)<REF(L,I1+1) AND REF(L,I1+1)>HHV(H,I1+1) THEN BEGIN FLAG1:=1; S1:=I1; I1:=BARSLAST(DISPSTATUS=1); END ELSE I1:=I1+1; STICKLINE(FLAG1,REF(L,S1+1),HHV(H,S1+1),(s1+1)*20,0),Color5E5E5E,ALIGN1,LAYER7; DRAWTEXT(flag1,REF(L,s1+1),NUMTOSTRN(ref(h,s1+1),2)+'-'+NUMTOSTRN(hhV(h,S1+1),2)),ALIGN2,COLORgreen; x:=BARSLAST(DISPSTATUS=1)+1; ah:=hhvall(hhv(h,x)); al:=llvall(llv(l,x)); nnl:=DISPSTATUS=2; HH:=HHV(h,5)*0.95; DRAWTEXTREL(5,100,'△止损=买入价*0.95；'),Color00FF00,LINETHICK1;; DRAWTEXTREL(5,140,'△止盈(五日内最高价*0.95)='+NUMTOSTRN(HH,2)+'元'),Color0000FF,LINETHICK1; DRAWTEXTREL(5,180,'△五日内最高价='+NUMTOSTRN(HHV(h,5),2)+'元'),Color0099FF,LINETHICK1; DRAWTEXTABS(5,120,'海底捞月：股价低位，三线复合金叉，一阳带量上穿'),Color5E5E5E; DRAWTEXTABS(5,150,'平台射价：股价跳空过平台，留有射价缺口，三线小口径向上发散'),COLORWHITE; DRAWTEXTABS(5,180,'金山倒灌：均线金叉，价托即将形成时，股价跳空高开而形成带缺口的假阴线'),COLOR0066FF; 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); A:=REF(C,BARSLAST(HD)); B:=REF(L,BARSLAST(LD)); T1:=BARSLAST(HD)<BARSLAST(LD) AND NOT(HD) ; T2:=BARSLAST(HD)>BARSLAST(LD) AND NOT(LD); 顶:IF(T1,A,A),COLORYELLOW,POINTDOT; 底:IF(T2,B,B),COLORGREEN,POINTDOT; ZDF:=(C-REF(C,1))/REF(C,1)*100; STICKLINE(ZDF>9.8,O,C,6,0),COLORRED; STICKLINE(ZDF<-9.8,O,C,6,0),COLORBLUE; {粉进黄出} VARA:=((AMOUNT)/(VOL))/(100); VARB:=((3)*(HIGH)+LOW+OPEN+(2)*(CLOSE))/(7); VARC:=((SUM(AMOUNT,7))/(VARA))/(100); VARD:=DMA(VARB,(VOL)/(VARC)); VARE:=((CLOSE-VARD)/(VARD))*(100); VARF:=((CLOSE-LLV(LOW,34))/(HHV(HIGH,34)-LLV(LOW,34)))*(100); VARJ:=MA(VARE,20)+STD(VARE,20); BIAS18:=((CLOSE-MA(CLOSE,18))/(MA(CLOSE,18)))*(100); AA:=SMA(VARF,3,1); SS:=(REF(BIAS18,1)>=5) AND CROSS(VARJ,VARE) AND (AA>79); VAR1:=(ZIG(3,10)<REF(ZIG(3,10),1)) AND (REF(ZIG(3,10),1)>REF(ZIG(3,10),2)); VAR2:=(ZIG(3,10)>REF(ZIG(3,10),1)) AND (REF(ZIG(3,10),1)<REF(ZIG(3,10),2)); STICKLINE(VAR1,CLOSE,OPEN,8,0),Linethick1,CoLor00FFFF; STICKLINE(VAR1,CLOSE,OPEN,3,0),Linethick1,CoLor00FFFF; STICKLINE(VAR1,HIGH,LOW,1,0),Linethick1,CoLor00FFFF; STICKLINE(VAR2,CLOSE,OPEN,8,0),Linethick1,CoLorFF00FF; STICKLINE(VAR2,CLOSE,OPEN,3,0),Linethick1,CoLorFF00FF; STICKLINE(VAR2,HIGH,LOW,1,0),Linethick1,CoLorFF00FF; S:=(MA(VOL,5))/(MA(VOL,60)); A:=MA(S,5); BIAS:=((CLOSE-MA(CLOSE,5))/(MA(CLOSE,5)))*(100); F:=MA(S,121); RSV:=((CLOSE-LLV(LOW,45))/(HHV(HIGH,45)-LLV(LOW,45)))*(100); K:=SMA(RSV,15,1); D:=SMA(K,15,1); J:=(3)*(K)-(2)*(D); LC1:=REF(CLOSE,1); MID:=MA(CLOSE,26); UPPER:=MID+(2)*(STD(CLOSE,26)); LOWER:=MID-(2)*(STD(CLOSE,26)); {顶尖财经:股票学院 http://www.58188.com} 均价:=(3*C+H+L+O)/6; VAR1:=(8*均价+7*REF(均价,1)+6*REF(均价,2)+5*REF(均价,3)+ 4*REF(均价,4)+3*REF(均价,5)+2*REF(均价,6)+REF(均价,8))/36; VAR2:=(LLV(VAR1,2)+LLV(VAR1,4)+LLV(VAR1,6))/3; SZ1:=REF(VAR1,1)=REF(VAR2,1) AND VAR1>VAR2 AND CLOSE>VAR1; SZ2:=VAR1>VAR2 AND VAR1>REF(VAR1,1) AND VAR2>REF(VAR2,1) AND H/VAR1<1.1 AND L>VAR2 AND CLOSE>VAR1; SZ3:=VAR1>VAR2 AND VAR1>REF(VAR1,1) AND VAR2>=REF(VAR2,1) AND H/VAR1>1.1; SZ4:=VAR1>VAR2 AND VAR1>REF(VAR1,1) AND VAR2>REF(VAR2,1) AND CLOSE>VAR2 AND CLOSE<VAR1; SZ5:=(VAR1>VAR2 AND VAR2>REF(VAR2,1) AND VAR1<>REF(VAR1,1) AND CLOSE<VAR2) OR (VAR1>VAR2 AND VAR1<REF(VAR1,1) AND VAR2<REF(VAR2,1) AND CLOSE<VAR2);; SZ6:=REF(VAR1,1)>REF(VAR2,1) AND VAR1=VAR2 AND CLOSE<VAR2; XD1:=VAR1=VAR2 AND CLOSE<VAR2 OR (VAR1<REF(VAR1,1) AND VAR2<REF(VAR2,1) AND REF(VAR1,1)=REF(VAR2,1) AND CLOSE<VAR2); XD2:=VAR1=VAR2 AND CLOSE>VAR1; SAT:=(AMOUNT/C)/(HHV(AMOUNT,20)/HHV(C,20)); 量能饱和度:=IF(SAT>1,1,SAT)*100; IF BARSTATUS=2 AND SZ1 THEN BEGIN DRAWTEXTABS(1520,480,'调整结束,短线介入'),COLOR0066FF; END ELSE IF BARSTATUS=2 AND SZ2 THEN BEGIN DRAWTEXTABS(1520,480,'上升通道,走势良好'),COLOR0066FF; END ELSE IF BARSTATUS=2 AND SZ3 THEN BEGIN DRAWTEXTABS(1520,480,'股价偏离,注意调整'),COLOR0066FF; END ELSE IF BARSTATUS=2 AND SZ4 THEN BEGIN DRAWTEXTABS(1520,480,'上升通道,调整洗盘'),COLORFF9966; END ELSE IF BARSTATUS=2 AND SZ5 THEN BEGIN DRAWTEXTABS(1520,480,'转向特征,注意离场'),COLORFF9966; END ELSE IF BARSTATUS=2 AND SZ6 THEN BEGIN DRAWTEXTABS(1520,480,'通道改变,坚决离场'),COLORFF9966; END ELSE IF BARSTATUS=2 AND XD1 THEN BEGIN DRAWTEXTABS(1520,480,'下跌通道,只宜观望'),COLORFF9966; END ELSE IF BARSTATUS=2 AND XD2 THEN BEGIN DRAWTEXTABS(1520,480,'短期底部,准备进入'),COLORYELLOW; END; ........... 金叉买入(顶尖财经:股票学院 http://www.58188.com): RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100; K:=SMA(RSV,3,1); D:=SMA(K,3,1); J:=3*K-2*D; DIFF:=EMA(CLOSE,12)-EMA(CLOSE,26); DEA:=EMA(DIFF,9); MACD:=2*(DIFF-DEA); {YLZC:=if(close=INDEXC,(INDEXC+INDEXh+INDEXl+INDEXO)/4,AMOUNT/(vol+0.01)/100); 阻价:=if(close=INDEXC,YLZC+INDEXC-INDEXl,YLZC+(close-low)); 支价:=if(close=INDEXC,INDEXl+INDEXC-YLZC,low+(close-YLZC)); 今压:=REF(阻价,1); 今撑:=REF(支价,1); 明压:=阻价; 明撑:=支价; rsv1:=(hhv(h,9.8)-c)/(hhv(h,9.8)-llv(l,9.8))*101; kk:=sma(rsv1,3,1); dd:=sma(kk,3,1); jj:=3*kk-2*dd; 买卖:=if(jj>=100,100,if(jj<=0,0,jj)); 明天买:=if(买卖=100,0-10,0); 明天买1:=ref(明天买,1)=-10 and 明天买=0; 明天卖:=if(买卖=0,90,100); KX:=250; KH:=HHV(K,KX); DH:=HHV(D,KX); JH:=HHV(J,KX); KL:=LLV(K,KX); DL:=LLV(D,KX); JL:=LLV(J,KX); HKMAX:=MAX(KH,MAX(DH,JH)); LKMIN:=MIN(KL,MIN(DL,JL)); KHLB:=(HKMAX+LKMIN)/2; KHLC:=HKMAX-LKMIN; MHF:=HHV(DIFF,KX); MHD:=HHV(DEA,KX); MHM:=HHV(MACD,KX); MLF:=LLV(DIFF,KX); MLD:=LLV(DEA,KX); MLM:=LLV(MACD,KX); HMAX:=MAX(MHF,MAX(MHD,MHM)); LMIN:=MIN(MLF,MIN(MLD,MLM)); FHLB:=(HMAX-LMIN)/100; FHLC:=HMAX-LMIN; SH:=(0-FHLB)*(KHLC/FHLC)+KHLB; DIFFA:=(DIFF-FHLB)*(KHLC/FHLC)+KHLB; DEAA:=(DEA-FHLB)*(KHLC/FHLC)+KHLB; MACDA:=(macd-FHLB)*(KHLC/FHLC)+KHLB; CDA:=MACD<ref(MACD,1) and MACD>0; CDB:=MACD>=ref(MACD,1) and MACD>0; CDC:=MACD>ref(MACD,1) and MACD<0; CDD:=MACD<=ref(MACD,1) and MACD<0; TYP:=(HIGH+LOW+CLOSE)/3; MACD金叉:=CROSS(MACD,DIFF) AND MACD>=(0-0.05) AND MACD<=0.02; XX:=ema(MA(LOW,3)*0.96,30); DIFF金叉:=if(CROSS(DIFF,DEA) AND XX-REF(XX,1)>0 AND MACD>=REF(MACD,1) AND DIFF<=0,1,0); 低位金叉:=CROSS(DIFF,DEA) AND DIFF<-0.1; DIFDEA:=COUNT(CROSS(DIFF,DEA),BARSLAST(DEA>=0)); 二次金叉:=CROSS(DIFF,DEA) AND DEA<0 AND COUNT(DIFDEA=2,21)=1; A1:=BARSLAST(REF(CROSS(DIFF,DEA),1)); 底背离:=REF(CLOSE,A1+1)>CLOSE AND DIFF>REF(DIFF,A1+1) AND CROSS(DIFF,DEA); A2:=BARSLAST(REF(CROSS(DEA,DIFF),1)); 顶背离:=REF(CLOSE,A2+1)<CLOSE AND REF(DIFF,A2+1)>DIFF AND CROSS(DEA,DIFF);} {周金叉,死叉} 周DIFF:="MACD.DIFF#WEEK"; 周DEA:="MACD.DEA#WEEK"; {周MACD:="MACD.MACD#WEEK"; DIF周金叉:=CROSS(周DIFF,周DEA); MACD周金叉:=CROSS(周MACD,周DIFF) AND 周MACD>=(0-0.05) AND 周MACD<=0.02;} {月金叉,死叉} 月DIFF:="MACD.DIFF#MONTH"; 月DEA:="MACD.DEA#MONTH"; {DIF月金叉:=CROSS(月DIFF,月DEA);} 周K:="KDJ.K#WEEK"(9,3,3); 周D:="KDJ.D#WEEK"(9,3,3); 周J:="KDJ.J#WEEK"(9,3,3); 月K:="KDJ.K#MONTH"(9,3,3); 月D:="KDJ.D#MONTH"(9,3,3); 月J:="KDJ.J#MONTH"(9,3,3); 月金叉:=cross(月K,月D); 周金叉:=cross(周K,周D); {日金叉:=FILTER(cross(K,D) and K<20,4); KDB:=BARSLAST(ref(cross(k,d),1)); KDDB:=ref(close,KDB+1)>close and ref(k,KDB+1)<k and cross(k,d); K底背:=if(FILTER(KDDB>0,5),1,0); KDD:=BARSLAST(ref(cross(d,k),1)); K顶背:=ref(close,KDD+1)<close and ref(k,KDD+1)>k and cross(d,k);}{顶背离} {MD1:=MA(CLOSE,80)-MA(CLOSE,13)/3; MD2:=MA((CLOSE-MD1)/MD1,3); 买点1:CROSS(MD2,0) AND LOW/REF(HIGH,1)<1.012 AND J<75 AND J>REF(J,1); ma12:=MA(CLOSE,12); 佳点:=if(FILTER(MACD>=REF(MACD,5) AND open<=ref(close,1) and XX-REF(XX,1)>0 AND MACD<=0 AND ma12-REF(ma12,1)>=0,3) and J<80 and J>ref(J,1) and D>ref(D,1) and (diff>=ref(diff,1) or dea>=ref(dea,1)),1,0); DX0:=EMA(CLOSE,2)-EMA(OPEN,5); DX1:=if(CROSS(DX0,MACD) AND LOW<=XX AND MACD<=(0-0.11) and (J<20 or K<20),1,0);}{短线10%} {MA10:=MA(CLOSE,10); SS:=EMA(MA(HIGH,3)*1.05,30); LQS:=if(FILTER(0.7*(CROSS(DIFF,DEA) AND CLOSE<SS AND XX-REF(XX,1)>0 AND CROSS(MACD,0) AND MACD>=0 AND DIFF>0 AND ma10-REF(ma10,1)>0 AND VOL>REF(VOL,1))>=0.7 AND (CLOSE<SS AND XX-REF(XX,1)>0),5) AND J<80,1,0);}{量价齐上} {最佳点:=IF(COUNT(MD2>REF(MD2,1),3)=3 AND COUNT(MD2<0,10)=10 AND REF(MD2,3)=LLV(MD2,10) and J<80 and J>ref(J,1),1,0); 买点2:=REF(MD2,2)=LLV(MD2,20) AND REF(MD2,2)<0.071 AND REF(MD2,2)<REF(MD2,1) AND NOT(REF(LOW,1)>REF(HIGH,2) AND LOW>REF(HIGH,1)) AND CLOSE>REF(CLOSE,1) AND J<75 AND J>REF(J,1);} {预涨} {YZ:=(INTPART(SMA(RSV,3,1))+INTPART(SMA(K,3,1)))/2; 预涨:=cross(yz,50) and j<95 and diff>ref(diff,1) and low<ref(close,1); KD金叉:=cross(K,D)and J>20 and J<80;} 金叉:月金叉 or 周金叉{ or 买点1 or 买点2 or DIF周金叉 or DIF月金叉}; 死叉:cross(月d,月k) or cross(周d,周k) or cross(月dea,月diff) or cross(周dea,周diff); h1:=(c-hhv(c,10))/hhv(c,10)*100<-4; up10:=(c-ma(c,15))/ma(c,15)*100<0.2; {l1:llv(l,5)>llv(l,36);}{处于上升通道} 买入1:=金叉 and not(死叉) and h1; 买入2:=金叉 and not(死叉) and up10; 买入:买入1 or 买入2; drawtext(买入1,买入1*1.2,'买入1'),colorred; drawtext(买入2,买入2*1,'买入2'),colorgreen; drawtext(死叉,死叉*1,'死叉'),colorwhite; drawtext(金叉,0.2,'金叉'),coloryellow; |