|
{TONG1主图区} M5:=MA(CLOSE,5); M20:=MA(CLOSE,20); M30:=MA(CLOSE,30); M60:=MA(CLOSE,60); M120:=MA(CLOSE,120),COLORBLUE,LINETHICK2; M240:=MA(CLOSE,240),COLORB87333,LINETHICK3; MX:=MAX(MAX(M20,M30),MAX(M60,M120)); CON1:=M5<MX; CON14623A:=M240>=M120; CON14623B:=M120>M240; WR0:=(C+0.618*REF(C,1)+0.382*REF(C,2)+0.236*REF(C,3)+0.146*REF(C,4))/2.382; 操作:=WR0,COLOR999999; WRP:=EMA(((SLOPE(C,22)*20)+C),55); 趋势1:=WRP,LINETHICK3,COLORGREEN; 趋势2:=MA(WRP,7),COLORRED,LINETHICK6; ZGX:=MAX(MAX(趋势1,趋势2),MAX(M120,M240)); CONXPQD:=CROSS(M5,趋势2) AND MAX(趋势1,趋势2)<MAX(M120,M240); CONXPQD2:=CONXPQD AND M120<MIN(MIN(趋势1,趋势2),M240); CONXPQD3:=CONXPQD AND MIN(趋势1,趋势2)<M240 AND M240<M120; CONXPQD4:=CONXPQD AND M240<MIN(M120,MIN(趋势1,趋势2));{红B} CONXPQD5:=CONXPQD AND M120<M240 AND MAX(趋势1,趋势2)>M120; CONNPQD:=CROSS(M5,趋势2) AND 趋势2>MAX(M240,M120) AND M120>M240; CONYNPQD:=CROSS(M5,趋势2) AND 趋势2>MAX(M240,M120) AND M240>M120; CON2:=M120>M5 AND M120<MX; CON3:=M240>M5 AND M240<MX; CON4:=M120>=M240; CONN:=(CON2 OR CON3) AND CON4; D15419W4:=COUNT(CONN,10); CON15419W4:=D15419W4>=5;{ 密集箭头 （硬定）} CON15422Y1:=M120>M240;{ //M120蓝线-M240紫铜线多头} {HSLMA副图区} HS:=VOL/CAPITAL*100; HS5:=MA(HS,5); HS20:=MA(HS,20); HS30:=MA(HS,30),LINETHICK2; HS60:=MA(HS,60); HS90:=MA(HS,90),LINETHICK3,COLORGREEN; HS180:=MA(HS,180),LINETHICK4,COLORRED; HSMX:=MAX(HS60,MAX(HS90,HS180)); HSMN:=MIN(HS60,MIN(HS90,HS180)); CON1558Z1:=HSMX>HSMN AND (HS60=HSMN OR HS180=HSMX);{出现红色柱带} {STICKLINE(CON11448Z1,MX,MN,1.2,500),COLORRED;} HSCON2:=HSMX>HSMN AND NOT(HS60=HSMN OR HS180=HSMX); {STICKLINE(CON2,MX,MN,1.2,500),COLORGRAY;} CON1556Y3:=NOT(HSCON2 AND (HS30>HSMX OR (HS30<=HSMX AND HS30>=HSMN))); CON1558Z2:=EXIST(HSMX>HSMN AND (HS60=HSMN OR HS180=HSMX),20);{20内存在红色柱带} CON1558Z3:=EXIST(HS30<HSMX,20); {粉线HS30<柱带上边缘} CON15510L1:=CON1558Z2 AND CON1558Z3;{上述两项 （定）} {//副图PLD区} PLZ1:=(H-趋势2)/趋势2; MAPLZ1:=MA(PLZ1,3); MAPLZ2:=MA(PLZ1,5); MAPLZ3:=MA(PLZ1,10); MAPLZ4:=MA(PLZ1,30); MAPLZ5:=MA(PLZ1,60); HPLZ:=MAX(MAX(MAPLZ1,MAPLZ2),MAX(MAPLZ3,MAPLZ4)); LPLZ:=MIN(MIN(MAPLZ1,MAPLZ2),MIN(MAPLZ3,MAPLZ4)); PLZ2:=(趋势1-M120)/M120,COLORRED LINETHICK2,; PLZ3:=(趋势2-M120)/M120,COLORWHITE LINETHICK2; CON15423L1:=PLZ3<0.2;{PLD: MAPLZ3位于0.2轴下方} CON1557H1:=EXIST(CROSS(MAPLZ4,PLZ2),20); CON1554L1:=(PLZ3>PLZ2 OR BARSLAST(CROSS(PLZ2,PLZ3))<5 OR BARSLAST(CROSS(MIN(MAPLZ1,MIN(MAPLZ2,MAPLZ3)),MAX(PLZ2,PLZ3)))<10) AND CROSS(MIN(MAPLZ1,MIN(MAPLZ2,MAPLZ3)),MAPLZ4); CON1557H3:=EXIST(CON1554L1,20); CON1557H4:=CON1557H3 OR CON1557H1; {VOLPLD副图区} V5:=MA(VOL,5); V20:=MA(VOL,20); V30:=MA(VOL,30); V60:=MA(VOL,60); V120:=MA(VOL,120); V240:=MA(VOL,240); VX:=MAX(MAX(V20,V30),MAX(V60,V120)); VWR0:=(VOL+0.618*REF(VOL,1)+0.382*REF(VOL,2)+0.236*REF(VOL,3)+0.146*REF(VOL,4))/2.382; V操作:=VWR0,COLOR999999; VWRP:=EMA(((SLOPE(VOL,22)*20)+VOL),55); V趋势1:=VWRP; V趋势2:=MA(VWRP,7); VPLZ1:=(VOL-V趋势2)/V趋势2; VMAPLZ1:=MA(VPLZ1,3); VMAPLZ2:=MA(VPLZ1,5); VMAPLZ3:=MA(VPLZ1,10); VMAPLZ4:=MA(VPLZ1,30); VMAPLZ5:=MA(VPLZ1,60); VHPLZ:=MAX(MAX(VMAPLZ1,VMAPLZ2),MAX(VMAPLZ3,VMAPLZ4)); VLPLZ:=MIN(MIN(VMAPLZ1,VMAPLZ2),MIN(VMAPLZ3,VMAPLZ4)); VPLZ2:=(V趋势1-V120)/V120; VPLZ3:=(V趋势2-V120)/V120; CON1554S1:=VPLZ3<0.1;{//趋势线VPLZ3在0.1轴线的下方,VMAPLZ4绿线在趋势线PLZ3的上方} CON1557H2:=VMAPLZ4>VPLZ3; {HLPPLD副图区} BL:=WINNER(CLOSE)*100; H5:=MA(BL,5); H20:=MA(BL,20); H30:=MA(BL,30); H60:=MA(BL,60); H120:=MA(BL,120); H240:=MA(BL,240); HX:=MAX(MAX(H20,H30),MAX(H60,H120)); HWR0:=(BL+0.618*REF(BL,1)+0.382*REF(BL,2)+0.236*REF(BL,3)+0.146*REF(BL,4))/2.382; H操作:=HWR0,COLOR999999; HWRP:=EMA(((SLOPE(BL,22)*20)+BL),55); H趋势1:=HWRP; H趋势2:=MA(HWRP,7); HPLZ1:=(BL-H趋势2)/H趋势2; HMAPLZ1:=MA(HPLZ1,3),COLORGREEN; HMAPLZ2:=MA(HPLZ1,5),COLORYELLOW; HMAPLZ3:=MA(HPLZ1,10),COLORCYAN; HMAPLZ4:=MA(HPLZ1,30),COLORBLUE,LINETHICK2; HMAPLZ5:=MA(HPLZ1,60); HHPLZ:=MAX(MAX(HMAPLZ1,HMAPLZ2),MAX(HMAPLZ3,HMAPLZ4)); HLPLZ:=MIN(MIN(HMAPLZ1,HMAPLZ2),MIN(HMAPLZ3,HMAPLZ4)); HPLZ2:=(H趋势1-H120)/H120,COLORRED LINETHICK2,; HPLZ3:=(H趋势2-H120)/H120,COLORWHITE LINETHICK2; CON1554S2:=HPLZ3<0.1;{//趋势线HPLZ3在0.1轴线的下方,HMAPLZ4绿线在趋势线HPLZ3的上方} CON1558M1:=HMAPLZ4 >HPLZ3;{//蓝线HMAPLZ4位于趋势线HPLZ3的上方 （支定）} CON1558M2:=CON1557H2 OR CON1558M1; {//HLPPLD、 VOLPLD其中之一必须为蓝线位于趋势线的上方。} CON1558M3:=CON1557H4 AND CON1558M2 AND CON1558Z2;{副图辅助补充：PLD-CON1557H4;CON1558M2-HLPPLD\VOLPLD;CON1558Z2-HSLMA } CON1558Y1:=CONXPQD4 OR CON15419W4 OR CON1558M3; {CONXPQD4:TONG1红B； CON15419W4：TONG1密集箭头； CON1558M3：PLD\HLPPLD\VOLPLD\HSLMA} {GGQR副图区} MA20:=MA(CLOSE,60); MAIND20:=MA(INDEXC,60); DPQR240:=MA((INDEXC-MAIND20)/MAIND20,240); DPQR120:=MA((INDEXC-MAIND20)/MAIND20,120); DPQR60:=MA((INDEXC-MAIND20)/MAIND20,60); DPQR30:=MA((INDEXC-MAIND20)/MAIND20,30); DPQRH:=MAX(DPQR240,MAX(DPQR120,DPQR60)); DPQRL:=MIN(DPQR240,MAX(DPQR120,DPQR60)); GGQR10:=MA((CLOSE-MA20)/MA20,10),COLORGREEN; GGQR20:=MA((CLOSE-MA20)/MA20,20),COLORBLUE,LINETHICK2; GGQR30:=MA((CLOSE-MA20)/MA20,30),COLORWHITE,LINETHICK3; GGQR60:=MA((CLOSE-MA20)/MA20,60),COLORRED,LINETHICK4; GGQR120:=MA((CLOSE-MA20)/MA20,120),LINETHICK5,COLORGRAY; CON15419C1:=MIN(GGQR30,MIN(GGQR60,GGQR120))>0; {/GGQR指标前三根粗线（白、灰、红）都在0轴线上方------选股因子} CON15419W5:=GGQR60>GGQR120; {红线在灰线的上方}{选股因子} GGQRH:=MAX(MAX(GGQR10,GGQR30),MAX(GGQR60,GGQR120)); GGQRL:=MIN(MIN(GGQR10,GGQR30),MIN(GGQR60,GGQR120)); CON141213A:=GGQRL>DPQRL; CON141213B:=GGQRH<DPQRH; CON141213C:=NOT(CON141213A) AND NOT(CON141213B); CON141213D:=CON141213B AND DPQRL>0 AND (DPQR120>DPQR240 OR DPQR60>DPQR240); D15419I6:=BARSLAST(CROSS(GGQR20,GGQR30)); D15419I7:=BARSLAST(CROSS(GGQR30,GGQR20)); CON15419I1:=D15419I6<30 AND D15419I6<D15419I7;{GGQR 20均线金叉30均线在30日内且没有死叉}{GGQR选股因子} CON15422Y3:=DPQR120>0;{// DPQR120均线在0轴以上 必选项} {//CON:=CON15422Y3 AND CON1558Y1;}{主要选股部分} {//CON;} {上面为主要选股分部}{下面为辅助补充选股分部} {WRTONG副图区} WR13:=100*(HHV(HIGH,13)-CLOSE)/(HHV(HIGH,13)-LLV(LOW,13)); WR34:=100*(HHV(HIGH,34)-CLOSE)/(HHV(HIGH,34)-LLV(LOW,34)); WR89:=100*(HHV(HIGH,89)-CLOSE)/(HHV(HIGH,89)-LLV(LOW,89)); M1320:=MA(WR13,20),COLORRED; M1330:=MA(WR13,30),COLORYELLOW; M3420:=MA(WR34,20),COLORGREEN; M3430:=MA(WR34,30),COLORBLUE; M8920:=MA(WR89,20),COLORWHITE; M8930:=MA(WR89,30),COLORGRAY; DA:=MAX(M8920,M8930); CON1553Z2:=CROSS(DA,M3420); CON1553Z3:=CROSS(DA,M3430); CON1553Z4:=CROSS(DA,M1320); CON1553Z5:=CROSS(DA,M1330); CON1553Z1:=M8920>20 AND M8930>20;{白带在20轴上方} CON1559L1:=M8920>30 AND M8930>30;{白带在30轴上方(定)} {MACDTONG副图区} DIFF1:=EMA(CLOSE,12) - EMA(CLOSE,26),COLORRED; DEA1:=EMA(DIFF1,9); DEA3:=EMA(DIFF1,18); DIFF:=EMA(CLOSE,48) - EMA(CLOSE,104),LINETHICK4; DEA:=EMA(DIFF,36),LINETHICK3; DEA2:=EMA(DIFF,72),LINETHICK5; MACD:=2*(DIFF-DEA); CON1559T1:=MIN(DIFF,MIN(DEA,DEA2))>0; CON1559T2:=MAX(DIFF1,MIN(DEA1,DEA3))<0; CON1559T3:=CROSS(DIFF1,DEA3); CONN1:=CON1559T1 AND CON1559T2 AND CON1559T3; CON1559T4:=MIN(DIFF1,MIN(DEA1,DEA3))>MAX(DIFF,MAX(DEA,DEA2)) OR MAX(DIFF1,MAX(DEA1,DEA3))>MIN(DIFF,MIN(DEA,DEA2)); CON1559T5:=MIN(MIN(MIN(DIFF1,DEA1),MIN(DEA3,DIFF)),MIN(DEA,DEA2))<-0.015; CON1559T6:=MAX(MAX(DIFF1,DEA1),MAX(MAX(DEA3,DIFF),MAX(DEA,DEA2)))-MIN(MIN(DIFF1,DEA1),MIN(MIN(DEA3,DIFF),MIN(DEA,DEA2)))<0.03; CON1559H2:=CON1559T4 AND CON1559T5 AND CON1559T6; CON1559T7:=DIFF1>DEA1 AND DEA1>DEA3; CON1559T8:=CROSS(DIFF,DEA) OR CROSS(DIFF,DEA2); CON1559T9:=MACD>0; CON1559T10:=DEA2<0; CON1559H3:=CON1559T7 AND CON1559T8 AND CON1559T9 AND CON1559T10; MXMAX:=MAX(MAX(MAX(DEA1,DEA3),MAX(DIFF,DEA)),DEA2); MNMIN:=MIN(MIN(MIN(DEA1,DEA3),MIN(DIFF,DEA)),DEA2); CONIF1:=DIFF1>MXMAX; CONIF2:=MAX(MAX(DIFF,DEA2),DEA)>0; CONIFA:=CONIF1 AND CONIF2; CONIF3:=DIFF1<MXMAX AND DIFF1>MNMIN; CONIF4:=EXIST(CONIFA,3); CONIFB:=CONIF3 AND CONIF4 AND MNMIN>0; CONIF5:=DIFF1<DIFF AND DIFF1>MAX(MAX(DEA,DEA2),MAX(DEA3,DEA1)); CONIF6:=MAX(MAX(DIFF,DEA),DEA2)>MIN(MIN(DIFF1,DEA1),DEA3); CONIFC:=CONIF5 AND CONIF6; {DRAWICON(CONIFA,DIFF1,5);} {DRAWICON(CONIFB,DIFF1,4);} {DRAWICON(CONIFC,DIFF1,15);} CON14651:=CONIFC AND MACD<MNMIN; {/DRAWICON(CON14651,0,10);} CON15422S1:=IF(DEA2<0,DIFF>DEA2,1);{DEA2大灰线位于0轴上方或者虽位于0轴下方但呈多头。} CON15422S2:=EXIST(DIFF>0,60);{60日内DIFF绿线是否冲出0轴 MACDTONG选股公式因子} CON15422H1:=DEA2>0;{MACDTONG DEA2大灰线在0轴上面 MACDTONG选股公式因子 定} CON15422H2:=DIFF<DEA2;{MACDTONG DIFF 大绿线低于DEA2大灰线} CON15422H3:=CON15422H1 AND CON15422H2;{MACDTONG DEA2粗灰线在0轴上方，DIFF粗绿线低于粗线的状态} CON15422H4:=DIFF<DEA;{MACDTONG DIFF粗绿线低于DEA 粗蓝线} CON1556H1:=DEA2>0 AND DIFF<DEA2;{灰线DEA2在0轴上方且绿线DIFF低于灰线} CON1559L2:=MACD<0; {BIASTONG副图区} MA5:=MA(C,5); MA1:=MA(C,10); MA2:=MA(C,20); MA3:=MA(C,30); MA6:=MA(C,60); MA9:=MA(C,90); MA12:=MA(C,120); BIAS53:=(MA5-MA3)/MA3*100; BIAS13:=(MA1-MA3)/MA3*100; BIAS56:=(MA5-MA6)/MA6*100; BIAS16:=(MA1-MA6)/MA6*100; BIAS212:=(MA2-MA12)/MA12*100,LINETHICK3,COLORRED; BIAS312:=(MA3-MA12)/MA12*100,LINETHICK3,COLORBLUE; XSX1:=MIN(MIN(BIAS53,BIAS13),BIAS312); XSX2:=MIN(MIN(BIAS53,BIAS13),BIAS212); DSD1:=MAX(MAX(BIAS16,BIAS56),BIAS212); DSD2:=MAX(MAX(BIAS16,BIAS56),BIAS312); CON141215A:=BIAS312>5 AND BIAS13<2; CM:=MAX(BIAS212,BIAS312); CON15417B:=CON141215A;{BIASTONG出现红方信号1}{BIASTONG选股因子} CON15419Z1:=BIAS212<20;{BIAS212<20}{BIASTONG选股因子} CON141218A:=CM<0 AND MIN(BIAS53,BIAS13)>CM;{绿方 信号2}{BIASTONG选股因子} D15419I1:=BARSLAST(CROSS(BIAS212,BIAS312)); D15419I2:=BARSLAST(CROSS(BIAS312,BIAS212)); CON15419I3:=D15419I1<30 AND D15419I2>D15419I1;{BIAS212-BIAS312金叉30天内且没有死叉} CON15419H1:=BIAS212>0 AND BIAS212<10; {BIAS212红线>0且<10} { BIASTONG选股因子} CON1556Y1:=EXIST(BIAS312>5 AND BIAS13<2,60);{最近两个月内存在红方信号 BIASTONG选股公式因子} CON1556Y2:=CON1556Y1 OR CON141218A;{出现绿箭头 或者60日内出现红方信号 BIASTONG选股公式因子（定）} COM:=CON15422Y3 AND CON1558Y1;{主要选股部分} CON:=CON1559L1 AND CON1559L2 AND CON15510L1 AND CON1556Y2;{辅助补充选股公式} CON OR COM; |
|
|
