当前位置：分析家公式网 → 股票公式 → 通达信公式 → 一键转帖：财神来敲门，数字版（通达信公式 主图 源码 测试图）
软件名称：[B]财神来敲门，数字版（通达信公式 主图 源码 测试图）[/B]
软件类型：国产软件
运行环境：Win9X/Win2000/WinXP/Win2003/Win7/
软件语言：简体中文
授权方式：免费版
软件大小：11.0 KB
官方主页：Home Page
更新时间：2020-04-08 00:19:32
软件简介:
财神来敲门，数字版
引用红色三线老师的帖子，参照我的最新版135战法模式，重新更改了标注方法。
{跃上海平面}
N:=10;
TA:=MAX(MAX((HIGH-LOW),ABS(REF(CLOSE,1)-HIGH)),ABS(REF(CLOSE,1)-LOW));
ATR:=EMA(TA,5);
VAR81:=REF(CLOSE,N)-REF(ATR,1);
仙界线:=HHV(VAR81,5),COLORYELLOW;
{WWW.70822.com}
{资金流入带主图；相当于5日均线。}
初始流入:=FINANCE(21)/100000000,COLORCYAN,NODRAW;
逐步流入:=FINANCE(23)/100000000,COLORRED,NODRAW;
加快流入:=FINANCE(30)/100000000,COLORRED,NODRAW;
准备上攻:=FINANCE(19)/100000000,COLORGREEN,NODRAW;
MACC1:=EMA(C,2),COLOR0000FF,LINETHICK1;
MACC2:=REF(MACC1,1),COLORFFFFFF;
MACC3:=EMA(EMA(C,7),6),COLOR00FFFF,LINETHICK1;
XGL:DRAWBAND(MACC1,RGB(255,160,0),MACC2,RGB(10,200,0));
{盖住双横杠}
F:=C/O;
STICKLINE(F>=1,C,O,2.8,1),COLORRED;
STICKLINE(F>=1,C,H,0.00001,0),COLORRED;
STICKLINE(F>=1,L,O,0.00001,0),COLORRED;
STICKLINE(F<1,C,O,2.8,0),COLORCYAN;
STICKLINE(F<1,O,H,0.00001,0),COLORCYAN;
STICKLINE(F<1,L,C,0.00001,0),COLORCYAN;
{3、重要的主图K线上的红色买点柱}
XA_1J:=EMA(EMA(CLOSE,23),23);
XA_2J:=(XA_1J-REF(XA_1J,1))/REF(XA_1J,1)*1000;
XA_3J:=DYNAINFO(11);
XA_4J:=(EMA(CLOSE,10)-EMA(CLOSE,60))*10;
XA_5J:=EMA(XA_4J,5);
XA_6J:=(CLOSE-XA_3J)/XA_3J<(-0.03);
XA_7J:=(CLOSE-XA_3J)/XA_3J<(-0.03);
XA_8J:=LAST(XA_3J>=REF(XA_3J,1),5,1) AND (CLOSE-XA_3J)/XA_3J<0.005;
XA_9J:=(CLOSE-XA_3J)/XA_3J>0.005;
XA_10J:=XA_2J<REF(XA_2J,1) AND XA_2J>0.5;
XA_11J:=XA_2J>0;
XA_12J:=XA_2J>REF(XA_2J,1) AND XA_2J<(-0.2);
XA_13J:=XA_2J>REF(XA_2J,1) AND XA_2J<0;
XA_14J:=CROSS(XA_4J,XA_5J) AND XA_4J<(-0.3);
XA_15J:=FILTER(XA_6J AND XA_12J AND XA_14J,15);
买点柱:=FILTER(XA_7J AND XA_12J AND XA_14J,15);
DRAWTEXT(买点柱,H*1.01,'1'),COLORRED;
{5日变色线}
越过成仙M240:=MA(C,240),COLORGRAY,LINETHICK1;
M144:=MA(C,144),COLORWHITE,LINETHICK1;
M88:=MA(C,88),COLORLIGRAY,LINETHICK1;
越过有道M120:=MA(C,110),COLORMAGENTA,LINETHICK3;
越过强势M60:=MA(C,60),COLORLIGRAY,LINETHICK3;
M30:=MA(C,27),COLORGREEN,LINETHICK2;
M20:=MA(C,17),COLORMAGENTA,LINETHICK2;
M10:=MA(C,10),COLORWHITE,LINETHICK1;
M5:=MA(C,3),COLORRED,LINETHICK3;
{2、短期下插线}
AN1:=MA(C,3);
AN2:=MA(C,21);
AN3:=(AN1+AN2)/2;
{6、短下插操作线无未来}
BR:=MA(CLOSE,13)+MA(CLOSE,13)-REF(MA(CLOSE,13),1);
分水岭R:=IF(MA(CLOSE,17)<BR,BR,MA(CLOSE,17)),COLORFF00FF,NODRAW;
YR:=分水岭R-(EMA(C,3)-分水岭R),DOTLINE,LINETHICK1;
OUTF:=CROSS(M5,YR);
{4、黄s块及坑后上涨}
NQ:=20;
M1P:=30;
P1P:=80;
P2P:=100;
VAR1P:=(C+H+O+L)/4;
买入P:=XMA(VAR1P,M1P)*(1-P2P/1000),COLORYELLOW,LINETHICK2;
STICKLINE(买入P>HIGH,OPEN,CLOSE,2,0),COLORYELLOW;
STICKLINE(买入P>HIGH,HIGH,LOW,0,0),COLORYELLOW;
STICKLINE(CCI<=100 AND L<=买入P,(L + H + O) / 3.18,O,3,0),COLORYELLOW;
反弹P:=MA(EMA(EMA(HIGH,5),5),5)*0.95,LINETHICK1;
XG1P:=CROSS(买入P,反弹P);
DRAWTEXT(XG1P,L*0.98,'1'),COLORWHITE;
{13、飓风眼启爆}
AHC1:=CLOSE*VOL;
AHC2:=EMA((EXPMA(AHC1,2)/EXPMA(VOL,2)+EXPMA(AHC1,5)/EXPMA(VOL,5)+EXPMA
(AHC1,10)/EXPMA(VOL,10)+EXPMA(AHC1,20)/EXPMA(VOL,20))/4,10),COLORYELLOW;
风向R:=1.06*AHC2,LINETHICK2,COLORWHITE;
吹:=1.13*AHC2,LINETHICK2,COLORWHITE;
ZT:=REF(C,1)*1.1-C<0.01 AND H=C;
飓风:=CROSS(C,风向R) AND ZT;
DRAWTEXT(飓风,H*1.01,'1'),COLORBLUE;
{7、黑夜之眼}
MMM:=1;
SVOL:=INTPART(SUM(V,0)/CAPITAL);
TJ0:=SVOL>REF(SVOL,1) OR BARSSINCE(CLOSE)=0;
SF1:=BARSLAST(TJ0)+1;
TJJ2:=SF1<REF(SF1,1);
S2:=IF(TJJ2,REF(SF1,1)+1,SF1);
S3:=SUM(TJJ2,0);
ZK1:="KD.K#WEEK"(9,3,3);
ZD2:="KD.D#WEEK"(9,3,3);
ZF1:="MACD.DIF#WEEK"(5,34,5);
ZA2:="MACD.DEA#WEEK"(5,34,5);
换手:=V/CAPITAL*100,LINETHICK0;
JCD:=CROSS(ZK1,ZD2) AND REF(ZD2,1)<60;
波段低点:=EXIST(JCD,MMM),COLORYELLOW,NODRAW;
DRAWTEXT(波段低点,L*0.98,'1'),COLORGREEN;
{2、A3及A15D}
A:=EMA((EMA(C,29)+EMA(C,31)+EMA(C,33))/3,3);
A1:=EMA((EMA(C,1)+EMA(C,3)+EMA(C,5))/3,3),COLOR1010FF;
A2:=EMA((EMA(C,3)+EMA(C,5)+EMA( C,7))/3,3),COLOR1020FF;
A3:=IF(K2!=2,EMA((EMA(C,5)+EMA(C,6)+EMA( C,7))/3,3),DRAWNULL),COLORCYAN,LINETHICK3;
A4:=IF(K2!=2, EMA((EMA(C,7)+EMA(C,9)+EMA( C,11))/3,3),DRAWNULL),COLOR1040FF;
A5:=IF(K2!=2, EMA((EMA(C,9)+EMA(C,11)+EMA( C,13))/3,3),DRAWNULL)COLOR1050FF;
A6:=IF(K2!=2, EMA((EMA(C,11)+EMA(C,13)+EMA( C,15))/3,3),DRAWNULL)COLOR1060FF;
A7:=IF(K2!=2, EMA((EMA(C,13)+EMA(C,15)+EMA( C,17))/3,3),DRAWNULL)COLOR1070FF;
A8:=IF(K2!=2, EMA((EMA(C,15)+EMA(C,17)+EMA( C,19))/3,3),DRAWNULL)COLOR1080FF;
A9:=IF(K2!=2, EMA((EMA(C,17)+EMA(C,19)+EMA( C,21))/3,3),DRAWNULL),COLORLIMAGENTA;
A10D:=IF(K2!=2, EMA((EMA(C,19)+EMA(C,21)+EMA( C,23))/3,3),DRAWNULL),COLORLIMAGENTA;
A11D:=IF(K2!=2, EMA((EMA(C,21)+EMA(C,23)+EMA( C,25))/3,3),DRAWNULL),COLORWHITE,LINETHICK2;
A15D:IF(K2!=2, A-(A1-A*0.977),DRAWNULL),COLORBLUE,LINETHICK3;
{11、变色下插线}
B55:=ATAN((A15D/REF(A15D,1)-1)*100)*180/3.1416;
IF(55>30 AND A15D>REF(A15D,1), A15D,DRAWNULL),COLORCYAN,LINETHICK3;
B100:=ATAN((M5/REF(M5,1)-1)*100)*180/3.1416;
IF(B55<0 AND A15D<REF(A15D,1), A15D,DRAWNULL),COLORRED,LINETHICK3;
{12、黄s起飞跑道}
OUT1:=CROSS(M5,A15D);
DRAWICON(OUT1,L*0.96,13);{红球}
{三轨主图}
MC:=100;
NN:=0.4;
MIDZ:MA(CLOSE,MC),COLORWHITE,LINETHICK3;
{4、大叉出现在坑边！}
BCC:=MA(CLOSE,34)+MA(CLOSE,34)-REF(MA(CLOSE,34),1);
分水岭C:=IF(MA(CLOSE,161)<BCC,BCC,MA(CLOSE,161)),LINETHICK1,POINTDOT;
下插线C:分水岭C-(EMA(C,3)-分水岭C),LINETHICK3,COLORYELLOW;
XGC:IF(下插线C>AN3,下插线C,DRAWNULL),COLORBROWN,LINETHICK3;
{越过有道120上穿MIDZ,红色三线}
OUT11:=CROSS(M5,A15D);
DRAWTEXT(OUT11,L*0.98,'3'),COLORYELLOW;
{★坑边信赖}
QFO3:=100-3*SMA((CLOSE-LLV(LOW,42))/(HHV(HIGH,42)-LLV(LOW,42))*100,5,1)
+2*SMA(SMA((CLOSE-LLV(LOW,42))/(HHV(HIGH,42)-LLV(LOW,42))*100,20,1),8,1);
QFO4:=100-3*SMA((OPEN-LLV(LOW,66))/(HHV(HIGH,66)-LLV(LOW,66))*100,8,1)
+2*SMA(SMA((OPEN-LLV(LOW,66))/(HHV(HIGH,66)-LLV(LOW,66))*100,20,1),5,1);
QFO5:=QFO3<REF(QFO4,1) AND VOL>REF(VOL,1) AND CLOSE>REF(CLOSE,1);
XG2C:=IF(QFO5 AND COUNT(QFO5,30)=1,20,0),STICK,LINETHICK2,COLORRED;
{STICKLINE(XG2C,L*1.02,L*1.27,0.00001,0),COLORCYAN;}
DRAWTEXT(C>REF(C,1) AND REF(RSI,1)>0 AND XG2C,L*0.98,'3'),COLORBLUE;
[url=http://www.70822.com/soft/sort013/sort05/down-146644.html]财神来敲门，数字版（通达信公式 主图 源码 测试图）[/url]