TA的每日心情 | 开心 2022-5-24 11:38 |
---|
签到天数: 1563 天 [LV.Master]签到十一级
六段
- 积分
- 47060
|
MA5:MA(CLOSE,M1);
! J1 P* d& _3 q: UMA10:MA(CLOSE,M2);6 ~# |3 ^! e _6 A9 l; b, v/ a
MA20:MA(CLOSE,M3);
. d# v" x7 G% x* j' {MA55:MA(CLOSE,M4);) @: L& A( m( g: q
MA89:MA(CLOSE,M5);
7 `$ s- ~8 O" P9 I5 |+ UMA144:MA(CLOSE,M6);
' h) R: q7 L! c. ]' IMA233:MA(CLOSE,M7);
, \# k6 G) _+ r, }MA377:MA(CLOSE,M8);$ V: P- ^8 ]9 M4 y, k! P) k* n& Y
MA450:MA(CLOSE,M9);
/ N/ w6 [3 W0 Y: hMA610:MA(CLOSE,M10);
; t9 s, u; @1 k1 f. `( P+ I0 M" r& J, H0 ]涨:IF(MA20>REF(MA20,1),MA20,DRAWNULL),COLORRED,LINETHICK2;
) U* r9 Z6 o$ M Z( }2 t7 m平:=IF(MA20=REF(MA20,1),MA20,DRAWNULL),COLOR00FFFF,LINETHICK2;
# P1 r6 y$ B5 K8 ^$ I3 T跌:IF(MA20<REF(MA20,1),MA20,DRAWNULL),COLORBLUE,LINETHICK2;
( T- ~+ A5 A" D8 j PDRAWTEXT_FIX(1,0,0,0,'严格遵守520法则,破5日线减1/3, 破10日再减1/3,破20日线清仓'),COLORYELLOW;
7 {, J' P& ~; u7 N$ U% uAB股总市值:=STRCAT(STRCAT('AB股总市值:',CON2STR(FINANCE(41)/100000000,2)),'亿');* w B1 k. C0 l6 [! a% V5 e$ R
DRAWTEXT_FIX(ISLASTBAR,0,0.2,0,AB股总市值),COLORWHITE;
, F$ K* L5 [$ [1 Y, F, ^流通股市值:=STRCAT(STRCAT('流通股市值:',CON2STR(FINANCE(40)/100000000,2)),'亿');( L) q: ^8 O8 ?, z. [7 F# }
DRAWTEXT_FIX(ISLASTBAR,0,0.4,0,流通股市值),COLORWHITE;) J% l4 q& @' \) t. ~% N6 j1 p
ST:=NAMELIKE('ST')||NAMELIKE('*ST')||NAMELIKE('SST');& J( n0 e7 q/ p6 {9 Q; _
C1:=REF(C,1);, P; G4 ~: a# ?* Y8 q N& e
ST涨停:=IF(1.05*C1-C<0.005,1,0)&&ST;" z& A/ x" c8 L8 r, R/ E
非ST涨停:=IF(1.1*C1-C<0.005,1,0);
9 U7 O. w. |, K2 l4 M8 U+ n' y涨停:=ST涨停||非ST涨停;
$ n1 v( B, Z2 N8 e" R( d# U5 r( mSTICKLINE(涨停,O,C,2,0),COLOR00FFFF;# c: h; l) `8 l# i9 B
STICKLINE(涨停,H,L,0,0),COLOR00FFFF;
+ d4 ]1 w, R5 ~3 W8 j2 p0 u6 V/ gST跌停:=IF(C-0.95*C1<0.005,1,0)&&ST;1 W0 J, Q' E+ z7 E6 O" I6 S) p
非ST跌停:=IF(C-0.9*C1<0.005,1,0);
$ |) s& o* s7 f8 Q跌停:=ST跌停||非ST跌停;- O/ ~8 @# y; W2 X/ y9 q2 f
STICKLINE(跌停,O,C,2,0),COLORGREEN;
$ u" {* g8 m) LSTICKLINE(跌停,H,L,0,1),COLORGREEN;
0 H. [& o% J' [2 l半涨1:=IF((C-C1)*100/C1>=(5-0.01*100/C1),1,0);/ L! d1 Q' s8 ~2 T [, q# ?5 W
半涨2:=IF((C-C1)*100/C1<(10-0.01*100/C1),1,0); l% E5 ]: Z1 _6 R, O
JRS:=半涨1&&半涨2&&NOT(ST);3 \! m' ~" }& a8 j
{STICKLINE(JRS,O,C,2,0),COLOR0066FF;
# z% i% ^1 g, P/ ^ P ^ X: WSTICKLINE(JRS,H,L,0,0),COLOR0066FF;}
2 y1 m$ q, L' b$ I$ |- a3 O{涨停次序标注}
- n- C7 T! ^$ @8 w* {/ `NUMBER:=COUNT(非ST涨停,BARSSINCE(非ST涨停)+1),NODRAW,COLORYELLOW;
0 L3 T3 y: p+ y% n! yDRAWNUMBER(非ST涨停,H*1.04,NUMBER),COLORWHITE;
3 x$ @/ _8 {! L$ S% S上市以来共涨停:NUMBER,NODRAW,COLORYELLOW;7 X* `' B# l: B2 r4 k, l) q, s
AA节:=(360*FRACPART(((DATETODAY(DATE)-21)/(365/360))/360)),NODRAW;
& `" G/ }. H$ f9 q$ M" tA节:=INTPART(AA节/15)+1,NODRAW;节N:=A节!=REF(A节,1);
* B3 C9 X3 s! S3 U6 ^AHZ:=HHV(H,200);ALZ:=LLV(L,200); BZ0:=(AHZ-ALZ)/40;
! `+ A* j4 L4 H5 h8 eSTICKLINE(A节!=REF(A节,1),C,C-BZ0,1,1),COLOR00FFFF;
$ ^0 C; K; `+ p节气:=IF(节N AND A节=3,'立春',IF(节N AND A节=4 ,'雨水',IF(节N AND A节=5,'惊蛰',IF(节N AND A节=6,'春分',
$ `, V: l- f1 i0 h6 BIF(节N AND A节=7,'清明',IF(节N AND A节=8,'谷雨',IF(节N AND A节=9,'立夏',IF(节N AND A节=10,'小满',
+ {. Z8 @% p1 D5 fIF(节N AND A节=11,'芒种',IF(节N AND A节=12,'夏至',IF(节N AND A节=13,'小暑',IF(节N AND A节=14,'大署'," K6 n$ _8 G& S+ ~7 u" d5 e4 ]- Z
IF(节N AND A节=15,'立秋',IF(节N AND A节=16,'处暑',IF(节N AND A节=17,'白露',IF(节N AND A节=18,'秋分',- _8 q3 n+ d6 W% G$ q5 p d
IF(节N AND A节=19,'寒露',IF(节N AND A节=20,'霜降',IF(节N AND A节=21 ,'立冬',IF(节N AND A节=22,'小雪',; X2 v8 }; O+ T0 X4 C$ @2 A8 z
IF(节N AND A节=23,'大雪',IF(节N AND A节=24,'冬至',IF(节N AND A节=1,'小寒',IF(节N AND A节=2,'大寒',
! x2 L( l4 X: S/ r, FDRAWNULL))))))))))))))))))))))));DRAWTEXT(1,H+BZ0,节气),COLOR00FFFF;
1 R1 `$ T$ G" u0 ?& J月节:=IF(REFDATE(MONTH,DATE)=1,'小寒5日-7日大寒20日-22日',IF(REFDATE(MONTH,DATE)=2,'立春3日-5日雨水18日-20日',
& }( M: ]0 I, jIF(REFDATE(MONTH,DATE)=3,'惊蛰5日-7日春分20日-22日',IF(REFDATE(MONTH,DATE)=4,'清明4日-6日谷雨19日-21日',3 J$ G. B) v' [# R9 \) P
IF(REFDATE(MONTH,DATE)=5,'立夏5日-7日小满20日-22日',IF(REFDATE(MONTH,DATE)=6,'芒种5日-7日夏至21日-23日',1 D& O- Y r, J3 K$ F3 U# t* k. _
IF(REFDATE(MONTH,DATE)=7,'小暑6日-8日大暑22日-24日',IF(REFDATE(MONTH,DATE)=8,'立秋7日-9日处暑22日-24日',
" e* ~2 M+ X' d$ gIF(REFDATE(MONTH,DATE)=9,'白露7日-9日秋分22日-24日',IF(REFDATE(MONTH,DATE)=10,'寒露8日-10日霜降23日-25日',, E: p- V' w* v$ G& F6 s
IF(REFDATE(MONTH,DATE)=11,'立冬7日-9日小雪22日-24日',IF(REFDATE(MONTH,DATE)=12,'大雪6日-8日冬至21日-23日',
9 P+ D( j) k, ^DRAWNULL)))))))))))); 今日:=DATE+19000000,NODRAW;
. Q# q6 j( X% I) U; t9 K输节K:=STRCAT(CON2STR(今日,0),STRCAT('■农历节气',月节));
6 Q5 X" }( t0 A: @- l% W, Q) YDRAWTEXT_FIX(1,0.70,0.02,1,输节K),COLORWHITE;
% W+ I9 Y6 x" r% b
|
|