DRAWGBK(C>0,RGB(100,10,0),RGB(0,10,70),0,1,0);
A1RTH_WZ:MA(C,3),COLORWHITE,LINETHICK3;
A1RTH_KL:MA(C,13),COLORYELLOW,LINETHICK3;
A1RTH_YU:MA(C,34),COLORRED,LINETHICK3;
IF(A1RTH_YU< REF(A1RTH_YU,1),A1RTH_YU,DRAWNULL),COLORGREEN,LINETHICK3;
STICKLINE(A1RTH_WZ>=A1RTH_KL AND A1RTH_YU>=REF(A1RTH_YU,1),H,L,0.4,0),COLOR0000DD;
gspt01:=GPJYVALUE(2,1,0)/1000;
gspt02:=GPJYVALUE(2,2,0)/1000;
gspt03:=(gspt01-gspt02);
gspt04:=10;
gspt05:=MA(CLOSE,5) DOTLINE;
gspt06:=FINANCE(42);
gspt07:=ZTPRICE(REF(C,1),0.1),NODRAW;
gspt08:=DTPRICE(REF(C,1),0.1),NODRAW;
gspt09:=ZTPRICE(REF(C,1),0.2),NODRAW;
gspt10:=DTPRICE(REF(C,1),0.2),NODRAW;
gspt11:=ZTPRICE(REF(C,1),0.05),NODRAW;
gspt12:=DTPRICE(REF(C,1),0.05),NODRAW;
gspt13:=NAMELIKE('ST') OR NAMELIKE('*ST'),NODRAW;
gspt14:=IF(CODELIKE('30'),1,0),NODRAW;
gspt15:=IF(CODELIKE('68'),1,0),NODRAW;
gspt16:=IF(gspt13 AND C=gspt11,1,0) + IF(gspt14 AND gspt13=0 AND C=gspt09,1,0) + IF(gspt15 AND C=gspt09,1,0) + IF(gspt13=0 AND gspt14=0 AND gspt15=0 AND C=gspt07,1,0),NODRAW;
gspt17:=IF(gspt13 AND C=gspt12,1,0) + IF(gspt14 AND gspt13=0 AND C=gspt10,1,0) + IF(gspt15 AND C=gspt10,1,0) + IF(gspt13=0 AND gspt14=0 AND gspt15=0 AND C=gspt08,1,0),NODRAW;
DRAWTEXT(gspt03>0 AND gspt03< 10000,LOW*0.986,''),COLORYELLOW;
DRAWTEXT(gspt03>0 AND gspt03< 10000,LOW*0.980,''),COLORYELLOW;
DRAWTEXT(gspt03>0 AND gspt03< 10000,LOW*0.976,''),COLORYELLOW;
DRAWTEXT(gspt03>0 AND gspt03< 10000,L*0.966,VARCAT('★ 龙虎榜:',VAR2STR(gspt03,2))),COLORYELLOW;
STICKLINE(A1RTH_WZ>=A1RTH_KL AND A1RTH_YU>=REF(A1RTH_YU,1) AND C>=O,O,C,3,1),COLOR000077;
STICKLINE(A1RTH_WZ>=A1RTH_KL AND A1RTH_YU>=REF(A1RTH_YU,1) AND C>=O,O,C,2.5,1),COLOR000099;
A1RTH_C9 := MA(VOL, 5);
STICKLINE(A1RTH_WZ>=A1RTH_KL AND A1RTH_YU>=REF(A1RTH_YU,1) AND C>=O,O,C,1.9,1),COLOR0000BB;
STICKLINE(A1RTH_WZ>=A1RTH_KL AND A1RTH_YU>=REF(A1RTH_YU,1) AND C>=O,O,C,1.2,1),COLOR0000DD;
STICKLINE(A1RTH_WZ>=A1RTH_KL AND A1RTH_YU>=REF(A1RTH_YU,1) AND C>=O,O,C,0.4,1),COLOR0000FF;
STICKLINE(A1RTH_WZ>=A1RTH_KL AND A1RTH_YU>=REF(A1RTH_YU,1) AND C< O,O,C,3,0),COLOR000077;
STICKLINE(A1RTH_WZ>=A1RTH_KL AND A1RTH_YU>=REF(A1RTH_YU,1) AND C< O,O,C,2.5,0),COLOR000099;
M2N6_U4N := HHV(HIGH, 52);
STICKLINE(A1RTH_WZ>=A1RTH_KL AND A1RTH_YU>=REF(A1RTH_YU,1) AND C< O,O,C,1.9,0),COLOR0000BB;
A1RTH_EK := 1;
STICKLINE(A1RTH_WZ>=A1RTH_KL AND A1RTH_YU>=REF(A1RTH_YU,1) AND C< O,O,C,1.2,0),COLOR0000DD;
STICKLINE(A1RTH_WZ>=A1RTH_KL AND A1RTH_YU>=REF(A1RTH_YU,1) AND C< O,O,C,0.4,0),COLOR0000FF;
STICKLINE(A1RTH_WZ< A1RTH_KL AND A1RTH_YU>=REF(A1RTH_YU,1),H,L,0.4,0),COLORFFBB00;
STICKLINE(A1RTH_WZ< A1RTH_KL AND A1RTH_YU>=REF(A1RTH_YU,1) AND C>=O,O,C,3,1),COLORFF3300;
STICKLINE(A1RTH_WZ< A1RTH_KL AND A1RTH_YU>=REF(A1RTH_YU,1) AND C>=O,O,C,2.5,1),COLORFF5500;
STICKLINE(A1RTH_WZ< A1RTH_KL AND A1RTH_YU>=REF(A1RTH_YU,1) AND C>=O,O,C,1.9,1),COLORFF7700;
STICKLINE(A1RTH_WZ< A1RTH_KL AND A1RTH_YU>=REF(A1RTH_YU,1) AND C>=O,O,C,1.2,1),COLORFF9900;
A1RTH_AI := OPEN - LOW;
STICKLINE(A1RTH_WZ< A1RTH_KL AND A1RTH_YU>=REF(A1RTH_YU,1) AND C>=O,O,C,0.4,1),COLORFFBB00;
STICKLINE(A1RTH_WZ< A1RTH_KL AND A1RTH_YU>=REF(A1RTH_YU,1) AND C< O,O,C,3,0),COLORFF1100;
STICKLINE(A1RTH_WZ< A1RTH_KL AND A1RTH_YU>=REF(A1RTH_YU,1) AND C< O,O,C,2.5,0),COLORFF3300;
STICKLINE(A1RTH_WZ< A1RTH_KL AND A1RTH_YU>=REF(A1RTH_YU,1) AND C< O,O,C,1.9,0),COLORFF5500;
STICKLINE(A1RTH_WZ< A1RTH_KL AND A1RTH_YU>=REF(A1RTH_YU,1) AND C< O,O,C,1.2,0),COLORFF7700;
STICKLINE(A1RTH_WZ< A1RTH_KL AND A1RTH_YU>=REF(A1RTH_YU,1) AND C< O,O,C,0.4,0),COLORFF9900;
STICKLINE(A1RTH_WZ< A1RTH_KL AND A1RTH_YU< REF(A1RTH_YU,1),H,L,0.4,0),COLOR00FF00;
A1RTH_FR := OPEN - LOW;
STICKLINE(A1RTH_WZ< A1RTH_KL AND A1RTH_YU< REF(A1RTH_YU,1) AND C>=O,O,C,3,0),COLOR007700;
STICKLINE(A1RTH_WZ< A1RTH_KL AND A1RTH_YU< REF(A1RTH_YU,1) AND C>=O,O,C,2.5,0),COLOR009900;
STICKLINE(A1RTH_WZ< A1RTH_KL AND A1RTH_YU< REF(A1RTH_YU,1) AND C>=O,O,C,1.9,0),COLOR00BB00;
STICKLINE(A1RTH_WZ< A1RTH_KL AND A1RTH_YU< REF(A1RTH_YU,1) AND C>=O,O,C,1.2,0),COLOR00DD00;
M2N6_KB5 := HHV(HIGH, 11);
M2N6_9FX := HHV(HIGH, 38);
STICKLINE(A1RTH_WZ< A1RTH_KL AND A1RTH_YU< REF(A1RTH_YU,1) AND C>=O,O,C,0.4,0),COLOR00FF00;
A1RTH_90 := CLOSE;
STICKLINE(A1RTH_WZ< A1RTH_KL AND A1RTH_YU< REF(A1RTH_YU,1) AND C< O,O,C,3,1),COLOR006600;
STICKLINE(A1RTH_WZ< A1RTH_KL AND A1RTH_YU< REF(A1RTH_YU,1) AND C< O,O,C,2.4,1),COLOR009900;
STICKLINE(A1RTH_WZ< A1RTH_KL AND A1RTH_YU< REF(A1RTH_YU,1) AND C< O,O,C,1.8,1),COLOR00BB00;
STICKLINE(A1RTH_WZ< A1RTH_KL AND A1RTH_YU< REF(A1RTH_YU,1) AND C< O,O,C,1.2,1),COLOR00DD00;
STICKLINE(A1RTH_WZ< A1RTH_KL AND A1RTH_YU< REF(A1RTH_YU,1) AND C< O,O,C,0.4,1),COLOR00FF00;
STICKLINE(A1RTH_WZ>=A1RTH_KL AND A1RTH_YU< REF(A1RTH_YU,1),H,L,0.4,0),COLORFF66FF;
STICKLINE(A1RTH_WZ>=A1RTH_KL AND A1RTH_YU< REF(A1RTH_YU,1) AND C>=O,O,C,3,1),COLOR0000BB;
A1RTH_DL := MA(VOL, 5);
STICKLINE(A1RTH_WZ>=A1RTH_KL AND A1RTH_YU< REF(A1RTH_YU,1) AND C>=O,O,C,2.4,1),COLOR0000DD;
STICKLINE(A1RTH_WZ>=A1RTH_KL AND A1RTH_YU< REF(A1RTH_YU,1) AND C>=O,O,C,1.8,1),COLORCC11FF;
STICKLINE(A1RTH_WZ>=A1RTH_KL AND A1RTH_YU< REF(A1RTH_YU,1) AND C>=O,O,C,1.2,1),COLORCC44FF;
STICKLINE(A1RTH_WZ>=A1RTH_KL AND A1RTH_YU< REF(A1RTH_YU,1) AND C>=O,O,C,0.4,1),COLORCC66FF;
STICKLINE(A1RTH_WZ>=A1RTH_KL AND A1RTH_YU< REF(A1RTH_YU,1) AND C< O,O,C,3,0),COLOR9900FF;
STICKLINE(A1RTH_WZ>=A1RTH_KL AND A1RTH_YU< REF(A1RTH_YU,1) AND C< O,O,C,2.4,0),COLORFF22FF;
STICKLINE(A1RTH_WZ>=A1RTH_KL AND A1RTH_YU< REF(A1RTH_YU,1) AND C< O,O,C,1.8,0),COLORFF66FF;
A1RTH_WA := 30;
STICKLINE(A1RTH_WZ>=A1RTH_KL AND A1RTH_YU< REF(A1RTH_YU,1) AND C< O,O,C,1.2,0),COLORFF99FF;
STICKLINE(A1RTH_WZ>=A1RTH_KL AND A1RTH_YU< REF(A1RTH_YU,1) AND C< O,O,C,0.4,0),COLORFFCCFF;
A1RTH_0O:=BARSLAST(REF(CROSS(C,MA(C,120)),1)) AND CROSS(MA(C,20),MA(C,120));
DRAWTEXT_FIX(1,0.980,20,1,'分析家公式网http://www.70822.com'),COLOR333333;
DRAWTEXT(A1RTH_0O,MA(C,120)-0.13,'◆弱转强'),COLORCYAN;
分析家公式网:=C/REF(C,1)>1.05 AND H/C< 1.01 AND C>REF(C,1);
DRAWTEXT(FILTER(分析家公式网,45),L*0.97,'主力起涨'),COLOR00FFFF;
A1RTH_YI:=LLV(L,168);
A1RTH_9S:=HHV(H,21);
A1RTH_L6:=EMA((C-A1RTH_YI)/(A1RTH_9S-A1RTH_YI)*100,5);
A1RTH_LL:=EMA((C-A1RTH_YI)/(A1RTH_9S-A1RTH_YI)*50,13);
A1RTH_42:=CROSS(A1RTH_L6,A1RTH_LL);
A1RTH_EY:AMOUNT/VOL/100,NODRAW,COLORRED;
A1RTH_TK:=C/REF(C,1)>=1.1-0.001;
STICKLINE(A1RTH_TK,O,C,3,0),COLORRED;
A1RTH_H1:=MIN(C,O)>REF(MAX(C,O),1);
A1RTH_PY:C*1.1,NODRAW,COLORRED;