证券交易新空间一书中的精华包含所有源码

{鳄鱼线}

Y:=(HIGH+LOW)/2;

上唇:SMA(Y,5,1),SHIFT3,COLORGREEN; 牙齿:SMA(Y,8,1),SHIFT5,COLORRED; 下鄂:SMA(Y,13,1),SHIFT8,COLORFF6600; {分形- 没有未来函数}

KU1:=IF(HIGH=HHV(HIGH,3),1,0); KD1:=IF( LOW=LLV( LOW,3),1,0);

UL:=IF(REF(KU1,2)=1 AND REF(KU1,1)=0 AND

KU1=0,REF(HIGH,2),REF(HIGH,2+BARSLAST(REF(KU1,2)=1 AND REF(KU1,1)=0 AND KU1=0))); DL:=IF(REF(KD1,2)=1 AND REF(KD1,1)=0 AND KD1=0,REF(LOW,2), REF(LOW,2+BARSLAST(REF(KD1,2)=1 AND REF(KD1,1)=0 AND KD1=0))); 上分

形:IF(HIGH>=MA(CLOSE,3),UL,REF(UL,BARSLAST(HIGH>MA(CLOSE,3)))),LINETHICK0,COLORMAGENTA;{分形数字}

下分

形:IF( LOW<=MA(CLOSE,3),DL,REF(DL,BARSLAST(LOW<=MA(CLOSE,3)))),LINETHICK0,COLORYELLOW;

STICKLINE(BARSLAST(ABS(上分形-REF(上分形,1)))上分形 AND

REF(CLOSE,1)REF(下分形,1)),下分形,下分形,5,1),LINETHICK1,COLORYELLOW;

DRAWICON(CLOSE>上分形 AND REF(CLOSE,1)REF(下分形,1),LOW*0.99,5); {AOAC-K区域}

Var1:=(HIGH+LOW)/2;

AO:=MA(Var1,5)-MA(Var1,34); AC:=AO-MA(AO,5);

VF:=AO>REF(AO,1) AND AC>REF(AC,1),COLORRED; VG:=AOREF(AO,1) AND ACREF(AC,1),COLORGRAY; VJ:=VH OR VI;

STICKLINE(VF AND CLOSE>OPEN,CLOSE,OPEN,8,1),COLORRED; STICKLINE(VF AND CLOSE<=OPEN,CLOSE,OPEN,8,0),COLORRED; STICKLINE(VF,HIGH,LOW,1,0),COLORRED;

STICKLINE(VG AND CLOSE>OPEN,CLOSE,OPEN,8,1),COLORGREEN; STICKLINE(VG AND CLOSE<=OPEN,CLOSE,OPEN,8,0),COLORGREEN; STICKLINE(VG,HIGH,LOW,1,0),COLORGREEN;

STICKLINE(VJ AND CLOSE>OPEN,CLOSE,OPEN,8,1),COLORGRAY; STICKLINE(VJ AND CLOSE<=OPEN,CLOSE,OPEN,8,0),COLORGRAY; STICKLINE(VJ,HIGH,LOW,1,0),COLORGRAY; {平衡线}

P1:=REF(HIGH,1)>HIGH AND REF(HIGH,1)>下鄂;

平衡线买:REF(REF(HIGH,1),BARSLAST(p1)),LINETHICK0,COLORWHITE; STICKLINE(CROSS(HIGH,平衡线买) AND LOW>平衡线

买,(HIGH+LOW)/2,(HIGH+LOW)/2,12,0),LINETHICK1,COLORWHITE;

STICKLINE(CROSS(HIGH,平衡线买) AND LOW<=平衡线买,平衡线买,平衡线买,12,0),LINETHICK1,COLORWHITE;

P2:=REF(LOW,1)

平衡线卖:REF(REF(LOW,1),BARSLAST(p2)),LINETHICK0,COLORCYAN; STICKLINE(CROSS(平衡线卖,LOW) AND HIGH<平衡线

卖,(HIGH+LOW)/2,(HIGH+LOW)/2,12,0),LINETHICK1,COLORCYAN;

STICKLINE(CROSS(平衡线卖,LOW) AND HIGH>=平衡线卖,平衡线卖,平衡线卖,12,0),LINETHICK1,COLORCYAN; {AO,AC方向}

AO:=MA(Y,5)-MA(Y,34);

AC:=AO-MA(AO,5);

DRAWTEXT(ISLASTBAR AND AO>REF(AO,1) AND AC>REF(AC,1),Y,'↑AO↑AC'),SHIFT1,COLORRED; DRAWTEXT(ISLASTBAR AND AO

DRAWTEXT(ISLASTBAR AND AO>REF(AO,1) AND AC

DRAWTEXT(ISLASTBAR AND AOREF(AC,1),Y,'↓AO↑AC'),SHIFT1,COLORWHITE;

{GATOR}

var1:=(HIGH+LOW)/2;

颚:=SMA(var1,13,1),LINETHICK0; 齿:=SMA(var1,8,1),LINETHICK0; 唇:=SMA(var1,5,1),LINETHICK0;

齿颚:IF(齿>颚,齿-颚,颚-齿),LINETHICK0;

齿唇:IF(齿<唇,齿-唇,唇-齿),LINETHICK0;

STICKLINE(齿颚REF(齿颚,1),0,齿颚,6,1),SHIFT5,COLORRED; STICKLINE(齿唇>REF(齿唇,1),0,齿唇,6,1),SHIFT3,COLORGREEN; STICKLINE(齿唇

Y:=(LOW+HIGH)/2;

E:=EMA(EMA(Y,5)-EMA(Y,34),2); EO:EMA(E,1),COLORGREEN; 0,LINEDOT;

PARTLINE(EO>REF(EO,1),EO),COLORRED,LINETHICK2;