当前位置：分析家公式网 → 股票公式 → 通达信公式 → 一键转帖：华尔街预警主图（通达信公式 主图 源码 测试图）
软件名称：[B]华尔街预警主图（通达信公式 主图 源码 测试图）[/B]
软件类型：国产软件
运行环境：Win10/Win9X/Win8/Win2000/WinXP/Win2003/Win7/
软件语言：简体中文
授权方式：免费版
软件大小：12.0 KB
官方主页：Home Page
更新时间：2022-09-06 00:15:25
软件简介:
华尔街预警主图
NA:=STRCAT(CON2STR(YEAR,0),1);
YA:=STRCAT(CON2STR(MONTH,0),2);
RA:=STRCAT(CON2STR(DAY,0),3);
SJ:=STRCAT(STRCAT(NA,YA),RA);
DRAWTEXT_FIX((C > 0),0.88,0,0,SJ);
买线:=EMA(C,2);
卖线:=EMA(((SLOPE(C,21) * 20) + C),42);
STICKLINE((买线 >= 卖线),HHV(H,60),LLV(L,60),5,0),COLOR000045;
STICKLINE((买线 < 卖线),HHV(H,60),LLV(L,60),5,0),COLOR004500;
红轨道:=MA(MA(CLOSE,3),1);
轨道:MA(MA(CLOSE,3),3),LINETHICK2,COLOR32CD32;
SHENG:=IF((红轨道 >= 轨道),轨道,DRAWNULL);
升:SHENG,LINETHICK2,COLORMAGENTA;
N1:=14;
M:=6;
TR1:=EXPMEMA(MAX(MAX((HIGH - LOW),ABS((HIGH - REF(CLOSE,1)))),ABS((REF(CLOSE,1) - LOW))),N1);
HD:=(HIGH - REF(HIGH,1));
LD:=(REF(LOW,1) - LOW);
DMP:=EXPMEMA(IF(((HD > 0) AND (HD > LD)),HD,0),N1);
DMM:=EXPMEMA(IF(((LD > 0) AND (LD > HD)),LD,0),N1);
PDI:=((DMP * 100) / TR1);
MDI:=((DMM * 100) / TR1);
ADX:=EXPMEMA(((ABS((MDI - PDI)) / (MDI + PDI)) * 100),M);
ADXR:=EXPMEMA(ADX,M);
VAR1:=((CLOSE > REF(CLOSE,1)) AND (CLOSE > REF(CLOSE,2)));
VAR2:=((REF(VAR1,1) AND (CLOSE <= REF(CLOSE,1))) AND (CLOSE >= REF(CLOSE,2)));
VAR3:=((REF(VAR2,1) AND (CLOSE >= REF(CLOSE,1))) AND (CLOSE <= REF(CLOSE,2)));
VAR4:=((REF(VAR3,1) AND (CLOSE <= REF(CLOSE,1))) AND (CLOSE >= REF(CLOSE,2)));
VAR5:=((REF(VAR4,1) AND (CLOSE >= REF(CLOSE,1))) AND (CLOSE <= REF(CLOSE,2)));
VAR6:=((REF(VAR5,1) AND (CLOSE <= REF(CLOSE,1))) AND (CLOSE >= REF(CLOSE,2)));
VAR7:=((REF(VAR6,1) AND (CLOSE >= REF(CLOSE,1))) AND (CLOSE <= REF(CLOSE,2)));
VAR8:=((REF(VAR7,1) AND (CLOSE <= REF(CLOSE,1))) AND (CLOSE >= REF(CLOSE,2)));
VAR9:=((REF(VAR8,1) AND (CLOSE >= REF(CLOSE,1))) AND (CLOSE <= REF(CLOSE,2)));
VARA:=((REF(VAR9,1) AND (CLOSE <= REF(CLOSE,1))) AND (CLOSE >= REF(CLOSE,2)));
VARB:=((REF(VARA,1) AND (CLOSE >= REF(CLOSE,1))) AND (CLOSE <= REF(CLOSE,2)));
VARC:=((REF(VARB,1) AND (CLOSE <= REF(CLOSE,1))) AND (CLOSE >= REF(CLOSE,2)));
STICKLINE((((((((((((VAR1 OR VAR2) OR VAR3) OR VAR4) OR VAR5) OR VAR6) OR VAR7) OR VAR8) OR VAR9) OR VARA) OR VARB) OR VARC),CLOSE,REF(CLOSE,1),3,1),COLORRED;
VARD:=((CLOSE < REF(CLOSE,1)) AND (CLOSE < REF(CLOSE,2)));
VARE:=((REF(VARD,1) AND (CLOSE >= REF(CLOSE,1))) AND (CLOSE <= REF(CLOSE,2)));
VARF:=((REF(VARE,1) AND (CLOSE <= REF(CLOSE,1))) AND (CLOSE >= REF(CLOSE,2)));
VAR10:=((REF(VARF,1) AND (CLOSE >= REF(CLOSE,1))) AND (CLOSE <= REF(CLOSE,2)));
VAR11:=((REF(VAR10,1) AND (CLOSE <= REF(CLOSE,1))) AND (CLOSE >= REF(CLOSE,2)));
VAR12:=((REF(VAR11,1) AND (CLOSE >= REF(CLOSE,1))) AND (CLOSE <= REF(CLOSE,2)));
VAR13:=((REF(VAR12,1) AND (CLOSE <= REF(CLOSE,1))) AND (CLOSE >= REF(CLOSE,2)));
VAR14:=((REF(VAR13,1) AND (CLOSE >= REF(CLOSE,1))) AND (CLOSE <= REF(CLOSE,2)));
VAR15:=((REF(VAR14,1) AND (CLOSE <= REF(CLOSE,1))) AND (CLOSE >= REF(CLOSE,2)));
VAR16:=((REF(VAR15,1) AND (CLOSE >= REF(CLOSE,1))) AND (CLOSE <= REF(CLOSE,2)));
VAR17:=((REF(VAR16,1) AND (CLOSE <= REF(CLOSE,1))) AND (CLOSE >= REF(CLOSE,2)));
VAR18:=((REF(VAR17,1) AND (CLOSE >= REF(CLOSE,1))) AND (CLOSE <= REF(CLOSE,2)));
STICKLINE((((((((((((VARD OR VARE) OR VARF) OR VAR10) OR VAR11) OR VAR12) OR VAR13) OR VAR14) OR VAR15) OR VAR16) OR VAR17) OR VAR18),CLOSE,REF(CLOSE,1),3,0),COLORC08000;
VAR19:=(REF((((((((((((VARD OR VARE) OR VARF) OR VAR10) OR VAR11) OR VAR12) OR VAR13) OR VAR14) OR VAR15) OR VAR16) OR VAR17) OR VAR18),1) AND VAR1);
STICKLINE(VAR19,REF(CLOSE,1),REF(CLOSE,2),3,0),COLORMAGENTA;
VAR1A:=(REF((((((((((((VAR1 OR VAR2) OR VAR3) OR VAR4) OR VAR5) OR VAR6) OR VAR7) OR VAR8) OR VAR9) OR VARA) OR VARB) OR VARC),1) AND VARD);
STICKLINE(VAR1A,REF(CLOSE,1),REF(CLOSE,2),3,0),COLORGREEN;
N:=7;
T1:=CONST(LLVBARS(LOW,N));
T1HIGH:=CONST(REF(HIGH,T1));
CC:=CONST(CURRBARSCOUNT);
T2:=CONST(BARSLAST(((CURRBARSCOUNT > (CC + T1)) AND (HIGH > T1HIGH))));
T2HIGH:=CONST(REF(HIGH,T2));
T3:=CONST(BARSLAST(((CURRBARSCOUNT > (CC + T2)) AND (HIGH > T2HIGH))));
T3HIGH:=CONST(REF(HIGH,T3));
突破杀入线:DRAWLINE((CURRBARSCOUNT = (T3 + 1)),T3HIGH,ISLASTBAR,T3HIGH,1),COLORYELLOW;
DRAWTEXT(ISLASTBAR,T3HIGH,4),COLORYELLOW;
AB:=EMA((((((((2 * C) + H) + L) / 4) - LLV(LOW,30)) / (HHV(HIGH,30) - LLV(LOW,30))) * 100),8);
BA:=EMA(AB,5);
A1:=REFDATE(REF(HHV(H,96),5),DATE);
B1:=REFDATE(REF(LLV(L,96),5),DATE);
DY:=((A1 + B1) / 2);
箱顶:IF(((AB > 0) AND ((AB - BA) <= 0)),A1,A1),DOTLINE,COLORGREEN;
箱腰:IF(((AB > 0) AND ((AB - BA) <= 0)),DY,DY),DOTLINE,COLORYELLOW;
箱低:IF(((AB > 0) AND ((AB - BA) <= 0)),B1,B1),DOTLINE,COLORRED;
DRAWTEXT(ISLASTBAR,箱顶,5),COLORYELLOW;
DRAWTEXT(ISLASTBAR,箱腰,6),COLORYELLOW;
DRAWTEXT(ISLASTBAR,箱低,7),COLORYELLOW;
VARAA:=IF((CLOSE > 150),91.3,0.913);
STICKLINE(CROSS(ZIG(3,5),REF(ZIG(3,5),1)),箱低,箱腰,0.1,-1),COLORRED;
STICKLINE(CROSS(REF(ZIG(3,5),1),ZIG(3,5)),箱顶,箱腰,0.1,-1),COLORGREEN;
DRAWICON(CROSS(ZIG(3,5),REF(ZIG(3,5),1)),箱腰,1);
DRAWICON(CROSS(REF(ZIG(3,5),1),ZIG(3,5)),箱腰,2);
DRAWTEXT_FIX((CURRBARSCOUNT = 1),0.02,0.01,0,8),COLORRED;
DRAWTEXT_FIX((CURRBARSCOUNT = 1),0.02,0.05,0,9),COLORGREEN;
DRAWTEXT_FIX((CURRBARSCOUNT = 1),0.02,0.1,0,10),COLORGREEN;
DRAWTEXT_FIX((CURRBARSCOUNT = 1),0.02,0.16,0,11),COLORGREEN;
EE:=((((H + L) + O) + (2 * C)) / 5);
CRTP:=(EE + (H - L));
CRZL:=((2 * EE) - L);
CRZC:=((2 * EE) - H);
CRFZ:=(EE - (H - L));
高:CONST(CRTP),COLORRED;
阻:CONST(CRZL),COLORC7C9FF;
支:CONST(CRZC),COLOR7C9CFF;
反:CONST(CRFZ),COLORDD00DD;
DRAWTEXT(ISLASTBAR,反,12),COLORDD00DD;
DRAWTEXT(ISLASTBAR,支,13),COLOR7C9CFF;
DRAWTEXT(ISLASTBAR,阻,14),COLORC7C9FF;
DRAWTEXT(ISLASTBAR,高,15),COLORGREEN;
均线:=EXPMA(C,12);
日:=50;
昨前:=3;
高2:=REF(HHV(H,日),昨前);
低2:=REF(LLV(L,日),昨前);
H4:=(高2 - ((高2 - 低2) * 0.618));
H5:=(高2 - ((高2 - 低2) * 0.809));
支撑80.9%:REFDATE(H5,DATE),COLORRED;
支撑61.8%:REFDATE(H4,DATE),COLORGREEN;
STICKLINE((CURRBARSCOUNT = 1),支撑80.9%,支撑80.9%,300,-1),COLORGREEN;
STICKLINE((CURRBARSCOUNT = 1),支撑61.8%,支撑61.8%,300,-1),COLORRED;
DRAWTEXT(((CURRBARSCOUNT = 1) AND 支撑80.9%),支撑80.9%,16),COLORGREEN;
DRAWTEXT(((CURRBARSCOUNT = 1) AND 支撑61.8%),支撑61.8%,17),COLORRED;
WH1:=IF((L = LLV(L,9)),L,0);
WH2:=CONST(BARSLAST((WH1 != 0)));
WH3:=CONST(IF((WH2 = 0),H,REF(H,WH2)));
WH4:=CONST(((REF(BARSLAST((H > WH3)),(WH2 + 1)) + WH2) + 1));
WH5:=CONST(IF((WH4 = 0),H,REF(H,WH4)));
WH6:=CONST(((REF(BARSLAST((H > WH5)),(WH4 + 1)) + WH4) + 1));
WH7:IF((CURRBARSCOUNT <= (WH2 + 10)),CONST(IF((WH6 = 0),H,REF(H,WH6))),DRAWNULL),DOTLINE,COLORRED;
STICKLINE(((CURRBARSCOUNT <= (WH2 + 1)) AND (L = LLV(L,9))),O,C,3,0),COLORRED;
[url=http://www.70822.com/soft/sort013/sort05/down-164024.html]华尔街预警主图（通达信公式 主图 源码 测试图）[/url]