把公式也发下吧。。
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=0,GDT='',DQCG='STR',ZJT='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+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;
//
版主 收不收徒弟啊 我是新手 。。。
等暑假 放假每天 都跟您后学习。。。行不行啊 。。
这个票如果站在价值投资，应该是个不错的股票，但是，站在技术分析方面，这个股票目前不能轻易介入~:loveliness:
原帖由 fbl125-2008 于 2008-6-13 21:10 发表 http://bbs.macd.cn/static/image/common/back.gif
阅！:*22*: :*22*: :*22*:
身是菩提树，心如明镜台，时时勤拂拭，勿使惹尘埃。
原帖由 嘘。0 于 2008-6-13 22:58 发表 http://bbs.macd.cn/static/image/common/back.gif
问下老大社保持仓是不是一个月公布一次啊？？、
流通股东情况，一个季度公布一次。
:*19*: :*19*: :*19*:
哈哈，偷挖，就地正法。太牛了。呵呵。
中科早就看过，公司基本面好转有待时日。兄弟们别太着急。
还有如果它进军风电，还要好好研究一下，它是用什么切入，如果没有优势，这个行业太不好做了，太多的人杀入。
原帖由 价值投资理论 于 2008-6-14 00:17 发表 http://bbs.macd.cn/static/image/common/back.gif
身是菩提树，心如明镜台，时时勤拂拭，勿使惹尘埃。
本来无一物,何处染尘埃,呵呵:*22*:
打入十八层地狱
:loveliness: :loveliness: :loveliness: :loveliness:
到底 牛不牛啊 ！！！
原帖由 victior 于 2008-6-13 23:25 发表 http://bbs.macd.cn/static/image/common/back.gif
这个票如果站在价值投资，应该是个不错的股票，但是，站在技术分析方面，这个股票目前不能轻易介入~:loveliness:
那就再研究中等待吧。
5年。。。。。。
克制、节制、自控、自省、自觉
反复确认的过程。
970是个底了 主力没跑脱``:*22*: :*22*:
:*19*: :*19*:
楼主买了没?
技术面不研究了,转研究基本面了?
下周看好了吧。