gspt1:=EMA(100*(CLOSE-LLV(LOW,100))/(HHV(HIGH,100)-LLV(LOW,100)),5);
gspt2:=(CLOSE-LLV(CLOSE,126))/(HHV(CLOSE,126)-LLV(CLOSE,126))*100;
gspt3:=EMA(CLOSE,2)-EMA(CLOSE,120);
gspt4:=EMA(gspt3,68);
gspt5:=(gspt3+gspt4);
gspt6:=POW(gspt5,3)*0.1+POW(gspt5,1);
gspt7:=MA(gspt6,30),COLORRED,;
gspt8:gspt7/5,COLORRED,LINETHICK2;
gspt9:MA(gspt8,6),COLORRED,LINETHICK2;
IF(gspt9< REF(gspt9,1),gspt9,DRAWNULL),COLORBLUE,LINETHICK2;
gspt10:gspt8-gspt9,COLORBROWN;
IF(gspt8< REF(gspt8,1),gspt8,DRAWNULL),COLORBLUE,LINETHICK2;
gspt11:=C>=INTPART(REF(C ,1 )*1.08*100+0.5)/100;
gspt12:=gspt11*gspt7/5;
gspt13:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;
gspt14:=(SMA(gspt13,3,1));
gspt15:=(SMA(gspt14,3,1));
gspt16:=INTPART(SMA(gspt13,3,1));
gspt17:=INTPART(SMA(gspt14,3,1));
gspt18:=gspt16+gspt17;
gspt19:ABS((10000*(C-REF(C,1))/REF(C,1)>995)*gspt12),COLORGREEN;
IF(CROSS(gspt18,100),ABS(gspt8),0),COLORYELLOW;
DRAWTEXT(CROSS(gspt18,100),IF(CROSS(gspt18,100),ABS(gspt8),0)*1.1,'追'),COLORCYAN;
DRAWTEXT(gspt19>0,gspt19*1.1,'停'),COLORYELLOW;
gspt20:=(CLOSE-REF(CLOSE, 1))/REF(CLOSE, 1)*100;
gspt21:=(CLOSE-LLV(LOW, 18))/(HHV(HIGH, 18)-LLV(LOW, 18))*100;
gspt22:=SMA(gspt21, 9, 1);
gspt23:=SMA(gspt22, 3, 1);
gspt24:=3*gspt22-2*gspt23;
gspt25:=gspt24>1*REF(gspt24, 1);
gspt26:=LLVBARS(LOW, 50);
gspt27:=SUM(VOL, gspt26);
gspt28:=HHVBARS(HIGH, 50);
gspt29:=SUM(VOL, gspt28);
gspt30:=(CLOSE-REF(OPEN, gspt28))/REF(OPEN, gspt28)*100;
gspt31:=HHV(gspt24,5);
gspt32:=EMA(gspt22, 3) , COLORFFDDCC;
gspt33:=EMA(gspt32, 3) , COLORFFBBCC;
gspt34:=EMA(gspt33, 3) , COLORFF99CC;
gspt35:=EMA(gspt34, 3) , COLORFF55CC;
gspt36:=EMA(gspt35, 3) , COLORFF33CC;
gspt37:=EMA(gspt36, 3) , COLORFF11CC;
gspt38:=EMA(gspt35, 3), , COLORFF00CC;
DRAWTEXT(CROSS(gspt24, 20) AND gspt30< -13,gspt19,'☆大底'), COLOR00FF00;
DRAWTEXT(CROSS(gspt24, gspt36) AND REF(gspt24,1)< 34,gspt19,'☆发财了'), COLORRED;
DRAWTEXT(CROSS(gspt32, gspt24) AND REF(gspt24,1)>80, gspt19, '☆闪人'), COLORCFB53B ;
DRAWTEXT(CROSS(gspt24, gspt32) AND gspt25 AND gspt32< 20 AND gspt20>9 OR gspt32>1*REF(gspt32, 1) AND gspt20>4 AND gspt32< 60, gspt19, '拉'), COLORFFFFCC;
NLBH1:=REF(CLOSE,1);
NLBH2:=SMA(MAX(CLOSE-NLBH1,0),5,1)/SMA(ABS(CLOSE-NLBH1),5,1)*100;
NLBH3:=CONST(WINNER(C)*100);
NLBH4:=(AMOUNT/C)/(HHV(AMOUNT,20)/HHV(C,20));
NLBH5:=(IF(NLBH4>1,1,NLBH4)*100);
NLBH6:=(HHV(HIGH,3)-CLOSE)/(HHV(HIGH,3)-LLV(LOW,3))*100;
NLBH7:=(NLBH2-NLBH6);
NLBH8:=IF(NLBH7>=0,(NLBH7+100)/2,100-ABS((NLBH7-100)/2));
DRAWTEXT_FIX(ISLASTBAR=1,0.83-0.6,0.25,1,STRCAT(STRCAT('量能饱和： ',CON2STR(NLBH5,2)),'％')),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR=1,0.83-0.6,0.52,1,STRCAT(STRCAT('活跃度比： ',CON2STR(NLBH8,2)),'％')),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR=1,0.83-0.6,0.75,1,STRCAT(STRCAT('获利筹码： ',CON2STR(NLBH3,2)),'％')),COLORYELLOW;
DRAWRECTREL(950-600,470,630-600,365,RGB(255,128,0));
DRAWRECTREL(950-600,710,630-600,610,RGB(255,128,0));
DRAWRECTREL(950-600,855,630-600,955,RGB(255,128,0));
DRAWRECTREL(950-600,470,30+CONST(NLBH5*(950-630)/100),365,RGB(0,100,0));
DRAWRECTREL(790-600,470,790-600,365,RGB(0,0,10));
DRAWRECTREL(950-600,710,30+CONST(NLBH8*(950-630)/100),610,RGB(0,100,0));
DRAWRECTREL(790-600,710,790-600,610,RGB(0,0,10));
DRAWRECTREL(950-600,855,30+CONST(NLBH3*(950-630)/100),955,RGB(0,100,0));
DRAWRECTREL(790-600,855,790-600,955,RGB(0,0,10));
NLBH9:=350;
NLBH10:=REFDATE(HHV(H,NLBH9),DATE);
NLBH11:=REFDATE(LLV(L,NLBH9),DATE);
NLBH12:=REF(L,BARSLAST(NLBH11=L)),COLORGREEN,NODRAW;
NLBH13:=REF(H,BARSLAST(NLBH10=H)),COLORRED,NODRAW;
NLBH14:=(NLBH13-NLBH12)/NLBH12*100;
NLBH15:=(C-NLBH12)/NLBH12*100;
NLBH16:=CON2STR(CONST(NLBH14),2);
NLBH17:=CON2STR(CONST(NLBH15),2);
NLBH18:=STRCAT('【NLBH14】：',NLBH16);
NLBH19:=STRCAT(NLBH18,'％');
NLBH20:=STRCAT(NLBH19,'【当前总涨幅】：');
NLBH21:=STRCAT(NLBH20,NLBH17);
NLBH22:=STRCAT(NLBH21,'％');
NLBH23:=SUM(IF(CLOSE>REF(CLOSE,1),VOL/CAPITAL*100,IF(CLOSE< REF(CLOSE,1),-VOL/CAPITAL*100,0)),0);
NLBH24:=V*C/100,NODRAW;
NLBH25:=SUM((IF(((NLBH24/8>20) AND (CLOSE>(REF(CLOSE,1)))),NLBH24,0)),0);
NLBH26:=SUM((IF(((NLBH24/8>20) AND (CLOSE< (REF(CLOSE,1)))),NLBH24,0)),0);
NLBH27:=SUM((IF(((NLBH24/8< 20) AND (CLOSE>(REF(CLOSE,1)))),NLBH24,0)),0);
NLBH28:=SUM((IF(((NLBH24/8< 20) AND (CLOSE< (REF(CLOSE,1)))),NLBH24,0)),0);
NLBH29:=((NLBH25+NLBH26)+NLBH27)+NLBH28;
NLBH30:=STRCAT(STRCAT('机构持有',CON2STR((100*NLBH25)/NLBH29,0)),'%');
NLBH31:=STRCAT(STRCAT('散户持有',CON2STR((100*NLBH26)/NLBH29,0)),'%');
DRAWTEXT_FIX(1,0.83-0.6,0,1,'《★筹码分析★》'),COLORRED;
DRAWTEXT_FIX(1=1,0.63-0.6,0,0,NLBH30),COLORMAGENTA;
DRAWTEXT_FIX(1=1,0.89-0.6,0,0,NLBH31),COLORGREEN;
NLBH32:=CONST(NLBH25/NLBH29*100);
DRAWRECTREL(950-600,220,630-600,115,RGB(255,128,0));
DRAWRECTREL(950-600,220,30+CONST(NLBH32*(950-630)/100),115,RGB(0,100,0));
DRAWRECTREL(790-600,220,790-600,115,RGB(0,0,10));
