游荡了好几年，东一爪西一爪好学了不少东西，知恩回报，改了一个同花顺的股东人数指标，希望对大家有帮助。
A0:=IF(是否大屏界面是1否0,0.1,0);
B0:=是否显示股东明细是1否0;
A1:=REPDATE(&GDZS,1,0);
A2:=REPDATE(&GDZS,2,0);
A3:=GDZS;
A4:=LASTREP(&GDZS,2);
A5:=SHGZG/A3;
A6:=100*(A3/A4-1);
A7:=100*(A4/A3-1);
A8:=IF(COUNTTIME(A2,A1,3)>16,'☆','');
CON1:=GDZS!=REF(GDZS,1);
POLYLINE(CON1,GDZS);
T1:=GDZS!=REF(GDZS,1);
T2:=IF(T1,IF(REFX(&GDZS,1)!=GDZS,1,IF(REFX(&GDZS,2)!=GDZS,2,IF(REFX(&GDZS,3)!=GDZS,3,
IF(REFX(&GDZS,4)!=GDZS,4,IF(REFX(&GDZS,5)!=GDZS,5,IF(REFX(&GDZS,6)!=GDZS,6,IF(REFX(&GDZS,7)!=GDZS,7,
IF(REFX(&GDZS,8)!=GDZS,8,IF(REFX(&GDZS,9)!=GDZS,9,IF(REFX(&GDZS,10)!=GDZS,10,IF(REFX(&GDZS,11)!=GDZS,11,
IF(REFX(&GDZS,12)!=GDZS,12,0)))))))))))),0);
T3:=(REFX(&GDZS,T2)-GDZS);
T4:=IF(T3>0,0.95,1.05);
DRAWTEXT(CON1,T4*GDZS,'←'+TOSTRING(GDZS,0)+A8),colorgreen;
TIPTEXT(CON1,GDZS,TOSTRING(A5,0)+'股，较上期变动'+TOSTRING(A7,0)+'%'),colorgray;
鼠标所在:TOSTRING(GDZS,0)+'人（较上期变动'+A6+'%'+'）';
实际流通市值:IF(ISLASTBAR,TOSTRING(ZYLTGB*C/100000000,2)+'亿元',NULL);
▲:IF(ISLASTBAR,NULL,'鼠标移到最新K线可显示实际流通市值和活筹个数；鼠标停在"△"上可显示人均持股');
A1:=(STRLEFT(LTGDMC1,2)+STRMID(LTGDMC1,3,2)+STRRIGHT(LTGDMC1,2)=LTGDMC1) OR (STRLEFT(LTGDMC1,2)+STRRIGHT(LTGDMC1,2)=LTGDMC1);
A2:=(STRLEFT(LTGDMC2,2)+STRMID(LTGDMC2,3,2)+STRRIGHT(LTGDMC2,2)=LTGDMC2) OR (STRLEFT(LTGDMC2,2)+STRRIGHT(LTGDMC2,2)=LTGDMC2);
A3:=(STRLEFT(LTGDMC3,2)+STRMID(LTGDMC3,3,2)+STRRIGHT(LTGDMC3,2)=LTGDMC3) OR (STRLEFT(LTGDMC3,2)+STRRIGHT(LTGDMC3,2)=LTGDMC3);
A4:=(STRLEFT(LTGDMC4,2)+STRMID(LTGDMC4,3,2)+STRRIGHT(LTGDMC4,2)=LTGDMC4) OR (STRLEFT(LTGDMC4,2)+STRRIGHT(LTGDMC4,2)=LTGDMC4);
A5:=(STRLEFT(LTGDMC5,2)+STRMID(LTGDMC5,3,2)+STRRIGHT(LTGDMC5,2)=LTGDMC5) OR (STRLEFT(LTGDMC5,2)+STRRIGHT(LTGDMC5,2)=LTGDMC5);
A6:=(STRLEFT(LTGDMC6,2)+STRMID(LTGDMC6,3,2)+STRRIGHT(LTGDMC6,2)=LTGDMC6) OR (STRLEFT(LTGDMC6,2)+STRRIGHT(LTGDMC6,2)=LTGDMC6);
A7:=(STRLEFT(LTGDMC7,2)+STRMID(LTGDMC7,3,2)+STRRIGHT(LTGDMC7,2)=LTGDMC7) OR (STRLEFT(LTGDMC7,2)+STRRIGHT(LTGDMC7,2)=LTGDMC7);
A8:=(STRLEFT(LTGDMC8,2)+STRMID(LTGDMC8,3,2)+STRRIGHT(LTGDMC8,2)=LTGDMC8) OR (STRLEFT(LTGDMC8,2)+STRRIGHT(LTGDMC8,2)=LTGDMC8);
A9:=(STRLEFT(LTGDMC9,2)+STRMID(LTGDMC9,3,2)+STRRIGHT(LTGDMC9,2)=LTGDMC9) OR (STRLEFT(LTGDMC9,2)+STRRIGHT(LTGDMC9,2)=LTGDMC9);
A10:=(STRLEFT(LTGDMC10,2)+STRMID(LTGDMC10,3,2)+STRRIGHT(LTGDMC10,2)=LTGDMC10) OR (STRLEFT(LTGDMC10,2)+STRRIGHT(LTGDMC10,2)=LTGDMC10);
AL1:=A1 AND LTCGS1/SHGZG<0.05;
AL2:=A2 AND LTCGS2/SHGZG<0.05;
AL3:=A3 AND LTCGS3/SHGZG<0.05;
AL4:=A4 AND LTCGS4/SHGZG<0.05;
AL5:=A5 AND LTCGS5/SHGZG<0.05;
AL6:=A6 AND LTCGS6/SHGZG<0.05;
AL7:=A7 AND LTCGS7/SHGZG<0.05;
AL8:=A8 AND LTCGS8/SHGZG<0.05;
AL9:=A9 AND LTCGS9/SHGZG<0.05;
AL10:=A10 AND LTCGS10/SHGZG<0.05;
活筹个数:IF(ISLASTBAR,TOSTRING(AL1+AL2+AL3+AL4+AL5+AL6+AL7+AL8+AL9+AL10,0)+'个',NULL);
Y1:=IF(AL1,0,255);{www.fxjgsw.com}
Y2:=IF(AL2,0,255);
Y3:=IF(AL3,0,255);
Y4:=IF(AL4,0,255);
Y5:=IF(AL5,0,255);
Y6:=IF(AL6,0,255);
Y7:=IF(AL7,0,255);
Y8:=IF(AL8,0,255);
Y9:=IF(AL9,0,255);
Y10:=IF(AL10,0,255);
|
