股票论坛 » 公式指标 » [飞狐] 指标源码如下


2008-1-9 08:07 要学智者
[飞狐] 指标源码如下

M1:MA(CLOSE,P1);
N%C OQdIZ)}2P,Z M2:MA(CLOSE,P2);
"g%]8J0e:z[%y!O(t M3:MA(CLOSE,P3);
({nLDg6M*Z,tR&h[` M4:MA(CLOSE,P4);(M,j&f(o,d)\J
NH1:=ABS(m1-m2)/m1<0.005;*L&J a b'^ u
NH2:=ABS(m1-m3)/m1<0.005;
1IRo$_oN NH:=FILTER(NH1 AND NH2,3);$y"hTSIq}9}u
DRAWTEXT(NH,LOW*1.005,'粘合'),COLORYELLOW;~+`{1] [-y7ml/pS
{3%}/KH#{$mi7UH*m
X:=MA(C,10)>MA(C,30) AND CROSS(C,MA(C,10));vFL&?2c/Z
V1:=MA(VOL,3);5q O*Q W"_.wA
V2:=MA(VOL,5);,w F ?b2Cxq
Y:=V1>V2;VU.X;sI[
Z:=VOL>REF(VOL,1);&rk A(R%}ki
追加:=IF(X AND Y AND Z,2,0);?%GZ(La'{m S
{STICKLINE(追加=2,(open+close)/2,close,5,0),coloryellow;}6p1^q%y4f1V(E0K6a b-F8m(j
drawtext(追加=2,h*1.01,'3%'),coloryellow;
aZf&ZiDWcg {横盘突破}$r k.y1EPp[W
O1:=SUM(EMA((CLOSE+LOW)/2,1)/3,3);;J2L2vX&gk:ZSf
O2:=EMA(O1,3);U4tHc$CeD"y9T4j
O3:=EMA(O2,3);
C8bG N"s CP11:=HHV(O1,20);
w+_n)M:k$Z0p CP21:=HHV(O1,1);
q9a,Btl"` A:=CROSS(CP21,CP11);
k9AA(R2h)B&\$H DRAWTEXT(FILTER(A,1),CP21,'突破'),coloryellow;
O2c\/qV }8uS
0o8O!Spw0DK9f 主线:=WMA(CLOSE,8);
(|vyjHh6O^ 平均值:=MA(CLOSE,15);
3pr'mN4z#Q MX:=MA(CLOSE,20);
%O1v?)u Vj_5ba&lQ ~l DRAWTEXT((((((((REF(CLOSE,1) < MX) AND ((主线 - REF(主线,1))>0)) AND ((M2-REF(M2,1))>0.01)) AND
],m"~P#`kai (LOW<MX)) AND (CLOSE>MX)) AND ((平均值-REF(平均值,1))>0)) AND ((CLOSE / OPEN) > 1.052)),(LOW - 0.08),'★黄金'),colorFFFF;
!pAd@/?$\5M"dW3n
0h+w9I E/gL \;P&ly A1:=REF(c,10)=HHV(c,21);
s*\+]1G)W B1:=FILTER(A1,10);
aoA!oh$x ^M\ C1:=BACKSET(B1,11);
}-v XL#R`VH!{ _ HD:=FILTER(C1,10);
_~%dlD(o+}jC,e A2:=REF(c,10)=LLV(c,21); ,hrE `$ns)^v%y
B2:=FILTER(A2,10);
I(e{}q2k.V C2:=BACKSET(B2,11); p:hwb)E7Q K'_
LD:=FILTER(C2,10);@zHDI&s3@EF;U?
A:=REF(C,BARSLAST(HD));
D5zY wV}c0uBY;w B:=REF(C,BARSLAST(LD));!GyD6aIIG2~"X
t1:=BARSLAST(HD)<BARSLAST(LD) AND NOT(HD) ;
be"?'DS6pC:xRXZ t2:=BARSLAST(HD)>BARSLAST(LD) AND NOT(LD);0St%VA[7Nq+bYJ?
波峰:A,ColorFF00FF,POINTDOT;
9b@8r2M4Cv!id STICKLINE(c,A,A,9,0),ColorFF00FF;
o6B~IBIp 波谷:B,Color80FF00,POINTDOT;
c4}Q.w7u| STICKLINE(c,B,B,9,0),Color80FF00;
x'[W}"k On8k DRAWNUMBER((((T1 = 0) AND (REF(T1,1) > 0)) OR (ISLASTBAR AND (T1 > 0))),(REF(A,1) + 0.1),REF(A,1),2),colorwhite;
q TyR)xW@O DRAWNUMBER((((T2 = 0) AND (REF(T2,1) > 0)) OR (ISLASTBAR AND (T2 > 0))),(REF(B,1) + 0.1),REF(B,1),2),colorwhite;
Et{;Y,D+G ma6:=ma(c,6),colorwhite,linethick2;
.T#rNg6{yds ma18:=ma(c,18),color0099ff,linethick2;
)Qzd8]K/gH7b7z%w 买进价:=((c-ref(ma6,1))/6+ma6)*1.004;
uW&?+Zf 买进条件:=cross(c,买进价) and 买进价>ref(买进价,1);3h$q|`2Rw`-pW)R
白K买进:IF(买进条件,l,h),COLORWHITE,POINTDOT;1Q"Bhjl5\-kD+@
STICKLINE(买进条件,o,(open+close)/2,4,1),colorwhite,linethick2;
P+__ es 加码价:=((c-ref(ma18,1))/18+ma18)*1.004;KNC2TF y[j
加码条件:=cross(c,加码价) and 加码价>ref(加码价,1);;DD,^:f`8gW
黄K加码:IF(加码条件,l,h),coloryellow,POINTDOT;
p8i2xph l)uC STICKLINE(加码条件,(open+close)/2,c,4,1),coloryellow,linethick2;

页: [1]
查看完整版本: [飞狐] 指标源码如下


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