相關標簽:

?

?

原理解析：
AB賦值:((2*收盤價+最高價+最低價)/4-30日內最低價的最低值)/(30日內最高價的最高值-30日內最低價的最低值)*100的8日指數移動平均 BA賦值:AB的5日指數移動平均 A1賦值:日期日5日前的96日內最高價的最高值 B1賦值:日期日5日前的96日內最低價的最低值 D賦值:((A1)+(B1))/2 輸出箱頂:如果AB>0ANDAB-BA<=0,返回A1,否則返回A1,線寬為1,畫綠色 輸出箱腰:如果AB>0ANDAB-BA<=0,返回D,否則返回D,線寬為1,畫黃色 輸出箱低:如果AB>0ANDAB-BA<=0,返回B1,否則返回B1,線寬為1,畫紅色 當滿足條件收盤價10%的之字轉向上穿1日前的收盤價10%的之字轉向時,在最低價*0.98位置書寫文字 , 畫洋紅色 當滿足條件1日前的收盤價10%的之字轉向上穿收盤價10%的之字轉向時,在最高價*1.02位置書寫文字 HJ_1賦值:收盤價的2日指數移動平均 HJ_2賦值:收盤價的21日線性回歸斜率*20+收盤價的42日指數移動平均 HJ_3賦值:HJ_1上穿HJ_2 HJ_4賦值:HJ_2上穿HJ_1 當滿足條件HJ_3時,在最低價*0.97位置書寫文字,畫黃色 當滿足條件HJ_1>=HJ_2時,在最低價和最高價位置之間畫柱狀線,寬度為0.01,0不為0則畫空心柱.,COLOR0000DD 當滿足條件HJ_1>=HJ_2時,在收盤價和開盤價位置之間畫柱狀線,寬度為2,1不為0則畫空心柱.,畫紅色 當滿足條件HJ_1<HJ_2時,在最低價和最高價位置之間畫柱狀線,寬度為0.01,0不為0則畫空心柱.,COLORFFDD00 當滿足條件HJ_1<HJ_2時,在收盤價和開盤價位置之間畫柱狀線,寬度為2,0不為0則畫空心柱.,畫青色 當滿足條件HJ_1上穿HJ_2時,在開盤價和收盤價位置之間畫柱狀線,寬度為2.5,0不為0則畫空心柱.,畫黃色 當滿足條件HJ_2上穿HJ_1時,在開盤價和收盤價位置之間畫柱狀線,寬度為2.5,0不為0則畫空心柱.,畫白色 HJ_5賦值:收盤價的10日簡單移動平均 HJ_6賦值:收盤價的54日簡單移動平均 HJ_7賦值:(收盤價-HJ_6)/HJ_6<0.1 HJ_8賦值:(收盤價-HJ_5)/HJ_5<0.3 HJ_9賦值:(HJ_7=1 AND HJ_8=1)*0.2 HJ_10賦值:(HJ_9=0 AND 1日前的HJ_9=0.2 AND 1日前的統計10日中滿足HJ_9=0.2的天數=10=1)*1 Z1賦值:字符串相加 Z2賦值:字符串相加 Z3賦值:字符串相加 Z4賦值:字符串相加 Z5賦值:字符串相加 Z6賦值:字符串相加 當滿足條件是否最后一個周期時,在橫軸0.06縱軸0.012位置書寫文字,畫黃色 當滿足條件1時,在橫軸0.08縱軸0.08位置書寫文字,COLOR0000FF 當滿足條件1時,在橫軸0.83.5縱軸0.95位置書寫文字,畫黃色 當滿足條件1時,在橫軸0.83.5縱軸0.92位置書寫文字,COLOR0000FF ZAA賦值:月份-1日前的月份 當滿足條件ZAA>1OR(ZAA<0ANDZAA>-11)時,在最低價*0.9位置書寫文字 當滿足條件1時,在橫軸0.00縱軸0.12位置書寫文字COLORFF00FF 當滿足條件1時,在橫軸0.04縱軸0.12位置書寫文字COLORFF00FF 當滿足條件1時,在橫軸0.00縱軸0.18位置書寫文字COLORFF00FF 當滿足條件1時,在橫軸0.06縱軸0.18位置書寫文字COLORFF00FF 輸出上市天數:上市的天數,,畫紅色 上市日期賦值:字符串相加 當滿足條件是否最后一個周期時,在橫軸0.001縱軸0.08位置書寫文字,畫黃色 HM1賦值:((3.48*收盤價+最高價+最低價+開盤價)/5-收盤價的20日指數移動平均)/收盤價的20日指數移動平均的絕對值 HM2賦值:以HM1為權重((2.15*收盤價+最低價+最高價+開盤價)/5)的動態移動平均 妖股線賦值:HM2的200日指數移動平均*1.26 ,線寬為2,畫綠色 牛熊線賦值:HM2的200日指數移動平均*1.18 ,線寬為2,畫綠色 Q1賦值:(最低價+最高價+收盤價)/3的5日簡單移動平均 AHC1賦值:收盤價*成交量(手) AHC2賦值:(AHC1的3日指數移動平均/成交量(手)的3日指數移動平均+AHC1的6日指數移動平均/成交量(手)的6日指數移動平均+AHC1的12日指數移動平均/成交量(手)的12日指數移動平均+AHC1的24日指數移動平均/成交量(手)的24日指數移動平均)/4的13日指數移動平均,畫黃色 上軌賦值:1.06*AHC2,線寬為2,畫白色 頂賦值:1.13*AHC2,線寬為2,畫白色 MM2賦值:上軌和妖股線的較小值 KK2賦值:上軌和牛熊線的較小值 ZT賦值:1日前的收盤價*1.1-收盤價<0.01 AND 最高價=收盤價 超牛賦值:收盤價上穿頂 AND ZT 當滿足條件超牛時,在最低價*0.98位置書寫文字,畫紅色 VAR2賦值:((((收盤價 - 開盤價) / 開盤價) * (100)) > 4) VAR3賦值:((((收盤價 - (1日前的收盤價)) / (1日前的收盤價)) * (100)) > 8) VAR4賦值:(((((1日前的收盤價) * (1.1)) - 收盤價) < (0.01)) AND (最高價 = 收盤價)) VAR5賦值:((20 * 最高價 + 19 * (1日前的最高價) + 18 * (2日前的最高價) + 17 * (3日前的最高價) + 16 * (4日前的最高價) + 15 * (5日前的最高價) + 14 * (6日前的最高價) + 13 * (7日前的最高價) + 12 * (8日前的最高價) + 11 * (9日前的最高價) + 10 * (10日前的最高價) + 9 * (11日前的最高價) + 8 * (12日前的最高價) + 7 * (13日前的最高價) + 6 * (14日前的最高價) + 5 * (15日前的最高價) + 4 * (16日前的最高價) + 3 * (17日前的最高價) + 2 * (18日前的最高價) + 20日前的最高價) / (210)) 輸出牛線:(VAR5的90日指數移動平均),線寬為2,畫黃色 輸出持股線:((收盤價的3日簡單移動平均 + 收盤價的6日簡單移動平均 + 收盤價的12日簡單移動平均 + 收盤價的24日簡單移動平均) / 4)畫紅色,線寬為2 VAR6賦值:((牛線) - ((((收盤價 - (牛線)) * 收盤價) - (牛線)) / (牛線))) VAR7賦值:(牛線 + (((收盤價 - (牛線)) * 收盤價) - (黃牛線)) / (牛線)) 漲速線賦值:(如果(牛線)>(VAR6),返回(牛線)*(0.9),否則返回VAR6),線寬為2,畫黃色 VAR8賦值:(((2日前的牛線) >= (1日前的牛線)) AND ((1日前的牛線) < (牛線))) VAR9賦值:(牛線上穿VAR6) VAR10賦值:(VAR6上穿牛線) VAR11賦值:(收盤價上穿VAR6) VAR12賦值:(VAR7上穿收盤價) 當滿足條件(VAR9)AND(VAR4)時,在最低價位置書寫文字,線寬為4,畫黃色 當滿足條件(VAR11)AND(VAR4)時,在最低價位置書寫文字線寬為4,畫白色 當滿足條件1日前的收盤價10%的之字轉向上穿收盤價10%的之字轉向時,在最高價*1.015位置書寫文字 ,畫綠色 當滿足條件收盤價10%的之字轉向上穿1日前的收盤價10%的之字轉向時,在最低價*0.99位置書寫文字 ,畫黃色 當滿足條件90上穿RSI時,在最高價*1.01位置書寫文字,COLOR00FF00 MA5賦值:收盤價的5日簡單移動平均 MA6賦值:收盤價的6日簡單移動平均 MA10賦值:收盤價的10日簡單移動平均 MA20賦值:收盤價的20日簡單移動平均 A2賦值:1日前的MA20 J1賦值:(MA20-A2)/A2*100 MJ1賦值:J1的3日簡單移動平均 MA30賦值:收盤價的30日簡單移動平均 MA55賦值:收盤價的60日簡單移動平均 MA120賦值:收盤價的120日簡單移動平均 乖離2賦值:(MA20-MA30)/MA30*100 MAX1賦值:MA20和MA30的較大值 MAX2賦值:MAX1和MA55的較大值 MIN11賦值:MA20和MA30的較小值 MIN2賦值:MIN11和MA55的較小值 K1賦值:(MAX2/MIN2-1)*100 VAR1賦值:如果乖離2位于-2和5之間,返回2,否則返回0 輸出短線暴漲:當滿足條件(VAR1ORVAR2)ANDMA10>1日前的MA10ANDCOUNT(MA30>1日前的MA30,3)=3ANDMA30>MA55ANDCOUNT(MA5上穿MA30,3)ANDJ1>MJ1ANDMA(成交量(手),5)>成交量(手)的60日簡單移動平均ANDMA(成交量(手),60)>?日前的成交量(手)的60日簡單移動平均的?日過濾時,在1),5)位置書寫文字,畫紅色 AA10賦值:收盤價的10日簡單移動平均 AA12賦值:收盤價的12日簡單移動平均 BB10賦值:(((AA10-1日前的AA10)的反正切 * 3.1416) * 10) BB12賦值:(((AA12-1日前的AA12)的反正切 * 3.1416) * 10) VARA賦值:(((收盤價 - 收盤價的6日簡單移動平均) / 收盤價的6日簡單移動平均) * 100) VARB賦值:(((收盤價 - 收盤價的12日簡單移動平均) / 收盤價的12日簡單移動平均) * 100) VARC賦值:(((收盤價 - 收盤價的24日簡單移動平均) / 收盤價的24日簡單移動平均) * 100) VARD賦值:1日前的收盤價 VARE賦值:(((收盤價-VARD)和0的較大值的5日[1日權重]移動平均 / (收盤價-VARD)的絕對值的5日[1日權重]移動平均) * 100) VARF賦值:(((最高價 + 最低價) + 收盤價) / 3) VAR13賦值:(VAR11 AND VAR12) VAR14賦值:((((VARA >= (0 - 45)) AND (VARA <= (0 - 10))) AND (VARB <= (0 - 15))) AND (VARC <= (0 - 20))) VAR15賦值:(統計1日中滿足VAR14的天數 >= 1) VAR16賦值:(VAR13 AND VAR15) VAR17賦值:1 VAB0賦值:531 VAB1賦值:1510000 VAB2賦值:VAB0 + VAB1 VAB3賦值:如果日期>VAB2,返回0,否則返回1 VARA12賦值:最高價的10日[9日權重]移動平均*VAB3 VARA13賦值:最低價的10日[9日權重]移動平均*VAB3 VAR18賦值:(收盤價 * 成交量(手)) 輸出高拋價參考:VARA12,畫紅色,NODRAW 輸出低吸價參考:VARA13,畫綠色,NODRAW 當滿足條件收陽線時,在橫軸0.01縱軸0.9位置書寫文字

?

?來源:程序化99（ www.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,'王者設計專用'),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,'每股凈資產(元):')COLORFF00FF;DRAWTEXT_FIX(1,0.06,0.18,0,CON2STR(FINANCE(34),2))COLORFF00FF;上市天數: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,'導彈')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,'←進') ,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);高拋價參考:VARA12,COLORRED,NODRAW;低吸價參考:VARA13,COLORGREEN,NODRAW;DRAWTEXT_FIX(C>O,0.01,0.9,0,' www.weiqiv.net.cn '),COLORRED;
DRAWTEXT_FIX(C>O,1,1,0,'程序化交易模型'),COLORRED;

?

?

公式導入教程: 【通達信公式源碼導入方法教程】 【同花順公式源碼導入方法教程】 【大智慧新一代公式源碼導入方法教程】

?