必需的公式送給需要的你.我分享我愿意

凡人sypls 2014-03-09

展開全文

必需的公式送給需要的你.我分享我愿意 .

{起爆點主圖公式}

DRAWGBK(C>0, RGB(40,120,20),RGB(00,00,00),0,0,1),LINETHICK2;

MA1:MA(C,1),LINETHICK1;
MA7:MA(C,7),COLORWHITE ,LINETHICK2;
MA14:MA(C,14),COLORYELLOW,LINETHICK3;

MA17:IF(MA(C,17) >MA(C,89),MA(C,21),MA(C,89))COLOR00AAFF,LINETHICK3;
MA89:MA(C,89),POINTDOT,COLORFFFFFF,LINETHICK4;
DRAWICON(CROSS(MA14,MA89),MA14,1);
DRAWICON(CROSS(MA7,MA89),MA7,1);

HIGHN:=10;LOWN:=10;HIGHDISPLAY:=0;LOWDISPLAY:=0;ZGDISPLAY:=0;MADISPLAY:=0;
AA01:=REF(H,HIGHN)=HHV(H,2*HIGHN+1);
QY:=(AA01,HIGHN+1);
CC01:=FILTER(QY,HIGHN) AND H=HHV(H,HIGHN+1);
DDDD1:=BARSLAST(CC01);
GDTS:=IF(CC01,CURRBARSCOUNT,0);
DINGBUTS:=IF(DDDD1,REF(GDTS,DDDD1),GDTS);
GDCS1:=CONST(DINGBUTS);
DINGBUTS1:=REF(DINGBUTS,DDDD1+1);
GDCS2:=CONST(DINGBUTS1);
AA111:=REF(L,LOWN)=LLV(L,2*LOWN+1);
QY1:=(AA111,LOWN+1);
CC1:=FILTER(QY1,LOWN) AND L=LLV(L,LOWN+1);
DD1:=(CC1);
DDTS:=IF(CC1,CURRBARSCOUNT,0);
DDTS1:=IF(DD1,REF(DDTS,DD1),DDTS);
DDCS1:=CONST(DDTS1);
DDTS2:=REF(DDTS1,DD1+1);
DDCS2:=CONST(DDTS2);

高點壓力:DRAWLINE(CURRBARSCOUNT=GDCS2,H,CURRBARSCOUNT=GDCS1,H,1) ,COLOR8080FF,LINETHICK3;
低點支撐:DRAWLINE(CURRBARSCOUNT=DDCS2,L,CURRBARSCOUNT=DDCS1,L,1),COLOR8080FF,LINETHICK3;

{壓力一}
TY:=C,LINETHICK2;
A001:=REF(TY,10)=HHV(TY,2*10+1),LINETHICK2;
B1:=FILTER(A001,10),LINETHICK2;
C001:=(B1,10+1),LINETHICK2; HD:=FILTER(C001,10),LINETHICK2;
A002:=REF(TY,10)=LLV(TY,2*10+1),LINETHICK2; B2:=FILTER(A002,10),LINETHICK2;
C2:=(B2,10+1),LINETHICK2; LD:=FILTER(C2,10),LINETHICK2;
前期高位:REF(C,BARSLAST(HD)),COLOR00FF00,POINTDOT,LINETHICK2;
STICKLINE(C,前期高位,前期高位,8,0),COLORYELLOW,LINETHICK2;

{壓力支撐}
N2:=5;N3:=5;
M:=INTPART(3*N2/5);{壓力線取}
AAAA:=REF(H,M)=HHV(H,2*M+1);
QYY:=(AAAA,M+1);
CCC:=FILTER(QYY,M) AND H=HHV(H,M+1);
DDDD:=BARSLAST(CCC),NODRAW;
GDTSS:=IF(CCC,CURRBARSCOUNT,0),NODRAW;
DINGBUTSS:=IF(DDDD,REF(GDTSS,DDDD),GDTSS),NODRAW;
GDCS11:=CONST(DINGBUTSS),NODRAW;
DINGBUTS11:REF(DINGBUTSS,DDDD+1),NODRAW;
GDCS22:=CONST(DINGBUTS11);
高點壓力M:DRAWLINE(CURRBARSCOUNT=GDCS22,H,CURRBARSCOUNT=GDCS11,H,1),COLORLIBLUE,LINETHICK3;
W:=INTPART(3*N3/5);
AA11:=REF(L,W)=LLV(L,2*W+1);
QY11:=(AA11,W+1);
CC11:=FILTER(QY11,W) AND L=LLV(L,W+1);
DD11:=BARSLAST(CC11);
DDTSS:=IF(CC11,CURRBARSCOUNT,0);
DDTS11:=IF(DD11,REF(DDTSS,DD11),DDTSS);
DDCS11:=CONST(DDTS11);
DDTS22:=REF(DDTS11,DD11+1);
DDCS22:=CONST(DDTS22);
低點支撐M:DRAWLINE(CURRBARSCOUNT=DDCS22,L,CURRBARSCOUNT=DDCS11,L,1),,COLORFF8000 ,LINETHICK2;

T1B:=CONST(LLVBARS(LOW,10));
T1HIGH:=CONST(REF(HIGH,T1B));
CC001:=CONST(CURRBARSCOUNT);
T2B:=CONST(BARSLAST(CURRBARSCOUNT>CC001+T1B AND H>T1HIGH));
T2HIGH:=CONST(REF(HIGH,T2B));
T3:=CONST(BARSLAST(CURRBARSCOUNT>CC001+T2B AND HIGH>T2HIGH));
T3HIGH:=CONST(REF(HIGH,T3));
必殺線:DRAWLINE(CURRBARSCOUNT=T3+1, T3HIGH, ISLASTBAR, T3HIGH, 1),COLORRED,LINETHICK3;
DRAWTEXT(ISLASTBAR, T3HIGH, '必殺線')LINETHICK1,COLOR0000FF;
MA5K:必殺線,COLORYELLOW,LINETHICK1;
{啟動分界線組件————————————————————————}
M1:=EMA(C,5);M2:=EMA(C,13);M3:=EMA(C,34);
MC1:=EMA(C,55);MC2:=EMA(C,89);MA4:=EMA(C,144);
判勢線:=NEWSAR(1,100),COLORYELLOW,LINETHICK2;

{跳空缺口組件——————————————————————————}
N:=30;
LL:=REF(L,1);
HH:=REF(H,1);
SQK:=L>HH;
XQK:=H<LL;
向上跳幾元:IF(SQK=1,L-HH,DRAWNULL),COLORGREEN,CROSSDOT,LINETHICK3,NODRAW;
逃命跳空元:IF(XQK=1,H-LL,DRAWNULL),COLORYELLOW,CROSSDOT,LINETHICK3,NODRAW;
DRAWTEXT(SQK,L*0.92,' 向上跳空'),COLOR00F0F0,LINETHICK2;
DRAWTEXT(XQK,H*1.08,' 逃命跳空'),COLOR0000FF,LINETHICK2;
{主圖中的倍量K線如何變黃色}
V2V:=V/REF(V,1)>=1.9 AND C>REF(C,1);
STICKLINE(V2V,O,C,-1,0),COLORYELLOW;
{高低標注}
DDD:=(4,5 );
DRAWTEXT(H=DDD ,H*1.02 ,'高='+DDD),COLORD3A9FF;
DRAWTEXT(L=DDD ,L ,'低='+DDD);
VARA:=(MA(C,13)+MA(C,17))/2;
VARB:=(STD(C,13)+STD(C,17))/2;
VARC:=IF((C>REF(C,1)),88,0);
VARD:=VARA+0.72*VARB;
VARF:=IF(((C)/(REF(C,1))>1.05) AND H/C<1.01 AND VARC>0,91,0);
VARE:=IF(VARB>1.88 ,MA(VARD,3),VARD);
VARG:=EMA(EMA(C,9),9);
CON:=(VARG-REF(VARG,1))/REF(VARG,1)*1000;
HCON:=100*(C*0.95);
VAR1:=EMA(EMA(EMA(C,5),5),5);
VAR2:=VAR1-REF(VAR1,1)+VAR1;
VAR3:=CROSS(VAR2,MA(VAR2,26));
VAR4:=CROSS(MA(C,13),MA(C,21));
VAR5:=(C-LLV(L,9))/(HHV(H,9)-LLV(L,9))*100;
VAR6:=3*SMA((C-LLV(L,27))/(HHV(H,27)-LLV(L,27))*100,5,1)-2*SMA(SMA((C-LLV(L,27))/(HHV(H,27)-LLV(L,27))*100,5,1),3,1);
VAR7:=IF(VAR6<=10,30,0);
VARJ:=SMA(VAR5,3,1);
VARK:=SMA(VARJ,3,1);
VARL:=EMA(SMA((C-LLV(L,19))/(HHV(H,19)-LLV(L,19))*100,8,1),3);
VARM:=SMA(MAX(C-REF(C,1),0),6,1)/SMA(ABS(C-REF(C,1)),6,1)*100;
VAR8:=(VARL>20 AND VARL<80);
VAR9:=((VARL-REF(VARL,1))>3 AND VAR8);
VAR10:=EMA(((C-LLV(L,22))/(HHV(H,22)-LLV(L,22)))*100,5);
VAR11:=EMA(((C-LLV(L,22))/(HHV(H,22)-LLV(L,22)))*50,13);
止贏賣出線:VARE*1.1,COLORRED,LINETHICK2;

{K線}
STICKLINE(CLOSE>OPEN OR CLOSE=OPEN AND CLOSE>REF(CLOSE,1),LOW,HIGH,0.0,0),COLORRED;
STICKLINE(CLOSE<OPEN OR CLOSE=OPEN AND CLOSE<=REF(CLOSE,1),LOW,HIGH,0.0,0),COLORCYAN;
STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,3,0 ),COLOR008800;
STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,2,0 ),COLOR00AA00;
STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,1,0 ),COLOR00DD00;
STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,0,0 ),COLOR00FF00;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,3,0) ,COLOR000088;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,2,0) ,COLOR0000AA;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,1,0) ,COLOR0000DD;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,0,0) ,COLOR0000FF;
11,DOTLINE,COLORBLUE;
25,DOTLINE,COLORBLUE;
4,DOTLINE,COLORBLUE;
40,DOTLINE,COLORBLUE;
64,DOTLINE,COLORBLUE;

DRAWTEXT_FIX(1,0.00,0.00,0,'主題投資：')COLOR0000FF;
DRAWTEXT_FIX(1,0.07,0.00,0,EXTERNSTR(0,1))COLOR0000FF;
DRAWTEXT_FIX(1,0.00,0.08,0,'主營業務：')COLORFF00FF;
DRAWTEXT_FIX(1,0.07,0.08,0,EXTERNSTR(0,2))COLORYELLOW;

{14上穿89 條件選股預警公式}
{膽子小的用周線月線選股安全一點}
MA7:=IF(MA(C,7) >MA(C,89),MA(C,7),MA(C,89)),LINETHICK3;
MA14:=MA(C,14),COLORYELLOW,LINETHICK3;
MA17:=IF(MA(C,17) >MA(C,89),MA(C,21),MA(C,89)),COLORFF0000,LINETHICK3;

MA89:=MA(C,89),LINETHICK3;
多頭排列:=MA7>MA14 AND  MA14>MA17 AND MA17>MA89;
當日成交量:=C>O AND V>REF(V,1) AND V>MA(V,5) AND V>MA(V,10);
流通盤:=CAPITAL/1000000<=4.53;
收陽線:= CLOSE>OPEN AND C>O
  AND DYNAINFO(23)-DYNAINFO(22);
想要的:=流通盤 AND 收陽線  &&  C/REF(C,1)>=1.015  && 當日成交量;
股價:=C>=6.50 AND C<15.36;
開盤小于:=O/REF(C,1)<1.06;
漲幅限制:=C/REF(C,1)<=1.0789;
去創業板:=IF(CODELIKE('300'),0,1);
去停牌:=DYNAINFO(17)>0;
D22:=IF(NAMELIKE('S'),0,1);
D33:=IF(NAMELIKE('*'),0,1);
去ST:=D22 AND D33;五日:= MA(V,5),COLORWHITE,LINETHICK2;
十日:= MA(V,10),COLORYELLOW,LINETHICK2;
六十日:=MA(V,60),COLORGREEN,LINETHICK2;
量線:=CROSS(五日,六十日) OR CROSS(五日,十日) OR 五日>=十日;
去不想要的:=去創業板 AND 去停牌 AND 去ST AND 股價;
上穿:= CROSS( MA14,MA89)  OR 多頭排列 AND 去不想要的 AND 想要的
AND 開盤小于 AND 漲幅限制  AND 量線;

MA01:=IF(MA(C,1) >MA(C,89),MA(C,1),MA(C,89)),LINETHICK1;
MA07:=IF(MA(C,7) >MA(C,89),MA(C,7),MA(C,89)),LINETHICK3;
MA014:=MA(C,14),COLORYELLOW,LINETHICK3;
MA017:=IF(MA(C,21) >MA(C,89),MA(C,21),MA(C,89)),LINETHICK3;
MA089:=MA(C,89),LINETHICK3;
多頭排列1:=MA7>MA14 AND  MA14>MA17 AND MA17>MA89;
當日成交量1:=C>O AND V>REF(V,1) AND V>MA(V,5) AND V>MA(V,10);
流通盤1:=CAPITAL/1000000<=4.53;
收陽線1:= CLOSE>OPEN AND C>O
  AND DYNAINFO(23)-DYNAINFO(22);
想要的1:=流通盤 AND 收陽線  &&  C/REF(C,1)>=1.015 && 當日成交量1 ;
股價1:=C>=6.50 AND C<16.36;
開盤小于1:=O/REF(C,1)<1.06;
漲幅限制1:=C/REF(C,1)<=1.0789;
去創業板1:=IF(CODELIKE('300'),0,1);
去停牌1:=DYNAINFO(17)>0;
D221:=IF(NAMELIKE('S'),0,1);
D331:=IF(NAMELIKE('*'),0,1);
去ST1:=D22 AND D33;
五日1:= MA(V,5),COLORWHITE,LINETHICK2;
十日1:= MA(V,10),COLORYELLOW,LINETHICK2;
六十日1:=MA(V,60),COLORGREEN,LINETHICK2;
量線1:=CROSS(五日,六十日) OR CROSS(五日,十日) OR 五日>=十日;
去不想要的1:=去創業板 AND 去停牌 AND 去ST AND 股價;

上穿1:= CROSS(MA01, MA017) OR 多頭排列1
AND 去不想要的1  AND 想要的1
AND 開盤小于1  AND 漲幅限制1 ;
上穿 OR 上穿1;