打印本文
關(guān)閉窗口
相關(guān)標(biāo)簽:
?
狐有這樣的主圖，俺也轉(zhuǎn)載了一個(gè)通達(dá)信的，
?
原理解析：
?
?來(lái)源:程序化99（ www.kzuj.com.cn ）
源碼：
?
強(qiáng):EMA(SLOPE(C,120)*20+C,35),LINETHICK1,COLORRED;DRAWNUMBER(ISLASTBAR ,C,C),COLORMAGENTA;N8:=STRCAT(CON2STR(YEAR,0),' 年 ');Y8:=STRCAT(CON2STR(MONTH,0),' 月 ');R8:=STRCAT(CON2STR(DAY,0),' 日 ');SJ8:=STRCAT(STRCAT(N8,Y8), R8);DRAWBMP((ZIG(3,5)>REF(ZIG(3,5),1)) AND (REF(ZIG(3,5),1)<=REF(ZIG(3,5),2))AND (REF(ZIG(3,5),2)<=REF(ZIG(3,5),3)),LOW*0.99,'BUY1');DRAWBMP((ZIG(3,5)<REF(ZIG(3,5),1)) AND (REF(ZIG(3,5),1)>=REF(ZIG(3,5),2))AND (REF(ZIG(3,5),2)>=REF(ZIG(3,5),3)),HIGH*1.03,'SELL1');買(mǎi)進(jìn)價(jià):=((C-REF(MA(C,6),1))/6+MA(C,6))*1.004;買(mǎi)進(jìn)條件:=CROSS(C,買(mǎi)進(jìn)價(jià)) AND 買(mǎi)進(jìn)價(jià)>REF(買(mǎi)進(jìn)價(jià),1);加碼價(jià):=((C-REF(MA(C,18),1))/18+MA(C,18))*1.004;加碼條件:=CROSS(C,加碼價(jià)) AND 加碼價(jià)>REF(加碼價(jià),1);STICKLINE(加碼條件,H,L,0,1),COLORYELLOW,LINETHICK2;STICKLINE(加碼條件,O,C,2.5,0),COLORYELLOW,LINETHICK2;{=====================股海www.guhai.com.cn =====================}范圍高A:=REFDATE(HHV(H,120),DATE)*1.05;范圍低A:=REFDATE(LLV(L,120),DATE)*0.95;MA5:=MA(C,5),COLORCYAN,LINETHICK2;MA24:=MA(C,24),COLORGREEN,LINETHICK2;MA72:=MA(C,72),COLORRED,LINETHICK2;MA200:=IF((MA(C,200)<=范圍高A AND MA(C,200)>=范圍低A) OR C>=MA(C,200),MA(C,200),DRAWNULL),COLORBLUE,LINETHICK2;Z1:=STRCAT(DYBLOCK,' ');Z2:=STRCAT(Z1,HYBLOCK);Z3:=STRCAT(Z2,' ');Z4:=STRCAT(Z3,GNBLOCK);Z5:=STRCAT(Z4,' ');Z6:=STRCAT(Z5,FGBLOCK);DRAWTEXT_FIX(ISLASTBAR,0.01,0.012,0,STRCAT(Z6,ZHBLOCK)),COLORCYAN;DRAWTEXT_FIX(1,0.88,5,0,'股海網(wǎng)www.guhai.com.cn'),COLORRED;HDAY:=20;LDAY:=20;上角度:=70;下角度:=70;調(diào)點(diǎn):=3;CURR:=CURRBARSCOUNT;TCH:=CONST(FINDHIGH(H,0,HDAY*10,1));GTT:=CONST(BARSLAST(TCH=H))+1;SX跌H:=CONST(IF(GTT=1,H,REF(H,GTT-1)));BCL:=CONST(FINDLOW(L,0,LDAY*10,1));DTT:=CONST(BARSLAST(BCL=L))+1;SX漲L:=CONST(IF(DTT=1,L,REF(L,DTT-1)));漲點(diǎn):=BARSSINCE(BACKSET(ISLASTBAR,BARSLAST(L=SX漲L)+1));跌點(diǎn):=BARSSINCE(BACKSET(ISLASTBAR,BARSLAST(H=SX跌H)+1));最低:=IF(調(diào)點(diǎn)=1,跌點(diǎn),IF(調(diào)點(diǎn)=2,漲點(diǎn),IF(調(diào)點(diǎn)=3,漲點(diǎn),跌點(diǎn))));L斜率:=下角度/IF(C<300,1000,10);最高:=IF(調(diào)點(diǎn)=1,跌點(diǎn),IF(調(diào)點(diǎn)=2,漲點(diǎn),IF(調(diào)點(diǎn)=3,跌點(diǎn),漲點(diǎn))));H斜率:=上角度/IF(C<300,1000,10);IM68:=((SX跌H-SX漲L)/8-(SX跌H-SX漲L)/8);GH跌X:=SX跌H+(SX跌H-SX漲L)/8; DL漲X:=SX漲L-(SX跌H-SX漲L)/8;GTHT:=IF(DTT>GTT,DTT,GTT); R:=ABS(GTT-DTT);DRAWBAND(IF(CURR<=GTHT,SX跌H,DRAWNULL),RGB(0,120,120),SX跌H,RGB(8,168,168));DRAWBAND(IF(CURR<=GTHT,SX漲L,DRAWNULL),RGB(0,120,120),SX漲L,RGB(0,160,160));STICKLINE(CURRBARSCOUNT=GTT,SX跌H,SX漲L,0,0),COLOR556600;STICKLINE(CURRBARSCOUNT=DTT,SX跌H,SX漲L,0,0),COLOR666666;STICKLINE(CURRBARSCOUNT=1,SX跌H,SX漲L,0,0),COLOR556600;DRAWKLINE(H,O,L,C);天線(xiàn):=SX跌H; 地線(xiàn):=SX漲L;K:=(天線(xiàn)-地線(xiàn))/(IF(跌點(diǎn)>=漲點(diǎn),跌點(diǎn),漲點(diǎn))-IF(跌點(diǎn)>=漲點(diǎn),漲點(diǎn),跌點(diǎn)));上斜線(xiàn):=IF(地線(xiàn)+CONST(L斜率*4.00)*最低>=地線(xiàn),地線(xiàn)+CONST(L斜率*4.00)*最低,DRAWNULL);上斜線(xiàn)0:=IF(地線(xiàn)+CONST(L斜率*2.00)*最低>=地線(xiàn),地線(xiàn)+CONST(L斜率*2.00)*最低,DRAWNULL);上斜線(xiàn)1:=IF(地線(xiàn)+CONST(L斜率*1.5)*最低>=地線(xiàn),地線(xiàn)+CONST(L斜率*1.5)*最低,DRAWNULL);上斜線(xiàn)2:=IF(地線(xiàn)+CONST(L斜率*1.00)*最低>=地線(xiàn),地線(xiàn)+CONST(L斜率*1.000)*最低,DRAWNULL);上斜線(xiàn)3:=IF(地線(xiàn)+CONST(L斜率*0.70)*最低>=地線(xiàn),地線(xiàn)+CONST(L斜率*0.70)*最低,DRAWNULL);上斜線(xiàn)4:=IF(地線(xiàn)+CONST(L斜率*0.50)*最低>=地線(xiàn),地線(xiàn)+CONST(L斜率*0.50)*最低,DRAWNULL);上斜線(xiàn)5:=IF(地線(xiàn)+CONST(L斜率*0.365)*最低>=地線(xiàn),地線(xiàn)+CONST(L斜率*0.365)*最低,DRAWNULL);上斜線(xiàn)6:=IF(地線(xiàn)+CONST(L斜率*0.250)*最低>=地線(xiàn),地線(xiàn)+CONST(L斜率*0.250)*最低,DRAWNULL);上斜線(xiàn)7:=IF(地線(xiàn)+CONST(L斜率*0.165)*最低>=地線(xiàn),地線(xiàn)+CONST(L斜率*0.165)*最低,DRAWNULL);上斜線(xiàn)8:=IF(地線(xiàn)+CONST(L斜率*0.123)*最低>=地線(xiàn),地線(xiàn)+CONST(L斜率*0.123)*最低,DRAWNULL);上斜線(xiàn)9:=IF(地線(xiàn)+CONST(L斜率*0.06)*最低>=地線(xiàn),地線(xiàn)+CONST(L斜率*0.06)*最低,DRAWNULL);上9:IF(上斜線(xiàn)9<=天線(xiàn)*1.05,上斜線(xiàn)9,DRAWNULL),COLORAA00AA,DOTLINE;上8:IF(上斜線(xiàn)8<=天線(xiàn)*1.05,上斜線(xiàn)8,DRAWNULL),COLORAA00AA,DOTLINE;上7:IF(上斜線(xiàn)7<=天線(xiàn)*1.05,上斜線(xiàn)7,DRAWNULL),COLORAA00AA,DOTLINE;上6:IF(上斜線(xiàn)6<=天線(xiàn)*1.05,上斜線(xiàn)6,DRAWNULL),COLORAA00AA,DOTLINE;上5:IF(上斜線(xiàn)5<=天線(xiàn)*1.05,上斜線(xiàn)5,DRAWNULL),COLORAA00AA,DOTLINE;上4:IF(上斜線(xiàn)4<=天線(xiàn)*1.05,上斜線(xiàn)4,DRAWNULL),COLOR00DDDD,DOTLINE;上3:IF(上斜線(xiàn)3<=天線(xiàn)*1.05,上斜線(xiàn)3,DRAWNULL),COLORAA00AA,DOTLINE;上2:IF(上斜線(xiàn)2<=天線(xiàn)*1.05,上斜線(xiàn)2,DRAWNULL),COLORAA00AA,DOTLINE;上1:IF(上斜線(xiàn)1<=天線(xiàn)*1.05,上斜線(xiàn)1,DRAWNULL),COLORAA00AA,DOTLINE;上0:IF(上斜線(xiàn)0<=天線(xiàn)*1.05,上斜線(xiàn)0,DRAWNULL),COLORAA00AA,DOTLINE;上:IF(上斜線(xiàn)<=天線(xiàn)*1.05,上斜線(xiàn),DRAWNULL),COLORAA00AA,DOTLINE;下斜線(xiàn):=IF(天線(xiàn)-CONST(H斜率*4.00)*最高<=天線(xiàn),天線(xiàn)-CONST(H斜率*4.00)*最高,DRAWNULL);下斜線(xiàn)0:=IF(天線(xiàn)-CONST(H斜率*2.00)*最高<=天線(xiàn),天線(xiàn)-CONST(H斜率*2.00)*最高,DRAWNULL);下斜線(xiàn)1:=IF(天線(xiàn)-CONST(H斜率*1.500)*最高<=天線(xiàn),天線(xiàn)-CONST(H斜率*1.500)*最高,DRAWNULL);下斜線(xiàn)2:=IF(天線(xiàn)-CONST(H斜率*1.000)*最高<=天線(xiàn),天線(xiàn)-CONST(H斜率*1.000)*最高,DRAWNULL);下斜線(xiàn)3:=IF(天線(xiàn)-CONST(H斜率*0.70)*最高<=天線(xiàn),天線(xiàn)-CONST(H斜率*0.70)*最高,DRAWNULL);下斜線(xiàn)4:=IF(天線(xiàn)-CONST(H斜率*0.50)*最高<=天線(xiàn),天線(xiàn)-CONST(H斜率*0.50)*最高,DRAWNULL);下斜線(xiàn)5:=IF(天線(xiàn)-CONST(H斜率*0.365)*最高<=天線(xiàn),天線(xiàn)-CONST(H斜率*0.365)*最高,DRAWNULL);下斜線(xiàn)6:=IF(天線(xiàn)-CONST(H斜率*0.250)*最高<=天線(xiàn),天線(xiàn)-CONST(H斜率*0.250)*最高,DRAWNULL);下斜線(xiàn)7:=IF(天線(xiàn)-CONST(H斜率*0.165)*最高<=天線(xiàn),天線(xiàn)-CONST(H斜率*0.165)*最高,DRAWNULL);下斜線(xiàn)8:=IF(天線(xiàn)-CONST(H斜率*0.123)*最高<=天線(xiàn),天線(xiàn)-CONST(H斜率*0.123)*最高,DRAWNULL);下斜線(xiàn)9:=IF(天線(xiàn)-CONST(H斜率*0.06)*最高<=天線(xiàn),天線(xiàn)-CONST(H斜率*0.06)*最高,DRAWNULL);下9:IF(下斜線(xiàn)9>=地線(xiàn)*0.95,下斜線(xiàn)9,DRAWNULL),COLORAAAAAA,DOTLINE;下8:IF(下斜線(xiàn)8>=地線(xiàn)*0.95,下斜線(xiàn)8,DRAWNULL),COLORAAAAAA,DOTLINE;下7:IF(下斜線(xiàn)7>=地線(xiàn)*0.95,下斜線(xiàn)7,DRAWNULL),COLORAAAAAA,DOTLINE;下6:IF(下斜線(xiàn)6>=地線(xiàn)*0.95,下斜線(xiàn)6,DRAWNULL),COLORAAAAAA,DOTLINE;下5:IF(下斜線(xiàn)5>=地線(xiàn)*0.95,下斜線(xiàn)5,DRAWNULL),COLORAAAAAA,DOTLINE;下4:IF(下斜線(xiàn)4>=地線(xiàn)*0.95,下斜線(xiàn)4,DRAWNULL),COLOR00DDDD,DOTLINE;下3:IF(下斜線(xiàn)3>=地線(xiàn)*0.95,下斜線(xiàn)3,DRAWNULL),COLORAAAAAA,DOTLINE;下2:IF(下斜線(xiàn)2>=地線(xiàn)*0.95,下斜線(xiàn)2,DRAWNULL),COLORAAAAAA,DOTLINE;下1:IF(下斜線(xiàn)1>=地線(xiàn)*0.95,下斜線(xiàn)1,DRAWNULL),COLORAAAAAA,DOTLINE;下0:IF(下斜線(xiàn)0>=地線(xiàn)*0.95,下斜線(xiàn)0,DRAWNULL),COLORAAAAAA,DOTLINE;下:IF(下斜線(xiàn)>=地線(xiàn)*0.95,下斜線(xiàn),DRAWNULL),COLORAAAAAA,DOTLINE;NNN:=STRCAT(CON2STR(YEAR,0),' 年 ');YYY:=STRCAT(CON2STR(MONTH,0),' 月 ');RRR:=STRCAT(CON2STR(DAY,0),' 日 ');WWW:=STRCAT('星期',CON2STR(WEEKDAY,0));SSS:=STRCAT(STRCAT(STRCAT(NNN,YYY), RRR),WWW);DRAWTEXT_FIX(C>0,0.77,0,0,SSS);中中中:=((XMA(XMA(H,15),15)+XMA(XMA(H,20),20)+XMA(XMA(H,30),30)+XMA(XMA(H,40),40))/4+(XMA(XMA(L,15),15)+XMA(XMA(L,20),20)+XMA(XMA(L,30),30)+XMA(XMA(L,40),40))/4)/2,LINETHICK0,COLORGREEN;EMA中中中:=EMA(中中中,10),LINETHICK0,COLORWHITE;中中頂:=(XMA(XMA(H,15),15)+XMA(XMA(H,20),20)+XMA(XMA(H,30),30)+XMA(XMA(H,40),40))/4*2-(XMA(XMA(L,15),15)+XMA(XMA(L,20),20)+XMA(XMA(L,30),30)+XMA(XMA(L,40),40))/4,LINETHICK2,COLORGREEN;中中底:=(XMA(XMA(L,15),15)+XMA(XMA(L,20),20)+XMA(XMA(L,30),30)+XMA(XMA(L,40),40))/4*2-(XMA(XMA(H,15),15)+XMA(XMA(H,20),20)+XMA(XMA(H,30),30)+XMA(XMA(H,40),40))/4,LINETHICK2,COLORGREEN;短中頂:=(XMA(XMA(H,5),5)+XMA(XMA(H,8),8)+XMA(XMA(H,11),11)+XMA(XMA(H,14),14)+XMA(XMA(H,4),4))/5+((XMA(XMA(H,5),5)+XMA(XMA(H,8),8)+XMA(XMA(H,11),11)+XMA(XMA(H,14),14)+XMA(XMA(H,4),4))/5-(XMA(XMA(L,5),5)+XMA(XMA(L,8),8)+XMA(XMA(L,11),11)+XMA(XMA(L,14),14)+XMA(XMA(L,4),4))/5)/2,LINETHICK0,COLORWHITE;短中底:=(XMA(XMA(L,5),5)+XMA(XMA(L,8),8)+XMA(XMA(L,11),11)+XMA(XMA(L,14),14))/4-((XMA(XMA(H,5),5)+XMA(XMA(H,8),8)+XMA(XMA(H,11),11)+XMA(XMA(H,14),14)+XMA(XMA(H,4),4))/5-(XMA(XMA(L,5),5)+XMA(XMA(L,8),8)+XMA(XMA(L,11),11)+XMA(XMA(L,14),14)+XMA(XMA(L,4),4))/5)/2,LINETHICK0,COLORWHITE;中頂:=(XMA(XMA(H,30),30)+XMA(XMA(H,40),40)+XMA(XMA(H,50),50)+XMA(XMA(H,60),60))/4*2.03-(XMA(XMA(L,30),30)+XMA(XMA(L,40),40)+XMA(XMA(L,50),50)+XMA(XMA(L,60),60))/4,LINETHICK2,COLORRED;中底:=(XMA(XMA(L,30),30)+XMA(XMA(L,40),40)+XMA(XMA(L,50),50)+XMA(XMA(L,60),60))/4*1.97-(XMA(XMA(H,30),30)+XMA(XMA(H,40),40)+XMA(XMA(H,50),50)+XMA(XMA(H,60),60))/4,LINETHICK2,COLORRED;長(zhǎng)頂:=(XMA(XMA(H,90),90)+XMA(XMA(H,120),120)+XMA(XMA(H,150),150))/3*2.08-(XMA(XMA(L,90),90)+XMA(XMA(L,120),120)+XMA(XMA(L,150),150))/3,LINETHICK2,COLORYELLOW;長(zhǎng)底:=(XMA(XMA(L,90),90)+XMA(XMA(L,120),120)+XMA(XMA(L,150),150))/3*1.92-(XMA(XMA(H,90),90)+XMA(XMA(H,120),120)+XMA(XMA(H,150),150))/3,LINETHICK2,COLORYELLOW;AF長(zhǎng):=EMA((CLOSE+HIGH+LOW)/3,18);BF長(zhǎng):=REF(AF長(zhǎng),1);AF中:=EMA((CLOSE+HIGH+LOW)/3,10);BF中:=REF(AF中,1);AF5:=EMA((CLOSE+HIGH+LOW)/3,6);BF5:=REF(AF5,1);AF3:=EMA((CLOSE+HIGH+LOW)/3,3);BF3:=REF(AF3,1);買(mǎi)入定位:=AF長(zhǎng)>BF長(zhǎng) OR AF中>BF中 OR AF5>BF5 OR AF3>BF3;賣(mài)出定位:=AF長(zhǎng)<BF長(zhǎng) OR AF中<BF中 OR AF5<BF5;頂?shù)锥ㄎ?=AF長(zhǎng)<BF長(zhǎng) OR AF中<BF中 OR AF5<BF5 OR AF3<BF3;加倉(cāng)定位1:=賣(mài)出定位=1 AND 中中頂>中頂;加倉(cāng)定位2:=頂?shù)锥ㄎ?1 AND H>中中頂 AND H>中頂;DRAWTEXT(加倉(cāng)定位1=0 AND 加倉(cāng)定位2=0 AND CROSS(AF中,BF中) AND 中中中>=EMA中中中,L*0.995,''),COLORYELLOW;DRAWTEXT(CROSS(ZIG(3,10),REF(ZIG(3,10),1)),LOW*0.99,'←進(jìn)場(chǎng)') , COLORRED;DRAWTEXT(CROSS(REF(ZIG(3,10),1),ZIG(3,10)),HIGH*1.008,'←出局') ,COLORWHITE;MA5角度: ATAN((MA5/REF(MA5,1)-1)*100)*180/3.1416,NODRAW;T01:=CONST(LLVBARS(LOW,10));T1HIGH:=CONST(REF(HIGH,T01));MM:=CONST(CURRBARSCOUNT);T02:=CONST(BARSLAST(CURRBARSCOUNT>MM+T01 AND H>T1HIGH));T2HIGH:=CONST(REF(HIGH,T02));T03:=CONST(BARSLAST(CURRBARSCOUNT>MM+T02 AND HIGH>T2HIGH));T3HIGH:=CONST(REF(HIGH,T03));狙擊線(xiàn):DRAWLINE(CURRBARSCOUNT=T03+1, T3HIGH, ISLASTBAR, T3HIGH,1),COLORYELLOW,DOTLINE;
DRAWTEXT_FIX(C>O,0.01,0.9,0,' www.kzuj.com.cn '),COLORRED;
DRAWTEXT_FIX(C>O,1,1,0,'程序化交易模型'),COLORRED;
?
?
公式導(dǎo)入教程: 【通達(dá)信公式源碼導(dǎo)入方法教程】 【同花順公式源碼導(dǎo)入方法教程】 【大智慧新一代公式源碼導(dǎo)入方法教程】
?