当前位置:首页 > 财经 > 正文

公式求助1000例(9)

引用: 401.问:
怎样才能把大盘的K线图设为个股的副图,或与个股迭加?最好是设为副图,我用分析
家5.0 网络版。
答(炒着玩):
副图上显示大盘日K线
上证!

开盘:"1a0001$OPEN"LINETHICK0;
收盘:"1a0001$CLOSE"LINETHICK0;
最高:"1a0001$HIGH"LINETHICK0;
最低:"1a0001$LOW"LINETHICK0;
昨收盘:=REF(收盘,1)LINETHICK0;
涨跌:(收盘-REF(收盘,1))/REF(收盘,1)*100,LINETHICK0;
成交金额:"1a0001$AMOUNT"/100000000,LINETHICK0;
ope:="1a0001$open";
clos:="1a0001$close";
hig:="1a0001$high";
l="1a0001$low";
STICKLINE(ope>=clos ,clos ,ope,7,0 ),COLORGREEN;
STICKLINE(clos>ope,clos,ope,7,1),COLORRED;
STICKLINE(clos>ope,ope,lo,0.5,0),COLORRED;
STICKLINE(clos>ope,clos,HIG,0.5 ,0 ),COLORRED;
STICKLINE(ope>=clos,clos,lo,0.5 ,0 ),COLORGREEN;
STICKLINE(ope>=clos,ope,HIG,0.5 ,0 ),COLORGREEN;
STICKLINE(clos=ope AND Clos>REF(Clos,1),clos,ope,7 ,0 ),COLORRED;
STICKLINE(close=ope AND Clos>REF(Clos,1),clos,HIG,0.5 ,0 ),COLORRED;
STICKLINE(close=ope AND Clos>REF(Clos,1),ope,lo,0.5,0 ),COLORRED;
MA5:MA(Close,5),COLORWHITE;
MA10:MA(Close,10),COLORYELLOW;
MA20:MA(Close,20);
MA60:ma(close,60),COLORGREEN;


{大盘指数副图,源码}
STICKLINE(INDEXC>=INDEXO,INDEXC,INDEXO,8,1),COLORRED;
STICKLINE(INDEXC>=INDEXO,INDEXO,INDEXL,0.1,0),COLORRED;
STICKLINE(INDEXC>=INDEXO,INDEXC,INDEXH,0.1,0),COLORRED;
STICKLINE(INDEXC<=INDEXO,INDEXC,INDEXO,8,0),COLORCYAN;
STICKLINE(INDEXC<=INDEXO,INDEXH,INDEXO,0.1,0),COLORCYAN;
STICKLINE(INDEXC<=INDEXO,INDEXC,INDEXL,0.1,0),COLORCYAN;

二者都是fxj和fh通用!但前者含均线!


引用: 402.问:
求助月kdj指标公式!
答(灵如云):
yk:"kdj.k#month";
yd:"kdj.d#month";
yj:"kdj,j#month";


引用: 403.问:
个选股指标:当日股价离X日均线还有X%相交。
答(灵如云):
cross(c*(1+X/100),ma(c,X));


引用: 404.问:
庄筹线:EMA(WINNER(C)*70,5) colorred linethick2;
散筹线:EMA((WINNER(C*1.1)-WINNER(C*0.91))*80,5) colorgreen linethick2;
以上为源码,下边是我想在指标上加一个抄底指标并绘制一条浅蓝色柱线,并过滤
重复信 号,我比葫芦画瓢也没有搞出来
抄底:EMA(WINNER(C)*70,5)<5AND(EMA((WINNER(C*1.1)-WINNER(C*0.91))*80,5))<5,
答(元兴):
看看这样是否合你意?

庄筹线:EMA(WINNER(C)*70,5) colorred linethick2;
散筹线:EMA((WINNER(C*1.1)-WINNER(C*0.91))*80,5) colorgreen linethick2;
5*(EMA(WINNER(C)*70,5)<5),colorcyan;
10*(EMA((WINNER(C*1.1)-WINNER(C*0.91))*80,5)<5),colorwhite;
抄底:(EMA(WINNER(C)*70,5)<5 AND (EMA((WINNER(C*1.1)-WINNER(C*0.91))*80,5))<5)
*40,linethick2,colorff9900;
stickline(抄底>0,抄底,0,3,0),coloryellow;
答(股影):
有两种方法:1,周期过滤(加上A1); 2,只过滤连续重复信号(加上A2),
然后将 抄底一: STICKLINE (chao,0,18,7,0),COLORFF9933;中的 chao 换成A1 或A2,
两种方法可任选其一。
海底活鱼2.....采用了A1, 海底活鱼3.....采用了A2.......

{正版庄见愁+正版海底活鱼}
庄筹线:EMA(WINNER(C)*70,5), colorred, linethick2;
散筹线:EMA((WINNER(C*1.1)-WINNER(C*0.91))*80,5), colorgreen, linethick2;
KS13:=(C-SMA(C,13,1))/SMA(C,13,1)*(-100);
AAA:=REF(KS13,1)>13 AND REF(KS13,1)/KS13>1.23 AND C/REF(C,1)>1.03;
海底活鱼:IF(AAA AND REF(C,1) FILLRGN(庄筹线>散筹线,庄筹线,散筹线) ,COLORRED;
chao:=(庄筹线<5 AND散筹线<5);
A1:=FILTER(chao,5);{周期5可自定}
A2:=chao AND NOT(chao=REF(chao,1));
抄底一: STICKLINE (chao,0,18,7,0),COLORFF9933;


引用: 405.问:
编写一个选股公式;
指标线N上穿30 ,并且指标线N已经在20以下运行20天以上.
答(君俊):
cross(n,30) and count(n<20,21)>=20;


引用: 406.问:
请问有一个dzh指标M,它出现信号A,我想用它选股.凡4日内出现信号的股票都在被选之
列.请 问如何写
答(骑兵00):
SUM(A,4)>1;


引用: 407.问:
怎么解决5.023版的公式引入和自编公式的保存问题。
答(陈琛):
保存:
1)不怕麻烦将源码用文本文档保存;
2)输出公式保存;
3)把分析家安装的文件夹打开复制装有公式的文件(具体那个我忘记了);

引入:
1)点击分析家屏幕上的“公式”~点击“公式引入”~点击“公式路径”找盘里公式文件
夹~按自己的想法点击操作;
2)复制好公式源码~点击分析家屏幕上的“公式”~点击“公式管理”~根据你的公式
点 击变色公式类形~点击“新建”粘贴源码~写上公式名字和设置参数~点击屏幕
右上 的小“错号”。
3)在没打开分析家前复制你原来复制下来的“公式文件”到分析家文件夹放入粘贴替
换“公式文件”。


引用: 408.问:
公式描述: 8日内每一次出现下跌行情时第一根阴K线的成交量都小于前一根阳K线成
交量的2/3,(注:在分析家4.09版本上使用)
答(君俊):
count(ref(c,1)>ref(o,1) and c (c,1),8);


引用: 409.问:
能指示20,30,60三线粘合的指标,大智慧的
答(备荒):
也许是你要的
MA1:=MA(CLOSE,20);
MA2:=MA(CLOSE,30);
MA3:=MA(CLOSE,60);
A:=MAX(MA3,MAX(MA2,MA1));
B:=MIN(MA3,MIN(MA2,MA1));
CC: ((A-B)/B)<0.1 and MA1>MA2 and MA2>MA3 and c>ref(c,1);

(A-B)/B)<0.1这句中的0.1表示粘合度在百分之十,可根据需要调整。


引用: 410.问:
欲求N 日内 M 个 涨停板中 第一个涨停板的 当日的 开盘价?
答(君俊):
{n 10,0,300}
t:=c/ref(c,1)>=1.099 or (c/ref(c,1)>=1.049 and (STRNCMP(STKNAME, 'ST', 2)=0 or
STRNCMP(STKNAME, '*ST', 3)=0));
t0:=count(t,n)=1 and t;
t1:=count(t,n)>0;
t2:=BARSLAST(t0)*t1;
ref(c,t2)*t1; 引用: 411.问:
count(ref(c,1)>ref(o,1) and c (c,1),8);
我想把‘8日内每一次’改成‘最近的两次’
这次的公式描述:最近的两次下跌行情第一根阴K线的成交量都小于前一根阳K线成交
量的2/3,在分析家版本上使用
答(君俊):
以最后的两次
bys:count(ref(c,1)>ref(o,1) and c (c,1),8);
ys:(ref(c,1)>ref(o,1) and cxg:count(ref(c,1)>ref(o,1) and c=2;//最近8天内出
现两次或两次以上下跌缩量,你可以把8改成n,自已调整时间跨度
问:
如果设定时间跨度则不好用,有时在8天或n天内后会出现很多次下跌,有时就一
次。有时 出现前两次下跌缩量,但最近的这个下跌却没缩量,我试过多次,认为不
理想。而我想要 找的就是最近这两次下跌,也是最后的两次下跌,不管时间多长。
所以,能不能把这个8或 n天时间跨度去掉。
答(君俊):
t:=ref(c,1)>ref(o,1) and cs:=BARSLAST(t=1);
n:=s+ref(s,s+1)+3;
xg:count(ref(c,1)>ref(o,1) and cref(o,1) and
c 应当是这样了吧?
问:
公式好用,只是在通过几天的试验后发现任何时候符合这个公式要求条件的个股都
极少, 感觉不理想。想请把“最后两次下跌改为最后一次下跌”这次的公式描述:最后
的1次下跌行情第一根阴K线的成交量都小于前一根阳K线成交量的2/3
答(君俊):
t:=ref(c,1)>ref(o,1) and cs:=BARSLAST(t=1);
n:=s+2;
xg:count(ref(c,1)>ref(o,1) and cref(o,1) and
c 问:
上面这个公式测试时能通过我认为可以用,但真正选股时以昨收盘为准才选出2只
ST股来 ,实际上以昨天为准有130多只股票符合条件。用最初编的‘最近的两次下跌
行情第一根 阴K线的成交量都小于前一根阳K线成交量的2/3公式就可选出这130多只股票来。因此证明这个公式可能不正确
答(君俊):
t:ref(c,1)>ref(o,1) and c选近两天的直接用这句就可以了.
问:
当走势下跌时就能明显缩量则证明抛盘少,筹码锁定程度高。也即常说的强势调
整,即当 走势上开始出现下跌缩量则说明走势可能走出强势调整行情。所以我的用意
是想找出最后 一个下跌时最初就能缩量的形态。
公式描述就是:最后一个下跌第一根阴K线的成交量小于前一根阳K线成交量的2/3 。
答(君俊):
tt:=ref(c,1)>ref(o,1) and css:=BARSLAST(tt);
nn:BACKSET(BARSTATUS=2,ss+1)+tt;


CODE: 412.问:
公式描述:最近的两次下跌中,后面下跌走势的第一根阴K线成交量小于前面下跌走
势的第 一根阴K线成交量
答(水兰儿):
cc:(c hac[1]:=0;
att1:=hac[1];
att2:=hac[1];
attv1i:=hac[1];
attv2i:=hac[1];
fv:=v*1;
for i=datacount-1 downto datacount-200 do
begin
ifcc[i]=0 and cc[i+1]=1 then att1:=att1+1;
ifcc[i]=0 and cc[i+1]=1 and att1=1 then attv1i:=fv[i+1];
ifcc[i]=0 and cc[i+1]=1 and att1=2 then attv2i:=fv[i+1];
end;
attv1i,linethick0;
attv2i,linethick0;
attv1i < attv2i;


CODE: 413.问:
请帮下面改成阳光海融或飞狐5.0版本以下的 (我把它往我的“飞狐海融阳光版里导时
老是 提示:行7:未定义的标示符) 。最好是改成飞狐与大智慧通用的
Var1:=EMA((CLOSE+LOW+OPEN+HIGH)/4,3);
STICKLINE(Var1>=REF(Var1,1) AND DATE<=9040331,OPEN,CLOSE,7,0);
STICKLINE(Var1>=REF(Var1,1) AND CLOSE<=OPEN AND DATE<=9040331,OPEN,CLOSE,7,0);
STICKLINE(Var1<=REF(Var1,1) AND CLOSE>OPEN AND DATE<=9040331,OPEN,CLOSE,7,1);
STICKLINE(Var1<=REF(Var1,1) AND CLOSE<=OPEN AND DATE<=9040331,OPEN,CLOSE,7,0);
B1: IF(DATE<=9040331,FORCAST(Var1,5),0);
趋势线: IF(DATE<=9040331,FORCAST(Var1,N),0) linethick2;
B: IF(DATE<=9040331,FORCAST((CLOSE+LOW+OPEN+HIGH)/4,3),0);
辅助牛线: IF(DATE<=9040331,FORCAST((CLOSE+LOW+OPEN+HIGH)/4,150),0) COLORRED
LINETHICK3;
牛牛线: EMA((CLOSE+LOW+OPEN+HIGH)/4,120) colorcyan,linethick4;
答(股影):
公式没问题! 只是行7的参数“ N”不知道罢了,你把 N 参数填上就好了
即:
或者直接把 N 改为 10 (我假设的)
原句:
趋势线:IF(DATE<=9040331,FORCAST(Var1,N),0) linethick2;
改后的句:
趋势线:IF(DATE<=9040331,FORCAST(Var1,10),0) linethick2;
答(水兰儿):
DATE<=9040331全部改为1


引用: 414.问:
请编一个大智慧的---发现盘中突然大单3百手或者5百手将股价下砸(或者拉高)
3%左 右的公式。一般拉升在10.30分过后,下砸在2.30后
答(君俊):
{Q大单拉砸}通用,在1分钟周期下使用
大单拉砸:(v>300 or v>500) and abs((c/ref(c,1)-1))>0.03;
选股:count(大单拉砸,240)>=1;


引用: 415.问:
编个公式(最好是大智慧公式),公式条件如下:
1、两个低点价差为0.32元以内;
2、两低点时间跨度应大于10天,小于32天;
答(君俊):
{Q低点时价范围}
d1:=TROUGH(2,8,2)-TROUGH(2,8,1)>0.32;//大于0.32
sc:=between(TROUGHBARS(2,8,2)-TROUGHBARS(2,8,1),10,32);//时间介于10~32之间
d1 and sc;
(阿耀注:用于大智必须把{//大于0.32,}{//时间介于10~32之间}两句加{.....}括去


引用: 416.问:
求助各位:统计板块个股个数?
答(自然我心):
飞狐软件可用这个公式
bk:='A股板块'; //bk赋值为字符串'A股板块'
stksum:STKCOUNT(bk); //板块所包含证券数量


引用: 417.问:
我瞎忙了半天也编写不来,请公式高手帮忙,(分析家)
(1)当前股价上穿30周均线,5周均线金叉(或者已经金叉)10周均线.
(2)股价在30周均线上方,5周均线金叉(或者已经金叉)10周均线,
答(李凤翔):
用日线取代WEEK函数:

1):cross(c,ma(c,150) and count(cross(ma(c,25),ma(c,50)),p)>=1;
2):c>ma(c,150) and count(cross(ma(c,25),ma(c,50),p)>=1 ;
{p:20,300,1}
(股影评:只有对公式的应用和编制已达一定深度的人才会那样应用的,跨周期引用
周MA数 据的方法他不是不会,而是早已跨过了这一步.......他的MA25...50...150在效果
上是完全等同周MA5,MA10和MA30的,同时又避免了未来数据的5天不确定性,应该
说是很巧妙的........)


引用: 418.问:
请高手把这公式改为分析家的。
计算:=REF(CLOSE,1)*0.865;
再计算:=REF(CLOSE,13)*0.772;
流通A:=100*VOL/CAPITAL;
第二天买:IF((CLOSE-MIN(计算,再计算))/CLOSE<0.1 AND SUM(流通A,5)/5<1.8,10,
0),colorgreen;
STICKLINE(第二天买,0,30,8,0),COLOR0000AA;
答(飞扬的tw):
把 第三句和第四句中“流通A”中的 “A”字母删除,其它不变就行了
计算:=REF(CLOSE,1)*0.865;
再计算:=REF(CLOSE,13)*0.772;
流通:=100*VOL/CAPITAL;
第二天买:IF((CLOSE-MIN(计算,再计算))/CLOSE<0.1 AND SUM(流通,5)/5<1.8,10,
0),colorgreen;
STICKLINE(第二天买,0,30,8,0),COLOR0000AA;


引用: 419.问:
原来编的的公式;连续下跌2日以上后今日反弹上涨,
c>o and ref(c,1) 这个公式的缺点是:有时股价在上涨但收出的是阴K线这时也被视为下跌而选中,这
不正 确。请帮忙改为‘只有后一天的股价低于前一天的股价才能视为真正下跌而选中’
答(君俊):
c>o and ref(c,1)

引用: 420.问:
求编MACD的 DIFF(12),DEA(26), NACD(27)在零轴上2次金叉.:)
答(君俊):
count(cross(diff,dea) and diff>0,BARSLAST(cross(diff,0)))=2 and cross(diff,dea)
and diff>0; 引用: 421.问:
原来编的公式;
ref(all(cref(c,1);
分析家使用
缺点;有时股价下跌了收出阳K线的也被选出来,这样不对。应该是‘股价只要是下跌收
出的 就必须是阴K线’这样选出的才正确
答(唐仁政):
原公式ref(all(c而c>ref(c,1)确要今天收阳。若只要all(c

引用: 422.问:
帮我把它改为条件选股公式谢谢。
条件是“低点”

var1:=LLV(LOW,21);
var2:=HHV(HIGH,21);
快一: EMA((CLOSE-var1)/(var2-var1)*100,5),colorcyan;
快:=EMA((CLOSE-var1)/(var2-var1)*50,13);
D:= EMA(0.667*REF(快一,1)+0.333*快一,2);
var3:=LLV(LOW,55);
var4:=HHV(HIGH,34);
var5:=EMA((CLOSE-var3)/(var4-var3)*100,3);
var6:=(快+var5)/2;
var7:=EMA(0.667*REF(var5,1)+0.333*快一,2);
var8:=EMA(var6,5);
慢:=EMA(0.667*REF(var8,1)+0.333*var8,2);
快二:ma(快一,5);
慢一:慢, linethick1,colormagenta;
慢二:快, linethick2, colorred ;
DRAWICON(CROSS(快一 ,快 ) ,20 ,1 );
DRAWTEXT(CROSS(快一 ,慢) and 慢 <30,ref(快一,1) , '低点' ),colorwhite;
答(醉卧红尘.):
最后一句改成R:CROSS(快一 ,慢) and 慢 <30;
其它语句冒号后没=的加=就OK拉


引用: 423.问:
分析家公式全没了怎么办,我也备份了self文件呀
答(我是小李):
1把备份放入USERDATA文件中
2把self的后缀改为fnc然后引入
两种方法试试


引用: 424.问:
求老师帮助设置参数{p1~p6}并改成分析家公式
飞狐
MA1:MA(CLOSE,P1);
MA2:MA(CLOSE,P2);
MA3:MA(CLOSE,P3);
MA4:MA(CLOSE,P4);
MA5:MA(CLOSE,P5);
MA6:MA(CLOSE,P6);
var1:=(OPEN+LOW+HIGH+CLOSE)/4;
JJ:=(CLOSE+HIGH+LOW)/3;
A:=EMA(JJ,10);
B:=REF(A,1);
持多:STICKLINE(A>B,A,B,5,0),COLORyellow;
持空:STICKLINE(A Var3:=(CLOSE-LLV(LOW,26))/(HHV(HIGH,26)-LLV(LOW,26))*100;
Var8:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;
K:=SMA(Var8,3,1);
D:=SMA(K,3,1);
Var9:=3*K-2*D;
VarA:=LLV(LOW,36);
VarB:=HHV(HIGH,30);
VarC:=EMA((CLOSE-VarA)/(VarB-VarA)*4,4)*25;
VarD:=87.5;
VarE:=(VarC-LLV(VarC,4))/(HHV(VarC,4)-LLV(VarC,4))*4*25;
短买:=IF(CROSS(varc,10) AND varc>10,50,0);
VarF:=SMA(Var3,20,1);
Var10:=SMA(VarF,15,1);
Var11:=(3*VarF+2*Var10)/4;
Var12:=REF(Var11,1);
Var13:=SMA(MAX(Var11-Var12,0),2,1)/SMA(ABS(Var11-Var12),2,1)*100;
Var14:=MA(Var13,10);
Var15:=IF(CROSS(Var14,90),25,0);
Var20:=EMA(CLOSE,12)-EMA(CLOSE,26);
Var21:=(CLOSE*2+HIGH+LOW)/4;
Var22:=EMA(Var21,12)-EMA(Var21,26);
Var23:=EMA(Var22,2);
Var24:=2*(Var22-Var23)*5.8;
Var25:=EMA(100*(CLOSE-LLV(LOW,34))/(HHV(HIGH,34)-LLV(LOW,34)),3);
Var26:=66.6;

EXPLAIN(VarC<10,'该股处于底背离状态,应及时买入。');
EXPLAIN(VarC>90,'该股处于顶背离状态,应及时卖出。');
EXPLAIN(CROSS(Var9,8),'低位反弹,建议买入。');
EXPLAIN(CROSS(VarE,87.5) AND varc<40,'出现买点,建议买入。');
EXPLAIN(CROSS(VarD,varc),'见好就跑吧。');
EXPLAIN(CROSS(varc,VarE) AND varc>87,'短期到顶,建议卖出。');
EXPLAIN(CROSS(varc,10) AND varc>10,'建议短线买入。');
EXPLAIN(CROSS(Var14,90),'该股处于强势整理状态。');
EXPLAIN(CROSS(Var20,0) AND Var20>0,'该股处于强势状态。');
EXPLAIN(CROSS(0,Var20) AND Var20<0,'该股处于弱势状态。');
EXPLAIN(CROSS(Var24,0.47),'建议加仓。');
EXPLAIN(CROSS(varc,VarD) AND VarE=100,'该股短期目标位已到,注意回调。');
EXPLAIN(CROSS(Var25,63) AND CROSS(Var9,D) OR CROSS(Var25,76) AND CROSS(Var9,D)
OR CROSS(Var25,80) AND CROSS(Var9,D) OR CROSS(Var25,85) AND CROSS(Var9,D),'该
股进入反弹状态。');
A1:=BARSLAST(ref(cross("macd.diff","macd.dea"),1));
B1:=ref(c,A1+1)>c and ref("macd.diff",A1+1)<"macd.diff" and cross
("macd.diff","macd.dea");
DRAWTEXT(FILTER(B1>0,5),l-0.38,'MACD底背'),COLORGREEN;
A2:=BARSLAST(ref(cross("kdj.k","kdj.d"),1));
B2:=ref(c,A2+1)>c and ref("kdj.k",A2+1)<"kdj.k" and cross("kdj.k","kdj.d");

DRAWTEXT(FILTER(B2>0,5),l-0.39,'KDJ底背'),COLORYELLOW;
A3:=BARSLAST(ref(cross("RSI.RSI1","RSI.RSI2"),1));
B3:=ref(c,A3+1)>c and ref("RSI.RSI1",A3+1)<"RSI.RSI1" and cross
("RSI.RSI1","RSI.RSI2");
DRAWTEXT(FILTER(B3>0,5),l,'RSI底背'),COLORCYAN;
C1:=BARSLAST(ref(cross("macd.dea","macd.diff"),1));
D1:=ref(c,C1+1)"macd.diff" and cross
("macd.dea","macd.diff");
DRAWTEXT(FILTER(D1>0,5),h+0.08,'MACD顶背'),COLORwhite;
C2:=BARSLAST(ref(cross("kdj.d","kdj.k"),1));
D2:=ref(c,C2+1)"kdj.k" and cross("kdj.d","kdj.k");
DRAWTEXT(FILTER(D2>0,5),h+0.32,'KDJ顶背'),COLORwhite;
C3:=BARSLAST(ref(cross("RSI.RSI2","RSI.RSI1"),1));
D3:=ref(c,C3+1)"RSI.RSI1" and cross
("RSI.RSI2","RSI.RSI1");
DRAWTEXT(FILTER(D3>0,5),h+0.1,'RSI顶背'),COLORMAGENTA;
答(无名山人):
分析家
MA1:MA(CLOSE,5);
MA2:MA(CLOSE,20);
MA3:MA(CLOSE,30);
MA4:MA(CLOSE,60);
MA5:MA(CLOSE,120);
MA6:MA(CLOSE,240);
var1:=(OPEN+LOW+HIGH+CLOSE)/4;
JJ:=(CLOSE+HIGH+LOW)/3;
A:=EMA(JJ,10);
B:=REF(A,1);
持多:STICKLINE(A>B,A,B,5,0),COLORyellow;
持空:STICKLINE(A Var3:=(CLOSE-LLV(LOW,26))/(HHV(HIGH,26)-LLV(LOW,26))*100;
Var8:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;
K:=SMA(Var8,3,1);
D:=SMA(K,3,1);
Var9:=3*K-2*D;
VarA:=LLV(LOW,36);
VarB:=HHV(HIGH,30);
VarC:=EMA((CLOSE-VarA)/(VarB-VarA)*4,4)*25;
VarD:=87.5;
VarE:=(VarC-LLV(VarC,4))/(HHV(VarC,4)-LLV(VarC,4))*4*25;
短买:=IF(CROSS(varc,10) AND varc>10,50,0);
VarF:=SMA(Var3,20,1);
Var10:=SMA(VarF,15,1);
Var11:=(3*VarF+2*Var10)/4;
Var12:=REF(Var11,1);
Var13:=SMA(MAX(Var11-Var12,0),2,1)/SMA(ABS(Var11-Var12),2,1)*100;
Var14:=MA(Var13,10);
Var15:=IF(CROSS(Var14,90),25,0);
Var20:=EMA(CLOSE,12)-EMA(CLOSE,26);
Var21:=(CLOSE*2+HIGH+LOW)/4;
Var22:=EMA(Var21,12)-EMA(Var21,26);
Var23:=EMA(Var22,2);
Var24:=2*(Var22-Var23)*5.8;
Var25:=EMA(100*(CLOSE-LLV(LOW,34))/(HHV(HIGH,34)-LLV(LOW,34)),3);
Var26:=66.6;

TIPTEXT(VarC<10,0,'该股处于底背离状态,应及时买入。');
TIPTEXT(VarC>90,0,'该股处于顶背离状态,应及时卖出。');
TIPTEXT(CROSS(Var9,8),0,'低位反弹,建议买入。');
TIPTEXT(CROSS(VarE,87.5) AND varc<40,0,'出现买点,建议买入。');
TIPTEXT(CROSS(VarD,varc),0,'见好就跑吧。');
TIPTEXT(CROSS(varc,VarE) AND varc>87,0,'短期到顶,建议卖出。');
TIPTEXT(CROSS(varc,10) AND varc>10,0,'建议短线买入。');
TIPTEXT(CROSS(Var14,90),0,'该股处于强势整理状态。');
TIPTEXT(CROSS(Var20,0) AND Var20>0,0,'该股处于强势状态。');
TIPTEXT(CROSS(0,Var20) AND Var20<0,0,'该股处于弱势状态。');
TIPTEXT(CROSS(Var24,0.47),0,'建议加仓。');
TIPTEXT(CROSS(varc,VarD) AND VarE=100,0,'该股短期目标位已到,注意回调。');
TIPTEXT(CROSS(Var25,63) AND CROSS(Var9,D) OR CROSS(Var25,76) AND CROSS(Var9,D)
OR CROSS(Var25,80) AND CROSS(Var9,D) OR CROSS(Var25,85) AND CROSS
(Var9,D),0,'该股进入反弹状态。');
A1:=BARSLAST(ref(cross("macd.diff","macd.dea"),1));
B1:=ref(c,A1+1)>c and ref("macd.diff",A1+1)<"macd.diff" and cross
("macd.diff","macd.dea");
DRAWTEXT(FILTER(B1>0,5),l-0.38,'MACD底背'),COLORGREEN;
A2:=BARSLAST(ref(cross("kdj.k","kdj.d"),1));
B2:=ref(c,A2+1)>c and ref("kdj.k",A2+1)<"kdj.k" and cross("kdj.k","kdj.d");
DRAWTEXT(FILTER(B2>0,5),l-0.39,'KDJ底背'),COLORYELLOW;
A3:=BARSLAST(ref(cross("RSI.RSI1","RSI.RSI2"),1));
B3:=ref(c,A3+1)>c and ref("RSI.RSI1",A3+1)<"RSI.RSI1" and cross
("RSI.RSI1","RSI.RSI2");
DRAWTEXT(FILTER(B3>0,5),l,'RSI底背'),COLORCYAN;
C1:=BARSLAST(ref(cross("macd.dea","macd.diff"),1));
D1:=ref(c,C1+1)"macd.diff" and cross
("macd.dea","macd.diff");
DRAWTEXT(FILTER(D1>0,5),h+0.08,'MACD顶背'),COLORwhite;
C2:=BARSLAST(ref(cross("kdj.d","kdj.k"),1));
D2:=ref(c,C2+1)"kdj.k" and cross("kdj.d","kdj.k");
DRAWTEXT(FILTER(D2>0,5),h+0.32,'KDJ顶背'),COLORwhite;
C3:=BARSLAST(ref(cross("RSI.RSI2","RSI.RSI1"),1));
D3:=ref(c,C3+1)"RSI.RSI1" and cross
("RSI.RSI2","RSI.RSI1");
DRAWTEXT(FILTER(D3>0,5),h+0.1,'RSI顶背'),COLORMAGENTA;


引用: 425.问:
我想要的是:(昨天的收盘价-前天的收盘价)/2+前天的收盘价
这是个昨日K线(不包括上下影线)的中心价,想按理论上讲的跌破一半...收复一半....做个

公式,主要解决:前天的收盘价如何表达?
答(灵如云):
(昨天的收盘价-前天的收盘价)/2+前天的收盘价
(ref(c,1)-ref(c,2))/2+ref(c,2);


引用: 426.问:
求助:macd二次金叉死叉!
答(灵如云):
f:="macd.diff";
a:="macd.dea";
w1:=barslast(cross(f,a) and f<0);
w2:=barslast(cross(a,f) and f>0);
金叉:sum(cross(f,a),w2)=2;{0上死叉之后的第二次金叉}
死叉:sum(cross(a,f),w1)=2;{0下金叉之后的第二次死叉}


引用: 427.问:
请将此公式的买卖条件加上.便于选股.
M 3
N 15

小黑马:0,colormagenta;
Var2:=MA(CLOSE,N);
Var3:=(CLOSE-Var2)/Var2*100;
生命:MA(Var3,M);
Var5:=BARSLAST(CROSS(-10,生命)=1)>=5;
Var6:=BARSLAST(CROSS(生命,10)=1)>=5;
机会: IF(生命<-10 AND Var5,生命,0)colorffff00 ;
风险: IF(生命>10 AND Var6,生命,0)colorred ;
买:STICKLINE(FILTER(机会 卖:STICKLINE(FILTER(风险 DRAWTEXT(FILTER(生命<-10 AND Var5,5),生命 ,'注意反弹' )coloryellow;
DRAWTEXT(FILTER(生命>10 AND Var6,5),生命 ,'逢高减磅↓' )colorffff00;
C2:机会,COLORSTICK;
C4:风险,COLORSTICK;
答(大庆老杨):
小黑马:=0;
Var2:=MA(CLOSE,15);
Var3:=(CLOSE-Var2)/Var2*100;
生命:=MA(Var3,3);
Var5:=BARSLAST(CROSS(-10,生命)=1)>=5;
机会:= IF(生命<-10 AND Var5,生命,0);
FILTER(机会

引用: 428.问:
公式描述为:今日开盘价低于昨日收盘价2/3价位处。
答(灵如云):
这样?
o

引用: 429.问:
公式重新描述为:今日开盘价在昨日K线实体的3/5以下开盘
答(灵如云):
o

引用: 430.问:
如何在0到100的坐标中编写大盘K线。

K线是这样写的:
STICKLINE(C>=O,C,O,7,1),COLOR5454FF;
STICKLINE(C>=O,C,H,0.5,1),COLOR5454FF;
STICKLINE(C>=O,O,L,0.5,1),COLOR5454FF;
STICKLINE(C STICKLINE(C STICKLINE(C
但是要如何转换成0到100的坐标?这样编好以后,可以迭加到如KDJ这样的指标上。
答(灵如云):
只能在飞狐中用

0,COLORGRAY,POINTDOT;100,COLORGRAY,POINTDOT;
p:=SYSPARAM(3)-SYSPARAM(2);
q:=SYSPARAM(3);
{pc:=INDEXC; ph:=INDEXH;pL:=INDEXL; po:=INDEXO;}
pc:="1a0001$close";
ph:="1a0001$high";
pL:="1a0001$low";
po:="1a0001$open";
hh:=hhv(ph,p);
LL:=llv(pl,p);
b:=100/(hh-LL);
y:=(100-(hh+ll)*b)/2;
op:=po*b[q]+y[q];
cp:=pc*b[q]+y[q];
lp:=pl*b[q]+y[q];
hp:=ph*b[q]+y[q];
f:=pc>po or (pc=po and pc>ref(pc,1));
STICKLINE(f,hp,Lp,0.1,0),colormagenta;
STICKLINE(f,op,cp,4,1),colormagenta;
STICKLINE(not(f),lp,hp,0.1,0),colorgreen;
STICKLINE(not(f),op,cp,4,0),colorgreen; 引用: 431.问:
五日线上穿十日线K线显示红色,五日线下破十日线K线显示绿色。如何编写成分析家公式 函数语言
答(灵如云):
是否这样:
m:=ma(c,5);
m1:=ma(c,10);
PARTLINE(m,m>m1,RGB(255,0,0),m

引用: 432.问:
收盘价大于20季度均线的选股指标
答(君俊):
c>ma(c,1200);


引用: 433.问:
公式描述:(12日、20日、30日、50日)这4条平均线中最少有一条今日是向上运行。
答(灵如云):
m>ref(m,1)+m1>ref(m1,1)+m2>ref(m2,1)+m3>ref(m3,1)+m4>ref(m4,1)>0;
M、M1、M2、M3、M4是均线


引用: 434.问:
原来公式:2日均线低于10日均线。
MA(CLOSE,2) 请帮忙改为:2日均线同时低于(10日、20日、30日)均线。(分析家使用)
答(君俊):
jx:=ma(c,2);
jx

引用: 435.问:
公式描述:2日平均线最少低于(10日、20日、30日、50日)这4条平均线中的一条(即:不 必要求低于全部均线,但必须最少低于一条则公式才正确。也即这4条均线中只要有一条或 几条是高于2日平均线的则该股就符合条件被选出)。
答(唐玉小宝):
试下对不

m2:=ma(c,2);
m10:=ma(c,10);
m20:=ma(c,20);
m30:=ma(c,30);
m50:=ma(c,50);
m2

引用: 436.问:
公式中任意两条指标线在即将死叉或金叉然后又分开
答(灵如云):
可以参考这个

{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);
答(大庆老杨):
讨论一下,我感觉楼主提的这个要求想法是非常不错的,但如果不用未来函数的
话,做到 是及其困难的。道理非常简单,我们能确定今天即将交叉但尚未交叉,却
无法确定明天是 肯定分开还是仍然若即若离,或者已经交叉。如果能确定明天的趋
势,则也就用不着研究 这个问题了。


引用: 437.问:
帮忙看有没未来

N:9;

M5:MA(CLOSE,5);
M13:MA(CLOSE,13);
M34:MA(CLOSE,34)*1*1;
Var3:=(2*CLOSE+HIGH+LOW)/4*1;
下降通道阻击线: EMA(Var3,99)*0.91*1, crossdot, ;
Var4:=1010601;
Var5:=IF(DATE<=Var4,1,0);
Var6:=LOW<=下降通道阻击线;
Var7:=FILTER(Var6*Var5,30)*1;
Var8:=1020112;
Var9:=IF(DATE>=Var8,1,0);
VarA:=FILTER(Var6,13)*1;
VarB:=Var7 OR VarA*Var9;
DRAWTEXT(VarB*1,LOW,'黑马阻击'), ,coloryellow ;
VarC:=EMA((CLOSE-Var4)/(Var5-Var4)*100,555)*1;
VarD:=EMA(555*REF(Var6,1)+999*Var6,1)*1;
VarE:=EMA(Var7,1)*1;
VarF:=CROSS(VarD,VarE);
Var10:=CROSS(VarE,VarD);
Var11:=VOL/CAPITAL*100;
Var12:=SUM(VarB,5)>=3;
Var13:=Var12/REF(VarB,10)>=2;
Var14:=HHV(CLOSE,5);
Var15:=VarE>20;
Var16:=HIGH/REF(LOW,20)<1.2;
Var17:=WINNER(CLOSE)*100;
Var18:=Var12 AND Var15 AND Var13 AND Var16;
Var19:=FILTER(Var18,20);
Var1:=IF(YEAR=2999 AND MONTH>12,0,1);
短期: MA(AMOUNT/VOL/100,10)*Var1, POINTDOT,LINETHICK2, COLORWHITE;
A:=REF(H,N)=HHV(H,2*N+1);
B:=FILTER(A,N);
D:=BACKSET(B,N+1);
HD:=FILTER(D,N);
A2:=REF(L,N)=LLV(L,2*N+1);
B2:=FILTER(A2,N);
D2:=BACKSET(B2,N+1);
LD:=FILTER(D2,N);
STICKLINE(REF(HD,1),REF(H,1),REF(H,1),18,0),LINETHICK6,COLORRED;
STICKLINE(REF(LD,1),REF(L,1),REF(L,1),18,0),LINETHICK6,COLORGREEN;
答(狙击专家):
这两句用的BACKSET函数,属于未来函数:
D:=BACKSET(B,N+1);

D2:=BACKSET(B2,N+1);


引用: 438.问:
原来公式描述:一日之前的最近一次上涨走势最后那跟阳K线的上影线小于实体的1/5
倍 (注:只上涨一天的也算上涨走势,形态在一日以前出现才有效)

原公式:
a:=BARSLAST(BARSLAST(c- REF(c ,1 )>0 and (c-o)>0 and (h-c)>0 and (h-c)/abs(c-o)<1/5)
=BARSLAST(c- REF(c ,1 ) ) );
a>0 and COUNT(c> REF(c ,1 ) and (c-o)>0 ,a )<2 and COUNT(c> REF(c ,1 ) ,a ) =COUNT(c>
REF(c ,1 ) ,1 );

需要修改的原因如下:
上面这个公式在每次进行选股时整个过程要10分钟以上才能完成,非常慢,很不理
想。不 知道有没有办法让它象正常的选股公式那样瞬间快速完成选股,也不影响原
来的选股效果
分析家上使用
答(股影):
原公式没看明白,揣摩你的要求,同时参照原公式的信号点重新写了一个,
信号和原公式只有微小的差别,.......试了一下选股,共选54只,用时15秒,
不知行不行?..........

tj:=C>REF(C,1) AND C>O AND H>C AND (H-C)/(C-O)<1/5;
T1:=BARSLAST(tj);
t2:=BARSLAST(T1);
XG:REF(tj,T2+1),COLORCYAN;
答(股影):
下面这个是你原公式,也只是稍微整理了一下,信号完全一致,
选股用时50秒。........另外,我也用你原来的公式做了选股
试验,也就只有1分15秒啊!.......是不是你的电脑问题?........

tj:=c>REF(c ,1) and c>o and h>c and (h-c)/(c-o)<1/5;
T1:=BARSLAST(tj)=BARSLAST(REF(c ,1));
T2:=BARSLAST(T1);
A1:=COUNT(c> REF(c ,1 ),T2)=COUNT(c> REF(c ,1 ) ,1 );
A2:=COUNT(c>REF(c ,1 ) and c>o,T2 )<2;
T2 AND A1 AND A2;


引用: 439.问:
求陈琛阶段反弹信号
答(陈琛):
用“条件选股”“新建”选股公式。

{陈琛阶段反弹信号,仅供参考。我很少用这个公式选股,限制条件就是MACD。}
零轴分强弱:=("FX引用1.DIFF#WEEK")+1.8;
用:=EMA(零轴分强弱-0.08,5);
阶:=If(cross((C+L)/2,(SUM(MA((C+L)/2,10),9)/10)),1,0);
段:=if(REF((EMA(L,2)*0.96),1)<(MA(L,26)*0.85)
AND REF((EMA(L,2)*0.96),1)<(EMA(L,2)*0.96)
AND REF((EMA(L,2)*0.96),1) 底:=IF((C-(MIN((REF(C,5)*0.865),(REF(C,13)*0.78))))/CLOSE<9/100
AND SUM(VOL/CAPITAL*100,5)<13,1,0);
阶段底:(阶 OR 段 OR 底) AND 零轴分强弱>用;


引用: 440.问:
分析家公式怎么编写时间限制,比如说当时间到达2005年7月1日时显示的指标数值全部为 零!
答(君俊):
终止日:=(date<=1050618);
ma(c,10)*终止日;
引用: 441.问:
求回调五天,今日收阳,飞狐的选股公式
答(君俊):
all(co;


引用: 442.问:
连续N天的最高、最低价都在一个日K线范围里面,今天的最高价超过那个日K线的最
高价,(注:‘连续N天’都是在‘一个日K线’之后) 这个'连续N天'的N不是人为的定为5天(当然N要大于3天),也就是当B突破A这个K线 的最高价时,把B这个K线选出来.在这个图中,A与B之间是连续5天的价格都是在A这个K线范围内,但如果是连续6天、7天、8天、9天。。。。。时怎么选?我要的就是在这种不确定的‘连续N天’情况下,当B突破时,怎么把B选出来
答(股影):
{突破最高}
tj:=HHV(H,3)<=REF(H,3) AND LLV(L,3)>=REF(L,3);
tj1:=BARSLAST(tj);
tj2:=COUNT(H>REF(H,BARSLAST(tj1=0)+3) ,BARSLAST(tj1=0))=1
AND COUNT(L xg:CROSS(tj2,0.5);


引用: 443.问:
如何表述这样的天数?fxj

M20:=MA(C,20);
M40:=MA(C,40);
M60:=MA(C,60);
与M20正向相交:=(M20>=M40 and M40<=M60orM20>=M60);
与M20正向相交0:=cross(与M20正向相交,0.5);
与M20相交后的天数:barslast(与M20正向相交0);

这个公式表述的不正确。请帮助修改。
我想表述的是:M20>=M40 and M40<=M60的天数;M20>=M60的天数;在一个公式里
表达。

答(股影):
{相交}
M20:=MA(C,20);
M40:=MA(C,40);
M60:=MA(C,60);
20交40天数:barslast(barslast(M20>=M40 and M40<=M60)>0),PRECIS0;
20交60天数:barslast(barslast(M20>=M60)>0),PRECIS0;


引用: 444.问:
请问在飞狐的里,如何设置"突破昨日最高价买入"
  
答(君俊):
cross(c,ref(h,1));//突破昨日最高价


引用: 445.问:
五天收盘价在正负2%之内怎么写?

答(君俊):
between((c-ref(c,1))/ref(c,1),1.02,0.98);


引用: 446.问:
公式描述:1日之前的最近1次反弹走势的第1根阳K线成交量大于前根阴K线成交量。
(注:只要出现了上涨就算反弹走势,上涨天数不限)(分析家使用)
答(君俊):
tj:=c>ref(c,1) and v>ref(c,1)and not(BARSTATUS=2);
BACKSET(BARSTATUS=2,BARSLAST(tj)+1)*tj ;


引用: 447.问:
公式描述:今日最低价和收盘价都高于上次下跌行情的最低价和最低收盘价位的1/3
以上(注:如果只下跌1天也算下跌行情)。请各位老师帮个忙。(分析家使用)
答(君俊):
n:=barslast(c l>ref(l*2/3,n) and c>ref(c*2/3,n);


引用: 448.问:
统计外盘大于内盘用红柱表示,内盘大于外盘用绿色柱表示
答(小礼礼):
把我的内外盘公式告诉你,可能会有更好的。
先建分笔公式,如下:
内外盘(数据)
外盘:sum(buyvol,0),COLORSTICK,linethick3;
内盘:-1*sum(sellvol,0),COLORSTICK,linethick3;
外盘笔数:sum(if(buyvol,1,0),0),colorwhite,linethick0;
内盘笔数:sum(if(sellvol,1,0),0),coloryellow,linethick0;
外盘金额:sum(if(buyvol,amount,0),0)/10000,coloryellow,linethick0,PRECISION0;
内盘金额:sum(if(sellvol,amount,0),0)/10000,colorwhite,linethick0,PRECISION0;

再点“管理”--再点“扩展数据管理”,出来“扩展数据管理”面板,再点数据1,再点数
据修改,再点设置范围,再点上海A股,深圳A股,计算周期设为分笔,指标线设为外
盘, 再点确定,然后会出现几次询问板,可按自己要求,只计算当日或计算历史数
据,算完就 成了。再点数据2,设内盘数据,即可。
再建内盘外盘(日)公式,如下:

外盘:EXTDATA(1),linethick0,PRECISION0;
内盘:EXTDATA(2),linethick0,PRECISION0;
内外盘总:=外盘+内盘,linethick0,PRECISION0;
STICKLINE(外盘,外盘,0,5,0),colorred,PRECISION0;
STICKLINE(内盘,外盘+内盘,外盘,5,0),color00ff00,PRECISION0;
外盘m天总和:=sum(外盘,m),coloryellow,linethick1;
内盘m天总和:=sum(内盘,m),linethick1,color00ff00;
外内盘m天差:sum(外盘-内盘,m),linethick2,colorff99ff,PRECISION0;
完工,别忘了参数M的设置,不知我讲清没有?


引用: 449.问:
在分析家里,有两个指标,分别是ROC和CCI,这个两个指标和别的软件有所不一
样,现在 需要把这两个指标改成带有上下轨道的指标,希望论坛的兄弟能帮个忙,
下面是这两个指标的原码,在分析家里没有轴分界,另外核新软件也需要这样的指
标,看看怎么加轨道啊
答(阳之光):
{ROC}
ROCA:(CLOSE-REF(CLOSE,12))/REF(CLOSE,12)*100,colorwhite;
rocb:(CLOSE-REF(CLOSE,12))/REF(CLOSE,12)*(-100),colorwhite;
{CCI}
P:=(HIGH + LOW + CLOSE)/3;
ccia:(P-MA(P,14))*100/(1.5*avedev(P,14)),colorwhite;
ccib:(P-MA(P,14))*(-100)/(1.5*avedev(P,14)),colorwhite;


引用: 450.问:
{input:n(13,1,100),m(9,1,100),m1(3,1,100);请把参数引入新建公式}
Var1:=(CLOSE-LLV(LOW,N))/(HHV(HIGH,N)-LLV(LOW,N))*100;
Var2:=SMA(Var1,M1,1);
卖线: SMA(Var2,M1,1);
Var3:=(HHV(HIGH,M)-CLOSE)/(HHV(HIGH,M)-LLV(LOW,M))*100;
Var4:=SMA(Var3,M1,1);
Var5:=SMA(Var4,M1,1);
买入线: SMA(Var5,M1,1);
必卖线: SMA(卖线,M1,1);


DRAWTEXT(买入线>76.5 AND CROSS(卖线,必卖线),必卖线*1.15,'进');
DRAWTEXT(买入线>56 AND 买入线<=76 AND CROSS(卖线,必卖线),卖线,'留意');
DRAWTEXT(买入线<45 AND 卖线>78 AND 必卖线>78 AND CROSS(必卖线,卖线),必卖
线,'跑 '),colorgreen ;
这个指标我想把他加入预警,不知道如何做,我想做到卖线金叉必卖线后提示我,
死叉也 提示我,
答(飞扬的tw):
1、在条件选股中建立下面公式:
2、再将下面公式加入预警。
{选股预警}
input:n(13,1,100),m(9,1,100),m1(3,1,100);
Var1:=(CLOSE-LLV(LOW,N))/(HHV(HIGH,N)-LLV(LOW,N))*100;
Var2:=SMA(Var1,M1,1);
卖线:=SMA(Var2,M1,1);
Var3:=(HHV(HIGH,M)-CLOSE)/(HHV(HIGH,M)-LLV(LOW,M))*100;
Var4:=SMA(Var3,M1,1);
Var5:=SMA(Var4,M1,1);
买入线:=SMA(Var5,M1,1);
必卖线:=SMA(卖线,M1,1);

xh1:=买入线>76.5 AND CROSS(卖线,必卖线);
xh2:=买入线>56 AND 买入线<=76 AND CROSS(卖线,必卖线);
xh3:=买入线<45 AND 卖线>78 AND 必卖线>78 AND CROSS(必卖线,卖线);

yj:xh1 OR xh2 OR xh3;

你可能想看:

有话要说...

取消
扫码支持 支付码