 |
a588
資深會員
註冊日期: Nov 2006
來 自: 台北市
文章數量: 101 |
|
求助
請問以下(兵分三路+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;
{=============================================================}
|
|
向版主報告此篇 |  |
|
2010-07-18 12:27 |
|
|
| |
|
cgjj
總版主
註冊日期: Oct 2003
來 自:
文章數量: 18091 |
|
回覆: 求助
引用:
最初由 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
%>
AMA D , 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;
{=============================================================}
n3與n2 您並未給與其定義唷
|
|
向版主報告此篇 | |
|
|
2010-07-19 11:14 |
|
|
| |
本站所有內容未經作者授權禁止轉貼節錄, 發表言論僅供參考勿作為投資決策依據。瀏覽本站請使用 IE 5.5 以上版本, 最佳瀏覽解析度 1024 x 768 全彩。
|
Powered by: vBulletin Version 2.3.0 - Copyright©2000-, Jelsoft Enterprises Limited.
簡愛洋行 製作 Copyright 2003-. All Rights Reserved. 聯絡我們
|
