奇狐社區論壇 (http://www.chiefox.com.tw/bbs/index.php)
- 應用交流 (http://www.chiefox.com.tw/bbs/forumdisplay.php?forumid=33)
-- [求救]交易指標 (http://www.chiefox.com.tw/bbs/showthread.php?threadid=10433)

[求救]交易指標

請教版主或各位大大.要在如下附圖顯示1.當價格突破防守價向上時.顯示買進箭頭向上.反之則顯示賣出箭頭向下.
2.皆可在主圖及副圖皆能顯示..如此易較判別.值得參考
請各位幫忙.感恩不盡.....



N:=12;
N1:=22;
N2:=3;
N3:=11;
P:=2;
Q:=15;
K:=2;
M:=11;


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

///////以下英文部分是AMA原碼
X:=有效值週期數( 收盤價 ) ;
{ 以下是描繪第一個交易日的K線，以補前面含蓋的不足 }
畫柱線( 當日收平 and X = 1 , 最高價, 最低價, 0.1, 0 ) , Color5050FF ;
畫柱線( 當日收平 and X = 1 , 收盤價 , 開盤價 , 7 , 0 ) , Color5050FF ;
{=============================================================}
Direction:=收盤價 - 向前引用( 收盤價 , N ) ;
XX:=絕對值( 收盤價 - 向前引用( 收盤價 , 1 ) ) ;
Volatility:=求和( XX , N ) ;
ER:=絕對值( Direction / Volatility ) ;
FastC:= 2 / ( p + 1 ) ;
SlowC:= 2 / ( q + 1 ) ;
SSC:=ER * ( FastC - SlowC ) + SlowC ;
Constant :=SSC * SSC , Linethick0;
YY:=向前引用( 收盤價 , 1 ) + Constant * ( 收盤價 - 向前引用( 收盤價 , 1 ) ) ;
AA:=條件函數( 求和( 1 , 0 )= N + 1 , YY , 0 ) ;
BB:=上一次條件成立位置( 絕對值(AA)>0 ) ;
DD:=向前引用( 收盤價 , BB ) ;
CC:=收盤價 , 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,COLOR00FF99,PRECISION0;
MX:=最低值(AMA,序列數據量);
MY:=MX[序列數據量];
AMB:=AMA+絕對值(MY);
FFilter:=( K / 100 ) * 估算標準差( AMB - 向前引用( AMB , 1 ) , N ) ;
XA:=條件函數( AMB<向前引用( AMB , 1 ) , AMB , 0 ) ;
XN:=上一次條件成立位置( XA>0 ) ;
AMALow :=向前引用( AMB , XN ) ;
YA:=條件函數( AMB>向前引用( AMB , 1 ) , AMB , 0 ) ;
YN:=上一次條件成立位置( YA>0 ) ;
AMAHigh :=向前引用( AMB , YN ) ;
RR:=條件函數( AMAHigh - AMB > FFilter , -1 , 0 ) ;
TT:=條件函數( AMB - AMALow > FFilter , 1 , RR ) ;
畫分段線(TT=1,AMA) , COLORYELLOW, Linethick4;
畫分段線(TT= -1,AMA) , COLOR003399, Linethick4;
畫分段線(TT= 0,AMA) , COLORYELLOW, Linethick4;

//////////////////////////////////////////////////////////////////////////

///////////////
多防:=EMA(L,5); //支撐
空防:=EMA(H,5); //壓力
//
易位:=If(CROSS(C,空防),1,If(CROSS(多防,C),-1,0)),LineThick0,PRECISION0;
TK:=Ref(易位,BarsLast(易位));
防守價:If(TK>0,多防,空防),LineThick0,COLORMAGENTA,PRECISION0;
PartLine(TK >0,防守價),COLORMAGENTA,LineThick2;
PartLine(TK <=0,防守價),COLORGREEN,LineThick2;
PartLine(Cross(TK,0.5),防守價),ColorYELLOW,LineThick2;
PartLine(Cross(0.5,TK),防守價),ColorYELLOW,LineThick2;
//
//隨多空改變顏色
StickLine(TK>0 AND ISLASTBAR,防守價,防守價,10,1),COLORMAGENTA,Shift1,LineThick2;
StickLine(TK<0 AND ISLASTBAR,防守價,防守價,10,1),COLORGREEN,Shift1,LineThick2;
DRAWNUMBER(TK>0 AND ISLASTBAR,防守價,防守價,0),COLORMAGENTA,Shift2;
DRAWNUMBER(TK<0 AND ISLASTBAR,防守價,防守價,0),COLORCYAN,Shift2;
DRAWTEXT(TK>0 AND ISLASTBAR,防守價,' <多方防守價'),Shift3,align1,Color9966FF;
DRAWTEXT(TK<0 AND ISLASTBAR,防守價,' <空方防守價'),Shift3,align1,COLOR99CC66;


///////
//轉折價
NkO:=開盤價;
NkH:=最高價;
NkL:=最低價;
NkC:=收盤價;

///////
NKC[0]:=(NKH[0]+NKL[0]+2*NKC[0])/4;
For i=序列下界(NKC)+1 to 序列上界(NKC) do Begin
NKO[i]:=(NKO[i-1]+NKC[i-1])/2;
條件函數 NKO[i]>NKH[i] then NKH[i]:=NKO[i] else NKH[i]:=NKH[i];
條件函數 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
畫柱線(NKC>NKO ,NKC,NKH,0.1,1),ColorRED;
畫柱線(NKC>NKO ,NKO,NKC,8,0),ColorRED;
畫柱線(NKC>NKO ,NKO,NKL,0.1,1),ColorRED;
畫柱線(NKC=NKO and NKC>向前引用(NKC,1),NKL,NKH,0.1,0),ColorRED;
畫柱線(NKC=NKO and NKC>向前引用(NKC,1),NKO,NKC,8,0),ColorRED;
畫柱線(NKC=NKO and NKC=向前引用(NKC,1),NKL,NKH,0.1,0),ColorYELLOW;
畫柱線(NKC=NKO and NKC=向前引用(NKC,1),NKO,NKC,8,0),ColorYELLOW;
畫柱線(NKC=NKO and NKC<向前引用(NKC,1),NKL,NKH,0.1,0),ColorFFCC33;
畫柱線(NKC=NKO and NKC<向前引用(NKC,1),NKO,NKC,8,0),ColorFFCC33;
畫柱線(NKC<NKO ,NKO,NKH,0.1,0),COLORWHITE;
畫柱線(NKC<NKO ,NKO,NKC,8,0),COLORAAAAAA;
畫柱線(NKC<NKO ,NKC,NKL,0.1,0),COLORWHITE;
////////
今轉折:0.5*(NKO+NKC),LineThick0,Shift1,COLORWHITE,PRECISION0;
明轉折:今轉折,LineThick0,COLORYELLOW,PRECISION0;
顯示數字(是否最後週期,明轉折,明轉折,0),Shift2,COLORYELLOW; //不取四捨五入

/////

收盤價格:CLOSE , Linethick0 , Precision0;

__________________
小和

DRAWICON(CROSS(c,防守價),L,4) PXDN15;
DRAWICON(CROSS(防守價,c),H,5) PXUP30;

可否請教 et169191 大

NkO:=開盤價;
NkH:=最高價;
NkL:=最低價;
NkC:=收盤價;

///////
NKC[0]:=(NKH[0]+NKL[0]+2*NKC[0])/4;

上面的開、最高、最低、收盤是指當天(或當根)的嗎？還是另外 ..
因為我計算出來
跟圖顯示的價不一樣

請明示

請問版主大大

謝謝版主訊迅速有效率回覆.另請求箭頭太小.可否自行設定大小.感恩......

__________________
小和

回覆: 請問版主大大

引用:

---

最初由 et169191 發表
謝謝版主訊迅速有效率回覆.另請求箭頭太小.可否自行設定大小.感恩......

---