1000列公式 7

QUOTE:
851.问:
如何将字符串2005-04-20,转换成数字20050420
   答(bajatje):
ty:=STRLEFT('2005-04-20',4);
tm:=STRMID('2005-04-20',6,2);
td:=STRRIGHT('2005-04-20',2);
STRTONUM(ty+tm+td)

QUOTE:
852.问:
昨天，突然放量（小阴线，十字线，小阳线，大阴线）这里的放量是指相对其近期来说的。
但是，第2天，或者第3天就能以小的量，收复那天放量的K线
   答(股市骑兵00):
x1:=v/ref(v,1)>=3;
x2:=BARSLAST(x1);
x3:=v/ref(v,x2)<=0.5;
x2<3 and all(x3,x2) and c>ref(c,x2);

答(原野):
还可以如下表示:
ref(v,1)/ref(ma(v,5),2)>=3 and ref(c/o,1)<1.02 and v/ref(v,1)<0.55 and c>ref(c,1);

QUOTE:
853.问:
在一分钟k线上能显示3－4天的高低点延长线

   答(bajatje):
w:=sumbars(barslast(hour<ref(hour,1))=0,3);
hh:=hhv(h,w);
hh[datacount];
LL:=LLv(L,w);
LL[datacount];
答(股市骑兵00):
tb:=date<>ref(date,1);
x1:=sumbars(tb,1);
x2:=sumbars(tb,2);
h1:=hhv(h,x1);l1:=llv(l,x1);
h2:=ref(hhv(h,ref(x1,x1)),x1);
l2:=ref(llv(l,ref(x1,x1)),x1);
h3:=ref(hhv(h,ref(x1,x2)),x2);
l3:=ref(llv(l,ref(x1,x2)),x2);
h1[datacount];l1[datacount];
h2[datacount];l2[datacount];
h3[datacount];l3[datacount];

QUOTE:
854.问:
找出 10日乖離率在高(低)檔產生背離之個股,  股價創新高 ,Bias(10)數值
卻比上一個(Bias(10)數值)波峰低0.5以上, (比如設距今日30個交易日之內)
1)＂誰＂跟＂誰＂作比較產生乖離率？股價跟 Bias(10)數值作比較產生 "背離 "
2)、差異要多大您才認為是背離？Bias(10) 數值差 >0.5 以上
請問這樣條件寫得出公式嗎? 或者不用選股只要做出指標"會特別標示背離產生"即可

   答(股市骑兵00):
大概这个样子的。
BIAS10:=(CLOSE-MA(CLOSE,10))/MA(CLOSE,10)*100;
hhv(c,30)>ref(hhv(c,30),1) and hhv(BIAS10,30)-BIAS10>0.5;

QUOTE:
855.问:
   上式可否再幫我改成:
   BIAS低檔背離的原碼? (條件相同),或者幫我把高低檔背離的公式合成一個
   答(股市骑兵00):
BIAS10:=(CLOSE-MA(CLOSE,10))/MA(CLOSE,10)*100;
顶背离:hhv(c,30)>ref(hhv(c,30),1) and hhv(BIAS10,30)-BIAS10>0.5;
底背离:llv(c,30)<ref(llv(c,30),1) and BIAS10-llv(BIAS10,30)>0.5;

QUOTE:
856.问:
在副图画两条水平的白色彩带,第一条当周KD的K大于D时变为黄色,
第二条当月KD的K大于D时变为红色. 用在日线上,最好是全部周期.

   答(股市骑兵00):
zk:="kd.k#week";zd:="kd.d#week";
rk:="kd.k#MONTH";rd:="kd.d#MONTH";
PARTLINE(1,0),COLORWHITE,LINETHICK10;
PARTLINE(zk>zd,0),COLORYELLOW,LINETHICK10;
PARTLINE(1,10),COLORWHITE,LINETHICK10;
PARTLINE(rk>rd,10),COLORRED,LINETHICK10;

QUOTE:
857.问:
   这种平均线如何写？如果在日线图界面,则ma:(c,30)//下面的不显示
   如果切换到120分钟,则ma:(c,20) //前面的ma:(c,30)不显示
   如果切换到60分钟,则ma:(c,10) //前面的ma:(c,30)　ma:(c,20)不显示
   答(bajatje):
if DATATYPE=6 then
ma:(c,30)//下面的不显示
if DATATYPE=11 then
ma:(c,20) //前面的ma:(c,30)不显示
if DATATYPE=5 then
ma:(c,10) //前面的ma:(c,30)　ma:(c,20)　不显示

QUOTE:
858.问:
根据指定日期，以光标控制黄金分割位置

   答(hx817):
参考
input:n(1040618,700101,1341231);//N 为日期，可在参数中设置
tj:=date=n;
tj1:=(BARPOS-BARSLAST(tj));
kn:SYSPARAM(1)-tj1;
kn1:INTPART(0.382*kn);
kn2:INTPART(0.618*kn);
VERTLINE(tj);
VERTLINE(BARPOS=tj1+kn1);
VERTLINE(BARPOS=tj1+kn2);

QUOTE:
859.问:
我要把成本分布中的90%集中度的数值
引用出来,放在k线的上方,怎么做
   答(股市骑兵00):
是这个意思吗？
P90:(cost(95)-cost(5))/(cost(95)+cost(5))*100;

QUOTE:
860.问:
我想用数字来表示月K线天数怎么做
   答(hx817):
1.先建立一个调用公式，比如 ttt
用来计算每个月多少天
fm:=month<>refx(month,1);
fn:=BARSLAST(fm)+1;
nn:if(fm=1 or ISLASTBAR,ref(fn,1),0);
2.再建立新公式
"ttt.nn#day"
则在月线周期上可看到当月交易周期


QUOTE:
861.问:
如果A=EMA(CLOSE,10),(A为常量).请问任何求CLOSE的值
   答(股市骑兵00):

根据EMA定义推算。
若Y=EMA(X,N) 则Y=[2*X+(N-1)*Y']/(N+1)

QUOTE:
862.问:
前一天的阴线实体大于5%，今天的K线孕育在昨天阴线实体之内，
同时KDJ值均小于20。
   答(bajatje):
ref((o-c)/ref(c,1)>0.05,1) and max(h,l)<ref(o,1) and min(h,L)>ref(c,1) and "kdj.d"<20;

QUOTE:
863.问:
能否把FH1的数据相应的往前移动

fh:=SPLITDATA(4)/10;
ts:DIVIDBARS(0);
fh1:sum(fh,ts+1);

   答(股市骑兵00):
fh:=SPLITDATA(4)/10;
ts:=DIVIDBARS(0);
fh1:sum(fh,ts+1);
a:0*c;
for i=datacount downto 2 do begin
  if fh>0 then
a[i-1]:=fh;
  else
a[i-1]:=max(a[i-1],a);
end;

QUOTE:
864.问:
这几天为了还原C,忙于校对原始数据,始终有出入,
不知什么原因,搞的头都快晕了,错在哪里

送股:=SPLITDATA(1)*0.1;
配股:=SPLITDATA(2)*0.1;
sp:=送股+配股;
sp1:=sp;
sp1[datacount]:=1;
for i=datacount downto 2 do sp1[i-1]:=sp1/(1+sp);

fh:=SPLITDATA(4)/10;
ts:=DIVIDBARS(0);
fh1:sum(fh,ts+1);
a:=0*c;
for i=datacount downto 2 do begin
  if fh>0 then
a[i-1]:=fh;
  else
a[i-1]:=max(a[i-1],a);
end;
FH1:=A;
HYCA:C/SP1+FH1;

   答(股市骑兵00):
送股:=SPLITDATA(1)/10;配股:=SPLITDATA(2)/10;分红:=SPLITDATA(4)/10;
sp:=c;
fh:=0*c;//分红前移
sp[datacount]:=1;//送配股复权比例
for i=datacount downto 2 do begin
sp[i-1]:=sp/(1+送股+配股);
fh[i-1]:=fh;
if 分红>0 then
fh[i-1]:=分红;
end;
复权价:c/sp+fh;
VERTLINE(送股+配股+分红>0);

QUOTE:
865.问:
时段统计中的阳换手率是什么意思公式是什么?:(阳量的值是从哪个公式或函数提出来的?

   答(bajatje):
阳换手:sum((o<=c)*v,N)/capital*100;
阴换手:sum((o>c)*v,N)/capital*100;

QUOTE:
866.问:
我想做个阴阳换手比的指标用分笔周期,按您的指点
第一次输出为0  (N=0):
阳换手:s=um((o<=c)*v,N)/capital*100;
阴换手:sum((o>c)*v,N)/capital*100
阳换手/阴换手

第二次用一句输出却等于阴阳换手之和:
阳换手:s=um((o<=c)*v,N)/capital*100;

第三次用另一句输出为0,说明分母是0,所以第一次输出都是0:
阴换手:sum((o>c)*v,N)/capital*100

   答(bajatje):
阳换手:sum((o<=c)*v,N)/capital*100;
阴换手:sum((o>c)*v,N)/capital*100;
这样的表达式没有问题。你的capital是否有数据？

SUM(IF(CLOSE/REF(CLOSE,1)>1,VOL,0),0)/capital*100
这样也对（注意：是　＞1　不是　＞0）

QUOTE:
867.问:
如何引用实时图上的预估量
   答(hx917):
自己计算，用
(交易时间/一天总时间)×已经成交的量

QUOTE:
868.问:
编一个《无未来数据的周MA指标》，周均线能够在日线图每日变化显示

   答(股市骑兵00):
INPUT:N(5);//均线周数调节
x:=datediff(ref(date,1),date)<>weekday-ref(weekday,1);
z:=refx(x,1);zq1:=sumbars(z,n-1); zq2:=sumbars(z,n);
周均线:if(z,sum(z*c,zq2)/n,(sum(z*c,zq1)+c)/n);

QUOTE:
869.问:
如果在小时段引用日线MA如何编写？将weekday改为day结果不对
   答(股市骑兵00):
改成这样试试：
x:=date>ref(date,1);

QUOTE:
870.问:
我通常是在日线周期上看k线和kdj指标，又懒得开多个窗口看5分钟周期的kdj，而且也很麻烦。
想在日线周期的窗口上能看见5分钟周期的kdj线，这样有两个kdj副图，一个是日线周期的，一个
是5分钟的，对于掌握盘口买卖很有好处，怎么编这种指标

   答(股市骑兵00):
日线引用5分钟KD只能显示每天最后一笔的KD数据。
k:STKINDI(STKLABEL,'kd.k',0,2);
d:STKINDI(STKLABEL,'kd.d',0,2);

QUOTE:
871.问:
mr:ma(c,5)>ma(c,10);
mc:ma(c,5)<ma(c,10) or ?

买入条件：5日均线大于10日均线（不是上穿）。
卖出条件：1、5日均线小于10日均线；2、最低价格低于第一个买入条件成立时的最低价。
请问第2个条件如何编写？尝试过 l<ref(l,barslast(mr))，可是结果显示的是上一次条
件成立时的最低价而不是第一个，又不希望买入条件采用cross(ma(c,5),ma(c,10))，
   答(股市骑兵00):
这样试试。

mr:ma(c,5)>ma(c,10);
mc:ma(c,5)<ma(c,10) or c<ref(l,BARSLAST(cross(mr,0.5)));

QUOTE:
872.问:
如何编辑公式在波段的高低点处显示涨跌幅的数值？
如：ＡＢ段的涨幅为15％，如何在Ｂ点显示１５％这个数。　
   答(hx817):
别名: 前M个波峰值
所属类别: 指标函数  参数数量: 3

前M个ZIG转向波峰值。
用法:
PEAK(X,N,M)表示之字转向ZIG(X,N)的前M个波峰的数值,M必须大于等于1
例如:
PEAK(1,5,1)表示5%最高价ZIG转向的上一个波峰的数值
PEAK(MA(C,20),10,1)表示均线的10%的ZIG转向的上一个波峰的数值

别名: 前M个波谷值
所属类别: 指标函数  参数数量: 3

答(股市骑兵00):
这样试试。

x:=4;n:=10;w:=FLATZIG(x,n);
DRAWNUMBER(w=1,h*1.02,c/TROUGH(x,n,1)*100-100,2);
DRAWNUMBER(w=0,l*0.98,c/PEAK(x,n,1)*100-100,2);

QUOTE:
873.问:
我想找出主图界面内包含K线的数量，但这个值是浮动的，随着主图放大、
缩小而变，请教用什么函数表示?
   答(bajatje):
SYSPARAM(3)-SYSPARAM(2)

SYSPARAM(3)
系统参数:主图可见K线最后位置
注意：该函数仅K线图形分析且打开十字光标时有效,否则返回值不确定

SYSPARAM(2)
系统参数:主图可见K线最初位置
注意：该函数仅K线图形分析且打开十字光标时有效,否则返回值不确定

QUOTE:
874.问:
怎样在分时上做昨天的高点和低点各画一条直线,还有昨天5日均线画一条直线；

   答(股市骑兵00):
1)先建个引用公式，名称：X21
HH:H;
LL:L;
M:MA(C,5);

2）再建公式选主图叠加。
HH:"X21.HH##day";
LL:"X21.LL##day";
M:"X21.M##day";
问:
可不可以做出30分钟内的分时上最高画一条横线
答(股市骑兵00):
1）
HHM:=HHV(H,30);
HH:HHM[DATACOUNT];

2）
HH:"X21.HH#MIN1";

QUOTE:
875.问:
鬼变脸文字化表述的解盘公式
   答(股市骑兵00):
利用鬼变脸公式的数据，用下面涵数做。

别名: 显示解盘数值
所属类别: 解盘函数  参数数量: 5

在[解]中输出带数值的解盘。
用法:
EXPLAINEX(COND,TEXT,NUMBER,PRECISION,SKIPLINES)
在COND条件满足时在[解]中输出数值解说。
PRECISION为小数显示位数,SKIPLINES为空出几行显示下一个解盘
例如:
EXPLAINEX(HIGH>=HHV(HIGH,20), '20天新高价:',HIGH,2,1)表示在创20天新高时在
[解]中输出数值解说。
......
帮你做3天解盘
pg:=SYSPARAM(1);
w1:=BARSLAST(kk=3 or kk=4 or kk=5);w2:=BARSLAST(kk=1 or kk=2 or kk=6);
EXPLAINEX(kk=1 or kk=2 or kk=6,'红'+NUMTOSTR(w1[pg],0)+'今天：',c,2,0),COLORRED;
EXPLAINEX(kk=3 or kk=4 or kk=5,'绿'+NUMTOSTR(w2[pg],0)+'今天：',c,2,0),COLORGREEN;
EXPLAINEX(ref(kk=1 or kk=2 or kk=6,1),'红'+NUMTOSTR(w1[pg-1],0)+'昨天：',ref(c,1),2,0),COLORRED;
EXPLAINEX(ref(kk=3 or kk=4 or kk=5,1),'绿'+NUMTOSTR(w2[pg-1],0)+'昨天：',ref(c,1),2,0),COLORGREEN;
EXPLAINEX(ref(kk=1 or kk=2 or kk=6,2),'红'+NUMTOSTR(w1[pg-2],0)+'前天：',ref(c,2),2,0),COLORRED;
EXPLAINEX(ref(kk=3 or kk=4 or kk=5,2),'绿'+NUMTOSTR(w2[pg-2],0)+'前天：',ref(c,2),2,0),COLORGREEN;

QUOTE:
876.问:
我想在K线副图上连续显示等份的竖线

   答(凹地):
看这个。等分： 10天
VERTLINE(MOD(BARPOS,10)=0)

QUOTE:
877.问:
如何在一分钟K线图附图显示日K线图

已建立附图显示日K线图，如下：
STICKLINE (ISEQUAL AND C>=REF(C,1),C,C,7,1) COLORRED;
STICKLINE (ISEQUAL AND C<REF(C,1),C,C,7,1) COLORcyan;
STICKLINE (ISUP,H,L,0,0) COLORRED;
STICKLINE (ISUP,C,O,7,1) COLORRED;
STICKLINE (ISDOWN,H,L,0,0) COLORcyan;
STICKLINE (ISDOWN,O,C,7,0) COLORcyan;
该公式只与主图同周期，如何在一分钟K线附图显示日K线图？

   答(bajatje):
1分钟图日K线
w:=barslast(hour<ref(hour,1));
oo:=ref(o,w);
cc:=refx(c,239-w);
hh:=refx(hhv(h,w+1),239-w);
LL:=refx(LLv(L,w+1),239-w);
f:=cc-ref(cc,w+1);
k:=BACKSET(ISLASTBAR,w+1);
STICKLINE (cc>oo and BETWEEN(w,INTPART(w[datacount]/2*0.93),INTPART(w[datacount]-w/2*1.07)),hh,LL,10,0) COLORRED;
STICKLINE (cc>oo,oo,cc,10,0) COLORRED;
STICKLINE (cc<oo and BETWEEN(w,INTPART(w[datacount]/2*0.93),INTPART(w[datacount]-w/2*1.07)),hh,LL,10,0) COLORcyan;
STICKLINE (cc<oo,oo,cc,10,0) COLORcyan;
STICKLINE (cc=oo and f>=0 and BETWEEN(w,INTPART(w[datacount]/2*0.93),INTPART(w[datacount]-w/2*1.07)),hh,LL,10,0) COLORRED;
STICKLINE (cc=oo and f>=0,oo,cc,10,0) COLORRED;
STICKLINE (cc=oo and f<0 and BETWEEN(w,INTPART(w[datacount]/2*0.93),INTPART(w[datacount]-w/2*1.07)),hh,LL,10,0) COLORcyan;
STICKLINE (cc=oo and f<0,oo,cc,10,0) COLORcyan;

QUOTE:
878.问:
昨天的K线形态与前天的K线形态基本相同怎样编写?

   答(bajatje):
a:=BETWEEN(c,ref(c,1)-0.02,ref(c,1)+0.02) and BETWEEN(l,ref(l,1)-0.02,ref(l,1)+0.02)
and BETWEEN(h,ref(h,1)-0.02,ref(h,1)+0.02) and BETWEEN(o,ref(o,1)-0.02,ref(o,1)+0.02) ;
ref(a,1);
答(股市骑兵00):
n:=1.003;n1:=0.997;co:=c/o;hl:=h/l;hc:=h/c;
BETWEEN(co/ref(co,1),n,n1) and BETWEEN(hl/ref(hl,1),n,n1) and BETWEEN(hc/ref(hc,1),
n,n1);

QUOTE:
879.问:
请介绍<分析家4.0转3.0公式转换器>具体操作步骤

   答(范数):
1.把原版分析家40的公式导出,置于桌面,命名123
2.退出原版分析家40.再打开分析家4.0转3.0公式转换器
3.将置于桌面,命名123的公式导入分析家4.0转3.0公式转换器的版本内
4.再将分析家4.0转3.0公式转换器内的公式导出,在导出时选择30格式.
5.一切工作完成后,则40变成了30.

QUOTE:
880.问:
我是想在电脑解盘里面显示以前均线交叉时的买进价位.
比如:EXPLAINEX(5日线大于25日线,'起始买进价位=',起始买进价位,0,0),colorcc10ff;
怎样才能让 (起始买进价位)显示以前均线交叉时的价位????

   答(hx817):
ma1:=ma(c,5);
ma2:=ma(c,25);
fc:ref(c,BARSLAST(cross(ma1,ma2))+1);
EXPLAINEX(ma1>ma2,'起始买进价位=',fc,2,0),colorcc10ff;


QUOTE:
881.问:
当出现买入信号时都会出现很多"买入"字样,因为符合条件的K线太多,我只想让它只出现前两个,
后面的就不显示了.除非由"买入"转入"卖出",就再只显示"卖出"的前两个..
   答(股市骑兵00):
B:=MA(C,20);
A:=C>B;
A1:=C<B;
B1:=REF(HHV(H,5),1);
B2:=REF(LLV(L,5),1);
X:=A AND c>B1 AND C>O or barpos=1 or barpos=2;
Y:=A1 AND c<B2 AND C<O or barpos=1 or barpos=2;
dx:=sumbars(x,1);ex:=sum(y,dx);
dy:=sumbars(y,1);ey:=sum(x,dy);
x1:=(cross(ey,ex) or ey<3 and barpos<>2 and barpos<>1)*x;
y1:=(cross(ex,ey) or ex<3 and barpos<>2 and barpos<>1)*y;
DRAWTEXT(X1,L,'买进'),colorWHITE;
DRAWTEXT(Y1,H,'卖出'),colorGREEN;

问:如果我只单独选择第一个或者单独选择第二个用公式怎么表达?
   答(股市骑兵00):
每次买卖只发一个信号，就去除
or ey<3
or ex<3
问:如果只显示第二个"买进",而不显示第一个,应该怎么表示???
   答(股市骑兵00):
改这2句，上面barpos=2多余了
x1:=(ey=2 and barpos<>1)*x;
y1:=(ex=2 and barpos<>1)*y;

QUOTE:
882.问:
选出股价在60均线正负2%之内的股票
   答(股迷):
ABS(CLOSE-MA(CLOSE,60))/CLOSE<0.02;

QUOTE:
883.问:
x1:=(cross(ey,ex) and barpos<>2 andbarpos<>1)*x;
y1:=(cross(ex,ey) and barpos<>2 and barpos<>1)*y;

我是想把x1这个K线的收盘价作为买进价写在电脑解盘里面

EXPLAINEX(BBB>0,'★起始多单价位= ',起始买进价位,0,0),colorcc10ff;
就是不知道怎么样来用 "起始买进价位"表达x1时K线的收盘价???
   答(股市骑兵00):
B:=MA(C,20);
A:=C>B;
A1:=C<B;
B1:=REF(HHV(H,5),1);
B2:=REF(LLV(L,5),1);
X:=A AND c>B1 AND C>O or barpos=1;
Y:=A1 AND c<B2 AND C<O or barpos=1;
dx:=sumbars(x,1);ex:=sum(y,dx);
dy:=sumbars(y,1);ey:=sum(x,dy);
x1:=(cross(ey,ex) or ey<3 and barpos<>1)*x;
y1:=(cross(ex,ey) or ex<3 and barpos<>1)*y;
DRAWTEXT(X1,L,'买进'),colorWHITE;
DRAWTEXT(Y1,H,'卖出'),colorGREEN;
sj:=MOD(date,10000)/100;fc:=c;x2:=sumbars(x1,1);y2:=sumbars(y1,1);gb:=SYSPARAM(1);
EXPLAIN(X2,'买入时间:'+NUMTOSTR(sj[gb-x2[gb]+1],2)+' 买入价:'+NUMTOSTR(fc[gb-x2[gb]+1],2)),COLORRED;
EXPLAIN(Y2,'卖出时间:'+NUMTOSTR(sj[gb-y2[gb]+1],2)+' 卖出价:'+NUMTOSTR(fc[gb-y2[gb]+1],2)),COLORGREEN;

QUOTE:
884.问:
可以在一个选股公式里面设多个条件，而且这多个条件里面的数值都可以设置，如选择
1、最高价与最低价10元到15元；
2、开盘价在某一范围；
3、涨跌幅度在某一范围等。
   答(hx817):
input:年(2004),月(7),日(16),收盘小价格(5),收盘大价格(5.3),最高价格(15),最低价格(10);
n:=DATEDIFF(((年-1900)*10000+月*100+日),DATE);//计算输入日期和现在日期时间差
tj1:REF(CLOSE,n)>收盘小价格 and REF(CLOSE,n)<收盘大价格;//选择收盘价
tj2:REF(HIGH,n)<最高价格 and REF(LOW,n)>最低价格;//选择收盘价
//开盘价、涨跌幅度方法和 tj1 类似

QUOTE:
885.问:
对飞狐RSI指标理论性失误的疑问

在飞狐里的RSI公式为
N1:6,2,10O
　　N2:12,2,100
　　N3:24,2,100

LC := REF(CLOSE,1);
RSI1:SMA(MAX(CLOSE-LC,0),N1,1)/SMA(ABS(CLOSE-LC),N1,1)*100;
RSI2:SMA(MAX(CLOSE-LC,0),N2,1)/SMA(ABS(CLOSE-LC),N2,1)*100;
RSI3:SMA(MAX(CLOSE-LC,0),N3,1)/SMA(ABS(CLOSE-LC),N3,1)*100;

以下是我翻看函数说明的一些个人注解，不知道对不对

ABS（X）  绝对值数学
取X的绝对值

MAX （A，B）  最大值数学取A和B中最大的值

SMA （X，N，M）移动平均引用  求X的N日静态平均，M为权重
若Y=SMA(X,N,M) 则 Y=[M*X+(N-M)*Y')/N, 其中Y'表示上一周期Y值,N必须大于M。

REF（X，N）向前引用引用  引用N周期前的X值

LC：=REF（CLOSE，1）
该句为中间语句，不显示
因为1天前的收盘价格CLOSE
可以理解为“上日收盘价格”

CLOSE-LC：今日收盘价格-上日收盘价格“LC：=REM（CLOSE，1）”

max(a,b)back to max a,or b.
max(close-lc,0)
取CLOSE-LC 或0的最大值
可以理解为，如果收盘价格大于LC，则取他们的差值，否则取0。

SMA(MAX(CLOSE-LC,0),N1,1)
求移动平滑因子为1时的N1日的（今日收盘价-上日收盘价）或0的移动平均价

ABS(CLOSE-LC)
取CLOSE-LC的绝对值

SMA(ABS(CLOSE-LC),N1,1)
取移动平滑因子为1是的N1天前的（收盘价-上日收盘价的绝对值）的移动平均价

在期货市场技术分析书中第273页，对RSI的定义是
RS=X天内上涨收市价的平均值/X内下跌收市价的平均值
解释：X天内的上涨了的收市价格的上涨幅度相加，然后除于X，在结算下跌幅度时则把所有的下跌了的收市价格的下跌幅度相加，然后除于X，得出相对力度（RS）
RSI=100-（100/（1+RS））

我觉的飞狐里的RSI出现了理论性的错误。
SMA(MAX(CLOSE-LC,0),N1,1)/SMA(ABS(CLOSE-LC),N1,1)*100
里面取的是
N1天前的收盘差最大值/N1天前的收盘差绝对值*100
而墨非定义的是涨跌幅度之间的关系，RSI并非是最大值与绝对值之间的关系。
因为不会编程，不能够自己编写与原来RSI进行对比严整

   答(hx817):
在期货市场技术分析书中第273页，对RSI的定义是

RS = X天内上涨收市价的平均值/X内下跌收市价的平均值

解释：X天内的上涨了的收市价格的上涨幅度相加，然后除于X，

在结算下跌幅度时则把所有的下跌了的收市价格的下跌幅度相加，然后除于X，得出相对力度（RS）

RSI=100-（100/（1+RS））

涨跌幅度=C-REF(C,1)=C-LC
上涨幅度 C>LC 即 C-LC>0
MAX(C-LC,0) 只计算上涨的幅度
X天内上涨幅度的平均值=SMA(MAX(C-LC,0),X,1)

每天涨跌幅度的总和：ABS(CLOSE-LC)
SMA(ABS(CLOSE-LC),N1,1)

RSI = 100-100/(1+RS)
            = (100*(1+RS)-100)/(1+RS)
            = (100+100*RS-100)/(1+RS)
            = (100*RS)/(1+RS)
            = RS/(1+RS)*100

RS = X天内上涨幅度的平均值/X天内下跌幅度的平均值
假设 RS=R1/R2
那么：
RSI =       (R1/R2)/(1+R1/R2)*100
            = R1/(R1+R2)*100
R1为 X天内上涨幅度的平均值       =       SMA(MAX(C-LC,0),X,1)
R2为 X天内下跌幅度的平均值
R1+R2 为X天内涨跌幅度的平均值       =       SMA(ABS(CLOSE-LC),N1,1)
那么：
RSI = SMA(MAX(C-LC,0),X,1)/SMA(ABS(CLOSE-LC),N1,1)*100

CODE:[Copy to clipboard]886.问:
请南客老师将这段源码转成飞狐公式，谢谢。

input:N(5,0,100,1),D(1050426,0,1999999,1),M(80,1,1000,1),
   M1(50,1,1000,1),N1(0,0,1000,1);

variable:AA=0,BB=0,CC=0,DD=0,  EE=0,FF=0,HH=0,II=0;
varAA:=0;
varBB:=0;
varCC:=0;
varDD:=barpos-1;
varEE:=capital*(M/100);
varFF:=capital*(m1/100);
varD:=date>=D;
var0:=ma( ref(vol,1),N );{N=１，与上一交易日比较}
var00:=var0*( (100+N1)/100 );
varV:=vol/var00-1;
var1:=if(vol>var00,vol-var00,0);
var2:=if(vol<var00,var00-vol,0);
var3:=(vol-var0)*100/var0;

差:vol-var0,colorffcc00,linethick0,precis0;
幅％:var3,colorccffff,linethick0,precis0;

STICKLINE(vol>var0,0,var1,6,0),COLORffccff;
STICKLINE(vol<var0,0,var2,6,1),colorccff33;

if varD then begin
  for i=0 to varDD do begin
if varAA< varEE then begin
   varAA := varAA + ref(vol,i);
   if varAA >= varEE then
      varZZ:=i+1;
      end
   end
  for i=0 to varDD do begin
if varBB< varFF then begin
   varBB := varBB + ref(var1,i);
   if varBB >= varFF then
      varXX:=i+1;
      end
   end
  for i=0 to varDD do begin
if varCC< varFF then begin
   varCC := varCC + ref(var2,i);
   if varCC >= varFF then
      varYY:=i+1;
      end
   end
      if Vol>var00 then begin
               AA:=AA+varV;
               BB:=BB+1;
   end
   else if Vol<var00 then begin
               CC:=CC+varV;
               DD:=DD+1;
      end
if C>O then begin
   EE:=EE+varV;
   FF:=FF+1;
   end
   else if C<O then begin
   HH:=HH+varV;
   II:=II+1;
end
end

涨％:if(BB=0,0,AA*100/BB),precis2,colorffccff;
跌％:if(DD=0,0,CC*100/DD),precis2,colorcyan;
阳％:if(FF=0,0,EE*100/FF),precis2,color99ffff;
阴％:if(II=0,0,HH*100/II),precis2,colorffff99;
（天）:varZZ,precis0,linethick0,coloreeeeee;
天↑:varXX,precis0,linethick0,colorffcccc;
天↓:varYY,precis0,linethick0,colorccff33;

   答(股市骑兵00):
上面的公式是分析家的，和飞狐写法不同，一个字都没改怎么能用呢
input:N(5,0,100,1),D(1050426,0,1999999,1),M(80,1,1000,1),
   M1(50,1,1000,1),N1(0,0,1000,1);

variable:AA=0*c,BB=0*c,CC=0*c,DD=0*c,  EE=0*c,FF=0*c,HH=0*c,II=0*c;
varAA:=0*c;
varBB:=0*c;
varCC:=0*c;
varDD:=barpos-1;
varEE:=capital*(M/100);
varFF:=capital*(m1/100);
varD:=date>=D;
var0:=ma( ref(vol,1),N );{N=１，与上一交易日比较}
var00:=var0*( (100+N1)/100 );
varV:=vol/var00-1;
var1:=if(vol>var00,vol-var00,0);
var2:=if(vol<var00,var00-vol,0);
var3:=(vol-var0)*100/var0;

差:vol-var0,colorffcc00,linethick0,PRECISION0;
幅％:var3,colorccffff,linethick0,PRECISION0;

STICKLINE(vol>var0,0,var1,6,0),COLORffccff;
STICKLINE(vol<var0,0,var2,6,1),colorccff33;

fv:=v;fc:=c;fo:=o;
for i=1 to datacount do begin
  if varD then begin
   for j=i downto 1 do begin
   if varaa[j]<varee then
      varaa:=varaa+fv[j];
   if varaa>=varee then begin
      varzz:=i-j+1;
      break;
   end;
   end;
   for j=i downto LBOUND(var1) do begin
   if varbb[j]<varff then
      varbb:=varbb+var1[j];
   if varbb>=varff then begin
      varxx:=i-j+1;
      break;
   end;
   end;
   for j=i downto LBOUND(var2) do begin
   if varcc[j]<varff then
      varcc:=varcc+var2[j];
   if varcc>=varff then begin
      varyy:=i-j+1;
      break;
   end;
   end;
   if fv>var00 then begin
      aa:=aa[i-1]+varv;
      bb:=bb[i-1]+1;
   end;else begin
      aa:=aa[i-1];
      bb:=bb[i-1];
   end;
   if fv<var00 then begin
      cc:=cc[i-1]+varv;
      dd:=dd[i-1]+1;
   end;else begin
      cc:=cc[i-1];
      dd:=dd[i-1];
   end;
   if fc>fo then begin
      ee:=ee[i-1]+varv;
      ff:=ff[i-1]+1;
   end;else begin
      ee:=ee[i-1];
      ff:=ff[i-1];
   end;
   if fc<fo then begin
      hh:=hh[i-1]+varv;
      ii:=ii[i-1]+1;
   end;else begin
      hh:=hh[i-1];
      ii:=ii[i-1];
   end;
end;
end;
涨％:if(BB=0,0,AA*100/BB),PRECISION2,colorffccff;
跌％:if(DD=0,0,CC*100/DD),PRECISION2,colorcyan;
阳％:if(FF=0,0,EE*100/FF),PRECISION2,color99ffff;
阴％:if(II=0,0,HH*100/II),PRECISION2,colorffff99;
（天）:varZZ,PRECISION2,linethick0,coloreeeeee;
天↑:varXX,PRECISION2,linethick0,colorffcccc;
天↓:varYY,PRECISION2,linethick0,colorccff33;

CODE:[Copy to clipboard]887.问:
   在电脑解盘中:
   EXPLAIN(x1,提示平仓一半),有没有办法让"提示平仓一半"不重复出现啊!
   因为在一段时间x1条件会反复出现.
   count(x1,m)=1;

   答(南客):
   如何使买入信号、卖出信号一一对应
(1)
　　在设计公式时，我们经常遇到这样的问题，如何使买卖信号一一对应？
　　比如下面的代码：
input:n(26,5,300),p(2,0.1,10);
close;
mid :  ma(close,n);
upper: mid + p*std(close,n);
lower: mid - p*std(close,n);

tjb:=cross(close,lower);
tjs:=cross(upper,close);
drawicon(tjb,close,4);
drawicon(tjs,close,5);

可以看出，买入信号连续发出多次后，才出现卖出信号，卖出信号连续发出多次后，
才发出买入信号。
   (2)
如何过滤连续的买入、卖出信号，使买入后只要没有发出卖出信号，就不再发出买入信号；同样，卖出后只要没有出现买入信号，就不再发出卖出信号。即买入、卖出信号一一对应。
　　容易想到的是使用过滤函数filter()，但这个函数是难以实现的，因为未来有多少个连续的买入（或卖出）信号是未知的。
　　另一种方法是，从前一次卖出（或买入）信号开始累加买入（或卖出）信号，如果累加次数等于１，则发出真正的买入（或卖出）信号。

　　但这里还有一个问题，如果首次信号是卖出信号的话，也应该过滤，因为没有买入哪来卖出？应让首次信号是买入信号才合理。方法是，在第1根K线的位置，虚拟一个卖出信号。
　　以下是实现上述想法的常规函数代码：

input:n(26,5,300),p(2,0.1,10);
close;
mid :  ma(close,n);
upper: mid + p*std(close,n);
lower: mid - p*std(close,n);

//以下为常规函数处理代码//
tjb:=cross(close,lower);//初始买入信号，可换成其它任意买入条件
tjs:=cross(upper,close);//初始卖出信号，可换成其它任意卖出条件

{以下代码，使买、卖信号一一对应}
tsb:=barssince(tjb);
tss:=barssince(tjs);
if tjs[datacount]<tjb[datacount] then begin
  a:=setlbound(tjs,1);
  tjs:=tjs or barpos=1;
end;
tjbuy:=count(tjb,barslast(tjs))=1 and tjb;  //买入信号
tjsell:=count(tjs,barslast(tjb))=1 and tjs; //卖出信号

drawicon(tjbuy,low,4);
drawicon(tjsell,high,5);
答(cwy):
如下也可解决
input:n(26,5,300),p(2,0.1,10);
close;
mid:ma(close,n);
upper:mid + p*std(close,n);
lower:mid - p*std(close,n);
tjb:=cross(close,lower);
tjs:=cross(upper,close);
tsb:=barslast(tjb);
tss:=barslast(tjs);
tj1:=tjb and count(tjb,tss+1)<2;
tj2:=tjs and count(tjs,tsb+1)<2;
drawicon(tj1,close,4);
drawicon(tj2,close,5);

允许连续出现２次买入信号或卖出信号
input:n(26,5,300),p(2,0.1,10);
close;
mid:ma(close,n);
upper:mid + p*std(close,n);
lower:mid - p*std(close,n);
tjb:=cross(close,lower);
tjs:=cross(upper,close);
tsb:=barslast(tjb);
tss:=barslast(tjs);
tj1:=tjb and count(tjb,tss+1)<3;
tj2:=tjs and count(tjs,tsb+1)<3;
drawicon(tj1,close,4);
drawicon(tj2,close,5);

答(股市骑兵00):
1.用循环我试着答一下。
input:n(26,5,300),p(2,0.1,10),s(1,1,5);//S为允许连续出现信号调节参数！
close;
mid :=  ma(close,n);
upper: mid + p*std(close,n);
lower: mid - p*std(close,n);

//以下为常规函数处理代码//
tjb:=cross(close,lower);//初始买入信号，可换成其它任意买入条件
tjs:=cross(upper,close);//初始卖出信号，可换成其它任意卖出条件

///////////////////////////////////////////////////////////
m:=0*c;w:=0*c;mm:=0*c;
for i=LBOUND(upper) to datacount do begin
  mm:=mm[i-1]+tjb;
  m:=m[i-1]+tjb;
  w:=w[i-1]+tjs;
  if tjs then m:=0;
  if tjb then w:=0;
  if m<=s and tjb then z:=1;
  if w<=s and tjs and mm>0 then t:=1;//首次要发卖出信号去掉and mm>0
end;
drawicon(z,low,4);
drawicon(t,high,5);

2.稍微改下思路试试。
///////////////////////////////////////////////////////////
m:=0*c;w:=0*c;mm:=0*c;
for i=LBOUND(upper) to datacount do begin
mm:=mm[i-1]+tjb;
m:=m[i-1]+tjb;
w:=w[i-1]+tjs;
if w>w[i-1] then m:=0;
if m>m[i-1] or mm=0 then w:=0;
if m-w>s then m:=m[i-1];
if w-m>s then w:=w[i-1];
end;
drawicon(m>ref(m,1),low,4);
drawicon(w>ref(w,1),high,5);
问:
刚刚发现问题。如果将买入、卖出条件改为以下方式，就无法实现信号的对应了。请问老师在买入条件仍然保持“C>MID”，而不是“CROSS(C,MID)”的情况下如何实现？

MID:MA(C,30);

tjb:=C>MID AND L>MID;//初始买入信号，可换成其它任意买入条件
U1:=L<REF(L,BARSLAST(CROSS(TJB,0.5)));
U2:=L<MID;
tjs:=U1 OR U2;//初始卖出信号，可换成其它任意卖出条件

{以下代码，使买、卖信号一一对应}
tsb:=barssince(tjb);
tss:=barssince(tjs);
if tjs[datacount]<tjb[datacount] then begin
  a:=setlbound(tjs,1);
  tjs:=tjs or barpos=1;
end;
tjbuy:=count(tjb,barslast(tjs))=1 and tjb;  //买入信号
tjsell:=count(tjs,barslast(tjb))=1 and tjs; //卖出信号

drawicon(tjbuy,low,4);
drawicon(tjsell,high,5);
   答(股市骑兵00):
你的买卖条件不对呀！
tjs//初始卖出信号
tjb//初始买入信号
2个条件自相矛盾了，同时买卖信号都会发的，那你听买的呢，还是卖的呢？
你硬要这个条件，下面的你参考
MID:=MA(C,30);

tjb:=C>MID AND L>MID;
U1:=L<REF(L,BARSLAST(CROSS(TJB,0.5)));
U2:=L<MID;
tjs:=U1 OR U2;//初始卖出信号，可换成其它任意卖出条件
tjb:=tjb and not(tjs);//初始买入信号，可换成其它任意买入条件
{以下代码，使买、卖信号一一对应}
tsb:=barssince(tjb);
tss:=barssince(tjs);
if tjs[datacount]<tjb[datacount] then begin
  a:=setlbound(tjs,1);
  tjs:=tjs or barpos=1;
end;
tjbuy:=count(tjb,barslast(tjs))=1 and tjb;  //买入信号
tjsell:=count(tjs,barslast(tjb))=1 and tjs; //卖出信号

drawicon(tjbuy,low,4);
drawicon(tjsell,high,5);
问:
公式中的“U2”又改了一下：
U2:=C>REF(C,BARSLAST(CROSS(TJB,0.5)));
请教怎样才能在“tjsell”条件成立后，当“C>MID AND L>MID”条件满足时即可产生新的“tjbuy”信号？谢谢！
   答(股市骑兵00):
你的买卖条件本身有重叠的问题。肯定有信号损失的，如果以买入信号为基准。
损失卖出信号改为如下表达。

MID:=MA(C,30);

tjb:=C>MID AND L>MID;//初始买入信号，可换成其它任意买入条件
U1:=L<REF(L,BARSLAST(CROSS(TJB,0.5)));
//U2:=L<MID;
U2:=C>REF(C,BARSLAST(CROSS(TJB,0.5)));
tjs:=(U1 OR U2) and not(tjb);//初始卖出信号，可换成其它任意卖出条件
答(cwy):
这个作业不能说是真正的用循环语句来实现,对常规函数使用的考虑还是较多,
如处理第一个卖出信号,实际上我不是做出来而是试出来的,
input:n(26,5,300),p(2,0.1,10);
close;
mid:ma(close,n);
upper:mid + p*std(close,n);
lower:mid - p*std(close,n);
//以下为常规函数处理代码//
tjb:=cross(c,lower);//初始买入信号，可换成其它任意买入条件
tjs:=cross(upper,c);//初始卖出信号，可换成其它任意卖出条件
tss1:=BARSSINCE(tjb);//第一个卖出信号
///////////////////////////////////////////////////////
fb:=0*c;
fs:=0*c;
for i =n to datacount do begin
fb:=fb[i-1]+tjb;
fs:=fs[i-1]+tjs;
if tjs then fb:=0;
if tjb then fs:=0;
if fb=1 and tjb then fb1:=1;
if fs=1 and tjs then fs1:=1;
end;
drawicon(fb1 ,l,4);
drawicon(fs1 and tss1>2 ,h,5);

QUOTE:
888.问:
在100日内，从股价最低点到最高点，标出0。618。0。382的位置上画出线。
相反从最高到最低，也同样标出2条线
   答(股市骑兵00):
hh:hhv(h,100);
ll:llv(l,100);
f1:(hh-ll)*0.618+ll;
f2:(hh-ll)*0.382+ll;

QUOTE:
889.问:
我想只输出指标线，而不输出数值，如何写?
如：ma5:ma9c,5);只输出指标线，而不输出数值
   答(bajatje):
别名: 画分段线
所属类别: 绘图函数  参数数量: 2

分段绘制指标线。
用法:
PARTLINE(COND,PRICE),满足COND条件绘制PRICE连线。
例如:PARTLINE(C>REF(C,1),C),colorred表示收盘大于前收以红色绘制收盘价连线。

PARTLINE(1,ma5);

QUOTE:
890.问:
求今日向前有多少根k线的最高价大于且最低价小于今日收盘价？
   答(股市骑兵00):
最后周期和光标位统计大致这样。

fc:=c;pg:=datacount;//可改为SYSPARAM(1)光标统计
x:=h>fc[pg] and l<fc[pg];
y:=sum(x,0)-x[pg];
y[pg];


QUOTE:
891.问:
只计算今天与前几日连续符合条件的数量，不是累计相加的数量。
   答(股市骑兵00):
n:=5;//天数调节
fc:=c;pg:=SYSPARAM(1);//可改为SYSPARAM(1)光标统计
x:=h>fc[pg] and l<fc[pg];
y:=sum(x,n)-x[pg];
y[pg];

QUOTE:
892.问:
如何取图表内第一根K线到最后一根K线之间的时间差？

要求几天几小时几分钟。
   答(hx817):
rj:=date;fz:=time;
d1:=rj[SYSPARAM(3)];d2:=rj[SYSPARAM(2)];
t1:=fz[SYSPARAM(3)];t2:=fz[SYSPARAM(2)];
fh1:=intpart(t1/10000);fh2:=intpart(t2/10000);
fm1:=intpart((t1-fh1*10000)/100);fm2:=intpart((t2-fh2*10000)/100);

fd:=DATEDIFF(d2,d1);
hh:=fh1-fh2;
mm:=fm1-fm2;

if mm<0 then begin
  hh:=hh-1;
  mm:=mm+60;
end;

if hh<0 then begin
  fd:=fd-1;
  hh:=hh+24;
end;
天:fd;
时:hh;
分:mm;

QUOTE:
893.问:
如何引用05年4月中旬--6月初，这段时间周期内的最低价。

   答(bajatje):
w1:=barslast(date<=m1);
w2:=barslast(date<=m2);
ref(LLv(L,w1),w2);

macd 预计交叉价
d:ema(c,12)LINETHICK;
a:ema(c,26)LINETHICK;
e:=ema(d-a,9);
今日交叉价:(351*ref(e,1)+325*ref(a,1)-297*ref(d,1))/28LINETHICK;
明日交叉价:(351*e+325*a-297*d)/28LINETHICK;

QUOTE:
894.问:
个数学公式，如何写
{[(1+2+3+4+5)*5-2]*2*3*4+20}*2/64
其中(1+2+3+4+5)这里面是最近5天的收盘价格，其它的数字是常数
是不是用datacount引用前5天的价格？
   答(清扬):
((MA(C,5)*5*5-2)*2*3*4+20)*2/64
// MA(C,5)*5  为最近五天收盘价之和
答(hx817):
m1:ma(c,5);
m2:(c+ref(c,1)+ref(c,2)+ref(c,3)+ref(c,4))/5;

QUOTE:
895.问:
帮忙编一个5分钟与60分钟K线同图显示公式.
   答(股市骑兵00):
以前做的公式改了下，5分钟K线使用
if DATATYPE<>2 then exit;
bc:=12;sj:=MOD(BARPOS-1,bc)=0 OR BARPOS=1;
zsj:=sum(sj,0);dzsj:=zsj[DATACOUNT]-zsj;
x:=DATACOUNT-BARPOS+1;zq:=SUMBARS(sj,1);
y:=SUMBARS(sj,x-dzsj);y1:=SUMBARS(sj,x-1-dzsj);
开60:ref(o,y-1),LINETHICK0;
高60:if(ISLASTBAR,hhv(h,zq),ref(hhv(h,bc),y1)),LINETHICK0;
低60:if(ISLASTBAR,llv(l,zq),ref(llv(l,bc),y1)),LINETHICK0;
收60:if(ISLASTBAR,ref(c,y1-1),ref(c,y1)),LINETHICK0;
STICKLINE(收60>=开60,收60,开60,7,1),colorred;
STICKLINE(收60>=开60,收60,高60,0.1,1),colorred;
STICKLINE(收60>=开60,开60,低60,0.1,1),colorred;
STICKLINE(收60<开60,收60,开60,7,0),colorcyan;
STICKLINE(收60<开60,开60,高60,0.1,0),colorcyan;
STICKLINE(收60<开60,收60,低60,0.1,0),colorcyan;
涨幅60:收60/ref(收60,1)*100-100,LINETHICK0;
   答(股市骑兵00)
   要同图
1.建个引用公式名：X5
cc:c;
oo:o;
hh:h;
ll:l;
2.再用下面的公式
if DATATYPE<>2 then exit;
n:=12;pn:=mod(barpos-1,n);
ik:=pn=0 or ISLASTBAR or refx(pn=0,1);
收:"x5.cc#min60",LINETHICK0;
开:"x5.oo#min60",LINETHICK0;
高:"x5.hh#min60",LINETHICK0;
低:"x5.ll#min60",LINETHICK0;
m:=收>=开;w:=收<开;f:=ISLASTBAR*(pn<6);
PARTLINE(pn>0 and m,收),COLORRED;
PARTLINE(pn>0 and m,开),COLORRED;
PARTLINE(pn>0 and w,收),COLORBLUE;
PARTLINE(pn>0 and w,开),COLORBLUE;
STICKLINE(ik and m,开,收,0.1,1),COLORRED;
STICKLINE(ik and w,开,收,0.1,1),COLORBLUE;
STICKLINE((pn=6 or f) and m,收,高,0.1,1),COLORRED;
STICKLINE((pn=6 or f) and m,开,低,0.1,1),COLORRED;
STICKLINE((pn=6 or f) and w,开,高,0.1,1),COLORBLUE;
STICKLINE((pn=6 or f) and w,收,低,0.1,1),COLORBLUE;

QUOTE:
896.问:
求某天（可以设定）到今天的换手率总和。
   答(cwy):
RQ:=IF(DATE=1050104,1,0);//在1050104处换入你的日期
N天的换手率总和:SUM(IF(BARSLAST(RQ)>0,V,0),0)/FINANCE(7);

QUOTE:
897.问:
５日ma、１０日ma、３０日ma相交在一点时，当日股价上穿该点涨停，（包括st），成功率很高
   答(hx817):
st:=if(INBLOCK('ST板块') or INBLOCK('*ST板块'),1.05,1.1);
zt:=ROUND(100*st*ref(c,1))/100<=c;
m1:=ma(c,5);
m2:=ma(c,10);
m3:=ma(c,30);
tj:BETWEEN(m1,o,c) and BETWEEN(m2,o,c) and BETWEEN(m3,o,c) and zt

CODE:[Copy to clipboard]898.问:
我想请你帮做一下,就是我用光标在一个点位拉到另一个点位时,就出现一个长方形,在这个长方形里出现三条横线,它们分别在三分之一,三分之二和二分之一的点位上,最好能显示出数据.

答(股市骑兵00):
INPUT:m(48);//周期调节
x:=3;p:=SYSPARAM(1);
ws:=BARPOS;ws1:=if(ws<m,ws,m);
wsp:=p-ws1+1;wsp1:=ws1-1;
h1:=hhv(h,ws1);l1:=llv(l,ws1);
hp:=h1[p];lp:=l1[p];hlpx:=(hp-lp)/x;
if p=1 then exit;
DRAWSL(ws=wsp[p],hp,0,wsp1[p],3);
DRAWSL(ws=wsp[p],lp,0,wsp1[p],3);
DRAWSL(ws=wsp[p],lp+hlpx,0,wsp1[p],3);
DRAWSL(ws=wsp[p],lp+hlpx*2,0,wsp1[p],3);
STICKLINE(ws=wsp[p],hp,lp,0.5,1);
STICKLINE(ws=p,hp,lp,0.5,1);
DRAWNUMBER(ws=wsp[p],hp,hp,2),SHIFT2;
DRAWNUMBER(ws=wsp[p],lp,lp,2),SHIFT2;
DRAWNUMBER(ws=wsp[p],lp+hlpx,lp+hlpx,2),SHIFT2;
DRAWNUMBER(ws=wsp[p],lp+hlpx*2,lp+hlpx*2,2),SHIFT2;
DRAWSL(ws=wsp[p],lp+(hp-lp)/2,0,wsp1[p],3);

QUOTE:
899.问:
前一天的K线振幅为5%以上，跌幅为—3%以上。今天的振幅孕育在昨天的
振幅之内，同时KDJ值均小于20。
   答(欣儿):
a1:=ref((h/l-1)*100,1)>5 and (ref(c,1)/ref(c,2)-1)*100<-3 and h<ref(h,1)
and l<ref(l,1);
a2:="kdj.k"<20 and "kdj.d"<20 "kdj.j"<20;
a1 and a2;

QUOTE:
900.问:
节气不在交易日内，如何在离它最近的这一天近似表示出来？
比如：　

VAR7:=DRAWTEXT(date=LSOLARTERMDATE(9),0,'*立夏');
VAR8:=DRAWTEXT(date=LSOLARTERMDATE(10),0,'*小满');
VAR9:=DRAWTEXT(date=LSOLARTERMDATE(11),0,'*芒种');

今年内这三个节气都不在交易日内，如何在离它最近的这一天近似表示出来？并与正常能表示的节气区别开来？

   答(bajatje):
VAR7:DRAWTEXT(barslast(date<=LSOLARTERMDATE(9))=1,0,'*立夏');
VAR8:DRAWTEXT(barslast(date<=LSOLARTERMDATE(10))=1,0,'*小满');
VAR9:DRAWTEXT(barslast(date<=LSOLARTERMDATE(11))=1,0,'*芒种');

[ 本帖最后由 AHFYXL1 于 2005-11-29 20:26 编辑 ]

附件: 您目前的身份是游客，无法下载或查看附件。立即注册，即可享受MACD所有免费服务。

来此 -- 学习和交友!

变色卡 提升卡 加粗卡

期货交易系统（内日交易）—蒋敏老师

ahfyxl 微博

关注 ahfyxl 的发言

四级MACD会员

UID 788344
阅读权限 40
注册 2004-4-8

积分 126
帖子 1
精华 7
奖励 97
热心 0
金币 0

20楼

发表于 2005-9-14 11:10 只看该作者

《第二十楼》

目录索引：

QUOTE:
901.问:
三數值大小中間值 <<--- case closed
A, B, D三個數值比大小(不用sort 因為變數少)
A:=MA(C,5);
B:=MA(C,10);
D:=MA(C,20);
bMA:MAX(MAX(A,B),D);//Biggest
SMA:MIN(MIN(A,B),D);//Smallest

請問
中間數 mMA 應該如何表示

   答(清扬):
a+b+d-bma-sma

QUOTE:
902.问:
以昨日收盘或开盘价为基点和今日的收盘价这样形成的角度线的公式，应该怎么编写！
   答(股市骑兵00):
drawsl(barpos=datacount-1,c,refx(c,1)-c,0,0);

QUOTE:
903.问:
1）公式在左收盘于今收盘间在副图中捉只有线没有数值，请问两根K线间的角度计算及
数值显示怎么编写。
2）用公式检测时提示有未来数据，怎样消除。

   答(股市骑兵00):
你说的数值没明白，画线才2天，数值就是这天的收盘价！

DRAWLINE(barpos=datacount-1,c,ISLASTBAR,c,1);
a:=c-ref(c,1);
斜率:a[datacount],LINETHICK0;

QUOTE:
904.问:
畫線求助
例如  LLV20:LLV(L,20);
如圖咱可以得到最後一個低點的起始位置A
當Close>LLV20的時候希望在A點位置的最高價B劃一條水平線

我定位點是由barslast取得
可是如果我用同樣方式畫線就會出現所有符合barslast的位置C,D ...都有一條橫線但是我只要最後的一條水平線B

   答(股市骑兵00):
ll:=llv(l,20);z:=sum(ll<>ref(ll,1),0);
ref(h,BARSLAST(z=z[datacount] and ll<>ref(ll,1)));

QUOTE:
905.问:
想编一个每周一高点是全周高点在整个周期的比例（概率）
   答(bajatje):
可这样
w:=barslast(weekday<ref(weekday,1));
a:=ref(if(weekday=1,h,0),w);
wh:=if(refx(w=0,1),hhv(h,w+1),0);
sv:=sum(w=0,0);
sum(a=wh,0)/sv;

QUOTE:
906.问:
如果以 ref(h,7) 画一条水平线，该怎样写公式？

   答(cwy):
ts:BARSSINCE(BACKSET(islastbar,7))+1;
ref(h,ts);

QUOTE:
907.问:
请问：RSI形成双底的指标应该怎么写！

   答(scl5858):
週線的W底,在日線上就是雙底.選股公式
LC := REF(CLOSE,1);
RSI:=SMA(MAX(CLOSE-LC,0),6,1)/SMA(ABS(CLOSE-LC),6,1)*100;
RSU:=RSI>REF(RSI,1) AND REF(RSI,1)<REF(RSI,2),LINETHICK0;
RSD:=RSI<REF(RSI,1) AND REF(RSI,1)>REF(RSI,2),LINETHICK0;
BRSU:=BARSLAST(RSU),COLORRED,LINETHICK0;
BRSD:=BARSLAST(RSD),COLORGREEN,LINETHICK0;
COUNT(BRSU=0,3)=2 AND RSI>REF(RSI,2) AND REF(RSI,1)>REF(RSI,3);

QUOTE:
908.问:
我直接用条件选股 F10资料搜索2005中报预约披露日的时候发现：选2005
中报预约披露日为2005-8-2的股票，软件会把2005-8-20，2005-8-21，2005-8-22，
2005-8-23，2005-8-24……都选出来，这应该怎么办？能够用公式选吗？

   答(hx817):
tx1:='2005中报预约披露日:';
txd:='2005-8-2';
w1:=f10find(tx1,1);
tx:=f10text(w1+strlen(tx1),0);
tj:STRCMP(tx,txd)=0;

QUOTE:
909.问:
求帮我写想原来胜龙和乾隆中的SSL指标，就是历史成交堆积，叠加主图
例如：10元成交愈多运行时间俞长，横线逾长！也是成本线。

   答(peter109):
手边有个范例供您参考
使用的时候需要有十字光标

//主图叠加
a0:=BARSCOUNT(c);
a1:=SYSPARAM(1);
a2:=SYSPARAM(2);
a3:=SYSPARAM(3);
a4:=SYSPARAM(4);
a5:=SYSPARAM(5);

nn0:=a3-a2;
nn:=a0-a2;
hh1:=(a4-a5)/10;
y0:=a0>=a2;
vv0:=if(y0=1 and a1>=a0,v,0);
c1:=if(BETWEEN(c,a4-0*hh1,a4-1*hh1),vv0,0);
c2:=if(BETWEEN(c,a4-1*hh1,a4-2*hh1),vv0,0);
c3:=if(BETWEEN(c,a4-2*hh1,a4-3*hh1),vv0,0);
c4:=if(BETWEEN(c,a4-3*hh1,a4-4*hh1),vv0,0);
c5:=if(BETWEEN(c,a4-4*hh1,a4-5*hh1),vv0,0);
c6:=if(BETWEEN(c,a4-5*hh1,a4-6*hh1),vv0,0);
c7:=if(BETWEEN(c,a4-6*hh1,a4-7*hh1),vv0,0);
c8:=if(BETWEEN(c,a4-7*hh1,a4-8*hh1),vv0,0);
c9:=if(BETWEEN(c,a4-8*hh1,a4-9*hh1),vv0,0);
c10:=if(BETWEEN(c,a4-9*hh1,a4-10*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));
av0:=max(v1,max(v2,max(v3,max(v4,max(v5,max(v6,max(v7,max(v8,max(v9,v10)))))))));

FILLRGN(v1/av0>=nn/nn0 and nn>=0,a4-0*hh1,a4-1*hh1+0.05),colormagenta;
FILLRGN(v2/av0>=nn/nn0 and nn>=0,a4-1*hh1,a4-2*hh1+0.05),colormagenta;
FILLRGN(v3/av0>=nn/nn0 and nn>=0,a4-2*hh1,a4-3*hh1+0.05),colormagenta;
FILLRGN(v4/av0>=nn/nn0 and nn>=0,a4-3*hh1,a4-4*hh1+0.05),colormagenta;
FILLRGN(v5/av0>=nn/nn0 and nn>=0,a4-4*hh1,a4-5*hh1+0.05),colormagenta;
FILLRGN(v6/av0>=nn/nn0 and nn>=0,a4-5*hh1,a4-6*hh1+0.05),colormagenta;
FILLRGN(v7/av0>=nn/nn0 and nn>=0,a4-6*hh1,a4-7*hh1+0.05),colormagenta;
FILLRGN(v8/av0>=nn/nn0 and nn>=0,a4-7*hh1,a4-8*hh1+0.05),colormagenta;
FILLRGN(v9/av0>=nn/nn0 and nn>=0,a4-8*hh1,a4-9*hh1+0.05),colormagenta;
FILLRGN(v10/av0>=nn/nn0 and nn>=0,a4-9*hh1,a4-10*hh1+0.05),colormagenta;

QUOTE:
910.问:
在一分钟的图形中画昨天的最高最低价
   答(bajatje):
w:=barslast(day<>ref(day,1)):
hh:=hhv(h,w+1);
PARTLINE(w>0,ref(hh,w+1));
LL:=LLv(L,w+1);
PARTLINE(w>0,ref(LL,w+1));


QUOTE:
911.问:
下面语句公式怎写
阳均价:
阴均价:

第一次除权日均价/配股或送股比例:
第一次除权日均价到第二次除权日均价/配股或送股比例:
也就是:第一次除权日均价到第N次除权日均价/配股或送股比例:

   答(cwy):
jj:=AMOUNT/v/100;
tj:=if(SPLITDATA(2)/10,SPLITDATA(2)/10,if(SPLITDATA(1)/10,SPLITDATA(1)/10,0));
tj1:=if(tj,jj/tj,0);
阳均价:if(ISUP,tj1,0)COLORRED;
阴均价:if(ISDOWN,tj1,0)COLORCYAN;

CODE:[Copy to clipboard]912.问:
请求帮写该种K线组合如下图：第一个K线是长K线，有上下影线也可以，
后三到五个K线运行在第一个K线最高价和最底价之内，（还有一个是十字星，
不一定绝对标准）的五彩K线，或选股K线组合！

答(peter109):
cc:=c;
oo:=o;
up[1]:=MAX(cc[1],oo[1]);
dw[1]:=Min(cc[1],oo[1]);
tup:=up[1];
tdw:=dw[1];
for i=2 to datacount do begin
  if cc>tup or cc<tdw or oo>tup or oo<tdw then begin
up:=MAX(cc,oo);
dw:=Min(cc,oo);
tup:=up;
tdw:=dw;
  end;else begin
up:=0;
dw:=0;
  end;
end;
向右包羅K線數:BARSLAST(up<>0);

還可用來選股

順便也提供您懶兄寫的反向的包羅K線數

pc:=if(BARPOS=1,9999999,max(c,o));
t:=sumbars(ref(pc,1)-pc,0.005);
po:=if(barpos=1,0,min(c,o));
i:=sumbars(po-ref(po,1),0.005);
u:=min(t,i)-1;
向左包羅K線數:if(c>o,u,0);
向左包羅K線數2:if(c<o,u,0);

QUOTE:
913.问:
请教飞狐这个时间概念怎么用公式表达：11点30分
   答(peter109):
TIME:=113000;

CODE:[Copy to clipboard]914.问:
请编个公式:季度收盘价,半年收盘价

答(cwy):
j1:=month=1 or month=4 or month=7 or month=10;
bn:=month=1 or month=7 ;
ns:=BARSLAST(DAY<ref(day,1)and bn or barpos=1);
js:=BARSLAST(DAY<ref(day,1)and j1 or barpos=1);
jtj:=BACKSET(js=0,js+2);
ntj:=BACKSET(ns=0,ns+2);

js1:=IF(js>REF(js,1),1,0);
ns1:=IF(ns>REF(ns,1),1,0);
c1:=(jtj=1 AND js>REF(js,1))*C;
nc1:=(ntj=1 AND ns>REF(ns,1))*C;
jss:=js;
jss1:=REF(js,1);
nss:=nS;
nss1:=REF(ns,1);
jX:=0*C;
nX:=0*C;
FOR I=DATACOUNT DOWNTO 2 DO BEGIN
  IF jss[I]>jss1[I] OR jss[I]>0 THEN
  jX[I-1]:=jX[I]+js1[I];
  IF nss[I]>nss1[I] OR nss[I]>0 THEN
  nX[I-1]:=nX[I]+ns1[I];
END;
季度收盘价:REFX(c1,jX);
半年收盘价:REFX(nc1,nX);

CODE:[Copy to clipboard]915.问:
季度收盘价,半年收盘价,能否让指标线随K线收盘价变化,即
总是与最后1根K线的收盘价数值相同?
另:请把季度,半年收盘价分2个公式写,复杂的公式看不明白
答(cwy):
1.季度
j1:=month=1 or month=4 or month=7 or month=10;
js:=BARSLAST(DAY<ref(day,1)and j1 or barpos=1);
jtj:=BACKSET(js=0,js+2);
js1:=IF(js>REF(js,1),1,0);
c1:=(jtj=1 AND js>REF(js,1))*C;
jss:=js;
jss1:=REF(js,1);
jX:=0*C;
FOR I=DATACOUNT DOWNTO 2 DO BEGIN
  IF jss[I]>jss1[I] OR jss[I]>0 THEN
  jX[I-1]:=jX[I]+js1[I];
END;
季度收盘价:if(REFX(c1,jX)>0,REFX(c1,jX),refx((BARSTATUS=2)*c,jx));
2.半年
bn:=month=1 or month=7 ;
ns:=BARSLAST(DAY<ref(day,1)and bn or barpos=1);
ntj:=BACKSET(ns=0,ns+2);
ns1:=IF(ns>REF(ns,1),1,0);
nc1:=(ntj=1 AND ns>REF(ns,1))*C;
nss:=nS;
nss1:=REF(ns,1);
nX:=0*C;
FOR I=DATACOUNT DOWNTO 2 DO BEGIN
IF nss[I]>nss1[I] OR nss[I]>0 THEN
nX[I-1]:=nX[I]+ns1[I];
END;
半年收盘价:if(REFX(nc1,nX)>0,REFX(nc1,nX),refx((BARSTATUS=2)*c,nx));

QUOTE:
916.问:
请教如何在某一周期中同时显示本周期的均线和其上一级周期均线？
   答(股市骑兵00):
引用公式  X2
m1:ma(c,3);

使用公式：
m1:STKINDI(STKLABEL,'x2.m1',0,DATATYPE);
m2:STKINDI(STKLABEL,'x2.m1',0,DATATYPE+1);

QUOTE:
917.问:
想要飞狐特色指标中，鳄鱼线原码！
   答(scl5858):
鳄鱼线原码:
Var1:=(H+L)/2;
上唇:REF(SMA(Var1,5,1),3),COLORGREEN;
牙齿:REF(SMA(Var1,8,1),5),COLORRED;
下颚:REF(SMA(Var1,13,1),8),COLORBLUE;

QUOTE:
918.问:
请朋友帮忙编个连续N天阴线后,收2根阳线的公式,

   答(bajatje):
ref(all(c<o,n),2) and all(c>o,2)

QUOTE:
919.问:
连续N天阴线后,收一根阳线的公式,

   答(清扬):
ref(count(c<o,n)=n,1) and c>o

QUOTE:
920.问:
1:如何修改才能二列顯示
2:那四列顯示呢

MA1:MA(CLOSE,5);
MA2:MA(CLOSE,10);
MA3:MA(CLOSE,15);
MA4:MA(CLOSE,20);

AA:='MA1:'+NUMTOSTR(MA1[SYSPARAM(1)],3)+'MA2:'+NUMTOSTR(MA2[SYSPARAM(1)],3);
BB:='MA3:'+NUMTOSTR(MA3[SYSPARAM(1)],3);

if DISPSTATUS=2 then a:=BARPOS;
if DISPSTATUS=1 then b:=BARPOS;

d:=a-b;
e:=hhv(h,d);

DRAWTEXT(1, e*1.05,AA),COLOR00FFFF,ALIGN2;
DRAWTEXT(1, e*1.035,BB),COLORFFFF00,ALIGN2;

   答(bajatje):
大概这样
MA1:MA(CLOSE,5);
MA2:MA(CLOSE,10);
MA3:MA(CLOSE,15);
MA4:MA(CLOSE,20);
BB:='\n \nMA3:'+NUMTOSTR(MA3[SYSPARAM(1)],3);
AA:='MA1:'+NUMTOSTR(MA1[SYSPARAM(1)],3)+'\nMA2:'+NUMTOSTR(MA2[SYSPARAM(1)],3)+BB;
P:=SYSPARAM(1)-SYSPARAM(2);
e:=hhv(h,p);

DRAWTEXT(ISLASTBAR, e*1.05,AA),COLOR00FFFF,ALIGN2;


QUOTE:
921.问:
每过一根K线就这样在其中间画一个比较明显的线
答(peter109):
這樣可以嗎

X:=barslast(C>ref(C,1) AND date<>ref(date,1));
Y:ref(C-((c-ref(C,1))/2),X),linethick0;
STICKLINE(X=0,Y,Y,10,0),COLORYELLOW;

QUOTE:
922.问:
我要的其实是A和B的一个交集，但A是先发生，B选出的股必须是之前A选出的股之中的。
A:=open<ma(close,250) and ciose>(close,250)
B:=close>=ma(close,250) and close>=ma(close,250)+0.05

想要的源码是：当股价上穿年线（满足A）后，随后在一段时间内又回到年线（满足B），
这时选出股票。

答(hx817):
input:n(10);
A:=open<ma(close,250) and close>ma(close,250);
B:=close>=ma(close,250) and close>=ma(close,250)+0.05;
tj:b and any(a,n);//满足B，之前N周期内必需满足A

QUOTE:
923.问:
请教下面几个函数怎么写（或是用什么语句表达）：
前一周最高价、前一周最低价、前一周收盘价（在日线分析中使用）、
前一日最高价、前一日最低价、前一日收盘价。
答(hx817):
直接引用周线数据的

前一日最高价、前一日最低价、前一日收盘价。
用 ref(high,1)

QUOTE:
924.问:
想编一个公式：计算未来一个波段的目标价，
  n为常量，n1，n2...n5等为n的倍数
上升波段目标价＝本波段最低开盘价 * n
下降波段目标价＝本波段最高开盘价 * n
当该波段走完后，以实际价格计算下一波段的目标价
答(cwy):
下降波段目标价:=PEAK(c,m,1)/n;
上升波段目标价:=TROUGH(c,m,1)*n;
m=5，//改变M值，可调整波段大小

QUOTE:
925.问:
運用SYSPARAM(5)的困惑

A:=SYSPARAM(5)=L; B:=BARSCOUNT(C); G:=SYSPARAM(2)=B;
DRAWTEXT(REF(G,80 ),SYSPARAM(5)*1.02,'買進價:'),colorred;
DRAWTEXT(REF(G,80),SYSPARAM(5)*0.97,'賣出價:'),coloryellow;
DRAWTEXT(REF(G,80),SYSPARAM(5)*0.948,'價差:'),colorwhite;

又如最後KD金叉或死叉畫一條水平線(CA, CB),

DRAWTEXT(SYSPARAM(3)=SUM(1,0),CA*1.0025,'買入:');
DRAWTEXT(SYSPARAM(3)=SUM(1,0),CB*0.9975,'賣出:');

1:SYSPARAM(5)*1.02處顯示--買進價:
..SYSPARAM(5)*0.97處顯示--賣出價:
..SYSPARAM(5)*0.948處顯示--價差:

2:CA*1.0025處顯示--買入:
..CB*0.9975處顯示--賣出:

3:上述兩種顯示方式,皆會隨不同週期改變其位置.
如何修改才能固定

答(cwy):
DRAWTEXT(SYSPARAM(2)=BARPOS,SYSPARAM(5)*1.02,'買進價:'),colorred;
DRAWTEXT(SYSPARAM(2)=BARPOS,SYSPARAM(5)*0.97,'賣出價:'),coloryellow;
DRAWTEXT(SYSPARAM(2)=BARPOS,SYSPARAM(5)*0.948,'價差:'),colorwhite;

DRAWTEXT(SYSPARAM(2)=BARPOS,CA*1.0025,'買入:');
DRAWTEXT(SYSPARAM(2)=BARPOS,CB*0.9975,'賣出:');
问:
1:經不同週期測試,左右固定沒問題,只是上下無法固定啦.
2:原帖也是跟上述一樣.
3:希望在不同週期上下還是固定的.
答(cwy):
显示文字的上下间距问题
s:=(SYSPARAM(4)-SYSPARAM(5))/10;
DRAWTEXT(SYSPARAM(2)=BARPOS,SYSPARAM(4),'買進價:'),colorred;
DRAWTEXT(SYSPARAM(2)=BARPOS,SYSPARAM(4)-s*1,'賣出價:'),coloryellow;
DRAWTEXT(SYSPARAM(2)=BARPOS,SYSPARAM(4)-s*2,'價差:'),colorwhite;

QUOTE:
926.问:
指标金叉所对应的那天k线如何定义？（c或h)

答(yngs):
ref(c,BARSLAST(CROSS(A,B)));

QUOTE:
927.问:
我自编的公式，用于大盘处于弱势时，三十或六十日线向下进，找出逆市强庄股。
一、均价线五、十、三十、六十日线多头排列向上运行。
二、均量线五、十、二十日多头排列向上运行。
三、MACD指标的DIFF向上运行。
四、KDJ指标的J向上运行。
当满足以下条件，发出信号。

a1:=ma(close,5);
a2:=ma(close,10);
a3:=ma(close,21);
a4:=ma(close,60);
t1:=Count(a1>a2 and a2>a3 and a3>a4,1)=1 and isup;
t2:=count(a1>ref(a1,1) and a2>ref(a2,1) and a3>ref(a3,1) and a4>ref(a4,1),1)=1;
b1:=ma(vol,5);
b2:=ma(vol,10);
b3:=ma(vol,20);
t3:=Count(b1>b2 and b2>b3,1)=1;
t4:=count(b1>ref(b1,1) and b2>ref(b2,1) and b3>ref(b3,1),1)=1;
t5:=HHV(close,30)=close;
var1:="macd.diff"(26,12,9);
t6:=count(var1>ref(var1,1),1)=1;
t1 and t2 and t3 and t4 and t5 and t6;

有个问题请帮忙，满足以下条件的公式如何编。我也编过，也通过测试。但不能发出买进信号。
一、均价线五、十、三十、六十日线空头排列向上运行。
二、MACD指标的DIFF向下运行。
三、KDJ指标的J值向下运行。

答(陈继胜):
diff:="macd.diff";
j:="kdj.j";
ma(c,5)<ma(c,10) and ma(c,10)<ma(c,30) and ma(c,30)<ma(c,60) and diff<ref(diff,1) and j<ref(j,1);

QUOTE:
928.问:
求助修改下面公式度数显示在顶上,随光标移动度数在变化的.

j:="kdj.j";
jd:=atan(100*(j/ref(j,1)-1))*57.2956;
z:ZIGA(j,1);
n:=1;
zh:=PEAKA(Z,n,1);
wh:=PEAKBARSA(Z,n,1)+1;
zL:=TROUGHA(Z,n,1);
wL:=TROUGHBARSA(Z,n,1)+1;
x:=atan((zL/zh-1)/Wh*100)*57.3;
s:=atan((zH/zL-1)/WL*100)*57.3;
DRAWNUMBER(wh=1 or (ISLASTBAR and wL<wh),z*1.1,ref(s,1),3)ALIGN2,COLORMAGENTA;
DRAWTEXT(wh=1 or (ISLASTBAR and wL<wh),z*1.1,'上行：    ')ALIGN2,COLORMAGENTA;
DRAWTEXT(wh=1 or (ISLASTBAR and wL<wh),z*1.1,' 度'),COLORMAGENTA;
DRAWNUMBER(wL=1 or (ISLASTBAR and wL>wh),z/1.1,ref(x,1),3)ALIGN2,COLORGREEN;
DRAWTEXT(wL=1 or (ISLASTBAR and wL>wh),z/1.1,'下行：    ')ALIGN2,COLORGREEN;
DRAWTEXT(wL=1 or (ISLASTBAR and wL>wh),z/1.1,' 度'),COLORGREEN;

答(peter109):
幫您修改一個數字部分其他的文字或數字您可依法泡置
將  DRAWNUMBER(wh=1 or (ISLASTBAR and wL<wh),z*1.1,ref(s,1),3)ALIGN2,COLORMAGENTA;
改為
DRAWNUMBER(barpos=sysparam(1) AND wh=1,z*1.1,ref(s,1),3)ALIGN2,COLORMAGENTA;
DRAWNUMBER(ISLASTBAR AND wh>wL,z*1.1,ref(s,1),3)ALIGN2,COLORMAGENTA;
//文字最好不要畫面複雜許多

QUOTE:
929.问:
我想对分时图中横盘一段时间后向上突破的形态编写一个选股公式，使用一分钟周期，源码如下：
hh:=hhv(h,60);//指定箱体顶部，箱体长度为60分钟
ll:=llv(l,60);//箱体底部
zs:=dynainfo(3);//昨日收盘价，可能不能引用动态函数，但不知其它方法如何引用
zf:=(hh-ll)/ll<=0.022;//箱体高度为2。2%
kk:=hh/zs<1.055//箱体顶部不能超过5。5%涨幅（与昨日收盘价相比）
and ll/zs>=0.085 //箱体的底部不能低于1。5%的跌幅
and hh=dynainfo(5);//箱体的顶部价格为现在的最高价
tp:=c>hh ;//价格突破
zf and tp// and kk//选出个股
但是在盘中对符合条件的个股未能选出来，请老师指点！
还有我想知道在一分钟周期中引用日线的数据为什么编译错误，如N：=REF（C#DYA，1），另外如果使用分笔数据，要实现上述选股要求如何编写代码？希望能得各位朋友的指点！

答(bajatje):
zs:=dynainfo(3);//昨日收盘价，可能不能引用动态函数，但不知其它方法如何引用

昨收盘不用动态函数  可分两步实现
1、先建一个名为 sj 的公式 rc:ref(c,1);
2、用这个式子调用  昨收盘:"sj.rc#day";

and hh=dynainfo(5);//箱体的顶部价格为现在的最高价
不宜用动态函数改为 and hh=hhv(h,barslast(hour<ref(hour,1)));//barslast(hour,ref(hour,1))--用于N分钟图  如在分笔中使用改为 0

tp:=c>hh ;//价格突破
改为  tp:=c>ref(hh,1);  或  tp:=c=hh;

在N分钟图中引用昨收盘也可写为  昨收盘:ref(c,barslast(hour<ref(hour,1))+1);

QUOTE:
930.问:
公式意思是这样如：100日内有60根阳线，40根阴线，分别写出100日60根阳线，40根阴线对应的换手率。两者总和应等于100日的总换手率。
答(清扬):
阳换:SUM((C>=O)*V,100)/CAPITAL*100;
阴换:SUM((C<O)*V, 100)/CAPITAL*100;
总换:SUM(V,100)/CAPITAL*100;

QUOTE:
931.问:
求平行线的写法.
取60天最低点或者最高点,作水平线,然后每隔1.5(价格)作平行线,直到屏幕上端.
答(cwy):
a:=BARSTATUS=2;
ll:=llv(l,60);
s:=(ll)*a;
STICKLINE(s,s,s,150,1);
STICKLINE(s,s+1.5,s+1.5,150,1);
STICKLINE(s,s+3,s+3,150,1);

QUOTE:
932.问:
内外盘差在日线上显示且能统计n天内差和,请高手编制公式
答(peter109):
1.公式名稱: (名稱自定)
X:SUM(BUYVOL,0)-SUM(SELLVOL,0);//內外盤差
//建立擴展數據 (N 被引用)
2.新建公式 (名稱自定)
內外盤差:EXTDATA(N),linethick0;//N為擴展數據
M內外盤和:SUM(內外盤差,M),linethick0;//M日

QUOTE:
933.问:
集合竞价的量比大于1 咋写公式
答(yngs):
tj:BARSSINCE(v)+1=1;
zq:=BARSLAST(tj);
集合竞价量比:if(tj,sum(v,0)/DYNAINFO(38)*240,ref(sum(v,0)/DYNAINFO(38)*240,zq));

QUOTE:
934.问:
1：求5日线上穿10日线处的均线值与5日线前一次下穿10日线处的均线值的比；
2：求5日线下穿10日线处的均线值与5日线前一次上穿10日线处的均线值的比；
答(股市骑兵00):
m1:=ma(c,5);m2:=ma(c,10);
tj1:=cross(m1,m2);tj2:=cross(m2,m1);
w:=sumbars(tj1 or tj2,2)-1;
(tj1 or tj2)*m1/ref(m1,w);

QUOTE:
935.问:
1求助，怎样取得特定日期的价格和时间？
例如，之字转向指标zig（x，n），转向成立的时间；
指定日期如20040818，如何取得当日的开收高的四价；

2下面这个，错在那里？？？
zp:=NUMBERSUM(INTPART(c),0);
xp:=NUMBERSUM(ROUND(FRACPART(c)*1000),0);

fi1:=MOD(NUMBERSUM(INTPART(c),0),8);ss:=IF(fi1=0,8,fi1);
fi2:=MOD(xp,8);xx:=IF(fi2=0,8,fi2);
yui:=MOD(zp+xp,6);dd:=IF(yui=0,6,yui);
guaxiang:=ss+xx;

fz:=zig(4,15);
tj1:=fz=high;
tj2:=fz=low;
DRAWYITEXT(tj1,h,guaxiang,1),colorred,ALIGN3;
DRAWYITEXT(tj2,l,88-guaxiang,1),ALIGN3;

答(bajatje):
参考
z:=FLATZIG(4,10);
w:=barslast(z=0 or z=1);
时间:ref(date,w);
收:ref(c,w);
............

QUOTE:
936.问:
能否将每天的第二笔成交手数和换手率用公式写出？
答(bajatje):
vv:=v;
vv[2];
(vv[2])/capital*100;

QUOTE:
937.问:
求助一个K线模式的公式!!!
一根长阳线后,是五至六根K线的整理,整理的幅度最低不能超过阳线的三分之一
长阳的定义是涨幅在7%以上,往下的调整不能超过阳线的三分一,往上多少都行
答(cwy):
ts:=BARSLAST(((c/ref(c,1)-1)*100)>7);
jg:=ref(if(ts=0,h-(h-l)/3,0),ts);
COUNT(c>jg,6)>=6;
答(闲人):
形似老鸭头的话，我这里倒有一个好象是南客老师的公式
老鸭头形态
input:n(10,3,30);
m5:=ma(c,5);
m10:=ma(c,10);
m20:=ma(c,20);
tj:m5>m10 and m10>m20 and BARSLAST(cross(m5,m10))<n;
当然鸭头有大小，看均线怎么设。

QUOTE:
938.问:
求MA(C,5)的仰角和俯角且能够排序的公式.

答(bajatje):
参考
x:=SLOPE(ma(c,5),n);//N=2~6
atan(x*10)*57.3;
其中57.3 弧度化成度
(注:10为放大作用)

QUOTE:
939.问:
编个选股公式:最近50天前、150天内连续3天跌幅大于20% .
答(bajatje):
ref(sum(c/ref(c,3)<0.8,100),50)>0;

QUOTE:
940.问:
求所有K线的收盘价总数是  sum(Close,0);
如果要得到符合某一个条件的K线收盘总和,要如何表示?
例如符合 C>MA(C,60) 的K线收盘总和
答(hx817):
sum(if(c>ma(c,60),c,0),0);

CODE:[Copy to clipboard]941.问:
(1)今日k线在N天位置排序值,即收盘,开盘价在n天的排序值如今天收盘价在10天内收盘价由高至低排序为第2,收盘价排序=2,如何飞弧函数表示;
(2)30日次高点,第3高点的值和位置(距今日的天数)如何飞弧函数表示.
答(peter109):
HH: =H;
A: =MA(C,5);
B: =MA(C,10);
CC: =MA(C,20);
D: =MA(C,30);
要求做下降排序

這是我照做的做法
可是當中有一個值(D) 始終為零
哪位可以幫我看一下並修正嗎

HH: =H;
A: =MA(C,5);
B: =MA(C,10);
CC: =MA(C,20);
D: =MA(C,30);

VARIABLE:SLN[5]=0, SLNPOS[5]=0, SS[5]='';
ss[1]:='HH:'; ss[2]:='A:'; ss[3]:='B:'; ss[4]:='CC:'; ss[5]:='D:';
for n=LBOUND(HH) to ubound(HH) do begin
  SLN[1]:=HH[n]; LBNO:=1;
  if n>=LBOUND(A) then begin
SLN[2]:=A[n]; LBNO:=LBNO+1;
  end;
  else SLN[2]:=0;
  if n>=LBOUND(B) then begin
SLN[3]:=B[n]; LBNO:=LBNO+1;
  end;
  else SLN[3]:=0;
  if n>=LBOUND(CC) then begin
SLN[4]:=CC[n]; LBNO:=LBNO+1;
  end;
  else SLN[4]:=0;
  if n>=LBOUND(D) then begin
SLN[5]:=D[n]; LBNO:=LBNO+1;
  end;
  else SLN[5]:=0;
  for i = 1 to 5 do begin
SLNPOS:=SLN;
  end;
  tmp:=SORT(SLN,1,1,LBNO);
  tmp:=SORTPOS(SLNPOS,1,1,LBNO);
  EXPN1[n]:=SLN[1]; EXPS1[n]:=SLNPOS[1];
  EXPN2[n]:=SLN[2]; EXPS2[n]:=SLNPOS[2];
  EXPN3[n]:=SLN[3]; EXPS3[n]:=SLNPOS[3];
  EXPN4[n]:=SLN[4]; EXPS4[n]:=SLNPOS[4];
  EXPN5[n]:=SLN[5]; EXPS5[n]:=SLNPOS[5];
end;

EXPLAINEX(EXPS1=1,ss[1],EXPN1,2,0),ColorGreen;
EXPLAINEX(EXPS1=2,ss[2],EXPN1,2,0),ColorGreen;
EXPLAINEX(EXPS1=3,ss[3],EXPN1,2,0),ColorGreen;
EXPLAINEX(EXPS1=4,ss[4],EXPN1,2,0),ColorGreen;
EXPLAINEX(EXPS1=5,ss[5],EXPN1,2,0),ColorGreen;

EXPLAINEX(EXPS2=1,ss[1],EXPN2,2,0),ColorGreen;
EXPLAINEX(EXPS2=2,ss[2],EXPN2,2,0),ColorGreen;
EXPLAINEX(EXPS2=3,ss[3],EXPN2,2,0),ColorGreen;
EXPLAINEX(EXPS2=4,ss[4],EXPN2,2,0),ColorGreen;
EXPLAINEX(EXPS2=5,ss[5],EXPN2,2,0),ColorGreen;

EXPLAINEX(EXPS3=1,ss[1],EXPN3,2,0),ColorGreen;
EXPLAINEX(EXPS3=2,ss[2],EXPN3,2,0),ColorGreen;
EXPLAINEX(EXPS3=3,ss[3],EXPN3,2,0),ColorGreen;
EXPLAINEX(EXPS3=4,ss[4],EXPN3,2,0),ColorGreen;
EXPLAINEX(EXPS3=5,ss[5],EXPN3,2,0),ColorGreen;

EXPLAINEX(EXPS4=1,ss[1],EXPN4,2,0),ColorGreen;
EXPLAINEX(EXPS4=2,ss[2],EXPN4,2,0),ColorGreen;
EXPLAINEX(EXPS4=3,ss[3],EXPN4,2,0),ColorGreen;
EXPLAINEX(EXPS4=4,ss[4],EXPN4,2,0),ColorGreen;
EXPLAINEX(EXPS4=5,ss[5],EXPN4,2,0),ColorGreen;

EXPLAINEX(EXPS5=1,ss[1],EXPN5,2,0),ColorGreen;
EXPLAINEX(EXPS5=2,ss[2],EXPN5,2,0),ColorGreen;
EXPLAINEX(EXPS5=3,ss[3],EXPN5,2,0),ColorGreen;
EXPLAINEX(EXPS5=4,ss[4],EXPN5,2,0),ColorGreen;
EXPLAINEX(EXPS5=5,ss[5],EXPN5,2,0),ColorGreen;

QUOTE:
942.问:
假如变量是var，现在要输出这个var
var;
运行第:var;
天
实际要显示出：运行第45天，但是这个天字如何出来？
因为一般不能单独对常量进行输出的。
假如变量var值为30
我想这样输出
var1:=ma(c,3);
var2:=SELFSTRING('天');
var:=var1+var2;
第：var;

输出结果是第30天
我关键是想输出var，“天”这个字符串并连接在一起

   答(cwy):
变通办法,不知可否,例如:
运行第:=BARPOS;
sz:='运行第(天):'+NUMTOSTR(运行第[SYSPARAM(1)],2);
DRAWTEXT(BARPOS=SYSPARAM(2),c,sz)align4;
问:
你的还是数字后面没有文字
   答(股市骑兵00):
变通改下

运行第:=BARPOS;
sz:='MA1:'+NUMTOSTR(运行第[SYSPARAM(1)],2)+'天';
DRAWTEXT(BARPOS=SYSPARAM(2),c,sz)align4
(注: joneslee写了一个更好的办法，上市第:var4,LINETHICK0;年　:PARTLINE(0,0); )

QUOTE:
943.问:
M1:= C>REF(C,1) AND REF(C,1)<REF(C,2); //漲跌=1 今日漲昨日跌
M2:= C<REF(C,1) AND REF(C,1)>REF(C,2); //跌漲=2 今日跌昨日漲
M3:= C>REF(C,1) AND REF(C,1)>REF(C,2); //漲漲=3 今日漲昨日漲
M4:= C<REF(C,1) AND REF(C,1)<REF(C,2); //跌跌=4 今日跌昨日跌

漲跌標記:M1*1+M2*2 +M3*3 +M4*4,linethick0;
drawnumber(1,漲跌標記,漲跌標記,0),align5;
我需要在N周期內出現1 / 2 / 3 / 4 四個數值都有的時候做個標記

   答(bajatje):
M1:= C>REF(C,1) AND REF(C,1)<REF(C,2); //漲跌=1 今日漲昨日跌
M2:= C<REF(C,1) AND REF(C,1)>REF(C,2); //跌漲=2 今日跌昨日漲
M3:= C>REF(C,1) AND REF(C,1)>REF(C,2); //漲漲=3 今日漲昨日漲
M4:= C<REF(C,1) AND REF(C,1)<REF(C,2); //跌跌=4 今日跌昨日跌
a:=any(m1,n) and any(m2,n) and any(m3,n) and any(m4,n);
漲跌標記:M1*1+M2*2 +M3*3 +M4*4,linethick0;
drawnumber(1,漲跌標記,漲跌標記,0),align5;
DRAWICON(a,LOW,4)
问:
或許沒說清楚

要標記的位置點是A區和B區分隔線的地方
C區和B區分隔線
答(bajatje):
DRAWICON(a and 区域划分条件,LOW,4)
答(peter109):
//作業要求
DRAWTEXT(barpos=sysparam(2),1.8,'漲,跌=1');
DRAWTEXT(barpos=sysparam(2),1.6,'跌,漲=2');
DRAWTEXT(barpos=sysparam(2),1.4,'漲,漲=3');
DRAWTEXT(barpos=sysparam(2),1.2,'跌,跌=4');
DRAWTEXT(barpos=sysparam(2),1.1,'平=前一');

INPUT:N(7);
varA:=C>ref(C,1);
varB:=REF(varA,1);
AA:=IF(varA=0 AND varB=1,2,IF(varA=1 AND varB=0,1,IF(varA=1 AND varB=1,3,IF(varA=0 AND varB=0,4,0)))),LINETHICK0;
FH:=IF(C=ref(C,1),ref(AA,1),AA),LINETHICK0;
XX:=COUNT(FH=1,N)>0 AND COUNT(FH=2,N)>0 AND COUNT(FH=3,N)>0 AND COUNT(FH=4,N)=1,linethick;//條件判定 N區間內包含1 2 3 4的數值
XX1:=FILTER(XX,3);
Y:=MOD(count(FH,0),2);
//分天地兩列
drawnumber(Y=0,3,FH,0);//天
drawnumber(Y>0,2,FH,0);//地
//判定結果
DRAWTEXT(XX1 AND FH=1,2.5,'1'),COLORCYAN;
DRAWTEXT(XX1 AND FH=2,2.5,'2'),COLORYELLOW;
DRAWTEXT(XX1 AND FH=3,2.5,'3'),COLORRED;
DRAWTEXT(XX1 AND FH=4,2.5,'4'),COLORGREEN;
1,COLORBLACK;

QUOTE:
944.问:
修改公式:加上条件kd金叉如超过5天不指示的写法?
cci:="cci"(14);
a:=ref(c,1);
rsi:=sma(max(c-a,0),6,1)/sma(abs(c-a),6,1)*100;
a1:=c-ma(c,5)/ma(c,5)*100<1;
a2:=c-ma(c,13)/ma(c,13)*100<-10;
a3:=c-ma(c,34)/ma(c,34)*100<-15;
a4:=rsi<18;
a5:=cci<-120;
a6:=EMA(IF(L<= LLV(l,99),SMA(ABS(L-REF(L,1)),99,1)/SMA(MAX(L-REF(l,1),0),99,1),0),3);
超跌:(a1 and a2 and a3 and a4 and a5 and a6>0 *85),COLORRED,LINETHICK2 ;
k:="kdj.k#day";
d:="kdj.d#day";
j:="kdj.j#day";

金叉1:cross(BARSLAST(cross(超跌,0.5)),BARSLAST(cross(k,d)));

   答(cwy):
cci:="cci"(14);
a:=ref(c,1);
rsi:=sma(max(c-a,0),6,1)/sma(abs(c-a),6,1)*100;
a1:=c-ma(c,5)/ma(c,5)*100<1;
a2:=c-ma(c,13)/ma(c,13)*100<-10;
a3:=c-ma(c,34)/ma(c,34)*100<-15;
a4:=rsi<18;
a5:=cci<-120;
a6:=EMA(IF(L<= LLV(l,99),SMA(ABS(L-REF(L,1)),99,1)/SMA(MAX(L-REF(l,1),0),99,1),0),3);
超跌:(a1 and a2 and a3 and a4 and a5 and a6>0 *85),COLORRED,LINETHICK2 ;
k:="kdj.k#day";
d:="kdj.d#day";
j:="kdj.j#day";
金叉1:cross(BARSLAST(cross(超跌,0.5)),BARSLAST(cross(k,d))) and BARSLAST(cross(超跌,0.5))<6;

QUOTE:
945.问:
如何才能再一条语句里输出:A年B月C日,ABC都是字符变量.
   答(bajatje):
y:=YEAR;
m:=MONTH;
d:=DAY;
p:=SYSPARAM(1);
U:=NUMTOSTR(y[p],0)+'年'+NUMTOSTR(m[p],0)+'月'+NUMTOSTR(d[p],0)+'日';
DRAWTEXT(ISLASTBAR,H,u)ALIGN2;
EXPLAIN(1,u);

QUOTE:
946.问:
100日内上升区域和下跌区域所对应的换手率
1. 100日内上升区域换手率。
2. 100日内下跌区域换手率。
公式意思是这样如：100日内有30天属于上升区域，70天属于下跌区域，分别写出100日
上升区域和下跌区域所对应的换手率。两者总和应等于100日的总换手率

   答(股市骑兵00):
上升:sum(v*ISUP,100)/FINANCE( 7);
下跌:sum(v*ISDOWN,100)/FINANCE( 7);

QUOTE:
947.问:
sum((date>=1050413 and date<=1050606)*v,0)/FINANCE(7);
sum((date>=1050607 and date<=1050818)*v,0)/FINANCE(7);
区域能否用周期代替时间, 以利于调整参数.
   答(股市骑兵00):
时间定位是你要求的呀？

INPUT:n(56),m(32);
sum(v,n)/FINANCE(7);
ref(sum(v,m)/FINANCE(7),n+1);

QUOTE:
948.问:
大智指数转向低点时间
先用之字转向取得大盘指数1a0001产生低点的时间，再以该时间为基准日，取股票的前后n个交易日内的最低价，再求最低价之后的最高价和最后一个交易日与该最低价的比值.
   答(bajatje):
p:="1A0001close";
w:=PEAKBARS(p,10,1);
LL:=LLv(L,if(w>n,2*n,n+w));
wL:=LLvbars(L,if(w>n,2*n,n+w));
hh:=hhv(h,wL);
bh:hh/LL;
bc:c/LL
问:
能不能把低点以前的信号过滤掉?
   答(cwy):
P:="1A0001$CLOSE";
W:=BARSSINCE(BACKSET(ISLASTBAR,PEAKBARS(P,10,2)+1));
WL:=BARSSINCE(BACKSET(ISLASTBAR,LLvbars(L,W)+1))+1;
LL:REF(L,WL-1),LINETHICK0;
HH:=HHV(H,WL),LINETHICK0;
BH:HH/LL;
BC:C/LL

QUOTE:
949.问:
求历史最低点的时间,但是上市首日的点就是历史最低点,分开取很简单,怎样合成一个语句?
历史低点:ref(date+19000000,BARSLAST(历史最低值<ref(历史最低值,1)));
首日:ref(date+19000000,barssince(c));
历史最低时:if(历史低点>0,历史低点,首日);
   答(bajatje):
d:=LLvbars(L,0)=barscount(c)-1;
if(d,ref(date,llvbars(L,0)),0);//不要加19000000，否则日期会出现1~2天的偏差

答(cwy):
参考:
(BACKSET(ISLASTBAR,LLvbars(L,0))=0)*date;//这是首日是历史最低点,取时间

cross(BACKSET(ISLASTBAR,LLvbars(L,0)+1),0.5)*date;//这是非首日是历史最低点,取时间

cross(BACKSET(ISLASTBAR,LLvbars(L,0)),0.5)*ref(date,1);//这是首日与非首日是历史最低点,取时间
(注:南客提示,日期不要想当然地加上19000000，飞狐软件不能表达这么大的整数，
硬要加上这个数字，会导致很简单的加减都出错)

QUOTE:
950.问:
怎样求历史最高点向后五天内的最低点？
   答(bajatje):
wh:=hhvbars(h,0)+1;

本站仅提供存储服务，所有内容均由用户发布，如发现有害或侵权内容，请点击举报。