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

如何改寫成交易訊號

厲害的版大：可以幫幫小弟如何將下列語法寫成「交易買賣訊號呢」，如圖：紅色線買進，綠色線賣出，謝謝版大!!!


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 ) ;


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;

回覆: 如何改寫成交易訊號

引用:

---

最初由 xy608077 發表
厲害的版大：可以幫幫小弟如何將下列語法寫成「交易買賣訊號呢」，如圖：紅色線買進，綠色線賣出，謝謝版大!!!
........................

---

謝謝版大啦

謝謝版大啦