分享

[短线是银]条件选股公式集源码!

 okboy 2009-04-06
[短线是银]条件选股公式集源码
{金蛤蟆选股}(无未来函数)
RSV:=(((CLOSE - LLV(LOW,6)) / (HHV(HIGH,6) - LLV(LOW,6))) * 100);
K:=(POW(SMA(RSV,2,1),5) / POW(10,8));
D:=(POW(SMA(RSV,2,1),5) / POW(10,10));
蛤:=((K+ D)  / 2);
蟆:=(0 - 蛤);
J:=1;
选股:CROSS(蛤,J);
金蛤蟆选股公式 选出的股票可选择最符合最好形态 

{量顶天立地}(无未来函数)
A1:=V=HHV(V,120); 
A2:=C/OPEN>1.049; 
TJ:=A1 AND A2; 
TJ AND (REF(BARSLAST(TJ),1)>80 OR BARSSINCE(TJ)=0); 
 
量顶天立地: 
某日出现半年来的天量,且收出大阳线。 
本公式集有一个量顶天立地五彩K线公式D!LDTLDWC与本公式对应。 
 
{老鸭头}缺省周期:日线  (无未来函数)

MA5 := MA(close,5); 
MA10 := MA(close,10); 
MA60 := MA(close,60);  
pday1 := barslast(cross(ma5,ma60));{5日均线上穿60日均线} 
6 _& g" w- N5 z9 N4 D/ B# h& M# |/ Opday2 := barslast(cross(ma10,ma60));{10日均线上穿60日均线,至此形成鸭颈部} 
pday3 := barslast(high=hhv(high,pday2));{形成头部,要下跌}  
pday4 := barslast(cross(ma10,ma5));{下跌后,5日均线和10日均线死叉}
pday5 := barslast(cross(ma5,ma10));{回落不久,5日均线和10日均线形成金叉,形成嘴部} 
a1:= pday1>pday2 and pday2>pday3 and pday3>pday4 and pday4>pday5 and pday5<5; 
a2:= count(cross(ma10,ma5),pday2)=1; 
A1 AND A2; 
 
老鸭头: 
(1)采用5、10和60周期的价格平均线。当5日、10日均线放量上穿60日平均线后,形成鸭颈部。 
(2)股价回落时形成的高点形成鸭头部。 
(3)当股价回落不久,5日、10日均线再次金叉向上形成鸭嘴部。 
操作: 
(1)在5日、10日均线放量上穿60日平均线形成鸭颈部时买入。 
(2)在鸭嘴部附近成交量芝麻点一带逢低买入。 
(3)当股价放量冲过鸭头顶瞬间时介入。
 

{量芝麻点}缺省周期:日线  (有未来函数慎用!)

V1:=MA(V,40); 
HSL:=V/CAPITAL*100;
A1:=COUNT(V/V1<1.3,14)>11;
A2:=CROSS(HSL,2);
A3:=C/REF(C,1)>1.025 AND C>OPEN; 
ZTJ:=A1 AND A2 AND A3; 
 
量芝麻点: 
成交量连续出现萎缩,在量柱体图上表现为小芝麻点,连续的小芝麻点与40日量平均线形成一个小水坑。
操作建议: 
 最好K线浅幅回档,且成交量越小越好,当放量上行时买入。 
 

{青龙取水}缺省周期:日线  (无未来函数)
A1:=MIN(MA(C,5),MA(C,10))>MA(C,60) AND CROSS(MA(C,5),MA(C,10));
A2:=MIN(MA(C,5),MA(C,10))/MA(C,60)<1.05;
A3:=COUNT(V<MA(V,10),10)>6; 
A1 AND A2 AND A3; 

青龙取水: 
在5日、10日、60日均线图上,5、10日均线起伏不定,日K线在60日均线上逶迤。
2、龙头回到60日均线附近,犹如青龙取水,同时成交量萎缩 
3、然后大涨。 
操作:待龙头形成,成交量萎缩又放大后,逢低介入。 


(轻松过头) 缺省周期:日线  (有未来函数慎用!)

NDAYA:= HHVBARS(HIGH,120); {120日内最高价的周期数} 
NDAY1:= NDAYA-10; {最高点之后10日} 
NDAY2:= NDAYA+10; {庄家应该在NDAY1--NDAY2之间吸纳大部分筹码} 
4 o. A9 T& Y# @' O; sA1 := NDAYA>=30;{确保高点出现的周期数大于30}
A2 := REF(SUM(VOL,20),NDAY1) > FINANCE(7) * 0.4; {吸纳40%}
VMA:=MA(VOL,40);{40日量均线} 
A3:=COUNT(VOL<VMA,NDAY1)/NDAY1>0.9;{成交量呈现芝麻点} 
A4:=CLOSE>=HHV(HIGH,120);{股价在冲击前高位} 
A5:=COUNT(VOL<(MA(VOL,10)*1.3),10)>8;{近期无明显放量} 
A1 AND A2 AND A3 AND A4 AND A5; 

轻松过头: 
(1)前一个头部下方的成交量巨大,股价筑头后开始回档。
(2)回档完毕后成交量呈量芝麻点,股价再次上扬冲击前一头部。 
(3)轻松冲过前一头部并未明显放量。 
操作: 
(1)在前一头部成交量巨大时跟进。
(2)在回档完毕后成交量呈现芝麻点时逢低吸纳。 
(3)最经济、最大利润化的方法是在轻松过头前的一瞬间迅速介入。 
(4)前头部价格一般是上升浪的腰部。

 

 

大智慧L2的:
+ K7 g, z1 l: b6 R0 j6 f
7 E3 G, q9 T6 f5 N* n上:=(SMA(HIGH,21,2) * 1.05);
# f- z: I& A& z下轨道:=(SMA(LOW,21,2) * 0.969);
: Z' G8 `! p+ f6 F阻挡:=(SMA(HIGH,21,2) * 1.05);
4 T/ X3 [2 N& ]# d4 RRSV:=(((CLOSE - LLV(LOW,13)) / (HHV(HIGH,13) - LLV(LOW,13))) * 100);
4 Z/ x* t/ E" t0 v$ T- V0 jK:=SMA(RSV,3,1);1 o4 d: t- w) H1 j) D' n( r
D:=SMA(K,3,1);& m* L! l8 x. p4 ^4 w, s9 O* Y
J:=((3 * K) - (2 * D));  k$ y3 q/ T* n+ h% z! @0 p$ [  w
RSV12:=(((CLOSE - LLV(LOW,34)) / (HHV(HIGH,34) - LLV(LOW,34))) * 100);
" S# |0 n2 L* K  cK12:=SMA(RSV12,3,1);
: K! x9 _5 D2 }& a+ ^: lD12:=SMA(K12,3,1);; C; Y9 @- u, z6 r9 @  h
J12:=((3 * K12) - (2 * D12));
/ Y6 t; Z9 D: X! IRSV24:=(((CLOSE - LLV(LOW,55)) / (HHV(HIGH,55) - LLV(LOW,55))) * 100);
7 {! T  K* V% i1 ?9 K0 @- V7 UK24:=SMA(RSV24,3,1);
7 a6 e+ p+ |: }4 }4 I7 fD24:=SMA(K24,3,1);" d# Q- d2 A. T; U( D8 V
J24:=((3 * K24) - (2 * D24));# r' m- I; T) ~/ @0 s* `1 |+ ]
支撑位:=IF(CROSS(J,J24),LOW,REF(LOW,BARSLAST(CROSS(J,J24))));
+ {9 Q0 s0 [5 T. S/ }1 V, D7 }压力位:=IF(CROSS(J24,J),HIGH,REF(HIGH,BARSLAST(CROSS(J24,J))));7 A. \/ D, M9 D: G8 N
U2L:=IF((CLOSE >= MA(CLOSE,20)),80,50);2 x7 r" X3 F8 a* |& z: u
L2L:=IF((CLOSE >= MA(CLOSE,20)),50,20);
/ T; a' a0 M& GRH1:=IF(((J < U2L) AND (REF(J,1) >= U2L)),HHV(REF(HIGH,1),(BARSLAST(((J >= U2L) AND (REF(J,1) < U2L))) - 1)),REF(HHV(REF(HIGH,1),(BARSLAST(((J >= U2L) AND (REF(J,1) < U2L))) - 1)),BARSLAST(((J < U2L) AND REF(J,1)))));8 Z2 T- O3 S8 j+ ^2 N* ~" b
RH4:=IF((HIGH > RH1),LOW,REF(LOW,BARSLAST((HIGH > RH1))));
7 M3 ]- w' R  A+ B0 {3 iRH42:=IF((HIGH > RH1),J,REF(J,BARSLAST((HIGH > RH1))));& \4 A1 U4 M7 ]- s6 @( ^  d
RH5:=IF((((HIGH > RH4) AND (J < RH42)) AND (J < J24)),HIGH,REF(HIGH,BARSLAST((((HIGH > RH4) AND (J < RH42)) AND (J < J24)))));) W, Y7 Q! c+ a5 M

$ ~) F8 o1 E( CRL1:=IF(((J > L2L) AND (REF(J,1) <= L2L)),LLV(REF(LOW,1),(BARSLAST(((J <= L2L) AND (REF(J,1) > L2L))) - 1)),REF(LLV(REF(LOW,1),(BARSLAST(((J <= L2L) AND (REF(J,1) > L2L))) - 1)),BARSLAST(((J > L2L) AND REF(J,1)))));  `, l7 u& |; ]4 B
RL4:=IF((LOW < RL1),HIGH,REF(HIGH,BARSLAST((LOW < RL1))));
. d2 ?9 K* D% g% kRL42:=IF((LOW < RL1),J,REF(J,BARSLAST((LOW < RL1))));
1 v9 G6 h# N- j9 V- b4 e8 T8 V: fRL5:=IF((((LOW < RL4) AND (J > RL42)) AND (J > J24)),LOW,REF(LOW,BARSLAST((((LOW < RL4) AND (J > RL42)) AND (J > J24)))));
( n% ^# }( i; X. _2 ~
; B8 @, `1 D" Q( v0 ?黑马趋势:=MA(CLOSE,3);0 j2 c* `! J+ Y. u4 P4 I
AA5:=MA(CLOSE,21);
  h& k$ c  l6 o3 g+ Q; ^- [AA10:=MA(CLOSE,8);
) R! ]* X+ a9 q- t: ?) x2 S追击:FILTER(((((((CLOSE / OPEN) > 1.04) AND ((CLOSE - REF(CLOSE,1)) > 0)) AND (CLOSE > 下轨道)) AND ((AA10 - REF(AA10,1)) > 0)) AND (CLOSE < 上)),3)*10,linethick0;& p; Z: r2 a& I) p( c; f
STICKLINE(FILTER(((((((CLOSE / OPEN) > 1.04) AND ((CLOSE - REF(CLOSE,1)) > 0)) AND (CLOSE > 下轨道)) AND ((AA10 - REF(AA10,1)) > 0)) AND (CLOSE < 上)),3),10,0,8,0),colorred;6 p( ], d8 v& O* ]5 L' P+ Z0 U0 J
DRAWTEXT(FILTER(((((((CLOSE / OPEN) > 1.04) AND ((CLOSE - REF(CLOSE,1)) > 0)) AND (CLOSE > 下轨道)) AND ((AA10 - REF(AA10,1)) > 0)) AND (CLOSE < 上)),3),10,'追击'),colorD1E768;
5 @4 O! F( ?& i$ L- U  ]VARD:=((((OPEN + LOW) + HIGH) + CLOSE) / 4);4 i; E1 B! V9 e  Z0 Y$ x8 Z
支撑:=EMA(VARD,5);
! s, B; l, S5 P短期底部:=LLV(OPEN,30);
: o+ T7 I+ \* q! M( M机会难得:FILTER((((((((LOW <= 短期底部) AND ((CLOSE - REF(CLOSE,1)) > CLOSE)) AND ((MA(CLOSE,10) - REF(MA(CLOSE,10),1)) > 0)) AND (WINNER(CLOSE) < 0.05)) AND (短期底部 = RL5)) AND (LOW <= RL5)) AND (HIGH < 压力位)),3)*8,linethick0;2 C9 z; V8 c3 O8 z- r
STICKLINE(FILTER((((((((LOW <= 短期底部) AND ((CLOSE - REF(CLOSE,1)) > CLOSE)) AND ((MA(CLOSE,10) - REF(MA(CLOSE,10),1)) > 0)) AND (WINNER(CLOSE) < 0.05)) AND (短期底部 = RL5)) AND (LOW <= RL5)) AND (HIGH < 压力位)),3),8,0,8,0),coloryellow;% P' A9 B( Y) Z* h6 H5 p
DRAWTEXT(FILTER((((((((LOW <= 短期底部) AND ((CLOSE - REF(CLOSE,1)) > CLOSE)) AND ((MA(CLOSE,10) - REF(MA(CLOSE,10),1)) > 0)) AND (WINNER(CLOSE) < 0.05)) AND (短期底部 = RL5)) AND (LOW <= RL5)) AND (HIGH < 压力位)),3),8,'★机会难得'),colorFFFFFF;! c# M7 m8 M( U/ K& l/ p) \# d
历 史大底:FILTER((((((LLV(LOW,0) AND (WINNER(CLOSE) < 0.08)) AND (LOW <= 短期底部)) AND (CLOSE > 短期底部)) AND (J < 80)) AND ((CLOSE / OPEN) > 1.08)),20)*12,linethick1 ,colorgreen;
: ^4 Z" T+ q8 V2 CSTICKLINE(FILTER((((((LLV(LOW,0) AND (WINNER(CLOSE) < 0.08)) AND (LOW <= 短期底部)) AND (CLOSE > 短期底部)) AND (J < 80)) AND ((CLOSE / OPEN) > 1.08)),20),12,0,8,0),colorgreen;
) ?' v- I' r& \3 Y  JDRAWTEXT(FILTER((((((LLV(LOW,0) AND (WINNER(CLOSE) < 0.08)) AND (LOW <= 短期底部)) AND (CLOSE > 短期底部)) AND (J < 80)) AND ((CLOSE / OPEN) > 1.08)),20),LOW,'★★历史大底'), colorgreen;# l& I5 N, r2 @, h% r
黑 马登天:FILTER(((((((((LOW <= 短期底部) AND (CLOSE > 压力位)) AND ((AA5 - REF(AA5,1)) > 0)) AND (J < 80)) AND (CLOSE > 支撑位)) AND ((黑马趋势 - REF(黑马趋势,1)) > 0)) AND (WINNER(CLOSE) < 0.1)) AND (CLOSE > OPEN)),5)*15,linethick0;6 l& d; `9 }; d8 z! T2 {
DRAWTEXT(FILTER(((((((((LOW <= 短期底部) AND (CLOSE > 压力位)) AND ((AA5 - REF(AA5,1)) > 0)) AND (J < 80)) AND (CLOSE > 支撑位)) AND ((黑马趋势 - REF(黑马趋势,1)) > 0)) AND (WINNER(CLOSE) < 0.1)) AND (CLOSE > OPEN)),5),(LOW - 0.15),'★黑马登天'),colorCDEEC5;
0 |: @* X+ b  h0 Z0 ?( l5 PX1:=(((((3 * CLOSE) + HIGH) + LOW) + OPEN) / 6);
& h9 {4 l/ @  E4 TX2:=EMA(X1,10);
" a1 X. `$ [/ k: V9 Y4 S- o8 O均线:=MA(CLOSE,16);
' K+ d+ M+ U' o2 D1 P* U6 b& j7 }均线20:=MA(CLOSE,20);2 K: j% _4 \5 O7 V0 U1 ?8 m7 ~6 K
均线120:=MA(CLOSE,120);
: |/ j. c- {! |/ r! N2 M; IVA:=CROSS(MA(CLOSE,19),MA(CLOSE,120));
$ H& p9 f4 C, n! {- n9 @跳马:FILTER(((((((((OPEN > 均线120) AND (均线20 < 均线120)) AND (LOW <= 均线120)) AND ((均线20 - REF(均线20,1)) > 0)) AND (CLOSE > OPEN)) AND ((均线120 - REF(均线120,1)) > 0)) AND (HIGH < RH5)) AND (CLOSE >= 均线120)),15)*5,color00ff00 ,linethick0;
0 p3 b/ H. O; fDRAWTEXT(FILTER(((((((((OPEN > 均线120) AND (均线20 < 均线120)) AND (LOW <= 均线120)) AND ((均线20 - REF(均线20,1)) > 0)) AND (CLOSE > OPEN)) AND ((均线120 - REF(均线120,1)) > 0)) AND (HIGH < RH5)) AND (CLOSE >= 均线120)),15),LOW,'★120跳马'),color00ff00;* T3 D) o$ [$ ^. l; C( H; O1 z
宝马望月:((((VA AND ((均线120 - REF(均线120,1)) > 0)) AND (HIGH < RH5)) AND (CLOSE > OPEN)))*15,linethick0;
- X2 d# k  m: `: k' ?! }DRAWTEXT((((VA AND ((均线120 - REF(均线120,1)) > 0)) AND (HIGH < RH5)) AND (CLOSE > OPEN)),LOW,'★宝马望月'),colorFFFFFF;4 C( g9 e5 E9 B  w7 Z- t
三线开花:((((((均线 - REF(均线,1)) > 0) AND CROSS(均线20,均线120)) AND (LOW <= 均线120)) AND (CLOSE >= 均线120)))*3,linethick0;
) K  |3 x$ O0 r+ G5 YDRAWTEXT((((((均线 - REF(均线,1)) > 0) AND CROSS(均线20,均线120)) AND (LOW <= 均线120)) AND (CLOSE >= 均线120)),LOW,'三线开花'),colorFFFFFF;/ T! F' }( z+ i  `5 f
快 马加鞭:FILTER(((((((((((OPEN < X2) AND (CLOSE > X2)) AND ((支撑 - REF(支撑,1)) > 0)) AND ((支撑 - REF(支撑,1)) > 0)) AND (CLOSE < 阻挡)) AND ((均线 - REF(均线,1)) > 0)) AND (CLOSE >= 均线)) AND (HIGH < 阻挡)) AND ((AA10 - REF(AA10,1)) > 0)) AND ((阻挡 - REF(阻挡,2)) > 0)),11)*8,linethick0;' [/ k$ T* ]. [! ?  O
DRAWTEXT(FILTER(((((((((((OPEN < X2) AND (CLOSE > X2)) AND ((支撑 - REF(支撑,1)) > 0)) AND ((支撑 - REF(支撑,1)) > 0)) AND (CLOSE < 阻挡)) AND ((均线 - REF(均线,1)) > 0)) AND (CLOSE >= 均线)) AND (HIGH < 阻挡)) AND ((AA10 - REF(AA10,1)) > 0)) AND ((阻挡 - REF(阻挡,2)) > 0)),11),(LOW - 0.11),'★快马加鞭'),colorFF0000;
& K' h( V5 d2 f$ d+ M$ n黑马狂奔:FILTER(((((((OPEN < X2) AND (WINNER(CLOSE) < 0.2)) AND (CLOSE > X2)) AND ((X2 - REF(X2,1)) > 0)) AND (HIGH < 阻挡)) AND ((CLOSE - REF(CLOSE,1)) > 0.35)),4)*13,linethick0,colorff00ff;
$ \4 m# v; C: J1 l8 c/ qDRAWTEXT(FILTER(((((((OPEN < X2) AND (WINNER(CLOSE) < 0.2)) AND (CLOSE > X2)) AND ((X2 - REF(X2,1)) > 0)) AND (HIGH < 阻挡)) AND ((CLOSE - REF(CLOSE,1)) > 0.35)),4),(LOW - 0.05),'★黑马狂奔'),colorff00ff;

 

 

东方红大阳升
Var1:=VOL/CAPITAL*100;
Var2:=Var1>4 AND CLOSE>REF(CLOSE,1);7 U/ H5 I# W8 x1 o- s" k
Var3:=COUNT(Var2,13)>=3;- Y% t2 A9 f" i# q( p. [5 _$ p+ I, B
Var4:=CLOSE/REF(CLOSE,1)>1.049 AND Var1>5;6 u9 C5 R, i8 }& @3 \3 z7 b
Var5:=REF(SUMBARS(VOL,CAPITAL),13)>89;  W5 A( P* b+ Y& W7 j0 a
Var6:=HIGH/CLOSE<1.021;: a/ H3 F! }2 D5 m. L
Var7:=COUNT(CLOSE/REF(CLOSE,1)>1.04,10)<5;5 ?+ Z; I. w4 S* O
Var8:=IF(COUNT(Var1>4,5)>=3,0,1);# I4 r8 I3 U* O) b- l: o6 F1 k
Var9:=Var3 AND Var4 AND Var5 AND Var6;
Var9 AND (REF(BARSLAST(Var9),1)>20 OR BARSSINCE(Var9)=0);
D!DFP
 

    本站是提供个人知识管理的网络存储空间,所有内容均由用户发布,不代表本站观点。请注意甄别内容中的联系方式、诱导购买等信息,谨防诈骗。如发现有害或侵权内容,请点击一键举报。
    转藏 分享 献花(0

    0条评论

    发表

    请遵守用户 评论公约