复制内容到剪贴板
代码:
input:nn(10,1,100);
AAA:=CHECKUSER(0);
{MA(C,BARSCOUNT(C));}
周K:=STKINDI(STKLABEL,'kdj.k',0,7),colorred;
周D:=STKINDI(STKLABEL,'kdj.d',0,7),COLORCYAN;
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)))),COLORYELLOW;
压力:IF(CROSS(j24,j),HIGH,REF(HIGH,BARSLAST(CROSS(j24,j)))),COLorred;
{以下作背离时研判的RSI值，如上所述}
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))),COLORgreen;
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))),COLORMAGENTA;
zf:(CLOSE-压力)*100/压力,LINETHICK0;
x1:=IF(BARSCOUNT(CLOSE)=1 , (OPEN+HIGH+LOW+CLOSE)/4 , CLOSE) , linethick1;
x2:=IF(BARSCOUNT(CLOSE)=1 , (OPEN+CLOSE)/2 , SMA(REF(x1,1),2,1)) , linethick1;
x3:=HIGH , linethick1;
x4:=LOW , linethick1;
STICKLINE( x2<x1,x3,x4,0.1,0 ),ColorRed ;
STICKLINE( x2<x1,x1,x2,7,1 ),ColorRed ;
STICKLINE( x2>x1,x3,x4,0.1,0 ),COLORCYAN;
STICKLINE( x2>x1,x1,x2,7,0 ),COLORCYAN;
//OPEN=Close，價揚，紅色上下影線
STICKLINE( x2=x1 and x1>=REF(x1,1),x3,x4,0.1,0),ColorRed ;
//OPEN=Close，價揚，紅色實體K棒
STICKLINE( x2=x1 and x1>=REF( x1,1),x1,x2,7,0),ColorRed ;
//OPEN=Close，價跌，紅色上下影線
STICKLINE( x2=x1 and x1<REF( x1,1),x3,x4,0.1,0),Colorblue ;
//OPEN=Close，價跌，紅色實體K棒
STICKLINE( x2=x1 and x1<REF( x1,1),x1,x2,7,0),Colorblue ;
//第一個交易日open=close的K線，
STICKLINE( x2=x1 and BARSCOUNT(CLOSE),x3,x4,0.1,0),COLORMAGENTA;
STICKLINE( x2=x1 and BARSCOUNT(CLOSE),x2,x1,7,0),COLORMAGENTA;
cb:=AMOUNT/VOL/100;
cd:=cb>HIGH or cb<LOW;
//STICKLINE(cd<1,cb-0.002,cb+0.002,8,1),COLORYELLOW;
AA:=IF(CLOSE>200,182.6,1.826);
BB:=IF(CLOSE>200,91.3,0.913);
大下箱:INTPART(CLOSE/AA )*AA,POINTDOT,linethick1,colorcyan,linethick3;
大上箱:大下箱+AA,POINTDOT,linethick1,colorred,linethick3;
小下箱:INTPART(CLOSE/BB )*BB,POINTDOT,linethick1,colormagenta;
小上箱:小下箱+BB,POINTDOT,linethick1,COLORYELLOW;
