大盘１３转向共振DRAWGBK(1,COLORRGB(50,50,50),COLORRGB(0,0,0),1);

PT:=REF(HIGH,1)-REF(LOW,1);
CDP:=(HIGH+LOW+CLOSE)/3;
AH:=CDP+PT;
AL:=CDP-PT;
NH:=2*CDP-LOW;
NL:=2*CDP-HIGH;
STICKLINE(CLOSE>OPEN AND ISLASTBAR,AL,AH,1,0),SHIFT1,colorFF00FF;
STICKLINE(CLOSE>OPEN AND ISLASTBAR,NL,NH,1,0),SHIFT1,colorFF00FF;
STICKLINE(CLOSE>OPEN AND ISLASTBAR,AL,NH,7,1),SHIFT1,colorFF00FF;
STICKLINE(CLOSE<=OPEN AND ISLASTBAR,AL,NH,7,0),SHIFT1,colorFF0000;
STICKLINE(CLOSE<=OPEN AND ISLASTBAR,NL,AH,1,0),SHIFT1,colorFF0000;
DRAWTEXT(SYSPARAM(3)=BARPOS AND CLOSE<=OPEN AND ISLASTBAR,HIGH,'\n明\n日\n预\n测'),ALIGN1,SHIFT2,Color00FFFF;
DRAWTEXT(SYSPARAM(3)=BARPOS AND CLOSE>OPEN AND ISLASTBAR,CLOSE,'\n明\n日\n预\n测'),ALIGN1,SHIFT2,colorFF00FF;
X:=EMA(SLOPE(CLOSE,21)*20+CLOSE,68);
Y:=EMA(CLOSE,10);
LL:=REF(CLOSE,2);
MM:=(SMA(MAX(CLOSE-LL,0),6,1))/(SMA(ABS(CLOSE-LL),6,1))*100;
DB:=IF(MM<REF(MM,1) AND MM>79,MM,0);
DRAWICON(CROSS(Y,X),LOW*0.985,1),PXUP6,colorFF;
DRAWICON(CROSS(X,Y),HIGH*1.02,2),PXUP4,colorFF00;
DRAWTEXT(DB,HIGH*1.02,'↓顶'),PXUP4,colorFF00;
VAR1:=LLV(LOW,21);
VAR2:=HHV(HIGH,21);
AK1:=EMA((CLOSE-VAR1)/(VAR2-VAR1)*100,5);
AK:=EMA((CLOSE-VAR1)/(VAR2-VAR1)*50,13);
DD:=EMA(0.667*REF(AK1,1)+0.333*AK1,2);
VAR3:=LLV(LOW,55);
VAR4:=HHV(HIGH,34);
VAR5:=EMA((CLOSE-VAR3)/(VAR4-VAR3)*100,3);
VAR6:=(AK+VAR5)/2;
VAR7:=EMA(0.667*REF(VAR5,1)+0.333*AK1,2);
VAR8:=EMA(VAR6,5);
BB:=EMA(0.667*REF(VAR8,1)+0.333*VAR8,2);
AB:=CROSS(AK1,AK);
BB1:=CROSS(AK1,BB) AND BB<30;
CD:=BB1*0.6;
DRAWTEXT(CD=0.6,LOW*0.99,'↑底2'),PXUP2,color33CC99;
DRAWTEXT(AB=1,LOW*0.99,'↑底1'),PXUP2,colorFFFFFF;
C1:=(CLOSE+LOW+HIGH)/3;
C2:=EMA(C1,6);
C3:=EMA(C2,5);
C4:=CROSS(C2,C3);
DRAWTEXT(C4,LOW/1.01,'★'),PXUP6,colorFF;
C5:=CROSS(C3,C2);
DRAWTEXT(C5,HIGH*1.03,'★'),PXUP6,colorFF0000;
JJ1:=LLV(LOW,10);
JJ2:=HHV(HIGH,25);
警戒线:=2.7;
减仓线:=3.13;
卖出线:=3.43;
空头线:=2.7;
动力线:=EMA((CLOSE-JJ1)/(JJ2-JJ1)*4,4);
DRAWTEXT(IF(RANGE(BARPOS,SYSPARAM(1)-2,SYSPARAM(1)+1) AND CROSS(动力线,空头线),1,0),LOW*0.998,'与虎谋皮 '),colorFFFF;
DRAWTEXT(IF(RANGE(BARPOS,SYSPARAM(1)-2,SYSPARAM(1)+1) AND CROSS(动力线,警戒线),1,0),HIGH,'预警 '),colorFFFFFF;
DRAWTEXT(IF(RANGE(BARPOS,SYSPARAM(1)-2,SYSPARAM(1)+1) AND CROSS(动力线,减仓线),1,0),HIGH,'减磅？ '),colorFFFF;
DRAWTEXT(IF(RANGE(BARPOS,SYSPARAM(1)-2,SYSPARAM(1)+1) AND CROSS(动力线,卖出线),1,0),HIGH*1.001,'出局？'),colorFF00;
DRAWTEXT(IF(RANGE(BARPOS,SYSPARAM(1)-2,SYSPARAM(1)+1) AND CROSS(卖出线,动力线),1,0),HIGH,'出局确认'),colorFFFF00;
AA1:=WMA(CLOSE,2);
BB1:=EMA(AA1,2);
A0:=MA(BB1,3);
AA2:=WMA((HIGH+CLOSE+OPEN)/3,18);
DD3:=A0>=AA2 AND CLOSE>AA2;
DD4:=A0<AA2;
DD5:=A0>AA2;
STICKLINE((DD4 OR DD5) AND OPEN<=CLOSE,HIGH,LOW,0.5,0),colorCC99;
STICKLINE((DD4 OR DD5) AND OPEN<=CLOSE,CLOSE,OPEN,7,0),colorCC99;
STICKLINE((DD4 OR DD5) AND OPEN>=CLOSE,HIGH,LOW,0.5,0),color3F8C3A;
STICKLINE((DD4 OR DD5) AND OPEN>=CLOSE,CLOSE,OPEN,7,0),color3F8C3A;
STICKLINE((DD3 OR CLOSE>AA2) AND OPEN<=CLOSE,CLOSE,OPEN,7,0),colorFF;
STICKLINE((DD3 OR CLOSE>AA2) AND OPEN<=CLOSE,HIGH,LOW,0.5,0),colorFF;
STICKLINE((DD3 OR CLOSE>AA2) AND OPEN>=CLOSE,CLOSE,OPEN,7,0),colorFF33FF;
STICKLINE((DD3 OR CLOSE>AA2) AND OPEN>=CLOSE,HIGH,LOW,0.5,0),colorFF33FF;
STICKLINE(MA(CLOSE,13)>OPEN AND CLOSE>MA(CLOSE,13) AND OPEN<CLOSE,OPEN,CLOSE,8,0),colorFFFF;
STICKLINE(MA(CLOSE,13)>OPEN AND CLOSE>MA(CLOSE,13),HIGH,LOW,0.8,1),colorFFFF;
FBARS:=SYSPARAM(0);
F1:=BARSSINCE(CLOSE)=FBARS-1;
预测值高:=MA(REF(HIGH,1)/REF(CLOSE,2),27)*REF(CLOSE,1);
预测值低:=MA(REF(LOW,1)/REF(CLOSE,2),27)*REF(CLOSE,1);
SZ1:='开盘预测当天最高价参考:'+NUMTOSTR(预测值高[SYSPARAM(1)],2);
DRAWTEXT(BARPOS=SYSPARAM(2),CLOSE,SZ1),ALIGN4,colorFF;
SZ:='\n  \n开盘预测当天最低价参考:'+NUMTOSTR(预测值低[SYSPARAM(1)],2);
DRAWTEXT(BARPOS=SYSPARAM(2),CLOSE,SZ),ALIGN4,color9C00;
N1:=SYSPARAM(3);
N:=N1-SYSPARAM(2)+1;
HH:=HHV(HIGH,N);
LL:=LLV(LOW,N);
最高:=HH[N1];
最低:=LL[N1];
低:=最低+(最高-最低)*0.191;
PARTLINE(CLOSE,低),POINTDOT,colorFF8900;
中:=最低+(最高-最低)*0.5;
PARTLINE(CLOSE,中),POINTDOT,colorFF00FF;
高:=最低+(最高-最低)*0.809;
PARTLINE(CLOSE,高),POINTDOT,colorFF;
MM:=BARSCOUNT(VOL);
VV:=IF(RANGE(STKTYPE,0,13),AMOUNT/100,CLOSE*VOL);
前N期:=IF(MM<=NN,SUM(VV,MM)/SUM(VOL,MM),REF(SUM(VV,NN)/SUM(VOL,NN),IF(MM<2*NN,MM-NN,NN-1)));
后N期:=SUM(VV,NN)/SUM(VOL,NN);
XS:=(SYSPARAM(4)-SYSPARAM(5))/30;
STICKLINE(BARPOS=SYSPARAM(1)-5,前N期[SYSPARAM(1)],前N期[SYSPARAM(1)],120,0),LINETHICK2,colorFFFFFF;
DRAWTEXT(BARPOS=SYSPARAM(1)-11,前N期[SYSPARAM(1)]-XS,'前N期成本'+NUMTOSTR(前N期[SYSPARAM(1)],2)),colorFFFFFF;
IF MM[SYSPARAM(1)]>NN THEN
STICKLINE(BARPOS=SYSPARAM(1)-5,后N期[SYSPARAM(1)],后N期[SYSPARAM(1)],120,0),LINETHICK2,colorFFFF;
IF MM[SYSPARAM(1)]>NN THEN
DRAWTEXT(BARPOS=SYSPARAM(1)-11 AND MM>NN,后N期[SYSPARAM(1)]-XS,'后N期成本'+NUMTOSTR(后N期[SYSPARAM(1)],2)),colorFFFF;
DPZX:=EMA(CLOSE,1);
GGZX:=AMOUNT/VOL/100;
重心:=IF(CAPITAL>0,GGZX,DPZX);
ZC1:=LLV(重心,2);
支撑１:REF(LOW,ZC1),LINETHICK0,PRECISION2,colorFFFF00;
STICKLINE(1,ZC1,ZC1,10,0),colorFFFF00;
ZC2:=LLV(重心,4);
支撑２:REF(LOW,ZC2),LINETHICK0,PRECISION2,colorFF0000;
STICKLINE(1,ZC2,ZC2,10,0),colorFF0000;
AS0:=(CLOSE-LLV(LOW,3))/(HHV(HIGH,3)-LLV(LOW,3));
AS1:=SMA(AS0,2,1);
AS2:=SMA(AS1,2,1);
AS3:=3*AS1-2*AS2;
AS4:=2*AS3-0.5;
AS5:=CLOSE*(1-(AS4-AS2)/15);
生命线:AS5,LINETHICK0,PRECISION2,colorCA85DE;
PARTLINE(重心<生命线,生命线),colorFFFFFF;
PARTLINE(重心>生命线,生命线),LINETHICK2,colorCA85DE;
SRZ1:=HHV(HIGH,13);
SRZ2:=LLV(LOW,13);
KC:=CLOSE;
KH:=HIGH;
KL:=LOW;
FOR I=1 TO DATACOUNT DO BEGIN
IF KH[I]>SRZ1[I-1] AND KC[I]>KC[I-1] THEN
E[I]:=SRZ2[I];ELSE
IF KL[I]<SRZ2[I-1] AND KC[I]<KC[I-1] THEN
E[I]:=SRZ1[I];ELSE
E[I]:=E[I-1];
END;
PARTLINE(CLOSE>E,E),LINETHICK2,color98FF;
PARTLINE(CLOSE<E,E),LINETHICK2,colorFF0000;
SRZ11:=HHV(HIGH,4);
SRZ12:=LLV(LOW,4);
KC1:=CLOSE;
KH1:=HIGH;
KL1:=LOW;
FOR I=1 TO DATACOUNT DO BEGIN
IF KH1[I]>SRZ11[I-1] AND KC1[I]>KC1[I-1] THEN
E1[I]:=SRZ12[I];ELSE
IF KL1[I]<SRZ12[I-1] AND KC1[I]<KC1[I-1] THEN
E1[I]:=SRZ11[I];ELSE
E1[I]:=E1[I-1];
END;
PARTLINE(CLOSE>E1,E1),LINETHICK2,colorFF;
PARTLINE(CLOSE<E1,E1),LINETHICK2,colorFFFF00;
F:=100*(CLOSE-REF(CLOSE,1))/REF(CLOSE,1);
今小昨:=IF(CLOSE<REF(OPEN,1) AND F<0,1,0);
P1:=今小昨;
今小前:=IF(CLOSE<REF(OPEN,2) AND F<0,1,0);
P2:=今小前;
L1:=(CLOSE-LLV(LOW,4))/(HHV(HIGH,4)-LLV(LOW,4))*100;
L2:=SMA(L1,3,1)/3;
L3:=SMA(L2,3,1);
K:=(3*L2-2*L3)*2.5;
D:=MA(K,3);
L4:=CROSS(D,K) AND D>50;
DIF:=EMA(CLOSE,12)-EMA(CLOSE,26);
DI:=CLOSE<REF(CLOSE,1) AND DIF>REF(DIF,1);
DI1:=FILTER(DI,2);
DRAWICON(P1=0 AND REF(P1,1)=1 AND P2=0 AND REF(P2,1)=1,LOW,'J42');
DRAWTEXT(BARPOS=SYSPARAM(2),低*0.99,'低: '+NUMTOSTR(低,2)),colorFF8900;
DRAWTEXT(BARPOS=SYSPARAM(2),中*0.99,'中: '+NUMTOSTR(中,2)),colorFF00FF;