到奇狐勝券首頁 奇狐社區論壇 購買奇狐勝券 試用奇狐勝券
 
論壇首頁 你可以在這裡編輯你的資料，查看短訊，訂閱主題和論壇參數等等 免費會員註冊 會員列表 論壇幫助 論壇日曆 論壇搜索 加入我的最愛 登出論壇  
奇狐社區論壇 : Powered by vBulletin version 2.3.0 奇狐社區論壇 > 指標公式 > 問題交流 > 冒昧請教(近期兩點連線)
  上一主題   下一主題
作者
主題 發表新主題    回覆主題
yjl8895
資深會員

註冊日期: Jun 2009
來　　自:
文章數量: 170
冒昧請教

版主您好:
請教寫法。如圖
當L出現時，自動連結劃線向前引用1的次高點H1和向前引用2的高點H2，
當L出現時，自動連結劃線向前引用1的次低點L1和向前引用2的低點L2，
當H出現時，自動連結劃線向前引用1的次高點H1和向前引用2的高點H2，
當H出現時，自動連結劃線向前引用1的次低點L1和向前引用2的低點L2，
感謝您！


畫漸變背景色(1,RGB顏色值(0,150,100),RGB顏色值(0,150,100),1);
XC:收盤價,LINETHICK0;
MA1:=簡單移動平均(收盤價,21);
畫柱線(XC>MA1,最高價,最低價,4,0),COLORBLACK;
畫柱線(XC<MA1,最高價,最低價,4,0),COLORGREEN;

B:之字轉向(3,13)>向前引用(之字轉向(3,13),1) AND
向前引用(之字轉向(3,13),1)<向前引用(之字轉向(3,13),2);
畫圖示(B,最低價,4);
S:之字轉向(3,13)<向前引用(之字轉向(3,13),1) AND
向前引用(之字轉向(3,13),1)>向前引用(之字轉向(3,13),2);
畫圖示(S,最高價,12);

yjl8895 附帶上了此圖片:

__________________
efef55e3

向版主報告此篇 | 查IP位址
Old Post 2012-10-01 08:00
yjl8895 現在離線 點選這裡查看 yjl8895 的個人資料 點選這裡給 yjl8895 傳送一條短訊 查找更多關於 yjl8895 的文章 增加 yjl8895 至你的好友列表 編輯/刪除訊息 引用回覆
cgjj
總版主

註冊日期: Oct 2003
來　　自:
文章數量: 18091
回覆: 冒昧請教

引用:
最初由 yjl8895 發表
版主您好:
請教寫法。如圖
當L出現時，自動連結劃線向前引用1的次高點H1和向前引用2的高點H2，
當L出現時，自動連結劃線向前引用1的次低點L1和向前引用2的低點L2，
當H出現時，自動連結劃線向前引用1的次高點H1和向前引用2的高點H2，
當H出現時，自動連結劃線向前引用1的次低點L1和向前引用2的低點L2，
感謝您！


畫漸變背景色(1,RGB顏色值(0,150,100),RGB顏色值(0,150,100),1);
XC:收盤價,LINETHICK0;
MA1:=簡單移動平均(收盤價,21);
畫柱線(XC>MA1,最高價,最低價,4,0),COLORBLACK;
畫柱線(XC<MA1,最高價,最低價,4,0),COLORGREEN;

B:之字轉向(3,13)>向前引用(之字轉向(3,13),1) AND
向前引用(之字轉向(3,13),1)<向前引用(之字轉向(3,13),2);
畫圖示(B,最低價,4);
S:之字轉向(3,13)<向前引用(之字轉向(3,13),1) AND
向前引用(之字轉向(3,13),1)>向前引用(之字轉向(3,13),2);
畫圖示(S,最高價,12); 


原碼:


DRAWGBK(1,COLORRGB(0,150,100),COLORRGB(0,150,100),1);

XC:CLOSE,LINETHICK0;

MA1:=MA(CLOSE,21);

STICKLINE(XC>MA1,HIGH,LOW,4,0),COLORBLACK;

STICKLINE(XC<MA1,HIGH,LOW,4,0),COLORGREEN;



UZIG:=ZIG(3,13);

B:UZIG>REF(UZIG,1) AND REF(UZIG,1)<REF(UZIG,2);

DRAWICON(B,LOW,4);

S:UZIG<REF(UZIG,1) AND REF(UZIG,1)>REF(UZIG,2);

DRAWICON(S,HIGH,12);

BSP:=barslast(B); LDB:=lbound(BSP);

SSP:=barslast(S); LDS:=lbound(SSP);

LSP:=barslast(B or S);

KNo:=datacount-LSP[datacount]-1; 

DWB:=C*0; DWS:=DWB;

BKNo:=KNo; SKNo:=KNo; 

for i:=2 downto 1 do begin

  if BKNo>=LDB then begin

    FPB:=BKNo-BSP[BKNo];

    DWB[FPB]:=i; BKNo:=FPB-1;

  end;

  if SKNo>=LDS then begin

    FPS:=SKNo-SSP[SKNo];

    DWS[FPS]:=i; SKNo:=FPS-1;

  end;

end;

DRAWLINE(DWS=1,H,DWS=2,H,1) coloryellow;

DRAWLINE(DWB=1,L,DWB=2,L,1) colorred;

向版主報告此篇 | 查IP位址
Old Post 2012-10-01 10:01
cgjj 現在離線 點選這裡查看 cgjj 的個人資料 點選這裡給 cgjj 傳送一條短訊 查找更多關於 cgjj 的文章 增加 cgjj 至你的好友列表 編輯/刪除訊息 引用回覆
yjl8895
資深會員

註冊日期: Jun 2009
來　　自:
文章數量: 170
回覆: 回覆: 冒昧請教

引用:
最初由 cgjj 發表
原碼:


DRAWGBK(1,COLORRGB(0,150,100),COLORRGB(0,150,100),1);

XC:CLOSE,LINETHICK0;

MA1:=MA(CLOSE,21);

STICKLINE(XC>MA1,HIGH,LOW,4,0),COLORBLACK;

STICKLINE(XC<MA1,HIGH,LOW,4,0),COLORGREEN;



UZIG:=ZIG(3,13);

B:UZIG>REF(UZIG,1) AND REF(UZIG,1)<REF(UZIG,2);

DRAWICON(B,LOW,4);

S:UZIG<REF(UZIG,1) AND REF(UZIG,1)>REF(UZIG,2);

DRAWICON(S,HIGH,12);

BSP:=barslast(B); LDB:=lbound(BSP);

SSP:=barslast(S); LDS:=lbound(SSP);

LSP:=barslast(B or S);

KNo:=datacount-LSP[datacount]-1; 

DWB:=C*0; DWS:=DWB;

BKNo:=KNo; SKNo:=KNo; 

for i:=2 downto 1 do begin

  if BKNo>=LDB then begin

    FPB:=BKNo-BSP[BKNo];

    DWB[FPB]:=i; BKNo:=FPB-1;

  end;

  if SKNo>=LDS then begin

    FPS:=SKNo-SSP[SKNo];

    DWS[FPS]:=i; SKNo:=FPS-1;

  end;

end;

DRAWLINE(DWS=1,H,DWS=2,H,1) coloryellow;

DRAWLINE(DWB=1,L,DWB=2,L,1) colorred;



如果加上H2>H1 L1>L2 的條件時當如何

當L出現時，自動連結劃線向前引用1的次高點H1和向前引用2的高點H2，且H2>H1
當L出現時，自動連結劃線向前引用1的次低點L1和向前引用2的低點L2，且L1>L2
當H出現時，自動連結劃線向前引用1的次高點H1和向前引用2的高點H2，且L1>L2
當H出現時，自動連結劃線向前引用1的次低點L1和向前引用2的低點L2，且H2>H1

__________________
efef55e3

向版主報告此篇 | 查IP位址
Old Post 2012-10-01 10:49
yjl8895 現在離線 點選這裡查看 yjl8895 的個人資料 點選這裡給 yjl8895 傳送一條短訊 查找更多關於 yjl8895 的文章 增加 yjl8895 至你的好友列表 編輯/刪除訊息 引用回覆
cgjj
總版主

註冊日期: Oct 2003
來　　自:
文章數量: 18091
回覆: 回覆: 回覆: 冒昧請教

引用:
最初由 yjl8895 發表
如果加上H2>H1 L1>L2 的條件時當如何

當L出現時，自動連結劃線向前引用1的次高點H1和向前引用2的高點H2，且H2>H1
當L出現時，自動連結劃線向前引用1的次低點L1和向前引用2的低點L2，且L1>L2
當H出現時，自動連結劃線向前引用1的次高點H1和向前引用2的高點H2，且L1>L2
當H出現時，自動連結劃線向前引用1的次低點L1和向前引用2的低點L2，且H2>H1 


原碼:


DRAWGBK(1,COLORRGB(0,150,100),COLORRGB(0,150,100),1);

XC:CLOSE,LINETHICK0;

MA1:=MA(CLOSE,21);

STICKLINE(XC>MA1,HIGH,LOW,4,0),COLORBLACK;

STICKLINE(XC<MA1,HIGH,LOW,4,0),COLORGREEN;



UZIG:=ZIG(3,13);

B:UZIG>REF(UZIG,1) AND REF(UZIG,1)<REF(UZIG,2);

DRAWICON(B,LOW,4);

S:UZIG<REF(UZIG,1) AND REF(UZIG,1)>REF(UZIG,2);

DRAWICON(S,HIGH,12);

BSP:=barslast(B); LDB:=lbound(BSP);

SSP:=barslast(S); LDS:=lbound(SSP);

LSP:=barslast(B or S);

KNo:=datacount-LSP[datacount]-1; 

DWB:=C*0; DWS:=DWB; HH:=H; LL:=L;

BKNo:=KNo; SKNo:=KNo;

VARIABLE: PH[2]=0,PL[2]=0;

for i:=1 to 2 do begin

  if BKNo>=LDB then begin

    FPB:=BKNo-BSP[BKNo];

    DWB[FPB]:=i; PL[i]:=LL[FPB]; BKNo:=FPB-1; 

  end;

  if SKNo>=LDS then begin

    FPS:=SKNo-SSP[SKNo];

    DWS[FPS]:=i; PH[i]:=HH[FPS]; SKNo:=FPS-1;

  end;

end;

PDH:=PH[2]>PH[1]; PDL:=PL[1]>PL[2];

DRAWLINE(DWS=2 and PDH, HH, DWS=1 and PDH, HH,1) coloryellow;

DRAWLINE(DWB=2 and PDL, LL, DWB=1 and PDL, LL,1) colorred;

向版主報告此篇 | 查IP位址
Old Post 2012-10-01 12:01
cgjj 現在離線 點選這裡查看 cgjj 的個人資料 點選這裡給 cgjj 傳送一條短訊 查找更多關於 cgjj 的文章 增加 cgjj 至你的好友列表 編輯/刪除訊息 引用回覆
yjl8895
資深會員

註冊日期: Jun 2009
來　　自:
文章數量: 170
回覆: 回覆: 回覆: 回覆: 冒昧請教

引用:
最初由 cgjj 發表
原碼:


DRAWGBK(1,COLORRGB(0,150,100),COLORRGB(0,150,100),1);

XC:CLOSE,LINETHICK0;

MA1:=MA(CLOSE,21);

STICKLINE(XC>MA1,HIGH,LOW,4,0),COLORBLACK;

STICKLINE(XC<MA1,HIGH,LOW,4,0),COLORGREEN;



UZIG:=ZIG(3,13);

B:UZIG>REF(UZIG,1) AND REF(UZIG,1)<REF(UZIG,2);

DRAWICON(B,LOW,4);

S:UZIG<REF(UZIG,1) AND REF(UZIG,1)>REF(UZIG,2);

DRAWICON(S,HIGH,12);

BSP:=barslast(B); LDB:=lbound(BSP);

SSP:=barslast(S); LDS:=lbound(SSP);

LSP:=barslast(B or S);

KNo:=datacount-LSP[datacount]-1; 

DWB:=C*0; DWS:=DWB; HH:=H; LL:=L;

BKNo:=KNo; SKNo:=KNo;

VARIABLE: PH[2]=0,PL[2]=0;

for i:=1 to 2 do begin

  if BKNo>=LDB then begin

    FPB:=BKNo-BSP[BKNo];

    DWB[FPB]:=i; PL[i]:=LL[FPB]; BKNo:=FPB-1; 

  end;

  if SKNo>=LDS then begin

    FPS:=SKNo-SSP[SKNo];

    DWS[FPS]:=i; PH[i]:=HH[FPS]; SKNo:=FPS-1;

  end;

end;

PDH:=PH[2]>PH[1]; PDL:=PL[1]>PL[2];

DRAWLINE(DWS=2 and PDH, HH, DWS=1 and PDH, HH,1) coloryellow;

DRAWLINE(DWB=2 and PDL, LL, DWB=1 and PDL, LL,1) colorred;


版主謝謝您
辛苦了

__________________
efef55e3

向版主報告此篇 | 查IP位址
Old Post 2012-10-01 12:54
yjl8895 現在離線 點選這裡查看 yjl8895 的個人資料 點選這裡給 yjl8895 傳送一條短訊 查找更多關於 yjl8895 的文章 增加 yjl8895 至你的好友列表 編輯/刪除訊息 引用回覆
yjl8895
資深會員

註冊日期: Jun 2009
來　　自:
文章數量: 170
另求

版大:
可否以續上語法找出
在QA出現後(先決條件一定要有S與S的連線)
第一次與黃線的交叉點(即QB的點)

__________________
efef55e3

最後由 yjl8895 在 2012-11-21 08:41 編輯 向版主報告此篇 | 查IP位址
Old Post 2012-11-21 07:21
yjl8895 現在離線 點選這裡查看 yjl8895 的個人資料 點選這裡給 yjl8895 傳送一條短訊 查找更多關於 yjl8895 的文章 增加 yjl8895 至你的好友列表 編輯/刪除訊息 引用回覆
yjl8895
資深會員

註冊日期: Jun 2009
來　　自:
文章數量: 170

版大:
可否以續上語法找出
在QA出現後(先決條件一定要有S與S的連線)
第一次與黃線的交叉點(即QB的點)

yjl8895 附帶上了此圖片:

__________________
efef55e3

向版主報告此篇 | 查IP位址
Old Post 2012-11-21 08:41
yjl8895 現在離線 點選這裡查看 yjl8895 的個人資料 點選這裡給 yjl8895 傳送一條短訊 查找更多關於 yjl8895 的文章 增加 yjl8895 至你的好友列表 編輯/刪除訊息 引用回覆
cgjj
總版主

註冊日期: Oct 2003
來　　自:
文章數量: 18091

引用:
最初由 yjl8895 發表
版大:
可否以續上語法找出
在QA出現後(先決條件一定要有S與S的連線)
第一次與黃線的交叉點(即QB的點)


續接

XM:=LINEVALUE(DWS=2 and PDH, HH, DWS=1 and PDH, HH,1,0);
QB:=barslast(DWB=1)>0 and cross(C,XM);
VERTLINE(QB) linedot;

向版主報告此篇 | 查IP位址
Old Post 2012-11-21 09:29
cgjj 現在離線 點選這裡查看 cgjj 的個人資料 點選這裡給 cgjj 傳送一條短訊 查找更多關於 cgjj 的文章 增加 cgjj 至你的好友列表 編輯/刪除訊息 引用回覆
yjl8895
資深會員

註冊日期: Jun 2009
來　　自:
文章數量: 170

大大:
謝謝您

__________________
efef55e3

向版主報告此篇 | 查IP位址
Old Post 2012-11-21 20:15
yjl8895 現在離線 點選這裡查看 yjl8895 的個人資料 點選這裡給 yjl8895 傳送一條短訊 查找更多關於 yjl8895 的文章 增加 yjl8895 至你的好友列表 編輯/刪除訊息 引用回覆
yjl8895
資深會員

註冊日期: Jun 2009
來　　自:
文章數量: 170

版大:
若不要總是在最後一個週期出現，想以每個週期都呈現，當如何？

原碼
DRAWGBK(1,COLORRGB(0,150,100),COLORRGB(0,150,100),1);
XC:CLOSE,LINETHICK0;
MA1:=MA(CLOSE,21);
STICKLINE(XC>MA1,HIGH,LOW,4,0),COLORBLACK;
STICKLINE(XC<MA1,HIGH,LOW,4,0),COLORGREEN;
UZIG:=ZIG(3,13);
B:UZIG>REF(UZIG,1) AND REF(UZIG,1)<REF(UZIG,2);
DRAWICON(B,LOW,4);
S:UZIG<REF(UZIG,1) AND REF(UZIG,1)>REF(UZIG,2);
DRAWICON(S,HIGH,12);
BSP:=barslast(B); LDB:=lbound(BSP);
SSP:=barslast(S); LDS:=lbound(SSP);
LSP:=barslast(B or S);
KNo:=datacount-LSP[datacount]-1;
DWB:=C*0; DWS:=DWB; HH:=H; LL:=L;
BKNo:=KNo; SKNo:=KNo;
VARIABLE: PH[2]=0,PL[2]=0;
for i:=1 to 2 do begin
if BKNo>=LDB then begin
FPB:=BKNo-BSP[BKNo];
DWB[FPB]:=i; PL[i]:=LL[FPB]; BKNo:=FPB-1;
end;
if SKNo>=LDS then begin
FPS:=SKNo-SSP[SKNo];
DWS[FPS]:=i; PH[i]:=HH[FPS]; SKNo:=FPS-1;
end;
end;
PDH:=PH[2]>PH[1]; PDL:=PL[1]>PL[2];
DRAWLINE(DWS=2 and PDH, HH, DWS=1 and PDH, HH,1) coloryellow;
DRAWLINE(DWB=2 and PDL, LL, DWB=1 and PDL, LL,1) colorred;

XM:=LINEVALUE(DWS=2 and PDH, HH, DWS=1 and PDH, HH,1,0);
QB:=barslast(DWB=1)>0 and cross(C,XM);
VERTLINE(QB) linedot;

__________________
efef55e3

向版主報告此篇 | 查IP位址
Old Post 2012-11-24 15:13
yjl8895 現在離線 點選這裡查看 yjl8895 的個人資料 點選這裡給 yjl8895 傳送一條短訊 查找更多關於 yjl8895 的文章 增加 yjl8895 至你的好友列表 編輯/刪除訊息 引用回覆
cgjj
總版主

註冊日期: Oct 2003
來　　自:
文章數量: 18091

引用:
最初由 yjl8895 發表
版大:
若不要總是在最後一個週期出現，想以每個週期都呈現，當如何？

原碼
DRAWGBK(1,COLORRGB(0,150,100),COLORRGB(0,150,100),1);
XC:CLOSE,LINETHICK0;
MA1:=MA(CLOSE,21);
.................................


不建議如此做, 畫面會一堆線
且耗費 CPU在畫很多不會用到的線

向版主報告此篇 | 查IP位址
Old Post 2012-11-26 09:43
cgjj 現在離線 點選這裡查看 cgjj 的個人資料 點選這裡給 cgjj 傳送一條短訊 查找更多關於 cgjj 的文章 增加 cgjj 至你的好友列表 編輯/刪除訊息 引用回覆
yjl8895
資深會員

註冊日期: Jun 2009
來　　自:
文章數量: 170

上述用意在於只求得QB，故屆時將會把所有劃線隱藏，有勞版大。

__________________
efef55e3

向版主報告此篇 | 查IP位址
Old Post 2012-12-20 08:15
yjl8895 現在離線 點選這裡查看 yjl8895 的個人資料 點選這裡給 yjl8895 傳送一條短訊 查找更多關於 yjl8895 的文章 增加 yjl8895 至你的好友列表 編輯/刪除訊息 引用回覆
cgjj
總版主

註冊日期: Oct 2003
來　　自:
文章數量: 18091

引用:
最初由 yjl8895 發表
上述用意在於只求得QB，故屆時將會把所有劃線隱藏，有勞版大。


DRAWGBK(1,COLORRGB(0,150,100),COLORRGB(0,150,100),1);
XC:CLOSE,LINETHICK0;
MA1:=MA(CLOSE,21);
STICKLINE(XC>MA1,HIGH,LOW,4,0),COLORBLACK;
STICKLINE(XC<MA1,HIGH,LOW,4,0),COLORGREEN;
UZIG:=ZIG(3,13);
B:UZIG>REF(UZIG,1) AND REF(UZIG,1)<REF(UZIG,2) linethick0;
S:UZIG<REF(UZIG,1) AND REF(UZIG,1)>REF(UZIG,2) linethick0;
DRAWICON(B,LOW,4); DRAWICON(S,HIGH,12);
B1SP:=sumbars(B,1)-1; B2SP:=sumbars(B,2)-1;
S1SP:=sumbars(S,1)-1; S2SP:=sumbars(S,2)-1;
PS:=S and ref(H,S1SP)<ref(H,S2SP);
PB:=B and ref(L,B1SP)>ref(L,B2SP);
QA:=PB and ref(PS,S1SP); QASP:=barslast(QA);
VERTLINE(QA) linedot COLORWHITE;
SLINE:=ref(h,S2SP)-(ref(h,S2SP)-ref(h,S1SP))/(S2SP-S1SP)*S2SP;
QB:=C>SLINE and sum(S or (B and QA=0), QASP+1)=0;
QB:=QB and sum(QB,QASP+1)=1;
VERTLINE(QB) linedot COLORRED;

向版主報告此篇 | 查IP位址
Old Post 2012-12-21 12:18
cgjj 現在離線 點選這裡查看 cgjj 的個人資料 點選這裡給 cgjj 傳送一條短訊 查找更多關於 cgjj 的文章 增加 cgjj 至你的好友列表 編輯/刪除訊息 引用回覆
全部時間均為台灣時間, 現在時間為21:11 發表新主題    回覆主題
  上一主題   下一主題
顯示可列印版本 | 訂閱此主題

論壇跳轉:
主題評分:

論壇規定:
你不可以發表新主題
你不可以回覆文章
你不可以上傳附件
你不可以編輯自己的文章 		HTML語法禁止
vB 語法核准
表情符號核准
貼圖語法[IMG]核准
 

本站所有內容未經作者授權禁止轉貼節錄, 發表言論僅供參考勿作為投資決策依據。瀏覽本站請使用 IE 5.5 以上版本, 最佳瀏覽解析度 1024 x 768 全彩。

Powered by: vBulletin Version 2.3.0 - Copyright©2000-, Jelsoft Enterprises Limited.
簡愛洋行 製作 Copyright 2003-. All Rights Reserved.  聯絡我們