顶底背离,趋势线,必杀线,压力支撑,F10等一体的跟庄指标! {参数- N1:1/300/5 N2:1/300/20 N3:1/300/21 N4:1/300/60 N:1/1000/75 P:1/100/5 P1:1/100/10 P10:1/100/30 P20:1/100/20 P30:1/100/30..}; 强支撑:EMA(CLOSE,N3)COLORRED,LINETHICK2; 牛熊线:EMA(CLOSE,N4),COLORGREEN,LINETHICK3; MA5:MA(C,5)LINETHICK3,COLOR00CCFF; MA10:=MA(C,10); MA20:=MA(C,20); MA30:=MA(C,30); 五日乖离率:=(C-MA5)/MA5*100; BB5:=ATAN((MA5/REF(MA5,1)-1)*100)*180/3.1416; 速度5:=SMA(EMA((MA5-REF(MA5,1))/REF(MA5,1),3)*100,3,1); 加速度5:=EMA((速度5-REF(速度5,1)),3),NODRAW; IF(BB5>30 AND MA5>REF(MA5,1), MA5,DRAWNULL),LINETHICK3,COLORRED; BB10:=ATAN((MA10/REF(MA10,1)-1)*100)*180/3.1416; IF(BB5<0 AND MA5<REF(MA5,1), MA5,DRAWNULL),LINETHICK3,COLORGREEN; 三拾日乖离率:=(C-MA30)/MA30*100,NODRAW; VAR1:=(MA20-MA30)>REF((MA20-MA30),1) AND MA20>REF(MA20,1) AND MA30>REF(MA30,1); VAR2:=(MA30-MA20)<REF((MA30-MA20),1) AND MA20<REF(MA20,1) AND MA30<REF(MA30,1); BB30:=ATAN((MA30/REF(MA30,1)-1)*100)*180/3.1416; 强势狙击:=FILTER(BB30>30 AND BB10>45 AND CROSS(BB5,60),10); 加仓:=FILTER(COUNT(CROSS(BB5,30),5)>=1 AND MA5>REF(MA5,1) AND 三拾日乖离率>REF(三拾日乖离率,1) AND MA10>REF(MA10,1) AND 加速度5>REF(加速度5,1) AND 速度5>REF(速度5,1),10); 清仓:=FILTER(COUNT(CROSS(30,BB5),5)>=1 AND (C>MA30 OR O>MA30) AND MA5<REF(MA5,1) AND 三拾日乖离率<REF(三拾日乖离率,1) AND MA10<REF(MA10,1),10); DRAWTEXT(加仓 ,LOW*0.98,'←加仓'),COLORYELLOW; JC:=CROSS(0,五日乖离率) AND 三拾日乖离率<REF(三拾日乖离率,1) AND MA10>REF(MA10,1) ; 减仓:=FILTER(JC,10); MR:=COUNT(CROSS(五日乖离率,0),3)>=1 AND 三拾日乖离率>REF(三拾日乖离率,1) AND MA5>REF(MA5,1) AND (C/REF(C,1)-1)*100>5 AND REF(C,1)<MA30; 买入:=FILTER(MR,10); DRAWTEXT(减仓,HIGH*1.02,'←风险'),COLORCYAN; DRAWTEXT(买入,LOW*0.98,'←买入'),COLORYELLOW; DRAWTEXT(清仓 ,HIGH*1.02,'←清仓'),COLORGREEN; DRAWTEXT(强势狙击,LOW*0.95,'←狙击'),COLORYELLOW; VAR21:=MAX(ABS(HIGH-AMOUNT/VOL/100),ABS(AMOUNT/VOL/100-LOW)); VAR3:=ABS((OPEN+CLOSE)/2-AMOUNT/VOL/100); MV:=(VAR21+VAR3)/AMOUNT*VOL*100*50; 压力:MA(REF(HHV(C,30),1),2),COLOR9DFFFF; 支撑:MA(REF(LLV(C,30),1),2),COLORABFF46; { 选股公式: MA5:=MA(C,5); MA10:=MA(C,10); MA20:=MA(C,20); MA30:=MA(C,30); 五日乖离率:=(C-MA5)/MA5*100; BB5:=ATAN((MA5/REF(MA5,1)-1)*100)*180/3.1416; 速度5:=SMA(EMA((MA5-REF(MA5,1))/REF(MA5,1),3)*100,3,1); 加速度5:=EMA((速度5-REF(速度5,1)),3); BB10:=ATAN((MA10/REF(MA10,1)-1)*100)*180/3.1416; 三拾日乖离率:=(C-MA30)/MA30*100; VAR1:=(MA20-MA30)>REF((MA20-MA30),1) AND MA20>REF(MA20,1) AND MA30>REF(MA30,1); VAR2:=(MA30-MA20)<REF((MA30-MA20),1) AND MA20<REF(MA20,1) AND MA30<REF(MA30,1); BB30:=ATAN((MA30/REF(MA30,1)-1)*100)*180/3.1416; 强势狙击:=FILTER(BB30>30 AND BB10>45 AND CROSS(BB5,60),10); 加仓:FILTER(COUNT(CROSS(BB5,30),5)>=1 AND MA5>REF(MA5,1) AND 三拾日乖离率>REF(三拾日乖离率,1) AND MA10>REF(MA10,1) AND 加速度5>REF(加速度5,1) AND 速度5>REF(速度5,1),10); }; A1:=BARSLAST(REF(CROSS("MACD.DIF","MACD.DEA"),1)); B1:=REF(C,A1+1)> C AND REF("MACD.DIF",A1+1)<"MACD.DIF" AND CROSS("MACD.DIF","MACD.DEA"); DRAWTEXT(B1> 0,L-0.02,'MACD底背离'),COLOR00FFFF;{MACD底背离} A2:=BARSLAST(REF(CROSS("KDJ.K","KDJ.D"),1)); B2:=REF(C,A2+1)> C AND REF("KDJ.K",A2+1)<"KDJ.K" AND CROSS("KDJ.K","KDJ.D"); DRAWTEXT(B2,L-0.10,'KDJ底背离'),COLORFF00FF;{KDJ底背离} A3:=BARSLAST(REF(CROSS("RSI.RSI1","RSI.RSI2"),1)); B3:=REF(C,A3+1)> C AND REF("RSI.RSI1",A3+1)<"RSI.RSI1" AND CROSS("RSI.RSI1","RSI.RSI2"); DRAWTEXT(B3> 0,L-0.18,'RSI底背离'),COLOR0000FF;{RSI底背离} C1:=BARSLAST(REF(CROSS("MACD.DEA","MACD.DIF"),1)); D1:=REF(C,C1+1)<C AND REF("MACD.DIF",C1+1)> "MACD.DIF" AND CROSS("MACD.DEA","MACD.DIF"); DRAWTEXT(D1> 0,H+0.16,'MACD顶背离'),COLOR00FF00;{MACD顶背离} C2:=BARSLAST(REF(CROSS("KDJ.D","KDJ.K"),1)); D2:=REF(C,C2+1)<C AND REF("KDJ.K",C2+1)> "KDJ.K" AND CROSS("KDJ.D","KDJ.K"); DRAWTEXT(D2> 0,H+0.08,'KDJ顶背离'),COLORFFFFCC;{KDJ顶背离} C3:=BARSLAST(REF(CROSS("RSI.RSI2","RSI.RSI1"),1)); D3:=REF(C,C3+1)<C AND REF("RSI.RSI1",C3+1)> "RSI.RSI1" AND CROSS("RSI.RSI2","RSI.RSI1"); DRAWTEXT(D3> 0,H+0.04,'RSI顶背离'),COLORFF9900;{RSI顶背离}; MA13:MA(C,13); XG:=CROSS(MA5,REF(MA5,1)) OR CROSS(MA13,REF(MA13,1)); DRAWICON(XG,L,1); 总股本:=STRCAT(STRCAT('总股本: ',CON2STR(TOTALCAPITAL/1000000,2)),'亿'); 流通盘:=STRCAT(STRCAT(' 流通盘: ',CON2STR(CAPITAL/1000000,2)),'亿'); 全流通:=STRCAT(' 全流通: ',CON2STR((CAPITAL/1000000)/(TOTALCAPITAL/1000000),2)); 市值:=STRCAT(STRCAT(' 流通市值: ',CON2STR((CAPITAL/1000000)*C,2)),'亿'); 上市日期:=STRCAT(' 上市天数: ',CON2STR(FINANCE(42),0)); 股本市值:=STRCAT('股本市值: ',STRCAT(STRCAT(STRCAT(STRCAT(总股本,流通盘),全流通),市值),上市日期)); {} 市盈率:=STRCAT('市盈率: ',CON2STR(C/FINANCE(33),2)); 市销率:=STRCAT(' 市销率: ',CON2STR(C/(FINANCE(20)/FINANCE(1)),2)); 市净率:=STRCAT(' 市净率: ',CON2STR(C/FINANCE(34),2)); 净资收益率:=STRCAT(' 净资收益率: ',CON2STR(FINANCE(33)/FINANCE(34)*100,2)); 毛利率:=STRCAT(' 毛利率: ',CON2STR((FINANCE(20)-FINANCE(21))/FINANCE(20)*100,2)); 净利润率:=STRCAT(' 净利润率 ',CON2STR(FINANCE(30)/FINANCE(20)*100,2)); 主营利润率:=STRCAT(' 主营利润率 ',CON2STR(FINANCE(23)/FINANCE(20)*100,2)); 利润同比:=STRCAT(' 利润同比: ',CON2STR(FINANCE(43),2)); 收入同比:=STRCAT(' 收入同比: ',CON2STR(FINANCE(44),2)); 当前业绩:=STRCAT('当前业绩: ',STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(市盈率,市销率),市净率), 净资收益率),毛利率),净利润率),主营利润率), 利润同比), 收入同比)); {} X1:=(FINANCE(11)-FINANCE(15))/FINANCE(10)*1.2; X2:=(FINANCE(31)+FINANCE(17))/FINANCE(10)*1.4;{盈余公积用资本公积金代替}; X3:=FINANCE(23)/FINANCE(10)*3.3; X4:=FINANCE(19)/FINANCE(15)*0.6;{缺长期负债或负债总额} X5:=FINANCE(20)/FINANCE(15)*0.999; Z值:=X1+X2+X3+X4+X5; 预警:=IF(Z值<1.2,'重警',IF(Z值>=1.2 AND Z值<2.6,'轻警','无警')); 财务预警:=STRCAT('财务预警: ',STRCAT(预警,STRCAT('-Z值: ',CON2STR(Z值,3)))); 优质资产率:=STRCAT(' 优质资产率: ',CON2STR((FINANCE(19)-FINANCE(22)-FINANCE(27))/FINANCE(19),2));{理论上越大越好但不同行业有不同标准}; 现金负债比:=STRCAT(' 现金负债比: ',CON2STR(FINANCE(25)/FINANCE(15),3));{缺长期负债或负债总额,理论上越大越好但不同行业有不同标准}; 财务系数:=STRCAT('风险系数: ',STRCAT(STRCAT(财务预警,优质资产率),现金负债比)); {} DRAWTEXT_FIX(ISLASTBAR,0.005,0.01,0,财务系数),COLORCYAN; DRAWTEXT_FIX(ISLASTBAR,0.005,0.06,0,当前业绩),COLORLIMAGENTA; DRAWTEXT_FIX(ISLASTBAR,0.005,0.115,0,股本市值),COLORYELLOW; STICKLINE(C>REF(C,1)*1.098,O,C,2,0),COLORRED; STICKLINE(C*1.098<REF(C,1),O,C,2,0),COLORGREEN; E1:=BACKSET(ISLASTBAR,BARSLAST(D1)+1); F1:=E1>REF(E1,1); E2:=BACKSET(ISLASTBAR,BARSLAST(D2)+1); F2:=E2>REF(E2,1); {www.88gs.com} AA1:=REF(H,P1)=HHV(H,2*P1+1); BB1:=FILTER(AA1,P1); CC1:=BACKSET(BB1,P1+1); DD1:=FILTER(CC1,P1); EE1:=BACKSET(ISLASTBAR,BARSLAST(DD1)+1); FF1:=EE1>REF(EE1,1); AA2:=REF(L,P1)=LLV(L,2*P1+1); BB2:=FILTER(AA2,P1); CC2:=BACKSET(BB2,P1+1); DD2:=FILTER(CC2,P1); EE2:=BACKSET(ISLASTBAR,BARSLAST(DD2)+1); FF2:=EE2>REF(EE2,1); 长支10T:DRAWLINE(DD2,L,FF2,L,1),COLORFF3366,DOTLINE; E1P:DRAWLINE(C=LLV(C,30),LOW,C=LLV(C,10) AND C>LLV(C,22),LLV(LOW,3),1),LINETHICK1,COLOR660066,DOTLINE; E1PP:DRAWLINE(C=LLV(C,10),LOW,C=LLV(C,5) AND C>LLV(C,10),LLV(LOW,3),1),LINETHICK1,COLOR000066,DOTLINE; 日:=181;昨前:=74; 高1:=REF(HHV(H,日),昨前); 低1:=REF(LLV(L,日),昨前),COLORBLUE,LINETHICK3; N1:=20; N2:=10; N3:=5; AA:=REF(H,N1)=HHV(H,2*N1+1); QY:=BACKSET(AA,N1+1); CC:=FILTER(QY,N1) AND H=HHV(H,N1+1); DDD:=BARSLAST(CC); GDTS:=IF(CC,CURRBARSCOUNT,0); DD10:=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) COLOR009999,DOTLINE; AA60:=REF(L,P10)=LLV(L,2*P10+1); BB60:=FILTER(AA60,P10); CC60:=BACKSET(BB60,P10+1); DD60:=FILTER(CC60,P10); EE60:=BACKSET(ISLASTBAR,BARSLAST(DD60)+1); FF60:=EE60>REF(EE60,1); 长支30:DRAWLINE(DD60,L,FF60,L,1),COLOR660033,DOTLINE; {这一条为下降压力线,如果放量突破,后期看高一线} 启动压力:DRAWLINE(HIGH>=HHV(HIGH,10),HIGH,LOW<=LLV(LOW,3),HHV(HIGH,3),1),COLOR009900,LINETHICK1,DOTLINE; {这就是歪歪虎老师推荐的神奇趋势线,上穿90进入顶部,下穿10进入底部}; STICKLINE(REF(L,1)>H,H,REF(L,1),15,0),COLOR222222; STICKLINE(REF(H,1)<L,L,REF(H,1),15,0),COLOR222222; AAAA:=CLOSE/REF(C,1)>=1.09; STICKLINE(AAAA,L,H,0.1,0),COLORRED; STICKLINE(AAAA,O,C,0.8,0),COLORYELLOW; STICKLINE(CLOSE<REF(CLOSE,1)*0.9015 AND CLOSE=LOW,CLOSE,OPEN,1,0),COLORBLUE; N:=10; T1:=CONST(LLVBARS(LOW,N)); T1HIGH:=CONST(REF(HIGH,T1)); CCVV:=CONST(CURRBARSCOUNT); T2:=CONST(BARSLAST((CURRBARSCOUNT >(CCVV+T1)) AND (HIGH>T1HIGH))); T2HIGH:=CONST(REF(HIGH,T2)); T3:=CONST(BARSLAST((CURRBARSCOUNT >(CCVV+T2)) AND (HIGH>T2HIGH))); T3HIGH:=CONST(REF(HIGH,T3)); 必杀线:DRAWLINE(CURRBARSCOUNT=T3+1, T3HIGH, ISLASTBAR, T3HIGH, 1),LINETHICK3,COLORFF0099; DRAWTEXT(ISLASTBAR, T3HIGH, ' 必杀线')LINETHICK1,COLORFF0099; {精准线178448-WEN98编写} N10:=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(精准线首次,N10) ; 天数:=BARSLAST(精准左); LTS:=REF(L,天数); 精准右:=ABS(L-LTS)<=L0; STICKLINE(精准左,L,L,30,-1),COLORMAGENTA; {顶精准线178448-WEN98编写} 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,N10) ; 天数1:=BARSLAST(精准左1); HTS:=REF(H,天数1); 精准右1:=ABS(H-HTS)<=L0; STICKLINE(精准左1,H,H,30,-1),COLORGREEN; |
|