LS3:=LLV(HIGH,240); LS4:=100*(CLOSE-LS3)/LS3; 
LS5:=REF(LLV(CLOSE,480),1); 
LS6:=REF(HHV(CLOSE,480),1); 
LS7:=100*(CLOSE-LS5)/(LS6-LS5);LS8:=(CLOSE-LLV(CLOSE,981))/(HHV(CLOSE,981)-LLV(CLOSE,981))*100; 
LS9:=(CLOSE-LLV(CLOSE,393))/(HHV(CLOSE,393)-LLV(CLOSE,393))*100; 
LSA:=(CLOSE-LLV(LOW,981))/(HHV(HIGH,981)-LLV(LOW,981))*100; 
LSB:=(CLOSE-LLV(LOW,393))/(HHV(HIGH,393)-LLV(LOW,393))*100; 
LSC1:=EMA(100*(CLOSE-LLV(LOW,100))/(HHV(HIGH,100)-LLV(LOW,100)),5); 
LSC:=LSC1/4;{www.fxjgsw.com} 
LSD:=IF(LSC>23.6,LSC,0); 
LSE:=LSC<1; 
LSF:=LSD; 
LS10:=LS4<LS7 AND LS4<0; 
LS11:=1;{www.fxjgsw.com} 
LS12:=(HIGH+LOW+CLOSE*2)/4*LS11; 
LS13:=EMA(LS12,21); 
LS14:=STD(LS12,21); 
LS15:=((LS12-LS13)/LS14*100+200)/4*LS11; 
LS161:=EMA(LS15,89); 
LS16:=(LS161-25)*1.56*LS11; 
LS171:=EMA(LS16,5); 
LS17:=LS171*1.22*LS11; 
LS181:=EMA(LS17,3); 
LS18:=LS181*LS11; 
LS19:=3*LS17-2*LS18*LS11; 
LS1A:=IF(CROSS(LS19,LS17)AND CROSS(LS19,LS18)AND CROSS(LS17,LS18),1,0); 
LS1B:=IF(CROSS(LS17,LS19)AND CROSS(LS18,LS19)AND CROSS(LS18,LS17),1,0); 
LS1C:=EMA(100*(CLOSE-LLV(LOW,100))/(HHV(HIGH,100)-LLV(LOW,100)),13)/4; 
LS1D1:=EMA(CLOSE,2); 
LS1D2:=EMA(CLOSE,89); 
LS1D:=LS1D1-LS1D2; 
LS1E:=EMA(LS1D,30); 
LS1F:=(LS1D-LS1E)*20; 
LS20:=POW(LS1F,3)*0.1+POW(LS1F,2); 
LS21:=SQRT(SQRT(LOW*HIGH*OPEN*CLOSE)); 
LS22:=EMA(LS21*0.97,3); 
LS23:=(HIGH+LOW+CLOSE)/3; 
LS24:=(LS23-MA(LS23,14))/(0.015*AVEDEV(LS23,14)); 
LS25:=IF(LS1F>0.015,LS20,0)/45; 
LS26:=IF(LS1F<0.015,LS20,0)/45; 
庄拉:(LS25+LS26)/2,COLORyellow; 
VAR1ff:= 1; 
VAR3ff:= LLV(HIGH,240); 
VAR4ff:= 100*(CLOSE-VAR3ff)/vAR3ff*VAR1ff; 
VAR5ff:= REF(LLV(CLOSE,480),1)*VAR1ff; 
VAR6ff:= REF(HHV(CLOSE,480),1)*VAR1ff; 
VAR7ff:= 100*(CLOSE-VAR5ff)/(VAR6ff-VAR5ff)*VAR1ff; 
VAR8ff:= (CLOSE-LLV(CLOSE,981))/(HHV(CLOSE,981)-LLV(CLOSE,981))*100*VAR1ff; 
VAR9ff:= (CLOSE-LLV(CLOSE,393))/(HHV(CLOSE,393)-LLV(CLOSE,393))*100*VAR1ff; 
VARA:= (CLOSE-LLV(LOW,981))/(HHV(HIGH,981)-LLV(LOW,981))*100*VAR1ff; 
VARB:= (CLOSE-LLV(LOW,393))/(HHV(HIGH,393)-LLV(LOW,393))*100*VAR1ff; 
VARC:= EMA(100*(CLOSE-LLV(LOW,100))/(HHV(HIGH,100)-LLV(LOW,100)),5)/4*VAR1ff; 
VARD:= IF(VARC>23.16,VARC,0)*VAR1ff; 
VARE:= VARC<1*VAR1ff; 
VARF:= VARD*VAR1ff; 
VAR10ff:= VAR4ff<0 AND VAR7ff<0; 
VAR11ff:= 1; 
VAR12ff:= (HIGH+LOW+CLOSE*2)/4*VAR11ff; 
VAR13ff:= EMA(VAR12ff,21); 
VAR14ff:= STD(VAR12ff,21); 
VAR15ff:= ((VAR12ff-VAR13ff)/vAR14ff*100+200)/4*VAR11ff; 
VAR16ff:= (EMA(VAR15ff,89)-25)*1.56*VAR11ff; 
VAR17ff:= EMA(VAR16ff,5)*1.22*VAR11ff; 
VAR18ff:= EMA(VAR17ff,3)*VAR11ff; 
VAR19ff:= 3*VAR17ff-2*VAR18ff*VAR11ff; 
VAR1A:= IF(CROSS(VAR19ff,VAR17ff) AND CROSS(VAR19ff,VAR18ff) AND CROSS(VAR17ff,VAR18ff),1,0); 
VAR1B:= IF(CROSS(VAR17ff,VAR19ff) AND CROSS(VAR18ff,VAR19ff) AND CROSS(VAR18ff,VAR17ff),1,0); 
VAR1C:= EMA(100*(CLOSE-LLV(LOW,100))/(HHV(HIGH,100)-LLV(LOW,100)),13)/4*VAR1ff; 
VAR1D:= EMA(CLOSE,2)-EMA(CLOSE,89)*VAR1ff; 
VAR1E:= EMA(VAR1D,30)*VAR1ff; 
VAR1F:= 2*(VAR1D-VAR1E)*10*VAR1ff; 
VAR20ff:= POW(VAR1F,3)*0.1+POW(VAR1F,2)*VAR1ff; 
VAR21ff:= SQRT(SQRT(LOW*HIGH*OPEN*CLOSE)); 
VAR22ff:= EMA(VAR21ff*0.97,3)*VAR1ff; 
VAR23ff:= (HIGH+LOW+CLOSE)/3*VAR1ff; 
VAR24ff:= (VAR23ff-MA(VAR23ff,14))/(0.015*AVEDEV(VAR23ff,14))*VAR1ff; 
VAR25ff:= IF(YEAR<2009 AND VAR1F>0.015,VAR20ff,0)/45*VAR1ff; 
拉资: VAR25ff,LINETHICK7,COLOR0000FF,pointdot; 
VAR26ff:= EMA(CLOSE,2)-EMA(CLOSE,150); 
VAR27ff:= EMA(VAR26ff,100); 
VAR28ff:= 2*(VAR26ff-VAR27ff); 
VAR29ff:= POW(VAR28ff,3)*0.1+POW(VAR28ff,1); 
VAR2A:= SQRT(SQRT(LOW*HIGH*OPEN*CLOSE)); 
VAR2B:= EMA(VAR2A*0.97,3); 
VAR2C:= (HIGH+LOW+CLOSE)/3; 
VAR2D:= (VAR2C-MA(VAR2C,14))/(0.015*AVEDEV(VAR2C,14)); 
主资: IF(VAR28ff>0.1,VAR29ff,0)*5,LINETHICK1,COLORFFFFFF,pointdot; 
PJJQTR:=DMA((H + L + C * 2) / 4,0.9); 
JJQTR:=REF(EMA(PJJQTR,3),1); 
QJJQTR:=VOL / ((H - L) * 2 - ABS(C - O)); 
XVLQTR:=IF(C > O,QJJQTR * (H - L),IF(C < O,QJJQTR * (H - O + (C - L)),VOL / 2)) + IF(C > O,0 - QJJQTR * (H - C + (O - L)),IF(C < O,0 - QJJQTR * (H - L),0 - VOL / 2)); 
ZLLQTR:=VOL / CAPITAL; 
HSL1QTR:=IF(ZLLQTR > 10,10,ZLLQTR); 
HSLQTR:=XVLQTR / 20 / 1.15; 
攻击流量A:=HSLQTR * 0.55 + REF(HSLQTR,1) * 0.33 + REF(HSLQTR,2) * 0.22; 
GJJA:=EMA(攻击流量A,8); 
输出A:=GJJA*1000; 
PJJ:=DMA((H + L + C * 2) / 4,0.9); 
JJ:=REF(EMA(PJJ,3),1); 
QJJ:=VOL / ((H - L) * 2 - ABS(C - O)); 
XVL:=IF(C > O,QJJ * (H - L),IF(C < O,QJJ * (H - O + (C - L)),VOL / 2)) + IF(C > O,0 - QJJ * (H - C + (O - L)),IF(C < O,0 - QJJ * (H - L),0 - VOL / 2)); 
ZLL:=VOL / CAPITAL; 
HSL1:=IF(ZLL > 10,10,ZLL); 
HSL:=XVL / 20 / 1.15;力度:HSL / 1000,COLOR9B37FF; 
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);{//主力警戒} 
ZJLRQD:=INTPART(ZZLKP-ZZLJJ);{//资金流入强度} 
SH8:=EMA(ZSHTL,8); 
DKB:=IF(ZZLKP-REF(ZZLKP,1)>ZSHTL-REF(ZSHTL,1),1,0); 
{//------【数值显示】} 
控盘:INTPART(ZZLKP),LINETHICK0,COLORCYAN; 
流强:ZJLRQD,LINETHICK0,COLORRED;量能度LLL:=(CLOSE-MA(CLOSE,30))/MA(CLOSE,20)*120; 
机构:EMA(EMA(量能度LLL,30),3)*20,COLORRED,LINETHICK2; 
主流:EMA(100*(C-LLV(LOW,34))/(HHV(H,34)-LLV(LOW,34)),3),colorred,pointdot; 
非主流:EMA(100*(INDEXC-LLV(INDEXL,34))/(HHV(INDEXH,34)-LLV(INDEXL,34)),3), 
colorgreen,pointdot; 
市场筹码总量:INTPART(ZCMZL),LINETHICK0,COLORGREEN; 
散户套牢系数:INTPART(ZSHTL),LINETHICK0,COLORWHITE; 
TJTS:=BARSTATUS=2; 
{主力动向监控} 
DRAWTEXT(TJTS and ZCMZL>REF(ZCMZL,1) AND DKB=1,输出A*1.525,'主力动向监控:主力增仓                                                                   '),COLORRED,ALIGN2; 
DRAWTEXT(TJTS and ZCMZL>REF(ZCMZL,1) AND DKB=0,输出A*1.525,'主力动向监控:主力减仓                                                                   '),COLORMAGENTA,ALIGN2; 
DRAWTEXT(TJTS and ZCMZL=REF(ZCMZL,1),输出A*1.525,'主力  | 




