驭龙阁分时主(通达信公式 主图 源码 测试图)

[复制链接]
查看80 | 回复0 | 2022-6-27 16:02:49 | 显示全部楼层 |阅读模式
{影子分时主图}
DIF:=EMA(CLOSE,12)-EMA(CLOSE,26);
FD:=HHV(DIF,480); 
T:=DIF>=REF( FD,1);
 
{}
QZL:"TD1.强阻力#DAY",DOTLINE,COLORGREEN,LINETHICK2;
MQZL:"TD1.明强阻力#DAY",NODRAW;
ZL:"TD1.阻力位#DAY",DOTLINE,COLORFFFF00,LINETHICK1;
MZL:"TD1.明阻力位#DAY",NODRAW;
ZH1:"TD1.支撑位#DAY",DOTLINE,COLORYELLOW,LINETHICK1;
MZH1:"TD1.明支撑位#DAY",NODRAW;
MA5:"TD1.MA5#DAY",DOTLINE,COLORLIRED;
ZH:"TD1.强支撑#DAY",DOTLINE,COLORRED,LINETHICK2;
MZH:"TD1.明强支撑#DAY",NODRAW;
均价:=SUM(C*V,240)/SUM(V,240),COLORYELLOW,LINETHICK1;
 
C,COLORFFFFFF,LINETHICK2;
DRAWTEXT_FIX(1,0.400,1-0.05,0,STRCAT('支撑位:',CON2STR(ZH1,2))),COLORYELLOW;
DRAWTEXT_FIX(1,0.200,1-0.05,0,STRCAT('强支撑:',CON2STR(ZH,2))),COLORRED;
DRAWTEXT_FIX(1,0.020,1-0.1,0,STRCAT('MA5: ',CON2STR(MA5,2))),COLORLIRED;
DRAWTEXT_FIX(1,0.800,1-0.05,0,STRCAT('强阻力:',CON2STR(QZL,2))),COLORGREEN;
DRAWTEXT_FIX(1,0.600,1-0.05,0,STRCAT('阻力位:',CON2STR(ZL,2))),COLORCYAN;
 
DRAWTEXT_FIX(1,0.400,0.006,0,STRCAT('明天支撑位:',CON2STR(MZH1,2))),COLORBROWN;
DRAWTEXT_FIX(1,0.200,0.006,0,STRCAT('明天强支撑:',CON2STR(MZH,2))),COLORLIRED;
DRAWTEXT_FIX(1,0.800,0.006,0,STRCAT('明天强阻力:',CON2STR(MQZL,2))),COLORLIGREEN;
DRAWTEXT_FIX(1,0.600,0.006,0,STRCAT('明天阻力位:',CON2STR(MZL,2))),COLORBLUE;
 
FD2:=HHV(V,480);  
T2:=V>=REF(FD2,1);
FD1:HHV(C,480),COLOR8000FF,LINETHICK2; 
DRAWICON(CROSS(C,REF(FD1,1)) AND T ,C,9);
DRAWICON(CROSS(C,REF(FD1,1)) AND T2 ,C*0.99,13);
{DRAWICON(CROSS(C,QZL) AND T,C,14);
DRAWICON(CROSS(C,QZL) AND T2,C,7);}
 
{}
O5:="分时引用.O5#DAY";
C5:="分时引用.C5#DAY";
H5:="分时引用.H5#DAY";
L5:="分时引用.L5#DAY";
O4:="分时引用.O4#DAY";
C4:="分时引用.C4#DAY";
H4:="分时引用.H4#DAY";
L4:="分时引用.L4#DAY";
O3:="分时引用.O3#DAY";
C3:="分时引用.C3#DAY";
H3:="分时引用.H3#DAY";
L3:="分时引用.L3#DAY";
O2:="分时引用.O2#DAY";
C2:="分时引用.C2#DAY";
H2:="分时引用.H2#DAY";
L2:="分时引用.L2#DAY";
O1:="分时引用.O1#DAY";
C1:="分时引用.C1#DAY";
H1:="分时引用.H1#DAY";
L1:="分时引用.L1#DAY";
O0:=DYNAINFO(4);
C0:=DYNAINFO(7);
H0:=DYNAINFO(5);
L0:=DYNAINFO(6);
 
HH1:=MAX(H1,H2);
HH2:=MAX(H3,H4);
HH3:=MAX(MAX(H0,H5),MAX(HH1,HH2));
LL1:=MIN(L1,L2);
LL2:=MIN(L3,L4);
LL3:=MIN(MIN(L0,L5),MIN(LL1,LL2));
HL:=999/(HH3-LL3);
 
C52:=999-((C5-LL3)*HL);
H52:=999-((H5-LL3)*HL);
L52:=999-((L5-LL3)*HL);
O52:=999-((O5-LL3)*HL);
C42:=999-((C4-LL3)*HL);
H42:=999-((H4-LL3)*HL);
L42:=999-((L4-LL3)*HL);
O42:=999-((O4-LL3)*HL);
C32:=999-((C3-LL3)*HL);
H32:=999-((H3-LL3)*HL);
L32:=999-((L3-LL3)*HL);
O32:=999-((O3-LL3)*HL);
C22:=999-((C2-LL3)*HL);
H22:=999-((H2-LL3)*HL); 
L22:=999-((L2-LL3)*HL);  
O22:=999-((O2-LL3)*HL);
C12:=999-((C1-LL3)*HL);
H12:=999-((H1-LL3)*HL); 
L12:=999-((L1-LL3)*HL);  
O12:=999-((O1-LL3)*HL);
C02:=999-((C0-LL3)*HL);
H02:=999-((H0-LL3)*HL);
L02:=999-((L0-LL3)*HL);
O02:=999-((O0-LL3)*HL);
 
DRAWRECTREL(808,H52,808,L52,RGB(IF(C5>=O5,255,128),IF(C5>=O5,0,255),IF(C5>=O5,0,255)));
DRAWRECTREL(800,C52,816,O52,RGB(IF(C5>=O5,255,128),IF(C5>=O5,0,255),IF(C5>=O5,0,255)));
DRAWRECTREL(828,H42,828,L42,RGB(IF(C4>=O4,255,128),IF(C4>=O4,0,255),IF(C4>=O4,0,255)));
DRAWRECTREL(820,C42,836,O42,RGB(IF(C4>=O4,255,128),IF(C4>=O4,0,255),IF(C4>=O4,0,255)));
DRAWRECTREL(848,H32,848,L32,RGB(IF(C3>=O3,255,128),IF(C3>=O3,0,255),IF(C3>=O3,0,255)));
DRAWRECTREL(840,C32,856,O32,RGB(IF(C3>=O3,255,128),IF(C3>=O3,0,255),IF(C3>=O3,0,255)));
DRAWRECTREL(868,H22,868,L22,RGB(IF(C2>=O2,255,128),IF(C2>=O2,0,255),IF(C2>=O2,0,255)));
DRAWRECTREL(860,C22,876,O22,RGB(IF(C2>=O2,255,128),IF(C2>=O2,0,255),IF(C2>=O2,0,255)));
DRAWRECTREL(888,H12,888,L12,RGB(IF(C1>=O1,255,128),IF(C1>=O1,0,255),IF(C1>=O1,0,255)));
DRAWRECTREL(880,C12,896,O12,RGB(IF(C1>=O1,255,128),IF(C1>=O1,0,255),IF(C1>=O1,0,255)));
 
{以下二选一}
DRAWRECTREL(908,H02,908,L02,RGB(IF(C0>=O0,255,128),IF(C0>=O0,0,255),IF(C0>=O0,0,255)));
DRAWRECTREL(900,C02,916,O02,RGB(IF(C0>=O0,255,128),IF(C0>=O0,0,255),IF(C0>=O0,0,255)));
{以上二行为:当日K线固定在左侧排列};
 

202112302134760854.png

202112302134760854.png

202112302123146655.rar

6.54 KB, 下载次数: 0

售价: 2 金钱  [记录]  [购买]

202112302123146655.rar

回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则