奇狐社區論壇 (http://www.chiefox.com.tw/bbs/index.php)
- 問題交流 (http://www.chiefox.com.tw/bbs/forumdisplay.php?forumid=28)
-- [求救]標示劃分段線 (http://www.chiefox.com.tw/bbs/showthread.php?threadid=12468)

[求救]標示劃分段線

請教版主:
以下要如何將AMA標示劃分段線於旁,如兵壓同.....謝謝

//轉折價
NkO:=O;
NkH:=H;
NkL:=L;
NkC:=C;
/////////////////////////////////////////////////////////////////////////////
NKC[0]:=(NKH[0]+NKL[0]+2*NKC[0])/4;
For i=Lbound(NKC)+1 to Ubound(NKC) do Begin
NKO[i]:=(NKO[i-1]+NKC[i-1])/2;
if NKO[i]>NKH[i] then NKH[i]:=NKO[i] else NKH[i]:=NKH[i];
if NKO[i]<NKL[i] then NKL[i]:=NKO[i] else NKL[i]:=NKL[i];
NKC[i]:=(NKH[i]+NKL[i]+2*NKC[i])/4;
End;
/////////////////////////////////////////////////////////////////////////////
//The following lines are simply to display the new K Bars
STICKLINE(NKC>NKO ,NKC,NKH,0.1,1),ColorRED;
STICKLINE(NKC>NKO ,NKO,NKC,7,0),ColorRED;
STICKLINE(NKC>NKO ,NKO,NKL,0.1,1),ColorRED;
STICKLINE(NKC=NKO and NKC>REF(NKC,1),NKL,NKH,0.1,0),ColorRED;
STICKLINE(NKC=NKO and NKC>REF(NKC,1),NKO,NKC,7,0),ColorRED;
STICKLINE(NKC=NKO and NKC=REF(NKC,1),NKL,NKH,0.1,0),ColorYELLOW;
STICKLINE(NKC=NKO and NKC=REF(NKC,1),NKO,NKC,7,0),ColorYELLOW;
STICKLINE(NKC=NKO and NKC<REF(NKC,1),NKL,NKH,0.1,0),ColorFFCC33;
STICKLINE(NKC=NKO and NKC<REF(NKC,1),NKO,NKC,7,0),ColorFFCC33;
STICKLINE(NKC<NKO ,NKO,NKH,0.1,0),ColorFFCC33;
STICKLINE(NKC<NKO ,NKO,NKC,7,0),ColorFFCC33;
STICKLINE(NKC<NKO ,NKC,NKL,0.1,0),ColorFFCC33;
/////////////////////////////////////////////////////////////////////////////



N:=12;
N1:=22;
N2:=3;
N3:=11;
P:=2;
Q:=14;
K:=2;
M:=12;

LLV(FORCAST(LOW,n3),M),PRECISION0,LINETHICK1;
HHV(FORCAST(CLOSE,n3),n1),PRECISION0,LINETHICK1;
HHV(FORCAST(CLOSE,n3),n2),PRECISION0,LINETHICK1;
FORCAST(CLOSE,n3),PRECISION0,LINETHICK1;


兵撐:LLV(FORCAST(LOW,n3),M),LINETHICK1,PRECISION0;
DRAWNUMBER(ISLASTBAR,兵撐,兵撐,0) shift2 pxup8,COLORDDDDDD;
DRAWTEXT(LLV(FORCAST(LOW,n3),M) AND ISLASTBAR,兵撐,' <兵撐'),Shift2,align1,COLORDDDDDD;

兵壓:HHV(FORCAST(CLOSE,n3),n1),PRECISION0,COLORYELLOW;
DRAWNUMBER(ISLASTBAR,兵壓,兵壓,0) shift2 pxup8,COLORYELLOW;
DRAWTEXT(HHV(FORCAST(CLOSE,n3),n1) AND ISLASTBAR,兵壓,' <兵壓'),Shift2,align1,COLORYELLOW;

{Adaptive Moving Average , AMA , 最佳移動平均}



Direction:=CLOSE - REF( CLOSE , N ) ;

XX:=ABS( CLOSE - REF( CLOSE , 1 ) ) ;

Volatility:=SUM( XX , N ) ;


ER:=ABS( Direction / Volatility ) ;


FastC:= 2 / ( p + 1 ) ;

SlowC:= 2 / ( q + 1 ) ;

SSC:=ER * ( FastC - SlowC ) + SlowC ;


Constant :=SSC * SSC , Linethick0;


YY:=REF( Close , 1 ) + Constant * ( CLOSE - REF( Close , 1 ) ) ;


AA:=IF( SUM( 1 , 0 )= N + 1 , YY , 0 ) ;

BB:=BarsLast( abs(AA)>0 ) ;


DD:=REF( C , BB ) ;

收盤價格:CLOSE , Linethick0 , Precision2;
CC:=CLOSE , Linethick0 ;

<%
NN= FFL.VarData("N")

VD= FFL.VarData("DD")
VC= FFL.VarData("CC")

Vonstant= FFL.VarData("Constant")


LT = UBound( VC )


for m=NN + 1 to LT

VD( m )=VD( m - 1 ) + Vonstant( m ) * ( VC( m ) - VD( m - 1 ) )

next


FFL.VarData("DD")=VD
%>

AMA:DD , Linethick0;

MX:=LLV(AMA,DATACOUNT);
MY:=MX[DATACOUNT];
AMB:=AMA+ABS(MY);


FFilter:=( K / 100 ) * Std( AMB - REF( AMB , 1 ) , N ) ;


XA:=IF( AMB<REF( AMB , 1 ) , AMB , 0 ) ;
XN:=BarsLast( XA>0 ) ;

AMALow :=REF( AMB , XN ) ;


YA:=IF( AMB>REF( AMB , 1 ) , AMB , 0 ) ;
YN:=BarsLast( YA>0 ) ;

AMAHigh :=REF( AMB , YN ) ;


RR:=IF( AMAHigh - AMB > FFilter , -1 , 0 ) ;
TT:=IF( AMB - AMALow > FFilter , 1 , RR ) ;

PartLine(TT=1,AMA) , ColorRed , Linethick2;
PartLine(TT= -1,AMA) , ColorGreen , Linethick2;
PartLine(TT= 0,AMA) , ColorFFFEEE , Linethick2;

__________________
小和

引用:

---

最初由 et169191 發表
請教版主:
以下要如何將AMA標示劃分段線於旁,如兵壓同.....謝謝

//轉折價
NkO:=O;
NkH:=H;
NkL:=L;
NkC:=C;
/////////////////////////////////////////////////////////////////////////////
NKC[0]:=(NKH[0]+NKL[0]+2*NKC[0])/4;
For i=Lbound(NKC)+1 to Ubound(NKC) do Begin
NKO[i]:=(NKO[i-1]+NKC[i-1])/2;
if NKO[i]>NKH[i] then NKH[i]:=NKO[i] else NKH[i]:=NKH[i];
if NKO[i]<NKL[i] then NKL[i]:=NKO[i] else NKL[i]:=NKL[i];
NKC[i]:=(NKH[i]+NKL[i]+2*NKC[i])/4;
End;
/////////////////////////////////////////////////////////////////////////////
//The following lines are simply to display the new K Bars
STICKLINE(NKC>NKO ,NKC,NKH,0.1,1),ColorRED;
STICKLINE(NKC>NKO ,NKO,NKC,7,0),ColorRED;
STICKLINE(NKC>NKO ,NKO,NKL,0.1,1),ColorRED;
STICKLINE(NKC=NKO and NKC>REF(NKC,1),NKL,NKH,0.1,0),ColorRED;
STICKLINE(NKC=NKO and NKC>REF(NKC,1),NKO,NKC,7,0),ColorRED;
STICKLINE(NKC=NKO and NKC=REF(NKC,1),NKL,NKH,0.1,0),ColorYELLOW;
STICKLINE(NKC=NKO and NKC=REF(NKC,1),NKO,NKC,7,0),ColorYELLOW;
STICKLINE(NKC=NKO and NKC<REF(NKC,1),NKL,NKH,0.1,0),ColorFFCC33;
STICKLINE(NKC=NKO and NKC<REF(NKC,1),NKO,NKC,7,0),ColorFFCC33;
STICKLINE(NKC<NKO ,NKO,NKH,0.1,0),ColorFFCC33;
STICKLINE(NKC<NKO ,NKO,NKC,7,0),ColorFFCC33;
STICKLINE(NKC<NKO ,NKC,NKL,0.1,0),ColorFFCC33;
/////////////////////////////////////////////////////////////////////////////



N:=12;
N1:=22;
N2:=3;
N3:=11;
P:=2;
Q:=14;
K:=2;
M:=12;

LLV(FORCAST(LOW,n3),M),PRECISION0,LINETHICK1;
HHV(FORCAST(CLOSE,n3),n1),PRECISION0,LINETHICK1;
HHV(FORCAST(CLOSE,n3),n2),PRECISION0,LINETHICK1;
FORCAST(CLOSE,n3),PRECISION0,LINETHICK1;


兵撐:LLV(FORCAST(LOW,n3),M),LINETHICK1,PRECISION0;
DRAWNUMBER(ISLASTBAR,兵撐,兵撐,0) shift2 pxup8,COLORDDDDDD;
DRAWTEXT(LLV(FORCAST(LOW,n3),M) AND ISLASTBAR,兵撐,' <兵撐'),Shift2,align1,COLORDDDDDD;

兵壓:HHV(FORCAST(CLOSE,n3),n1),PRECISION0,COLORYELLOW;
DRAWNUMBER(ISLASTBAR,兵壓,兵壓,0) shift2 pxup8,COLORYELLOW;
DRAWTEXT(HHV(FORCAST(CLOSE,n3),n1) AND ISLASTBAR,兵壓,' <兵壓'),Shift2,align1,COLORYELLOW;

{Adaptive Moving Average , AMA , 最佳移動平均}



Direction:=CLOSE - REF( CLOSE , N ) ;

XX:=ABS( CLOSE - REF( CLOSE , 1 ) ) ;

Volatility:=SUM( XX , N ) ;


ER:=ABS( Direction / Volatility ) ;


FastC:= 2 / ( p + 1 ) ;

SlowC:= 2 / ( q + 1 ) ;

SSC:=ER * ( FastC - SlowC ) + SlowC ;


Constant :=SSC * SSC , Linethick0;


YY:=REF( Close , 1 ) + Constant * ( CLOSE - REF( Close , 1 ) ) ;


AA:=IF( SUM( 1 , 0 )= N + 1 , YY , 0 ) ;

BB:=BarsLast( abs(AA)>0 ) ;


DD:=REF( C , BB ) ;

收盤價格:CLOSE , Linethick0 , Precision2;
CC:=CLOSE , Linethick0 ;

<%
NN= FFL.VarData("N")

VD= FFL.VarData("DD")
VC= FFL.VarData("CC")

Vonstant= FFL.VarData("Constant")


LT = UBound( VC )


for m=NN + 1 to LT

VD( m )=VD( m - 1 ) + Vonstant( m ) * ( VC( m ) - VD( m - 1 ) )

next


FFL.VarData("DD")=VD
%>

AMA:DD , Linethick0;

MX:=LLV(AMA,DATACOUNT);
MY:=MX[DATACOUNT];
AMB:=AMA+ABS(MY);


FFilter:=( K / 100 ) * Std( AMB - REF( AMB , 1 ) , N ) ;


XA:=IF( AMB<REF( AMB , 1 ) , AMB , 0 ) ;
XN:=BarsLast( XA>0 ) ;

AMALow :=REF( AMB , XN ) ;


YA:=IF( AMB>REF( AMB , 1 ) , AMB , 0 ) ;
YN:=BarsLast( YA>0 ) ;

AMAHigh :=REF( AMB , YN ) ;


RR:=IF( AMAHigh - AMB > FFilter , -1 , 0 ) ;
TT:=IF( AMB - AMALow > FFilter , 1 , RR ) ;

PartLine(TT=1,AMA) , ColorRed , Linethick2;
PartLine(TT= -1,AMA) , ColorGreen , Linethick2;
PartLine(TT= 0,AMA) , ColorFFFEEE , Linethick2;

---

請教版主

請教版主:

套入以下不知為何會出現很多數據,請修正,謝謝...........
DRAWNUMBER(1,AMA,AMA,2) shift2 COLORMAGENTA;

__________________
小和

回覆: 請教版主

引用:

---

最初由 et169191 發表
請教版主:

套入以下不知為何會出現很多數據,請修正,謝謝...........
DRAWNUMBER(1,AMA,AMA,2) shift2 COLORMAGENTA;

---