散户之家 » 公式分享 » 使用千钧扩展数据的一段源码(动态资金进出)


2008-1-31 11:30 狐狸
使用千钧扩展数据的一段源码(动态资金进出)

[code]variable:wday[7]='星期六';
wday[1]:='星期日';
wday[2]:='星期一';
wday[3]:='星期二';
wday[4]:='星期三';
wday[5]:='星期四';
wday[6]:='星期五';
fy:=year;
fm:=month;
fd:=day;
wd:=weekday;
DRAWTEXTex(c,1,10,5,'版块:'+ BLKNAME+'\n');
BB:=BARPOS=SYSPARAM(1);
p:=SYSPARAM(1);
DRAWTEXTex(c,1,10,50,
'\n\n收益:'+ NUMTOSTR(FINANCE(33),2)+'\n'
+'净资:'+NUMTOSTR(FINANCE(34),2 )+'\n'
+'流通:'+ NUMTOSTR(FINANCE(7)/10000,2)+'亿'+'\n'
+'流通:'+NUMTOSTR(FINANCE(7)/FINANCE(1)*100 ,0)+' %'+'\n'
+'权益:'+NUMTOSTR(FINANCE(36),0 )+' %'+'\n'
+'主营:'+NUMTOSTR(FINANCE(53),0 )+' %'+'\n'
+'利润:'+NUMTOSTR(FINANCE(54),0 )+' %'+'\n'
+'主营:'+NUMTOSTR(FINANCE(20)/10000,1 )+'亿'+'\n'
),COLORccffcc;
机构:=EXTDATA(9);
券商:=EXTDATA(10);
大户:=EXTDATA(11);
中户:=EXTDATA(12);
散户:=EXTDATA(13);
DRAWTEXTex(c,1,10,550,
numtostr(fy[p],0)+'年'+numtostr(fm[p],0)+'月'
+numtostr(fd[p],0)+'日,'+wday[wd[p]+1]+'\n'+
'----------------\n'+
'机构:'+NUMTOSTR(机构[p],0)+'手\n'+
'券商:'+NUMTOSTR(券商[p],0)+'手\n'+
'大户:'+NUMTOSTR(大户[p],0)+'手\n'+
'中户:'+NUMTOSTR(中户[p],0)+'手\n'+
'散户:'+NUMTOSTR(散户[p],0)+'手\n'+
'----------------\n'+
'主力:'+NUMTOSTR(机构[p]+券商[p]+大户[p],0)+'手\n'+
'中小散:'+NUMTOSTR(中户[p]+散户[p],0)+'手\n'+
'买卖总数:'+NUMTOSTR(机构[p]+券商[p]+大户[p]+中户[p]+散户[p],0)+'手\n'+
'资金进出:'+NUMTOSTR((机构[p]+券商[p]+大户[p]+中户[p]+散户[p])*C/100,0)+'万元\n'),COLORyellow;[/code]

2008-1-31 11:52 八极拳
不知道大智慧OLD能否用,试一下

2008-1-31 12:18 渡人渡己
楼主 没有标识符:)

2008-2-5 05:16 wsa123
请教楼主,下载粘贴后说没有标示符,不能安装怎莫回事。谢谢楼主。

2008-2-15 12:20 寒冰
当前公式 : 动态资金 (指标画线公式)  
错误句 : VARIABLE:WDAY[7]=3
详细信息 : 某个操作数没有相应的操作符匹配!
错误起始位置 : 0 ; 长度: 0

不知道应该怎么修改

页: [1]


Powered by Discuz! Archiver 5.5.0  © 2001-2006 Comsenz Inc.