通达信仿【四区主图】 源码主图

N:=120;
 DRAWGBK(OPEN>0,RGB(8,88,188),RGB(0,0,0),0,'02',0);
 K:=BARSLAST(CURRBARSCOUNT=N);
 GD:=CONST(IF(ISLASTBAR=1,HHV(H,K),0));
 DD:=CONST(IF(ISLASTBAR=1,LLV(L,K),0));
 KJ:=GD-DD;
 GD4:=IF(CURRBARSCOUNT<=N/2,GD,DRAWNULL);
平衡:IF(CURRBARSCOUNT<=N,DD+KJ/2,DRAWNULL),COLOR00FFFF,NODRAW;
压力:IF(CURRBARSCOUNT<=N,GD-KJ*0.191,DRAWNULL),COLORFF00FF,NODRAW;
支撑:IF(CURRBARSCOUNT<=N,DD+KJ*0.191,DRAWNULL),COLOR00FF00,NODRAW;
高:IF(CURRBARSCOUNT<=N,GD,DRAWNULL),COLOR00FFFF,POINTDOT;
低:IF(CURRBARSCOUNT<=N,DD,DRAWNULL),COLOR00FF00,POINTDOT;
低涨:IF(CURRBARSCOUNT<=N, (C/LLV(LOW,K)-1)*100,DRAWNULL),COLOR0000FF,NODRAW;
天数:BARSLAST(L=DD),COLORCYAN,NODRAW;
 STICKLINE(CURRBARSCOUNT=N,GD,DD,0,-1),COLORGREEN;
 STICKLINE(CURRBARSCOUNT=N/2,GD,DD,0,-1),COLORGREEN;
 STICKLINE(CURRBARSCOUNT=1,GD,DD,0,-1),COLORGREEN;
 STICKLINE(CURRBARSCOUNT<=N,平衡,平衡,3,-1),COLORWHITE;
 STICKLINE(CURRBARSCOUNT<=N/2,压力,压力,3,-1),COLORRED;
 STICKLINE(CURRBARSCOUNT<=N/2,支撑,支撑,3,-1),COLORGREEN;
 TYX3:=MA(REF(HHV((C+L+O+H)/4,30),1),3);
 TYX4:=MA((C+L+O+H)/4,13);
 TYX5:=EMA((C+L+O+H)/4,21);
 STICKLINE(C<TYX5 AND C>O,H,L,0,0),COLORRED;
 STICKLINE(C<TYX5 AND C>O,C,O,3,1),COLORRED;
 STICKLINE(C<TYX5 AND C<O,H,L,0,0),COLOR007700;
 STICKLINE(C<TYX5 AND C<O,C,O,3,0),COLOR005500;
 STICKLINE(C<TYX5 AND C<O,C,O,2,0),COLOR006600;
 STICKLINE(C<TYX5 AND C<O,C,O,1,0),COLOR007700;
 STICKLINE(C>TYX5 AND C<O,H,L,0,0),COLORFFDD44;
 STICKLINE(C>TYX5 AND C<O,C,O,3,0 ),COLORFF7700;
 STICKLINE(C>TYX5 AND C<O,C,O,2,0 ),COLORFFAA22;
 STICKLINE(C>TYX5 AND C<O,C,O,1 ,0 ),COLORFFDD44;
 STICKLINE(C>TYX5 AND C>O,H,L,0,0 ),COLOR00EEFF;
 STICKLINE(C>TYX5 AND C>O,C,O,3,0 ),COLOR00AAFF;
 STICKLINE(C>TYX5 AND C>O,C,O,2,0 ),COLOR00CCFF;
 STICKLINE(C>TYX5 AND C>O,C,O,1,0 ),COLOR00EEFF;
 STICKLINE(C>TYX4 AND C>O,H,L,0,0),COLORFF66AA;
 STICKLINE(C>TYX4 AND C>O,C,O,3,0 ),COLORFF11FF;
 STICKLINE(C>TYX4 AND C>O,C,O,2,0 ),COLORFF44FF;
 STICKLINE(C>TYX4 AND C>O,C,O,1,0 ),COLORFF66FF;
 STICKLINE(C>TYX4 AND C<O,H,L,0,0),COLOR999999;
 STICKLINE(C>TYX4 AND C<O,C,O,3,0),COLOR555555;
 STICKLINE(C>TYX4 AND C<O,C,O,2,0),COLOR777777;
 STICKLINE(C>TYX4 AND C<O,C,O,1,0),COLOR999999;
 STICKLINE(C>TYX3 AND C>O,H,L,0,0),COLOR0000DD;
 STICKLINE(C>TYX3 AND C>O,C,O,3,0),COLOR000099;
 STICKLINE(C>TYX3 AND C>O,C,O,2,0),COLOR0000BB;
 STICKLINE(C>TYX3 AND C>O,C,O,1,0),COLOR0000DD;
 STICKLINE((C-REF(C,1))*100/REF(C,1)>=(10-0.01*100/REF(C,1)),OPEN,CLOSE,3,0),COLORYELLOW;
 STICKLINE((REF(C,1)-C)*100/REF(C,1)>=(10-0.01*100/REF(C,1)),OPEN,CLOSE,3,0),COLORGREEN;
 A1:=HHV(H,50);
 A2:=LLV(L,50);
 K0:(0.5*A1+0.5*A2),COLORRED,LINETHICK1;
 DRAWTEXT(ISLASTBAR>0 ,ABS(K0)*1.0,'0');
 DRAWTEXT(CURRBARSCOUNT=5,K0*1.0,'5');
 DRAWTEXT(CURRBARSCOUNT=10,K0*1.0,'10');
 DRAWTEXT(CURRBARSCOUNT=15,K0*1.0,'15');
 DRAWTEXT(CURRBARSCOUNT=20,K0*1.0,'20');
 DRAWTEXT(CURRBARSCOUNT=30,K0*1.0,'30');
 DRAWTEXT(CURRBARSCOUNT=34,K0*1.0,'34');