czhao 2006-9-10 12:11
江恩法则5.0
input:N(17,1,999);
GDFZ0:=c;
GDFZ1:=h;
GDFZ2:=l;
TYA:=((((((((((GDFZ2 + GDFZ1) + GDFZ0) + REF(GDFZ0,1)) + REF(GDFZ2,1)) + REF(GDFZ1,1)) + REF(GDFZ0,2)) + REF(GDFZ2,2)) + REF(GDFZ1,2)) / 9));
HDA:=(((((HHV(TYA,(17 * 2)) + REF(HHV(TYA,(17 * 2)),1)) + REF(HHV(TYA,(17 * 2)),2)) + REF(HHV(TYA,(17 * 2)),3)) + REF(HHV(TYA,(17 * 2)),4)) / 5);
LDA:=(((((LLV(TYA,(17 * 2)) + REF(LLV(TYA,(17 * 2)),1)) + REF(LLV(TYA,(17 * 2)),2)) + REF(LLV(TYA,(17 * 2)),3)) + REF(LLV(TYA,(17 * 2)),4)) / 5);
A1:=(REF(HDA,1) = (HHV(TYA,((2 * N) + 0))));
B1:=(FILTER(A1,N));
HD:=(FILTER(B1,N));
A2:=(REF(LDA,1) = (LLV(TYA,((2 * N) + 0))));
B2:=(FILTER(A2,N) );
LD:=(FILTER(B2,N));
A:=(REF(HDA,BARSLAST(HD)));
B:=(REF(LDA,BARSLAST(LD)));
T1:=((BARSLAST(HD) < BARSLAST(LD)) AND (NOT(HD)));
T2:=((BARSLAST(HD) > BARSLAST(LD)) AND (NOT(LD)));
BF:=IF(T1,A,A);
HH:=MA(BF,1);
BG:=IF(T2,B,B);
LL:=MA(BG,1);HH1:=(BARSLAST((GDFZ0 > (REF(HH,1) * 1.003))));
LL1:=(BARSLAST((GDFZ0 < (REF(LL,1) * 0.997))));
PARTLINE((HH1 < LL1),LL),,colorFFFF;
PARTLINE((HH1 > LL1),HH),linethick2,colorFFFFFF;
DRAWICON(CROSS(HH1,LL1),HH,2);
DRAWICON(CROSS(LL1,HH1),LL,1);
STICKLINE((HH1 < LL1),OPEN,CLOSE,8,0),colorFF;
STICKLINE((HH1 < LL1),HIGH,LOW,0,0),colorFF;
STICKLINE((HH1 > LL1),OPEN,CLOSE,8,0),colorFF00;
STICKLINE((HH1 > LL1),HIGH,LOW,0,0),colorFF00;
shujenwen 2006-9-15 03:48
3q!
3q3q3q!