FS调用子公式
{FS调用子公式-附图}
PT := H-L,NODRAW;
CDP :=(O+H+L+C*2)/5;
PT1 := ((H-L)/2)/CDP*100,NODRAW;
CDP1:=CDP+PT/2;
CDP2:=CDP-PT/2;
震幅 : REF(PT1,1),NODRAW;
下限 : REF(CDP2,1);
中线 : REF(CDP,1);
上限 : REF(CDP1,1);
MA5: MA(C, 5);
MA10: MA(C,10);
FS引入昨高低1
{------日线引入分时图(通达信-分时-附图公式)----------}
{另先建好: FS调用子公式}
昨震幅: "FS调用子公式.震幅#DAY",NODRAW;
昨上限: "FS调用子公式.上限#DAY",COLORRED;
昨中线: "FS调用子公式.中线#DAY",COLORMAGENTA;
昨下限: "FS调用子公式.下限#DAY",COLORGREEN;
TT:=BARSCOUNT(C);
{均线黄: SUM(C*V,TT)/SUM(VOL,TT),COLORYELLOW;}
CC: CLOSE,COLORWHITE,LINETHICK0;
STICKLINE(C>=O,C,O,3,1),COLORRED;
STICKLINE(C>=O,L,O,0,1),COLORRED;
STICKLINE(C>=O,H,C,0,0),COLORRED;
STICKLINE(C<O,C,O,3,0),COLORFFFF00;
STICKLINE(C<O,H,L,0,0),COLORFFFF00;
STICKLINE(C<O,C,O,2,0),COLORFFFF00;
STICKLINE(C<O,C,O,2,0),COLORFFFF00;
操盘线
PT := REF(H,1)-REF(L,1),NODRAW;
PT1 := H-L,NODRAW;
CDP :=(REF(O,1)+REF(H,1)+REF(L,1)+REF(CLOSE,1)*2)/5,LINETHICK1,COLORMAGENTA;
上限 :CDP + PT/2,COLORRED,NODRAW;
重心 REF(O,1)+REF(H,1)+REF(L,1)+REF(CLOSE,1)*2)/5,LINETHICK2,COLORWHITE;
下限 :CDP - PT/2,COLORGREEN,NODRAW;
ZZ O+H+L+C*2)/5,COLORYELLOW,NODRAW;
HHH:=CONST(HHV(H,100));
LLL:=CONST(LLV(L,100));
HH:=HHH-LLL;
TJ2:= CURRBARSCOUNT=58;
JJ:=(H+L+C*2)/4;
VAR1:=(8*JJ+7*REF(JJ,1)+6*REF(JJ,2)+5*REF(JJ,3)+4*REF(JJ,4)+3*REF(JJ,5)+2*REF(JJ,6)+REF(JJ,8))/36;
TJ1:=VOL=HHV(VOL,10) AND VOL>2*REF(VOL,1) AND CLOSE>VAR1 AND C>REF(C,1);
LJL:=FILTER(TJ1,5);
TJ12:=IF(BARSLAST(LJL)=1 AND CLOSE>REF(HIGH,1),1,IF(BARSLAST(LJL)=2 AND CLOSE>REF(HIGH,2),1,IF(BARSLAST(LJL)=3 AND CLOSE>REF(HIGH,3),1,0)));
TP:=TJ12=1;
TJ3:=IF(BARSLAST(LJL)=1 AND CLOSE>REF(LOW,1),1,IF(BARSLAST(LJL)=2 AND CLOSE>REF(LOW,2),1,IF(BARSLAST(LJL)=3 AND CLOSE>REF(LOW,3),1,0)));
STFZ:=TJ3=1;
CL:=STFZ AND TP;
TJCL:=FILTER(CL,3);
STICKLINE(LJL,OPEN,CLOSE,1,0),COLORYELLOW;
{Q:=(H+L+C*2)/4;
DRAWKLINE(Q,Q,Q,Q);};
M1:=5;
X:=(O+H+L+C*2)/5;
LLJX:=EMA(X,M1);
B1:EMA(X,7),LINETHICK2,COLORCYAN;
B2:EMA(X,13),COLORCYAN;
B3:EMA(X,21),COLORCYAN;
B4:EMA(X,34),COLORCYAN;
B5:EMA(X,55),COLORCYAN;
B6:EMA(X,89),LINETHICK2,COLORCYAN;
A1:IF(B1>REF(B1,1),B1,DRAWNULL),LINETHICK2,COLORRED;
A2:IF(B2>REF(B2,1),B2,DRAWNULL),COLORRED;
A3:IF(B3>REF(B3,1),B3,DRAWNULL),COLORRED;
A4:IF(B4>REF(B4,1),B4,DRAWNULL),COLORRED;
A5:IF(B5>REF(B5,1),B5,DRAWNULL),COLORRED;
A6:IF(B6>REF(B6,1),B6,DRAWNULL),LINETHICK2,COLORRED;
STICKLINE(C>=O,C,O,3,1),COLORRED;
STICKLINE(C>=O,L,O,0,1),COLORRED;
STICKLINE(C>=O,H,C,0,0),COLORRED;
STICKLINE(C<O,C,O,3,0),COLORFFFF00;
STICKLINE(C<O,H,L,0,0),COLORFFFF00;
STICKLINE(C<O,C,O,2,0),COLORFFFF00;
STICKLINE(C<O,C,O,2,0),COLORFFFF00;
STICKLINE((C-REF(C,1))/REF(C,1)<-0.036,O,C,0.09,0),COLORLIMAGENTA;
STICKLINE((C-REF(C,1))/REF(C,1)>0.036,O,C,0.2,0),COLORYELLOW;
STICKLINE((C-REF(C,1))/REF(C,1)<-0.036,X,X,2,1),LINETHICK4,COLORWHITE;
STICKLINE((C-REF(C,1))/REF(C,1)>0.036,X,X,2,1),LINETHICK4,COLORMAGENTA;
大盘K线附图
M1:=5;
X:=(INDEXO+INDEXH+INDEXL+INDEXC*2)/5;
CDP REF(INDEXO,1)+REF(INDEXH,1)+REF(INDEXL,1)+REF(INDEXC,1)*2)/5,LINETHICK2,COLORWHITE;
LLJX:=EMA(X,M1);
C7:EMA(X,7),LINETHICK2;
C13:EMA(X,13),LINETHICK2;
C21:EMA(X,21),LINETHICK2;
C34:EMA(X,34),LINETHICK2;
C55:EMA(X,55),LINETHICK2;
_±:"999999$C"-REF("999999$C",1),COLORLIGRAY,NODRAW;
涨跌:_±/REF("999999$C",1)*100,COLORMAGENTA,NODRAW;
涨家数:INDEXADV,NODRAW,COLORLIMAGENTA ;
跌家数:INDEXDEC,NODRAW,COLORGREEN;
STICKLINE(INDEXC>=INDEXO,INDEXC,INDEXO,3,1),COLORRED;
STICKLINE(INDEXC>=INDEXO,INDEXL,INDEXO,0,1),COLORRED;
STICKLINE(INDEXC>=INDEXO,INDEXH,INDEXC,0,0),COLORRED;
STICKLINE(INDEXC<INDEXO,INDEXC,INDEXO,3,0),COLORFFFF00;
STICKLINE(INDEXC<INDEXO,INDEXH,INDEXL,0,0),COLORFFFF00;
STICKLINE(INDEXC<INDEXO,INDEXC,INDEXO,2,0),COLORFFFF00;
STICKLINE(INDEXC<INDEXO,INDEXC,INDEXO,2,0),COLORFFFF00;
AAA---MACD
X:=(O+H+L+C*2)/5;
DIF:=EMA(X,5)-EMA(X,34),LINETHICK2,COLORLIMAGENTA;
DEA:=EMA(DIF,5),LINETHICK2;
MACD DIF-DEA)*2,COLORSTICK;
STICKLINE(MACD>REF(MACD,1)AND MACD<0,0,MACD,0.5,0),COLORFF00FF;
STICKLINE(MACD>REF(MACD,1)AND MACD>0,0,MACD,0.5,0),COLORRED;
STICKLINE(MACD<REF(MACD,1)AND MACD<0,0,MACD,0.5,0),COLORYELLOW;
STICKLINE(MACD<REF(MACD,1)AND MACD>0,0,MACD,0.5,0),COLORYELLOW;
LLJX:=DIF;
B1:EMA(LLJX,1),COLORCYAN;
B2:EMA(LLJX,2),COLORCYAN;
B3:EMA(LLJX,3),COLORCYAN;
B4:EMA(LLJX,4),COLORCYAN;
B5:EMA(LLJX,5),COLORRED;
B6:EMA(LLJX,6),COLORCYAN;
B7:EMA(LLJX,7),COLORCYAN;
B8:EMA(LLJX,8),COLORCYAN;
B9:EMA(LLJX,9),COLORCYAN;
B10:EMA(LLJX,10),COLORCYAN;
A1:IF(B1>REF(B1,1),B1,DRAWNULL),COLORRED;
A2:IF(B2>REF(B2,1),B2,DRAWNULL),COLORRED;
A3:IF(B3>REF(B3,1),B3,DRAWNULL),COLORRED;
A4:IF(B4>REF(B4,1),B4,DRAWNULL),COLORRED;
A5:IF(B5>REF(B5,1),B5,DRAWNULL)COLORYELLOW;
A6:IF(B6>REF(B6,1),B6,DRAWNULL),COLORRED;
A7:IF(B7>REF(B7,1),B7,DRAWNULL),COLORRED;
A8:IF(B8>REF(B8,1),B8,DRAWNULL),COLORRED;
A9:IF(B9>REF(B9,1),B9,DRAWNULL),COLORRED;
A10:IF(B10>REF(B10,1),B10,DRAWNULL),COLORRED;
量柱量线
VVOL:=IF(CURRBARSCOUNT=1 AND PERIOD=5,VOL*240/FROMOPEN,DRAWNULL),NODRAW;
STICKLINE(CURRBARSCOUNT=1 AND PERIOD=5,VVOL,0,-1,-1),COLOR00C0C0;
VOLUME:VOL,VOLSTICK;
AA:=VOL>REF(V,1)*1.9;
AA1:=VOL<REF(LLV(VOL,13),1);
AA2:=VOL<REF(LLV(VOL,55),1);
STICKLINE(AA,0,V,1,0),COLORYELLOW;
STICKLINE(AA1,0,V,1,0),COLORGREEN;
STICKLINE(AA2,0,V,1,0),COLORMAGENTA;
TJ1:=COUNT(V>REF(V,1)*1.9,4)=1;
TJ2:=COUNT(V<REF(V,1) AND L>MIN(L,4) AND L>REF(L,1),3)=3 ;
TJ3:=TJ1 AND TJ2;
STICKLINE(TJ3,0,V,1,0),COLORRED;
倍:IF(V/REF(V,1)>1.9 AND C>REF(C,1),1,0);
倍缩:VOL<=REF(V,1)*0.5,NODRAW,COLORRED;
高:IF(V=HHV(V,10),1,0);
低:IF(V=LLV(V,10),1,0);
缩:IF(V<REF(V,1) AND REF(V,1)<REF(V,2) AND REF(V,2)<REF(V,3),1,0);
平:IF((V/REF(V,1)>0.95 AND V/REF(V,1)<1.05),1,0);
T1:=COUNT(V>REF(V,1)*1.7 ,4)=1; {倍量}
C1:=COUNT(VOL<=REF(VOL,1),3)=3; {连着3天缩量}
D1:=COUNT(CLOSE>=REF(CLOSE,1),3)=3; {连着3天股价上扬}
T1 AND C1 AND D1;
LLJX:=EMA(V,7);
B1:EMA(LLJX,1),COLORCYAN;B2:EMA(LLJX,2),COLORCYAN;
B3:EMA(LLJX,3),COLORCYAN;
B4:EMA(LLJX,4),COLORCYAN;
B5:EMA(LLJX,5),COLORRED;
B6:EMA(LLJX,6),COLORCYAN;
B7:EMA(LLJX,7),COLORCYAN;
B8:EMA(LLJX,8),COLORCYAN;
B9:EMA(LLJX,9),COLORCYAN;
B10:EMA(LLJX,10),COLORCYAN;
A1:IF(B1>REF(B1,1),B1,DRAWNULL),COLORRED;
A2:IF(B2>REF(B2,1),B2,DRAWNULL),COLORRED;
A3:IF(B3>REF(B3,1),B3,DRAWNULL),COLORRED;
A4:IF(B4>REF(B4,1),B4,DRAWNULL),COLORRED;
A5:IF(B5>REF(B5,1),B5,DRAWNULL)COLORYELLOW;
A6:IF(B6>REF(B6,1),B6,DRAWNULL),COLORRED;
A7:IF(B7>REF(B7,1),B7,DRAWNULL),COLORRED;
A8:IF(B8>REF(B8,1),B8,DRAWNULL),COLORRED;
A9:IF(B9>REF(B9,1),B9,DRAWNULL),COLORRED;
A10:IF(B10>REF(B10,1),B10,DRAWNULL),COLORRED; |