把两公式合成一通达信主图公式
把两公式合成一通达信主图公式
炒股教程
编写条件：
请指标编辑高手把这个历史流通盘改成飞狐可用的指标 分析家历史流通盘原码 st0:=F10FIND('本栏包括【1.股本结构】【2.股本变化】【3.限售流通】【4.股改情况】',10); DRAWTEXT(SYSPARAM(2)+20=BARPOS AND st0<=0,15,'本公式不适合该种F10资料。只适用于【港澳资讯】'),COLOREEFF; if st0<=0 then EXIT; bt1:=F10FIND('｜ 变更日期 ',st0),LINETHICK;; TXEND:=F10FIND('┘',bt1),LINETHICK;;// ttx:=F10TEXT(bt1,txend-bt1); bt2:=STRFIND(ttx,'流通A股',1); bt3:=STRFIND(ttx,'实际流通A股',bt2); t2:=bt2,LINETHICK; t3:=bt3,LINETHICK; 表头:=strmid(ttx,1,bt3+31)+'股本变动(%)'; sln:=STRLEN(ttx),LINETHICK; lns:=sln/(bt3+31); VARIABLE:da[lns]:='',gb[lns]=''; NR:=''; WZT:=1; ii:=0; WHILE WZT
0,strmid(tx,sjg-8,11),strmid(tx,ltg-8,11)); NR:=NR+if(WZT
1 and ref(date,1)
=STRTONUM(da),STRTONUM(gb),ggb) ; 流通盘:hhv(ggb,0),color00ff00; 变动率:=(流通盘/ref(流通盘,1)-1)*100,LINETHICK; DRAWNUMBER(BARPOS>2 and 流通盘<>ref(流通盘,1),流通盘,变动率,1),pxup30,COLOR00ff00,ALIGN2; // 股本转存:if(BARPOS=2 or 流通盘<>ref(流通盘,1),流通盘,0),linethick1;//让转存自定义数据清晰 {转存自定义数据公式名为: 实际流通股 读自定义数据公式 实际流通盘:hhv(SELFdata('实际流通股'),0);{}
编写方法：
st0:=F10FIND('本栏包括【1.股本结构】【2.股本变化】【3.限售流通】【4.股改情况】',10);
DRAWTEXT(SYSPARAM(2)+20=BARPOS AND st0<=0,15,'本公式不适合该种F10资料。只适用于【港澳资讯】'),COLOREEFF;
if st0<=0 then EXIT;
bt1:=F10FIND('｜ 变更日期 ',st0),LINETHICK;;
TXEND:=F10FIND('┘',bt1),LINETHICK;;//
ttx:=F10TEXT(bt1,txend-bt1);
bt2:=STRFIND(ttx,'流通A股',1);
bt3:=STRFIND(ttx,'实际流通A股',bt2);
t2:=bt2,LINETHICK; t3:=bt3,LINETHICK;
表头:=strmid(ttx,1,bt3+31)+'股本变动(%)'; sln:=STRLEN(ttx),LINETHICK;
lns:=sln/(bt3+31);
VARIABLE:da[lns]:='',gb[lns]='';
NR:=''; WZT:=1; ii:=0;
WHILE WZT<sln-140 DO BEGIN
WZT:=STRFIND(ttx,'-',WZT+70);
ii:=ii+1;
tx:=strmid(ttx,WZT-6,72); ti:=strmid(ttx,WZT-4,10);
ltg:=STRFIND(tx,'.',t2); sjg:=STRFIND(tx,'.',t3);
da[ii]:=NUMTOSTR(STRTONUM(strmid(ti,1,4))-1900,0)+strmid(ti,6,2)+strmid(ti,9,2);
gb[ii]:=if(sjg>0,strmid(tx,sjg-8,11),strmid(tx,ltg-8,11));
NR:=NR+if(WZT<sln,tx+'('+NUMTOSTR(ii,0)+') '+'\n','');
end
DRAWTEXTex(BARSTATUS=2,0,1,1,表头+'\n'+NR+'('+NUMTOSTR(ii,0)+') '),COLORDDFE;
ggb:=STRTONUM(gb[ii]);
for i=ii downto 1 do
ggb:if(BARPOS>1 and ref(date,1)<STRTONUM(da[i]) and date>=STRTONUM(da[i]),STRTONUM(gb[i]),ggb) ;
流通盘:hhv(ggb,0),color00ff00;
变动率:=(流通盘/ref(流通盘,1)-1)*100,LINETHICK;
DRAWNUMBER(BARPOS>2 and 流通盘<>ref(流通盘,1),流通盘,变动率,1),pxup30,COLOR00ff00,ALIGN2; //
股本转存:ggb,linethick;
{股票资源馆:www.lixiangluntan.com专业和谐高端炒股软件--公式编写交流--加QQ751161480--}
【股票资源馆】策略投资破解,图片免费下载,理想股票技术论坛,财经股票论坛,炒股论坛社区,股票软件,股票公式,源码交流,指标公式,炒股书籍,分析家公式网,股旁网,股票配资。
使用循环之前给变量赋值的困惑
使用循环之前给变量赋值的困惑
大智慧策略终端/职业股民首选分析软件:支持ACE数据，支持L2行情全推数据，ACE数据，支持股票池，超赢数据，价格低廉，支持月季费年费。：
破解版大智慧VIP机构版下载地址：https://share.weiyun.com/Ki2ihN5g
