查看完整版本: RSI+自动划线

K线穿针 2008-12-1 11:44

RSI+自动划线

[size=14px]REFLINE: 0, 30, 50,70,100;
LC := REF(CLOSE,1);
RSI1:SMA(MAX(CLOSE-LC,0),N1,1)/SMA(ABS(CLOSE-LC),N1,1)*100;
TY:=RSI1;
A1:=REF(TY,N)=HHV(TY,2*N+1); B1:=FILTER(A1,N); C1:=BACKSET(B1,N+1); D1:=FILTER(C1,N);{高?}
A2:=REF(TY,N)=LLV(TY,2*N+1); B2:=FILTER(A2,N); C2:=BACKSET(B2,N+1); D2:=FILTER(C2,N);{低?}
H1:=(D1 AND NOT(D2)) OR ISLASTBAR OR BARSCOUNT(C)=1;
L1:=(D2 AND NOT(D1));  H2:=D1 AND NOT(D2);
X1:=REF(BARSLAST(H1),1)+1; F1:=BACKSET(H1 AND COUNT(L1,X1)>0,LLVBARS(IF(L1,L,10000),X1));
G1:=F1>REF(F1,1); I1:=BACKSET(G1,2); LD:=I1>REF(I1,1);{過濾后低麮}
L2:=LD OR ISLASTBAR OR BARSCOUNT(C)=1;
X2:=REF(BARSLAST(L2),1)+1; F2:=BACKSET(L2 AND COUNT(H2,X2)>0,HHVBARS(IF(H2,H,0),X2));
G2:=F2>REF(F2,1); I2:=BACKSET(G2,2); HD:=I2>REF(I2,1);{過濾后高麮}
R1:=BACKSET(ISLASTBAR,BARSLAST(HD)+1); S1:=R1>REF(R1,1); {前一高}
T1:=BACKSET(ISLASTBAR,BARSLAST(LD)+1); U1:=T1>REF(T1,1); {前一低}
R2:=BACKSET(S1,REF(BARSLAST(HD),1)+2); S2:=R2>REF(R2,1); {前二高}
T2:=BACKSET(U1,REF(BARSLAST(LD),1)+2); U2:=T2>REF(T2,1); {前二低}
T3:=BACKSET(U2,REF(BARSLAST(LD),1)+2); U3:=T3>REF(T3,1); {前三低}
T4:=BACKSET(U3,REF(BARSLAST(LD),1)+2); U4:=T4>REF(T4,1); {前四低}
R3:=BACKSET(S2,REF(BARSLAST(HD),1)+2); S3:=R3>REF(R3,1); {前三高}
R4:=BACKSET(S3,REF(BARSLAST(HD),1)+2); S4:=R4>REF(R4,1); {前四高}
壓一: DRAWLINE(S2,TY,S1,TY,1),COLOR80FFFF; {★壓力1:}         
撐一: DRAWLINE(U2,TY,U1,TY,1),POINTDOT,COLOR00FFFF,LINETHICK2;{★支撐1:}
壓二: DRAWLINE(S3,TY,S2,TY,1),COLORFF8000; {★壓力2:}
撐二: DRAWLINE(U3,TY,U2,TY,1),POINTDOT,COLORFF8000;{★支撐2:}         
壓三: DRAWLINE(S4,TY,S3,TY,1),COLOR0000FF;{★壓力3:}
撐三: DRAWLINE(U4,TY,U3,TY,1),POINTDOT,COLOR0000FF;{★支撐3:};
QS:=HHV(RSI1,13);
RS:=LLV(RSI1,13);
VAR1:=BACKSET(REF(QS,2)=HHV(QS,5),3);
VAR2:=CROSS(VAR1,0.9);
VAR3:=BACKSET(REF(RS,2)=LLV(RS,5),3);
VAR4:=CROSS(VAR3,0.9);
壓力: REF(QS,BARSLAST(VAR2)),POINTDOT,COLOR00FF00;
STICKLINE(RSI1,REF(QS,BARSLAST(VAR2)),REF(QS,BARSLAST(VAR2)),5,0),COLOR00FF00;
支撐:REF(RS,BARSLAST(VAR4)),POINTDOT,COLOR0087FF;
STICKLINE(RSI1,REF(RS,BARSLAST(VAR4)),REF(RS,BARSLAST(VAR4)),5,0),COLOR0087FF;


[size=4][color=#ff0000]N=3   N1=14[/color][/size]
[size=4][color=#ff0000][/color][/size]
[size=4][color=#ff0000]大智慧:[/color][/size]
{参数:  n    2.9       3       3
            n1  13.9     14      14}
REFLINE: 0, 30, 50,70,100;
LC := REF(CLOSE,1);
RSI1:SMA(MAX(CLOSE-LC,0),N1,1)/SMA(ABS(CLOSE-LC),N1,1)*100;
TY:=RSI1;
A1:=REF(TY,N)=HHV(TY,2*N+1); B1:=FILTER(A1,N); C1:=BACKSET(B1,N+1); D1:=FILTER(C1,N);{高?}
A2:=REF(TY,N)=LLV(TY,2*N+1); B2:=FILTER(A2,N); C2:=BACKSET(B2,N+1); D2:=FILTER(C2,N);{低?}
L1:=(D2 AND NOT(D1));  H2:=D1 AND NOT(D2);
QS:=HHV(RSI1,13);
RS:=LLV(RSI1,13);
VAR1:=BACKSET(REF(QS,2)=HHV(QS,5),3);
VAR2:=CROSS(VAR1,0.9);
VAR3:=BACKSET(REF(RS,2)=LLV(RS,5),3);
VAR4:=CROSS(VAR3,0.9);
壓力:REF(QS,BARSLAST(VAR2)),POINTDOT,COLOR00FF00;
STICKLINE(RSI1,REF(QS,BARSLAST(VAR2)),REF(QS,BARSLAST(VAR2)),5,0),COLOR00FF00;
支撐:REF(RS,BARSLAST(VAR4)),POINTDOT,COLOR0087FF;
STICKLINE(RSI1,REF(RS,BARSLAST(VAR4)),REF(RS,BARSLAST(VAR4)),5,0),COLOR0087FF;

[/size]
页: [1]
查看完整版本: RSI+自动划线