| 追赶升浪: 无未来函数 有空修改了一个老指标 ，粗略的验证一下，成功率感觉还算可以 指标只是一个工具而已。相同的工具，不同的人使用起来效果可能千差万别啊！仅供对此感兴趣的 朋友参考。 有部分朋友导入公式后不能显示，特意修改了一下源码。如果不能通过编译的，就用下面的源码。 如果附件里的公式，能显示的，就用原公式吧。主要是一个小数点的问题。 {追赶升浪} 买线:=EMA(C,2); 卖线:=EMA(SLOPE(C,21)*20+C,42); BU:=CROSS(买线,卖线); SEL:=CROSS(卖线,买线); 操盘:=MA(CLOSE,9),COLORCYAN,LINETHICK2; 界点:=MA(CLOSE,20),COLORMAGENTA; LC:=REF(CLOSE,1); RSI:=((SMA(MAX((CLOSE - LC),0),3,1) / SMA(ABS((CLOSE - LC)),3,1)) * 100); FF:=EMA(CLOSE,3); MA15:=EMA(CLOSE,21); 日:=150;昨前:=3; 高1:=REF(HHV(H,日),昨前); 低1:=REF(LLV(L,日),昨前); H1:=高1-(高1-低1)*0.191; H2:=高1-(高1-低1)*0.382; H3:=高1-(高1-低1)*0.5; H4:=高1-(高1-低1)*0.618; H5:=高1-(高1-低1)*0.809; 顶:=REFDATE(高1,DATE),DOTLINE,COLORRED; 一809:=REFDATE(H1,DATE),DOTLINE,COLORYELLOW; 二618:=REFDATE(H2,DATE),DOTLINE,COLORMAGENTA; 三500:=REFDATE(H3,DATE),DOTLINE,COLORWHITE; 四382:=REFDATE(H4,DATE),DOTLINE,COLORGREEN; 五191:=REFDATE(H5,DATE),DOTLINE,COLORYELLOW; 追赶升浪:CROSS(C,操盘) AND 操盘<五0.191,COLORRED,LINETHICK2; 地瓜分时内部 合成版: {地瓜分时内部 合成版} AF1:=1; TT:=BARSLAST(HOUR=9 AND MINUTE=(30+AF1))+1; 均价:AMOUNT/VOL/100,COLORYELLOW; 价位:C,COLORWHITE,LINETHICK4; 盘整:IF(HOUR>9 AND RANGE(HHV(C,60)/LLV(C,60),1,1.02),C,DRAWNULL),COLORRED,LINETHICK2; V1:=V; HH:=C>REF(C,1) AND C/均价>(1+0.03); LL:=C<REF(C,1) AND C/均价<(1-0.03); HH1:=CROSS(SUM(HH,0),0.5); LL1:=CROSS(SUM(LL,0),0.5); SS1:=SUM(HH1,0)*CROSS(COUNT(C<REF(C,1),BARSLAST(HH1)),0.5); BB1:=SUM(LL1,0)*CROSS(COUNT(C>REF(C,1),BARSLAST(LL1)),0.5); CS1:CONST(SUM(IF(SS1,REF(C,1),DRAWNULL),0)),COLORGREEN,LINETHICK2; CB1:CONST(SUM(IF(BB1,REF(C,1),DRAWNULL),0)),COLORRED,LINETHICK2; HH2:=CROSS(SUM(HH AND C>CS1*1.03,0),0.5); LL2:=CROSS(SUM(LL AND C<CB1*0.97,0),0.5); SS2:=SUM(HH2,0)*CROSS(COUNT(C<REF(C,1),BARSLAST(HH2)),0.5); BB2:=SUM(LL2,0)*CROSS(COUNT(C>REF(C,1),BARSLAST(LL2)),0.5); CS2:CONST(SUM(IF(SS2,REF(C,1),DRAWNULL),0)),COLORGREEN,LINETHICK1; CB2:CONST(SUM(IF(BB2,REF(C,1),DRAWNULL),0)),COLORRED,LINETHICK1; DRAWICON(HH1 OR HH2,C*1.01,39); DRAWICON(LL1 OR LL2,C*0.99,38); DRAWICON(BB1 OR BB2,REF(C,1)*0.99,7); DRAWICON(SS1 OR SS2,REF(C,1)*1.01,8); 成交额:=V*C/100,NODRAW;{万元} A2:=SUM((IF(((成交额/8>20) AND (CLOSE>(REF(CLOSE,1)))),成交额,0)),0); A3:=SUM((IF(((成交额/8>20) AND (CLOSE<(REF(CLOSE,1)))),成交额,0)),0); A6:=(A2+A3); A7:=IF((ISLASTBAR),((100*A2)/A6),0); A8:=IF((ISLASTBAR),((100*A3)/A6),0); DD1:=1; AAA1:=STRCAT(STRCAT('机构买',CON2STR((100*A2)/A6,0)),'%'); AAA2:=STRCAT(STRCAT('机构卖',CON2STR((100*A3)/A6,0)),'%'); AAA3:=STRCAT(STRCAT('总买入',CON2STR((100*(A2-A3))/A6,0)),'%'); DRAWTEXT_FIX(DD1=1,0,0.02,0,AAA1),COLORRED; DRAWTEXT_FIX(DD1=1,0,0.13,0,AAA2),COLOR00FF00; DRAWTEXT_FIX(DD1=1,0,0.24,0,AAA3),COLOR00FFFF; DRAWKLINE(HIGH,OPEN,LOW,CLOSE); H1:EMA(C,8); H2:EMA(H1,20); VAR1:=(HHV(H,36)-C)/(HHV(H,36)-LLV(L,36))*100; VAR2:=SMA(VAR1,5,1); VAR3:=SMA(VAR2,8,1); VAR4:=CROSS(VAR2,VAR3) AND VAR3< 20; VAR5:=C>LLV(C,60)*1.13 AND VAR4; VAR6:=IF(C>200,VAR4,VAR5); STICKLINE(H1>H2,H1,H2,0,1),COLORRED; STICKLINE(H1< H2,H1,H2,0,1),COLORGREEN; 现价:C,COLORWHITE,LINETHICK2; 盘整1:IF(HOUR>8.75 AND RANGE(HHV(C,60)/LLV(C,60),1,1.02),C,DRAWNULL),COLORRED,LINETHICK6; H11:=MAX(DYNAINFO(3),DYNAINFO(5)); L1:=MIN(DYNAINFO(3),DYNAINFO(6)); P1:=H11-L1; 阻力:L1+P1*7.7/8,NODRAW; 支撑:L1+P1*0.3/8,NODRAW; STICKLINE(CROSS(支撑,现价),支撑,阻力,1,0),NODRAW; DRAWTEXT(LONGCROSS(支撑,现价,8),支撑,'----★B吸'),COLORRED;{吸} DRAWTEXT(LONGCROSS(现价,阻力,8),现价,'----★S抛'),COLORGREEN;{抛}; A:C,COLORWHITE,LINETHICK3; 军长专用MACD: 低位金叉 macd二次金叉(顶尖财经 股票学院: www.58188.com) {军长专用MACD} VA:=IF(CLOSE>REF(CLOSE,1),VOL,-VOL); OBV1:=SUM(IF(CLOSE=REF(CLOSE,1),0,VA),0); OBV2:=EMA(OBV1,3)-MA(OBV1,9); OBV3:=EMA(IF(OBV2>0,OBV2,0),3); MAC3:=MA(C,3); SHORT:=12;LONG:=26;MID:=9; DIF:EMA(CLOSE,SHORT)-EMA(CLOSE,LONG)COLORYELLOW ; DEA:EMA(DIF,MID)COLORFF9900 ; MACD:=(DIF-DEA)*2; STICKLINE(OBV3>REF(OBV3,1) AND MAC3>REF(MAC3,1),0,MACD,2,0),COLORYELLOW; 吸:=XLPL.NOTEXT吸; 拉:=XLPL.NOTEXT拉; 派:=XLPL.NOTEXT派; 落:=XLPL.NOTEXT落; STICKLINE(吸,0,MACD,1,0),COLORLIRED; STICKLINE(拉,0,MACD,1,0),COLORRED; STICKLINE(派,0,MACD,1,0),COLORGREEN; STICKLINE(落,0,MACD,1,0),COLORWHITE; 入1:IF(DIF>REF(DIF,1),DIF,DRAWNULL),COLORRED,LINETHICK2; 入2:IF(DIF<REF(DIF,1),DIF,DRAWNULL),COLOR00FF00,LINETHICK2; 低位金叉:=CROSS(DIF,DEA) AND DIF<-0.1; STICKLINE(低位金叉,0,0.08,6,0),COLORFF00FF; DRAWTEXT(低位金叉,0.16,' 低位金叉'),COLORWHITE; JCCOUNT:=COUNT(CROSS(DIF,DEA),BARSLAST(DEA>=0)); 二次金叉:=CROSS(DIF,DEA) AND DEA<0 AND COUNT(JCCOUNT=2,21)=1; STICKLINE(二次金叉,0,0.06,6,0),COLORFFCC00; DRAWICON(二次金叉,DEA*0.9,1) ; DRAWTEXT(二次金叉,0.2,' 二次金叉'),COLORYELLOW; A1:=BARSLAST(REF(CROSS(DIF,DEA),1)); 底背离:=REF(CLOSE,A1+1)>CLOSE AND DIF>REF(DIF,A1+1) AND CROSS(DIF,DEA); STICKLINE(底背离,0,0.03,6,0),COLOR00FF00; DRAWTEXT(底背离,0.12,' 底背离'),COLORFF00FF; A2:=BARSLAST(REF(CROSS(DEA,DIF),1)); 顶背离:=REF(CLOSE,A2+1)<CLOSE AND REF(DIF,A2+1)>DIF AND CROSS(DEA,DIF); DRAWTEXT(低位金叉 AND 二次金叉 AND 底背离,0.25,'三全项'),COLOR0000FF,LINETHICK2; |
下一篇：通达信源码：资金进出,筹码堆积