自稱(chēng)為“前無(wú)古人，紀(jì)念小習(xí)”的公式源碼通達(dá)信，益盟適用

兼實(shí) 2011-02-11

展開(kāi)全文

本指標(biāo)來(lái)源于早期的益盟論壇，一直珍藏?，F(xiàn)給本論壇的同學(xué)分享，不得外轉(zhuǎn)。

補(bǔ)充：有人提建議和批評(píng)，說(shuō)是代碼不全，本人有保留。確實(shí)，這不是完整的代碼，而是經(jīng)調(diào)整后，可用于通達(dá)信的代碼。這里說(shuō)明一下：此絕非本人有意保留，而是為同學(xué)們可以使用！
   因?yàn)橥ㄟ_(dá)信軟件為使用較多的軟件，所以，這里專(zhuān)門(mén)針對(duì)通達(dá)信進(jìn)行了修改。完整的代碼在通達(dá)信中是無(wú)法使用的。為滿(mǎn)足要求，這里就再補(bǔ)充只適用于益盟的原代碼。
   另外，重新粘貼了一下公式代碼。因操作問(wèn)題，“笑臉”給開(kāi)了幾個(gè)玩笑。
   指標(biāo)原名稱(chēng)為：前無(wú)古人紀(jì)念小習(xí)（操盤(pán)手副圖）

聲明：本公式非本人集成。

本帖隱藏的內(nèi)容需要回復(fù)才可以瀏覽

DIFF:=EMA(CLOSE,12) - EMA(CLOSE,26); {選股設(shè)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);

股價(jià)線:(C-LB1)/(UB-LB)*100,COLORGREEN, LINETHICK1;

趨勢(shì)線:MA(股價(jià)線,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);

準(zhǔn)備建倉(cāng):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;

建倉(cāng)區(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);

低買(mǎi):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(低買(mǎi),33,'低買(mǎi)'),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);

動(dòng)向趨勢(shì)線:=(MA(((ABS((輔助線 - 神偷線)) / (輔助線 + 神偷線)) * 100),3));

ADXR:=((動(dòng)向趨勢(shì)線 + REF(動(dòng)向趨勢(shì)線,3)) / 2);

VAR3:=MA(CLOSE,2);

VAR7:=REF(VAR3,1);

【強(qiáng)弱】:=((SMA(MAX((VAR3 - VAR7),0),5,1) / SMA(ABS((VAR3 - VAR7)),5,1)) * 100);

準(zhǔn)備:( IF(((動(dòng)向趨勢(shì)線 > 88) AND (神偷線 < 5.8)),68,0)),LINETHICK1,COLORFF00FF;

( IF(((動(dòng)向趨勢(shì)線 > 88) AND (神偷線 < 5.8)),48,0)),LINETHICK1,COLORFF00FF;

DRAWTEXT(準(zhǔn)備,60,'準(zhǔn)備'),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);

一陽(yáng)穿三線:= H1<C AND O<L1 AND YCX AND MA2>REF(MA2,1);

滿(mǎn)倉(cāng)選股:IF(一陽(yáng)穿三線,88,0),COLORFFFF00,LINETHICK2;

IF(一陽(yáng)穿三線,58,0),COLORFFFF00,LINETHICK2;

DRAWTEXT(一陽(yáng)穿三線,88,'滿(mǎn)倉(cāng)'),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);

買(mǎi)點(diǎn)選股:(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(買(mǎi)點(diǎn)選股,28,0),COLORYELLOW,LINETHICK2;

IF(買(mǎi)點(diǎn)選股,18,0),COLORYELLOW,LINETHICK2;

DRAWTEXT(買(mǎi)點(diǎn)選股,28,'買(mǎi)點(diǎn)'),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;

強(qiáng)勢(shì)狙擊選股:FILTER(BB30>30 AND BB10>45 AND CROSS(BB05,60),10);

加倉(cāng):=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;

量異動(dòng):IF(AA,DD/REF(DD,1),0);

STICKLINE(量異動(dòng)>=0,0,量異動(dòng),8,0);

STICKLINE(量異動(dòng)>=0,0,量異動(dòng),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; };

本站是提供個(gè)人知識(shí)管理的網(wǎng)絡(luò)存儲(chǔ)空間，所有內(nèi)容均由用戶(hù)發(fā)布，不代表本站觀點(diǎn)。請(qǐng)注意甄別內(nèi)容中的聯(lián)系方式、誘導(dǎo)購(gòu)買(mǎi)等信息，謹(jǐn)防詐騙。如發(fā)現(xiàn)有害或侵權(quán)內(nèi)容，請(qǐng)點(diǎn)擊一鍵舉報(bào)。

轉(zhuǎn)藏 分享

QQ空間 QQ好友新浪微博微信

獻(xiàn)花（0） +1

來(lái)自：兼實(shí) > 《指標(biāo)源碼》

舉報(bào)/認(rèn)領(lǐng)