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

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

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

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

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版

附件: hhh.alg
此文件已被下載 276 次。

__________________
shujenwen

4.0版

附件: jjj.alg
此文件已被下載 220 次。

__________________
shujenwen

3.5版

附件: jj.alg
此文件已被下載 187 次。

__________________
shujenwen

3.5版

附件: hh.alg
此文件已被下載 191 次。

__________________
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，新三價線應翻紅，但圖形沒動。


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