自稱為“前無古人，紀念小習”的公式 源碼 通達信，益盟適用
本指標 來源于早期的益盟論壇，一直珍藏?，F(xiàn)給本論壇的同學分享，不得外轉。調整 后，可用于通達信的代碼。這里說明一下：此絕非本人有意保留，而是為同學們可以使用！ 因為通達信軟件為使用較多的軟件，所以，這里專門針對通達信進行了修改。完整的代碼在通達信中是無法使用的。為滿足要求，這里就再補充只適用于益盟的原代碼。 另外，重新粘貼了一下公式 代碼。因操作問題，“笑臉”給開了幾個玩笑。 指標原名稱為：前無古人紀念小習（操盤手副圖） 聲明：本公式非本人集成。本帖隱藏的內容需要回復才可以瀏覽 DIFF:=EMA(CLOSE,12) - EMA(CLOSE,26); {選股設JC=10即可} DEA:=EMA(DIFF,9); MACD:=2*(DIFF-DEA); A:=IF(CROSS(0,DEA),1,0); A1:=IF(DIFF<0 AND CROSS(DIFF,DEA),1,0); SS:=IF(A,SUM(A1,0),0); SSB:=HHV(SS,0); SSS:=SUM(A1,0); W底選股:IF(SSS-SSB=2 AND SSS>REF(SSS,1),-22,0),LINETHICK2,COLORFFFF00; IF(SSS-SSB=2 AND SSS>REF(SSS,1),-12,0),LINETHICK2,COLORFFFF00; DRAWTEXT(A1,-10,'W底'),COLORYELLOW; N:=20; MID:=MA(C,N); VART1:=POW((C-MID),2); VART2:=MA(VART1,N); VART3:=SQRT(VART2); UPPER:=MID+2*VART3; LOWER:=MID-2*VART3; BOLL:=REF(MID,1); UB:=REF(UPPER,1); LB:=REF(LOWER,1); LOWER1:=MID-VART3; LB1:=REF(LOWER1,1); 股價線:(C-LB1)/(UB-LB)*100,COLORGREEN, LINETHICK1; 趨勢線:MA(股價線,6),COLORRED, LINETHICK3; 90,COLORGREEN, LINETHICK1; 50,COLORWHITE, LINETHICK1; 0,COLORWHITE, LINETHICK1; VARC:=SMA(ABS(L-REF(L,1)),3,1)/SMA(MAX(L-REF(L,1),0),3,1); 準備建倉:EMA(IF(L<= LLV(L,30),VARC,0),3),COLORFF00FF,LINETHICK2; VARO5:=LLV(LOW,27); VARO6:=HHV(HIGH,34); VARO7:=EMA((CLOSE-VARO5)/(VARO6-VARO5)*4,4)*25; 建倉區(qū): IF((VARO7<10),80,100) ,COLORFFFF00,LINETHICK3; IF((VARO7<10),85,100) ,COLORBLACK,LINETHICK2; 下單: IF(CROSS(3*SMA((CLOSE-LLV(LOW,21))/(HHV(HIGH,21)-LLV(LOW,21))*100,5,1)-2*SMA(SMA((CLOSE-LLV(LOW,21))/(HHV(HIGH,21)-LLV(LOW,21))*100,5,1),3,1),10),38,0),STICK ,COLORYELLOW, LINETHICK4; DRAWTEXT(下單,40,'下單'),COLORGREEN; BIAS1:=(C-MA(C,6))/MA(C,6)*100; BIAS2:=(C-MA(C,12))/MA(C,12)*100; BIAS3:=(C-MA(C,24))/MA(C,24)*100; BIAS:=(BIAS1+2*BIAS2+3*BIAS3)/6; 乖離1:=MA(BIAS,3); 低買:IF(CROSS(BIAS,乖離1) AND 乖離1<-9,28,0),COLORRED,LINETHICK2; IF(CROSS(BIAS,乖離1) AND 乖離1<-9,18,0),COLORRED,LINETHICK2; STICKLINE(CROSS(BIAS,乖離1) AND 乖離1<-9,-12,0,8,0),COLORYELLOW; DRAWTEXT(低買,33,'低買'),COLORRED; TTR:=SUM(MAX(MAX((HIGH - LOW),ABS((HIGH - REF(CLOSE,1)))),ABS((LOW - REF(CLOSE,1)))),5); HD:=(HIGH - REF(HIGH,1)); LD:=(REF(LOW,1) - LOW); DMP:=(SUM(IF(((HD > 0) AND (HD > LD)),HD,0),5) ); DMM:=SUM(IF(((LD > 0) AND (LD > HD)),LD,0),5); 神偷線:=(((DMP ) * 100) / TR); 輔助線:=((DMM * 100) / TTR); 動向趨勢線:=(MA(((ABS((輔助線 - 神偷線)) / (輔助線 + 神偷線)) * 100),3)); ADXR:=((動向趨勢線 + REF(動向趨勢線,3)) / 2); VAR3:=MA(CLOSE,2); VAR7:=REF(VAR3,1); 【強弱】:=((SMA(MAX((VAR3 - VAR7),0),5,1) / SMA(ABS((VAR3 - VAR7)),5,1)) * 100); 準備:( IF(((動向趨勢線 > 88) AND (神偷線 < 5.8)),68,0)),LINETHICK1,COLORFF00FF; ( IF(((動向趨勢線 > 88) AND (神偷線 < 5.8)),48,0)),LINETHICK1,COLORFF00FF; DRAWTEXT(準備,60,'準備'),COLORFF00FF; TYP := (HIGH + LOW + CLOSE)/3; CCI:=(TYP-MA(TYP,14))/(0.015*AVEDEV(TYP,14)); RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*500-250; K:=SMA(RSV,3,1); LC := REF(CLOSE,1); RSI1:=SMA(MAX(CLOSE-LC,0),6,1)/SMA(ABS(CLOSE-LC),6,1)*500-250; X:CROSS(CCI,-100) AND K<-100 ; X改成:CROSS(CCI,-100) AND K<-100 AND CROSS(RSI1,-90); MA2:=EMA(C,2);MA5:=EMA(C,5); MA13:=EMA(C,13); MA34:=EMA(C,34); MA55:=EMA(C,55); YCX:=MA5>=REF(MA5,1); H1:=MAX(MAX(MA5,MA13),MA34); L1:=MIN(MIN(MA5,MA13),MA34); 一陽穿三線:= H1<C AND O<L1 AND YCX AND MA2>REF(MA2,1); 滿倉選股:IF(一陽穿三線,88,0),COLORFFFF00,LINETHICK2; IF(一陽穿三線,58,0),COLORFFFF00,LINETHICK2; DRAWTEXT(一陽穿三線,88,'滿倉'),COLORYELLOW; VAR2:=0.0001*AMOUNT,; MA1:=0.0001*MA(AMOUNT,5); M2:=0.0001*MA(AMOUNT,10); 百日地量:LLV(VAR2,100)=VAR2,STICK,COLORRED,LINETHICK0; DRAWTEXT(百日地量,-12,'地量'),COLORRED; VAR1:=(CLOSE*2+HIGH+LOW)/4; SK:= EMA(VAR1,13)-EMA(VAR1,73); SD:= EMA(SK,2); 買點選股:(CROSS(SK,SD) AND SK<-0.04 AND (C-REF(C,1))/REF(C,1)>=0.03) OR (CROSS(SK,SD) AND SK<=-0.14 ) OR (CROSS(SK,SD) AND SK<=0.05 AND (V/MA(V,5)>2 OR C/REF(C,1)>0.035)); IF(買點選股,28,0),COLORYELLOW,LINETHICK2; IF(買點選股,18,0),COLORYELLOW,LINETHICK2; DRAWTEXT(買點選股,28,'買點'),COLORYELLOW; AA05:=MA(C,5); 五日乖離率:=(C-AA05)/AA05*100; BB05:=ATAN((AA05/REF(AA05,1)-1)*100)*180/3.1416; 速度5:=SMA(EMA((AA05-REF(AA05,1))/REF(AA05,1),3)*100,3,1); 加速度5:=EMA((速度5-REF(速度5,1)),3); AA10:=MA(C,10);AA20:=MA(C,20); BB10:=ATAN((AA10/REF(AA10,1)-1)*100)*180/3.1416; AA30:=MA(C,30); 三拾日乖離率:=(C-AA30)/AA30*100; (AA20-AA30)>REF((AA20-AA30),1) AND AA20>REF(AA20,1) AND AA30>REF(AA30,1); (AA30-AA20)<REF((AA30-AA20),1) AND AA20<REF(AA20,1) AND AA30<REF(AA30,1); BB30:=ATAN((AA30/REF(AA30,1)-1)*100)*180/3.1416; 強勢狙擊選股:FILTER(BB30>30 AND BB10>45 AND CROSS(BB05,60),10); 加倉:=FILTER(COUNT(CROSS(BB05,30),5)>=1 AND AA05>REF(AA05,1) AND 三拾日乖離率>REF(三拾日乖離率,1) AND AA10>REF(AA10,1) AND 加速度5>REF(加速度5,1) AND 速度5>REF(速度5,1) ,10) ; MR:=COUNT(CROSS(五日乖離率,0),3)>=1 AND 三拾日乖離率>REF(三拾日乖離率,1) AND AA05>REF(AA05,1) AND (C/REF(C,1)-1)*100>5 AND REF(C,1)<AA30; 青云直上選股:IF(FILTER(MR,10),30,0),COLORGREEN,LINETHICK2; IF(FILTER(MR,10),20,0),COLORGREEN,LINETHICK2; DRAWTEXT(青云直上選股,30,'青云直上'),COLORGREEN; QUAN:(CLOSE-DMA(CLOSE,VOL/SUM(VOL,13)))/DMA(CLOSE,VOL/SUM(VOL,13))*100<=-28 AND (CLOSE-DMA(CLOSE,VOL/SUM(VOL,34)))/DMA(CLOSE,VOL/SUM(VOL,34))*100<=-19 AND C/REF(C,25)<=1.1 AND IF((((HIGH > (LOW * 1.051)) AND (COUNT((HIGH > (LOW * 1.051)),5) > 1)) AND ((((CLOSE / MA(CLOSE,40)) * 100) < 78) OR (((CLOSE / MA(CLOSE,60)) * 100) < 74))),2,0) AND (SMA(MAX(C-REF(C,2),0),7,1)/SMA(ABS(C-REF(C,2)),7,1)*100)<15 AND IF(SMA((CLOSE-LLV(LOW,8))/(HHV(HIGH,8)-LLV(LOW,8))*100,2,1)>REF(SMA((CLOSE-LLV(LOW,8))/(HHV(HIGH,8)-LLV(LOW,8))*100,2,1),1) AND REF(SMA((CLOSE-LLV(LOW,8))/ (HHV(HIGH,8)-LLV(LOW,8))*100,2,1),1)<REF(SMA((CLOSE-LLV(LOW,8))/(HHV(HIGH,8)-LLV(LOW,8))*100,2,1),2) AND SMA((CLOSE-LLV(LOW,8))/(HHV(HIGH,8)-LLV(LOW,8))*100,2,1)<23 ,1.5,0) AND FILTER((C/MA(C,48))<0.75 AND (C/MA(C,70))<0.70 AND ((C-L)/C>0.02 OR C>REF(C,1)*1.01) AND V<REF(V,1)*2.8 AND (COUNT(C<O*0.93,2)=2 OR COUNT(H/L>1.1,5)>3),3) ; DRAWTEXT(QUAN,88,'弱市百發(fā)百中'),COLORFFFF00; IF(QUAN,88,0),COLORFFFF00,LINETHICK2; IF(QUAN,60,0),COLORFFFF00,LINETHICK2; AA:=1; BB:=(C-LLV(L,9))/(HHV(H,9)-LLV(L,9))*100; CC:=IF(AMOUNT/C/HHV(AMOUNT,9)/HHV(C,9)*100>100,100,AMOUNT/C/HHV(AMOUNT,9)/HHV(C,9)*100); DD:=CC/BB; 量異動:IF(AA,DD/REF(DD,1),0); STICKLINE(量異動>=0,0,量異動,8,0); STICKLINE(量異動>=0,0,量異動,4,0); 選股:DD/REF(DD,1); CROSS(-100*(HHV(HIGH,55)-CLOSE)/(HHV(HIGH,55)-LLV(LOW,55)),-45) AND CLOSE>SMA(CLOSE,60,5) AND SMA(CLOSE,23,5)>REF(SMA(CLOSE,23,5),1) AND SMA(SMA((CLOSE-LLV(LOW,60))/(HHV(HIGH,60)-LLV(LOW,60))*100,13,1),23,1)>REF(SMA(SMA((CLOSE-LLV(LOW,60))/(HHV(HIGH,60)-LLV(LOW,60))*100,13,1),23,1),1); RSI:=SMA(MAX(CLOSE-LC,0),6,1)/SMA(ABS(CLOSE-LC),6,1)*100; 逃頂:CROSS(80,RSI)*88,LINETHICK2 ,COLORGREEN; CROSS(80,RSI)*58,LINETHICK2 ,COLORGREEN; DRAWTEXT(CROSS(80,RSI),88,'逃頂 '),COLORGREEN; CROSS(-100*(HHV(HIGH,55)-CLOSE)/(HHV(HIGH,55)-LLV(LOW,55)),-45) AND CLOSE>SMA(CLOSE,60,5) AND SMA(CLOSE,23,5)>REF(SMA(CLOSE,23,5),1) AND SMA(SMA((CLOSE-LLV(LOW,60))/(HHV(HIGH,60)-LLV(LOW,60))*100,13,1),23,1)>REF(SMA(SMA((CLOSE-LLV(LOW,60))/(HHV(HIGH,60)-LLV(LOW,60))*100,13,1),23,1),1)COLORBLUE,LINETHICK2; {W1:=C=HHV(C,20); W2:=BARSLAST(W1); W3:=IF(W2>0,REF(C,W2),REF(C,W2)); W4:=CROSS(C,REF(W3,1)); W4 AND COUNT(W4,5)=1; };
本站僅提供存儲服務，所有內容均由用戶發(fā)布，如發(fā)現(xiàn)有害或侵權內容，請
點擊舉報 。
