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

註冊日期: Sep 2007
來　　自: 台南縣
文章數量: 173
[求救]標示劃分段線

請教版主:
以下要如何將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;

__________________
小和

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

註冊日期: Oct 2003
來　　自:
文章數量: 18116

引用:
最初由 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;

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

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

請教版主:

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

__________________
小和

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

註冊日期: Oct 2003
來　　自:
文章數量: 18116
回覆: 請教版主

引用:
最初由 et169191 發表
請教版主:

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


Sorry 沒寫好, 更正如下:

DRAWNUMBER(ISLASTBAR,AMA,AMA,2) shift2 COLORMAGENTA;

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

論壇跳轉:
主題評分:

論壇規定:
你不可以發表新主題
你不可以回覆文章
你不可以上傳附件
你不可以編輯自己的文章 		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.  聯絡我們