|
151325Pb1F-2Z93.jpg
{铁血乾坤 P=3}
R1:=(CLOSE > REF(CLOSE,1) AND CLOSE > REF(CLOSE,2));
R2:=(REF(R1,1) AND CLOSE < =REF(CLOSE,1) AND CLOSE > =REF(CLOSE,2));
R3:=(REF(R2,1) AND CLOSE > =REF(CLOSE,1) AND CLOSE < =REF(CLOSE,2));
R4:=(REF(R3,1) AND CLOSE < =REF(CLOSE,1) AND CLOSE > =REF(CLOSE,2));
R5:=(REF(R4,1) AND CLOSE > =REF(CLOSE,1) AND CLOSE < =REF(CLOSE,2));
R6:=(REF(R5,1) AND CLOSE < =REF(CLOSE,1) AND CLOSE > =REF(CLOSE,2));
R7:=(REF(R6,1) AND CLOSE > =REF(CLOSE,1) AND CLOSE < =REF(CLOSE,2));
R8:=(REF(R7,1) AND CLOSE < =REF(CLOSE,1) AND CLOSE > =REF(CLOSE,2));
R9:=(REF(R8,1) AND CLOSE > =REF(CLOSE,1) AND CLOSE < =REF(CLOSE,2));
RA:=(REF(R9,1) AND CLOSE < =REF(CLOSE,1) AND CLOSE > =REF(CLOSE,2));
RB:=(REF(RA,1) AND CLOSE > =REF(CLOSE,1) AND CLOSE < =REF(CLOSE,2));
RC:=(REF(RB,1) AND CLOSE < =REF(CLOSE,1) AND CLOSE > =REF(CLOSE,2));
RD:=(CLOSE < REF(CLOSE,1) AND CLOSE < REF(CLOSE,2));
RE:=(REF(RD,1) AND CLOSE > =REF(CLOSE,1) AND CLOSE < =REF(CLOSE,2));
RF:=(REF(RE,1) AND CLOSE < =REF(CLOSE,1) AND CLOSE > =REF(CLOSE,2));
R10:=(REF(RF,1) AND CLOSE > =REF(CLOSE,1) AND CLOSE < =REF(CLOSE,2));
R11:=(REF(R10,1) AND CLOSE < =REF(CLOSE,1) AND CLOSE > =REF(CLOSE,2));
R12:=(REF(R11,1) AND CLOSE > =REF(CLOSE,1) AND CLOSE < =REF(CLOSE,2));
R13:=(REF(R12,1) AND CLOSE < =REF(CLOSE,1) AND CLOSE > =REF(CLOSE,2));
R14:=(REF(R13,1) AND CLOSE > =REF(CLOSE,1) AND CLOSE < =REF(CLOSE,2));
R15:=(REF(R14,1) AND CLOSE < =REF(CLOSE,1) AND CLOSE > =REF(CLOSE,2));
R16:=(REF(R15,1) AND CLOSE > =REF(CLOSE,1) AND CLOSE < =REF(CLOSE,2));
R17:=(REF(R16,1) AND CLOSE < =REF(CLOSE,1) AND CLOSE > =REF(CLOSE,2));
R18:=(REF(R17,1) AND CLOSE > =REF(CLOSE,1) AND CLOSE < =REF(CLOSE,2));
R19:=REF(RD OR RE OR RF OR R10 OR R11 OR R12 OR R13 OR R14 OR R15 OR R16 OR R17 OR R18,1) AND R1;
R1A:=((REF(R1 OR R2 OR R3 OR R4 OR R5 OR R6 OR R7 OR R8 OR R9 OR RA OR RB OR RC,1)) AND RD);
VAR3:=IF(C < 200 ,MA(COST(80),3),2500),NODRAW;
VAR4:=(((HIGH + LOW) + CLOSE) / 3);
VAR5:=EMA(((((OPEN + HIGH) + LOW) + CLOSE) / 4),2330);
VAR6:=(VAR5 + ((VAR5 * 6) / 100));
短买春:=R19,NODRAW,COLOR00DD00;
秋离场:=R1A,NODRAW,COLOR2288DD;
红持股:=R1 OR R2 OR R3 OR R4 OR R5 OR R6 OR R7 OR R8 OR R9 OR RA OR RB OR RC,NODRAW,COLOR0000FF;
阴观望:=RD OR RE OR RF OR R10 OR R11 OR R12 OR R13 OR R14 OR R15 OR R16 OR R17 OR R18,NODRAW,COLOR999999;
急速超跌关注:=(CLOSE-MA(CLOSE,34))/MA(CLOSE,34)*100 < -14,COLORBBBBBB,NODRAW;
JRH:=HHV(C,2);
JRL:=LLV(C,2);
离场:=IF(红持股,JRL,DRAWNULL);
明离场价:=离场,COLORFF99FF,NODRAW;
今离场价:=REF(离场,1)COLOR0000FF,NODRAW;
进:=IF(阴观望,JRH,DRAWNULL);
明进场价:=进,COLOR33AACC,NODRAW;
今进场价:=REF(明进场价,1),COLOR00FF00,NODRAW;
Q1:=CONST(IF(短买春,0,IF(秋离场,100,IF(红持股,100,IF(急速超跌关注,50,50))))),NODRAW;
Q2:=CONST(IF(短买春,80,IF(秋离场,100,IF(红持股,0,IF(急速超跌关注,50,50))))),NODRAW;
Q3:=CONST(IF(短买春,0,IF(秋离场,20,IF(红持股,50,IF(急速超跌关注,50,50))))),NODRAW;
{DRAWRECTREL(970,0,1000,990,RGB(Q1,Q2,Q3));}
DRAWGBK(C > 0,RGB(0,0,155),RGB(0,0,60),0,' ',0);
{DRAWRECTREL(500,0,1000,982,RGB(0,0,155));}
DRAWRECTREL(500,0,1000,982,RGB(Q1,Q2,Q3));
DRAWRECTREL(500,187.6,1000,794.4,RGB(0,55,5));
DRAWRECTREL(500,375.1,1000,606.9,RGB(0,5,55));
DRAWRECTREL(500,491,1000,491,RGB(255,00,00));
STICKLINE(ISLASTBAR AND (红持股 OR REF(红持股,1)=1),今离场价,今离场价,35,1),COLORFF00FF;
STICKLINE(ISLASTBAR AND (阴观望 OR REF(阴观望,1)=1),今进场价,今进场价,35,1),COLOR00FF00;
MA(C,7),COLORMAGENTA,LINETHICK2;
IF(MA(C,7) < REF(MA(C,7),1),MA(C,7),DRAWNULL),COLORLIGREEN,LINETHICK2;
DRAWBAND(MA(C,2),RGB(80,0,80),MA(C,7),RGB(0,80,0));
B1:=REF(C,1);
B2:=REF(C,2);
SS:=IF(C > REF(C,1) AND REF(C,1) > =REF(C,2),1,
IF(C > REF(C,2) AND REF(C,2) > REF(C,1),2,
IF(C < REF(C,1) AND REF(C,1) < =REF(C,2),-1,
IF(C < REF(C,2) AND REF(C,2) < REF(C,1),-2,0))));
SM:=IF(REF(SS,1)=0,REF(SS,1),
IF(REF(SS,2)=0,REF(SS,2),
IF(REF(SS,3)=0,REF(SS,3),
IF(REF(SS,5)=0,REF(SS,5),
IF(REF(SS,6)=0,REF(SS,6),
IF(REF(SS,7)=0,REF(SS,7),0))))));
STICKLINE(CLOSE > OPEN OR CLOSE=OPEN AND CLOSE > REF(CLOSE,1),LOW,HIGH,0.0,0),COLORRED;
STICKLINE(CLOSE > OPEN OR CLOSE=OPEN AND CLOSE > REF(CLOSE,1),OPEN,CLOSE,0,0),COLORRED;
STICKLINE(CLOSE < OPEN OR CLOSE=OPEN AND CLOSE < =REF(CLOSE,1),LOW,HIGH,0.0,0),COLORCYAN;
STICKLINE(CLOSE < OPEN OR CLOSE=OPEN AND CLOSE < =REF(CLOSE,1),OPEN,CLOSE,0,0),COLORCYAN;
STICKLINE(OPEN > =CLOSE ,CLOSE ,OPEN,2.5,0 ),COLOR006600;
STICKLINE(OPEN > =CLOSE ,CLOSE ,OPEN,2,0 ),COLOR00CC00;
STICKLINE(OPEN > =CLOSE ,CLOSE ,OPEN,0,0 ),COLOR00FF00;
STICKLINE(CLOSE > OPEN,CLOSE,OPEN,2.5,0) ,COLOR000066;
STICKLINE(CLOSE > OPEN,CLOSE,OPEN,2,0) ,COLOR0000CC;
STICKLINE(CLOSE > OPEN,CLOSE,OPEN,0,0) ,COLOR0000FF;
STICKLINE(SS=1 OR (SM > =1 AND SS=0),B1,C,2.5,0),COLOR0099FF;
STICKLINE(SS=2,B2,C,2.5,0),COLOR0099FF;
STICKLINE((SS=-1 OR SS=-2) AND SM > 0,B2,B1,2.5,0),COLOR0099FF;
HH:=CONST(HHV(H,120));
LH:=CONST(LLV(H,120));
WN:=P;{原码 N:=3;}
WA1:=REF(H,WN)=HHV(H,2*WN+1); WB1:=FILTER(WA1,WN);
WC1:=BACKSET(WB1,WN+1);
WD1:=FILTER(WC1,WN);{高点}
WA2:=REF(L,WN)=LLV(L,2*WN+1); WB2:=FILTER(WA2,WN);
WC2:=BACKSET(WB2,WN+1);
WD2:=FILTER(WC2,WN);{低点}
WR1:=BACKSET(ISLASTBAR,BARSLAST(WD1)+1); WS1:=WR1 > REF(WR1,1); {前一高}
WT1:=BACKSET(ISLASTBAR,BARSLAST(WD2)+1); WU1:=WT1 > REF(WT1,1); {前一低}
WR2:=BACKSET(WS1,REF(BARSLAST(WD1),1)+2); WS2:=WR2 > REF(WR2,1); {前二高}
WT2:=BACKSET(WU1,REF(BARSLAST(WD2),1)+2); WU2:=WT2 > REF(WT2,1); {前二低}
WR3:=BACKSET(WS2,REF(BARSLAST(WD1),1)+2); WS3:=WR3 > REF(WR3,1); {前三高}
WT3:=BACKSET(WU2,REF(BARSLAST(WD2),1)+2); WU3:=WT3 > REF(WT3,1); {前三低}
WR4:=BACKSET(WS3,REF(BARSLAST(WD1),1)+2); WS4:=WR4 > REF(WR4,1); {前四高}
WT4:=BACKSET(WU3,REF(BARSLAST(WD2),1)+2); WU4:=WT4 > REF(WT4,1); {前四高}
压力A:DRAWLINE(WS2,H,WS1,H,1),COLOR0000FF; {★压力１:}
支撑A:DRAWLINE(WU2,L,WU1,L,1),COLOR0000FF;{★支撑１:}
压力B:DRAWLINE(WS3,H,WS2,H,1),COLOR999999; {★压力２:}
支撑B:DRAWLINE(WU3,L, WU2,L,1),COLOR999999;{★支撑２:}
超B:=L2_AMO(0,2)/10000.0;
大B:=L2_AMO(1,2)/10000.0;
中B:=L2_AMO(2,2)/10000.0;
小B:=L2_AMO(3,2)/10000.0;
超S:=L2_AMO(0,3)/10000.0;
大S:=L2_AMO(1,3)/10000.0;
中S:=L2_AMO(2,3)/10000.0;
小S:=L2_AMO(3,3)/10000.0;
TESTSKIP(NOT(超B OR 大B OR 中B OR 小B OR 超S OR 大S OR 中S OR 小S)!=0);
大宗进:=(超B)+(大B),NODRAW;
大宗出:=(超S)+(大S),NODRAW;
非大宗进:=(中B)+(小B),NODRAW;
非大宗出:=(中S)+(小S),NODRAW;
DAZHIV:=CONST(MAX(ABS(大宗进),MAX(ABS(大宗出),MAX(ABS(非大宗进),ABS(非大宗出))))),NODRAW;
DRAWRECTREL(0,CONST(950-(ABS(大宗进)*250/DAZHIV))-20,30,950,IF(CONST(大宗进 > 0),RGB(255,0,0),RGB(23,125,255)));
DRAWRECTREL(32,CONST(950-(ABS(大宗出)*250/DAZHIV))-20,62,950,IF(CONST(大宗出 > 0),RGB(23,125,255),RGB(255,0,0)));
DRAWRECTREL(92,CONST(950-(ABS(非大宗进)*250/DAZHIV))-20,122,950,IF(CONST(非大宗进 > 0),RGB(255,0,0),RGB(23,125,255)));
DRAWRECTREL(124,CONST(950-(ABS(非大宗出)*250/DAZHIV))-20,154,950,IF(CONST(非大宗出 > 0),RGB(23,125,255),RGB(255,0,0)));
DRAWTEXT_FIX(CURRBARSCOUNT=1,0.015,1,0,'主力进出'),COLORMAGENTA;
DRAWTEXT_FIX(CURRBARSCOUNT=1,0.107,1,0,'散户进出'),COLORCYAN;
DRAWTEXT_FIX(C > 0,0.40,0.770,0,'％１９．１');
DRAWTEXT_FIX(C > 0,0.40,0.580,0,'％３８．２');
DRAWTEXT_FIX(C > 0,0.40,0.466,0,'％５０．０');
DRAWTEXT_FIX(C > 0,0.40,0.352,0,'％６１．８');
DRAWTEXT_FIX(C > 0,0.40,0.166,0,'％８０．９');
|
