到奇狐勝券首頁 奇狐社區論壇 購買奇狐勝券 試用奇狐勝券
 
論壇首頁 你可以在這裡編輯你的資料，查看短訊，訂閱主題和論壇參數等等 免費會員註冊 會員列表 論壇幫助 論壇日曆 論壇搜索 加入我的最愛 登出論壇  
奇狐社區論壇 : Powered by vBulletin version 2.3.0 奇狐社區論壇 > 指標公式 > 應用交流 > [求救]請問兵分三路+AMA
  上一主題   下一主題
作者
主題 發表新主題    回覆主題
et169191
資深會員

註冊日期: Sep 2007
來　　自: 台南縣
文章數量: 173
[求救]請問兵分三路+AMA

請問版主..為何兵分三路+AMA+MA如以下寫法為何無法套入指標公式..請求協助.....謝謝

HHV(FORCAST(C,n3),n1);
HHV(FORCAST(C,n3),n2);
FORCAST(C,n3);

M13:MA(CLOSE,13),COLORRED,LINETHICK0;
PARTLINE(M13>REF(M13,1),M13),COLORRED,LINETHICK1;
PARTLINE(M13<REF(M13,1),M13),COLORYELLOW,,LINETHICK1;
PARTLINE(M13=REF(M13,1),M13),COLORYELLOW,LINETHICK1;



M20:MA(CLOSE,20),COLORRED,LINETHICK0;
PARTLINE(M20>REF(M20,1),M20),COLORRED,LINETHICK2;
PARTLINE(M20<REF(M20,1),M20),COLOR00FF00,LINETHICK2;
PARTLINE(M20=REF(M20,1),M20),COLORYELLOW,LINETHICK2;


M60:MA(CLOSE,60),COLORRED,LINETHICK0;
PARTLINE(M60>REF(M60,1),M60),COLORFF0099,LINETHICK3;
PARTLINE(M60<REF(M60,1),M60),COLORBLUE,LINETHICK3;
PARTLINE(M60=REF(M60,1),M60),COLORYELLOW,LINETHICK3;

M120:MA(CLOSE,120),COLORRED,LINETHICK0;
PARTLINE(M120>REF(M120,1),M120),COLORFF0099,LINETHICK4;
PARTLINE(M120<REF(M120,1),M120),COLORGRAY,LINETHICK4;
PARTLINE(M120=REF(M120,1),M120),COLORYELLOW,LINETHICK4;




{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) , COLOR00FF99, Linethick2;
PartLine(TT= 0,AMA) , ColorFFFEEE , Linethick2;

__________________
小和

向版主報告此篇 | 查IP位址
Old Post 2008-09-06 08:30
et169191 現在離線 點選這裡查看 et169191 的個人資料 點選這裡給 et169191 傳送一條短訊 查找更多關於 et169191 的文章 增加 et169191 至你的好友列表 編輯/刪除訊息 引用回覆
B.S.
資深會員

註冊日期: Mar 2005
來　　自:
文章數量: 2419

AMAD,Linethick0;
笑臉改 冒號DD覆蓋
將此覆蓋
AMA , Linethick0;
您的戰將就可出發啦

最後由 B.S. 在 2008-09-06 17:02 編輯 向版主報告此篇 | 查IP位址
Old Post 2008-09-06 16:56
B.S. 現在離線 點選這裡查看 B.S. 的個人資料 點選這裡給 B.S. 傳送一條短訊 查找更多關於 B.S. 的文章 增加 B.S. 至你的好友列表 編輯/刪除訊息 引用回覆
et169191
資深會員

註冊日期: Sep 2007
來　　自: 台南縣
文章數量: 173
請教版主【兵分三路】套入一般K線

感謝回覆..請問大大.已將您的作法修改還是無法套入指標..是否以下修改對不對..請檢試......謝謝









HHV(FORCAST(C,n3),n1);
HHV(FORCAST(C,n3),n2);
FORCAST(C,n3);

M13:MA(CLOSE,13),COLORRED,LINETHICK0;
PARTLINE(M13>REF(M13,1),M13),COLORRED,LINETHICK1;
PARTLINE(M13<REF(M13,1),M13),COLORYELLOW,,LINETHICK1;
PARTLINE(M13=REF(M13,1),M13),COLORYELLOW,LINETHICK1;



M20:MA(CLOSE,20),COLORRED,LINETHICK0;
PARTLINE(M20>REF(M20,1),M20),COLORRED,LINETHICK2;
PARTLINE(M20<REF(M20,1),M20),COLOR00FF00,LINETHICK2;
PARTLINE(M20=REF(M20,1),M20),COLORYELLOW,LINETHICK2;


M60:MA(CLOSE,60),COLORRED,LINETHICK0;
PARTLINE(M60>REF(M60,1),M60),COLORFF0099,LINETHICK3;
PARTLINE(M60<REF(M60,1),M60),COLORBLUE,LINETHICK3;
PARTLINE(M60=REF(M60,1),M60),COLORYELLOW,LINETHICK3;

M120:MA(CLOSE,120),COLORRED,LINETHICK0;
PARTLINE(M120>REF(M120,1),M120),COLORFF0099,LINETHICK4;
PARTLINE(M120<REF(M120,1),M120),COLORGRAY,LINETHICK4;
PARTLINE(M120=REF(M120,1),M120),COLORYELLOW,LINETHICK4;




{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) , COLOR00FF99, Linethick2;
PartLine(TT= 0,AMA) , ColorFFFEEE , Linethick2;

__________________
小和

向版主報告此篇 | 查IP位址
Old Post 2008-09-06 19:22
et169191 現在離線 點選這裡查看 et169191 的個人資料 點選這裡給 et169191 傳送一條短訊 查找更多關於 et169191 的文章 增加 et169191 至你的好友列表 編輯/刪除訊息 引用回覆
et169191
資深會員

註冊日期: Sep 2007
來　　自: 台南縣
文章數量: 173
請問可將奇狐AMA套入兵分三路嗎.

請問大大.已將您的作法修改還是無法套入指標..今將附加檔案..是否可直接幫忙修改成完整指標...謝謝....

附件: 15分AMA+MA+兵分三路.ALG
此文件已被下載 142 次。

__________________
小和

向版主報告此篇 | 查IP位址
Old Post 2008-09-06 20:11
et169191 現在離線 點選這裡查看 et169191 的個人資料 點選這裡給 et169191 傳送一條短訊 查找更多關於 et169191 的文章 增加 et169191 至你的好友列表 編輯/刪除訊息 引用回覆
B.S.
資深會員

註冊日期: Mar 2005
來　　自:
文章數量: 2419

少了

input:m(12,0,999),n1(22,0,999),n2(5,0,999),n3(11,0,999);

LLV(FORCAST(L,n3),M);
HHV(FORCAST(C,n3),n1);
HHV(FORCAST(C,n3),n2);
FORCAST(C,n3);

複製貼上即可

最後由 B.S. 在 2008-09-06 20:50 編輯 向版主報告此篇 | 查IP位址
Old Post 2008-09-06 20:35
B.S. 現在離線 點選這裡查看 B.S. 的個人資料 點選這裡給 B.S. 傳送一條短訊 查找更多關於 B.S. 的文章 增加 B.S. 至你的好友列表 編輯/刪除訊息 引用回覆
B.S.
資深會員

註冊日期: Mar 2005
來　　自:
文章數量: 2419

如圖

B.S. 附帶上了此圖片:

向版主報告此篇 | 查IP位址
Old Post 2008-09-06 20:51
B.S. 現在離線 點選這裡查看 B.S. 的個人資料 點選這裡給 B.S. 傳送一條短訊 查找更多關於 B.S. 的文章 增加 B.S. 至你的好友列表 編輯/刪除訊息 引用回覆
et169191
資深會員

註冊日期: Sep 2007
來　　自: 台南縣
文章數量: 173

感恩......

__________________
小和

向版主報告此篇 | 查IP位址
Old Post 2008-09-06 21:06
et169191 現在離線 點選這裡查看 et169191 的個人資料 點選這裡給 et169191 傳送一條短訊 查找更多關於 et169191 的文章 增加 et169191 至你的好友列表 編輯/刪除訊息 引用回覆
et169191
資深會員

註冊日期: Sep 2007
來　　自: 台南縣
文章數量: 173
請問版主....兵分三路+2紅綠棒.+AMA

請教大大.附上指標要兵分三路+2紅綠棒另加AMA更能視別.無法自行套入但覺蠻好用的.是否再次幫忙..感激不盡..

附件: 15分兵分三路.ALG
此文件已被下載 142 次。

__________________
小和

向版主報告此篇 | 查IP位址
Old Post 2008-09-07 01:55
et169191 現在離線 點選這裡查看 et169191 的個人資料 點選這裡給 et169191 傳送一條短訊 查找更多關於 et169191 的文章 增加 et169191 至你的好友列表 編輯/刪除訊息 引用回覆
B.S.
資深會員

註冊日期: Mar 2005
來　　自:
文章數量: 2419

我非版主只是雞婆
再問要打屁股啦

input:N(10,1,60),P(2,1,60),Q(30,1,60),K(15,1,100),M(12,0,999),N1(22,0,999),N2(5,0,999),N3(11,0,999);

/////以下是兵分三路
最低值(線性回歸預測值(最低價,n3),M),LINETHICK1;
最高值(線性回歸預測值(收盤價,n3),n1),LINETHICK1;
最高值(線性回歸預測值(收盤價,n3),n2),LINETHICK1;
線性回歸預測值(收盤價,n3);{Red & Black,漲紅跌綠}

/////以下是紅綠K棒
Vaar4:=(最低價+最高價+收盤價)/3;
OP:=向前引用(線性回歸預測值( 簡單移動平均(Vaar4,2),2),1);
CL:=線性回歸預測值( 簡單移動平均(Vaar4,3),3) ;

畫柱線( CL>OP , 最高價 , 最低價 , 1 , 0 ) , COLORRED;
畫柱線( CL>OP , 向前引用(簡單移動平均(Vaar4,3),1) , 簡單移動平均((最低價+最高價+收盤價)/3,1) ,6, 0 ) , COLORRED;
畫柱線( CL=OP , 最高價 , 最低價 , 1 , 0 ) ,COLORYELLOW;
畫柱線( CL=OP , 向前引用(簡單移動平均(Vaar4,3),1) , (最低價+最高價+收盤價)/3 ,6 , 0 ) , COLORYELLOW;
畫柱線( CL<OP , 最高價 , 最低價 , 1 , 0 ) ,COLORFFCC33;
畫柱線( CL<OP , 向前引用(簡單移動平均(Vaar4,3),1) , 簡單移動平均((最低價+最高價+收盤價)/3,1) , 6 , 0 ) , COLORFFCC33;

///以下是簡單移動平均
M13:簡單移動平均(收盤價,13),COLORRED,LINETHICK0;
畫分段線(M13>向前引用(M13,1),M13),COLORRED,LINETHICK2;
畫分段線(M13<向前引用(M13,1),M13),COLORGREEN,LINETHICK2;
畫分段線(M13=向前引用(M13,1),M13),COLORYELLOW,LINETHICK2;

M26:簡單移動平均(收盤價,26),COLORRED,LINETHICK0;
畫分段線(M26>向前引用(M26,1),M26),COLORFF0099,LINETHICK4;
畫分段線(M26<向前引用(M26,1),M26),COLORBLUE,LINETHICK4;
畫分段線(M26=向前引用(M26,1),M26),COLORYELLOW,LINETHICK4;

///////////////////////////////////////////////////////////////////////////////
///////以下英文部分是AMA原碼
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) , ColorCC00CC , Linethick3;
PartLine(TT= -1,AMA) , COLOR00CC99, Linethick3;
PartLine(TT= 0,AMA) , COLORWHITE, Linethick3;
//////////////////////////////////////////////////////////////////////////////

AMA:DD , Linethick0;此處還是要改為AMA冒號DD., Linethick0;

最後由 king 在 2008-09-07 13:12 編輯 向版主報告此篇 | 查IP位址
Old Post 2008-09-07 12:52
B.S. 現在離線 點選這裡查看 B.S. 的個人資料 點選這裡給 B.S. 傳送一條短訊 查找更多關於 B.S. 的文章 增加 B.S. 至你的好友列表 編輯/刪除訊息 引用回覆
全部時間均為台灣時間, 現在時間為02:13 發表新主題    回覆主題
  上一主題   下一主題
顯示可列印版本 | 訂閱此主題

論壇跳轉:
主題評分:

論壇規定:
你不可以發表新主題
你不可以回覆文章
你不可以上傳附件
你不可以編輯自己的文章 		HTML語法禁止
vB 語法核准
表情符號核准
貼圖語法[IMG]核准
 

本站所有內容未經作者授權禁止轉貼節錄, 發表言論僅供參考勿作為投資決策依據。瀏覽本站請使用 IE 5.5 以上版本, 最佳瀏覽解析度 1024 x 768 全彩。

Powered by: vBulletin Version 2.3.0 - Copyright©2000-, Jelsoft Enterprises Limited.
簡愛洋行 製作 Copyright 2003-. All Rights Reserved.  聯絡我們