1.飞狐【日线龙虎榜】、【分时龙虎榜】、【主力大单】、【仓位图】
2.【日线龙虎榜】【主力大单】等大单系列指标源码
3.【日线龙虎榜】升级版
4.千钧操盘
5.【日线龙虎榜】第二次升级！增加了盘口部分！日线下看盘口已不是梦想
6.千钧均线
7.永不套牢
8.千钧【赢富-量帐号分类】
9.千钧【赢富-指标】第四版
10.千钧【赢富-指标】第五版
11.千钧【赢富-指标】第六版
12.千钧【创幻-赢富】
13.大盘副图
14.股价均线
15.千钧飞狐DDE系统
16.大资金运作频率+交易分类
17.直观盘口
18.财务主图
19.飞狐【财务主图】
20.凯恩斯工作线

[ 本帖最后由 蓝鼠 于 2008-4-2 09:14 编辑 ]

21.新【龙虎全息看盘】V1.85版
22.千钧仿【霸占大牛股】
23.千钧【霸占大牛股】第四版
24.千钧【霸占大牛股】第五版
25.【永不套牢】最新版
26.【火眼金睛】春节版
27.【趋势为先、资金为王】双向版
28.【千钧控盘系数】
29.大智慧1、大智慧L2、分析家的【凯恩斯工作线、一发千钧优化版】

[ 本帖最后由 蓝鼠 于 2008-4-2 09:12 编辑 ]

引用:

公式名称: 飞狐【日线龙虎榜】、【分时龙虎榜】、【主力大单】、【仓位图】
适用软件: 飞狐(加密)
发 表 人: 一发千钧     
发表日期: 2007-08-28
发表网址: http://www.chcj.net/viewthread.p ... B%B7%A2%C7%A7%BE%FB

引用:

飞狐【日线龙虎榜】、【分时龙虎榜】、【主力大单】、【仓位图】



公式都在一楼，大家可以看图选择。
两个扩张数据公式引入后，在扩展数据里一定要设置为：【大单买入设扩展数据（3）】【大单卖出设扩展数据（4）】，引用公式直接导入就可以了。

扩展数据的设置步骤：管理--扩展数据管理--点数据（3）（4）--点下面的修改--找到大单买入--设置板块选A股板块--确定--刷新历史数据--OK！大单卖出同理！
图一：


图二：


图三：

四个公式是加密的【分时龙虎榜、日线龙虎榜、主力大单、仓位图】。

公式为何加密：
一，网上此类指标大都是加密的，千钧无意坏此“惯例”。
二，千钧首发帖的源码曾遭他人恶意篡改。
三，更有甚者，有人拿它去卖钱。
四，指标还在不断完善中，所以不便公布源码。
五，密码并不复杂，送给有缘人。
鉴于上述原因，此公式加密无时限。待升级时直接覆盖即可。


一，千钧日线龙虎榜共四个公式：
    一个引用公式。
    两个扩展数据。
    一个主公式。

二，主力大单和仓位图与千钧日线龙虎榜公用一套扩展数据，其它公式不使用引用或扩展数据。下载一套扩展数据就可以了，以后千钧再出别的指标时同样使用这套扩展数据。

注意！我的测试平台是飞狐4.9网络版，4.9以下版本可能不能使用，4.9专业版也不能使用【因为专业版的内核是4.0】。
其它版本用【飞狐通用】的主力大单、仓位图。分时龙虎榜和日线龙虎榜其它版本不能使用。

分时龙虎榜：



公式：


日线龙虎榜：


公式：

主力大单、仓位图：



主力大单：
01，
02，

仓位图：
01，
02，

祝大家在浩瀚的股海里“海里拾贝，沙里淘金”恭喜发财！

[ 本帖最后由 蓝鼠 于 2008-11-8 20:21 编辑 ]

引用:

公式名称: 【日线龙虎榜】【主力大单】等大单系列指标源码
适用软件: 飞狐
发 表 人: 一发千钧     
发表日期: 2007-11-11
发表网址: http://www.chcj.net/viewthread.p ... B%B7%A2%C7%A7%BE%FB

引用:

一发千钧【日线龙虎榜】【主力大单】等大单系列指标源码！



一。【日线龙虎榜】最新修改版：
总成交:=DYNAINFO(8)*100;
总J:=AMOUNT;
特大买入:=stkindi('','引用.特大买入',0,0);
特大卖出:=stkindi('','引用.特大卖出',0,0);
大单买入:=stkindi('','引用.大单买入',0,0);
大单卖出:=stkindi('','引用.大单卖出',0,0);
大买金额:=stkindi('','引用.大买金额',0,0);
大卖金额:=stkindi('','引用.大卖金额',0,0);
中单买入:=stkindi('','引用.中单买入',0,0);
中单卖出:=stkindi('','引用.中单卖出',0,0);
小单买入:=stkindi('','引用.小单买入',0,0);
小单卖出:=stkindi('','引用.小单卖出',0,0);
xdm:=(中单买入+小单买入);
xdm1:=(中单卖出+小单卖出);
小买金额:=stkindi('','引用.小买金额',0,0);
小卖金额:=stkindi('','引用.小卖金额',0,0);
特买均:=stkindi('','引用.特买金',0,0);
特卖均:=stkindi('','引用.特卖金',0,0);
大买均:=stkindi('','引用.大买金',0,0);
大卖均:=stkindi('','引用.大卖金',0,0);
小买均:=stkindi('','引用.小买金',0,0);
小卖均:=stkindi('','引用.小卖金',0,0);
买入:=stkindi('','盘口.买入',0,0);
卖出:=stkindi('','盘口.卖出',0,0);
撤买:=stkindi('','盘口.撤买',0,0);
撤卖:=stkindi('','盘口.撤卖',0,0);
上扫:=stkindi('','盘口.上扫',0,0);
下扫:=stkindi('','盘口.下扫',0,0);
对敲买:=stkindi('','盘口.对敲买',0,0);
对敲卖:=stkindi('','盘口.对敲卖',0,0);
对敲买A:=stkindi('','盘口.对敲买A',0,0);
对敲卖B:=stkindi('','盘口.对敲卖B',0,0);
大对买:=stkindi('','盘口.大对买',0,0);
大对卖:=stkindi('','盘口.大对卖',0,0);
总撤买单:=stkindi('','盘口.总撤买单',0,0);
总撤卖单:=stkindi('','盘口.总撤卖单',0,0);
总敲买:=stkindi('','盘口.总敲买',0,0);
总敲卖:=stkindi('','盘口.总敲卖',0,0);
隐性买单:=stkindi('','引用.隐性买单',0,0);
隐性卖单:=stkindi('','引用.隐性卖单',0,0);
隐买金:=stkindi('','引用.隐买金',0,0);
隐卖金:=stkindi('','引用.隐卖金',0,0);
隐买均:=隐买金/隐性买单;
隐卖均:=隐卖金/隐性卖单;
特买均价:=特买均/特大买入;
特卖均价:=特卖均/特大卖出;
大买均价:=大买均/大单买入;
大卖均价:=大卖均/大单卖出;
小买均价:=小买均/小单买入;
小卖均价:=小卖均/小单卖出;
总:=(特大买入+特大卖出+大单买入+大单卖出+中单买入+中单卖出+小单买入+小单卖出+隐性买单+隐性卖单);
AA01:=EXTDATA(9)+EXTDATA(10)+EXTDATA(11);
AA0:=SUM(AA01,0);
A0:=REF(AA01,1);
A01:=REF(AA01,3);
增:=((EXTDATA(9)+EXTDATA(10)+EXTDATA(11))*100)*c/10000;
DRAWTEXTEX(c,1,20,10,STKLABEL+'  '+STKNAME+''),Color0000FF;
DRAWTEXTEX(c,1,21,11,STKLABEL+'  '+STKNAME+''),Color00FFFF;
{显示时间}
variable:wday[7]='星期六';
wday[1]:='星期日';
wday[2]:='星期一';
wday[3]:='星期二';
wday[4]:='星期三';
wday[5]:='星期四';
wday[6]:='星期五';
fy:=年份;
fm:=月份;
fd:=日期;
wd:=星期;
p:=系统参数(1);
str1:=''+numtostr(fy[p],0)+'年'+numtostr(fm[p],0)+'月'+数字转化为字符串(fd[p],0)+'日 '+wday[wd[p]+1];
DRAWTEXTEX(c,1,240,10,str1),Color0000FF;
DRAWTEXTEX(c,1,241,11,str1),coloryellow;
股东总数:=FINANCE(50),LINETHICK0,Color00FF00;
每股收益:FINANCE(33),LINETHICK0,PRECISION2,Color00FFFF;
市盈率:DYNAINFO(39),LINETHICK0,PRECISION2,Color009AFF;
市净率:c/FINANCE(34)LINETHICK0,PRECISION2,ColorFFFFFF;
每股公积金:=FINANCE(18);
净利润:=FINANCE(30);
主营业务增长率:=FINANCE(53);
净利润增长率:=FINANCE(55);
人均持股:=(FINANCE( 7)/FINANCE(50))*10000;
每笔均额【万】:(DYNAINFO(10)/DYNAINFO(51))/10000,LINETHICK0,Color00FF00,PRECISION2;
散户跟风系数:=(小单买入-小单卖出)/总*100;
DRAWTEXTEX(c,1,760,10,'流通盘:'+NUMTOSTR(Finance(7)/10000,2)+'亿股'),Color00FFFF;
{显示02}
DRAWTEXTEX(c,1,10,100,'特大买入:'+NUMTOSTR(特大买入,0)+''),Color00FFFF;
DRAWTEXTEX(c,1,210,100,'占:'+NUMTOSTR(特大买入/总*100,0)+'%'),Color00FFFF;
DRAWTEXTEX(c,1,10,200,'特大卖出:'+NUMTOSTR(特大卖出,0)+''),ColorFF0090;
DRAWTEXTEX(c,1,210,200,'占:'+NUMTOSTR(特大卖出/总*100,0)+'%'),ColorFF0090;
DRAWTEXTEX(c,1,10,300,'机构散买:'+NUMTOSTR(隐性买单,0)+''),Color0095FF;
DRAWTEXTEX(c,1,210,300,'占:'+NUMTOSTR(隐性买单/总*100,0)+'%'),Color0095FF;
DRAWTEXTEX(c,1,10,400,'机构散卖:'+NUMTOSTR(隐性卖单,0)+''),ColorFFFFB4;
DRAWTEXTEX(c,1,210,400,'占:'+NUMTOSTR(隐性卖单/总*100,0)+'%'),ColorFFFFB4;
DRAWTEXTEX(c,1,10,500,'大单买入:'+NUMTOSTR(大单买入,0)+''),color5050FF;
DRAWTEXTEX(c,1,210,500,'占:'+NUMTOSTR(大单买入/总*100,0)+'%'),color5050FF;
DRAWTEXTEX(c,1,10,600,'大单卖出:'+NUMTOSTR(大单卖出,0)+''),Color00FF00;
DRAWTEXTEX(c,1,210,600,'占:'+NUMTOSTR(大单卖出/总*100,0)+'%'),color00FF00;
DRAWTEXTEX(c,1,10,700,'小单买入:'+NUMTOSTR(xdm,0)+''),LINETHICK2,COLORFF00FF;
DRAWTEXTEX(c,1,210,700,'占:'+NUMTOSTR(xdm/总*100,0)+'%'),LINETHICK2,COLORFF00FF;
DRAWTEXTEX(c,1,10,800,'小单卖出:'+NUMTOSTR(xdm1,0)+''),ColorFFFF00;
DRAWTEXTEX(c,1,210,800,'占:'+NUMTOSTR(xdm1/总*100,0)+'%'),ColorFFFF00;
DRAWTEXTEX(c,1,480,900,'总计对敲买:'+NUMTOSTR(总敲买 ,0)),Color2B78FF;
DRAWTEXTEX(c,1,480,980,'总计对敲卖:'+NUMTOSTR(总敲卖 ,0 )),ColorFFFFFF;

DRAWTEXTEX(c,1,310,100,'特大买均价:'+NUMTOSTR(特买均价,2)+''),Color00FFFF;
DRAWTEXTEX(c,1,310,200,'特大卖均价:'+NUMTOSTR(特卖均价,2)+''),ColorFF0090;
DRAWTEXTEX(C,1,310,300,'机构散买均:'+NUMTOSTR(隐买均,2)+''),Color0095FF;
DRAWTEXTEX(C,1,310,400,'机构散卖均:'+NUMTOSTR(隐卖均,2)+''),ColorFFFFB4;
DRAWTEXTEX(c,1,310,500,'大单买均价:'+NUMTOSTR(大买均价,2)+''),Color0000FF;
DRAWTEXTEX(c,1,310,600,'大单卖均价:'+NUMTOSTR(大卖均价,2)+''),Color00FF00;
DRAWTEXTEX(c,1,310,700,'小单买均价:'+NUMTOSTR(小买均价,2)+''),ColorFF00FF;
DRAWTEXTEX(c,1,310,800,'小单卖均价:'+NUMTOSTR(小卖均价,2)+''),ColorFFFF00;

{盘口}
DRAWTEXTEX(c,1,10,900,'盘口对敲买:'+NUMTOSTR(对敲买,0  )),Color0000FF;
DRAWTEXTEX(c,1,10,980,'盘口对敲卖:'+NUMTOSTR(对敲卖,0 )),Color00FF00;

DRAWTEXTEX(c,1,530,100,'买入(手)：'+NUMTOSTR(买入 ,0 )),Color0000FF;
DRAWTEXTEX(c,1,530,200,'卖出(手)：'+NUMTOSTR(卖出 ,0 )),Color00FF00;
DRAWTEXTEX(c,1,530,300,'撤买(手)：'+NUMTOSTR(撤买 ,0)),ColorFF00FF;
DRAWTEXTEX(c,1,530,400,'撤卖(手)：'+NUMTOSTR(撤卖 ,0 )),ColorFFFF00;
DRAWTEXTEX(c,1,530,500,'总撤买单:'+NUMTOSTR(总撤买单 ,0)),Color2B78FF;
DRAWTEXTEX(c,1,530,600,'总撤卖单:'+NUMTOSTR(总撤卖单 ,0 )),ColorFFFF00;
DRAWTEXTEX(c,1,530,700,'上扫单:'+NUMTOSTR(上扫 ,0 )),Color00FFFF;
DRAWTEXTEX(c,1,530,800,'下扫单:'+NUMTOSTR(下扫 ,0)),ColorFFFFFF;
DRAWTEXTEX(C,1,230,900,'大对敲买单:'+NUMTOSTR(大对买,0)+''),ColorFF00FF;
DRAWTEXTEX(C,1,230,980,'大对敲卖单:'+NUMTOSTR(大对卖,0)+''),ColorFFFF00;

DRAWTEXTEX(c,1,720,100,'总成股数:'+NUMTOSTR(总成交/10000,0)+'万股'),color5050FF;
DRAWTEXTEX(c,1,720,200,'成交金额:'+NUMTOSTR(总j,0)+'万'),Color0000FF;
DRAWTEXTEX(c,1,720,300,'股东总数:'+NUMTOSTR(股东总数,0)+''),Color00FFFF;
DRAWTEXTEX(c,1,720,400,'人均持股:'+NUMTOSTR(人均持股,0)+''),ColorFFFF00;
DRAWTEXTEX(c,1,720,500,'大单净值:'+NUMTOSTR(增,0)+'万元'),ColorFFFF00;
DRAWTEXTEX(c,1,720,600,'昨日大单买:'+NUMTOSTR((A0),0)+''),ColorFF00FF;
DRAWTEXTEX(c,1,720,700,'前日大单买:'+NUMTOSTR(A01,0)+''),LINETHICK2,Color00FFFF;
DRAWTEXTEX(c,1,720,800,'散户跟风系数:'+NUMTOSTR(散户跟风系数,2)+'%'),Color00FFFF;

{成本}
PT:=(REF(HIGH,1) - REF(LOW,1));
CDP:=(((HIGH + LOW) + CLOSE) / 3);
AH:=(CDP + PT);
AL:=(CDP - PT);
NH:=((2 * CDP) - LOW);
NL:=((2 * CDP) - HIGH);
A:=((((OPEN + HIGH) + LOW) + (CLOSE * 2)) / 5);
S:=(((HIGH - A) * 0.618) + A);
X:=(((A - LOW) * 0.382) + LOW);
卖出价:=(((CLOSE * 2.5) / 100) + CLOSE);
买入价:=(CLOSE - ((CLOSE * 2.5) / 100));
{柱线}
STICKLINE((总 AND BARSTATUS=2),0,总,65,1),Color007DFF,LINETHICK3;
STICKLINE((特大买入+特大卖出+隐性买单+隐性卖单+大单买入+大单卖出+小单买入+小单卖出 AND BARSTATUS=2),0,总,60,0),Color00FFFF;
STICKLINE((特大卖出+隐性买单+隐性卖单+大单买入+大单卖出+小单买入+小单卖出 AND BARSTATUS=2),0,特大卖出+隐性买单+隐性卖单+大单买入+大单卖出+小单买入+小单卖出,60,0),ColorFF0090;
STICKLINE((隐性买单+隐性卖单+大单买入+大单卖出+小单买入+小单卖出 AND BARSTATUS=2),0,隐性买单+隐性卖单+大单买入+大单卖出+小单买入+小单卖出,60,0),Color0095FF;
STICKLINE((隐性卖单+大单买入+大单卖出+小单买入+小单卖出 AND BARSTATUS=2),0,隐性卖单+大单买入+大单卖出+小单买入+小单卖出,60,0),ColorFFFFB4;
STICKLINE((大单买入+大单卖出+小单买入+小单卖出 AND BARSTATUS=2),0,大单买入+大单卖出+小单买入+小单卖出,60,0),Color0000FF;
STICKLINE((大单卖出+小单买入+小单卖出 AND BARSTATUS=2),0,大单卖出+小单买入+小单卖出,60,0),Color00FF00;
STICKLINE((小单买入+小单卖出 AND BARSTATUS=2),0,小单买入+小单卖出,60,0),ColorFF00FF;
STICKLINE((小单卖出 AND BARSTATUS=2),0,小单卖出,60,0),ColorFFFF00;
{增减仓}
日增:=增;
周仓:=SUM(日增,5);
月仓:=SUM(日增,20);
季仓:=SUM(日增,60);
半年:=SUM(日增,120);
年仓:=SUM(日增,240);
上周:=REF(周仓,5);
上月:=REF(月仓,20);
上季:=REF(季仓,60);
上半年:=SUM(日增,120);
上年:=SUM(日增,240);
周增:=(周仓-上周);
月增:=(月仓-上月);
季增:=(季仓-上季);
半年增:=(半年-上半年);
年增:=(年仓-上年);

{解盘}
EXPLAIN(1=1,'2007.10.10【一发千钧】'),ColorD300D6;
EXPLAIN(1,'==================================='),colorwhite;
EXPLAIN(1=1,'每股公积金='+NUMTOSTR(每股公积金,2)+'元'),Color0000FF;
EXPLAIN(1=1,'净利润'+NUMTOSTR(净利润,2)+'万元'),Color00FF00;
EXPLAIN(1=1,'主营业务增长率'),Color0000FF;
EXPLAIN(1=1,NUMTOSTR(主营业务增长率,2)+'%'),Color0000FF;
EXPLAIN(1=1,'净利润增长率'),Color00FF00;
EXPLAIN(1=1,NUMTOSTR(净利润增长率,2)+'%'),Color00FF00;
EXPLAIN(1,'==================================='),colorwhite;
EXPLAINEX(1,'【波动系数】=',PT,2,0),colorFFFF;
EXPLAINEX(1,'【最高】=',AH,2,0),colorFF;
EXPLAINEX(1,'【中价】=',CDP,2,0),colorFFFF;
EXPLAINEX(1,'【最低】=',AL,2,0),colorFFFFFF;
EXPLAINEX(1,'【近高】=',NH,2,0),colorFFFF00;
EXPLAINEX(1,'【近低】=',NL,2,0),colorFF00FF;
EXPLAINEX((1 = 1),'【买入价】=',买入价,2,0),colorFFFF;
EXPLAINEX((1 = 1),'【卖出价】=',卖出价,2,0),colorFF00;
EXPLAIN(1,'==================================='),colorwhite;
EXPLAINEX(1,'日增减【万元】: ',日增,2,0),ColorFF8B00;
EXPLAIN(1,'==================================='),colorwhite;
EXPLAINEX(1,'周仓【万元】:',周仓,2,0),COLORred;
EXPLAINEX(1,'上周【万元】:'+NUMTOSTR(上周,2)+'   
周增减【万元】:',周增,2,0),COLORred;//环比增量
EXPLAIN(1,'==================================='),colorwhite;
EXPLAINEX(1,'月仓【万元】:',月仓,2,0),COLORyellow;//green;
EXPLAINEX(1,'上月【万元】:'+NUMTOSTR(上月,2)+'   
月增减【万元】:',月增,2,0),COLORyellow;
EXPLAIN(1,'==================================='),colorwhite;
EXPLAINEX(1,'季仓【万元】:',季仓,2,0),COLORgreen;
EXPLAINEX(1,'上季【万元】:'+NUMTOSTR(上季,2)+'   
季增减【万元】:',季增,2,0),COLORgreen;
EXPLAIN(1,'==================================='),colorwhite;
EXPLAINEX(1,'半年仓【万元】:',半年,2,0),COLORcyan;
EXPLAINEX(1,'上半年【万元】:'+NUMTOSTR(上半年,2)+'  
增减仓【万元】:',半年增,2,1),COLORcyan;
EXPLAIN(1,'==================================='),colorwhite;
EXPLAINEX(1,'年仓【万元】:',年仓,2,0),COLORyellow;
EXPLAINEX(1,'上年【万元】:'+NUMTOSTR(上年,2)+'  
增减仓【万元】:',年增,2,1),COLORyellow;
EXPLAINEX(1,'年增【万元】:'+NUMTOSTR(上年,2)+'   
增减仓【万元】:',年增,2,1),COLORgreen;
EXPLAIN(1,'==================================='),colorwhite;

二、一发【标准量】：
总成交:V,VOLSTICK;
主买:(EXTDATA(9)+EXTDATA(10)+EXTDATA(11)+EXTDATA(12)+EXTDATA(13))*2;
主卖:(DYNAINFO( 8)-主买)*2;
当前股数:stkindi('','引用.股数',0,0),Color006CFF;
当前金额:stkindi('','引用.资金',0,0)/10000,PRECISION2,Color00FFFF;
大单净值:stkindi('','引用.大单净值',0,0)/10000,PRECISION2,Color0000FF;
STICKLINE(VOL>0,VOL,0,3,1),Color00FFFF;
STICKLINE(主买>0,0,主买,6,0),Color0000FF;
STICKLINE(主卖<0,0,主卖,6,0),ColorFF0000;
预测量:STICKLINE(DYNAINFO(7)=C AND DYNAINFO(10)=AMOUNT,DYNAINFO(17)*REF(MA(VOL,5),1),0,2,1),ColorFFFF00,PRECISION2;
DRAWTEXT(DYNAINFO(7)=C AND DYNAINFO(10)=AMOUNT,V,'←\n实\n际\nV'),ColorFFFF00;

三、【主力大单】
DRAWGBK(C>0,COLORRGB(100,120,180),0,1);
a04:=EXTDATA(9)+EXTDATA(10)+EXTDATA(11);
A02:=SUM(a04,5);
A12:=REF(EXTDATA(9),3);
A13:=REF(EXTDATA(10),3);
A14:=REF(EXTDATA(11),3);
日仓:a04,ColorFFFFFF,LINETHICK0,PRECISION0;
五日大单差:a02,Color0000FF,COLORSTICK,LINETHICK4;
{显示}
DRAWTEXTEX(c,1,20,0,'昨日机构买:'+NUMTOSTR((EXTDATA(9)),0)+' 手'),Color00FFFF;
DRAWTEXTEX(c,1,20,300,'昨日券商买:'+NUMTOSTR((EXTDATA(10)),0)+' 手'),Color00FFFF;
DRAWTEXTEX(c,1,20,600,'昨日大户买:'+NUMTOSTR(EXTDATA(11),0)+' 手'),Color00FFFF;
DRAWTEXTEX(c,1,20,150,'前日机构买:'+NUMTOSTR(A12,0)+' 手'),Color00B548;
DRAWTEXTEX(c,1,20,450,'前日券商买:'+NUMTOSTR(A13,0)+' 手'),Color00B548;
DRAWTEXTEX(c,1,20,750,'前日大户买:'+NUMTOSTR(A14,0)+' 手'),Color00B548;
DRAWTEXTEX(c,1,20,900,'五日大单差:'+NUMTOSTR(a02,0)+' 手'),Color00FFFF;

引用:

四、【仓位图】
DRAWGBK(C>0,COLORRGB(100,120,180),0,1);
{增减仓}
特大买入:=stkindi('','引用.大单买入',0,0);
特大卖出:=stkindi('','引用.大单卖出',0,0);
大单买入:=stkindi('','引用.大单买入',0,0);
大单卖出:=stkindi('','引用.大单卖出',0,0);
净买入:(特大买入+大单买入)-(特大卖出+大单卖出),Color007AFF;
大资金买:特大买入,Color0080FF,LINETHICK0;
大资金卖:特大卖出,ColorFFFF00,LINETHICK0;
{增减仓}
日增减:(EXTDATA(9)+EXTDATA(10)),LINETHICK0,PRECISION2;
日增:=日增减*100;
周仓:=SUM(日增,5);
月仓:=SUM(日增,20);
季仓:=SUM(日增,60);
半年:=SUM(日增,120);
年仓:=SUM(日增,240);
上周:=REF(周仓,5);
上月:=REF(月仓,20);
上季:=REF(季仓,60);
上半年:=SUM(日增,120);
上年:=SUM(日增,240);
周增:=(周仓-上周);
月增:=(月仓-上月);
季增:=(季仓-上季);
半年增:=(半年-上半年);
年增:=(年仓-上年);
{柱线}
STICKLINE(月增>0,0,月仓,4,0),Color00FF00;
STICKLINE(月增<0,0,月增,4,0),Color00FF00;
STICKLINE(周增>0,0,周仓,4,0),Color0000FF;
STICKLINE(周增<0,0,周增,4,0),Color00FF00;
{显示}
DRAWTEXTEX(c,1,20,50,'本周仓位:'),Color0000FF;
DRAWTEXTEX(c,1,160,50,NUMTOSTR((周仓)/10000,2)+' 万元'),Color0000FF;
DRAWTEXTEX(c,1,20,350,'周增减仓:'),Color00FFFF;
DRAWTEXTEX(c,1,160,350,NUMTOSTR((周增)/10000,2)+' 万元'),Color00FFFF;
DRAWTEXTEX(c,1,20,650,'本月仓位:'),Color00FF00;
DRAWTEXTEX(c,1,160,650,NUMTOSTR((月仓)/10000,2)+' 万元'),Color00FF00;
DRAWTEXTEX(c,1,20,950,'月增减仓:'),ColorFFFF00;
DRAWTEXTEX(c,1,160,950,NUMTOSTR((月增)/10000,2)+' 万元'),ColorFFFF00;
{解盘}
EXPLAIN(1=1,'2007.08.01【一发千钧】'),ColorD300D6;
EXPLAIN(1,'==================================='),colorwhite;
EXPLAINEX(1,'【日增减】万元= ',日增/10000,2,0),ColorFF00FF;
EXPLAINEX(1,'【周仓】万元= ',周仓/10000,2,0),Color00FF00;
EXPLAINEX(1,'【上周】万元='+NUMTOSTR(上周/10000,2)+'   
【周增减】万元=',周增/10000,2,0),Color00FFFF;//环比增量
EXPLAIN(1,'==================================='),colorwhite;
EXPLAINEX(1,'【月仓】万元= ',月仓/10000,2,0),ColorFF00FF;//green;
EXPLAINEX(1,'【上月】万元='+NUMTOSTR(上月/10000,2)+'   
【月增减】万元=',月增/10000,2,0),Color00FF00;
EXPLAIN(1,'==================================='),colorwhite;
EXPLAINEX(1,'【季仓】万元=',季仓/10000,2,0),Color00FFFF;
EXPLAINEX(1,'【上季】万元='+NUMTOSTR(上季/10000,2)+'   
【季增减】万元=',季增/10000,2,0),Color00FF00;
EXPLAIN(1,'==================================='),colorwhite;
EXPLAINEX(1,'【半年仓】万元=',半年/10000,2,0),Color00FFFF;
EXPLAINEX(1,'【上半年】万元='+NUMTOSTR(上半年/10000,2)+'  
【增减仓】万元=',半年增/10000,2,0),Color00FF00;
EXPLAIN(1,'==================================='),colorwhite;
EXPLAINEX(1,'【年仓】万元=',年仓/10000,2,0),ColorFFFF00;
EXPLAINEX(1,'【上年】万元='+NUMTOSTR(上年/10000,2)+'  
【增减仓】万元=',年增/10000,2,0),COLORyellow;
EXPLAINEX(1,'【年增】万元='+NUMTOSTR(上年/10000,2)+'   
【增减仓】万元=',年增/10000,2,0),Color00FF00;
EXPLAIN(1,'==================================='),colorwhite;

五、【主力轨迹】
主力仓位密集率:=((COST(95) - COST(5)) / (COST(95)+COST(5)) * 100);
主力:=IF((主力仓位密集率 < 20),1,0),colorFF,LINETHICK0;
主力运作:STICKLINE((主力>=1),v,主力,6,0),colorFF,LINETHICK0;
主力休眠:STICKLINE((主力<1),v,主力,6,0),Color00FF00,LINETHICK0;

六。【大单频率】
a:=STKINDI('','引用.特大买入',0,0);
a1:=STKINDI('','引用.特大卖出',0,0);
d:=STKINDI('','引用.大单买入',0,0);
d1:=STKINDI('','引用.大单卖出',0,0);

总:=EXTDATA(9)+EXTDATA(10)+EXTDATA(11)+EXTDATA(12)+EXTDATA(13);
大单买入:总,PRECISION0,LINETHICK0,Color0000FF;
大单卖出:DYNAINFO(8)-总,PRECISION0,LINETHICK0,Color00FF00;
大单频率:总/60/240/CAPITAL,ColorFF00FF;//每分钟大买成交频率
大单动向:((a+d)-(a1+d1))/CAPITAL,PRECISION2,LINETHICK;
DRAWTEXTEX(c,1,10,0,'大单频率;'+NUMTOSTR(大单频率,0)+' 次/每分/日'),Color0000FF;

引用:

先占上这个位置，留作以后用！

看来这个空留得还是有用的！
【7楼】和【16楼】的朋友你们好：
是不是废物、地球人都知道。
你的软件中如果有一个一发千钧的指标、它也不会向你要“引用”公式，这只能说明、你不是千钧的老朋友！
这六个指标我在发标时曾对朋友们承诺过：待时机成熟时公布源码。
千钧是个诚信之人，对千钧的老朋友的承诺、千钧理当兑现。你不属于千钧需兑现的老朋友之列。

另外：
请看标题前的指标索引【飞狐】！
这六个指标有四个是飞狐的，需在4.9以上版本中运行。
【一发标准量】【主力轨迹】是通用的。

回复各位朋友们的问题：
一、扩展数据：
源码在此、大家应该能看得到，本次公布源码，统一了扩展数据接口。
截止到目前为止千钧所有的使用扩展数据的指标，使用扩展数据范围一律在9--13号。
以前的扩展数据1--8可以删除，释放扩展资源。
今后再出指标都在9--13这个范围。另有计算的除外。

二、关于大智慧的指标，为什么迟迟不能出台的问题：
看到这么多朋友为使用一个指标、这样用心良苦，一发千钧十分感动！
但千钧真的让朋友们失望了，千钧是个信誉重于生命的人，我已承诺：六个月内，不写大智慧新一代的有关机构数据统计类的指标！做出这个决定我也不情愿。但没办法。树大招风、水大溺人！
按说大智慧新一代，在画图方面，是目前所有飞狐版本都无法相比的，如果这个指标在大智慧L2上，会比现在在飞狐上还漂亮、直观、实用。
再加上它的递推式数据传输方式，大家可以想象，那会是什么情景？
实在是抱歉了！千钧即以承诺就当奉行，六个月过后【到明年3月1号】、对千钧已无约束。那时，如果朋友们还没有代替的指标，千钧一定效劳！

[ 本帖最后由 蓝鼠 于 2008-11-10 15:34 编辑 ]

引用:

公式名称: 【日线龙虎榜】升级版
适用软件: 飞狐
发 表 人: 一发千钧     
发表日期: 2007-09-18
发表网址: http://www.chcj.net/viewthread.p ... B%B7%A2%C7%A7%BE%FB

引用:

一发千钧【日线龙虎榜】升级版！！！



千钧【日线龙虎榜】升级版。
1、图上的大单标准就是本公式判断大单的界限，当单笔成交大于等于该标准时，才能被视为大单！
2、压缩包内共五个文件，一个引用公式，三个扩展数据，一个主公式。
3、本升级版是供给已经使用千钧“日线龙虎榜”的朋友们的，以前的两个扩展数据（3）（4）也可以不更换，这次多了一个扩展数据（6），这是为了更好的洞察主力仓位变化而加上的。引用公式直接导入就可以了。原来的引用公式同时失效，你可以删掉它！
4、公式依然是加密无时限的。
5、安装时若提示“是否覆盖”请点“是”。
6、压缩包内有安装说明！
【注意】：为了照顾新朋友，压缩包已更新。
重新加进了原来的扩展数据，大单买入（3）大单卖出（4）。
新朋友需同时导入这五个公式。

【说明】
三楼。四楼、八楼、十六楼、十七楼，，，，，，大智慧L2的朋友你们好：
朋友们的心愿及对“一发千钧”的信任让“一发千钧”感动！
有了这样的信任，一发千钧还有什么理由不为朋友们分忧呢？
可是，真的很遗憾，L2的我已经做完了，但不能使用，使用此指标就死机！
大家没有发现大智慧每天都在自动升级【BUG】吗？这个文件可能就是针对【千钧盯盘】的。
我的软件水平有限，所以目前还解决不了此问题。看来它真的把我难住了。
最后，谢谢朋友们的信任与关注！
一发千钧真的无能为力了！

还是那句话“先看图，在选择是否使用！
图示：



图二：

公式：

[ 本帖最后由 蓝鼠 于 2008-11-10 15:39 编辑 ]

引用:

公式名称: 千钧操盘
适用软件: 飞狐
发 表 人: 一发千钧     
发表日期: 2007-09-18
发表网址:

引用:

{-----------------------☆功能开关------------------------}
nn0:=SYSPARAM(3)-SYSPARAM(2);
nn:=BARSCOUNT(c)-SYSPARAM(2);
hh1:=(SYSPARAM(4)-SYSPARAM(5))/20;
y0:=BARSCOUNT(c)>=SYSPARAM(2);
vv0:=if(y0=1 and SYSPARAM(1)>=BARSCOUNT(c),v,0);
c1:= if(BETWEEN(c,SYSPARAM(4)-0.0*hh1,SYSPARAM(4)-0.5*hh1),vv0,0);
c2:= if(BETWEEN(c,SYSPARAM(4)-0.5*hh1,SYSPARAM(4)-1.0*hh1),vv0,0);
c3:= if(BETWEEN(c,SYSPARAM(4)-1.0*hh1,SYSPARAM(4)-1.5*hh1),vv0,0);
c4:= if(BETWEEN(c,SYSPARAM(4)-1.5*hh1,SYSPARAM(4)-2.0*hh1),vv0,0);
c5:= if(BETWEEN(c,SYSPARAM(4)-2.0*hh1,SYSPARAM(4)-2.5*hh1),vv0,0);
c6:= if(BETWEEN(c,SYSPARAM(4)-2.5*hh1,SYSPARAM(4)-3.0*hh1),vv0,0);
c7:= if(BETWEEN(c,SYSPARAM(4)-3.0*hh1,SYSPARAM(4)-3.5*hh1),vv0,0);
c8:= if(BETWEEN(c,SYSPARAM(4)-3.5*hh1,SYSPARAM(4)-4.0*hh1),vv0,0);
c9:= if(BETWEEN(c,SYSPARAM(4)-4.0*hh1,SYSPARAM(4)-4.5*hh1),vv0,0);
c10:=if(BETWEEN(c,SYSPARAM(4)-4.5*hh1,SYSPARAM(4)-5.0*hh1),vv0,0);
c11:=if(BETWEEN(c,SYSPARAM(4)-5.0*hh1,SYSPARAM(4)-5.5*hh1),vv0,0);
c12:=if(BETWEEN(c,SYSPARAM(4)-5.5*hh1,SYSPARAM(4)-6.0*hh1),vv0,0);
c13:=if(BETWEEN(c,SYSPARAM(4)-6.0*hh1,SYSPARAM(4)-6.5*hh1),vv0,0);
c14:=if(BETWEEN(c,SYSPARAM(4)-6.5*hh1,SYSPARAM(4)-7.0*hh1),vv0,0);
c15:=if(BETWEEN(c,SYSPARAM(4)-7.0*hh1,SYSPARAM(4)-7.5*hh1),vv0,0);
c16:=if(BETWEEN(c,SYSPARAM(4)-7.5*hh1,SYSPARAM(4)-8.0*hh1),vv0,0);
c17:=if(BETWEEN(c,SYSPARAM(4)-8.0*hh1,SYSPARAM(4)-8.5*hh1),vv0,0);
c18:=if(BETWEEN(c,SYSPARAM(4)-8.5*hh1,SYSPARAM(4)-9.0*hh1),vv0,0);
c19:=if(BETWEEN(c,SYSPARAM(4)-9.0*hh1,SYSPARAM(4)-9.5*hh1),vv0,0);
c20:=if(BETWEEN(c,SYSPARAM(4)-9.5*hh1,SYSPARAM(4)-10.0*hh1),vv0,0);
c21:=if(BETWEEN(c,SYSPARAM(4)-10.0*hh1,SYSPARAM(4)-10.5*hh1),vv0,0);
c22:=if(BETWEEN(c,SYSPARAM(4)-10.5*hh1,SYSPARAM(4)-11.0*hh1),vv0,0);
c23:=if(BETWEEN(c,SYSPARAM(4)-11.0*hh1,SYSPARAM(4)-11.5*hh1),vv0,0);
c24:=if(BETWEEN(c,SYSPARAM(4)-11.5*hh1,SYSPARAM(4)-12.0*hh1),vv0,0);
c25:=if(BETWEEN(c,SYSPARAM(4)-12.0*hh1,SYSPARAM(4)-12.5*hh1),vv0,0);
c26:=if(BETWEEN(c,SYSPARAM(4)-12.5*hh1,SYSPARAM(4)-13.0*hh1),vv0,0);
c27:=if(BETWEEN(c,SYSPARAM(4)-13.0*hh1,SYSPARAM(4)-13.5*hh1),vv0,0);
c28:=if(BETWEEN(c,SYSPARAM(4)-13.5*hh1,SYSPARAM(4)-14.0*hh1),vv0,0);
c29:=if(BETWEEN(c,SYSPARAM(4)-14.0*hh1,SYSPARAM(4)-14.5*hh1),vv0,0);
c30:=if(BETWEEN(c,SYSPARAM(4)-14.5*hh1,SYSPARAM(4)-15.0*hh1),vv0,0);
c31:=if(BETWEEN(c,SYSPARAM(4)-15.0*hh1,SYSPARAM(4)-15.5*hh1),vv0,0);
c32:=if(BETWEEN(c,SYSPARAM(4)-15.5*hh1,SYSPARAM(4)-16.0*hh1),vv0,0);
c33:=if(BETWEEN(c,SYSPARAM(4)-16.0*hh1,SYSPARAM(4)-16.5*hh1),vv0,0);
c34:=if(BETWEEN(c,SYSPARAM(4)-16.5*hh1,SYSPARAM(4)-17.0*hh1),vv0,0);
c35:=if(BETWEEN(c,SYSPARAM(4)-17.0*hh1,SYSPARAM(4)-17.5*hh1),vv0,0);
c36:=if(BETWEEN(c,SYSPARAM(4)-17.5*hh1,SYSPARAM(4)-18.0*hh1),vv0,0);
c37:=if(BETWEEN(c,SYSPARAM(4)-18.0*hh1,SYSPARAM(4)-18.5*hh1),vv0,0);
c38:=if(BETWEEN(c,SYSPARAM(4)-18.5*hh1,SYSPARAM(4)-19.0*hh1),vv0,0);
c39:=if(BETWEEN(c,SYSPARAM(4)-19.0*hh1,SYSPARAM(4)-19.5*hh1),vv0,0);
c40:=if(BETWEEN(c,SYSPARAM(4)-19.5*hh1,SYSPARAM(4)-20.0*hh1),vv0,0);
v1:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c1,nn0),0),2));
v2:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c2,nn0),0),2));
v3:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c3,nn0),0),2));
v4:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c4,nn0),0),2));
v5:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c5,nn0),0),2));
v6:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c6,nn0),0),2));
v7:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c7,nn0),0),2));
v8:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c8,nn0),0),2));
v9:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c9,nn0),0),2));
v10:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c10,nn0),0),2));
v11:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c11,nn0),0),2));
v12:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c12,nn0),0),2));
v13:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c13,nn0),0),2));
v14:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c14,nn0),0),2));
v15:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c15,nn0),0),2));
v16:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c16,nn0),0),2));
v17:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c17,nn0),0),2));
v18:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c18,nn0),0),2));
v19:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c19,nn0),0),2));
v20:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c20,nn0),0),2));
v21:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c21,nn0),0),2));
v22:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c22,nn0),0),2));
v23:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c23,nn0),0),2));
v24:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c24,nn0),0),2));
v25:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c25,nn0),0),2));
v26:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c26,nn0),0),2));
v27:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c27,nn0),0),2));
v28:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c28,nn0),0),2));
v29:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c29,nn0),0),2));
v30:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c30,nn0),0),2));
v31:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c31,nn0),0),2));
v32:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c32,nn0),0),2));
v33:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c33,nn0),0),2));
v34:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c34,nn0),0),2));
v35:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c35,nn0),0),2));
v36:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c36,nn0),0),2));
v37:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c37,nn0),0),2));
v38:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c38,nn0),0),2));
v39:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c39,nn0),0),2));
v40:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c40,nn0),0),2));
av0:=max(v1,max(v2,max(v3,max(v4,max(v5,max(v6,max(v7,max(v8,max(v9,max(v10,max(V11,max(V12,max(V13,max(V14,max(V15,max(V16,max(V17,max(V18,max(V19,max(V20, max(v21,max(v22,max(v23,max(v24,max(v25,max(v26,max(v27,max(v28,max(v29,max(v30,max(v31,max(c32,max(v33,max(v34,max(v35,max(v36,max(v37,max(v38,max(v39,v40)))))))))))))))))))))))))))))))))))))));
FILLRGN(v1/av0>=nn/nn0 and nn>=0,SYSPARAM(4)-0.0*hh1,SYSPARAM(4)-0.5*hh1+0.08),Color00C5FF;
FILLRGN(v2/av0>=nn/nn0 and nn>=0,SYSPARAM(4)-0.5*hh1,SYSPARAM(4)-1.0*hh1+0.08),Color00C5FF;
FILLRGN(v3/av0>=nn/nn0 and nn>=0,SYSPARAM(4)-1.0*hh1,SYSPARAM(4)-1.5*hh1+0.08),Color00C5FF;
FILLRGN(v4/av0>=nn/nn0 and nn>=0,SYSPARAM(4)-1.5*hh1,SYSPARAM(4)-2.0*hh1+0.08),Color00C5FF;
FILLRGN(v5/av0>=nn/nn0 and nn>=0,SYSPARAM(4)-2.0*hh1,SYSPARAM(4)-2.5*hh1+0.08),Color00C5FF;
FILLRGN(v6/av0>=nn/nn0 and nn>=0,SYSPARAM(4)-2.5*hh1,SYSPARAM(4)-3.0*hh1+0.08),Color00C5FF;
FILLRGN(v7/av0>=nn/nn0 and nn>=0,SYSPARAM(4)-3.0*hh1,SYSPARAM(4)-3.5*hh1+0.08),Color00C5FF;
FILLRGN(v8/av0>=nn/nn0 and nn>=0,SYSPARAM(4)-3.5*hh1,SYSPARAM(4)-4.0*hh1+0.08),Color00C5FF;
FILLRGN(v9/av0>=nn/nn0 and nn>=0,SYSPARAM(4)-4.0*hh1,SYSPARAM(4)-4.5*hh1+0.08),Color00C5FF;
FILLRGN(v10/av0>=nn/nn0 and nn>=0,SYSPARAM(4)-4.5*hh1,SYSPARAM(4)-5.0*hh1+0.08),Color00C5FF;
FILLRGN(v11/av0>=nn/nn0 and nn>=0,SYSPARAM(4)-5.0*hh1,SYSPARAM(4)-5.5*hh1+0.08),Color00C5FF;
FILLRGN(v12/av0>=nn/nn0 and nn>=0,SYSPARAM(4)-5.5*hh1,SYSPARAM(4)-6.0*hh1+0.08),Color00C5FF;
FILLRGN(v13/av0>=nn/nn0 and nn>=0,SYSPARAM(4)-6.0*hh1,SYSPARAM(4)-6.5*hh1+0.08),Color00C5FF;
FILLRGN(v14/av0>=nn/nn0 and nn>=0,SYSPARAM(4)-6.5*hh1,SYSPARAM(4)-7.0*hh1+0.08),Color00C5FF;
FILLRGN(v15/av0>=nn/nn0 and nn>=0,SYSPARAM(4)-7.0*hh1,SYSPARAM(4)-7.5*hh1+0.08),Color00C5FF;
FILLRGN(v16/av0>=nn/nn0 and nn>=0,SYSPARAM(4)-7.5*hh1,SYSPARAM(4)-8.0*hh1+0.08),Color00C5FF;
FILLRGN(v17/av0>=nn/nn0 and nn>=0,SYSPARAM(4)-8.0*hh1,SYSPARAM(4)-8.5*hh1+0.08),Color00C5FF;
FILLRGN(v18/av0>=nn/nn0 and nn>=0,SYSPARAM(4)-8.5*hh1,SYSPARAM(4)-9.0*hh1+0.08),Color00C5FF;
FILLRGN(v19/av0>=nn/nn0 and nn>=0,SYSPARAM(4)-9.0*hh1,SYSPARAM(4)-9.5*hh1+0.08),Color00C5FF;
FILLRGN(v20/av0>=nn/nn0 and nn>=0,SYSPARAM(4)-9.5*hh1,SYSPARAM(4)-10.0*hh1+0.08),Color00C5FF;
FILLRGN(v21/av0>=nn/nn0 and nn>=0,SYSPARAM(4)-10.0*hh1,SYSPARAM(4)-10.5*hh1+0.08),Color00C5FF;
FILLRGN(v22/av0>=nn/nn0 and nn>=0,SYSPARAM(4)-10.5*hh1,SYSPARAM(4)-11.0*hh1+0.08),Color00C5FF;
FILLRGN(v23/av0>=nn/nn0 and nn>=0,SYSPARAM(4)-11.0*hh1,SYSPARAM(4)-11.5*hh1+0.08),Color00C5FF;
FILLRGN(v24/av0>=nn/nn0 and nn>=0,SYSPARAM(4)-11.5*hh1,SYSPARAM(4)-12.0*hh1+0.08),Color00C5FF;
FILLRGN(v25/av0>=nn/nn0 and nn>=0,SYSPARAM(4)-12.0*hh1,SYSPARAM(4)-12.5*hh1+0.08),Color00C5FF;
FILLRGN(v26/av0>=nn/nn0 and nn>=0,SYSPARAM(4)-12.5*hh1,SYSPARAM(4)-13.0*hh1+0.08),Color00C5FF;
FILLRGN(v27/av0>=nn/nn0 and nn>=0,SYSPARAM(4)-13.0*hh1,SYSPARAM(4)-13.5*hh1+0.08),Color00C5FF;
FILLRGN(v28/av0>=nn/nn0 and nn>=0,SYSPARAM(4)-13.5*hh1,SYSPARAM(4)-14.0*hh1+0.08),Color00C5FF;
FILLRGN(v29/av0>=nn/nn0 and nn>=0,SYSPARAM(4)-14.0*hh1,SYSPARAM(4)-14.5*hh1+0.08),Color00C5FF;
FILLRGN(v30/av0>=nn/nn0 and nn>=0,SYSPARAM(4)-14.5*hh1,SYSPARAM(4)-15.0*hh1+0.08),Color00C5FF;
FILLRGN(v31/av0>=nn/nn0 and nn>=0,SYSPARAM(4)-15.0*hh1,SYSPARAM(4)-15.5*hh1+0.08),Color00C5FF;
FILLRGN(v32/av0>=nn/nn0 and nn>=0,SYSPARAM(4)-15.5*hh1,SYSPARAM(4)-16.0*hh1+0.08),Color00C5FF;
FILLRGN(v33/av0>=nn/nn0 and nn>=0,SYSPARAM(4)-16.0*hh1,SYSPARAM(4)-16.5*hh1+0.08),Color00C5FF;
FILLRGN(v34/av0>=nn/nn0 and nn>=0,SYSPARAM(4)-16.5*hh1,SYSPARAM(4)-17.0*hh1+0.08),Color00C5FF;
FILLRGN(v35/av0>=nn/nn0 and nn>=0,SYSPARAM(4)-17.0*hh1,SYSPARAM(4)-17.5*hh1+0.08),Color00C5FF;
FILLRGN(v36/av0>=nn/nn0 and nn>=0,SYSPARAM(4)-17.5*hh1,SYSPARAM(4)-18.0*hh1+0.08),Color00C5FF;
FILLRGN(v37/av0>=nn/nn0 and nn>=0,SYSPARAM(4)-18.0*hh1,SYSPARAM(4)-18.5*hh1+0.08),Color00C5FF;
FILLRGN(v38/av0>=nn/nn0 and nn>=0,SYSPARAM(4)-18.5*hh1,SYSPARAM(4)-19.0*hh1+0.08),Color00C5FF;
FILLRGN(v39/av0>=nn/nn0 and nn>=0,SYSPARAM(4)-19.0*hh1,SYSPARAM(4)-19.5*hh1+0.08),Color00C5FF;
FILLRGN(v40/av0>=nn/nn0 and nn>=0,SYSPARAM(4)-19.5*hh1,SYSPARAM(4)-20.0*hh1+0.08),Color00C5FF;
YF_DDI:=(AMOUNT / VOL);
YF_JJ:=((OPEN + CLOSE) / 2);
YF_PJJ:=0;
YF_DDING:=EMA(CLOSE,6);
YF_MMD:=MA(YF_DDING,1);
YF_XXD:=EMA(CLOSE,18);
YF_YYZ:=REF(YF_MMD,1);
YF_XXD1:=REF(YF_XXD,1);
YF_YYZ1:=BARSCOUNT(CLOSE);
YF_TDCG:=IF((YF_YYZ1 = 1),0,(((YF_MMD - YF_YYZ) / YF_YYZ) * 100));
YF_ZFD:=IF((YF_YYZ1 = 1),0,(((YF_XXD - YF_XXD1) / YF_XXD1) * 100));
YF_JSD2:=REF(CLOSE,1);
CLOSE1:=IF((YF_YYZ1 = 1),0,(((CLOSE - YF_JSD2) / YF_JSD2) * 100));
YF_JZDF:=IF((YF_YYZ1 = 1),((CLOSE + OPEN) / 2),YF_YYZ);
YF_DCGJ:=YF_MMD;
JJ0:=YF_YYZ;
JJ1:=REF(YF_MMD,2);
JJ2:=(((YF_DCGJ + JJ0) + JJ1) / 3);
JJ02:=(((ABS((YF_DCGJ - JJ2)) + ABS((JJ0 - JJ2))) + ABS((JJ1 - JJ2))) / 3);
SS:=REF(YF_TDCG,1);
YF_ZFD1:=REF(YF_TDCG,2);
YF_ZFD2:=IF((YF_YYZ1 < 3),0,((JJ02 / YF_DCGJ) * 100));
YF_DHPXS:=IF((YF_YYZ1 < 3),0,IF((((YF_TDCG < 0) AND (SS < 0)) AND (YF_ZFD1 < 0)),(0 - 1),1));
SS:=REF(YF_TDCG,1);
YF_YZFZ:=IF((((YF_YYZ1 > 11) AND (SS < 0)) AND (YF_TDCG > 0)),1,0);
YF_JSD21:=BARSLAST((YF_YZFZ = 1));
YF_JSD:=REF(YF_JSD21,1);
A:=IF((((YF_YYZ1 > 11) AND (SS < 0)) AND (YF_TDCG > 0)),(YF_JSD + 1),YF_JSD);
YF_PJJ:=IF((((YF_YYZ1 > 11) AND (SS > 0)) AND (YF_TDCG < 0)),1,0);
YF_JSD11:=YF_JZDF;
DMRJ:=YF_JZDF;
DMCJ:=IF(((YF_YYZ1 > 11) AND (YF_JSD11 < OPEN)),OPEN,YF_JZDF);
YF_DMRJ:=IF(((YF_YYZ1 > 11) AND (DMRJ > OPEN)),OPEN,YF_JZDF);
YF_DMCJ:=0;
YF_DCG1:=REF(YF_JZDF,1);
YF_BDF5:=IF(((((YF_TDCG > 0.5) AND ((YF_ZFD2 > 0.215) OR (LOW > YF_JZDF))) AND (CLOSE >= OPEN)) AND ((CLOSE >= 200) OR ((CLOSE < 200) AND (CLOSE1 < 11)))),1,0);
YF_DMR:=IF((((YF_TDCG < (0 - 0.3)) AND ((YF_ZFD2 > 0.2) OR (HIGH < YF_JZDF))) AND ((OPEN >= CLOSE) OR (CLOSE1 < (0 - 1)))),1,0);
YF_DKS1:=BARSSINCE(YF_BDF5);
YF_TDMR:=BARSSINCE(YF_DMR);
YF_DMR:=(YF_DMR OR (BARPOS = 1));
YF_DCGJ1:=((COUNT(YF_BDF5,BARSLAST(YF_DMR)) = 1) AND YF_BDF5);
YF_DMRBUY:=((COUNT(YF_DMR,BARSLAST(YF_BDF5)) = 1) AND YF_DMR);
YF_DMCSELL:=BARSLAST(YF_DMRBUY);
YF_DCG10:=BARSLAST(YF_DCGJ1);
YF_DCG11:=((SUM(YF_DMRBUY,YF_DCG10) = 0) * YF_DCG10);
YF_DCGREAL:=REF(DMCJ,YF_DCG11);
YF_DMRJ11:=REF(YF_DCGREAL,1);
YF_DMRJ1:=IF((YF_DCGJ1 = 1),(((CLOSE - DMCJ) / DMCJ) * 100),(((YF_DMRJ - YF_DMRJ11) / YF_DMRJ11) * 100));
YF_DCG:=IF((((YF_DCG11 = 0) AND (YF_DCGJ1 = 0)) AND (YF_DMRBUY = 0)),0,YF_DMRJ1);
短买入:=YF_DCGJ1,LINETHICK0,Color00FFFF;
短卖出:YF_DMRBUY,LINETHICK0,ColorFF00FF;
短持股:YF_DCG11,LINETHICK0,ColorFFFF00;
短持股1:=YF_DCG;
AMB:=CROSS(c,MA(c,26));
AMC:=CROSS(MA(c,26),c);
短本次收益:=IF((短买入 = 1),YF_DCGREAL,IF(((短持股 <> 0) OR (短卖出 = 1)),YF_DMRJ11,0));
短买价:=IF((短卖出 = 1),YF_DMRJ,0);
STICKLINE((短买入 = 1),OPEN,CLOSE,8,0),colorFF99FF;
STICKLINE((短买入 = 1),OPEN,CLOSE,6,0),colorFF00FF;
STICKLINE((短买入 = 1),OPEN,CLOSE,4,0),color9900FF;
STICKLINE((短买入 = 1),OPEN,CLOSE,2,0),colorFF;
STICKLINE((短持股 > 0),OPEN,CLOSE,0,0),colorFFBBFF;
STICKLINE((短持股 > 0),OPEN,CLOSE,8,0),colorFF00FF;
STICKLINE((短持股 > 0),OPEN,CLOSE,7,0),colorFF22FF;
STICKLINE((短持股 > 0),OPEN,CLOSE,6,0),colorFF44FF;
STICKLINE((短持股 > 0),OPEN,CLOSE,5,0),colorFF66FF;
STICKLINE((短持股 > 0),OPEN,CLOSE,4,0),colorFF88FF;
STICKLINE((短持股 > 0),OPEN,CLOSE,3,0),colorFF99FF;
STICKLINE((短持股 > 0),OPEN,CLOSE,2,0),colorFFAAFF;
STICKLINE((短持股 > 0),OPEN,CLOSE,1,0),colorFFBBFF;
STICKLINE((短卖出 = 1),OPEN,CLOSE,0,0),colorFF00;
STICKLINE((短卖出 = 1),OPEN,CLOSE,8,0),color8800;
STICKLINE((短卖出 = 1),OPEN,CLOSE,7,0),color9900;
STICKLINE((短卖出 = 1),OPEN,CLOSE,6,0),colorAA00;
STICKLINE((短卖出 = 1),OPEN,CLOSE,5,0),colorBB00;
STICKLINE((短卖出 = 1),OPEN,CLOSE,4,0),colorCC00;
STICKLINE((短卖出 = 1),OPEN,CLOSE,3,0),colorDD00;
STICKLINE((短卖出 = 1),OPEN,CLOSE,2,0),colorEE00;
STICKLINE((短卖出 = 1),OPEN,CLOSE,1,0),colorFF00;
VERTLINE(AMB),LINETHICK1,Color00A8FF;
VERTLINE(AMC),LINETHICK1,ColorFFFF00;
DRAWICON((短买入 = 1),LOW,6),ALIGN1;
DRAWICON((短卖出 = 1),HIGH,5),ALIGN2;
短操盘状态:IF((短买入 = 1),1,IF((短持股 > 0),2,IF((短卖出 = 1),9,0))),LINETHICK0,Color0089FF;
中线止损价:=EMA(CLOSE,26);
中线止赢价:=中线止损价*1.8;

fc:if(c>=1 and c<10,INTPART(c*10)/10,if(c>=10 and c<100,INTPART(c),if(c>=100,INTPART(c/10)*10,c)));
m5:=ma(fc,5); if(m5>=1 and m5<10,INTPART(m5*10)/10,if(m5>=10 and m5<100,INTPART(m5),if(m5>=100,INTPART(m5/10)*10,c)));
m10:=ma(fc,10);if(m10>=1 and m10<10,INTPART(m10*10)/10,if(m10>=10 and m10<100,INTPART(m10),if(m10>=100,INTPART(m10/10)*10,c)));
m20:=ma(fc,20);if(m20>=1 and m20<10,INTPART(m20*10)/10,if(m20>=10 and m20<100,INTPART(m20),if(m20>=100,INTPART(m20/10)*10,c)));

AA:=VOL/((HIGH-LOW)*2-ABS(CLOSE-OPEN));
主动买盘:=IF(CLOSE>OPEN,AA*(HIGH-LOW),IF(CLOSE<OPEN,AA*((HIGH-OPEN)+(CLOSE-LOW)),VOL/2)),COLORred,LINETHICK0;
主动卖盘:=IF(CLOSE>OPEN,AA*((HIGH-CLOSE)+(OPEN-LOW)),IF(CLOSE<OPEN,AA*(HIGH-LOW),VOL/2)),color66ff00,LINETHICK0;
B:=主动买盘-主动卖盘;
五日:=SUM(B,5);
十日:=SUM(B,10);
十五日:=SUM(B,15);
DRAWTEXTEX(c,1,820,950,'中线止赢:'),ColorFFFF00;
DRAWTEXTEX(c,1,930,950,NUMTOSTR(中线止赢价,2)+'元'),ColorFFFF00;
DRAWTEXTEX(c,1,620,950,'中线止损:'),Color00FF00;
DRAWTEXTEX(c,1,740,950,NUMTOSTR(中线止损价,2)+'元'),Color00FF00;
DRAWTEXTEX(c,1,20,880,'主动买盘:'),Color0000FF;
DRAWTEXTEX(c,1,160,880,NUMTOSTR((主动买盘),2)+''),Color0000FF;
DRAWTEXTEX(c,1,20,950,'主动卖盘:'),Color00FF00;
DRAWTEXTEX(c,1,160,950,NUMTOSTR((主动卖盘),2)+''),Color00FF00;
DRAWTEXTEX(c,1,340,880,'五日增减:'),Color00FFFF;
DRAWTEXTEX(c,1,480,880,NUMTOSTR((五日),2)+''),Color00FFFF;
DRAWTEXTEX(c,1,620,880,'十日增减:'),Color00FFFF;
DRAWTEXTEX(c,1,740,880,NUMTOSTR((十日),2)+''),Color00FFFF;
DRAWTEXTEX(c,1,340,950,'十五日增减:'),Color00FFFF;
DRAWTEXTEX(c,1,480,950,NUMTOSTR((十五日),2)+''),Color00FFFF;

{鹏博F10【十大流通股东】}
wa:=F10FIND('【十大流通股东】:',1000);
IF wa<0 THEN EXIT;//没找到退出
wb:=F10FIND(' 1│',wa);
u1:=F10TEXT(wb-1,70);
u2:=F10TEXT(F10FIND('  2│',wb),70);
u3:=F10TEXT(F10FIND('  3│',wb),70);
u4:=F10TEXT(F10FIND('  4│',wb),70);
u5:=F10TEXT(F10FIND('  5│',wb),70);
u6:=F10TEXT(F10FIND('  6│',wb),70);
u7:=F10TEXT(F10FIND('  7│',wb),70);
u8:=F10TEXT(F10FIND('  8│',wb),70);
u9:=F10TEXT(F10FIND('  9│',wb),70);
u10:=F10TEXT(F10FIND(' 10│',wb),70);
a5:=sysparam(5);a0:=(sysparam(4)-sysparam(5))/20;
DRAWTEXTEX(c,1,10,0,u1),Color00FF00;
DRAWTEXTEX(c,1,10,80,u1),Color00FF00;
DRAWTEXTEX(c,1,10,160,u2),Color00FF00;
DRAWTEXTEX(c,1,10,240,u3),Color00FF00;
DRAWTEXTEX(c,1,10,320,u4),Color00FF00;
DRAWTEXTEX(c,1,10,400,u5),Color00FF00;
DRAWTEXTEX(c,1,10,480,u6),Color00FF00;
DRAWTEXTEX(c,1,10,560,u7),Color00FF00;
DRAWTEXTEX(c,1,10,640,u8),Color00FF00;
DRAWTEXTEX(c,1,10,720,u9),Color00FF00;
DRAWTEXTEX(c,1,10,800,u10),Color00FF00;

[ 本帖最后由 蓝鼠 于 2008-11-12 19:26 编辑 ]

引用:

公式名称: 【日线龙虎榜】第二次升级！增加了盘口部分！日线下看盘口已不是梦想
适用软件: 飞狐(加密)
发 表 人: 一发千钧     
发表日期: 2007-09-30
发表网址: http://www.chcj.net/viewthread.p ... B%B7%A2%C7%A7%BE%FB

引用:

一发千钧【日线龙虎榜】第二次升级！增加了盘口部分！日线下看盘口已不是梦想！

由于个人原因。此指标，是一发千钧在【创幻】的绝版指标！为了方便已经使用千钧的【日线龙虎榜】的朋友下载，最后发此升级版！
从此，一发千钧来【创幻】只是看帖学习，不发一标！【在558老师帖下，哥们儿们交流时的随笔小作，不在此例】
千钧无意申请“加精”，是否精品？有朋友们评述！

日线龙虎榜第二次升级版，是在第一次升级版的蓝本下增加了盘口部分。
曾几何时，日线下边看日线兼看盘口，这是很多朋友的梦想。
今天一发千钧让它变成了现实。朋友们在不必一会看日线、一会看分笔、一会看分时了。一张图表几乎囊括你所需要的看盘元素。
还是那句话：
大家在使用中发现的优、缺点及时反馈，以便千钧更好的优化、完善它。给大家提供近似完美的“精品”公式。而要做到这一点则需要我们大家共同努力！
一、安装：
包内供六个公式。
01、已经安装过日线龙虎榜的朋友，只安装：
【日线龙虎榜】和引用公式【盘口】就可以了。
02、以前没有安装过的朋友，需要全部安装这六个公式。
03、引用公式直接导入就可以使用了，它自己回去找婆家的。
扩展数据导入后需要进行设置：【大单买入】设（3），【大单卖出】设（4），【增仓金额】设（6）.序号一定不要弄错，否则不能正常使用！
04、本公式调用的后台资源较多，对你的电脑性能有一定要求，消耗内存较大，内存小于520的朋友，建议你慎用！
05、公式依然是加密无时限的！

【【【注意】】】
日线龙虎榜第三次升级版已于上午在理想发出。此次升级增加了机构散买卖【即：点对点对倒】。
一发千钧已兑现首发的承诺，此次升级版没有加密，并公布源码。
有兴趣的朋友去理想下载。

图示：


公式压缩包：

[ 本帖最后由 蓝鼠 于 2008-11-10 15:49 编辑 ]

引用:

公式名称: 千钧均线
适用软件: 飞狐
发 表 人: 一发千钧     
发表日期: 2007-11-05
发表网址: http://www.chcj.net/viewthread.p ... B%B7%A2%C7%A7%BE%FB

引用:

为感谢论坛及各位版主给予的荣誉、感谢朋友们的一贯支持与鼓励、送【千钧均线】主图！



如题：
千钧胡乱拼凑了一个主图指标，供朋友们分享！
  
variable:pv[50]=0,pc[50]=0;
hh:=hhv(high,0);
ll:=llv(low,0);
fv:=vol;
fh:=high;
fl:=low;
p:=sysparam(1);
dd:=(hh[p]-ll[p])/49;
for i=p downto 1 do begin
  sh:=(fh-ll[p])/dd+1;
  sl:=(fl-ll[p])/dd+1;
  dj:=fv/(sh-sl+1);
  for j=sl to sh do pv[j]:=pv[j]+dj;   
end;
s:=0;
for i=1 to 50 do if s <pv then s:=pv;
bl:=s/(sysparam(3)-sysparam(2))*2;
drawsl(barpos=sysparam(3),sysparam(5),0,pv[1]/bl+1,1),Color0000FF;
drawsl(barpos=sysparam(3),sysparam(5)+dd,0,pv[2]/bl+1,1),Color0000FF;
drawsl(barpos=sysparam(3),sysparam(5)+dd*02,0,pv[03]/bl+1,1),Color0000FF;
drawsl(barpos=sysparam(3),sysparam(5)+dd*03,0,pv[04]/bl+1,1),Color0000FF;
drawsl(barpos=sysparam(3),sysparam(5)+dd*04,0,pv[05]/bl+1,1),Color0000FF;
drawsl(barpos=sysparam(3),sysparam(5)+dd*05,0,pv[06]/bl+1,1),Color0000FF;
drawsl(barpos=sysparam(3),sysparam(5)+dd*06,0,pv[07]/bl+1,1),Color0000FF;
drawsl(barpos=sysparam(3),sysparam(5)+dd*07,0,pv[08]/bl+1,1),Color0000FF;
drawsl(barpos=sysparam(3),sysparam(5)+dd*08,0,pv[09]/bl+1,1),Color0000FF;
drawsl(barpos=sysparam(3),sysparam(5)+dd*09,0,pv[10]/bl+1,1),Color0000FF;
drawsl(barpos=sysparam(3),sysparam(5)+dd*10,0,pv[11]/bl+1,1),Color0000FF;
drawsl(barpos=sysparam(3),sysparam(5)+dd*11,0,pv[12]/bl+1,1),Color0000FF;
drawsl(barpos=sysparam(3),sysparam(5)+dd*12,0,pv[13]/bl+1,1),Color0000FF;
drawsl(barpos=sysparam(3),sysparam(5)+dd*13,0,pv[14]/bl+1,1),Color0000FF;
drawsl(barpos=sysparam(3),sysparam(5)+dd*14,0,pv[15]/bl+1,1),Color0000FF;
drawsl(barpos=sysparam(3),sysparam(5)+dd*15,0,pv[16]/bl+1,1),Color0000FF;
drawsl(barpos=sysparam(3),sysparam(5)+dd*16,0,pv[17]/bl+1,1),Color0000FF;
drawsl(barpos=sysparam(3),sysparam(5)+dd*17,0,pv[18]/bl+1,1),Color0000FF;
drawsl(barpos=sysparam(3),sysparam(5)+dd*18,0,pv[19]/bl+1,1),Color00FFFF;
drawsl(barpos=sysparam(3),sysparam(5)+dd*19,0,pv[20]/bl+1,1),Color00FFFF;
drawsl(barpos=sysparam(3),sysparam(5)+dd*20,0,pv[21]/bl+1,1),Color00FFFF;
drawsl(barpos=sysparam(3),sysparam(5)+dd*21,0,pv[22]/bl+1,1),Color00FFFF;
drawsl(barpos=sysparam(3),sysparam(5)+dd*22,0,pv[23]/bl+1,1),Color00FFFF;
drawsl(barpos=sysparam(3),sysparam(5)+dd*23,0,pv[24]/bl+1,1),Color00FFFF;
drawsl(barpos=sysparam(3),sysparam(5)+dd*24,0,pv[25]/bl+1,1),Color00FFFF;
drawsl(barpos=sysparam(3),sysparam(5)+dd*25,0,pv[26]/bl+1,1),Color00FFFF;
drawsl(barpos=sysparam(3),sysparam(5)+dd*26,0,pv[27]/bl+1,1),Color00FFFF;
drawsl(barpos=sysparam(3),sysparam(5)+dd*27,0,pv[28]/bl+1,1),Color00FFFF;
drawsl(barpos=sysparam(3),sysparam(5)+dd*28,0,pv[29]/bl+1,1),Color00FFFF;
drawsl(barpos=sysparam(3),sysparam(5)+dd*29,0,pv[30]/bl+1,1),Color00FFFF;
drawsl(barpos=sysparam(3),sysparam(5)+dd*30,0,pv[31]/bl+1,1),Color00FFFF;
drawsl(barpos=sysparam(3),sysparam(5)+dd*31,0,pv[32]/bl+1,1),Color00FFff;
drawsl(barpos=sysparam(3),sysparam(5)+dd*32,0,pv[33]/bl+1,1),Color00ffff;
drawsl(barpos=sysparam(3),sysparam(5)+dd*33,0,pv[34]/bl+1,1),Color00ffff;
drawsl(barpos=sysparam(3),sysparam(5)+dd*34,0,pv[35]/bl+1,1),Color00ffff;
drawsl(barpos=sysparam(3),sysparam(5)+dd*35,0,pv[36]/bl+1,1),Color00ffff;
drawsl(barpos=sysparam(3),sysparam(5)+dd*36,0,pv[37]/bl+1,1),Color00ff00;
drawsl(barpos=sysparam(3),sysparam(5)+dd*37,0,pv[38]/bl+1,1),Color00ff00;
drawsl(barpos=sysparam(3),sysparam(5)+dd*38,0,pv[39]/bl+1,1),Color00ff00;
drawsl(barpos=sysparam(3),sysparam(5)+dd*39,0,pv[40]/bl+1,1),Color00ff00;
drawsl(barpos=sysparam(3),sysparam(5)+dd*40,0,pv[41]/bl+1,1),Color00ff00;
drawsl(barpos=sysparam(3),sysparam(5)+dd*41,0,pv[42]/bl+1,1),Color00ff00;
drawsl(barpos=sysparam(3),sysparam(5)+dd*42,0,pv[43]/bl+1,1),Color00ff00;
drawsl(barpos=sysparam(3),sysparam(5)+dd*43,0,pv[44]/bl+1,1),Color00ff00;
drawsl(barpos=sysparam(3),sysparam(5)+dd*44,0,pv[45]/bl+1,1),Color00ff00;
drawsl(barpos=sysparam(3),sysparam(5)+dd*45,0,pv[46]/bl+1,1),Color00ff00;
drawsl(barpos=sysparam(3),sysparam(5)+dd*46,0,pv[47]/bl+1,1),Color00ff00;
drawsl(barpos=sysparam(3),sysparam(5)+dd*47,0,pv[48]/bl+1,1),Color00ff00;
drawsl(barpos=sysparam(3),sysparam(5)+dd*48,0,pv[49]/bl+1,1),Color00ff00;
drawsl(barpos=sysparam(3),sysparam(5)+dd*49,0,pv[50]/bl+1,1),Color00ff00;
DRAWTEXT(BARPOS=SYSPARAM(2),HIGH,'一发千钧告诫朋友:\n指标是参考,决策在人脑.\n把握好工具,切莫当稻草!')align4,ColorFFBFFF;
jjx:=ABS(OPEN+HIGH+LOW+CLOSE)/4;
生命:MA(jjx,5),ColorFF00FF;
生命线:MA(jjx,26),Color00FFFF,LINETHICK2,PRECISION2;
KS:=(C-MA(C,17))/MA(C,17)*(-100);
RKS:=REF(KS,1);
MLS:=RKS/KS>=1.23 AND RKS>=8 AND C/REF(C,1)>=1.02;
超跌:STICKLINE(KS>=17,o,L,6,0),colorwhite,linethick6;
反弹:STICKLINE(MLS=1,o,L,6,0),colormagenta,linethick6;
超超跌:STICKLINE(KS>=34,o,L,8,1),colorwhite,linethick6;
反反弹:STICKLINE(MLS=1,o,L,8,1),colormagenta,linethick6;
超极跌:STICKLINE(KS>=34,o,L,8,1),COLORCYAN,linethick6;
DRAWTEXT(SUM(VOL/CAPITAL*100,3)>5 and (CLOSE-REF(CLOSE,3))/REF(CLOSE,3)*100>5 and
SUM(VOL/CAPITAL*100,3)<7 and (CLOSE-REF(CLOSE,3))/REF(CLOSE,3)*100<7 and
VOL>REF(VOL,1) and (CLOSE-REF(CLOSE,1))/REF(CLOSE,1)*100<3,LOW*0.99,
'▲\n追\n涨\n必\n胜'),COLORYELLOW;   
图示：


公式：

引用:

再配个副图：
图示：


一发【测顶】大盘专用！


两个【引用】公式：



应朋友们要求，再添一图：千钧【八方力道】
副图【八方力道】是仿-【赢富--指标】第四版的子公式，
需要仿-【赢富-指标】的数据支持。
软件中没有仿-【赢富-指标】的朋友不要下载。
公式会报错、没有显示。



公式：

[ 本帖最后由 蓝鼠 于 2008-11-10 16:00 编辑 ]

引用:

公式名称: 永不套牢
适用软件: 飞狐
发 表 人: 一发千钧     
发表日期: 2007-12-26
发表网址: http://www.chcj.net/viewthread.p ... B%B7%A2%C7%A7%BE%FB

引用:

送给创幻新老朋友的新年礼物！【永不套牢】初级版！



【永不套牢】
08年的行情将很可能是3--7或4--6行情，在扑朔迷离的股海中、小散户想抢得庄家手里的一块肉、谈何容易？
希望【永不套牢】在08年、能给朋友们在与庄搏杀的战斗中、带来帮助！

预祝大家新年快乐！！！

图一、

图二、

图三、

源码：
DRAWTEXTEX(C,1,0,0,STKLABEL+' '+STKNAME+''),ColorFFBF00;
J1:="macd.diff";
J2:="macd.dea";
J3:="kdj.k";
J4:="kdj.d";
VL:=REF(LOW,1); VH:=REF(H,1);
Var1:=SMA(ABS(H-Vh),13,1)/SMA(MAX(H-Vh,0),13,1)*100;
Var2:=SMA(ABS(L-VL),13,1)/SMA(MAX(L-VL,0),13,1)*100;
Var3:=REF(CLOSE,1);
Var4:=MA(Var2,13);
Var5:=LLV(L,34);
Var6:=SMA(MAX(CLOSE-Var3,0),6,1)/SMA(ABS(CLOSE-Var3),6,1)*100;
var7:=CROSS(93,Var6);
Var8:=EMA(IF(L<=Var5,Var4,0),3);
var9:=H>LLV(l,0)*7;
var10:=(SMA(SMA((((CLOSE - LLV(LOW,54)) / (HHV(HIGH,54) - LLV(LOW,54))) * 100),7,1),5,1));
var11:=((SMA(((CLOSE - LLV(LOW,54)) / (HHV(HIGH,54) - LLV(LOW,54)) * 100),7,1)) * 16.18) - (var10 * 10.9);
T:FILTER(IF(var11<=var10 AND Var8>REF(Var8,1),Var8*8,0),20),LINETHICK4,STICK,ColorFF00FF;
T0:FILTER(IF(CROSS(j4,j3) and SUM(j1>REF(j1,1),3)>3,CROSS(j4,j3) and CROSS(j2,j1),0),13),STICK,Color5E8262,LINETHICK3;
T1:FILTER(CROSS(j1,j2) and vol>REF(SUM(vol,5),1),3),STICK,Color00FFFF,LINETHICK3;
T2:FILTER(var7 and C/(REF(C,1)-1)*100<>5 and var9 and vol>REF(SUM(vol,3),1),5),STICK,ColorFFFF00,LINETHICK3;
T3:FILTERX(var9 and CROSS(j4,j3) and C/(REF(C,1)-1)*100<>5,22),STICK,Color00FF00,LINETHICK3;
DRAWTEXT(T0,T0,'注\n意\n洗\n盘'),SHIFT1,Color5E8262;
DRAWTEXT(T,T,'洗\n盘\n结\n束'),ColorFF00FF,SHIFT1;
DRAWTEXT(T1,T1,'主\n力\n加\n速'),Color00FFFF,SHIFT1;
DRAWTEXT(T2,T2,'庄家逃跑'),ColorFFFF00;
DRAWTEXT(T3,T3,'风\n险'),Color00FF00,SHIFT1,PXDN50,ALIGN4;

公式：

引用:

大智慧新一代：

DRAWTEXTABS(20,5,STKLABEL+' '+STKNAME+''),ColorFFBF00;
J1:="macd.diff";
J2:="macd.dea";
J3:="kdj.k";
J4:="kdj.d";
VL:=REF(LOW,1); VH:=REF(H,1);
Var1:=SMA(ABS(H-Vh),13,1)/SMA(MAX(H-Vh,0),13,1)*100;
Var2:=SMA(ABS(L-VL),13,1)/SMA(MAX(L-VL,0),13,1)*100;
Var3:=REF(CLOSE,1);
Var4:=MA(Var2,13);
Var5:=LLV(L,34);
Var6:=SMA(MAX(CLOSE-Var3,0),6,1)/SMA(ABS(CLOSE-Var3),6,1)*100;
var7:=CROSS(93,Var6);
Var8:=EMA(IF(L<=Var5,Var4,0),3);
var9:=H>LLV(l,0)*7;
var10:=(SMA(SMA((((CLOSE - LLV(LOW,54)) / (HHV(HIGH,54) - LLV(LOW,54))) * 100),7,1),5,1));
var11:=((SMA(((CLOSE - LLV(LOW,54)) / (HHV(HIGH,54) - LLV(LOW,54)) * 100),7,1)) * 16.18) - (var10 * 10.9);
T:FILTER(IF(var11<=var10 AND Var8>REF(Var8,1),Var8*8,0),20),LINETHICK4,STICK,ColorFF00FF;
T0:FILTER(IF(CROSS(j4,j3) and SUM(j1>REF(j1,1),3)>3,CROSS(j4,j3) and CROSS(j2,j1),0),13),STICK,Color5E8262,LINETHICK3;
T1:FILTER(CROSS(j1,j2) and vol>REF(SUM(vol,5),1),3),STICK,Color00FFFF,LINETHICK3;
T2:FILTER(var7 and C/(REF(C,1)-1)*100<>5 and var9 and vol>REF(SUM(vol,3),1),5),STICK,ColorFFFF00,LINETHICK3;
T3:FILTER(var9 and CROSS(j4,j3) and C/(REF(C,1)-1)*100<>5,22),STICK,Color00FF00,LINETHICK3;
DRAWTEXT(T0,T0,'注意洗盘'),Color5E8262;
DRAWTEXT(T,T,'洗盘结束'),ColorFF00FF;
DRAWTEXT(T1,T1,'主力加速'),Color00FFFF;
DRAWTEXT(T2,T2,'庄家逃跑'),ColorFFFF00;
DRAWTEXT(T3,T3,'风险'),Color00FF00;

引用:

通达信【浩申老师改】：

DIFF:=EMA(CLOSE,12) - EMA(CLOSE,26);
DEA:=EMA(DIFF,9);
RSV:=(C-LLV(L,9))/(HHV(H,9)-LLV(L,9))*100;
K:=SMA(RSV,3,1);
D:=SMA(K,3,1);
J1:=DIFF;
J2:=DEA;
J3:=K;
J4:=D;
VL:=REF(LOW,1); VH:=REF(H,1);
VAR1:=SMA(ABS(H-VH),13,1)/SMA(MAX(H-VH,0),13,1)*100;
VAR2:=SMA(ABS(L-VL),13,1)/SMA(MAX(L-VL,0),13,1)*100;
VAR3:=REF(CLOSE,1);
VAR4:=MA(VAR2,13);
VAR5:=LLV(L,34);
VAR6:=SMA(MAX(CLOSE-VAR3,0),6,1)/SMA(ABS(CLOSE-VAR3),6,1)*100;
VAR7:=CROSS(93,VAR6);
VAR8:=EMA(IF(L<=VAR5,VAR4,0),3);
VAR9:=H>LLV(L,0)*7;
VAR10:=(SMA(SMA((((CLOSE - LLV(LOW,54)) / (HHV(HIGH,54) - LLV(LOW,54))) * 100),7,1),5,1));
VAR11:=((SMA(((CLOSE - LLV(LOW,54)) / (HHV(HIGH,54) - LLV(LOW,54)) * 100),7,1)) * 16.18) - (VAR10 * 10.9);
T:FILTER(IF(VAR11<=VAR10 AND VAR8>REF(VAR8,1),VAR8*8,0),20),LINETHICK4,STICK,COLORFF00FF;
T0:FILTER(IF(CROSS(J4,J3) AND SUM(J1>REF(J1,1),3)>3,CROSS(J4,J3) AND CROSS(J2,J1),0),13),STICK,COLOR5E8262,LINETHICK3;
T1:FILTER(CROSS(J1,J2) AND VOL>REF(SUM(VOL,5),1),3),STICK,COLOR00FFFF,LINETHICK3;
T2:FILTER(VAR7 AND C/(REF(C,1)-1)*100!=5 AND VAR9 AND VOL>REF(SUM(VOL,3),1),5),STICK,COLORFFFF00,LINETHICK3;
T3:FILTER(VAR9 AND CROSS(J4,J3) AND C/(REF(C,1)-1)*100!=5,22),STICK,COLOR00FF00,LINETHICK3;
DRAWTEXT(T0,T0,'注意洗盘'),COLOR5E8262;
DRAWTEXT(T,T*0.90,'洗盘结束'),COLORFF00FF;
DRAWTEXT(T1,T1*0.90,'主力加速'),COLOR00FFFF;
DRAWTEXT(T2,T2*0.90,'庄家逃跑'),COLORFFFF00;
DRAWTEXT(T3,T3*0.90,'风险'),COLOR00FF00;

引用:

大智慧1



DIFF:=EMA(CLOSE,12) - EMA(CLOSE,26);
DEA:=EMA(DIFF,9);
RSV:=(C-LLV(L,9))/(HHV(H,9)-LLV(L,9))*100;
K:=SMA(RSV,3,1);
D:=SMA(K,3,1);
J1:=diff;
J2:=dea;
J3:=k;
J4:=d;
VL:=REF(LOW,1); VH:=REF(H,1);
Var1:=SMA(ABS(H-Vh),13,1)/SMA(MAX(H-Vh,0),13,1)*100;
Var2:=SMA(ABS(L-VL),13,1)/SMA(MAX(L-VL,0),13,1)*100;
Var3:=REF(CLOSE,1);
Var4:=MA(Var2,13);
Var5:=LLV(L,34);
Var6:=SMA(MAX(CLOSE-Var3,0),6,1)/SMA(ABS(CLOSE-Var3),6,1)*100;
var7:=CROSS(93,Var6);
Var8:=EMA(IF(L<=Var5,Var4,0),3);
var9:=H>LLV(l,0)*7;
var10:=(SMA(SMA((((CLOSE - LLV(LOW,54)) / (HHV(HIGH,54) - LLV(LOW,54))) * 100),7,1),5,1));
var11:=((SMA(((CLOSE - LLV(LOW,54)) / (HHV(HIGH,54) - LLV(LOW,54)) * 100),7,1)) * 16.18) - (var10 * 10.9);
T:FILTER(IF(var11<=var10 AND Var8>REF(Var8,1),Var8*8,0),20),LINETHICK4,STICK,ColorFF00FF;
T0:FILTER(IF(CROSS(j4,j3) and SUM(j1>REF(j1,1),3)>3,CROSS(j4,j3) and CROSS(j2,j1),0),13),STICK,Color5E8262,LINETHICK3;
T1:FILTER(CROSS(j1,j2) and vol>REF(SUM(vol,5),1),3),STICK,Color00FFFF,LINETHICK3;
T2:FILTER(var7 and C/(REF(C,1)-1)*100<>5 and var9 and vol>REF(SUM(vol,3),1),5),STICK,ColorFFFF00,LINETHICK3;
T3:FILTER(var9 and CROSS(j4,j3) and C/(REF(C,1)-1)*100<>5,22),STICK,Color00FF00,LINETHICK3;
DRAWTEXT(T0,T0,'注意洗盘'),Color5E8262;
DRAWTEXT(T,T,'洗盘结束'),ColorFF00FF;
DRAWTEXT(T1,T1,'主力加速'),Color00FFFF;
DRAWTEXT(T2,T2,'庄家逃跑'),ColorFFFF00;
DRAWTEXT(T3,T3,'风险'),Color00FF00;

[ 本帖最后由 蓝鼠 于 2008-11-10 16:06 编辑 ]

引用:

公式名称: 千钧【赢富-量帐号分类】
适用软件: 飞狐(加密)
发 表 人: 一发千钧     
发表日期: 2007-10-14
发表网址: http://www.chcj.net/viewthread.p ... B%B7%A2%C7%A7%BE%FB

引用:

千钧日线仿-赢富【量帐号分类】主力机构不再隐身！！！



历经两个月,千钧仿--赢富系列指标第一标，千钧【赢富-量帐号分类】今天正式出台！
指标在界面设计、主导理念、运算方式、数据压缩、合并等技术方面得到了诸多大师的支持！
感谢【股市浪子】【南客】【笑看天下】【大庆老杨】四位大师的鼎力支持。指标成型之功当属上述四人！
    感谢【笑看天下】【偶然过往】。
    感谢【笨木偶】【闽C三轮车夫】【山度士】【dst3391】
【chenkaiyou】【唐涵】【伯牙与子齐】【中豪598】【信己】【钟海华】上述这十二位朋友，这十多天来与一发千钧一起测试并调试该指标。指标的初步成功与这十二位朋友的辛勤付出是分不开的、再次感谢各位！

一、
指标分两个部分：
01、主图部分
【图1】

主图上，左面的数据，是即时成交状况。
右侧的柱状线，从右数，依次是：即时的机构、法人、大户、中户、散户。
【图二】

量帐号分类：机构帐号、超大户帐号、大户帐号、散户帐号、【五日累加】
【图三】

仓位对比：机构、法人、大户、中户、散户【白色是三日仓、其它颜色是五日仓】
【图四】

主图上的黄线是，机构持仓线【可用游标查阅历史仓位】。
【综合01】

本指标目前只有四项排序功能：
主力持仓，
散户持仓，
大单净量，
主力买卖强度，

02、解盘部分
右侧解盘部分是各类仓量的累加占流通盘的比例。
【解盘1】【解盘2】
二、安装
包内共十三个公式，一个主公式、两个引用【正在使用千钧公式的朋友一定安装，这次升级了】、十个扩展数据【不需要看历史仓位数据的，可以不安装】。
如果提示：是否覆盖？选【是】！

三、扩展数据序号：
特大买入【1】特大卖出【2】
大单买入【3】大单卖出【4】
中单买入【5】中单卖出【11】
机构散买【9】机构散卖【10】
小单买入【7】小单卖出【8】。

四、指标还在不断完善中，所以是加密无时限。待成熟、封笔时公布源码。

五、提醒：
为了保护本人权益、指标公式中镶入了读码工具追踪程序，只有使用读码工具读此指标时，该程序才能被激活，否则该程序休眠。
手动输入密码，或无意中点击输入密码都不会激活该程序。
该程序的功能是：打开操作系统后门程序。
也就是说：当使用读码工具试图读取指标密码时，程序被激活，激活后，直接打开操作系统后门程序。

【还是由于个人原因，千钧取消不在创幻发标的承诺。】



图示：


公式压缩包：


和讯服务器：

[ 本帖最后由 蓝鼠 于 2008-11-10 16:34 编辑 ]

引用:

公式名称: 千钧【赢富-指标】第四版
适用软件: 飞狐(加密)
发 表 人: 一发千钧     
发表日期: 2007-10-20
发表网址: http://www.chcj.net/viewthread.p ... B%B7%A2%C7%A7%BE%FB

引用:

一发千钧日线仿--【赢富--指标】最新版，10月31日更新！



千钧仿--【赢富-指标】第四版

指导：【股市浪子】
执笔：【一发千钧】

安装
包内共9个公式，一个主公式【覆盖安装】、一个引用【覆盖安装】、五个扩展数据【为节约大家的扩展资源、本次缩减了扩展数据、安装这五个扩展数据后、原扩展数据可以删除“日线龙虎榜的扩展数据除外”】。
两个指标排序公式。
如果提示：是否覆盖？选【是】！

三、扩展数据序号：

机构【9】  券商【10】  大户【11】  中户【12】  散户【13】
相对应的是：
机构【9】--对应原【1、2】、
券商【10】--对应原【9、10】，
大户【11】--对应原【3、4】、
中户【12】--对应原【5、11】。
散户【13】--对应原【7、8】

如果你还在使用日线龙虎榜、仓位图、主力大单等千钧的指标。
请保留原扩展数据【1】到【4】，其它的可以删除、

四、指标还在不断完善中，所以是加密无时限。

五。加密方式与升级版相同，这里不再提示！

六、指标数据的含义：
【帐号变动】的数字、依次是昨日仓、前日仓、大前日仓、上周仓位。
右侧柱状线是累加的持仓情况，能显示多长时间的仓位变化，看你的软件内有多少扩展数据而定。
如果软件内有一年的扩展数据，那你将会看到这一年的仓位变化情况。
柱状线下的数字，是各个类别目前持仓情况占流通盘的比例。
红色线是大资金趋势线，和原来的机构线略有不同但内涵是相同的。
上面的强度是该类别买卖意愿【针对昨日的买卖意愿】的百分比。
目前我的软件内只有一个月的数据，所以只能给大家提供这些了。


图一：


图二、


资金流向排序：
上海：


深圳：


图五：

【【【【【应朋友们的要求，千钧从即时起，【取消阅读权限】】】】】】！
公式压缩包：


9月18日至今的扩展数据：


另外，在这里就数据问题再谈两句：
正版的飞狐软件，传统行情每分钟传输12-14笔，L2行情每分钟传输19-22笔。
盗版的飞狐软件，更是参差不齐，一般每分钟在7-13笔，这还的看你的网络接口，一般电信稍微快一些。
这就是数据不同的原因所在。
正版、盗版有区别。
盗版的版本不同也有区别，盗的是否彻底有区别。
你收没收盘还有区别。
新安装的软件尽管你下载了分笔数据，但那是经过处理的数据。
和你在盘中接收的数据是不同的，这是基本的常识。
如果一定想要数据一摸一样。
那就只好买正版飞狐、收费的VIP数据接收。
要么就是期望盗版软件的专家盗的彻底些。
除此之外，别无它法。

[ 本帖最后由 蓝鼠 于 2008-11-12 19:21 编辑 ]

引用:

公式名称: 千钧【赢富-指标】第五版
适用软件: 飞狐(加密)
发 表 人: 一发千钧     
发表日期: 2007-11-17
发表网址: http://www.chcj.net/viewthread.p ... B%B7%A2%C7%A7%BE%FB

引用:

千钧仿--【赢富-指标】第五版让你与主力同步！源码在【二楼】！



千钧仿——【赢富-指标】第五版说明；
为满足正版用户朋友们使用该指标的需求，第五版是飞狐各版本通用的。
一、功能：
该指标共有三大部分组成：
1、动态股东信息，包括【各类别累计持仓信息】【本日交易信息】两大部分组成。
其中：
（1）、历史数据查询：
主图部分，除当日信息以外，全部实现了游标查询功能。能看到哪一天？看你有多少扩展数据而定。
如果你的扩展数据足够的话，可以看到上市以来的仓位变动情况。什么时候开始进的庄？什么时间换的庄？什么时间、通过什么手段把筹码都卖给了散户？这些你想知道的事情，已经不再是个迷了！通过该指标你会得到答案。
（2）、图中的量柱线，并非是大家习惯意义上的成交量柱线，它是由大单成交信息构成的成交柱线，我把它命名为大单成交量，这里没有把小于大单门限的量统计进来。红蓝柱线分别表达的是主力的买卖力度【你也可以把它叫做强度】。
（3）图上的仓位柱线与右侧解盘中的持仓信息是一致的，可以通过游标查询历史数据。
（4）图上的两条线也并不是简单的机构线和散户线。它们是这两个组别的中长期趋势线，是用大单换手率来计算平滑的。
（5）考虑到各位朋友们的机器性能不同，放弃了在测试时曾使用的，资金流向、大资金流通比、板块涨跌幅、换手率前十位自动排名部分，因为它耗用内存资源太大，需要1G以上的内存才能运行通畅。无奈，只好忍痛割爱了。
2、静态股东信息，这部分是调用F10中的【十大股东】信息。
需要及时更新F10才会得到最新的股东变动情况，目前只支持【鹏博F10】不支持【和讯F10】。
二、安装
本指标共五个扩展数据公式，一个引用公式，一个主公式，这七个公式组成这个仿——【赢富-指标】，缺一不可。
千钧的老朋友可以不更新【引用】公式，因为引用公式没有变。扩展数据必须更新，因为这次修改了仓量统计原则。席位号、帐号数等的计算原则在扩展里，如果不更新，使用一段时间，主公式就
不工作了。
新朋友必须安装所有公式！
扩展数据序号仍然是9——13没有变。
三、加密方式：
公式依然是加密、无时限的。
加密方式与上次相同，依然是镶入了【读码工具】追踪程序。这里不在提示。
四、指标送给有缘人【不包括恶意破解之人】，破解了指标，破解不了作者的思维！
该指标倾注了千钧尽一个月的时间及心血。
我不是慈善家！
但是，如果有哪一天，有人真正认识了这个指标的真谛，并能在逆势的股海里【一定是逆势，牛市中，不在指标好坏，谁都可以赚钱】20天之内盈利50 %【并有详细操作说明】的朋友，此指标源码将无偿奉送，决不食言！
因为那时，伯牙真的遇到了子齐！
该指标到了你的手中，不会被糟蹋，反而会发扬光大！人是：“誓为知己者死”！指标当是：“为子齐而存”！

最后：
【一发千钧】告诫朋友：
指标是参考，决策在人脑。
庄散博弈中，资金最可靠。
牢牢驾驭它，切莫当稻草！

【千钧DDE系统飞狐版】、在【2481】楼！

图示一：


图示二：


图示三：


图示四：


公式：

5月至今的扩展数据：

引用:

源码：

此源码有三处错误，为给大家预留空间，我没有修改。自己改一下吧！

DRAWGBK(C>0,COLORRGB(100,120,180),0,1);
流通:FINANCE(7)/10000,LINETHICK0,PRECISION2;
a:=STKINDI('','引用.特大买入',0,0);
a1:=STKINDI('','引用.特大卖出',0,0);
b:=stkindi('','引用.隐性买单',0,0);
b1:=stkindi('','引用.隐性卖单',0,0);
d:=STKINDI('','引用.大单买入',0,0);
d1:=STKINDI('','引用.大单卖出',0,0);
e:=stkindi('','引用.中单买入',0,0);
e1:=stkindi('','引用.中单卖出',0,0);
f:=STKINDI('','引用.小单买入',0,0);
f1:=STKINDI('','引用.小单卖出',0,0);

AA:=a-a1;
BB:=b-b1;
DD:=d-d1;
EE:=E-E1;
FF:=F-F1;
{仓量}
机增:=EXTDATA(9);
机11:=SUM(机增,0);
机13:=SUM(IF(机增>=0,机增,0),0);
机14:=SUM(IF(机增<0,机增,0),0);
机15:=ABS(机14);
法增:=EXTDATA(10);
法11:=SUM(法增,0);
法13:=SUM(IF(法增>=0,法增,0),0);
法14:=SUM(IF(法增<0,法增,0),0);
法15:=ABS(法14);
大增:=EXTDATA(11);
大11:=SUM(大增,0);
大13:=SUM(IF(大增>=0,大增,0),0);
大14:=SUM(IF(大增<0,大增,0),0);
大15:=ABS(大14);
中增:=EXTDATA(12);
中11:=SUM(中增,0);
中13:=ABS(中11);
散增:=EXTDATA(13);
散11:=SUM(散增,0);
散13:=ABS(散11);

P3:=(机13+法13+大13)*100/10000;
P4:=(机15+法15+大15)*100/10000;
P6:=P3-P4;
Var1:=LLV(LOW,5)=LLV(LOW,26) AND CLOSE>=OPEN*1.08;
Var2:=CLOSE>(REF(HIGH,1)+REF(LOW,1))/4;
买:=Var1 AND Var2;
Var3:=REF(CLOSE,1);
Var4:=SMA(MAX(CLOSE-Var3,0),6,1)/SMA(ABS(CLOSE-Var3),6,1)*100;
卖:=CROSS(93,Var4);
主买:=(EXTDATA(9)+EXTDATA(10)+EXTDATA(11)/2);
主卖:=EXTDATA(12)+EXTDATA(13)+EXTDATA(11)/2;
周增:=MA(主买,5);
周减:=MA(主卖,5);
STICKLINE(周增>周减,0,周增*10,8,0),Color0000ff;
STICKLINE(周增<周减,0,周减*10,8,0),ColorFF0000;
STICKLINE(周增>周减,周增,周增*10,3,1),Color00efFF;
STICKLINE(周增<周减,周减,周减*10,3,1),ColorFFFFFF;
DRAWTEXT(FILTER(买 and 买>0,9),周增*1.08,'买\n进'),COLOR000cFF;
DRAWTEXT(FILTER(卖 and 卖>0,9),周减*0.98,'卖\n出'),Color00FF00;
市值贡献:=CAPITAL/100*CLOSE/10000;
指数贡献:=(c-ref(ma(c,5),5))*finance(1)/10000;
资金贡献:=ema(amount,3)/finance(7)/10000;
股数:=STKINDI('','引用.股数',0,0);
资金:=STKINDI('','引用.资金',0,0);
每股公积金:=FINANCE(18);
净利润:=FINANCE(30);
主营业务增长率:=FINANCE(53);
净利润增长率:=FINANCE(55);
{成本}
PT:=(REF(HIGH,1) - REF(LOW,1));
CDP:=(((HIGH + LOW) + CLOSE) / 3);
AH:=(CDP + PT);
AL:=(CDP - PT);
NH:=((2 * CDP) - LOW);
NL:=((2 * CDP) - HIGH);
卖出价:=(((CLOSE * 2.5) / 100) + CLOSE);
买入价:=(CLOSE - ((CLOSE * 2.5) / 100));
{柱线}
KS:=DATACOUNT;
P2:=(AA+BB+DD);
P5:=DYNAINFO(8);
STICKLINE(BARPOS=KS-93,0,(散11[KS]),60,0),align5,Colorffff00;
STICKLINE(BARPOS=KS-93,0,(散11[KS]),10,0),align5,Color00ffff;