DRAWGBK(C>0,RGB(0,0,110),RGB(0,25,0),0,' ',0);
总涨幅:(H-LLV(L,180))/LLV(L,180)*100,NODRAW,COLORYELLOW;
XY_1:=SUM((WINNER(C)*100),30)/30*0.1;
XY_2:=SUM((WINNER(C)*100),20)/20*0.4;
XY_3:=SUM((WINNER(C)*100),10)/10*0.3;
XY_4:=SUM((WINNER(C)*100),5)/5*0.1;
XY_5:=SUM((WINNER(C)*100),3)/3*0.1;
XY_Z:=XY_1+XY_2+XY_3+XY_4+XY_5;
赚钱效应:IF(XY_Z>38,XY_Z,XY_Z*1.3),NODRAW;
活跃度:IF(SUMBARS(VOL,CAPITAL)<100,100-SUMBARS(VOL,CAPITAL),1),NODRAW;
Z1:=STRCAT(HYBLOCK,' ');
Z2:=STRCAT(Z1,DYBLOCK);
Z3:=STRCAT(Z2,' ');
DRAWTEXT_FIX(ISLASTBAR,0,0.12,0,STRCAT(Z3,GNBLOCK)),COLORLIMAGENTA;
DRAWKLINE(H,O,L,C);
获利筹码:IF(WINNER(CLOSE),WINNER(CLOSE)*100,0),NODRAW;
{筹码峰}
{STICKLINE(ISLASTBAR,HHV(C,5),HHV(C,5),50,1)COLORBBBBBB;
STICKLINE(ISLASTBAR,HHV(C,5)*0.95,HHV(C,5)*0.95,50,1)COLORBBBBBB;}
{MA5:MA(CLOSE,5),COLORWHITE,LINETHICK1;
MA10:MA(CLOSE,10),COLORGREEN,LINETHICK1;
MA20:MA(CLOSE,20),COLORLIBLUE,LINETHICK1;
MA30:MA(CLOSE,30),COLORLIRED,LINETHICK1;
MA60:MA(CLOSE,60),COLORMAGENTA,LINETHICK1;
MA120:MA(CLOSE,120),COLORLIMAGENTA,LINETHICK1{,DOTLINE;}
HB:=COST(99.9);
LB:=COST(0.1);
B3:=(HB-LB)/50;
B31:=HB-B3;
B32:=HB-2*B3;
B33:=HB-3*B3;
B34:=HB-4*B3;
B35:=HB-5*B3;
B36:=HB-6*B3;
B37:=HB-7*B3;
B38:=HB-8*B3;
B39:=HB-9*B3;
B310:=HB-10*B3;
B311:=HB-11*B3;
B312:=HB-12*B3;
B313:=HB-13*B3;
B314:=HB-14*B3;
B315:=HB-15*B3;
B316:=HB-16*B3;
B317:=HB-17*B3;
B318:=HB-18*B3;
B319:=HB-19*B3;
B320:=HB-20*B3;
B321:=HB-21*B3;
B322:=HB-22*B3;
B323:=HB-23*B3;
B324:=HB-24*B3;
B325:=HB-25*B3;
B326:=HB-26*B3;
B327:=HB-27*B3;
B328:=HB-28*B3;
B329:=HB-29*B3;
B330:=HB-30*B3;
B331:=HB-31*B3;
B332:=HB-32*B3;
B333:=HB-33*B3;
B334:=HB-34*B3;
B335:=HB-35*B3;
B336:=HB-36*B3;
B337:=HB-37*B3;
B338:=HB-38*B3;
B339:=HB-39*B3;
B340:=HB-40*B3;
B341:=HB-41*B3;
B342:=HB-42*B3;
B343:=HB-43*B3;
B344:=HB-44*B3;
B345:=HB-45*B3;
B346:=HB-46*B3;
B347:=HB-47*B3;
B348:=HB-48*B3;
B349:=HB-49*B3;
A1:=WINNER(HB)*100-WINNER(B31)*100;
A2:=WINNER(B31)*100-WINNER(B32)*100;
A3:=WINNER(B32)*100-WINNER(B33)*100;
A4:=WINNER(B33)*100-WINNER(B34)*100;
A5:=WINNER(B34)*100-WINNER(B35)*100;
A6:=WINNER(B35)*100-WINNER(B36)*100;
A7:=WINNER(B36)*100-WINNER(B37)*100;
A8:=WINNER(B37)*100-WINNER(B38)*100;
A9:=WINNER(B38)*100-WINNER(B39)*100;
A10:=WINNER(B39)*100-WINNER(B310)*100;
A11:=WINNER(B310)*100-WINNER(B311)*100;
A12:=WINNER(B311)*100-WINNER(B312)*100;
A13:=WINNER(B312)*100-WINNER(B313)*100;
A14:=WINNER(B313)*100-WINNER(B314)*100;
A15:=WINNER(B314)*100-WINNER(B315)*100;
A16:=WINNER(B315)*100-WINNER(B316)*100;
A17:=WINNER(B316)*100-WINNER(B317)*100;
A18:=WINNER(B317)*100-WINNER(B318)*100;
A19:=WINNER(B318)*100-WINNER(B319)*100;
A20:=WINNER(B319)*100-WINNER(B320)*100;
A21:=WINNER(B320)*100-WINNER(B321)*100;
A22:=WINNER(B321)*100-WINNER(B322)*100;
A23:=WINNER(B322)*100-WINNER(B323)*100;
A24:=WINNER(B323)*100-WINNER(B324)*100;
A25:=WINNER(B324)*100-WINNER(B325)*100;
A26:=WINNER(B325)*100-WINNER(B326)*100;
A27:=WINNER(B326)*100-WINNER(B327)*100;
A28:=WINNER(B327)*100-WINNER(B328)*100;
A29:=WINNER(B328)*100-WINNER(B329)*100;
A30:=WINNER(B329)*100-WINNER(B330)*100;
A31:=WINNER(B330)*100-WINNER(B331)*100;
A32:=WINNER(B331)*100-WINNER(B332)*100;
A33:=WINNER(B332)*100-WINNER(B333)*100;
A34:=WINNER(B333)*100-WINNER(B334)*100;
A35:=WINNER(B334)*100-WINNER(B335)*100;
A36:=WINNER(B335)*100-WINNER(B336)*100;
A37:=WINNER(B336)*100-WINNER(B337)*100;
A38:=WINNER(B337)*100-WINNER(B338)*100;
A39:=WINNER(B338)*100-WINNER(B339)*100;
A40:=WINNER(B339)*100-WINNER(B340)*100;
A41:=WINNER(B340)*100-WINNER(B341)*100;
A42:=WINNER(B341)*100-WINNER(B342)*100;
A43:=WINNER(B342)*100-WINNER(B343)*100;
A44:=WINNER(B343)*100-WINNER(B344)*100;
A45:=WINNER(B344)*100-WINNER(B345)*100;
A46:=WINNER(B345)*100-WINNER(B346)*100;
A47:=WINNER(B346)*100-WINNER(B347)*100;
A48:=WINNER(B347)*100-WINNER(B348)*100;
A49:=WINNER(B348)*100-WINNER(B349)*100;
A50:=WINNER(B349)*100-WINNER(LB)*100;
MAX1:=MAX(MAX(MAX(MAX(MAX(MAX(MAX(MAX(MAX(A1,A2),A3),A4),A5),A6),A7),A8),A9),A10);
MAX2:=MAX(MAX(MAX(MAX(MAX(MAX(MAX(MAX(MAX(A11,A12),A13),A14),A15),A16),A17),A18),A19),A20);
MAX3:=MAX(MAX(MAX(MAX(MAX(MAX(MAX(MAX(MAX(A21,A22),A23),A24),A25),A26),A27),A28),A29),A30);
MAX4:=MAX(MAX(MAX(MAX(MAX(MAX(MAX(MAX(MAX(A31,A32),A33),A34),A35),A36),A37),A38),A39),A40);
MAX5:=MAX(MAX(MAX(MAX(MAX(MAX(MAX(MAX(MAX(A41,A42),A43),A44),A45),A46),A47),A48),A49),A50);
MX6:=MAX(MAX(MAX(MAX(MAX1,MAX2),MAX3),MAX4),MAX5);
筹码峰:=IF(MX6=A1,HB,IF(MX6=A2,B31,IF(MX6=A3,B32,IF(MX6=A4,B33,IF(MX6=A5,B34,IF(MX6=A6,B35,IF(MX6=A7,B36,IF(MX6=A8,B37,IF(MX6=A9,B38,IF(MX6=A10,B39, IF(MX6=A11,B310,IF(MX6=A12,B311,IF(MX6=A13,B312,IF(MX6=A14,B313,IF(MX6=A15,B314,IF(MX6=A16,B315,IF(MX6=A17,B316,IF(MX6=A18,B317,IF(MX6=A19,B318,IF(MX6=A20,B319, IF(MX6=A21,B320,IF(MX6=A22,B321,IF(MX6=A23,B322,IF(MX6=A24,B323,IF(MX6=A25,B324,IF(MX6=A26,B325,IF(MX6=A27,B326,IF(MX6=A28,B327,IF(MX6=A29,B328,IF(MX6=A30,B329, IF(MX6=A31,B330,IF(MX6=A32,B331,IF(MX6=A33,B332,IF(MX6=A34,B333,IF(MX6=A35,B334,IF(MX6=A36,B335,IF(MX6=A37,B336,IF(MX6=A38,B337,IF(MX6=A39,B338,IF(MX6=A40,B339, IF(MX6=A41,B340,IF(MX6=A42,B341,IF(MX6=A43,B342,IF(MX6=A44,B343,IF(MX6=A45,B344,IF(MX6=A46,B345,IF(MX6=A47,B346,IF(MX6=A48,B347,IF(MX6=A49,B348,IF(MX6=A50,B349,LB)))))))))))))))))))))))))))))))))))))))))))))))))),LINETHICK4,COLORRED;
N11:=2,200,13;
UR00:=2,200,6;
LR0:=2,200,6;
TC01:=IF(H=HHV(H,8*UR00),H,DRAWNULL);
TC02:=CONST(BARSLAST(TC01=H))+1;
UPPER:=CONST(IF(TC02=1,H,REF(H,TC02-1)));
BC1:=IF(L=LLV(L,8*LR0),L,DRAWNULL);
BC2:=CONST(BARSLAST(BC1=L))+1;
LOWER:=CONST(IF(BC2=1,L,REF(L,BC2-1)));
LP:=CURRBARSCOUNT<=BC2 AND L=LOWER;{低点定位}
HP:=CURRBARSCOUNT<=TC02 AND H=UPPER;{高点定位}
NOD:=(IF(TC02>BC2,TC02,BC2)-IF(TC02>BC2,BC2,TC02));{用时}
LR1:=FORCAST(C,NOD+1);
NP:=IF(CURRBARSCOUNT<=MAX(BC2,TC02),CONST(IF(MIN(TC02,BC2)=1,LR1,REF(LR1,MIN(TC02,BC2)-1))),DRAWNULL),POINTDOT,COLORRED;{近点}
LR2:=SLOPE(C,NOD+1);
LR3:=CONST(IF(MIN(TC02,BC2)=1,LR2,REF(LR2,MIN(TC02,BC2)-1)));
FP:=NP-LR3*(NOD),POINTDOT,COLORYELLOW;{远点}
EQU:=(NP+FP)/2,POINTDOT,COLORWHITE;
AD:=ABS(NP-FP);{高差};
DBL:=BARSLAST(BC1!=DRAWNULL)+1;
DBH:=BARSLAST(TC01!=DRAWNULL)+1;
BSP:=IF(BC2>TC02,DBL,DBH)-1;
LRL:=IF(NP>FP,FP+AD/NOD*BSP,FP-AD/NOD*BSP);
AT1:=IF(BETWEEN(CURRBARSCOUNT,BC2,TC02) AND H>LRL,H,LRL);
AT2:=HHV(AT1-LRL,MAX(BC2,TC02));
AT3:=CONST(BARSLAST(AT1-LRL=AT2));
AT4:=CONST(IF(AT3=0,H,REF(H,AT3)));
AT5:=CONST(IF(AT3=0,AT1-LRL,REF(AT1-LRL,AT3)));
ATL:=LRL+AT5;
UT1:=IF(BETWEEN(CURRBARSCOUNT,BC2,TC02) AND L<LRL,L,LRL);
UT2:=HHV(LRL-UT1,MAX(BC2,TC02));
UT3:=CONST(BARSLAST(LRL-UT1=UT2));
UT4:=CONST(IF(UT3=0,H,REF(H,UT3)));
UT5:=CONST(IF(UT3=0,LRL-UT1,REF(LRL-UT1,UT3)));
UTL:=LRL-UT5;
RH:=IF(CURRBARSCOUNT>=MIN(BC2,TC02)-10,ATL,CONST(REF(ATL,MIN(BC2,TC02)-11)));{限制高}
RL:=IF(CURRBARSCOUNT>=MIN(BC2,TC02)-10,UTL,CONST(REF(UTL,MIN(BC2,TC02)-11)));{限制低}
中轨:=IF(NP>FP,IF(LRL<=RH,LRL,DRAWNULL),IF(LRL>=RL,LRL,DRAWNULL)),COLORBBBBBB;
上轨:IF(NP>FP,IF(ATL<=RH,ATL,DRAWNULL),IF(ATL>=RL,ATL,DRAWNULL)),COLORBLUE;
下轨:IF(NP>FP,IF(UTL<=RH,UTL,DRAWNULL),IF(UTL>=RL,UTL,DRAWNULL)),COLORLIMAGENTA;
峰值:STICKLINE(ISLASTBAR,筹码峰,筹码峰,280,0)COLORLIGRAY;
STICKLINE(ISLASTBAR,筹码峰*0.95,筹码峰*0.95,180,1)COLORYELLOW;
STICKLINE(ISLASTBAR,筹码峰*1.05,筹码峰*1.05,180,1)COLORYELLOW;
{DRAWNUMBER(CURRBARSCOUNT=1 AND PERIOD=5,筹码峰, 筹码峰),DRAWABOVE COLORLIGRAY;}
{公式平台GSPTCOM}
JRH:=HHV(C,2);
JRL:=LLV(C,2);
MA3:=MA(CLOSE,3);
YTSL:=(3*CLOSE+LOW+OPEN+HIGH)/6;
GSPT1:=(CLOSE>REF(CLOSE,1) AND CLOSE>REF(CLOSE,2));
GSPT2:=(REF(GSPT1,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2));
GSPT3:=(REF(GSPT2,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2));
GSPT4:=(REF(GSPT3,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2));
GSPT5:=(REF(GSPT4,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2));
GSPT6:=(REF(GSPT5,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2));
GSPT7:=(REF(GSPT6,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2));
GSPT8:=(REF(GSPT7,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2));
GSPT9:=(REF(GSPT8,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2));
GSPTA:=(REF(GSPT9,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2));
GSPTB:=(REF(GSPTA,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2));
GSPTC:=(REF(GSPTB,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2));
GSPTD:=(CLOSE<REF(CLOSE,1) AND CLOSE<REF(CLOSE,2));
GSPTE:=(REF(GSPTD,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2));
GSPTF:=(REF(GSPTE,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2));
GSPT10:=(REF(GSPTF,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2));
GSPT11:=(REF(GSPT10,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2));
GSPT12:=(REF(GSPT11,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2));
GSPT13:=(REF(GSPT12,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2));
GSPT14:=(REF(GSPT13,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2));
GSPT15:=(REF(GSPT14,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2));
GSPT16:=(REF(GSPT15,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2));
GSPT17:=(REF(GSPT16,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2));
GSPT18:=(REF(GSPT17,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2));
GSPT19:=((REF(GSPTD OR GSPTE OR GSPTF OR GSPT10 OR GSPT11 OR GSPT12 OR GSPT13 OR GSPT14 OR GSPT15 OR GSPT16 OR GSPT17 OR GSPT18,1)) AND GSPT1);
GSPT1A:=((REF(GSPT1 OR GSPT2 OR GSPT3 OR GSPT4 OR GSPT5 OR GSPT6 OR GSPT7 OR GSPT8 OR GSPT9 OR GSPTA OR GSPTB OR GSPTC,1)) AND GSPTD);
红色持股:=GSPT1 OR GSPT2 OR GSPT3 OR GSPT4 OR GSPT5 OR GSPT6 OR GSPT7 OR GSPT8 OR GSPT9 OR GSPTA OR GSPTB OR GSPTC,COLOR0000FF,NODRAW;
机构离场:=IF(红色持股,JRL,DRAWNULL);
明离场价:=机构离场,COLORFF99FF,NODRAW;
今离场价:=REF(机构离场,1)COLOR0000FF,NODRAW;
青色观望:=GSPTD OR GSPTE OR GSPTF OR GSPT10 OR GSPT11 OR GSPT12 OR GSPT13 OR GSPT14 OR GSPT15 OR GSPT16 OR GSPT17 OR GSPT18,COLORFFFF00,NODRAW;
进:=IF(青色观望,JRH,DRAWNULL);
明进场价:=进,COLOR33AACC,NODRAW;
今进场价:=REF(明进场价,1),COLORFF0000,NODRAW;
机构短买:=GSPT19,COLOR33AACC,NODRAW;
品红离场:=GSPT1A,COLORFF99FF,NODRAW;
急速超跌:=(CLOSE-MA(CLOSE,34))/MA(CLOSE,34)*100<-14,COLORFFFFFF,NODRAW;
辰星线:=(20*YTSL+19*REF(YTSL,1)+18*REF(YTSL,2)+17*REF(YTSL,3)+16*REF(YTSL,4)+15*REF(YTSL,5)+14*REF(YTSL,6)+13*REF(YTSL,7)+12*REF(YTSL,8)+11*REF(YTSL,9)+10*REF(YTSL,10)+9*REF(YTSL,11)+8*REF(YTSL,12)+7*REF(YTSL,13)+6*REF(YTSL,14)+5*REF(YTSL,15)+4*REF(YTSL,16)+3*REF(YTSL,17)+2*REF(YTSL,18)+REF(YTSL,20))/211,COLOR0000FF;
牵牛线:=MA(CLOSE,26),COLORFF00FF;
等待:=IF(MA3>辰星线,辰星线,MA3);
STICKLINE(C>=O,L,H,0,0),COLOR0000CC;
STICKLINE(C<O,L,H,0,0),COLOR999900;
STICKLINE(1,C,O,3.5,0),COLOR858500;
STICKLINE(C>=O,C,O,3.5,0),COLOR0000E5;
STICKLINE(红色持股,CLOSE,O,2.8,0),COLOR000055;
STICKLINE(红色持股,CLOSE,O,2,0),COLOR000088;
STICKLINE(红色持股,CLOSE,O,1.5,0),COLOR0000AA;
STICKLINE(红色持股,CLOSE,O,1,0),COLOR0000CC;
STICKLINE(红色持股,CLOSE,O,0.5,0),COLOR0000EE;
STICKLINE(青色观望,CLOSE,O,2.8,0),COLOR555500;
STICKLINE(青色观望,CLOSE,O,2,0),COLOR888800;
STICKLINE(青色观望,CLOSE,O,1.5,0),COLORAAAA00;
STICKLINE(青色观望,CLOSE,O,1,0),COLORCCCC00;
STICKLINE(青色观望,CLOSE,O,0.5,0),COLOREEEE00;
CO:=(C-O);
STICKLINE(急速超跌,O,C-CO/2,2.8,0),COLOR555555;
STICKLINE(急速超跌,O,C-CO/2,2,0),COLOR888888;
STICKLINE(急速超跌,O,C-CO/2,1.5,0),COLORAAAAAA;
STICKLINE(急速超跌,O,C-CO/2,1,0),COLORCCCCCC;
STICKLINE(急速超跌,O,C-CO/2,0.5,0),COLOREEEEEE;
STICKLINE(机构短买,O,O+CO/3,2.8,0),COLOR335555;
STICKLINE(机构短买,O,O+CO/3,2,0),COLOR338888;
STICKLINE(机构短买,O,O+CO/3,1.5,0),COLOR33AAAA;
STICKLINE(机构短买,O,O+CO/3,1,0),COLOR33CCCC;
STICKLINE(机构短买,O,O+CO/3,0,0),COLOR33EEEE;
STICKLINE(品红离场,O,O+CO/3,2.8,0),COLOR550055;
STICKLINE(品红离场,O,O+CO/3,2,0),COLOR880088;
STICKLINE(品红离场,O,O+CO/3,1.5,0),COLORAA00AA;
STICKLINE(品红离场,O,O+CO/3,1,0),COLORCC00CC;
STICKLINE(品红离场,O,O+CO/3,0.5,0),COLOREE00EE;
均价线:=AMOUNT/V/100;
C2:=REF(C,1);
涨停:=IF(REF(C,1)*1.1-C<0.01 ,1,0);
STICKLINE(涨停,OPEN,CLOSE,3,0),COLORRED;
STICKLINE(涨停,OPEN,CLOSE,2.5,0),COLORYELLOW;
STICKLINE(涨停,H,L,0,0),COLORYELLOW;
高30:REFDATE(HHV(H,30),DATE),COLORLIGRAY;
底30:REFDATE(LLV(L,30),DATE),COLORLIGRAY;
XA1:=IF(DATE<99999999,1,DRAWNULL);
MID:=(3*CLOSE+LOW+OPEN+HIGH)/6;
MXD:=IF((DATETODAY(DATE))<99999999,1,DRAWNULL);
WH1:=IF(L=LLV(L,9),L,0)*MXD;
WH2:=CONST(BARSLAST(WH1!=0))*MXD;
WH3:=CONST(IF(WH2=0,H,REF(H,WH2)))*MXD;
WH4:=CONST(REF(BARSLAST(H>WH3),WH2+1)+WH2+1)*MXD;
WH5:=CONST(IF(WH4=0,H,REF(H,WH4)))*MXD;
WH6:=CONST(REF(BARSLAST(H>WH5),WH4+1)+WH4+1)*MXD;
WH7:IF(CURRBARSCOUNT<=WH2+10,CONST(IF(WH6=0,H,REF(H,WH6))),DRAWNULL)*MXD,COLORYELLOW,DOTLINE;
DRAWTEXT(ISLASTBAR,WH7,'')*XA1,COLORYELLOW;{进场线}
AH:=HHV(H,60);
AL:=LLV(L,60);
A0:=(AH-AL)/21;
{九转}
A01:=C>REF(C,4);
NT:=BARSLASTCOUNT(A01);
TJ11:=NT=9;
TJ13:=ISLASTBAR AND BETWEEN(NT,5,8);
AY:=(BACKSET(TJ11>0,9) OR BACKSET(TJ13>0,NT))*NT;
DRAWTEXT(AY>0,H+1.1*A0,VAR2STR(AY,0)),COLORYELLOW;
DRAWTEXT(NT=9,H+1.1*A0,'9'),COLORGREEN;
DRAWTEXT(NT=13,H+1.1*A0,'13'),COLORGREEN;
DRAWTEXT(NT=18,H+1.1*A0,'18'),COLORGREEN;
B1:=C<REF(C,4);
NT0:=BARSLASTCOUNT(B1);
TJ21:=NT0=9 ;
TJ23:=ISLASTBAR AND BETWEEN(NT0,5,8);
AY1:=(BACKSET(TJ21>0,9) OR BACKSET(TJ23>0,NT0))*NT0;
DRAWTEXT(AY1>0,L-1*A0,VAR2STR(AY1,0)),COLORLIGREEN;
DRAWTEXT(NT0=9,H+1.1*A0,'9'),COLORYELLOW;
DRAWTEXT(NT0=13,H+1.1*A0,'13'),COLORYELLOW;
DRAWTEXT(NT0=18,H+1.1*A0,'18'),COLORYELLOW;
ZF:=(C-REF(C,1))/REF(C,1)*100;
假阳线:=C>O AND ZF<0 AND O<REF(L,1);
STICKLINE(假阳线,O,C,0.5,0),COLORMAGENTA;
系统最高价:REFDATE(HHV(H,92.99),DATE),DOTLINE,COLORGREEN;
系统最低价:REFDATE(LLV(L,92.99),DATE),DOTLINE,COLORRED;
{GD:=CONST(FINDHIGH(H,0,系统最高价*30,1));}
GG:=REFDATE(HHV(H,92.99),DATE)COLORWHITE,NODRAW;
DD:=REFDATE(LLV(L,92.99),DATE)COLORWHITE,NODRAW;
GT:=CONST(BARSLAST(GG=H))+1;
DT:=CONST(BARSLAST(DD=L))+1;
DRAWTEXT(CURRBARSCOUNT=DT,DD*0.99,STRCAT('',CON2STR(系统最低价,2))),COLORWHITE;
DRAWTEXT(CURRBARSCOUNT=GT,GG*1.01,STRCAT('',CON2STR(系统最高价,2))),COLORWHITE;
{分析}
VA1:=REF((LOW+OPEN+CLOSE+HIGH)/4,1);
VA2:=SMA(ABS(LOW-VA1),13,1)/SMA(MAX(LOW-VA1,0),10,1);
VA3:=EMA(VA2,10)/100;
VA04:=LLV(LOW,33);
VA5:=EMA(IF(LOW<=VA04,VA3,0),3);
洗盘1:=IF(VA5<REF(VA5,1),VA5,0),COLORGREEN,NODRAW;
拉升:=IF(VA5>REF(VA5,1) ,VA5,0),COLORRED,NODRAW;
VA6:=IF(VA5>=100,100,VA5);
XP:=REF(洗盘1,1);
LS:=拉升;
XPLS:=(XP AND LS);
VR3:=(CLOSE+HIGH+LOW)/3;
VR4:=EMA(VR3,10);
VR5:=REF(VR4,1);
主力线:=3*SMA((CLOSE-LLV(LOW,27))/(HHV(HIGH,27)-LLV(LOW,27))*100,5,1)-2*
SMA(SMA((CLOSE-LLV(LOW,27))/(HHV(HIGH,27)-LLV(LOW,27))*100,5,1),3,1),LINETHICK1,POINTDOT;
GSPT03:=MA(CLOSE,13);
GSPT04:=(100-ABS((CLOSE-GSPT03)/GSPT03*100))/100;
GSPT05:=LLV(LOW,75);
GSPT06:=HHV(HIGH,75);
GSPT07:=(GSPT06-GSPT05)/100;
GSPT08:=SMA((CLOSE-GSPT05)/GSPT07,20,1);
GSPT0A:=3*GSPT08-2*SMA(GSPT08,15,1);
吸筹A:=(100-GSPT0A)/100,COLOR0099FF,LINETHICK2;
吸筹:=IF(吸筹A>1.09*REF(吸筹A,1),1,0),COLORRED,NODRAW;
大底:=EXIST(CROSS( 吸筹A,1),6),NODRAW,COLORMAGENTA;
GSPT0D:=吸筹A>GSPT04;
差:=吸筹A-GSPT04,COLORYELLOW,NODRAW;
JX:=(MA(C,10)*30+MA(C,30)*10+MA(C,60)*5+MA(C,120)*3)/(3+5+10+30);
JXMA:=MA(JX,10);
GSPT200:=(CLOSE-LLV(LOW,20))/(HHV(HIGH,20)-LLV(LOW,20))*100;
GSPT300:=SMA(SMA(GSPT200,3,1),3,1)/28.57;
GSPT400:=EMA(GSPT300,5);
操盘:=3*GSPT300-2*GSPT400;
A001:=CROSS(操盘,GSPT300) AND GSPT300<2.1 AND C>O;
GSPT0E:=REF(LOW,1)*0.9;
GSPT0F:=LOW*0.9;
GSPT011:=EMA(GSPT0F,30);
GSPT012:=CLOSE-REF(CLOSE,1);
GSPT013:=MAX(GSPT012,0);
GSPT014:=ABS(GSPT012);
GSPT015:=SMA(GSPT013,7,1)/SMA(GSPT014,7,1)*100;
GSPT016:=SMA(GSPT013,13,1)/SMA(GSPT014,13,1)*100;
GSPT017:=BARSCOUNT(CLOSE);
GSPT018:=SMA(MAX(GSPT012,0),6,1)/SMA(ABS(GSPT012),6,1)*100;
GSPT019:=(-200)*(HHV(HIGH,60)-CLOSE)/(HHV(HIGH,60)-LLV(LOW,60))+100;
GSPT01A:=(CLOSE-LLV(LOW,15))/(HHV(HIGH,15)-LLV(LOW,15))*100;
GSPT01B:=SMA((SMA(GSPT01A,4,1)-50)*2,3,1);
GSPT01C:=(INDEXC-LLV(INDEXL,14))/(HHV(INDEXH,14)-LLV(INDEXL,14))*100;
GSPT01D:=SMA(GSPT01C,4,1);
GSPT01E:=SMA(GSPT01D,3,1);
GSPT01F:=(HHV(HIGH,30)-CLOSE)/CLOSE*100;
GSPT020:=GSPT018<=25 AND GSPT019<-95 AND GSPT01F>20 AND GSPT01B<-30 AND GSPT01E<30 AND GSPT011-CLOSE>=-0.25 AND GSPT015<22 AND GSPT016<28 AND GSPT017>50;
GSPT61:=(HIGH+LOW)/2;
GSPT81:=LLV(LOW,35);
GSPTB01:=HHV(HIGH,35);
BB:=EMA((GSPT61-GSPT81)/(GSPTB01-GSPT81)*100,9);
金宝盆:=EMA(0.667*REF(BB,1)+0.333*BB,2),LINETHICK0;
GC3:=LLV(BB,198);
GC4:=HHV(BB,188);
CC0:=(BB-金宝盆<0.3)
AND (BB<25)AND (HIGH+LOW)/2<MA((HIGH+LOW)/2,13)*0.98 AND (HIGH+LOW)/2>REF((HIGH+LOW)/2,1);
DD0:=FILTER(CC0,10);
GG0:=(BB-金宝盆<0.6)AND (BB<30)AND (HIGH+LOW)/2<MA(C,13)*0.996 AND (HIGH+LOW)/2>REF((HIGH+LOW)/2,1);
HH:=FILTER(GG,10);
EE:=(BB-金宝盆>0.55)AND (BB>70) AND (HIGH+LOW)/2>MA((HIGH+LOW)/2,13)*0.96 AND (HIGH+LOW)/2<REF((HIGH+LOW)/2,1);
FF:=FILTER(EE,10);
DIFF1:=EMA(CLOSE,12)-EMA(CLOSE,26);
DEA1:=EMA(DIFF1,9);
买:=CROSS(DIFF1,DEA1),NODRAW;
DFQS:=7*SMA((CLOSE-LLV(LOW,27))/(HHV(HIGH,27)-LLV(LOW,27))*30,4,1)-3*SMA(SMA((CLOSE-LLV(LOW,27))/(HHV(HIGH,27)-LLV(LOW,27))*30,4,1),3,1)-SMA(SMA(SMA((CLOSE-LLV(LOW,27))/(HHV(HIGH,27)-LLV(LOW,27))*30,4,1),3,1),2,1);
TX:=78.89;
GSPT301:=3*SMA((C-LLV(L,55))/(HHV(H,55)-LLV(L,55))*100,5,1)-2*SMA
(SMA((C-LLV(L,55))/(HHV(H,55)-LLV(L,55))*100,5,1),3,1);
趋势:=EMA(GSPT301,3)-10,COLORFF0000;
A013:=CROSS(趋势,0);
OK:=REF(CLOSE,1);
RSI1:=SMA(MAX(CLOSE-OK,0),7,1)/SMA(ABS(CLOSE-OK),7,1)*100,COLORWHITE;
RSI2:=SMA(MAX(CLOSE-OK,0),7,1)/SMA(ABS(CLOSE-OK),7,1)*100,COLORWHITE;
鱼:=SMA(MAX(CLOSE-OK,0),7,1)/SMA(ABS(CLOSE-OK),7,1)*100,COLORRED,DOTLINE;
RSI4:=SMA(鱼,7,1),LINETHICK1,COLORWHITE;
趋势A:=MA(((CLOSE-LLV(LOW,48))/(HHV(HIGH,48)-LLV(LOW,48))*50),17)+9,COLORFFFFFF;
趋势B:=MA(((CLOSE-LLV(LOW,53))/(HHV(HIGH,53)-LLV(LOW,53))*50),17)+9,COLOR3377DD;
AZ1:=MA(趋势A,7)*1.372,COLORGREEN,LINETHICK1;
AZ2:=AZ1*1.0887;
AZ3:=(1.5*(趋势B+RSI4)-(AZ2+AZ1))+12,COLORGREEN,LINETHICK1,DOTLINE;
鱼网:=IF((CROSS(RSI2,RSI4) OR CROSS(RSI2,AZ3) AND AZ3<38 AND RSI1<51),18,0),COLORYELLOW,LINETHICK2;
买入:=IF(EXIST(鱼网=18,8)AND 鱼>45 AND 鱼>REF( 鱼,2),1,0),COLORMAGENTA,,LINETHICK3;
A011:=3*EMA((C-LLV(L,30))/(HHV(H,30)-LLV(L,30))*100,5)-2*EMA((C-LLV(L,30))/(HHV(H,30)-LLV(L,30))*100,5);
A014:=EMA(A011,5);
A015:=(HHV(H,34)-C)/(HHV(H,34)-LLV(L,34))*100;
DIFF := EMA(CLOSE,12) - EMA(CLOSE,26);
DEA :=EMA(DIFF,9);
基础:=(DIFF<-0.1 AND DIFF>DEA);
中线买入:=(CROSS(A011,A014)AND (A015-A014)>40 AND 基础 OR 买入)AND VR4>=VR5 ;
买多: ( (XPLS OR 中线买入 OR 大底 OR A01 OR 买入 OR 买 OR A013) OR VR4>=VR5),NODRAW,COLORRED;
DRAWTEXT_FIX( ISLASTBAR AND 买多 ,0.25,0.0,0,'买多'),COLORRED;
买空: ( (FILTER(GC4>REF(GC4,1),10) OR DD OR FILTER(CROSS(TX,DFQS),10)) OR VR4<VR5),NODRAW,COLORCYAN;
DRAWTEXT_FIX( ISLASTBAR AND 买空 ,0.25,0.0,0,'买空'),COLORLIGREEN;
ZLCM:=EMA(WINNER(CLOSE)*70,3);
SHCM:=EMA((WINNER(CLOSE*1.1)-WINNER(CLOSE*0.9))*80,3);
ZSHTL:=SHCM/(ZLCM+SHCM)*100;
ZZLKP:=ZLCM/(ZLCM+SHCM)*100;
ZCMZL:=MA(ZLCM+SHCM,13);
ZZNTS:=BARSLAST(ZSHTL<90 AND REF(ZSHTL,1)>90);
ZSHJJ:=EMA(ZSHTL,89);
ZZLJJ:=EMA(ZZLKP,89);
DKB:=IF(ZZLKP-REF(ZZLKP,1)>ZSHTL-REF(ZSHTL,1),1,0);
RSVB:=(CLOSE-LLV(LOW,15))/(HHV(HIGH,15)-LLV(LOW,15))*100;
KK1:=SMA(RSVB,10,1);
D1:=SMA(KK1,5,1);
KK:=INTPART(KK1);
DDB:=INTPART(D1);
TFXXS:=KK+DDB;
T1:=CONST( ZCMZL>REF(ZCMZL,1) AND DKB=1);
T2:=CONST( ZCMZL>REF(ZCMZL,1) AND DKB=0);
T3:=CONST( ZCMZL=REF(ZCMZL,1));
T4:=CONST( ZCMZL<REF(ZCMZL,1) AND DKB=1);
T5:=CONST( ZCMZL<REF(ZCMZL,1) AND DKB=0);
T6:=CONST(TFXXS<=50 );
T7:=CONST(TFXXS>=160 );
T8:=CONST(TFXXS>50 AND TFXXS<160 AND TFXXS>=REF(TFXXS,1) AND TFXXS<=100 );
T9:=CONST( TFXXS>50 AND TFXXS<160 AND TFXXS>=REF(TFXXS,1) AND TFXXS>100);
T10:=CONST(TFXXS>50 AND TFXXS<160 AND TFXXS<REF(TFXXS,1) AND TFXXS>100 );
T11:=CONST(TFXXS>50 AND TFXXS<160 AND TFXXS<REF(TFXXS,1) AND TFXXS<=100 );
T12:=CONST( ZSHTL>90 );
T13:=CONST( ZZLKP>75 );
T14:=CONST(CROSS(ZCMZL,ZZLJJ) AND ZZLKP>ZZLJJ AND ZZLKP>10 AND ZZLJJ>REF(ZZLJJ,1) AND ZCMZL>REF(ZCMZL,1) );
T15:=CONST(CROSS(ZCMZL,ZZLKP) AND ZZLKP>ZZLJJ AND ZZLKP<ZSHTL AND ZZLKP>10 AND ZZLJJ>REF(ZZLJJ,1) AND ZCMZL>REF(ZCMZL,1) );
T16:=CONST( CROSS(ZCMZL,ZSHTL) AND ZSHTL>ZZLKP AND ZCMZL>REF(ZCMZL,1));
T17:=CONST( CROSS(ZCMZL,100) AND ZCMZL>REF(ZCMZL,1));
T18:=CONST(REF(ZSHTL,1)>90 AND ZSHTL<90 );
TS1:=IF(T1=1,0+0.03,0);
TS2:=IF(T2=1,TS1+0.03,TS1);
TS3:=IF(T3=1,TS2+0.03,TS2);
TS4:=IF(T4=1,TS3+0.03,TS3);
TS5:=IF(T5=1,TS4+0.03,TS4);
TS6:=IF(T6=1,0+0.73,0);
TS7:=IF(T7=1,TS6+0.03,TS6);
TS8:=IF(T8=1,TS7+0.03,TS7);
TS9:=IF(T9=1,TS8+0.03,TS8);
TS10:=IF(T10=1,TS9+0.03,TS9);
TS11:=IF(T11=1,TS10+0.03,TS10);
TS12:=IF(T12,0+0.03,0);
TS13:=IF(T13=1,TS12+0.03,TS12);
TS14:=IF(T14=1,TS13+0.03,TS13);
TS15:=IF(T15=1,TS14+0.03,TS14);
TS16:=IF(T16=1,TS15+0.03,TS15);
TS17:=IF(T17=1,TS16+0.03,TS16);
TS18:=IF(T8=1,TS17+0.03,TS17);
DRAWTEXT_FIX(T1 ,0.63,0,0,'监控:主力增仓'),COLOR8080FF;
DRAWTEXT_FIX(T2 ,0.63,0,0,'监控:主力减仓'),COLORFFFF00;
DRAWTEXT_FIX(T3 ,0.63,0,0,'监控:多空平衡'),COLORGRAY;
DRAWTEXT_FIX(T4 ,0.63,0,0,'监控:主力回补'),COLORFF9933;
DRAWTEXT_FIX(T5 ,0.65,0,0,'监控:主力出逃'),COLORFFFF00;
DRAWTEXT_FIX(T6 ,0.4,0,0,'操作:买入风险'),COLORYELLOW;
DRAWTEXT_FIX(T7 ,0.4,0,0,'操作:卖出风险'),COLORFFFF00;
DRAWTEXT_FIX(T8 ,0.4,0,0,'操作:追涨博弈'),COLOR8080FF;
DRAWTEXT_FIX(T9 ,0.4,0,0,'操作:稳健持股'),COLOR8080FF;
DRAWTEXT_FIX(T10 ,0.4,0,0,'操作:盘跌减仓'),COLORFFFF00;
DRAWTEXT_FIX(T11 ,0.4,0,0,'操作:杀跌空仓'),COLORFFFF00;
DRAWTEXT_FIX(T12,0.95,0,0,'提示:筑底散兵坑 '),COLOR66FFCC;
DRAWTEXT_FIX(T13,0.95,0,0,'提示:铸顶风险区'),COLORFFFF00;
DRAWTEXT_FIX(T14,0.95,0,0,'提示:穿越主力 '),COLOR8080FF;
DRAWTEXT_FIX(T15,0.95,0,0,'提示:穿越主力 '),COLORYELLOW;
DRAWTEXT_FIX(T16,0.95,0,0,'提示:穿越散户 '),COLORGREEN;
DRAWTEXT_FIX(T17,0.95,0,0,'提示:全盘穿越 '),COLOR3399FF;
DRAWTEXT_FIX(T18,0.95,0,0,'提示:神秘黑洞 '),COLOR9966FF;
DRAWTEXT_FIX(1,1,1,1,'~分析家公式网HTTP://WWW.70822.COM~'),COLOR333333;
PJ:=(H+L+C)/3;
V1:=IF(H=L,1,H-MAX(O,C));
V2:=IF(H=L,1,MAX(C,O)-PJ);
V3:=IF(H=L,1,MIN(O,C)-L);
V4:=IF(H=L,1,PJ-MIN(C,O));
V5:=VOL/IF(H=L,4,H-L);
V6:=(V1*V5)+(V2*V5);
V7:=(V3*V5)+(V4*V5);
WP1:=DYNAINFO(23);
NP1:=DYNAINFO(22);
WP2:=IF(ISLASTBAR,V7*240/FROMOPEN,V7);
NP2:=IF(ISLASTBAR,V6*240/FROMOPEN,V6);
主买:IF(ISLASTBAR AND PERIOD=5,WP1,WP2),COLORRED,NODRAW;
主卖:IF(ISLASTBAR AND PERIOD=5,NP1,NP2),COLORGREEN,NODRAW;
净量:=ABS(主买-主卖);
DRAWRECTREL(0,20,CONST(主买*300/(主买+主卖)),40,RGB(230,65,0));
DRAWRECTREL(0,50,CONST(主卖*300/(主买+主卖)),70,RGB(0,104,0));
{趋势评分}
X01:=IF(MA(C,5)>MA(C,10),20,0);
X02:=IF(MA(C,20)>MA(C,60),10,0);
X3:=IF(KDJ.J>KDJ.K,10,0);
X4:=IF(MACD.DIF>MACD.DEA,10,0);
X5:=IF(MACD.MACD>0,10,0);
X6:=IF(V>MA(V,60),10,0);
X7:=IF(WINNER(C)>0.5,10,0);
X8:=IF(C/REF(C,1)>1.03,10,0);
XX:=X01+X02+X3+X4+X5+X6+X7+X8;
DRAWTEXT_FIX(V>O,0,0.22,0,STRCAT('趋势评分:',STRCAT(CON2STR(XX,0),' '))),COLORYELLOW;
