奇狐社區論壇

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

由 0152533 在 2004-02-08 20:50 發表:

支撐線

工程人員您們好:
1.請問若今日股價跳空,要以前一日之收盤價為支撐,向右劃一水平支撐線,並寫上價位,公式該如何寫(顯示於Ｋ線主圖上)?
2.若要已K>50(K由下往上穿越)當天之K線高點為壓力,向右劃一水平壓力線,並寫上價位,公式該如何寫(顯示於Ｋ線主圖上)?

謝謝回覆

由一休在 2004-02-10 18:22 發表:

努力了一天，發覺要設定跳空的語法不好表現。

由 yes6689 在 2004-02-10 20:39 發表:

Re:支撐線

一休學長忙﹐我試了一下﹐不知道是不是這個樣子.......
(沒有標上價位﹐不過....滑鼠移過去會自動顯示價位！)

公式：
{KD公式 Begin}
RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;
K:=SMA(RSV,3,1),LineThick0,ColorWhite;
D:=SMA(K,3,1),LineThick0,ColorWhite;
{KD公式 End}
{*************以下為跳空劃線K棒標示***********}
B1:= LOW > REF(High,1);
B1T:=BarsLast(B1);
CC:=Ref(Close,B1T+1);
跳空支撐:CC,LineThick0,ColorRed;
PartLine(B1<>1,CC),ColorRed;
{*************以下為 K大於50 劃線K棒標示***********}
KC50 := Cross(K,50);
KC50T := BarsLast(KC50);
K50壓力:Ref(High,Ref(KC50T,1)+1),LineThick0,ColorWhite;
DrawLine(KC50,High,KC50,K50壓力,0),ColorWhite;

由 0152533 在 2004-02-10 21:01 發表:

感謝一休兄及yes6689兄的回覆
正是我所需要的

由一休在 2004-02-10 21:42 發表:

感謝yes6689兄的分享，這也正是0152533兄需要
的，太好了。

由 P0178 在 2004-02-13 04:56 發表:

價位貼上

我試著將價位貼上,不知位置對不對? 請指導
B1:= LOW > REF(High,1);
B1T:=BarsLast(B1);
CC:=Ref(Close,B1T+1);
跳空支撐點:CC,LineThick0,COLORYELLOW;
PartLine(B1<>1,CC),COLORYELLOW;
DrawNumber(b1=1,cc,cc,1),align2,COLORYELLOW;

由 king 在 2004-02-13 10:23 發表:

P0178兄使用五彩K線輔助檢測此撰寫方式可行,感謝您的服務

由 profox 在 2004-02-13 14:40 發表:

請問如果只要劃缺口發生後的N個棒線，要如何寫？

由 pual 在 2004-02-13 17:29 發表:

把這個CC:=Ref(Close,B1T+1);
內B1T+1 =>用n取代即可

n為常數
input n=1,1,99
可任意調用

由 yes6689 在 2004-02-13 23:36 發表:

真好的學習園地啊！！

大家討論交流的感覺............真是好！！

由 P0178 在 2004-02-14 06:12 發表:

峰頂及谷底的劃線

請問想要在每個波的峰頂的最高價及谷底的最低價各劃一條線,公式函數要如何寫?

由 king 在 2004-02-14 23:26 發表:

參數名
P1(5,1,60)
ZX:ZIG(CLOSE,P1);
Var1:=FLATZIG(C,P1);
Var2:=Var1=0;
DRAWNUMBER(Var1,H,H,2),ALIGN2;
DRAWNUMBER(Var2,L,L,2),ALIGN2;
內行人因當了解這函數在實務定義上僅供參考,找不到真實點
如果要找到真實點必需寫一長串的程式碼來重新定義,先寫到這邊因為我又沒靈感,我寫程式是很隨興的

由 P0178 在 2004-02-15 05:28 發表:

感謝

這樣已解決找線的困擾,不足之處只好目測,但若有哪位仁兄願意再突破當感激不進,
奇狐論壇真是一處寶地

由 0152533 在 2004-02-15 09:11 發表:

最新波浪結構

您好:
轉貼飛狐大陸技術顧問清揚老師的作品,看是否符合需求
參數可自行更改,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;

由 king 在 2004-02-15 09:50 發表:

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

由 0152533 在 2004-02-15 17:24 發表:

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

由 king 在 2004-02-15 19:34 發表:

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

由 p0068 在 2005-04-14 08:34 發表:

回覆: 最新波浪結構

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

感謝分享
公式中
DRAWNUMBER(HD,H*(1+sk),H,2),COLORGREEN,align0;
DRAWNUMBER(LD,L*(1.001-sk),L,2),COLORGREEN,align0;
sk 未定義請問如何引用謝謝

__________________
shujenwen

由 king 在 2005-04-14 08:43 發表:

sk=0.002

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

由 p0068 在 2005-04-14 08:58 發表:

收到

謝謝你

__________________
shujenwen

由 h00060 在 2005-04-15 19:46 發表:

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

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

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

由 h00060 在 2005-04-15 19:53 發表:

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

由 P0178 在 2005-04-16 08:56 發表:

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;

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

由 h00060 在 2005-04-16 20:10 發表:

感恩~

謝謝感恩~

由 scholarship 在 2005-04-17 10:11 發表:

KING版主大大請問一下:Q

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

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

__________________
什麼最重要?

由 cgjj 在 2005-04-18 17:28 發表:

回覆: KING版主大大請問一下:Q

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

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

由 scholarship 在 2005-04-19 07:03 發表:

還是有點危險

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

呃，By the way，奇狐中的"引用"算不算是轉貼的一種?哇...這樣子...唷..有點麻煩。

__________________
什麼最重要?

由 cgjj 在 2005-04-19 08:30 發表:

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

由 jeng 在 2009-04-25 09:15 發表:

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之定義,所以無法編譯

由 peter109 在 2009-04-25 11:14 發表:

........
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);

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

由 a27183526 在 2025-02-02 12:20 發表:

沒有定義

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

sk沒有定義 ,是不是漏了

__________________
1

由 cgjj 在 2025-02-02 14:07 發表:

回覆: 沒有定義

引用:
最初由 a27183526 發表
DRAWNUMBER(HD,H*(1+sk),H,2),COLORGREEN,align0;
DRAWNUMBER(LD,L*(1.001-sk),L,2),COLORGREEN,align0;

sk沒有定義 ,是不是漏了

前面就有答案，請把文章耐心看完!

全部時間均為台灣時間, 現在時間為10:02

在這個頁面顯示本主題全部的 32 個文章