 |
通达信趋势分时主图
{---------------------------分时主图+自动画线------------------------------}
画线取值:=INTPART(3*8/5);
AAA:=REF(H,画线取值)=HHV(H,2*画线取值+1);
QYY:=BACKSET(AAA,画线取值+1);
CCC:=FILTER(QYY,画线取值) AND H=HHV(H,画线取值+1);
DDDD:=BARSLAST(CCC),NODRAW;
GDTSS:=IF(CCC,CURRBARSCOUNT,0);
DINGBUTSS:=IF(DDDD,REF(GDTSS,DDDD),GDTSS);
GDCS11:=CONST(DINGBUTSS);
DINGBUTS11:=REF(DINGBUTSS,DDDD+1);
GDCS22:=CONST(DINGBUTS11);
AA11:=REF(L,画线取值)=LLV(L,2*画线取值+1);
QY11:=BACKSET(AA11,画线取值+1);
CC11:=FILTER(QY11,画线取值) AND L=LLV(L,画线取值+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);
支撑:=DRAWLINE(CURRBARSCOUNT=DDCS22,L,CURRBARSCOUNT=DDCS11,L,1),COLOR00CCCC;
A:=CURRBARSCOUNT;
A1:=DAY!=REF(DAY,1);
A2:=BARSLAST(A1)+1;
A3:=MA(C,A2);
A4:=SUM(AMO,A2)/SUM(VOL,A2)/100;
A5:=IF(CAPITAL>0,A4,A3);
均价线:=IF(A<=CONST(A2),A5,DRAWNULL);
分钟有效周期:=IF(PERIOD=2,15,IF(PERIOD=3,30,IF(PERIOD=4,60,IF(PERIOD=5,240,DRAWNULL))));
分时价:=TFILT(CLOSE,CURRBARSCOUNT,00,CURRBARSCOUNT,00);
分时判断:=IF(分时价=DRAWNULL,1,IF(分钟有效周期=DRAWNULL,DRAWNULL,1));
K线隐藏:STICKLINE(C>0 AND 分时判断=DRAWNULL,H,L,3,1),COLOR000000;
{--------------------------盘面资金----------------------------------------}
RC:=IF(分时价>0.01 AND 分时判断=DRAWNULL,DYNAINFO( 3),DRAWNULL);
S2:=SMA(C,2,1);
S6:=SMA(C,6,1);
DK:=2*(S2-S6);
买量:STICKLINE(DK>0 AND 分时判断=DRAWNULL,RC,RC+DK,0.01,0),COLOR000040;
卖量:STICKLINE(DK<0 AND 分时判断=DRAWNULL,RC,RC+DK,0.01,0),COLOR004000;
历史收盘价:=IF(分时价>0.01 AND 分钟有效周期=DRAWNULL AND A>=CONST(A2),C,DRAWNULL),COLOR8800FF;
前收盘价:=IF(历史收盘价>0.01,DYNAINFO(3),DRAWNULL),COLORRED,COLOR404080;
前收盘价画线:DRAWBAND(前收盘价,RGB(64,64,64),前收盘价,RGB(128,128,128));
历史价:=IF(分时判断=DRAWNULL AND A>=CONST(A2),C,DRAWNULL),COLOR8800FF;
昨收:IF(A<=CONST(A2) AND 分时判断=DRAWNULL,DYNAINFO(3),DRAWNULL),LINETHICK2,COLOR404080;
现价:=IF(A<=CONST(A2) AND 分时判断=DRAWNULL,CLOSE,DRAWNULL),COLORFFFFFF;
均价:=IF(A<=CONST(A2) AND 分时判断=DRAWNULL,A5,DRAWNULL),COLOR80FFFF;
{牛熊线原码----------Z.自然数时权均线，用于TDX等 无WMA(C,N)函数之股软------}
M:=C;
ZL91:=(90*M+89*REF(M,1)+88*REF(M,2)+87*REF(M,3)+86*REF(M,4)+85*REF(M,5)+84*REF(M,6)+83*REF(M,7)+82*REF(M,8)+81*REF(M,9)+80*REF(M,10)+79*REF(M,11)+
78*REF(M,12)+77*REF(M,13)+76*REF(M,14)+75*REF(M,15)+74*REF(M,16)+73*REF(M,17)+72*REF(M,18)+71*REF(M,19));
ZL92:=(70*REF(M,20)+69*REF(M,21)+68*REF(M,22)+67*REF(M,23)+66*REF(M,24)+65*REF(M,25)+64*REF(M,26)+63*REF(M,27)+62*REF(M,28)+61*REF(M,29)+60*REF(M,30)+
59*REF(M,31)+58*REF(M,32)+57*REF(M,33)+56*REF(M,34)+55*REF(M,35)+54*REF(M,36)+53*REF(M,37)+52*REF(M,38)+51*REF(M,39));
ZL93:=(50*REF(M,40)+49*REF(M,41)+48*REF(M,42)+47*REF(M,43)+46*REF(M,44)+45*REF(M,45)+44*REF(M,46)+43*REF(M,47)+42*REF(M,48)+41*REF(M,49)+40*REF(M,50)+
39*REF(M,51)+38*REF(M,52)+37*REF(M,53)+36*REF(M,54)+35*REF(M,55)+34*REF(M,56)+33*REF(M,57)+32*REF(M,58)+31*REF(M,59));
ZL94:=(30*REF(M,60)+29*REF(M,61)+28*REF(M,62)+27*REF(M,63)+26*REF(M,64)+25*REF(M,65)+
24*REF(M,66)+23*REF(M,67)+22*REF(M,68)+21*REF(M,69)+20*REF(M,70)+19*REF(M,71)+18*REF(M,72)+17*REF(M,73)+16*REF(M,74)+15*REF(M,75)+14*REF(M,76)+13*REF(M,77)+
12*REF(M,78)+11*REF(M,79));
ZL95:=10*REF(M,80)+9*REF(M,81)+8*REF(M,82)+7*REF(M,83)+6*REF(M,84)+5*REF(M,85)+4*REF(M,86)+3*REF(M,87)+2*REF(M,88)+REF(M,89);
③号线:=(ZL91+ZL92+ZL93+ZL94+ZL95)/4095;{WMA90A}
{------------------------Z.自然数时权均线之--牛熊线原码--------------------}
ZL13:=(120*M+119*REF(M,1)+118*REF(M,2)+117*REF(M,3)+116*REF(M,4)+115*REF(M,5)+114*REF(M,6)+113*REF(M,7)+112*REF(M,8)+111*REF(M,9)+110*REF(M,10)+109*REF(M,11)+
108*REF(M,12)+107*REF(M,13)+106*REF(M,14)+105*REF(M,15)+104*REF(M,16)+103*REF(M,17)+
102*REF(M,18)+101*REF(M,19));
ZL14:=(100*REF(M,20)+99*REF(M,21)+98*REF(M,22)+97*REF(M,23)+96*REF(M,24)+95*REF(M,25)+94*REF(M,26)+93*REF(M,27)+92*REF(M,28)+91*REF(M,29)+90*REF(M,30)+
89*REF(M,31)+88*REF(M,32)+87*REF(M,33)+86*REF(M,34)+85*REF(M,35)+84*REF(M,36)+83*REF(M,37)+82*REF(M,38)+81*REF(M,39));
ZL15:=(80*REF(M,40)+79*REF(M,41)+78*REF(M,42)+77*REF(M,43)+76*REF(M,44)+75*REF(M,45)+74*REF(M,46)+73*REF(M,47)+72*REF(M,48)+71*REF(M,49)+70*REF(M,50)+
69*REF(M,51)+68*REF(M,52)+67*REF(M,53)+66*REF(M,54)+65*REF(M,55)+64*REF(M,56)+63*REF(M,57)+62*REF(M,58)+61*REF(M,59));
ZL16:=(60*REF(M,60)+59*REF(M,61)+58*REF(M,62)+57*REF(M,63)+56*REF(M,64)+55*REF(M,65)+
54*REF(M,66)+53*REF(M,67)+52*REF(M,68)+51*REF(M,69)+50*REF(M,70)+49*REF(M,71)+48*REF(M,72)+47*REF(M,73)+46*REF(M,74)+45*REF(M,75)+44*REF(M,76)+43*REF(M,77)+
42*REF(M,78)+41*REF(M,79));
ZL17:=(40*REF(M,80)+39*REF(M,81)+38*REF(M,82)+37*REF(M,83)+36*REF(M,84)+35*REF(M,85)+34*REF(M,86)+33*REF(M,87)+32*REF(M,88)+31*REF(M,89)+30*REF(M,90)+
29*REF(M,91)+28*REF(M,92)+27*REF(M,93)+26*REF(M,94)+25*REF(M,95)+24*REF(M,96)+23*REF(M,97)+22*REF(M,98)+21*REF(M,99));
ZL18:=(20*REF(M,100)+19*REF(M,101)+18*REF(M,102)+17*REF(M,103)+16*REF(M,104)+15*REF(M,105)+14*REF(M,106)+13*REF(M,107)+12*REF(M,108)+11*REF(M,109)+10*REF(M,110)+
9*REF(M,111)+8*REF(M,112)+7*REF(M,113)+6*REF(M,114)+5*REF(M,115)+4*REF(M,116)+3*REF(M,117)+2*REF(M,118)+REF(M,119));
牛熊线:=(ZL13+ZL14+ZL15+ZL16+ZL17+ZL18)/7260,COLOR808040,COLORFF8080;{WMA120A}
{---------------K线的简单微积分技术与黄金分割均线整合优化------------------}
ED1:=(-2*REF(C,2)+REF(C,1)+2*C);{5点平滑二导右半支};
JF1:=SMA(SMA(ED1,3,1),3,1);
⑤日◆分时现价:IF(分时判断=1,SMA(JF1,3,2),现价),COLORFFFFFF;
⑩日◆分时均价:IF(分时判断=1,SMA(JF1,8,2),均价),COLOR00FFFF;
月线修正A:=IF(SMA(JF1,21,2)>MA(C,20) OR MA(C,20)=DRAWNULL,SMA(JF1,21,2),MA(C,20));
月线修正B:=IF(月线修正A>=SMA(JF1,34,2),月线修正A,SMA(JF1,34,2)),COLOR990099;
月◆昨分时价:IF(分时判断=1,月线修正B,历史价),COLOR990099;
{----------------------------短期均线多空趋势彩带--------------------------}
５日均线:=IF(分时价=DRAWNULL,SMA(JF1,3,2),IF(分钟有效周期=DRAWNULL,DRAWNULL,SMA(JF1,3,2))),COLORFFFFFF;
１０日均线:=IF(分时价=DRAWNULL,SMA(JF1,8,2),IF(分钟有效周期=DRAWNULL,DRAWNULL,SMA(JF1,8,2))),COLOR00FFFF;
均线多空趋势:DRAWBAND(５日均线,RGB(128,128,51),１０日均线,RGB(51,153,102));
{--------------------------６０日,半年,年线优化修正------------------------}
６０日线起点:=BARSSINCE(CROSS(牛熊线,MA(C,60)));
传统６０日线:=IF(６０日线起点>=1,MA(C,60),牛熊线),COLOR00FF00;
６０日线修正:=IF(SMA(JF1,55,2)>③号线,③号线,SMA(JF1,55,2)),COLORFF8080;
６０日:IF(６０日线修正<传统６０日线 OR 传统６０日线=DRAWNULL,６０日线修正,传统６０日线),COLOR008000;
半年:IF(牛熊线>SMA(JF1,144,2),SMA(JF1,144,2),牛熊线),COLORC08080;
年:SMA(JF1,233,2),COLORCC0000;
最高价:=HIGH; 最低价:=LOW; 收盘价:=CLOSE; 开盘价:=OPEN;
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);
红色持股区:=(VAR1 OR VAR2 OR VAR3 OR VAR4 OR VAR5 OR VAR6 OR VAR7 OR VAR8 OR VAR9 OR VARA OR VARB OR VARC)
AND 分时判断=1;
}
VARD:=CLOSE<REF(CLOSE,1) AND CLOSE<REF(CLOSE,2);
三平顶翻绿:=(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 AND 分时判断=1;
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);
兰色观望区:=(VARD OR VARE OR VARF OR VAR10 OR VAR11 OR VAR12 OR VAR13 OR VAR14 OR VAR15 OR VAR16 OR VAR17 OR VAR18)
AND 分时判断=1;
三平底翻金:=(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 AND 分时判断=1;
持股区上色:=(三平底翻金 OR 收盘价<开盘价);
观望区上色:=(三平顶翻绿 OR 收盘价<开盘价);
红色实体1:STICKLINE(红色持股区 AND 持股区上色,CLOSE,REF(CLOSE,1),3,0),COLOR330077;
兰色实体1:STICKLINE(兰色观望区,CLOSE,REF(CLOSE,1),3,0),COLORAA5500;
金色实体1:STICKLINE(三平底翻金,REF(CLOSE,1),REF(CLOSE,2),3,0),COLOR2288CC;
绿色实体1:STICKLINE(三平顶翻绿,REF(CLOSE,1),REF(CLOSE,2),3,0),COLOR007300;
阴线实体:STICKLINE(收盘价<开盘价 AND 分时判断=1,收盘价,开盘价,3,0 ),COLORCYAN;
阳线实体:STICKLINE(收盘价>开盘价 AND 分时判断=1,收盘价,开盘价,3.0,0 ),COLOR3232FF;
{----------------------------------收阳兰色区域----------------------------}
本日收阴1:STICKLINE(收盘价<开盘价 AND 分时判断=1,收盘价,开盘价,2.0,0),COLORDD3C00;
本日收阴2:STICKLINE(收盘价<开盘价 AND 分时判断=1,收盘价,开盘价,1.25,0),COLOREE4000;
本日收阴3:STICKLINE(收盘价<开盘价 AND 分时判断=1,收盘价,开盘价,0.40,0),COLORFF4C00;
{----------------------------------收阳红色区域----------------------------}
本日收阳2:STICKLINE(收盘价>开盘价 AND 分时判断=1,CLOSE,O,2.0,0),COLOR440088;
本日收阳3:STICKLINE(收盘价>开盘价 AND 分时判断=1,CLOSE,O,1.25,0),COLOR550099;
本日收阳4:STICKLINE(收盘价>开盘价 AND 分时判断=1,CLOSE,O,0.40,0),COLOR6600AA;
{-----------------------红色区域,真阳宝塔,持股待涨-------------------------}
红色中心2:STICKLINE(红色持股区 AND 持股区上色,CLOSE,REF(CLOSE,1),2.0,0),COLOR440088;
红色中心3:STICKLINE(红色持股区 AND 持股区上色,CLOSE,REF(CLOSE,1),1.25,0),COLOR550099;
红色中心4:STICKLINE(红色持股区 AND 持股区上色,CLOSE,REF(CLOSE,1),0.4,0),COLOR6600AA;
{-----------------------兰色区域,真阴宝塔,空仓观望-------------------------}
兰色中心2:STICKLINE(兰色观望区,CLOSE,REF(CLOSE,1),2.0,0),COLORAA6600;
兰色中心3:STICKLINE(兰色观望区,CLOSE,REF(CLOSE,1),1.25,0),COLORBB7700;
兰色中心4:STICKLINE(兰色观望区,CLOSE,REF(CLOSE,1),0.40,0),COLORCC8800;
{-----------------------三平底翻金,阴转阳宝塔,买进-------------------------}
金色中心2:STICKLINE(三平底翻金,REF(CLOSE,1),REF(CLOSE,2),2.0,0),COLOR3599DD;
金色中心3:STICKLINE(三平底翻金,REF(CLOSE,1),REF(CLOSE,2),1.25,0),COLOR45AAEE;
金色中心4:STICKLINE(三平底翻金,REF(CLOSE,1),REF(CLOSE,2),0.40,0),COLOR55BBFF;
{-----------------------三平顶翻绿-阳转阴宝塔,卖出-------------------------}
绿色中心2:STICKLINE(三平顶翻绿,REF(CLOSE,1),REF(CLOSE,2),2.0,0),COLOR008600;
绿色中心3:STICKLINE(三平顶翻绿,REF(CLOSE,1),REF(CLOSE,2),0.7,0),COLOR009900;
{-----------------５日,１０日,月线,６０日线,半年线,年线重画----------------}
阻力:=DRAWLINE(CURRBARSCOUNT=GDCS22,H,CURRBARSCOUNT=GDCS11,H,1),COLOR808040;
支撑重画:=DRAWBAND(昨收,RGB(102,0,204),昨收,RGB(204,204,0));
年线:=DRAWBAND(年,RGB(0,0,204),年,RGB(0,0,204));
半年线:DRAWBAND(半年,RGB(128,128,192),半年,RGB(128,128,192));
６０日线:DRAWBAND(６０日,RGB(0,128,0),６０日,RGB(0,128,0));
月线:DRAWBAND(月◆昨分时价,RGB(153,0,153),月◆昨分时价,RGB(153,0,153));
１０日线:DRAWBAND(⑩日◆分时均价,RGB(255,255,0),⑩日◆分时均价,RGB(255,255,0));
５日线:DRAWBAND(⑤日◆分时现价,RGB(255,255,255),⑤日◆分时现价,RGB(255,255,255));
{-------------------K线收平,K线实体,开盘与收盘线,重画线--------------------}
收平实体:STICKLINE(收盘价=开盘价 AND 分时判断=1,开盘价,开盘价,2,0),COLORWHITE;{白色}
收平影线:STICKLINE(收盘价=开盘价 AND 分时判断=1,最低价,最高价,0,0),COLORWHITE;{白色}
收阳开盘:STICKLINE(收盘价>开盘价 AND 分时判断=1,开盘价,开盘价,2.0,0 ),COLOR3232FF;{橙红色}
收阳收盘:STICKLINE(收盘价>开盘价 AND 分时判断=1,收盘价,收盘价,2.0,0 ),COLOR3232FF;{橙红色}
收阴开盘:STICKLINE(收盘价<开盘价 AND 分时判断=1,开盘价,开盘价,2,0 ),COLORCYAN;{亮兰色}
收阴收盘:STICKLINE(收盘价<开盘价 AND 分时判断=1,收盘价,收盘价,2,0 ),COLORCYAN;{亮兰色};
{-----------------------------上下影线重画---------------------------------}
阳线上影:STICKLINE(收盘价>开盘价 AND 分时判断=1,收盘价,最高价,0,0 ),COLOR3232FF;{橙红色}
阳线下影:STICKLINE(收盘价>开盘价 AND 分时判断=1,开盘价,最低价,0,0 ),COLOR3232FF;{橙红色}
阴线上影:STICKLINE(收盘价<开盘价 AND 分时判断=1,开盘价,最高价,0,0 ),COLORCYAN;{亮兰色}
阴线下影:STICKLINE(收盘价<开盘价 AND 分时判断=1,收盘价,最低价,0,0 ),COLORCYAN;{亮兰色};