飞狐公式源码: 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,或者看上面的源码可以了。 部分由于股改,解冻股上市,改变了大股东持有流通股东情况,这种影响,大家一定要手工剔除{点击看本软件截图: 58股票 公式网 http://www. 58gu. com 整理} |