同花順股東戶數(shù)變化人數(shù)人均持股戶數(shù)變化指標(biāo)公式源碼:
?
?
本次日期:=REPDATE(&GDZS,1,0);
?
本次人數(shù):GDZS,Color00FFFF;
上次人數(shù):=LASTREP(&GDZS,2);
上兩期次人數(shù):=LASTREP(&GDZS,3);
上三期次人數(shù):=LASTREP(&GDZS,4);
差值:=本次人數(shù)-上次人數(shù);
人均持股:=SHGZG/本次人數(shù);
人數(shù)變比:=100*(本次人數(shù)/上次人數(shù)-1);
兩期人數(shù)變比:=100*(本次人數(shù)/上兩期次人數(shù)-1);
三期人數(shù)變比:=100*(本次人數(shù)/上三期次人數(shù)-1);
人均持股變比:=100*(上次人數(shù)/本次人數(shù)-1);
CON1:=本次日期=DATE;
POLYLINE(CON1,GDZS);
/*以下為股東人數(shù)字符顯示位置定位的一系列判斷，避免數(shù)字和線重疊*/
T1:=GDZS!=REF(GDZS,1);/*股東人數(shù)變動(dòng)日*/
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);/*在人數(shù)變動(dòng)日判斷下一個(gè)變動(dòng)日離現(xiàn)在的天數(shù)*/
T3:=(REFX(&GDZS,T2)-GDZS);
T4:=IF(T3>0,0.95,1.05);//www.8-8gs.com
DRAWTEXT(CON1,T4*GDZS,'↓'+TOSTRING(GDZS,0)+'（'+人數(shù)變比+'%'+'）'),COLORGREEN;//http://www.kzuj.com.cn
/*DRAWNUMBER_FIX(ISLASTBAR,0,0,0,'實(shí)際流通市值：'+TOSTRING(ZYLTGB*C/100000000,0)+'億元'),COLORGREEN;//http://www.kzuj.com.cn*/
TIPTEXT(CON1,GDZS,TOSTRING(人均持股,0)+'股，較上期變動(dòng)'+TOSTRING(人均持股變比,0)+'%'),colorgray;
/*股東人數(shù):TOSTRING(GDZS,0)+'（較上期變動(dòng)'+人數(shù)變比+'%)'+'（較上兩期變動(dòng)'+兩期人數(shù)變比+'%'+')'+'（較上三期變動(dòng)'+三期人數(shù)變比+'%'+'）',coloryellow;*/
股東人數(shù):TOSTRING(GDZS,0),COLORGREEN;//http://www.kzuj.com.cn
較上期:TOSTRING(人數(shù)變比,0)+'%',COLORGREEN;//http://www.kzuj.com.cn
較上兩期:TOSTRING(兩期人數(shù)變比,0)+'%',coloryellow;
較上三期:TOSTRING(三期人數(shù)變比,0)+'%',colorred;
實(shí)際流通市值:TOSTRING(ZYLTGB*C/100000000,0)+'億元',colorwhite;
?
公式導(dǎo)入教程: 【通達(dá)信公式源碼導(dǎo)入方法教程】 【同花順公式源碼導(dǎo)入方法教程】 【大智慧新一代公式源碼導(dǎo)入方法教程】
?
打印本文
關(guān)閉窗口