打印本文
關(guān)閉窗口
相關(guān)標(biāo)簽:
?
?
原理解析：
?
?來源:程序化99（ m.weiqiv.net.cn ）
源碼：
?
?
AB:=EMA(((2*C+H+L)/4-LLV(LOW,30))/(HHV(HIGH,30)-LLV(LOW,30))*100,8);BA:=EMA(AB,5);A1{高}:=REFDATE(REF(HHV(H,96),5),DATE);B1{低}:=REFDATE(REF(LLV(L,96),5),DATE);D{中}:=((A1)+(B1))/2;箱頂:IF(AB>0 AND AB-BA<=0,A1,A1),LINETHICK1,COLORGREEN;箱腰:IF(AB>0 AND AB-BA<=0,D,D),LINETHICK1,COLORYELLOW;箱低:IF(AB>0 AND AB-BA<=0,B1,B1),LINETHICK1,COLORRED;DRAWTEXT(CROSS(ZIG(3,10),REF(ZIG(3,10),1)),LOW*0.98,'買') , COLORMAGENTA;DRAWTEXT(CROSS(REF(ZIG(3,10),1),ZIG(3,10)),HIGH*1.02,'賣');HJ_1:=EMA(CLOSE,2);HJ_2:=EMA(SLOPE(CLOSE,21)*20+CLOSE,42);HJ_3:=CROSS(HJ_1,HJ_2);HJ_4:=CROSS(HJ_2,HJ_1);DRAWTEXT(HJ_3,LOW*0.97,'↖低吸'),COLORYELLOW;STICKLINE(HJ_1>=HJ_2,LOW,HIGH,0.01,0),COLOR0000DD;STICKLINE(HJ_1>=HJ_2,CLOSE,OPEN,2,1),COLORRED;STICKLINE(HJ_1<HJ_2,LOW,HIGH,0.01,0),COLORFFDD00;STICKLINE(HJ_1<HJ_2,CLOSE,OPEN,2,0),COLORCYAN;STICKLINE(CROSS(HJ_1,HJ_2),OPEN,CLOSE,2.5,0),COLORYELLOW;STICKLINE(CROSS(HJ_2,HJ_1),OPEN,CLOSE,2.5,0),COLORWHITE;HJ_5:=MA(CLOSE,10);HJ_6:=MA(CLOSE,54);HJ_7:=(CLOSE-HJ_6)/HJ_6<0.1;HJ_8:=(CLOSE-HJ_5)/HJ_5<0.3;HJ_9:=(HJ_7=1 AND HJ_8=1)*0.2;HJ_10:=(HJ_9=0 AND REF(HJ_9,1)=0.2 AND REF(COUNT(HJ_9=0.2,10)=10,1)=1)*1;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.06,0.012,0,STRCAT(Z6,ZHBLOCK)),COLORYELLOW;DRAWTEXT_FIX(1,0.08,0.08,0,'王者微信和QQ：365812945'),COLOR0000FF;DRAWTEXT_FIX(1,0.83.5,0.95,0,'王者設(shè)計(jì)專用'),COLORYELLOW;DRAWTEXT_FIX(1,0.83.5,0.92,0,''),COLOR0000FF;ZAA:=MONTH-REF(MONTH,1);DRAWTEXT(ZAA>1 OR (ZAA<0 AND ZAA>-11),L*0.9,'停牌');DRAWTEXT_FIX(1,0.00,0.12,0,'每股收益:')COLORFF00FF;DRAWTEXT_FIX(1,0.04,0.12,0,STRCAT(CON2STR(FINANCE(30)/FINANCE(1),2),' （元/股）'))COLORFF00FF;DRAWTEXT_FIX(1,0.00,0.18,0,'每股凈資產(chǎn)(元):')COLORFF00FF;DRAWTEXT_FIX(1,0.06,0.18,0,CON2STR(FINANCE(34),2))COLORFF00FF;上市天數(shù):FINANCE(42),,COLORRED;上市日期:=STRCAT(' 上市日期: ',CON2STR(HHV((BARSCOUNT(C)=0)*(DATE+19000000),0),0));DRAWTEXT_FIX(ISLASTBAR,0.001,0.08,0,上市日期),COLORYELLOW;HM1:=ABS(((3.48*CLOSE+HIGH+LOW+O)/5-EMA(CLOSE,20))/EMA(CLOSE,20));HM2:=DMA(((2.15*CLOSE+LOW+HIGH + O)/5),HM1);妖股線:=EMA(HM2,200)*1.26 ,LINETHICK2,COLORGREEN;牛熊線:=EMA(HM2,200)*1.18 ,LINETHICK2,COLORGREEN;Q1:=MA((L+H+C)/3,5);AHC1:=CLOSE*VOL;AHC2:=EMA((EXPMA(AHC1,3)/EXPMA(VOL,3)+EXPMA(AHC1,6)/EXPMA(VOL,6)+EXPMA(AHC1,12)/EXPMA(VOL,12)+EXPMA(AHC1,24)/EXPMA(VOL,24))/4,13),COLORYELLOW;上軌:=1.06*AHC2,LINETHICK2,COLORWHITE;頂:=1.13*AHC2,LINETHICK2,COLORWHITE;MM2:=MIN(上軌,妖股線);KK2:=MIN(上軌,牛熊線);ZT:=REF(C,1)*1.1-C<0.01 AND H=C;超牛:=CROSS(C,頂) AND ZT;DRAWTEXT(超牛,L*0.98,'超牛'),COLORRED;VAR2:=((((C - O) / O) * (100)) > 4);VAR3:=((((C - (REF(C,1))) / (REF(C,1))) * (100)) > 8);VAR4:=(((((REF(C,1)) * (1.1)) - C) < (0.01)) AND (H = C));VAR5:=((20 * H + 19 * (REF(H,1)) + 18 * (REF(H,2)) + 17 * (REF(H,3)) + 16 * (REF(H,4)) + 15 * (REF(H,5)) + 14 * (REF(H,6)) + 13 * (REF(H,7)) + 12 * (REF(H,8)) + 11 * (REF(H,9)) + 10 * (REF(H,10)) + 9 * (REF(H,11)) + 8 * (REF(H,12)) + 7 * (REF(H,13)) + 6 * (REF(H,14)) + 5 * (REF(H,15)) + 4 * (REF(H,16)) + 3 * (REF(H,17)) + 2 * (REF(H,18)) + REF(H,20)) / (210));牛線:(EMA(VAR5,90)),LINETHICK2,COLORYELLOW;持股線:((MA(C,3) + MA(C,6) + MA(C,12) + MA(C,24)) / 4)COLORRED,LINETHICK2;VAR6:=((牛線) - ((((C - (牛線)) * C) - (牛線)) / (牛線)));VAR7:=(牛線 + (((C - (牛線)) * C) - (黃牛線)) / (牛線));漲速線:=(IF((牛線) > (VAR6),(牛線) * (0.9),VAR6)),LINETHICK2,COLORYELLOW;VAR8:=(((REF(牛線,2)) >= (REF(牛線,1))) AND ((REF(牛線,1)) < (牛線)));VAR9:=(CROSS(牛線,VAR6));VAR10:=(CROSS(VAR6,牛線));VAR11:=(CROSS(C,VAR6));VAR12:=(CROSS(VAR7,C));DRAWTEXT((VAR9) AND (VAR4),L,'↖金條'),LINETHICK4,COLORYELLOW;DRAWTEXT((VAR11) AND (VAR4),L,'導(dǎo)彈')LINETHICK4,COLORWHITE;DRAWTEXT(CROSS(REF(ZIG(3,10),1),ZIG(3,10)),HIGH*1.015,'←出') ,COLORGREEN;DRAWTEXT(CROSS(ZIG(3,10),REF(ZIG(3,10),1)),LOW*0.99,'←進(jìn)') ,COLORYELLOW;DRAWTEXT(CROSS(90,RSI) , HIGH*1.01,'←出逃!'),COLOR00FF00 ;MA5:=MA(C,5);MA6:=MA(C,6);MA10:=MA(C,10);MA20:=MA(C,20);A2:=REF(MA20,1);J1:=(MA20-A2)/A2*100;MJ1:=MA(J1,3);MA30:=MA(C,30);MA55:=MA(C,60);MA120:=MA(C,120);乖離2:=(MA20-MA30)/MA30*100;MAX1:=MAX(MA20,MA30);MAX2:=MAX(MAX1,MA55);MIN11:=MIN(MA20,MA30);MIN2:=MIN(MIN11,MA55);K1:=(MAX2/MIN2-1)*100;VAR1:=IF(BETWEEN(乖離2,-2,5),2,0);短線暴漲:DRAWTEXT(FILTER( (VAR1 OR VAR2) AND MA10>REF(MA10,1) AND COUNT(MA30>REF(MA30,1),3)=3 AND MA30>MA55 AND COUNT(CROSS(MA5,MA30),3) AND J1>MJ1 AND MA(V,5)>MA(V,60)AND MA(V,60)>REF(MA(V,60),1),5),MA55*0.99,'←暴漲'),COLORRED;AA10:=MA(CLOSE,10);AA12:=MA(CLOSE,12);BB10:=((ATAN((AA10 - REF(AA10,1))) * 3.1416) * 10);BB12:=((ATAN((AA12 - REF(AA12,1))) * 3.1416) * 10);VARA:=(((CLOSE - MA(CLOSE,6)) / MA(CLOSE,6)) * 100);VARB:=(((CLOSE - MA(CLOSE,12)) / MA(CLOSE,12)) * 100);VARC:=(((CLOSE - MA(CLOSE,24)) / MA(CLOSE,24)) * 100);VARD:=REF(CLOSE,1);VARE:=((SMA(MAX((CLOSE - VARD),0),5,1) / SMA(ABS((CLOSE - VARD)),5,1)) * 100);VARF:=(((HIGH + LOW) + CLOSE) / 3);VAR13:=(VAR11 AND VAR12);VAR14:=((((VARA >= (0 - 45)) AND (VARA <= (0 - 10))) AND (VARB <= (0 - 15))) AND (VARC <= (0 - 20)));VAR15:=(COUNT(VAR14,1) >= 1);VAR16:=(VAR13 AND VAR15);VAR17:=1;VAB0:=531;VAB1:=1510000;VAB2:=VAB0 + VAB1; VAB3:=IF(DATE > VAB2,0,1);VARA12:=SMA(H,10,9)*VAB3; VARA13:=SMA(L,10,9)*VAB3; VAR18:=(CLOSE * VOL);高拋價(jià)參考:VARA12,COLORRED,NODRAW;低吸價(jià)參考:VARA13,COLORGREEN,NODRAW;DRAWTEXT_FIX(C>O,0.01,0.9,0,' m.weiqiv.net.cn '),COLORRED;
DRAWTEXT_FIX(C>O,1,1,0,'程序化交易模型'),COLORRED;
?
?
公式導(dǎo)入教程: 【通達(dá)信公式源碼導(dǎo)入方法教程】 【同花順公式源碼導(dǎo)入方法教程】 【大智慧新一代公式源碼導(dǎo)入方法教程】
?