KG1:=20;
F1:=10;
P:=10;
D3X3:MA(C,3),COLORMAGENTA;
KG:=IF(PERIOD<=1,1,IF(PERIOD<=3,5,IF(PERIOD<=5,10,KG1)));
F:=IF(PERIOD<=3,1,IF(PERIOD=4,3,IF(PERIOD=5,5,F1)));
ZX:=ZIGZAG(C,20,1);
CCH:=PEAK(C,20,1,1);
CCY:=TROUGH(C,20,1,1);
CC:IF(ZX<REF(ZX,1),CCH,CCY);
W1:=CROSS(CCH-0.02,ZX);
W2:=CROSS(ZX,CCY+0.02);
FD:=F/100;
YS:=IF(ZX<REF(ZX,1),FD,-FD);
W:=IF(ZX<REF(ZX,1),W1,W2);
H1:REF(CC*(1-YS*1),BARSLAST(W)),NODRAW;
H2:REF(CC*(1-YS*2),BARSLAST(W)),NODRAW;
H3:REF(CC*(1-YS*3),BARSLAST(W)),NODRAW;
H4:REF(CC*(1-YS*4),BARSLAST(W)),NODRAW;
H5:REF(CC*(1-YS*5),BARSLAST(W)),NODRAW;
H6:REF(CC*(1-YS*6),BARSLAST(W)),NODRAW;
H7:REF(CC*(1-YS*7),BARSLAST(W)),NODRAW;
H8:REF(CC*(1-YS*8),BARSLAST(W)),NODRAW;
H9:REF(CC*(1-YS*9),BARSLAST(W)),NODRAW;
H10:REF(CC*(1-YS*10),BARSLAST(W)),NODRAW;
H11:REF(CC*(1-YS*11),BARSLAST(W)),NODRAW;
H12:REF(CC*(1-YS*12),BARSLAST(W)),NODRAW;
H13:REF(CC*(1-YS*13),BARSLAST(W)),NODRAW;
H14:REF(CC*(1-YS*14),BARSLAST(W)),NODRAW;
H15:REF(CC*(1-YS*15),BARSLAST(W)),NODRAW;
AK1:=BARSLAST(W1)+1;
BK1:=BARSLAST(W2)+1;
目前:=IF(BK1>AK1,AK1,BK1);
DRAWNUMBER1(W1,CC,REF(目前,1),0),ALIGN2,COLORFF00FF;
DRAWNUMBER1(W2,CC,REF(目前,1),0),ALIGN2;
方向:=IF(CC=CCH,'下行 ','上升 ');
DRAWTEXT(W1,CC,'+周期'),COLORFF00FF;
DRAWTEXT(W2,CC,'+周期');
X1:=TROUGH(C,10,1,1);
X8:=TROUGHBARS(C,10,1,1)=0;
X11:=TROUGHBARS(C,10,2,1);
X18:=TROUGHBARS(C,10,1,1);
X13:=TROUGHBARS(C,10,1,1);
X3:=PEAK(C,10,1,1);
X31:=PEAKBARS(C,10,2,1);
X38:=PEAKBARS(C,10,1,1);
X33:=PEAKBARS(C,10,1,1);
X5:=PEAKBARS(C,10,1,1)=0;
PH:=HIGH;
PL:=LOW;
DK:=MA(CLOSE,7);
STICKLINE(DK<=CLOSE AND CLOSE>=OPEN,HIGH,LOW,0.1,1);
STICKLINE(DK<=CLOSE AND CLOSE>=OPEN,CLOSE,OPEN,8,1);
STICKLINE(DK<=CLOSE AND CLOSE<OPEN,HIGH,LOW,0.1,0);
STICKLINE(DK<=CLOSE AND CLOSE<OPEN,CLOSE,OPEN,8,0);
STICKLINE(DK>CLOSE AND CLOSE>=OPEN,HIGH,LOW,0.1,1);
STICKLINE(DK>CLOSE AND CLOSE>=OPEN,CLOSE,OPEN,8,1);
STICKLINE(DK>CLOSE AND CLOSE<OPEN,HIGH,LOW,0.1,0);
STICKLINE(DK>CLOSE AND CLOSE<OPEN,CLOSE,OPEN,8,0);
当前月:=FRACPART(ROUND(CURRENTDATE/100,1)/100)*100;
月:=MONTH;
日:=DAY;
DRAWTEXT(CROSS(REF(ZIGZAG(C,13,1),1),ZIGZAG(C,13,1)),HIGH*1.01,'有情提醒\N←-') ,COLORYELLOW;
DRAWTEXT(CROSS(ZIGZAG(C,13,1),REF(ZIGZAG(C,13,1),1)),LOW*0.99,'←-机不可失') ,COLORRED; |