000970（北京中科三环高技术股份有限公司 ）

嘘。0

把公式也发下吧。。

INPUT: 项目(1,1,4);
M1:=简单移动平均(收盘价,20);
画渐变背景色(收盘价>M1, RGB颜色值(90,60,0), RGB颜色值(50,40,30),0); {收阳变红}
画渐变背景色(收盘价<M1, RGB颜色值(0,110,100), RGB颜色值(0,0,0),0); {收阴变绿}
{社保基金持股--Wind}
//确定F10种类
F10:=2;
//F10数据查找
QSW:=F10资料查找('股东进出】 <<占流通股比例区',1000);//起
条件函数 QSW<0 THEN EXIT;//没找到退出
SJT:=F10资料查找('流通股东名',QSW+50);//取日期位置1

条件函数 SJT>0 THEN BEGIN

RQZ:=除去开始空格(除去尾部空格(F10资料子字符串(SJT+(-145),12)));//时间
TT:=F10资料查找('社保基金持股(万股)',1000);
DC:=字符串转化为数字(F10资料子字符串(TT+20,0));//当期
QC:=字符串转化为数字(F10资料子字符串(TT+34,0));//前期
ZJE:=(DC-QC);

画渐变背景色(ZJE>0, RGB颜色值(150,80,0), RGB颜色值(0,0,0),1); {增仓变红}
画渐变背景色(ZJE<0, RGB颜色值(0,50,110), RGB颜色值(0,0,0),1); {减仓变绿}

JSW:=F10资料查找('总  计',SJT+200);//取结尾
KG1:=' \n';
KG2:='   ';//空格
GDS:='◇社保基金持股';//显示
JS:=1;//计数
{查找当期明细}
JS1:=0;JS2:=0;
VARIABLE:GDW[10]=0,GDT[10]='',DQCG[10]='STR',ZJT[10]='STR';
FOR i=1 TO 10 DO BEGIN
   XH:=除去尾部空格(除去开始空格(数字转化为字符串(i,0)));//将i转换为字符的序号
   GDW:=条件函数(i=1,F10资料查找('1',SJT+100),F10资料查找(条件函数(F10=2 AND i=10,'',' ')+XH,GDW[i-1]+74));//取字符串所在位置
   条件函数 GDW>JSW THEN BREAK;//越过“总计”退出
   LS:=条件函数(i=1,1,2);
   条件函数 i<11 THEN TMP:=F10资料子字符串(GDW+LS,30);//取字符串
   条件函数 (查找字符串(TMP,'社保基金',1)>0 or 查找字符串(TMP,'社保基金',1)>0) THEN BEGIN
      GDT:=TMP;//取字符串
      JS1:=JS1+1;//统计社保基金公司家数
      DQCG:=字符串的右部('        '+除去开始空格(数字转化为字符串(字符串转化为数字(除去开始空格(字符串的右部(F10资料子字符串(GDW+27,16),12))),2)),10);
      ZJT:=字符串的右部('    '+除去尾部空格(除去开始空格(字符串的左部(F10资料子字符串(GDW+54,12),8))),9);
      GDT:=条件函数(JS<10,' ','')+数字转化为字符串(JS,0)+字符串的左部(除去开始空格(GDT),9)+DQCG+'  '+ZJT;
      GDS:=GDS+KG1+GDT;
      JS:=JS+1;
   END;
END;

截止日期:字符串转化为数字('1'+字符串的右部(字符串的左部(RQZ,4),2)+字符串的右部('0'+数字转化为字符串(字符串转化为数字(字符串的中部(RQZ,6,2)),0),2)+字符串的中部(RQZ,查找字符串(RQZ,'-',6)+1,2)),PRECISION2,COLORAFFF,LINETHICK;
社保家数:JS1,COLORDDAAAA,LINETHICK;
社保基金持股:DC,COLOREEFF,LINETHICK;
前期持股:QC,PRECISION2,COLOREE00,LINETHICK;
增减额:ZJE,COLORFFFF00,LINETHICK;//(社保基金持股-前期持股)
持仓率:(社保基金持股/流通盘大小)*1000000,PRECISION2,COLORAFFF,LINETHICK;

显示文字(数据位置=系统参数(2),10,GDS),COLOR00FFff,ALIGN4;
END;

{主力动向速览}
ZLW:=F10资料查找('主力动向速览',500);
ZLQ:=F10资料查找('┌',ZLW-100);
ZLQ1:=F10资料查找('┐',ZLQ-100);
ZLEND:=F10资料查找('┘',ZLQ+100);
SS:=向下舍入((ZLEND+2-ZLQ)/(ZLQ1-ZLQ+2));
NR:=除去尾部空格(F10资料子字符串(ZLQ,ZLEND+2-ZLQ));
KG:='                                                    ';
KG:=字符串的左部(KG,36);
XSNR:='';
FOR j=1 TO SS DO BEGIN
   NRT:=除去尾部空格(除去开始空格(条件函数(j<=3,字符串的左部(NR,74), 条件函数(j=4,字符串的中部(NR,查找字符串(NR,'┤',20)+1,76),字符串的左部(NR,76)))));
   XSNR:=XSNR+条件函数(j=1,'',' \n')+KG+NRT;
   NR:=除去开始空格(字符串的中部(NR,75,0));
END;
显示文字(数据位置=系统参数(2),10,XSNR),COLORA9FE63,ALIGN4;

{上季以来均价}
BJ:=四舍五入为整数(月份/3+0.3);JB:=BJ-向前引用(BJ,1)<>0 OR 数据位置=1;季:=累加到指定值周期数(JB,1)LINETHICK;J0:=累加到指定值周期数(JB,2);
起点:=序列数据量-J0[序列数据量]+1;
CBZQ:=条件函数(起点=1,0,第一个条件成立位置(数据位置>=起点));
平均成本:求和(成交额,CBZQ)/求和(成交量,CBZQ)/100,COLOR6000FF,LINETHICK;
//

嘘。0

版主 收不收徒弟啊   我是新手 。。。


等暑假 放假  每天 都跟您后学习。。。行不行啊 。。

victior

这个票如果站在价值投资，应该是个不错的股票，但是，站在技术分析方面，这个股票目前不能轻易介入~:

价值投资理论

原帖由 fbl125-2008 于 2008-6-13 21:10 发表

阅！:*22*: :*22*: :*22*:

身是菩提树，心如明镜台，时时勤拂拭，勿使惹尘埃。

chenyoung

原帖由 嘘。0 于 2008-6-13 22:58 发表
问下老大  社保持仓  是不是一个月公布一次啊？？、

流通股东情况，一个季度公布一次。

价值投资理论

嘘。0

:*19*: :*19*: :*19*:

richwood

哈哈，偷挖，就地正法。太牛了。呵呵。
中科早就看过，公司基本面好转有待时日。兄弟们别太着急。
还有如果它进军风电，还要好好研究一下，它是用什么切入，如果没有优势，这个行业太不好做了，太多的人杀入。

正行无间

原帖由 价值投资理论 于 2008-6-14 00:17 发表



身是菩提树，心如明镜台，时时勤拂拭，勿使惹尘埃。

本来无一物,何处染尘埃,呵呵:*22*:

tongtong969

打入十八层地狱

嘘。0

: : : :

到底 牛不牛啊 ！！！

dieterliu

原帖由 victior 于 2008-6-13 23:25 发表
这个票如果站在价值投资，应该是个不错的股票，但是，站在技术分析方面，这个股票目前不能轻易介入~:

那就再研究中等待吧。

chenyoung

5年。。。。。。

chenyoung

dieterliu

克制、节制、自控、自省、自觉

反复确认的过程。

淡泊赚了就跑

970是个底了 主力没跑脱``:*22*: :*22*:

dieterliu

:*19*: :*19*:

大乘

楼主买了没?
技术面不研究了,转研究基本面了?

dieterliu

下周看好了吧。