king兄:
很抱歉造成您的困擾,
再請您知會清揚老師一聲
謝謝

沒關係,很多網友轉貼清揚及南客老師的資料但並未知會他們兩位或註明引用,
兩位前輩也知道,但基於此網站為一休兄所主持台灣官方論壇網站且禮貌上應當詢問,麻煩倒是沒有只是順手.

引用:

---

最初由 0152533 發表
您好:
轉貼飛狐大陸技術顧問清揚老師的作品,看是否符合需求
參數可自行更改,N越小波浪越細

A1:=REF(H,N)=HHV(H,2*N+1);
B1:=FILTER(A1,N);
C1:=BACKSET(B1,N+1);
D1:=FILTER(C1,N);

A2:=REF(L,N)=LLV(L,2*N+1);
B2:=FILTER(A2,N);
C2:=BACKSET(B2,N+1);
D2:=FILTER(C2,N);

E1:=(REF(LLV(L,2*N),1)+REF(HHV(H,2*N),1))/2;
E2:=(H+L)/2;

H1:=(D1 AND NOT(D2 AND E1>=E2)) OR ISLASTBAR OR BARSCOUNT(C)=1;
L1:=(D2 AND NOT(D1 AND E1<E2));
H2:=D1 AND NOT(D2 AND E1>=E2);
X1:=REF(BARSLAST(H1),1)+1; F1:=BACKSET(H1 AND COUNT(L1,X1)>0,LLVBARS(IF(L1,L,10000),X1));
G1:=F1>REF(F1,1); I1:=BACKSET(G1,2); LD:=I1>REF(I1,1);

L2:=LD OR ISLASTBAR OR BARSCOUNT(C)=1;
X2:=REF(BARSLAST(L2),1)+1;
F2:=BACKSET(L2 AND COUNT(H2,X2)>0,HHVBARS(IF(H2,H,0),X2));
G2:=F2>REF(F2,1); I2:=BACKSET(G2,2); HD:=I2>REF(I2,1);

UL:=IF(REF(HD,N)=1 AND SUM(HD,N-1)=0,REF(H,N),REF(H,N+BARSLAST(REF(HD,N)=1 AND SUM(HD,N-1)=0)));
DL:=IF(REF(LD,N)=1 AND SUM(LD,N-1)=0,REF(L,N),REF(L,N+BARSLAST(REF(LD,N)=1 AND SUM(LD,N-1)=0)));

JHH:=H>UL AND REF(H,1)<=REF(UL,1) AND SUM(H>UL AND REF(H,1)<=REF(UL,1),BARSLAST(HD))=1;
JLL:=L<DL AND REF(L,1)>=REF(DL,1) AND SUM(L<DL AND REF(L,1)>=REF(DL,1),BARSLAST(HD))=1;

DRAWICON(JHH,H,4),ALIGN0;
DRAWICON(JLL,L,5);
DRAWLINE(LD,L,HD,H,0),COLORGREEN,POINTDOT;
DRAWLINE(HD,H,LD,L,0),COLORGREEN,POINTDOT;

SX1:=BACKSET(ISLASTBAR,BARSLAST(LD)+1);
SX2:=SX1>REF(SX1,1);
SY1:=BACKSET(ISLASTBAR,BARSLAST(HD)+1);
SY2:=SY1>REF(SY1,1);
SZ1:=IF(BARSLAST(SX2)<BARSLAST(SY2),SX2,SY2);
SZ2:=IF(BARSLAST(SX2)<BARSLAST(SY2),L,H);
DRAWLINE(SZ1,SZ2,ISLASTBAR,C,0),COLORBLUE,POINTDOT;

DRAWNUMBER(HD,H*(1+sk),H,2),COLORGREEN,align0;
DRAWNUMBER(LD,L*(1.001-sk),L,2),COLORGREEN,align0;

最近１次碎型高:IF(HD,H,REF(H,BARSLAST(HD))),LINETHICK0;
最近１次碎型低:IF(LD,L,REF(L,BARSLAST(LD))),LINETHICK0;

---

__________________
shujenwen

sk=0.002

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

謝謝你

__________________
shujenwen

誰能將之改為跳空向下壓力線?

誰能將之改為跳空向下壓力線?


若今日股價跳空向下,要以前一日之收盤價為支撐,向右劃一水平支撐線,並寫上價位(寫在直線右側),公式該如何寫(顯示於Ｋ線主圖上)?

誰能將之改為跳空向下壓力線?

誰能將之改為跳空向下壓力線?


若今日股價跳空向下,要以前一日之收盤價為支撐,向右劃一水平支撐線,並寫上價位(寫在直線右側),公式該如何寫(顯示於Ｋ線主圖上)?

B2:= H < REF(L,1);
B2T:=BarsLast(B2);
DDL:=Ref(c,B2T+1);
PartLine(B2<1 ,DDL),COLORGREEN,POINTDOT;
DrawNumber(b2=1,DDL,DDL,2),align1,COLORGREEN;

B1:= LOW > REF(High,1);
B1T:=BarsLast(B1);
ccL:=Ref(c,B1T+1);
PartLine(B1<1 ,ccL),COLORred,POINTDOT;
DrawNumber(b1=1,ccL,ccL,2),align1,COLORred;

價位寫在直線右側的寫法,請高手指導,我不會,
並請教支撐線遇回補後就斷線的寫法?

謝謝 感恩~

引用:

---

最初由 king 發表
0152533兄
感謝謝您的轉貼,原碼我也有,但尚未去函獲得清揚兄的授權所以一直未貼出來,您貼出來那我必需寫一份正式文件照會清揚兄了,算是尊重原創作者,這樣別人以後才會樂於發表,必盡網路世界目前發展的進度與真實世界密切度越來越真實了

---

__________________
什麼最重要?

引用:

---

最初由 scholarship 發表
一.如果我們引用別人的文章貼在您的版上，就必須由您寫一份正式文件給原作者?若不寫會有法律責任嗎?是誰要負責?因為這可能會有麻煩，所以想問清楚，大家也可明白而小心注意。
二.正式文件的格式是如何?內容大約是?轉貼有什麼要注意的?

---

引用:

---

最初由 cgjj 發表
基本上就是相互遵重
若您欲轉貼某論壇某人的文章
禮貌上應先知會該文章作者
得到作者同意後再轉貼
如此就不易涉及著作權問題

---

__________________
什麼最重要?

在該主題內引用, 是為了方便回應討論
我想不會有作者因此而 ....
因為會遭人厭啦!

A1:=REF(H,N)=HHV(H,2*N+1);
B1:=FILTER(A1,N);
C1:=BACKSET(B1,N+1);
D1:=FILTER(C1,N);

A2:=REF(L,N)=LLV(L,2*N+1);
B2:=FILTER(A2,N);
C2:=BACKSET(B2,N+1);
D2:=FILTER(C2,N);

E1:=(REF(LLV(L,2*N),1)+REF(HHV(H,2*N),1))/2;
E2:=(H+L)/2;

H1:=(D1 AND NOT(D2 AND E1>=E2)) OR ISLASTBAR OR BARSCOUNT(C)=1;
L1:=(D2 AND NOT(D1 AND E1<E2));
H2:=D1 AND NOT(D2 AND E1>=E2);
X1:=REF(BARSLAST(H1),1)+1; F1:=BACKSET(H1 AND COUNT(L1,X1)>0,LLVBARS(IF(L1,L,10000),X1));
G1:=F1>REF(F1,1); I1:=BACKSET(G1,2); LD:=I1>REF(I1,1);

L2:=LD OR ISLASTBAR OR BARSCOUNT(C)=1;
X2:=REF(BARSLAST(L2),1)+1;
F2:=BACKSET(L2 AND COUNT(H2,X2)>0,HHVBARS(IF(H2,H,0),X2));
G2:=F2>REF(F2,1); I2:=BACKSET(G2,2); HD:=I2>REF(I2,1);

UL:=IF(REF(HD,N)=1 AND SUM(HD,N-1)=0,REF(H,N),REF(H,N+BARSLAST(REF(HD,N)=1 AND SUM(HD,N-1)=0)));
DL:=IF(REF(LD,N)=1 AND SUM(LD,N-1)=0,REF(L,N),REF(L,N+BARSLAST(REF(LD,N)=1 AND SUM(LD,N-1)=0)));

JHH:=H>UL AND REF(H,1)<=REF(UL,1) AND SUM(H>UL AND REF(H,1)<=REF(UL,1),BARSLAST(HD))=1;
JLL:=L<DL AND REF(L,1)>=REF(DL,1) AND SUM(L<DL AND REF(L,1)>=REF(DL,1),BARSLAST(HD))=1;

DRAWICON(JHH,H,4),ALIGN0;
DRAWICON(JLL,L,5);
DRAWLINE(LD,L,HD,H,0),COLORGREEN,POINTDOT;
DRAWLINE(HD,H,LD,L,0),COLORGREEN,POINTDOT;

SX1:=BACKSET(ISLASTBAR,BARSLAST(LD)+1);
SX2:=SX1>REF(SX1,1);
SY1:=BACKSET(ISLASTBAR,BARSLAST(HD)+1);
SY2:=SY1>REF(SY1,1);
SZ1:=IF(BARSLAST(SX2)<BARSLAST(SY2),SX2,SY2);
SZ2:=IF(BARSLAST(SX2)<BARSLAST(SY2),L,H);
DRAWLINE(SZ1,SZ2,ISLASTBAR,C,0),COLORBLUE,POINTDOT;

DRAWNUMBER(HD,H*(1+sk),H,2),COLORGREEN,align0;
DRAWNUMBER(LD,L*(1.001-sk),L,2),COLORGREEN,align0;

最近１次碎型高:IF(HD,H,REF(H,BARSLAST(HD))),LINETHICK0;
最近１次碎型低:IF(LD,L,REF(L,BARSLAST(LD))),LINETHICK0;



奇怪為何當中沒有HD,LD之定義,所以無法編譯

........
G1:=F1>REF(F1,1); I1:=BACKSET(G1,2); LD:=I1>REF(I1,1);
......
G2:=F2>REF(F2,1); I2:=BACKSET(G2,2); HD:=I2>REF(I2,1);

__________________
至誠能勝天下至偽
至拙能勝天下至巧