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

[問題]請問有新三價線?

請問有新三價線?
只有TWR寶塔線
若只有TWR該在那修改公式
在技術指標裡找不到
請幫忙想一下
3Q

寶塔線為內建功能指標無法更改,但可參考『技術指標通論』P278,寶塔線公式

__________________
E-Trader World 交易世界、
Plurk、
Facebook、
Twitter
(EQ:情緒智商) & (HD:習慣領域)才是主導成功交易的重要關鍵。
「存於一個人自身的真相非常簡單，然而人們卻總是追求深奧的真理。」，金融交易亦是如此。

ok 明天訂一本

ok 明天訂一本,king大大可以send 新三價線公式給我嗎?
我怕以我的iq永遠也寫不出來

king大大急需 新三價線，請惠賜小弟

e-mail

dcf06027@ms17.hinet.net

提供幾組作為參考

主圖指標一:[一般三價線]

input:m(2,2,1000);
if m<2 then exit;

up:=c>ref(c,1);
down:=c<ref(c,1);

fc:=close;
fo:=open;

a:=setlbound(up,1);
up[1]:=fc[1]>fo[1];
n:=m-1;
if up[n] then begin
B4:=fc[n];
B1:=fo[n];
b3:=B1;
B2:=B1;
tbl:=1;
end else begin
B4:=fo[n];
B1:=fc[n];
B2:=B4;
B3:=B4;
tbl:=0;
end;
tblcount:=1;

////////////////////////////////////
for i=n+1 to datacount do begin
if tbl=1 then begin
if up[i] then begin
if fc[i]>B4 then begin
tblcount:=tblcount+1;
tblc[i]:=fc[i];
tblo[i]:=B4;
if tblcount>2 then begin
tblcount:=3;
B1:=B2;
B2:=B3;
end;
B3:=B4;
B4:=fc[i];
end;
end
else if down[i] then begin
if fc[i]<B1 then begin
tblcount:=1;
tblc[i]:=fc[i];
tblo[i]:=B3;
B1:=fc[i];
B2:=B3;
tbl:=0;
end;
end;
end else begin
if down[i] then begin
if fc[i]<B1 then begin
tblcount:=tblcount+1;
tblc[i]:=fc[i];
tblo[i]:=B1;
if tblcount>2 then begin
tblcount:=3;
B4:=B3;
b3:=B2;
end;
B2:=B1;
B1:=fc[i];
end;
end
else if up[i] then begin
if fc[i]>B4 then begin
tblcount:=1;
tblc[i]:=fc[i];
tblo[i]:=B2;
B4:=fc[i];
B3:=B2;
tbl:=1;
end;
end;
end;
end;

stickline(tblc<>0 and up,tblc,tblo,11,1)colorred;
stickline(tblc<>0 and down,tblc,tblo,11,0),colorcyan;
ts:=barslast(tblc);
stickline(tblc=0 and ref(up,ts),ref(tblc,ts),ref(tblc,ts),9,1),colormagenta;
stickline(tblc=0 and ref(down,ts),ref(tblc,ts),ref(tblc,ts),9,1),colorblue;
cc:tblc,linethick0;
oo:tblo,linethick0;
----------------------------------------------------------------------------------------------------------

主圖指標二:[立體寶塔線]

B1:=REF(C,1);B2:=REF(C,2);B3:=REF(C,3);B4:=REF(C,4);
CMAX:=MAX(MAX(MAX(C,B1),B2),B3);CMIN:=MIN(MIN(MIN(C,B1),B2),B3);
STICKLINE(C=CMAX AND (B1>=B2 OR B1>=B3) OR B1=CMAX AND (B2=CMIN OR B3=CMIN) AND C>=B2 OR
B2=CMAX AND B3=CMIN AND C>=B1 OR B3=CMAX AND C>=B1 AND C>=B2,B1,C,8,0),COLOR000099;
STICKLINE(C=CMAX AND (B1>=B2 OR B1>=B3) OR B1=CMAX AND (B2=CMIN OR B3=CMIN) AND C>=B2 OR
B2=CMAX AND B3=CMIN AND C>=B1 OR B3=CMAX AND C>=B1 AND C>=B2,B1,C,5,0),COLOR0000BB;
STICKLINE(C=CMAX AND (B1>=B2 OR B1>=B3) OR B1=CMAX AND (B2=CMIN OR B3=CMIN) AND C>=B2 OR
B2=CMAX AND B3=CMIN AND C>=B1 OR B3=CMAX AND C>=B1 AND C>=B2,B1,C,3,0),COLOR0000FF;
STICKLINE(C=CMAX AND B1=CMIN,B2,C,8,0),COLOR000099;
STICKLINE(C=CMAX AND B1=CMIN,B2,C,5,0),COLOR0000BB;
STICKLINE(C=CMAX AND B1=CMIN,B2,C,3,0),COLOR0000FF;
STICKLINE(C=CMIN AND (B1<B2 OR B1<B3) OR B1=CMIN AND (B2=CMAX OR B3=CMAX) AND C<B2 OR
B2=CMIN AND B3=CMAX AND C<B1 OR B3=CMIN AND C<B1 AND C<B2,B1,C,8,0),COLOR009900;
STICKLINE(C=CMIN AND (B1<B2 OR B1<B3) OR B1=CMIN AND (B2=CMAX OR B3=CMAX) AND C<B2 OR
B2=CMIN AND B3=CMAX AND C<B1 OR B3=CMIN AND C<B1 AND C<B2,B1,C,5,0),COLOR00BB00;
STICKLINE(C=CMIN AND (B1<B2 OR B1<B3) OR B1=CMIN AND (B2=CMAX OR B3=CMAX) AND C<B2 OR
B2=CMIN AND B3=CMAX AND C<B1 OR B3=CMIN AND C<B1 AND C<B2,B1,C,3,0),COLOR00FF00;
STICKLINE(B1=CMAX AND C=CMIN,B2,C,8,0),COLOR009900;
STICKLINE(B1=CMAX AND C=CMIN,B2,C,5,0),COLOR00BB00;
STICKLINE(B1=CMAX AND C=CMIN,B2,C,3,0),COLOR00FF00;
STICKLINE(B1=CMIN AND C>=B2 OR (B2=CMIN AND B1<=B3 OR
B3=CMIN AND B1<=B2) AND B2<B4 AND C>=B1,B1,B2,8,0),COLORFF9900;
STICKLINE(B1=CMIN AND C>=B2 OR (B2=CMIN AND B1<=B3 OR
B3=CMIN AND B1<=B2) AND B2<B4 AND C>=B1,B1,B2,5,0),COLORFFBB00;
STICKLINE(B1=CMIN AND C>=B2 OR (B2=CMIN AND B1<=B3 OR
B3=CMIN AND B1<=B2) AND B2<B4 AND C>=B1,B1,B2,3,0),COLORFFFF00;
STICKLINE(B1=CMAX AND C<B2 OR (B2=CMAX AND B1>B3 OR
B3=CMAX AND B1>B2) AND B2>=B4 AND C<B1,B1,B2,8,0),COLOR000099;
STICKLINE(B1=CMAX AND C<B2 OR (B2=CMAX AND B1>B3 OR
B3=CMAX AND B1>B2) AND B2>=B4 AND C<B1,B1,B2,5,0),COLOR0000BB;
STICKLINE(B1=CMAX AND C<B2 OR (B2=CMAX AND B1>B3 OR
B3=CMAX AND B1>B2) AND B2>=B4 AND C<B1,B1,B2,3,0),COLOR0000FF;
-------------------------------------------------------------------------------------------------------------------

副圖指標:[變盤寶塔]

var1:=(OPEN+LOW+HIGH+CLOSE)/4;
JJ:=(CLOSE+HIGH+LOW)/3;
A:=EMA(JJ,21);
B:=REF(A,1);

買進:STICKLINE(A>B,A,B,5,0),COLORyellow;
賣出:STICKLINE(A<B,A,B,5,0),COLORblue ;
B0:=REF(C-O,2);B1:=REF(C,1);B2:=REF(C,2);B3:=REF(C,3);B4:=REF(C,4);
CMAX:=MAX(MAX(MAX(C,B1),B2),B3);CMIN:=MIN(MIN(MIN(C,B1),B2),B3);
STICKLINE(C=CMAX AND (B1>=B2 OR B1>=B3) OR B1=CMAX AND (B2=CMIN OR B3=CMIN) AND C>=B2 OR
B2=CMAX AND B3=CMIN AND C>=B1 OR B3=CMAX AND C>=B1 AND C>=B2,B1,C,8,1),COLORRED;
STICKLINE(C=CMAX AND B1=CMIN,B2,C,8,1),COLORRED;
STICKLINE(C=CMIN AND (B1<B2 OR B1<B3) OR B1=CMIN AND (B2=CMAX OR B3=CMAX) AND C<B2 OR
B2=CMIN AND B3=CMAX AND C<B1 OR B3=CMIN AND C<B1 AND C<B2,B1,C,8,0),COLORcyan;
STICKLINE(B1=CMAX AND C=CMIN,B2,C,8,0),COLORcyan;
STICKLINE(B1=CMIN AND C>=B2 OR (B2=CMIN AND B1<=B3 OR
B3=CMIN AND B1<=B2) AND B2<B4 AND C>=B1,B1,B2,8,0),COLORcyan;
STICKLINE(B1=CMAX AND C<B2 OR (B2=CMAX AND B1>B3 OR
B3=CMAX AND B1>B2) AND B2>=B4 AND C<B1,B1,B2,8,1),COLORRED;
VAR2:=CLOSE*VOL;
CY:=EMA((EMA(VAR2,3)/EMA(VOL,3)+EMA(VAR2,5)/EMA(VOL,5)+EMA(VAR2,13)/EMA(VOL,13)+EMA(VAR2,21)/EMA(VOL,21))/4,1);
UPR1:EMA(CY+5*STD(CY,34),1),coloryellow;
DWN1:EMA(CY-5*STD(CY,34),1),coloryellow;
UPPER:STICKLINE(UPR1>ref(UPR1,1) ,UPR1 ,ref(UPR1,1) ,6 ,0 ),colormagenta;
LOWER:STICKLINE(DWN1>ref(DWN1,1) ,DWN1 ,ref(DWN1,1) ,6 , 0),colormagenta;
STICKLINE(UPR1<ref(UPR1,1) ,UPR1 ,ref(UPR1,1) ,6 ,0 ),colorgreen;
STICKLINE(DWN1<ref(DWN1,1) ,DWN1 ,ref(DWN1,1) ,6 , 0),colorgreen;
---------------------------------------------------------------------------------------------------------

JOANNE大大你好

JOANNE大大你好
你的一般三價線跑不出來
行1:為定義的標識符號,我不知道為甚麼煩請告訴我
3Q VERY MUCH

input:m(2,2,1000);--->這可以去除.直接設參數

if m<2 then exit;--->可能是版本問題.我的是4.0
這可就需要請版主們解決

代為發表公式

4.0版

__________________
shujenwen

公式

4.0版

__________________
shujenwen

公式

3.5版

__________________
shujenwen

公式

3.5版

__________________
shujenwen

p0068兄
感謝您的協助

thank you very much p0068 and joanne大大
你們的幫忙不勝感激,再次謝謝你們,點滴銘記在心

感恩ㄚ!

感恩ㄚ!

一個小問題

謝謝Joanne君和P0068君所提供的公式。小弟發現一個小小的問題:直接用圖形來說明。

2317鴻海20041022新三價線翻紅，當日新三價線OPEN=118 , CLOSE=121.5,。依新三價線定義，除非日後生成三根以上紅線，否則收盤價低於118則新三價線翻黑。同月27日收盤價為117.5，新三價線應翻黑，但圖形沒動。

2357華碩20050315新三價線翻黑，當日新三價線OPEN=90.1 , CLOSE=88.2,。依新三價線定義，除非日後生成三根以上黑線，否則收盤價高於90.1則新三價線翻紅。同月25日收盤價為90.5，新三價線應翻紅，但圖形沒動。


小弟認為這是因為同向的線小於三支所產生的誤判。小弟功力不夠沒辦法修正，只有請高手幫忙修正了。

TradeStation 的新三價線源碼

這是TradeStaton的新三價線源碼，如果有懂EasyLanguage的朋友請幫忙把它轉成奇狐的語法，感激不盡!!

http://www.working-money.com/Docume...radersTips.html

TRADESTATION EASYLANGUAGE: Three-Line Break Chart
The 2001 Bonus Issue of STOCKS & COMMODITIES contained an article titled "Three-Line Break Reversal Signals." No EasyLanguage code was included with the article, and TradeStation doesn't provide an option to create a three-line break chart. Thus, I'd like to share the following EasyLanguage code for a PaintBar study that simulates a three-line break chart.
But first, let me provide a refresher on three-line break charts. To draw line break blocks, today's close is compared to the high and low of the previous block. A block is drawn only when today's close exceeds the high or low of the previous block. If today's close is higher than the top of the previous block, a new up block is drawn in the next column from the prior high to the new high price (today's close). If today's close is lower than the bottom of the previous block, a new down block is drawn in the next column from the prior low to the new low price (today's close). If the close fails to move outside the range of the previous block's high or low, then nothing is drawn.

In a three-line break chart, if rallies are strong enough to display three consecutive blocks in the same direction, then prices must reverse by the extreme price of the last three blocks in order to create a new block.

If a rally is powerful enough to form three consecutive up blocks, then prices must fall below the lowest point of the last three up blocks before a new down block is drawn. If a selloff is powerful enough to form three consecutive down blocks, then prices must rise above the highest point of the last three down blocks before a new up block is drawn.

I have written this PaintBar study in which up block colors rotate between white and yellow, and down block colors rotate between red and magenta. Each time the rules call for a new block to be drawn, the PaintBar colors change, indicating the new block. The chart is best viewed when setting the bar type to "line on close."

Variables: FUBarHigh(0), FUBarLow(0), SUBarHigh(0), SUBarLow(0),
TUBarHigh(0), TUBarLow(0), FLBarHigh(0), FLBarLow(0), SLBarHigh(0),
SLBarLow(0), TLBarHigh(0), TLBarLow(0), UpCount(0), DownCount(0),
UpNew(0), DnNew(0), UpRev(0), DnRev(0), PlotHigh(0), PlotLow(0),
Color(0);
If Close > UpNew Then Begin
If DownCount < 3 Then Begin
If UpCount = 0 Then Begin
UpCount = UpCount + 1;
DownCount = 0;
FUBarHigh = Close;
FUBarLow = UpNew;
SUBarHigh = 0;
SUBarLow = 0;
TUBarHigh = 0;
TUBarLow = 0;
FLBarHigh = 0;
FLBarLow = 0;
SLBarHigh = 0;
SLBarLow = 0;
TLBarHigh = 0;
TLBarLow = 0;
UpNew = FUBarHigh;
DnNew = FUBarLow;
PlotHigh = FUBarHigh;
PlotLow = FUBarLow;
Color = 7;
End;
If UpCount = 1 Then
If Close > UpNew Then Begin
UpCount = UpCount + 1;
SUBarHigh = Close;
SUBarLow = FUBarHigh;
UpNew = SUBarHigh;
DnNew = SUBarLow;
PlotHigh = SUBarHigh;
PlotLow = SUBarLow;
Color = 8;
End;
If UpCount = 2 Then
If Close > UpNew Then Begin
UpCount = UpCount + 1;
TUBarHigh = Close;
TUBarLow = SUBarHigh;
UpNew = TUBarHigh;
DnNew = TUBarLow;
PlotHigh = TUBarHigh;
PlotLow = TUBarLow;
Color = 7;
End;
If UpCount = 3 Then
If Close > UpNew Then Begin
FUBarHigh = SUBarHigh;
FUBarLow = SUBarLow;
SUBarHigh = TUBarHigh;
SUBarLow = TUBarLow;
TUBarHigh = Close;
TUBarLow = SUBarHigh;
UpNew = TUBarHigh;
DnNew = TUBarLow;
PlotHigh = TUBarHigh;
PlotLow = TUBarLow;
If Color = 7 Then
Color = 8
Else
Color = 7;
End;
End;
If DownCount = 3 Then Begin
UpRev = FLBarHigh;
If Close > UpRev Then Begin
UpCount = UpCount + 1;
DownCount = 0;
FUBarHigh = Close;
FUBarLow = TLBarHigh;
SUBarHigh = 0;
SUBarLow = 0;
TUBarHigh = 0;
TUBarLow = 0;
FLBarHigh = 0;
FLBarLow = 0;
SLBarHigh = 0;
SLBarLow = 0;
TLBarHigh = 0;
TLBarLow = 0;
UpNew = FUBarHigh;
DnNew = FUBarLow;
PlotHigh = FUBarHigh;
PlotLow = FUBarLow;
Color = 7;
End;
End;
End;
If Close < DnNew Then Begin
If UpCount < 3 Then Begin
If DownCount = 0 Then Begin
DownCount = DownCount + 1;
UpCount = 0;
FLBarHigh = DnNew;
FLBarLow = Close;
SLBarHigh = 0;
SLBarLow = 0;
TLBarHigh = 0;
TLBarLow = 0;
FUBarHigh = 0;
FUBarLow = 0;
SUBarHigh = 0;
SUBarLow = 0;
TUBarHigh = 0;
TUBarLow = 0;
UpNew = FLBarHigh;
DnNew = FLBarLow;
PlotHigh = FLBarHigh;
PlotLow = FLBarLow;
Color = 6;
End;
If DownCount = 1 Then
If Close < DnNew Then Begin
DownCount = DownCount + 1;
SLBarHigh = FLBarLow;
SLBarLow = Close;
UpNew = SLBarHigh;
DnNew = SLBarLow;
PlotHigh = SLBarHigh;
PlotLow = SLbarLow;
Color = 5;
End;
If DownCount = 2 Then
If Close < DnNew Then Begin
DownCount = DownCount + 1;
TLBarHigh = SLBarLow;
TLBarLow = Close;
UpNew = TLBarHigh;
DnNew = TLBarLow;
PlotHigh = TLBarHigh;
PlotLow = TLBarLow;
Color = 6;
End;
If DownCount = 3 Then
If Close < DnNew Then Begin
FLBarHigh = SLBarHigh;
FLBarLow = SLBarLow;
SLBarHigh = TLBarHigh;
SLBarLow = TLBarLow;
TLBarHigh = SLBarLow;
TLBarLow = Close;
UpNew = TLBarHigh;
DnNew = TLBarLow;
PlotHigh = TLBarHigh;
PlotLow = TLBarLow;
If Color = 6 Then
Color = 5
Else
Color = 6;
End;
End;
If UpCount = 3 Then Begin
DnRev = FUBarLow;
If Close < DnRev Then Begin
DownCount = DownCount + 1;
UpCount = 0;
FLBarHigh = TUBarLow;
FLBarLow = Close;
SLBarHigh = 0;
SLBarLow = 0;
TLBarHigh = 0;
TLBarLow = 0;
FUBarHigh = 0;
FUBarLow = 0;
SUBarHigh = 0;
SUBarLow = 0;
TUBarHigh = 0;
TUBarLow = 0;
UpNew = FLBarHigh;
DnNew = FLBarLow;
PlotHigh = FLBarHigh;
PlotLow = FLBarLow;
Color = 6;
End;
End;
End; Plot1(PlotHigh,"High Bar",Color);
Plot2(PlotLow,"Low Bar",Color);
--John M. Snyder

手中有的供您參考

參考
http://www.moneydj.com/z/glossary/glexp_4717.asp.htm
您可以更清楚有關定義
似乎...

{寶塔三平頂底}

close2:=c;h2:=h;l2:=l;o2:=o;
ma1:ma(c,5),colorff00ff;
ma2:ma(c,10),color00ff00;
ma3:ma(c,30),colorffff00;
B1:=REF(close2,1);B2:=REF(close2,2);
SS:=IF(close2>REF(close2,1) AND REF(close2,1)>=REF(close2,2),1,IF(C<REF(close2,1) AND REF(close2,1)<=REF(close2,2),-1,IF(close2>REF(close2,2) AND REF(close2,2)>REF(close2,1),2,IF(close2<REF(close2,2) AND REF(close2,2)<REF(close2,1),-2,0))));
SM:=IF(REF(SS,1)<>0,REF(SS,1),IF(REF(SS,2)<>0,REF(SS,2),IF(REF(SS,3)<>0,REF(SS,3),IF(REF(SS,5)<>0,REF(SS,5),IF(REF(SS,6)<>0,REF(SS,6),IF(REF(SS,7)<>0,REF(SS,7),0))))));
mc:IF(REF(SS,1)<>0,B2,IF(SM>0,MIN(B1,B2),MAX(B1,B2))),COLOR000000;
STICKLINE(SS=1 OR SM>=1 AND SS=0,B1,close2,6,0),COLOR0000ff;
STICKLINE(SS=-1 OR SM<=-1 AND SS=0,B1,close2,6,0),COLOR00FF00;
STICKLINE(SS=2,B2,C,6,0),COLORRED;
STICKLINE(SS=-2,B2,C,6,0),COLOR00FF00;
STICKLINE((SS=-1 OR SS=-2) AND SM>0,B2,B1,6,0),COLORRED;
STICKLINE((SS=1 OR SS=2) AND SM<0,B2,B1,6,0),COLOR00FF00;
aa:=Close > Ref(Close, 1) and Ref(Close, 1) > Ref(Close, 2) and Ref(Close, 1) < Ref(Close, 3) and If(Ref(Close, 3) < Ref(Close, 4), 1, If(Ref(Close, 4) < Ref(Close, 5),Ref(Close, 1) < Ref(Close, 4) or( Ref(Close, 2) < Ref(Close, 4) and Ref(Close, 3) >= Ref(Close, 5) ),If(Ref(Close, 5) < Ref(Close, 6), 1,Ref(Close, 6) < Ref(Close, 7))));
bb:=Close < Ref(Close, 1) and Ref(Close, 1) < Ref(Close, 2) and Ref(Close, 1) > Ref(Close, 3) and If(Ref(Close, 3) > Ref(Close, 4), 1, If(Ref(Close, 4) > Ref(Close, 5),Ref(Close, 1) > Ref(Close, 4) or( Ref(Close, 2) > Ref(Close, 4) and Ref(Close, 3) <= Ref(Close, 5) ),If(Ref(Close, 5) > Ref(Close, 6), 1,Ref(Close, 6) > Ref(Close, 7))));
drawicon(aa and close>ref(open,2),low,1);
drawicon(bb and close<ref(close,2),high*1.01,2);
drawtext(aa and close>ref(open,2),low*0.995,'三平底翻紅'),color00ffff;
drawtext(bb and close<ref(close,2),high*1.015,'三平頂翻綠'),color00ff00;

謝謝PETER109的回覆。寶塔線和新三價線不一樣，小弟有興趣的是把新三價線加到交易系統中。目前網路上流傳的奇狐新三價線公式大致上是對的，但如果同向新三價線小於三根時就有可能出錯。可惜小弟只能找出問題，功力太淺，無法修正。另外，您提供的網址上面的說明稍嫌簡略，它沒有說明同向線型少於三根時反向的條件。我簡單說明如下，若同向線型只有一根時，就是取新一價線，若同向線型有二根時，就取新二價線，同向有三根以上時(含三根)，才是新三價線。前面JOANNE和P0068所提供的公式是最廣為流傳的新三價線公式(謝謝)，但看2357華碩20050315~0325可知公式是有問題的，在3/25新三價線應翻紅，但依公式畫出來的圖沒有。小弟相信新三價線有它的價值，所以希望能依照正確的公式來測試並建構交易系統，謝謝。