奇狐社區論壇 (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=13970)

求助

請問以下(兵分三路+AMA公式)
可否寫出當n3<n2 時k棒顏色變成綠色,當n3與n2合在一起時k棒變成紅色?
LLV(FORCAST(L,n3),M);
HHV(FORCAST(C,n3),n1);
HHV(FORCAST(C,n3),n2);
FORCAST(C,n3);


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

{k-Line 描繪k線}
StickLine( IsUp , HIGH , LOW , 0.1 , 0 ) , Color5050FF ;
StickLine( IsUp , CLOSE , OPEN , 7 , 1 ) , Color5050FF ;

StickLine( IsDown , HIGH , LOW , 0.1 , 0 ) , ColorCyan ;
StickLine( IsDown , CLOSE , OPEN , 7 , 0 ) , ColorCyan ;


StickLine( IsEqual and C>REF( C , 1 ) , HIGH , LOW , 0.1 , 0 ) , Color5050FF ;
StickLine( IsEqual and C>REF( C , 1 ) , CLOSE , OPEN , 7 , 0 ) , Color5050FF ;

StickLine( IsEqual and C<=REF( C , 1 ) , HIGH , LOW , 0.1 , 0 ) , ColorCyan ;
StickLine( IsEqual and C<=REF( C , 1 ) , CLOSE , OPEN , 7 , 0 ) , ColorCyan ;

X:=Barscount( Close ) ;
{ 以下是描繪第一個交易日的K線，以補前面含蓋的不足 }

StickLine( IsEqual and X = 1 , HIGH, LOW, 0.1, 0 ) , Color5050FF ;

StickLine( IsEqual and X = 1 , CLOSE , OPEN , 7 , 0 ) , Color5050FF ;
{=============================================================}


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;
{=============================================================}

回覆: 求助

引用:

---

最初由 a588 發表
請問以下(兵分三路+AMA公式)
可否寫出當n3<n2 時k棒顏色變成綠色,當n3與n2合在一起時k棒變成紅色?
LLV(FORCAST(L,n3),M);
HHV(FORCAST(C,n3),n1);
HHV(FORCAST(C,n3),n2);
FORCAST(C,n3);


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

{k-Line 描繪k線}
StickLine( IsUp , HIGH , LOW , 0.1 , 0 ) , Color5050FF ;
StickLine( IsUp , CLOSE , OPEN , 7 , 1 ) , Color5050FF ;

StickLine( IsDown , HIGH , LOW , 0.1 , 0 ) , ColorCyan ;
StickLine( IsDown , CLOSE , OPEN , 7 , 0 ) , ColorCyan ;


StickLine( IsEqual and C>REF( C , 1 ) , HIGH , LOW , 0.1 , 0 ) , Color5050FF ;
StickLine( IsEqual and C>REF( C , 1 ) , CLOSE , OPEN , 7 , 0 ) , Color5050FF ;

StickLine( IsEqual and C<=REF( C , 1 ) , HIGH , LOW , 0.1 , 0 ) , ColorCyan ;
StickLine( IsEqual and C<=REF( C , 1 ) , CLOSE , OPEN , 7 , 0 ) , ColorCyan ;

X:=Barscount( Close ) ;
{ 以下是描繪第一個交易日的K線，以補前面含蓋的不足 }

StickLine( IsEqual and X = 1 , HIGH, LOW, 0.1, 0 ) , Color5050FF ;

StickLine( IsEqual and X = 1 , CLOSE , OPEN , 7 , 0 ) , Color5050FF ;
{=============================================================}


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
%>

AMAD , 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;
{=============================================================}

---