打印本文
關閉窗口
相關標簽:
?
用不同的顏色把漲跌停板用不同的顏色在K線上標識。用法：在主圖使用，自動添加均線5 10 20 30 60 120 240 360，后面3條均線不顯示提醒頂底分型
?
原理解析：
?
?來源:程序化99（ www.kzuj.com.cn ）
源碼：
?
VERLINE(HOUR<REF(HOUR,1),2),COLOR666666;C2:=REF(C,1);漲停:=IF((C-C2)*100/C2>=(10-0.01*100/C2),1,0);STICKLINE(漲停,OPEN,CLOSE,10,0),coloryellow;STICKLINE(漲停,H,L,0,0),coloryellow;跌停:=IF((C2-C)*100/C2>=(10-0.01*100/C2),1,0);STICKLINE(跌停,OPEN,CLOSE,10,0),colorgreen;STICKLINE(跌停,H,L,10,0),colorgreen;//MID : MA(CLOSE,26);//UPPER: MID + 2*STD(CLOSE,26);//LOWER: MID - 2*STD(CLOSE,26);//STICKLINE(1,H,L,1,0),colorliblue;//{筆底分型 選股預警 確保向下筆成立后的底分型}V00:= HIGH<REF(HIGH,1) AND LOW<REF(LOW,1);V01:= HIGH<REF(HIGH,1) AND LOW>REF(LOW,1);V02:= HIGH>REF(HIGH,1) AND LOW<REF(LOW,1);V03:= HIGH>REF(HIGH,1) AND LOW>REF(LOW,1);V04:= REF(HIGH,2) < HIGH AND REF(LOW,2) < LOWAND REF(HIGH,2) > REF(HIGH,1) AND REF(LOW,2) < REF(LOW,1);V1:= COUNT(V00,6)>=3 AND COUNT(V01 OR V02,5)=0 AND LLVBARS(LOW,6) = 1 AND HHVBARS(HIGH,6) >= 5 AND V03;V2:= COUNT(V00,7)>=3 AND COUNT(V01 OR V02,6)=1 AND LLVBARS(LOW,7) = 2 AND HHVBARS(HIGH,7) >= 6 AND V04;V3:= COUNT(V00,7)>=3 AND COUNT(V01 OR V02,6)=1 AND LLVBARS(LOW,7) = 1 AND HHVBARS(HIGH,7) >= 6 AND V03;V4:= COUNT(V00,8)>=3 AND COUNT(V01 OR V02,7)<=2 AND LLVBARS(LOW,8) = 2 AND HHVBARS(HIGH,8) >= 7 AND V04;V5:= COUNT(V00,8)>=3 AND COUNT(V01 OR V02,7)<=2 AND LLVBARS(LOW,8) = 1 AND HHVBARS(HIGH,8) >= 7 AND V03;V6:= COUNT(V00,9)>=3 AND COUNT(V01 OR V02,8)<=3 AND LLVBARS(LOW,9) = 2 AND HHVBARS(HIGH,9) >= 8 AND V04;V7:= COUNT(V00,9)>=3 AND COUNT(V01 OR V02,8)<=3 AND LLVBARS(LOW,9) = 1 AND HHVBARS(HIGH,9) >= 8 AND V03;V8:= COUNT(V00,10)>=3 AND COUNT(V01 OR V02,9)<=4 AND LLVBARS(LOW,10) = 2 AND HHVBARS (HIGH,10) >= 9 AND V04;V9:= COUNT(V00,10)>=3 AND COUNT(V01 OR V02,9)<=4 AND LLVBARS(LOW,10) = 1 AND HHVBARS (HIGH,10) >= 9 AND V03;V10:= COUNT(V00,11)>=3 AND COUNT(V01 OR V02,10)<=5 AND LLVBARS(LOW,11) = 2 AND HHVBARS (HIGH,11) >= 10 AND V04;XG:= V1 OR V2 OR V3 OR V4 OR V5 OR V6 OR V7 OR V8 OR V9 OR V10;DRAWTEXT(FILTER(XG=1,5),L*0.998,'底分型'),coloryellow;//{筆頂分型 選股 預警 確保向上筆成立后的頂分型}HV00:= HIGH>REF(HIGH,1) AND LOW>REF(LOW,1);HV01:= HIGH<REF(HIGH,1) AND LOW>REF(LOW,1);HV02:= HIGH>REF(HIGH,1) AND LOW<REF(LOW,1);HV03:= HIGH<REF(HIGH,1) AND LOW<REF(LOW,1);HV04:= REF(HIGH,2) > HIGH AND REF(LOW,2) > LOW AND REF(HIGH,2) > REF(HIGH,1) AND REF(LOW,2) < REF(LOW,1);HV1:= COUNT(HV00,6)>=3 AND COUNT(HV01 OR HV02,5)=0 AND HHVBARS(HIGH,6) = 1 AND LLVBARS (LOW,6) >= 5 AND HV03;HV2:= COUNT(HV00,7)>=3 AND COUNT(HV01 OR HV02,6)=1 AND HHVBARS(HIGH,7) = 2 AND LLVBARS (LOW,7) >= 6 AND HV04;HV3:= COUNT(HV00,7)>=3 AND COUNT(HV01 OR HV02,6)=1 AND HHVBARS(HIGH,7) = 1 AND LLVBARS (LOW,7) >= 6 AND HV03;HV4:= COUNT(HV00,8)>=3 AND COUNT(HV01 OR HV02,7)<=2 AND HHVBARS(HIGH,8) = 2 AND LLVBARS (LOW,8) >= 7 AND HV04;HV5:= COUNT(HV00,8)>=3 AND COUNT(HV01 OR HV02,7)<=2 AND HHVBARS(HIGH,8) = 1 AND LLVBARS (LOW,8) >= 7 AND HV03;HV6:= COUNT(HV00,9)>=3 AND COUNT(HV01 OR HV02,8)<=3 AND HHVBARS(HIGH,9) = 2 AND LLVBARS (LOW,9) >= 8 AND HV04;HV7:= COUNT(HV00,9)>=3 AND COUNT(HV01 OR HV02,8)<=3 AND HHVBARS(HIGH,9) = 1 AND LLVBARS (LOW,9) >= 8 AND HV03;HV8:= COUNT(HV00,10)>=3 AND COUNT(HV01 OR HV02,9)<=4 AND HHVBARS(HIGH,10) = 2 AND LLVBARS (LOW,10) >= 9 AND HV04;HV9:= COUNT(HV00,10)>=3 AND COUNT(HV01 OR HV02,9)<=4 AND HHVBARS(HIGH,10) = 1 AND LLVBARS (LOW,10) >= 9 AND HV03;HV10:= COUNT(HV00,11)>=3 AND COUNT(HV01 OR HV02,10)<=5 AND HHVBARS(HIGH,11) = 2 AND LLVBARS (LOW,11) >= 10 AND HV04;HXG:=HV1 OR HV2 OR HV3 OR HV4 OR HV5 OR HV6 OR HV7 OR HV8 OR HV9 OR HV10;DRAWTEXT(FILTER(HXG=1,3),H*1.01,'頂分型'),colorgreen;IF (k<=0)RETURN 0;MA$1:MA(CLOSE, N1),colorwhite;IF (k<=1)RETURN 0;MA$2:MA(CLOSE, N2),coloryellow;IF (k<=2)RETURN 0;MA$3:MA(CLOSE, N3),colormagenta;IF (k<=3)RETURN 0;MA$4:MA(CLOSE, N4),colorgreen;IF (k<=4)RETURN 0;MA$5:MA(CLOSE, N5),colorcyan;IF (k<=5)RETURN 0;MA$6:MA(CLOSE, N6),colorred;IF (k<=6)RETURN 0;MA$7:MA(CLOSE, N7);IF (k<=7)RETURN 0;MA$8:MA(CLOSE, N8);//基于k線買賣提醒,5日線突破13日線且收盤大于5日線購買點提醒:=IF(CROSS(REF(EMA(C,N1),1),REF(EMA(C,N2),1)) AND C>EMA(C,N1),1,0);//DRAWICON(購買點提醒,MA$5*0.95,"buy");DRAWTEXT(購買點提醒,L*0.998,'buy'),coloryellow;
TIPTEXT(ISNULL(REFX(&CLOSE,1)),0,' www.kzuj.com.cn '),colorred;
TIPTEXT(ISNULL(REF(CLOSE,1)),0,'同花順程序化交易');
?
公式導入教程: 【通達信公式源碼導入方法教程】 【同花順公式源碼導入方法教程】 【大智慧新一代公式源碼導入方法教程】
?