罗伯特帕丁森的电影:万国F10数据读取公式??DZH?L2

来源：百度文库编辑：中财网时间：2024/04/29 11:33:08

万国F10数据读取公式 DZH L2

(2009-02-20 10:30:22) 标签：

大智慧l2

股票

净利润增长率

耐尔选股法

选股策略

于安生

分类：财务分析

http://bbs.macd.cn/viewthread.php?tid=1011399&extra=&authorid=79698&page=140

{

将股市浪子的指标变为大智慧和分析家可用的

只适合：万国－－－对我而言就够用了

原作：股市浪子

改写：KENT85

感谢下贴提供的资料

http://bbs.macd.cn/viewthread.ph ... 1%26filter%3Ddigest

股市浪子 —— 原帖地址：

http://bbs.macd.cn/viewthread.php?tid=1045741&extra=page%3D1

http://bbs.macd.cn/viewthread.php?tid=1043987&extra=page%3D1

http://bbs.macd.cn/viewthread.php?tid=1044260&extra=page%3D1

}

前些日子,有人利用万国F10编的公式(利用三季报),可看股东户数,户均持股,前十大股东持仓量(比率,数量),但现在年报已公布,万国F10结构稍有改变,发上原公式,请修改适应现在的F10, 非常谢谢。。。。

F10资料

VARIABLE:TT[4]='STR',持股[4]=0,比例[4]=0,变化[4]=0;
F10:=IF(F10FIND('万国测评制作',1)>0,1,0);
HW1:=F10FIND('每股收益',50);
QSW:=F10FIND('◆ 控盘情况 ◆',500);
QSW1:=F10FIND('出]☆',1000)+120;
JSW1:=F10FIND('红]☆',QSW1+300)-80;

{F10数据查找}
IF F10=1 AND QSW>0 AND QSW1>0  AND JSW1>0  THEN{万国测评的资料是否完整，不完整就什么都不做}
BEGIN
{年报TIP}
f10str:=f10text(HW1,1024);
三季收益 := strmid(f10str,23-3,6);
HW2:=strfind(f10str,'每股净资产',1);
净资产:= strmid(f10str,HW2+22-3,6);
HW3:=strfind(f10str,'预计年报公布日' ,HW2+80);
if(HW3>0) then
begin
年报日:= strmid(f10str,HW3+18-3,10);
end;
{控盘情况数据栏数据提取}
  f10str:=f10text(QSW,320);
  WZ1:=strfind(f10str,'-',0)-4;
  WZ2:=strfind(f10str,'-',WZ1+10)-4;
  WZ3:=strfind(f10str,'-',WZ2+10)-4;
  WZ4:=strfind(f10str,'-',WZ3+10)-4;
  WZ5:=F10FIND('◆ 概念题材',WZ1);{查找结束位}
  {取时间}
  T1:= strmid(f10str,WZ1,10);
  T2:= strmid(f10str,WZ2,10);
  T3:=strmid(f10str,WZ3,10);
  T4:= strmid(f10str,WZ4,10);
  {取股东户数}
  LS:=138;
  HS1:=STRTONUM(strmid(f10str,WZ1+LS,10));
  HS2:=IF(WZ2  HS3:=IF(WZ3  HS4:=IF(WZ4  {取户均持股数}
  LS:=208;
  RS1:=STRTONUM(strmid(f10str,WZ1+LS,10));
  RS2:=IF(WZ2100,STRTONUM(strmid(f10str,WZ2+LS,10)),0);
  RS3:=IF(WZ3100,STRTONUM(strmid(f10str,WZ3+LS,10)),0);
  RS4:=IF(WZ4100,STRTONUM(strmid(f10str,WZ4+LS,10)),0);
  {大股东数据查找}
  f10str:=f10text(QSW1,JSW1-QSW1);
  HJW:=0;
{for 循环很慢无法忍受，换成下面的展开

      FOR i=1 to 4 DO
  BEGIN
   SJT:=strfind(f10str,'占流通股',HJW+16);
   if SJT<0  OR SJT > JSW1 THEN BREAK;
         TT:=strmid(f10str,SJT-(44-21),10);
         HJW:=strfind(f10str,'总  计',SJT+300);
               持股:=strtonum(strmid(f10str,HJW+6,44-12));
         比例:= strtonum(strmid(f10str,HJW+6+45-12,51-45));
         ABC:=HJW+80-5+36;
         HJW:=ABC;
  END;
}
SJT:=strfind(f10str,'占流通股',HJW+15);
TT1:=strmid(f10str,SJT-(45-21),10);{时间}
HJW:=strfind(f10str,'总  计',SJT+300);
      持股[1]:=strtonum(strmid(f10str,HJW+6,44-12));
      比例[1]:= strtonum(strmid(f10str,HJW+6+45-12,51-45));
      ABC:=HJW+80-5+36;
      HJW:=ABC;
SJT:=strfind(f10str,'占流通股',HJW+15);
TT2:=strmid(f10str,SJT-(45-21),10);{时间}
HJW:=strfind(f10str,'总  计',SJT+300);
      持股[2]:=strtonum(strmid(f10str,HJW+6,44-12));
      比例[2]:= strtonum(strmid(f10str,HJW+6+45-12,51-45));
      ABC:=HJW+80-5+36;
      HJW:=ABC;
SJT:=strfind(f10str,'占流通股',HJW+15);
TT3:=strmid(f10str,SJT-(45-21),10);{时间}
HJW:=strfind(f10str,'总  计',SJT+300);
      持股[3]:=strtonum(strmid(f10str,HJW+6,44-12));
      比例[3]:= strtonum(strmid(f10str,HJW+6+45-12,51-45));
      ABC:=HJW+80-5+36;
      HJW:=ABC;

SJT:=strfind(f10str,'占流通股',HJW+15);
if SJT>0 THEN
BEGIN
TT4:=strmid(f10str,SJT-(45-21),10);{时间}
HJW:=strfind(f10str,'总  计',SJT+300);
      持股[4]:=strtonum(strmid(f10str,HJW+6,44-12));
      比例[4]:= strtonum(strmid(f10str,HJW+6+45-12,51-45));
      ABC:=HJW+80-5+36;
      HJW:=ABC;
END;
当期:=持股[1];
当期1:=比例[1];
上期:=持股[2];
上期1:=比例[2];
±比例:=当期1-上期1;
前二:=持股[3];
前二1:=比例[3];
前三:=持股[4];
前三1:=比例[4];
{将变化持股数对应显示在对应位置}

{排序}
股东增幅:(HS1-HS2)/HS2*100,PRECIS2,linethick2,Colorblack;
持股增幅:(RS1-RS2)/RS2*100,PRECIS2,linethick2,COLORRED;
主力增幅:(当期-上期)/上期*100,PRECIS2,LINETHICK2,Colorblue;
主力流通:(当期-上期1)/当期1*100,PRECIS2,LINETHICK2,Colorbrown;
{-------------------【图解模板】-------------------}
A2:=0;
A3:=1000;
AG:=INTPART((A3-A2)/10);
{显示文字}
DRAWTEXTREL(0,AG*0,'报表时间'),COLORblue;
DRAWTEXTREL(0,AG*2,'户均持股'),Colorblue;
DRAWTEXTREL(0,AG*4,'股东户数'),Colorblue;
DRAWTEXTREL(0,AG*6,'主力占流通%'),Colorblue;
DRAWTEXTREL(0,AG*8,'主力持股数(万)'),Colorblue;
{时间}
DRAWTEXTREL(AG*8,AG*0,T1),ALIGN2,COLORred;
DRAWTEXTREL(AG*6,AG*0,T2),ALIGN2,COLORred;
DRAWTEXTREL(AG*4,AG*0,T3),ALIGN2,COLORred;
DRAWTEXTREL(AG*2,AG*0,T4),ALIGN2,COLORred;
{户均持股}
DRAWTEXTREL(AG*8,AG*2,NUMTOSTR(RS1 )),ALIGN2,Colorbrown;
DRAWTEXTREL(AG*6,AG*2,NUMTOSTR(RS2 )),ALIGN2,Colorbrown;
DRAWTEXTREL(AG*4,AG*2,NUMTOSTR(RS3 )),ALIGN2,Colorbrown;
DRAWTEXTREL(AG*2,AG*2,NUMTOSTR(RS4 )),ALIGN2,Colorbrown;
{股东户数}
DRAWTEXTREL(AG*8,AG*4,NUMTOSTR(HS1)),ALIGN2,Colorblack;
DRAWTEXTREL(AG*6,AG*4,NUMTOSTR(HS2)),ALIGN2,Colorblack;
DRAWTEXTREL(AG*4,AG*4,NUMTOSTR(HS3)),ALIGN2,Colorblack;
DRAWTEXTREL(AG*2,AG*4,NUMTOSTR(HS4)),ALIGN2,Colorblack;
{主力占流通比}
temp:=NUMTOSTR(当期1);
tem:=TT1;
temp1:='('+tem+')'+temp;
DRAWTEXTREL(AG*8,AG*6,temp1),ALIGN2,COLORMAGENTA;
temp:=NUMTOSTR(上期1);
tem:=TT2;
temp1:='('+tem+')'+temp;
DRAWTEXTREL(AG*6,AG*6,temp1),ALIGN2,COLORMAGENTA;
temp:=NUMTOSTR(前二1);
tem:=TT3;
temp1:='('+tem+')'+temp;
DRAWTEXTREL(AG*4,AG*6,temp1),ALIGN2,COLORMAGENTA;
temp:=NUMTOSTR(前三1);
tem:=TT4;
temp1:='('+tem+')'+temp;
DRAWTEXTREL(AG*2,AG*6,temp1),ALIGN2,COLORMAGENTA;
{10大股东持股}
DRAWTEXTREL(AG*8,AG*8,NUMTOSTR(当期)),ALIGN2,COLORRED;
DRAWTEXTREL(AG*6,AG*8,NUMTOSTR(上期)),ALIGN2,COLORRED;
DRAWTEXTREL(AG*4,AG*8,NUMTOSTR(前二)),ALIGN2,COLORRED;
DRAWTEXTREL(AG*2,AG*8,NUMTOSTR(前三)),ALIGN2,COLORRED;
{TIP DRAW}
DRAWTEXTREL(AG*9,AG*6,'股收益:'+三季收益),ALIGN1,COLORRED;
DRAWTEXTREL(AG*9,AG*4,'净资产:'+净资产),ALIGN1,COLORRED;
DRAWTEXTREL(AG*9,AG*2,'年报日:'+年报日),ALIGN1,COLORRED;
{柱线}
{持股数柱线}
{STICKLINE(BARPOS=A3-AG*1-10 AND HS1>100,0,RS1,AG*3,1),LINETHICK2,ColorFFDDFF;
STICKLINE(BARPOS=A3-AG*2-15 AND HS2>100,0,RS2,AG*3,1),LINETHICK2,ColorF1FFB5;
STICKLINE(BARPOS=A3-AG*3-20 AND HS3>100,0,RS3,AG*3,1),LINETHICK2,ColorB9FFBC;
STICKLINE(BARPOS=A3-AG*4-25 AND HS4>100,0,RS4,AG*3,1),LINETHICK2,ColorB9FFFF;}
{10大股东画柱线}
{STICKLINE(BARPOS=A3-AG*1-6  AND 当期>0,0,当期,AG*3,0),LINETHICK2,ColorFFDDFF;
STICKLINE(BARPOS=A3-AG*2-11 AND 上期>0,0,上期,AG*3,0),LINETHICK2,ColorF1FFB5;
STICKLINE(BARPOS=A3-AG*3-16 AND 前二>0,0,前二,AG*3,0),LINETHICK2,ColorB9FFBC;
STICKLINE(BARPOS=A3-AG*4-21 AND 前三>0,0,前三,AG*3,0),LINETHICK2,ColorB9FFFF;}
END;

以下为老贴，F10结构已变，公式放放在这就是为了学习

    万国F10本行业排名公式，提供三套不同源码共享。

1，万国F10本行业排名（排序）公式，包含起涨点坐标公式源码。
2，万国F10本行业排名（排序）公式，不包含起涨点坐标公式源码，可以任意叠加到自己喜欢的主图中。
3，万国F10本行业排名公式，不包含排序功能，发现使用万国F10本行业排名公式，如果使用排序功能，电脑配置低的用户可能出现调用数据延迟现象。因为DZH2软件本身的扩展功能自带有排序使用方法。同时，加入股票在一个重要的均线位置，缩量调整时的“上涨关键价位，下跌支撑价位”。

公式源码一：
万国F10本行业排名（排序）公式，包含起涨点坐标公式源码。

{大智慧L2--万国F10本行业排名}
cpbd:=f10find('☆[操盘必读]☆',1);
zxzb:=f10find('◆ 最新指标',cpbd+1);
zxsjsj:=f10find('◇万国测评制作',cpbd+1);
hydw:=f10find('◆ 行业地位 ◆',1000);
gxsj:=f10find('◇万国测评制作:',hydw);
zjsj:=f10text(gxsj,36);
hydw1:=f10find('所属行业:',hydw+1);
hydw3:=f10find('证监会行业:',hydw1+1);
hydw2:=f10find('截止日期:',hydw3+1);
IF hydw1>0 and hydw3>0 and hydw2>0  THEN
BEGIN
zjh:=f10text(hydw3,hydw2-hydw3);
hydw4:=f10find('共',hydw3+1);
js:=strtonum(f10text(hydw4+2,3));
sj:=f10text(hydw2,19);
mgsy:=f10find('每股收益排名',hydw2+1);
mgsy1:=f10find('净资产收排名',mgsy+1);
gpszh:=f10find(STKLABEL,mgsy);
f10str:=f10text(gpszh,73);
dm:=strleft(f10str,15);
每股收益排:strtonum(strright(f10str,3)),linethick0,PRECIS2,colorgray;
gpszh1:=f10find(STKLABEL,mgsy1);
f10str1:=f10text(gpszh1,73);
净利润排:strtonum(f10text(gpszh1+56,3)),linethick0,PRECIS2,colorgray;
主营收入排:strtonum(f10text(gpszh+56,3)),linethick0,precis2,colorgray;
净资产收益排:strtonum(strright(f10str1,3)),linethick0,precis2,colorgray;
综合排名值:每股收益排+净利润排+主营收入排+净资产收益排,linethick0,precis2,colorff00a0;
zytb:=f10find('主营收入同比增长',cpbd+1);
主营收入同比:strtonum(f10text(zytb+20,10)),linethick0,PRECIS2,colorgray;
jll:=f10find('净利润同比增长',zytb+1);
净利润同比:strtonum(f10text(jll+20,10)),linethick0,PRECIS2,colorgray;
jzc:=f10find('净资产收益率',jll+1);
净资产收益率:strtonum(f10text(jzc+20,10)),linethick0,precis2,colorgray;
zxsj:=f10text(zxzb,zxsjsj-5-zxzb);
gxsjy:=f10text(zxsjsj,34);
{--------图解模版---------}
DRAWTEXTABS(20,40,zxsj+'  '+gxsjy),ColorFFFFFF;
DRAWTEXTABS(20,60,'主营收入同比增长 '+主营收入同比+' ％'+'  净利润同比增长  '+净利润同比+' ％'+' 净资产收益率 '+净资产收益率+' ％'),ColorFFFFFF;
DRAWTEXTABS(20,80,sj+'  '+zjsj),ColorFFFFFF;
DRAWTEXTABS(20,100,zjh),ColorFFFFFF;
DRAWTEXTABS(20,120,'每股收益在本行业内排第 '+每股收益排+' 位 '+'  净利润金额在本行业内排第 '+净利润排+' 位'),ColorFFFFFF;
DRAWTEXTABS(20,140,'主营收入在本行业内排第 '+主营收入排+' 位 '+'  净资产收益在本行业内排第 '+净资产收益排+' 位'),ColorFFFFFF;
DRAWTEXTABS(20,160,dm+' 在本行业综合排名分值：'+综合排名值),Color00FFF8,linethick2;
DRAWTEXTABS(20,180,'机构当前评级:'+EXTRASTRING('评级')),Color00FFF8,linethick2;
END;
{起点分析参数：起始天数 31 1 1000，白线 -62 -1000 1000，黄线 -120 -1000  1000，粉线 -180 -1000  1000}
ap:=FILTER(BACKSET(dynainfo(7)=c and dynainfo(10)=amount,起始天数),起始天数);
ma5:ma(c,5);
ma10:ma(c,10);
ma30:ma(c,30);
ma60:ma(c,60);
if(BARSLAST( ap)>0,INTPART(CLOSE/0.809)*0.809 ,l),POINTDOT,linethick2,coloryellow;
if(BARSLAST( ap)>0,INTPART(CLOSE/0.764)*0.764 ,l),POINTDOT,linethick2,coloryellow;
if(BARSLAST( ap)>0,INTPART(CLOSE/0.809)*0.809+0.809 ,l),POINTDOT,linethick2,colormagenta;
DRAWLINE(ap,L,c>0,c+c*白线/10000,1),colorwhite;
DRAWLINE(ap,L,c>0,c+c*黄线/10000,1),coloryellow;
DRAWLINE(ap,L,c>0,c+c*粉线/10000,1),colormagenta;
DRAWLINE(ap,l,c>0,ref(l,1),1),colorgreen;
STICKLINE(ap,c*1.10,c*0.90,0,1),colorgreen;
DRAWTEXT(ap ,l*0.98,' 起涨点坐标↑' ),linethick2,colorred;

公式源码二：

万国F10本行业排名（排序）公式，可以任意叠加到自己喜欢的主图中。

{大智慧L2--万国F10本行业排名}
cpbd:=f10find('☆[操盘必读]☆',1);
zxzb:=f10find('◆ 最新指标',cpbd+1);
zxsjsj:=f10find('◇万国测评制作',cpbd+1);
hydw:=f10find('◆ 行业地位 ◆',1000);
gxsj:=f10find('◇万国测评制作:',hydw);
zjsj:=f10text(gxsj,36);
hydw1:=f10find('所属行业:',hydw+1);
hydw3:=f10find('证监会行业:',hydw1+1);
hydw2:=f10find('截止日期:',hydw3+1);
IF hydw1>0 and hydw3>0 and hydw2>0  THEN
BEGIN
zjh:=f10text(hydw3,hydw2-hydw3);
hydw4:=f10find('共',hydw3+1);
js:=strtonum(f10text(hydw4+2,3));
sj:=f10text(hydw2,19);
mgsy:=f10find('每股收益排名',hydw2+1);
mgsy1:=f10find('净资产收排名',mgsy+1);
gpszh:=f10find(STKLABEL,mgsy);
f10str:=f10text(gpszh,73);
dm:=strleft(f10str,15);
每股收益排:strtonum(strright(f10str,3)),linethick0,PRECIS2,colorgray;
gpszh1:=f10find(STKLABEL,mgsy1);
f10str1:=f10text(gpszh1,73);
净利润排:strtonum(f10text(gpszh1+56,3)),linethick0,PRECIS2,colorgray;
主营收入排:strtonum(f10text(gpszh+56,3)),linethick0,precis2,colorgray;
净资产收益排:strtonum(strright(f10str1,3)),linethick0,precis2,colorgray;
综合排名值:每股收益排+净利润排+主营收入排+净资产收益排,linethick0,precis2,colorff00a0;
zytb:=f10find('主营收入同比增长',cpbd+1);
主营收入同比:strtonum(f10text(zytb+20,10)),linethick0,PRECIS2,colorgray;
jll:=f10find('净利润同比增长',zytb+1);
净利润同比:strtonum(f10text(jll+20,10)),linethick0,PRECIS2,colorgray;
jzc:=f10find('净资产收益率',jll+1);
净资产收益率:strtonum(f10text(jzc+20,10)),linethick0,precis2,colorgray;
zxsj:=f10text(zxzb,zxsjsj-5-zxzb);
gxsjy:=f10text(zxsjsj,34);
{--------图解模版---------}
DRAWTEXTABS(20,40,zxsj+'  '+gxsjy),ColorFFFFFF;
DRAWTEXTABS(20,60,'主营收入同比增长 '+主营收入同比+' ％'+'  净利润同比增长  '+净利润同比+' ％'+' 净资产收益率 '+净资产收益率+' ％'),ColorFFFFFF;
DRAWTEXTABS(20,80,sj+'  '+zjsj),ColorFFFFFF;
DRAWTEXTABS(20,100,zjh),ColorFFFFFF;
DRAWTEXTABS(20,120,'每股收益在本行业内排第 '+每股收益排+' 位 '+'  净利润金额在本行业内排第 '+净利润排+' 位'),ColorFFFFFF;
DRAWTEXTABS(20,140,'主营收入在本行业内排第 '+主营收入排+' 位 '+'  净资产收益在本行业内排第 '+净资产收益排+' 位'),ColorFFFFFF;
DRAWTEXTABS(20,160,dm+' 在本行业综合排名分值：'+综合排名值),Color00FFF8,linethick2;
DRAWTEXTABS(20,180,'机构当前评级:'+EXTRASTRING('评级')),Color00FFF8,linethick2;
END;

公式源码三：

万国F10本行业排名公式，屏蔽（排序）功能。增加股票在一个重要的均线位置，缩量调整时的“上涨关键价位，下跌支撑价位”功能。

{大智慧L2--万国F10本行业排名}
cpbd:=f10find('☆[操盘必读]☆',1);
zxzb:=f10find('◆ 最新指标',cpbd+1);
zxsjsj:=f10find('◇万国测评制作',cpbd+1);
hydw:=f10find('◆ 行业地位 ◆',1000);
gxsj:=f10find('◇万国测评制作:',hydw);
zjsj:=f10text(gxsj,36);
hydw1:=f10find('所属行业:',hydw+1);
hydw3:=f10find('证监会行业:',hydw1+1);
hydw2:=f10find('截止日期:',hydw3+1);
{万国测评的资料是否完整，数据不完整就不显示内容。}
IF hydw1>0 and hydw3>0 and hydw2>0  THEN
BEGIN
zjh:=f10text(hydw3,hydw2-hydw3);
hydw4:=f10find('共',hydw3+1);
js:=strtonum(f10text(hydw4+2,3));
sj:=f10text(hydw2,19);
mgsy:=f10find('每股收益排名',hydw2+1);
mgsy1:=f10find('净资产收排名',mgsy+1);
gpszh:=f10find(STKLABEL,mgsy);
f10str:=f10text(gpszh,73);
dm:=strleft(f10str,15);
每股收益排:=strtonum(strright(f10str,3));
gpszh1:=f10find(STKLABEL,mgsy1);
f10str1:=f10text(gpszh1,73);
净利润排:=strtonum(f10text(gpszh1+56,3));
主营收入排:=strtonum(f10text(gpszh+56,3));
净资产收益排:=strtonum(strright(f10str1,3));
综合排名值:=每股收益排+净利润排+主营收入排+净资产收益排;
zytb:=f10find('主营收入同比增长',cpbd+1);
主营收入同比:=strtonum(f10text(zytb+20,10));
jll:=f10find('净利润同比增长',zytb+1);
净利润同比:=strtonum(f10text(jll+20,10));
jzc:=f10find('净资产收益率',jll+1);
净资产收益率:=strtonum(f10text(jzc+20,10));
zxsj:=f10text(zxzb,zxsjsj-5-zxzb);
gxsjy:=f10text(zxsjsj,34);
{--------图解模版---------}
DRAWTEXTABS(20,40,zxsj+'  '+gxsjy),ColorFFFFFF;
DRAWTEXTABS(20,60,'主营收入同比增长 '+主营收入同比+' ％'+'  净利润同比增长  '+净利润同比+' ％'+' 净资产收益率 '+净资产收益率+' ％'),ColorFFFFFF;
DRAWTEXTABS(20,80,sj+'  '+zjsj),ColorFFFFFF;
DRAWTEXTABS(20,100,zjh),ColorFFFFFF;
DRAWTEXTABS(20,120,'每股收益在本行业内排第 '+每股收益排+' 位 '+'  净利润金额在本行业内排第 '+净利润排+' 位'),ColorFFFFFF;
DRAWTEXTABS(20,140,'主营收入在本行业内排第 '+主营收入排+' 位 '+'  净资产收益在本行业内排第 '+净资产收益排+' 位'),ColorFFFFFF;
DRAWTEXTABS(20,160,dm+' 在本行业综合排名分值：'+综合排名值),Color00FFF8,linethick2;
DRAWTEXTABS(20,180,'机构当前评级:'+EXTRASTRING('评级')),Color00FFF8,linethick2;
END;
{起点分析参数：起始天数 31 1 1000，白线 -62 -1000 1000，黄线 -120 -1000  1000，粉线 -180 -1000  1000}
ap:=FILTER(BACKSET(dynainfo(7)=c and dynainfo(10)=amount,起始天数),起始天数);
ma5:ma(c,5),ColorFFFFFA;
ma10:ma(c,10),Color00FFFC;
ma30:ma(c,30),ColorFF00FD;
ma60:ma(c,60),Color00FF05;
if(BARSLAST( ap)>0,INTPART(CLOSE/0.809)*0.809 ,l),POINTDOT,linethick2,coloryellow;
if(BARSLAST( ap)>0,INTPART(CLOSE/0.764)*0.764 ,l),POINTDOT,linethick2,coloryellow;
if(BARSLAST( ap)>0,INTPART(CLOSE/0.809)*0.809+0.809 ,l),POINTDOT,linethick2,colormagenta;
DRAWLINE(ap,L,c>0,c+c*白线/10000,1),colorwhite;
DRAWLINE(ap,L,c>0,c+c*黄线/10000,1),coloryellow;
DRAWLINE(ap,L,c>0,c+c*粉线/10000,1),colormagenta;
DRAWLINE(ap,l,c>0,ref(l,1),1),colorgreen;
STICKLINE(ap,c*1.10,c*0.90,0,1),colorgreen;
DRAWTEXT(ap ,l*0.98,' 起涨点坐标↑' ),linethick2,colorred;
{关键上涨支撑价位}
DPZX:=EMA(C,1);
GGZX:=AMOUNT/V/100;
重心:=IF(CAPITAL>0,GGZX,DPZX);
zc1:=LLV(重心,2);
zc2:=LLV(重心,4);
STICKLINE(BARPOS and BARSTATUS=2,zc1,zc1,120,0),LINETHICK1,COLORGREEN;
DRAWTEXT(BARPOS and BARSTATUS=2,zc1*1.06,'上涨关键价位'+NUMTOSTR(zc1)),ALIGN2,LINETHICK1,COLORGREEN;
STICKLINE(BARPOS and BARSTATUS=2,zc2,zc2,120,0),LINETHICK1,COLORYELLOW;
DRAWTEXT(BARPOS and BARSTATUS=2,zc2*0.99,'下跌支撑价位'+NUMTOSTR(zc2)),ALIGN2,LINETHICK1,coloryellow;
--------------------------------------------------------------------------------------------
公式使用说明----------

很多老股民都有丰富的经验和心得，觉得：选择市盈率较低；成长预期PEG指标越小；净资产收益率ROE较高，每股现金流，销售毛利率、每股资本公积金、每股未分配利润这几个指标一起综合考虑，这几个指标越高越好。

要特别重视：主营收入同比，净利润同比，净资收益率三个指标：

1，主营收入同比大幅增长，判断这个公司生意红火；
2，净利润同比大幅增长，判断这个公司不仅生意红火，而且赚钱；
3，净资收益率是公司税后利润除以净资产得到的百分比率。极大的区别于销售毛利率。一般而言，连续几年的净资产收益率都高于15％，这个公司的业绩就已经很不错了。
公式使用说明（一），万国F10本行业排名（排序）：

通过这段公式源码，说明炒股的难和易是相对的。但是我们炒股赚钱的理念是对的：手上持有的是财务指标都很好的优秀企业股票，所以大胆的坚定持股信心，不要低位让出廉价筹码-----决不割肉。
哪怕是暂时遇到了当前股市上证指数从4335大幅调整，最低到了3575点的系统风险，但是我们炒股赚钱的理念是对的：说不定在一个相对低位，选准时机，大胆补仓摊低成本，还可以柳岸花明大赚一笔。
我们说炒股赚钱的理念，是坚决不听小道消息，而是在买卖股票之前，看看这个公式的行业排名（排序）。在炒股赚钱的理念上达到一个目的：谨防买进一只股票，一不小心被套，转眼之间买进的的股票又被ST了。

公式使用说明（二），起涨点坐标公式的使用：

通过这段公式源码，说明炒股赚钱的理念，并不赞成抱住一只股票360天不动，所谓的“顽固价值投资”。因为股票市场的现实告诉我们，不少的绩优股他就是长年累月原地趴着不动的。为什么呢？通过起涨点坐标公式可以知道，股价在起涨点坐标以下的股票大多是庄家震荡，洗盘，吸筹的位置。一只股票通过震荡，洗盘，吸筹到达起涨点位置，该股票的性格就形成了。不管是蓝筹股还是垃圾股，每一只股票都是有性格的。所以说，在一定的程度上，炒股赚钱应该“轻大盘，重个股”。

起涨点坐标公式构成：

1，起涨点坐标由横竖两根绿色线条组成，两线交叉形成一个圆圈点，称为股价起涨点。
2，股价穿越起涨点横线坐标以后，由白线，黄线，粉线组成长期，中期，短期三条趋势线，可以判断趋势阻力和回调价位。
3，起涨点坐标起始天数的默认参数是31，这是一个起始天数可以任意调节，很有趣味的时间参数，同时表现自动人性。
仔细观察：弱势股一般上涨3-5天必将调整；转型转强股一般上涨5-10天也必将调整；可以发现公众热情很高的强势股，一当股价形成两线交叉的圆圈点，穿越起点横线坐标，在31个交易日中，中途只做简短的调整，即完成31个交易日的最高价。一个趋势结束，股价可能又会回到绿色起点坐标线上下。
由白线，黄线，粉线组成的三条趋势线，表现得很是人性：
一只股票在31个交易日中完成了它的最高最高上涨价以后，三条趋势线自动收敛，好像提示：这个波段做完了。

注意：股价跌破起点坐标以后，股价在起点坐标以下较深位置探底，公式会自动提供可供参考的黄色和粉色两条支撑压力线。

公式使用说明（三），如果公式导入后，没有显示万国F10本行业排名内容，

应该登陆创幻财经网站，进行数据下载，分别补齐万国上海和深圳F10数据：

读卡器不能读取数据 vb 数据读取 ASP 数据读取错误突然不读取数据数据ID读取问题 CPU向内存读取数据还是向外存读取数据 mysql读取数据--怎么读取全部的数据 JavaScript与access读取数据 XML的读取数据问题关于VB读取内存数据 ASP 读取数据的麻烦.... 硬盘如何读取数据/ 硬盘读取数据的原理？ GIF数据读取的问题 asp 读取大量数据时太慢 MO盘的数据读取定时动态读取视频图象数据硬盘的读取数据慢怎么办?? 内存无法读取数据，请问该怎么办？怎样能使一台电脑读取数据更快些 vb6 从EXCEL中读取数据。。读取数据慢，硬盘指示灯却亮着。为什么QQ空间总是“正在读取数据”？！ Delphi怎样读取内存数据并修改？