|
公式原码:8 d: J- Q4 L/ a( C& Q
R:=((CLOSE - LLV(LOW,9))/(HHV(HIGH,9) - LLV(LOW,9)))*(100);
; G5 r" N1 P" lK:=EMA(R,3);
% u! x* e. b/ ?D:=EMA(K,3);
+ e: v1 p) y+ ~ O3 V一年十二倍:20,colorred;/ z7 E# ~$ m c3 M; S1 y: R j
陡峭度:=IF((BARSCOUNT(CLOSE) > 7),(100)*((MA(CLOSE,7))/(LLV(MA(CLOSE,7),7)) - 1),1);+ N+ I% C0 d2 n
N:=IF((陡峭度 > 0.35),6,65);8 N, N o0 }- S$ H& \
VAR1:=((-((100)*(HHV(HIGH,N) - CLOSE))/(HHV(HIGH,N) - LLV(LOW,N))))*((DATE < 20070110));; P" B: ~+ P7 j; S! e* c3 L b
VAR1A:=((-((100)*(HHV(HIGH,N) - CLOSE))/(HHV(HIGH,N) - LLV(LOW,N))) + 100)*((DATE < 20070110));
: M" J8 v w$ f% {' ^$ k赢利盘:=(WINNER(CLOSE))*(100);
6 z* F+ h7 L! m: n. o赢利线:=FORCAST(赢利盘,7);
7 K* H _6 q+ k线:=(FORCAST(VAR1A,7))*((DATE < 20070110));7 y% L0 v I. Z! Z4 c7 i
满仓:=((线 > REF(线,1)) and (线 < 25) and (COUNT((线 > REF(线,1)),5) = 1) and IF((N = 6),(赢利盘 < 60),(赢利盘 < 40)) and (COUNT((赢利线 > 20),20) > 0))*(40);
+ t0 h5 t3 L- j' u# QSTICKLINE(满仓,0,40,5,0),Color008000;
& A% p* G3 l3 jDRAWTEXT(满仓,45,''满仓''),ColorWHITE;
0 E" V; T; g' a3 v3 e0 ], w轻仓:=IF((赢利盘 >= 60) and (线 > REF(线,1)) and (REF(线,1) < 20) and (线 < 40) and (COUNT((线 > REF(线,1)),5) = 1) and (REF(N,1) = 6),1,0);
- u* `" e0 ]5 G G& {STICKLINE(轻仓,20,D,4,1),ColorFF00FF;# Q9 R7 j# r8 G8 O
DRAWTEXT(轻仓,45,''轻仓''),ColorFF00FF;
2 F( @( _1 d+ J/ @出击:=CROSS(线,20) and IF((COUNT(CROSS(K,D),3) = 1) and (D < 40),1,(线 > D) or (K > D) and (D < 60)) and IF((N = 6),(赢利盘 < 70),(赢利盘 < 40)) and (COUNT((赢利线 > 20),20) > 0);# w3 J3 ~7 B! K
STICKLINE(出击,0,50,3,1),Color44BB00;
0 Y$ }% C; h6 a' L# A# PDRAWTEXT(出击,55,''出击''),colorred;3 Y. Y9 R `& d" \3 j7 c' g2 Q
进一:CROSS(线,D) and (D > 30) and (D > REF(D,1)) and (D < 80);1 U5 g; t/ H" U/ P, T
进二:CROSS(线,赢利线) and (D > 30) and (赢利线 > 25) and (D > REF(D,1));
) k# N) w8 S& R) j9 c; L: ?低进:=IF(进一 and (D > 赢利线),进二,进一);
\6 m1 ]2 I/ s3 hDRAWTEXT(低进,30,''低进''),ColorWHITE;" |/ C8 R, [% O8 \" k# @3 e
STICKLINE(低进,20,30,3,1),Color000080;! B+ c S3 H3 a1 Q
DRAWTEXT(进二,50,''高进''),Color800080;* A2 ~0 t& b5 g7 P$ P" W' J3 T
STICKLINE(进二,30,50,3,1),coloryellow;
$ `3 L/ ^8 p3 Y狂喜:=(30)*(CROSS(VAR1,(-2)));) t# E' c; S0 {: h
STICKLINE(狂喜,0,20,3,1),coloryellow;
# ~: {3 F/ g* }6 w: TDRAWTEXT(狂喜,(-5),''要涨停''),coloryellow;5 K( y$ i) `* ~# y& N }) H5 A5 w
狂喜过望:=(50)*((VAR1 = 0));* K, m5 s& D, M" D! z0 y6 {6 }
恐慌:=(20)*(VAR1 < -94); # f7 ?% R! q( X* P
STICKLINE(恐慌,0,(-20),5,0),ColorC1C1C1;
# f1 p1 [+ J4 w# O, r7 WDRAWTEXT(恐慌,(-25),''恐慌''),ColorC1C1C1;
! k* {: }7 X! W9 l' w非常恐慌:=(-40)*(VAR1 = (-100)); 1 e& V) T* h$ d6 r( g5 D
STICKLINE(非常恐慌,0,(-40),7,1),Color800000;2 |& U* p# p: s/ t0 O) H
DRAWTEXT(非常恐慌,(-45),''非常恐慌''),ColorGREEN;
" |2 M8 X; T" \半仓:=(30)*(CROSS(VAR1,(-94)) and (COUNT(恐慌,5) > 0) and (N = REF(N,1)) and IF((N = 6),(赢利盘 < 60),(赢利盘 < 40)) and (COUNT((赢利线 > 20),20) > 0));
% H2 R( e/ W3 B- cSTICKLINE(半仓,0,30,4,1),ColorFFFF00;
, D9 y0 y1 q; f* Y2 @( k3 vDRAWTEXT(半仓,35,''半仓''),ColorFFFF00;7 e R& a/ ]" e+ [$ f
加仓:=(30)*(CROSS(K,20) and (COUNT(半仓,5) > 0));( ?7 j3 B1 q; f' V2 V. `! P
STICKLINE(加仓,0,20,6,1),Color808080;
* f0 Z" S4 f" P5 M4 _ ZDRAWTEXT(加仓,25,''加仓''),Color808080; s0 K3 e& v7 T+ v `
背离:=(COUNT(恐慌,2) > 0) and (CLOSE < REF(CLOSE,1)) and (VAR1 > REF(VAR1,1));
1 p3 s2 e: @+ U2 B. F7 P8 ODRAWICON(背离,0,1),ColorFFFFFF;1 d2 D% U9 o& I; T8 {* z+ |7 G# g$ S
================================================================================================, J( e9 g% `3 C! Y
{一年十二倍--满仓选股 }) O b" V3 e9 z+ r. ]1 G3 | J
R:=((CLOSE - LLV(LOW,9))/(HHV(HIGH,9) - LLV(LOW,9)))*(100);
& T6 g; C/ k$ c7 v4 @K:=EMA(R,3);
% s l& x9 t8 }* t9 N6 JD:=EMA(K,3);$ J- D: m) v+ w; B
陡峭度:=IF((BARSCOUNT(CLOSE) > 7),(100)*((MA(CLOSE,7))/(LLV(MA(CLOSE,7),7)) - 1),1);/ m9 W! q( [' d; ?
N:=IF((陡峭度 > 0.35),6,65);
0 G0 B- A5 j' Y4 y; `VAR1:=((-((100)*(HHV(HIGH,N) - CLOSE))/(HHV(HIGH,N) - LLV(LOW,N))))*((DATE < 30070110));( e3 Z9 h. M' B8 V# i5 d# T
VAR1A:=((-((100)*(HHV(HIGH,N) - CLOSE))/(HHV(HIGH,N) - LLV(LOW,N))) + 100)*((DATE < 30070110));/ ~" M% A- H+ Z
赢利盘:=(WINNER(CLOSE))*(100);- l$ n, I/ d, K$ l
赢利线:=FORCAST(赢利盘,7);: [1 _" Q/ n5 R8 v n
线:=(FORCAST(VAR1A,7))*((DATE < 30070110));& B* `+ Q4 X! O0 B
((线 > REF(线,1)) and (线 < 25) and (COUNT((线 > REF(线,1)),5) = 1) and IF((N = 6),(赢利盘 < 60),(赢利盘 < 40)) and (COUNT((赢利线 > 20),20) > 0))*(40);1 f. K! b! o, k% ?$ A/ f
=================================================================================================
8 ~$ G8 [( e5 n3 O _5 X{一年十二倍--低进选股 }
% D* C5 V: [8 ^( [R:=((CLOSE - LLV(LOW,9))/(HHV(HIGH,9) - LLV(LOW,9)))*(100);
; e' T7 d! N- K: dK:=EMA(R,3);3 x. b$ ^, Y$ s2 a, f
D:=EMA(K,3);
' o9 `6 ^: h- x+ L陡峭度:=IF((BARSCOUNT(CLOSE) > 7),(100)*((MA(CLOSE,7))/(LLV(MA(CLOSE,7),7)) - 1),1);+ a+ l% W; w6 u& x9 e6 ~
N:=IF((陡峭度 > 0.35),6,65);( @9 u7 E2 c; H6 c
VAR1:=((-((100)*(HHV(HIGH,N) - CLOSE))/(HHV(HIGH,N) - LLV(LOW,N))))*((DATE < 30070110));
4 }4 x5 g& C& X/ yVAR1A:=((-((100)*(HHV(HIGH,N) - CLOSE))/(HHV(HIGH,N) - LLV(LOW,N))) + 100)*((DATE < 30070110));
3 k% b. l% }* j# q赢利盘:=(WINNER(CLOSE))*(100);
/ N' r$ _% J( E( s2 C赢利线:=FORCAST(赢利盘,7);
n8 {, A7 k" g0 t% e4 P; y线:=(FORCAST(VAR1A,7))*((DATE < 30070110));! Z3 G$ h% I. I3 x* m( p8 \: R
轻仓:=IF((赢利盘 >= 60) and (线 > REF(线,1)) and (REF(线,1) < 20) and (线 < 40) and (COUNT((线 > REF(线,1)),5) = 1) and (REF(N,1) = 6),1,0);
& v4 _7 B, I8 @8 }5 x# R$ A0 d% G出击:=CROSS(线,20) and IF((COUNT(CROSS(K,D),3) = 1) and (D < 40),1,(线 > D) or (K > D) and (D < 60)) and IF((N = 6),(赢利盘 < 70),(赢利盘 < 40)) and (COUNT((赢利线 > 20),20) > 0);
; u' y. {. h! D' q" D进一:=CROSS(线,D) and (D > 30) and (D > REF(D,1)) and (D < 80);
) K6 c: `# K8 o* c% p进二:=CROSS(线,赢利线) and (D > 30) and (赢利线 > 25) and (D > REF(D,1));1 z& N% D# W6 ^- e
IF(进一 and (D > 赢利线),进二,进一);. t- j0 N/ N3 M. H2 r
================================================================================================! R5 m' c# j' K9 ~- y( ^2 z3 G
{一年十二倍--高进选股 }
% e/ ?! j5 ^& A9 nR:=((CLOSE - LLV(LOW,9))/(HHV(HIGH,9) - LLV(LOW,9)))*(100);3 U$ |. ?( x, M$ X
K:=EMA(R,3);, }6 e Q5 n c; a2 I! P, P
D:=EMA(K,3);
# w0 x5 G6 j4 F陡峭度:=IF((BARSCOUNT(CLOSE) > 7),(100)*((MA(CLOSE,7))/(LLV(MA(CLOSE,7),7)) - 1),1);
* u1 D2 \; S' U4 G: AN:=IF((陡峭度 > 0.35),6,65);6 _! V# Y4 u. P' h+ |3 f3 l
VAR1:=((-((100)*(HHV(HIGH,N) - CLOSE))/(HHV(HIGH,N) - LLV(LOW,N))))*((DATE < 30070110));5 k& X# Q( L& j9 c6 F- g. n
VAR1A:=((-((100)*(HHV(HIGH,N) - CLOSE))/(HHV(HIGH,N) - LLV(LOW,N))) + 100)*((DATE < 30070110));
- j1 L2 t( a' H2 Z: Z4 K赢利盘:=(WINNER(CLOSE))*(100);
' f, ^' l# L8 f+ ^* S! @9 U赢利线:=FORCAST(赢利盘,7);
4 K: K. K' g5 [) j; y线:=(FORCAST(VAR1A,7))*((DATE < 30070110));
9 r' w2 Y0 ^# Q; n轻仓:=IF((赢利盘 >= 60) and (线 > REF(线,1)) and (REF(线,1) < 20) and (线 < 40) and (COUNT((线 > REF(线,1)),5) = 1) and (REF(N,1) = 6),1,0);
" e/ p: {) C# {: o0 _" S7 ^出击:=CROSS(线,20) and IF((COUNT(CROSS(K,D),3) = 1) and (D < 40),1,(线 > D) or (K > D) and (D < 60)) and IF((N = 6),(赢利盘 < 70),(赢利盘 < 40)) and (COUNT((赢利线 > 20),20) > 0);( Z& z1 n6 R: G. M7 V. e0 J
进一:=CROSS(线,D) and (D > 30) and (D > REF(D,1)) and (D < 80);
2 M1 ]( Y$ i! f. K' \进二:=CROSS(线,赢利线) and (D > 30) and (赢利线 > 25) and (D > REF(D,1));
3 ~+ {) e, ?; F; w0 I( G6 u/ VCROSS(线,赢利线) and (D > 30) and (赢利线 > 25) and (D > REF(D,1));3 }& V* t3 H9 r7 L) _7 C
================================================================================================================================
; T( C. |% |9 S4 d5 d. T) `6 u% n6 A, o1 R7 z9 r& p( U$ i: F
{一年十二倍--要涨停选股 }
* \$ S( w( Y$ _+ i. R2 D+ LR:=((CLOSE - LLV(LOW,9))/(HHV(HIGH,9) - LLV(LOW,9)))*(100);& |0 Z0 C1 N Y# X' G1 j
K:=EMA(R,3);
# E" Z$ A4 q+ `3 o- Q6 l8 C0 u6 s- T. SD:=EMA(K,3);9 }7 @5 R' T( Y' a
陡峭度:=IF((BARSCOUNT(CLOSE) > 7),(100)*((MA(CLOSE,7))/(LLV(MA(CLOSE,7),7)) - 1),1);
2 X8 q, @2 |9 J3 X6 WN:=IF((陡峭度 > 0.35),6,65);) [0 N3 k& s' }1 ^7 K( y; z9 e
VAR1:=((-((100)*(HHV(HIGH,N) - CLOSE))/(HHV(HIGH,N) - LLV(LOW,N))))*((DATE < 30070110));
/ B( w5 |* m: F) VVAR1A:=((-((100)*(HHV(HIGH,N) - CLOSE))/(HHV(HIGH,N) - LLV(LOW,N))) + 100)*((DATE < 30070110));
6 L3 f' J+ M- S7 l7 S# V% Y赢利盘:=(WINNER(CLOSE))*(100);
" u2 u& V9 |" z# W5 h赢利线:=FORCAST(赢利盘,7);
- @# Z( p6 @" |线:=(FORCAST(VAR1A,7))*((DATE < 30070110));& I( F. _* X2 R; y* o
轻仓:=IF((赢利盘 >= 60) and (线 > REF(线,1)) and (REF(线,1) < 20) and (线 < 40) and (COUNT((线 > REF(线,1)),5) = 1) and (REF(N,1) = 6),1,0);. K& P; N" h9 n$ O' h! ^: }
出击:=CROSS(线,20) and IF((COUNT(CROSS(K,D),3) = 1) and (D < 40),1,(线 > D) or (K > D) and (D < 60)) and IF((N = 6),(赢利盘 < 70),(赢利盘 < 40)) and (COUNT((赢利线 > 20),20) > 0);
% x; l7 a% W5 @/ f5 z) G1 q进一:=CROSS(线,D) and (D > 30) and (D > REF(D,1)) and (D < 80);
" k ?; d: Y9 }% z6 a7 D进二:=CROSS(线,赢利线) and (D > 30) and (赢利线 > 25) and (D > REF(D,1)); |
|手机版|Archiver|
( 桂ICP备12001440号-3 )|网站地图
发表于 2019-5-22 01:01:20