1

2

引用:

公式名称: 两线叠加－－百分比对应
适用软件: 飞狐
发 表 人: 懒汉
发表日期: 2004-05-28
发表网址: http://www.chcj.net/viewthread.p ... ght=%2B%C0%C1%BA%BA

引用:

两线叠加－－百分比对应



仍用　c叠加v 举例

hv:=hhv(v,N);
dv:=hv[datacount];
bv:=100/dv;
v*bv,volstick;
hc:=hhv(c,N);
lc:=llv(c,N);
bc:=100/(hc[datacount]-lc[datacount]);
(c-lc)*bc;

[ 本帖最后由 蓝鼠 于 2008-10-30 23:40 编辑 ]

引用:

公式名称: 均线疏密
适用软件: 飞狐
发 表 人: 懒汉     
发表日期: 2004-05-15
发表网址: http://www.chcj.net/viewthread.p ... ght=%2B%C0%C1%BA%BA

引用:

均线疏密



m:=ma(c,5); m1:=ma(c,10); m2:=ma(c,20); m3:=ma(c,30); m6:=ma(c,60);
m9:=ma(c,90); mb:=ma(c,120); ml:=ma(c,250);
d:=max(max(max(max(max(max(max(m,m1),m2),m3),m6),m9),mb),ml);
x:=min(min(min(min(min(min(min(m,m1),m2),m3),m6),m9),mb),ml);
0;
d/x-1;

[ 本帖最后由 蓝鼠 于 2008-10-30 23:41 编辑 ]

引用:

公式名称: 反K线叠加成交量--飞狐副图
适用软件: 飞狐
发 表 人: 懒汉     
发表日期: 2005-01-10
发表网址: http://www.chcj.net/viewthread.p ... ght=%2B%C0%C1%BA%BA

引用:

反K线叠加成交量--飞狐副图

反K线/成交量

input:m(1038,1,9999),b(960,1,2000);
g:=SYSPARAM(4);jk:=SYSPARAM(3)-SYSPARAM(2);hv:=hhv(v,jk);
r0:=m/1000;r:=(r0*g-h)/v;
r1:=LLv(r,jk);
r2:=r1[SYSPARAM(3)];
r3:=llv(r0*g-h-r2*v,jk);
r4:=r3[SYSPARAM(3)];r5:=-r0*g+(r2*v-r4)*b/1000;
STICKLINE(c<ref(c,1),r5,-r0*g,5,0)colorcyan;
STICKLINE(c>=ref(c,1),r5,-r0*g,5,1)COLOrred;
f:=c-o;
STICKLINE(f>0,-h,-l,0.1,0),colorgreen;
STICKLINE(f>0,-c,-o,6,0),colorgreen;
STICKLINE(f<0,-h,-l,0.1,0),colormagenta;
STICKLINE(f<0,-o,-c,6,1),colormagenta;
STICKLINE(f=0 and ref(c,1)<=c,-h,-l,0.1,0),colorgreen;
STICKLINE(f=0 and ref(c,1)<=c,-o,-c,6,0),colorgreen;
STICKLINE(f=0 and ref(c,1)>c,-h,-l,0.1,0),colormagenta;
STICKLINE(f=0 and ref(c,1)>c,-o,-c,6,0),colormagenta;
m5:ma(-o,5);m1:ma(-o,10);
PARTLINE(r5<0,ma(r5,5));
PARTLINE(r5<0,ma(r5,10));
m6:=ma(-c,60);m12:=ma(-c,120);m25:=ma(-c,250);
收O:-o,linethick0;开C:-c,linethick0;高L:-l,linethick0;低H:-h,linethick0;
-r0*g;

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

引用:

公式名称: macd、kd
适用软件: 飞狐
发 表 人: 懒汉     
发表日期: 2005-04-26
发表网址: http://www.chcj.net/viewthread.p ... ght=%2B%C0%C1%BA%BA

引用:

macd、kd----K线



只是想看看它们在一天中的位置
{KD-K线}
input:m(9,1,100),n(3,2,40),m2(3,2,40);
u:=(HHV(H,m)-LLV(L,m))/100;
Rc:=(C-LLV(L,m))/u;
Rh:=(h-LLV(L,m))/u;
Ro:=(o-LLV(L,m))/u;
RL:=(L-LLV(L,m))/u;
Kc:SMA(Rc,n,1),LINETHICK1,COLORWHITE;
Ko:(ro+(N-1)*ref(kc,1))/N,LINETHICK0,COLORMAGENTA;
KL:(rL+(N-1)*ref(kc,1))/N,LINETHICK0,COLORGREEN;
Kh:(rh+(N-1)*ref(kc,1))/N,LINETHICK0,COLORRED;
STICKLINE(kc>ko or (kc=ko and kc>=ref(kc,1)),kh,kL,0.1,0),COLORMAGENTA;
STICKLINE(kc>ko or (kc=ko and kc>=ref(kc,1)),kc,ko,5,1),COLORMAGENTA;
STICKLINE(kc<ko or (kc=ko and kc<ref(kc,1)),kh,kL,0.1,0),COLORGREEN;
STICKLINE(kc<ko or (kc=ko and kc<ref(kc,1)),kc,ko,5,0),COLORGREEN;
PARTLINE(1,kc),COLORWHITE;
Dc:SMA(Kc,M2,1),COLORYELLOW;

{MACD-K线}
input:p(26,20,100),q(12,5,40),m(9,2,60);
Fc:=EMA(C,q)-EMA(C,p);
diff:fc,LINETHICK0,COLORWHITE;
dea:EMA(Fc,M),LINETHICK0,COLORYELLOW;
MACD:2*(Fc-dea),COLORSTICK;
qf:=ref(ema(c,q),1);
pf:=ref(ema(c,p),1);
fo:(2*O+(q-1)*qf)/(q+1)-((2*O+(p-1)*pf)/(p+1)),LINETHICK0,COLORMAGENTA;
fL:(2*L+(q-1)*qf)/(q+1)-((2*L+(p-1)*pf)/(p+1)),LINETHICK0,COLORGREEN;
fh:(2*h+(q-1)*qf)/(q+1)-((2*h+(p-1)*pf)/(p+1)),LINETHICK0,colorred;
STICKLINE(fc>fo or (fc=fo and fc>=ref(fc,1)),fh,fL,0.1,0),COLORMAGENTA;
STICKLINE(fc>fo or (fc=fo and fc>=ref(fc,1)),fc,fo,5,1),COLORMAGENTA;
STICKLINE(fc<fo or (fc=fo and fc<ref(fc,1)),fh,fL,0.1,0),COLORGREEN;
STICKLINE(fc<fo or (fc=fo and fc<ref(fc,1)),fc,fo,5,0),COLORGREEN;
PARTLINE(1,fc),COLORWHITE;
PARTLINE(1,dea),COLORYELLOW;

[ 本帖最后由 蓝鼠 于 2008-11-5 23:31 编辑 ]

引用:

公式名称: 实用公式
适用软件: 飞狐
发 表 人: 懒汉     
发表日期: 2004-03-07
发表网址: http://www.chcj.net/viewthread.p ... ght=%2B%C0%C1%BA%BA

引用:

实用公式



{预计成交量}
率:v/CAPITAL*100PRECISION2;//换手率
五:ref(ma(v/capital*100,5),1)PRECISION2;//前五日换手率
z:=SUMBARS(v,CAPITAL);  r:=OPENMINUTES(CURRENTTIME);
日:ref(DATE-intpart(date/10000)*10000,z)/100;//完全换手的起始日期(月、日)
t:SUMBARS(v,capital);//完全换手所用天数
f1:=c/ref(c,1)>=1;  f2:=c/ref(c,1)<1;  zq:=islastbar;
预:if(zq,(r>1 and RANGE(WEEKDAY,0,6))*240*v/r,0) linethick0 PRECISION0;//预计成交量(显示数字)
STICKLINE(f1,0,预,8,1) Color2C41FF;//预计成交量(显示阳量柱)
STICKLINE(f2,0,预,8,1) COLORCYAN;//预计成交量(显示阴量柱)
量:v linethick0 PRECISION0; //成交量(显示数字)
STICKLINE(f1 or barscount(c)=1,0,v,4,0) Color2C41FF;//显示阳量柱
stickline(zq and f1,v,0,8,0) Color2C41FF;//显示最后K线为阳量
STICKLINE(f2,0,v,4,0) COLORCYAN;//显示阴量柱
stickline(zq and f2,v,0,8,0) COLORCYAN;//显示最后K线为阴量
量比:if(r>1 and r<240,v*240/ref(ma(v,5),1)/r,v/ref(ma(v,5),1)) colorred;
m:ma(v,5) colorwhite PRECISION0;
m1:ma(v,10) coloryellow PRECISION0;
m2:=ma(v,20)colorgreen PRECISION0;
m3:=ma(v,30) colorred PRECISION0;
m4:=ma(v,40) colorcyan PRECISION0;
m6:=ma(v,60) colorblue PRECISION0;
0.008*capital colormagenta PRECISION0;
{以下为换手率达到 5% 10% 20% 30% 40% 50% 时显示箭头和数字}
DRAWTEXT(v>=0.05*capital and v<0.1*capital,0.05*capital,'→') coloryellow;
DRAWTEXT(v>=0.5*capital,0.5*capital,'←5')coloryellow;
DRAWTEXT(v>=0.1*capital and v<0.2*capital,0.1*capital,'←1')colormagenta;
DRAWTEXT(v>=0.3*capital and v<0.4*capital,0.3*capital,'←3')colorcyan;
DRAWTEXT(v>=0.2*capital and v<0.3*capital,0.2*capital,'←2') colorred;
DRAWTEXT(v>=0.4*capital and v<0.5*capital,0.4*capital,'←4')colorred;




{分笔量比}
s:=ref(time,BARSSINCE(c>0));{初始时间/时,分,秒}
Ho:=ref(hour,barssince(c>0));{初始时间/小时}
m:=ref(minute,barssince(c>0));{初始时间/分钟}
s1:=s-ho*6400-m*40;{初始秒数}
t0:=time-hour*6400-MINUTE*40;
t1:=if(hour<=11,t0,t0-5400)-s1;{运行秒数/FXJ}
t:=if(HOUR<=11,TIME0,time0-5400)-s1;{开盘秒数/飞狐}
zs:=if(ho=10,10800,if(ho>11,7200,14400));{总交易时间(秒)}
lb:sum(v,0)*zs/t/DYNAINFO(38);{"s3.rv5#day"量比}
PARTLINE(lb>ref(lb,1),lb)linethick3;  PARTLINE(lb<ref(lb,1),lb)colorgreen linethick2;




{1分钟量比}
t:=BARSLAST(HOUR=9 and ref(hour,1)>9)+1;
lb:=SUM(V,OPENMINUTES(time))*240/OPENMINUTES(time)/DYNAINFO(38);
r:=ref(lb,t+1);
量比:if(OPENMINUTES(time)<1,r,lb);




{成交密度}
s:=ref(time,BARSSINCE(c>0));{初始时间/时,分,秒}
Ho:=ref(hour,barssince(c>0));{初始时间/小时}
m:=ref(minute,barssince(c>0));{初始时间/分钟}
s1:=s-ho*6400-m*40;{初始秒数}
t0:=time-hour*6400-MINUTE*40;
t:=if(hour<=11,t0,t0-5400)-s1;{运行秒数/FXJ}
t1:=if(HOUR<=11,TIME0,time0-5400)-s1;{开盘秒数/飞狐}
zs:=if(ho=10,10800,if(ho>11,7200,14400));{总交易时间(秒)}
lb:=sum(v,0)*zs/t/DYNAINFO(38) colorred;{"s3.rv5#day"量比}
密度p:BARSCOUNT(c)/t*60;
分内成交次数:=BARSLAST(if(ref(MINUTE,1)=MINUTE,1,0)=0);
密度:if(ref(t,1)<t-60,0,
if(ref(t,2)<t-60,1,
if(ref(t,3)<t-60,2,
if(ref(t,4)<t-60,3,
if(ref(t,5)<t-60,4,
if(ref(t,6)<t-60,5,
if(ref(t,7)<t-60,6,
if(ref(t,8)<t-60,7,
if(ref(t,9)<t-60,8,
if(ref(t,10)<t-60,9,
if(ref(t,11)<t-60,10,
if(ref(t,12)<t-60,11,
if(ref(t,13)<t-60,12,
if(ref(t,14)<t-60,13,
if(ref(t,15)<t-60,14,
if(ref(t,16)<t-60,15,
if(ref(t,17)<t-60,16,
if(ref(t,18)<t-60,17,
if(ref(t,19)<t-60,18,
if(ref(t,20)<t-60,19,
if(ref(t,21)<t-60,20,
if(ref(t,22)<t-60,21,
if(ref(t,23)<t-60,22,
if(ref(t,24)<t-60,23,
if(ref(t,25)<t-60,24,
if(ref(t,26)<t-60,25,
if(ref(t,27)<t-60,26,
if(ref(t,28)<t-60,27,
if(ref(t,29)<t-60,28,
if(ref(t,30)<t-60,29,30)))))))))))))))))))))))))))))) linethick0;
密度m:ma(密度,13);密度e:ema(密度m,13);
均量:=sum(v,0)/barscount(v) linethick0 colormagenta;
换:=sum(v,0)/CAPITAL*100 linethick0;
hhv(密度,0)linethick0;

引用:

公式名称: 均线的角度
适用软件: 飞狐
发 表 人: 懒汉     
发表日期: 2004-05-09
发表网址: http://www.chcj.net/viewthread.p ... ght=%2B%C0%C1%BA%BA

引用:

关于均线的角度



均线的角度　是一种　显示角度　即这个角度并不是真实的描述均线的变化速度

我们所看到的均线的倾角和　主图的尺寸（长×宽）、主图中K线的数量、主图中最高价－最低价的差都有关系

如果主图的尺寸不变，主图中K线数量也设为定值N，则这个角度只和这N根K线的最高价－最低价(hhv(h,n)-llv(l,n)相关。不过这个差值　不仅　不同个股　不同　而且　同一只股的　不同时间段　也不相同。我们在用这个角度为选股条件时，应该有一个清醒的认识。

下面是公式原码，供大家参考
一、飞狐公式　任意K线数量　需打开光标


y0:=py/(SYSPARAM(4)-SYSPARAM(5));//一个股价单位对应的主图高度
x0:=px/(SYSPARAM(3)-SYSPARAM(2));//一个周期对应的主图宽度
{py--主图上最高价到最低价之间的距离(毫米)；px--主图上最初一根K线到最后一根K线的距离(毫米)　这两个值需要自己测量}
m:=ma(c,n);//N日均线
xl:=(m-ref(m,z))*y0/z/x0;//斜率 {z---均线上　被考察的　线段长度（周期）}   
qj:atan(xl)*57.3;//倾角


二、飞狐、分析家　
{如果K线数预先设定为K则}
yk:=py/(hhv(h,k)-llv(l,k));     { 一个股价单位对应的主图高度}
xk:=px/(k-1);     {一个周期对应的主图宽度}
{py--主图上最高价到最低价之间的距离(毫米)；px--主图上最初一根K线到最后一根K线的距离(毫米)　这两个值需要自己测量}
m:=ma(c,n);
xl:=(m-ref(m,z))*yk/z/xk;{斜率。z---均线上　被考察的　线段长度（周期）}
qj:atan(xl)*57.3;

引用:

公式名称: 振幅的周期
适用软件: 飞狐
发 表 人: 懒汉     
发表日期: 2004-05-09
发表网址: http://www.chcj.net/viewthread.p ... ght=%2B%C0%C1%BA%BA

引用:

振幅达到M时的周期



这是清扬老师写的　关于振幅的周期公式

题目：已知：zf:=(hhv(h,n)-llv(l,n))*200/(hhv(h,n)+llv(l,n));
         当 zf>=m 时　求　N　

INPUT:M(30,0,999);
Fh:=h;
fl:=l;
for   i=1 to datacount do t:=0 ;
  for i=datacount downto 1 do begin
      g:=fh; d:=fl;
    for j=i downto 1 do begin
        g:=max(g,fh[j]); d:=min(d,fl[j]);
        zf:=(g-d)/(g+d);
if 200*zf>=m then begin t:=i-j+1; break; end;end;end;
t;

引用:

公式名称: macd重拾升势
适用软件: 飞狐
发 表 人: 懒汉     
发表日期: 2004-05-15
发表网址: http://www.chcj.net/viewthread.p ... ght=%2B%C0%C1%BA%BA

引用:

macd　重拾升势　原码



k:(EMA(CLOSE,12)-EMA(CLOSE,26));
d:EMA(k,9);
MACD:2*(k-d) colorstick;
X:=barslast(cross(k,d));{确定计算的起点}
Y:=hhvbars(k,X);{确定最高点的位置,以定义趋势的强弱}
F:=ref(macd,Y)>=36/1000;{确定最高点的位置,以定义趋势的强弱}
DRAWICON(Y>2{限定macd的回落周期}and llv(macd,Y)>=0{限定最低值，即k不跌破d}
and k>ref(k,1){确定重回升势}and ref(k,X)<0{限定起点在低位} and
ref(count(macd>ref(macd,1),X-Y)>=X-Y-2,Y+1){限定只有一次回落} and
count(c/o>1,10)>5 and f,0,4);

引用:

公式名称: 趋势线
适用软件: 飞狐
发 表 人: 懒汉     
发表日期: 2004-05-15
发表网址: http://www.chcj.net/viewthread.p ... ght=%2B%C0%C1%BA%BA

引用:

趋势线　



n= 10 ,1 ,100;
zi:=zig(4,n); zf:=zi/ref(zi,1); gd:=zf<1 and ref(zf,1)>1; dd:=zf>1 and ref(zf,1)<1;
wg:=barslast(gd);   HH:=ref(h,wg+1);   fh:=BACKSET(HH=ref(h,1) and ref(zi,1)=ref(h,1),2);
jh:=cross(fh,0.5);    sh:=if(jh=1,sum(jh,0),0);
hk:=hhv(sh,0);kh:=-1*if(sh>0,sh-hk[DATACOUNT]-1,0);
WH1:=sumbars(kh,1); WH2:=sumbars(kh,2); WH3:=sumbars(kh,3);
H1:=ref(h,WH1-1);     H2:=ref(h,WH2-1);      H3:=ref(h,WH3-1);
YH1:=H=H1 AND H=ZI;   YH2:=H=H2 AND H=ZI;    YH3:=H=H3 AND H=ZI;
wd:=barslast(dd);  LL:=ref(l,wd+1);   fl:=BACKSET(LL=ref(L,1) and ref(zi,1)=ref(L,1),2);
jL:=cross(fL,0.5); sL:=if(jL=1,sum(jL,0),0);
Lk:=hhv(sL,0);kL:=-1*if(sL>0,sL-Lk[DATACOUNT]-1,0);
WL1:=sumbars(kL,1);  WL2:=sumbars(kL,2);  WL3:=sumbars(kL,3);
L1:=ref(L,WL1-1);      L2:=ref(L,WL2-1);      L3:=ref(L,WL3-1);
YL1:=L=L1 AND L=ZI;    YL2:=L=L2 AND L=ZI;    YL3:=L=L2 AND L=ZI;
上2:LINEVALUE(YH2,H2,YH1,H1,0,0);
上1:LINEVALUE(YH3,H3,YH2,H2,0,0) colorred;
下2:LINEVALUE(YL2,L2,YL1,L1,0,0);
下1:LINEVALUE(YL3,L3,YL2,L2,0,0) ,ColorADC054;