相關標簽:持股5以上股東增持規定 、 大股東為什么減持股票 、 持股5以上股東減持規定 、 5以下股東減持規定 、 大股東連續減持的股票 、 持股超過5%股東減持 、 大股東減持公告后股價 、 股東減持后股票會漲嗎 、 大股東減持股票規定 、 大股東減持股票上漲 、 股票股東減持是好是壞 、 大股東質押股票后走勢 、

?

飛狐公式源碼：

?

?

原理解析：
VERTLINE(日期=1080303),畫綠色,線寬為1 VERTLINE(日期=1071228),畫綠色,線寬為1 VERTLINE(日期=1070928),畫綠色,線寬為1 當滿足條件日期=1080303時,在5位置書寫文字,畫黃色 當滿足條件日期=1071228時,在5位置書寫文字,畫黃色 當滿足條件日期=1070928時,在5位置書寫文字,畫黃色,ALIGN2 10,畫黑色 0,畫黑色 當滿足條件SYSPARAM(2)=BARPOS時,在收盤價位置書寫文字,SHIFT5,COLORCCFFFF,ALIGN4,線寬為3 開始序號賦值:F10FIND('大流通股東持股(萬股) ',5000) 增減判斷賦值:如果字符串比較=0,返回1,否則返回-1 輸出大股東增減:STRTONUM(F10TEXT(開始序號+56,4))*增減判斷,線寬為0 FILLRGN(日期<=1080301 AND 日期>=1080103 AND 大股東增減>=0,0,大股東增減),畫紅色 FILLRGN(日期<=1080301 AND 日期>=1080103 AND 大股東增減<0,0,大股東增減),畫綠色 當滿足條件SYSPARAM(2)=BARPOS時,在收盤價位置書寫文字,SHIFT5,COLORCCFFFF,ALIGN4, 開始序號2賦值:F10FIND('基金持股(萬股) ',5000) 增減判斷2賦值:如果字符串比較=0,返回1,否則返回-1 輸出基金增減:STRTONUM(F10TEXT(開始序號2+56,4))*增減判斷2,線寬為0 當滿足條件SYSPARAM(2)=BARPOS時,在收盤價位置書寫文字,SHIFT5,COLORCCFFFF,ALIGN4, FILLRGN(日期<=1080101 AND 日期>=1071001 AND 基金增減<=0,0,基金增減),畫綠色 FILLRGN(日期<=1080101 AND 日期>=1071001 AND 基金增減>0,0,基金增減),畫紅色 公式源碼都在上面了，下面是現成的公式，采用密碼加密，需要看源碼的，請輸入密碼：889966，或者看上面的源碼可以了。部分由于股改，解凍股上市，改變了大股東持有流通股東情況，這種影響，大家一定要手工剔除

?

?來源:程序化99（ www.kzuj.com.cn ）

源碼：

?

VERTLINE(DATE=1080303),COLORGREEN,LINETHICK1;
VERTLINE(DATE=1071228),COLORGREEN,LINETHICK1;
VERTLINE(DATE=1070928),COLORGREEN,LINETHICK1;
DRAWTEXT(DATE=1080303,5,'2008年3月'),COLORYELLOW;
DRAWTEXT(DATE=1071228,5,'2007年12月'),COLORYELLOW;
DRAWTEXT(DATE=1070928,5,'2007年9月'),COLORYELLOW,ALIGN2;
10,COLORBLACK;0,COLORBLACK;
DRAWTEXT(sysparam(2)=BARPOS,c,F10TEXT(10,88)+'d\n\n注意剔除股改后國家股流上市通造成的流通股變化的影響'),shift5,COLORccffff,ALIGN4,LINETHICK3;
開始序號:=F10FIND('大流通股東持股(萬股) ',5000);
增減判斷:=IF(STRCMP(F10TEXT(開始序號+52,4),'增加')=0,1,-1);
大股東增減:STRTONUM(F10TEXT(開始序號+56,4))*增減判斷,LINETHICK0;
FILLRGN(DATE<=1080301 AND DATE>=1080103 and 大股東增減>=0,0,大股東增減),COLORRED;
FILLRGN(DATE<=1080301 AND DATE>=1080103 AND 大股東增減<0,0,大股東增減),COLORGREEN;
DRAWTEXT(sysparam(2)=BARPOS,c,' \n \n'+F10TEXT(開始序號,64)),shift5,COLORccffff,ALIGN4,;
開始序號2:=F10FIND('基金持股(萬股) ',5000);
增減判斷2:=IF(STRCMP(F10TEXT(開始序號2+52,4),'增加')=0,1,-1);
基金增減:STRTONUM(F10TEXT(開始序號2+56,4))*增減判斷2,LINETHICK0;
DRAWTEXT(sysparam(2)=BARPOS,c,' \n \n \n'+F10TEXT(開始序號2,64)),shift5,COLORccffff,ALIGN4,;
FILLRGN(DATE<=1080101 AND DATE>=1071001 and 基金增減<=0,0,基金增減),COLORGREEN;
FILLRGN(DATE<=1080101 AND DATE>=1071001 and 基金增減>0,0,基金增減),COLORred;

公式源碼都在上面了，下面是現成的公式，采用密碼加密，需要看源碼的，請輸入密碼：889966，或者看上面的源碼可以了。{程序化交易 www.kzuj.com.cn }
部分由于股改，解凍股上市，改變了大股東持有流通股東情況，這種影響，大家一定要手工剔除

?

公式導入教程: 【通達信公式源碼導入方法教程】 【同花順公式源碼導入方法教程】 【大智慧新一代公式源碼導入方法教程】

?