相關標簽:

 

{參數:
NN:20/1/30
N:6/1/10
M:3/2.8/3.1}
AAA:=CHECKUSER(0);
周K:=STKINDI(STKLABEL,'kdj.k',0,7);
周D:=STKINDI(STKLABEL,'kdj.d',0,7);
RSV:=(CLOSE-LLV(LOW,13))/(HHV(HIGH,13)-LLV(LOW,13))*100;
K:=SMA(RSV,3,1);
D:=SMA(K,3,1);
J:=3*K-2*D;
RSV12:=(CLOSE-LLV(LOW,34))/(HHV(HIGH,34)-LLV(LOW,34))*100;
K12:=SMA(RSV12,3,1);
D12:=SMA(K12,3,1);
J12:=3*K12-2*D12;
RSV24:=(CLOSE-LLV(LOW,55))/(HHV(HIGH,55)-LLV(LOW,55))*100;
K24:=SMA(RSV24,3,1);
D24:=SMA(K24,3,1);
J24:=3*K24-2*D24;
支撐:IF(CROSS(J,J24),LOW,REF(LOW,BARSLAST(CROSS(J,J24)))),colorFFFF;
壓力:IF(CROSS(J24,J),HIGH,REF(HIGH,BARSLAST(CROSS(J24,J)))),colorFF;
U2L:=IF(CLOSE>=MA(CLOSE,NN),80,50);
L2L:=IF(CLOSE>=MA(CLOSE,NN),50,20);
RH1:=IF(J<U2L AND REF(J,1)>=U2L,HHV(REF(HIGH,1),BARSLAST(J>=U2L AND REF(J,1)<U2L)-1),REF(HHV(REF(HIGH,1),BARSLAST(J>=U2L AND REF(J,1)<U2L)-1),BARSLAST(J<U2L AND REF(J,1))));
RH4:=IF(HIGH>RH1,LOW,REF(LOW,BARSLAST(HIGH>RH1)));
RH42:=IF(HIGH>RH1,J,REF(J,BARSLAST(HIGH>RH1)));
強壓:IF(HIGH>RH4 AND J<RH42 AND J<J24,HIGH,REF(HIGH,BARSLAST(HIGH>RH4 AND J<RH42 AND J<J24))),colorFF00;
RL1:=IF(J>L2L AND REF(J,1)<=L2L,LLV(REF(LOW,1),BARSLAST(J<=L2L AND REF(J,1)>L2L)-1),REF(LLV(REF(LOW,1),BARSLAST(J<=L2L AND REF(J,1)>L2L)-1),BARSLAST(J>L2L AND REF(J,1))));
RL4:=IF(LOW<RL1,HIGH,REF(HIGH,BARSLAST(LOW<RL1)));
RL42:=IF(LOW<RL1,J,REF(J,BARSLAST(LOW<RL1)));
強撐:IF(LOW<RL4 AND J>RL42 AND J>J24,LOW,REF(LOW,BARSLAST(LOW<RL4 AND J>RL42 AND J>J24))),colorFF00FF;
ZF:(CLOSE-壓力)*100/壓力,LINETHICK0;
X1:=IF(BARSCOUNT(CLOSE)=1,(OPEN+HIGH+LOW+CLOSE)/4,CLOSE);
X2:=IF(BARSCOUNT(CLOSE)=1,(OPEN+CLOSE)/2,SMA(REF(X1,1),2,1));
X3:=HIGH;
X4:=LOW;
{STICKLINE(X2<X1,X3,X4,0.1,0),colorFF;
STICKLINE(X2<X1,X1,X2,7,1),colorFF;
STICKLINE(X2>X1,X3,X4,0.1,0),colorFFFF00;
STICKLINE(X2>X1,X1,X2,7,0),colorFFFF00;
STICKLINE(X2=X1 AND X1>=REF(X1,1),X3,X4,0.1,0),colorFF;
STICKLINE(X2=X1 AND X1>=REF(X1,1),X1,X2,7,0),colorFF;
STICKLINE(X2=X1 AND X1<REF(X1,1),X3,X4,0.1,0),colorFF0000;
STICKLINE(X2=X1 AND X1<REF(X1,1),X1,X2,7,0),colorFF0000;
STICKLINE(X2=X1 AND BARSCOUNT(CLOSE),X3,X4,0.1,0),colorFF00FF;
STICKLINE(X2=X1 AND BARSCOUNT(CLOSE),X2,X1,7,0),colorFF00FF;}
CB:=AMOUNT/VOL/100;
CD:=CB>HIGH OR CB<LOW;
AA:=IF(CLOSE>200,182.60001,1.826);
BB:=IF(CLOSE>200,91.3,0.913);
大下箱:INTPART(CLOSE/AA)*AA,POINTDOT,LINETHICK3,colorFFFF00;
大上箱:大下箱+AA,POINTDOT,LINETHICK3,colorFF;
小下箱:INTPART(CLOSE/BB)*BB,POINTDOT,LINETHICK1,colorFF00FF;
小上箱:小下箱+BB,POINTDOT,LINETHICK1,colorFFFF;
EXPLAIN(1,STKLABEL+STKNAME+'\n所屬板塊:'+BLKNAME);
AAA:=CHECKUSER(0);
VAR1:=(CLOSE+HIGH+LOW)/3;
VAR2:=HIGH-LOW;
VAR4:=VAR1+VAR2;
VAR5:=VAR1-VAR2;
VAR6:=2*VAR1-LOW;
VAR7:=2*VAR1-HIGH;
【明天最高】:=VAR6;
【明天最低】:=VAR7;
VAR9:=ISLASTBAR;
STICKLINE(VAR9>0,VAR4,VAR5,0,0),SHIFT1,colorFFFF;
STICKLINE(VAR9>0,VAR6,VAR7,8,0),SHIFT1,colorFFFF;
VAR11:=(CLOSE+HIGH+LOW)/3;
VAR12:=HIGH-LOW;
VAR14:=VAR11+VAR12;
VAR15:=VAR11-VAR12;
VAR16:=2*VAR11-LOW;
VAR17:=2*VAR11-HIGH;
明日轉:=REF(CLOSE,2)*2-REF(CLOSE,5);
EXPLAINEX(VOL>0,'【明天生命】=',明日轉,1,0),colorFFFFFF;
EXPLAINEX(VOL>0,'【明天最高】=',VAR14,1,0),colorFFFF;
EXPLAINEX(VOL>0,'【范圍上限】=',VAR16,1,0),colorFF00FF;
EXPLAINEX(VOL>0,'【范圍下限】=',VAR17,1,0),colorFFFF00;
EXPLAINEX(VOL>0,'【明天最低】=',VAR15,1,0),colorFF00;
VAR1:=SPLITDATA(1)+SPLITDATA(2);
CAP:=CLOSE;
CAP[DATACOUNT]:=1;
FOR I=DATACOUNT DOWNTO 2 DO BEGIN
CAP[I-1]:=CAP[I]/(1+VAR1[I]/10);
END;
CAPI:=CAP*CAPITAL/100;
HS:=VOL/CAPI;
歷史流通盤{萬股}:=CAPI;
ZF:=(HIGH-LOW)*100/LOW,LINETHICK0;
STZF:=(CLOSE-OPEN)*100/OPEN;
SPZF:=(CLOSE-LOW)*100/LOW;
STZFB:=STZF/ZF;
SPZFB:=SPZF/ZF;
最大震幅:=REF(HHV(ZF,5),1);
最小震幅:=REF(LLV(ZF,5),1);
XZFB:=ZF/最大震幅;
DZFB:=ZF/最小震幅;
XHSB:=HS/REF(HHV(HS,4),1);
DHSB:=HS/REF(LLV(HS,4),1);
DY1:=-5*(STZFB>=0.48 AND SPZFB>0.5 AND DZFB>2 AND DHSB>2 AND CLOSE>OPEN);

DY2:=-5*(STZFB>=0.8 AND DZFB>1.5 AND DHSB>1.5 AND CLOSE>OPEN);
DY3:=-5*(STZFB>=0.82 AND XZFB>0.9 AND DZFB>1.5 AND XHSB>0.9 AND DHSB>1.5 AND CLOSE>OPEN);
單陽:=FILTER((DY1 OR DY2 OR DY3) AND 周K>周D,N);
VV:=單陽*LOW;
TS:=BARSLAST(單陽>0)+1>=1 AND BARSLAST(單陽>0)<=13;
單陽高:=REF(HHV(HIGH,BARSLAST(單陽>0)),1);
單陽攻擊:=CROSS(CLOSE,單陽高) AND TS;
強勢攻擊:=IF(單陽=1 AND 單陽攻擊=1,1,0);
單陽低點:=REF(LOW,BARSLAST(VV));
單陽不破:=TS AND LOW>=單陽低點;
時間:=IF(LOW>=單陽低點,BARSLAST(單陽<0),0);
單陽啟穩:=CROSS(HS,ZF) AND CLOSE>OPEN AND TS;
AA:MA(1.05*HIGH,21),colorFF0000;
BB:MA(0.85*LOW,21),colorFFFF00;
PARTLINE(單陽不破=1,BB),LINETHICK1,colorFF;
STICKLINE(單陽=1,BB,1.04*BB,0,0),colorFFFF;
STICKLINE(單陽=1,BB*1.01,1.03*BB,8,0),colorFFFF;
DRAWTEXT(單陽=1 AND 周K<50,BB*0.97,'弱'),colorFFFF;
DRAWTEXT(單陽=1 AND CROSS(周K,周D) AND 周K<50,BB*1.08,'啟'),colorFFFF;
DRAWTEXT(單陽=1 AND 周K>50 AND 周K<80,BB*0.97,'強'),colorFFFF;
DRAWTEXT(單陽=1 AND 周K>=80,BB*0.97,'沖'),colorFFFF;
STICKLINE(單陽啟穩=1,BB,BB*1.03,0,0),colorD36F3E;
STICKLINE(單陽啟穩=1,BB*1.02,BB*1.02,8,0),colorD36F3E;
DRAWTEXT(單陽啟穩=1,BB,'穩'),colorD36F3E;
STICKLINE(單陽攻擊=1,BB,BB*1.05,0,1),colorA400FF;
STICKLINE(單陽攻擊=1,BB*1.01,BB*1.04,8,1),colorA400FF;
DRAWTEXT(單陽攻擊=1,BB*1.08,'攻'),colorFF;{程序化交易 www.kzuj.com.cn }