![]() |
總頁數 (2): [1] 2 » 在這個頁面顯示本主題全部的 25 個文章 |
奇狐社區論壇 (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=18401)
[問題]
DESP:=BARSLAST(DATE<>REF(DATE,4));
FirstCK:=BARPOS=DATACOUNT-DESP[DATACOUNT]-81;
FirstSP:=BARSLAST(FirstCK);
BKFT:=MOD(FirstSP,6)=0;
BKFTSP:=BARSLAST(BKFT);
BKLT:=MOD(FirstSP,3)=2 or ISLASTBAR;
BKH:=HHV(HIGH,BKFTSP+1);
BKL:=LLV(LOW,BKFTSP+1);
BKH:=SETVAL(BKLT,BKH,-BKFTSP,BKH);
BKL:=SETVAL(BKLT,BKL,-BKFTSP,BKL);
//VERTLINE(BKLT) LINEDOT;
BK3SP:=SUMBARS(BKLT,6);
MAH3:=SUM(BKH*BKLT,BK3SP)/6;
MAL3:=SUM(BKL*BKLT,BK3SP)/6;
MMH3:=MAH3+(MAH3-BKH)/3;
MML3:=MAL3-(BKL-MAL3)/3;
MH:IF(BKH>MMH3,MAH3,MMH3),color888888;
ML:IF(BKL<MML3,MAL3,MML3),color888888;
LBMH:=LBOUND(MH);
IF LBMH>0 then begin
SetNewLB:=LBMH-BKFTSP[LBMH];
x:=SETLBOUND(MH,SetNewLB); x:=SETLBOUND(ML,SetNewLB);
end;
MH:=SETVAL(BKLT,MH,-BKFTSP,MH).....省
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
我用多3分K圖
BKFT:=MOD(FirstSP,6)=0;
BKFT:=MOD(FirstSP,9)=0;(怎會變成BKFT:=MOD(FirstSP,3)=0????
BKFT:=MOD(FirstSP,18)=0;
請總板主協助.謝謝!
回覆: [問題]
引用:
最初由 santienchang 發表
DESP:=BARSLAST(DATE<>REF(DATE,4));
FirstCK:=BARPOS=DATACOUNT-DESP[DATACOUNT]-81;
FirstSP:=BARSLAST(FirstCK);
BKFT:=MOD(FirstSP,6)=0;
BKFTSP:=BARSLAST(BKFT);
BKLT:=MOD(FirstSP,3)=2 or ISLASTBAR;
BKH:=HHV(HIGH,BKFTSP+1);
BKL:=LLV(LOW,BKFTSP+1);
BKH:=SETVAL(BKLT,BKH,-BKFTSP,BKH);
BKL:=SETVAL(BKLT,BKL,-BKFTSP,BKL);
//VERTLINE(BKLT) LINEDOT;
BK3SP:=SUMBARS(BKLT,6);
MAH3:=SUM(BKH*BKLT,BK3SP)/6;
MAL3:=SUM(BKL*BKLT,BK3SP)/6;
MMH3:=MAH3+(MAH3-BKH)/3;
MML3:=MAL3-(BKL-MAL3)/3;
MH:IF(BKH>MMH3,MAH3,MMH3),color888888;
ML:IF(BKL<MML3,MAL3,MML3),color888888;
LBMH:=LBOUND(MH);
IF LBMH>0 then begin
SetNewLB:=LBMH-BKFTSP[LBMH];
x:=SETLBOUND(MH,SetNewLB); x:=SETLBOUND(ML,SetNewLB);
end;
MH:=SETVAL(BKLT,MH,-BKFTSP,MH).....省
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
我用多3分K圖
BKFT:=MOD(FirstSP,6)=0;
BKFT:=MOD(FirstSP,9)=0;(怎會變成BKFT:=MOD(FirstSP,3)=0????
BKFT:=MOD(FirstSP,18)=0;
請總板主協助.謝謝!
回覆: 回覆: [問題]
引用:
最初由 cgjj 發表
這公式應該是源自這裡的, 再去改寫的吧
http://www.chiefox.com.tw/bbs/showt...15&pagenumber=2
您改變了原先許多個很重要的參數
在不知您要改為算什麼的情況下, 恕無法協助
回覆: 回覆: 回覆: [問題]
引用:
最初由 santienchang 發表
DESP:=BARSLAST(DATE<>REF(DATE,1));
FirstCK:=BARPOS=DATACOUNT-DESP[DATACOUNT]-18;
FirstSP:=BARSLAST(FirstCK);
M09K:=MOD(FirstSP,9);
M09st:=M09K=0;
M09ed:=M09K=8 or BARPOS=DATACOUNT;
M09sp:=BARSLAST(M09st)+1;
M09O:REF(OPEN,BARSLAST(M09st)) LINETHICK0 colormagenta;
M09H:HHV(HIGH,M09sp) LINETHICK0 colormagenta;
M09H:=SETVAL(M09ed,M09H,-BARSLAST(M09st),M09H);
M09L:LLV(LOW,M09sp) LINETHICK0 colormagenta;
M09L:=SETVAL(M09ed,M09L,-BARSLAST(M09st),M09L);
M09C:SETVAL(M09ed,CLOSE,-BARSLAST(M09st),CLOSE) LINETHICK0 colormagenta;
M09V:=SETVAL(M09ed,0,-FLOOR(BARSLAST(M09st)/2),1);
M09V:=SETVAL(M09ed,M09V,-FLOOR(BARSLAST(M09st)/2)+1,0);
PKW:=M09sp>1;
PKMV:=PKW and M09V;
PKLV:=M09st and NOT(M09ed);
PKRV:=PKW and M09ed;
PARTLINE(PKW,M09O) colormagenta;
PARTLINE(PKW,M09C) colormagenta;
STICKLINE(PKMV,M09H,MAX(M09C,M09O),0,0) colormagenta;
STICKLINE(PKMV,M09L,MIN(M09C,M09O),0,0) colormagenta;
STICKLINE(PKLV,M09C,M09O,0,0) colormagenta;
STICKLINE(PKRV,M09C,M09O,0,0) colormagenta;
WW:=FLOOR((DATETOD1970(DATE)-3)/7);
WSt:=BARPOS=1 or REF(WW,1)<>WW;
DESP:=BARSLAST(DATE<>REF(DATE,1));
FirstCK:=BARPOS=DATACOUNT-DESP[DATACOUNT]-36;
FirstSP:=BARSLAST(FirstCK);
BKFT:=MOD(FirstSP,9)=0;
BKFTSP:=BARSLAST(BKFT);
BKLT:=MOD(FirstSP,3)=2 or ISLASTBAR;
BKH:=HHV(HIGH,BKFTSP+1);
BKL:=LLV(LOW,BKFTSP+1);
BKH:=SETVAL(BKLT,BKH,-BKFTSP,BKH);
BKL:=SETVAL(BKLT,BKL,-BKFTSP,BKL);
//VERTLINE(BKLT) LINEDOT;
BK3SP:=SUMBARS(BKLT,9);
MAH3:=SUM(BKH*BKLT,BK3SP)/9;
MAL3:=SUM(BKL*BKLT,BK3SP)/9;
MMH3:=MAH3+(MAH3-BKH)/9;
MML3:=MAL3-(BKL-MAL3)/9;
MH:IF(BKH>MMH3,MAH3,MMH3),color00FFFF;
ML:IF(BKL<MML3,MAL3,MML3),color00FFFF;
LBMH:=LBOUND(MH);
IF LBMH>0 then begin
SetNewLB:=LBMH-BKFTSP[LBMH];
x:=SETLBOUND(MH,SetNewLB); x:=SETLBOUND(ML,SetNewLB);
end;
MH:=SETVAL(BKLT,MH,-BKFTSP,MH);
ML:=SETVAL(BKLT,ML,-BKFTSP,ML);
用上面語法大K線不顯示.能在3分圖同時放入6.9.18三組階梯線
自己修改很久都未能修好?謝謝您!
回覆: 回覆: 回覆: 回覆: [問題]
引用:
最初由 cgjj 發表
不建議您如此做, 畫方框都會重疊嚕
更何況是畫大K, 疊三層會很難觀察
回覆: 回覆: 回覆: 回覆: 回覆: [問題]
引用:
最初由 santienchang 發表
我的意思是畫大K,把它省略掉.只留3.6.9階梯線可以嗎?謝謝
原碼:
DESP:=barslast(date<>ref(date,1));
//3K
FirstCK:=barpos=datacount-DESP[datacount]-2;
FirstSP:=barslast(FirstCK);
BKFT:=MOD(FirstSP,3)=0;
BKFTSP:=barslast(BKFT);
BKLT:=MOD(FirstSP,3)=3-1 or islastbar;
BKH:=HHV(H,BKFTSP+1);
BKL:=LLV(L,BKFTSP+1);
BKH:=SETVAL(BKLT,BKH,-BKFTSP,BKH);
BKL:=SETVAL(BKLT,BKL,-BKFTSP,BKL);
BKNSP:=SUMBARS(BKLT,3);
MAH:=SUM(BKH*BKLT,BKNSP)/3;
MAL:=SUM(BKL*BKLT,BKNSP)/3;
MMH:=MAH+(MAH-BKH)/3;
MML:=MAL-(BKL-MAL)/3;
H3KM:IF(BKH<>MMH,MAH,MMH),colorFFFFFF;
L3KM:IF(BKL<>MML,MAL,MML),colorFFFFFF;
LBMH:=lbound(H3KM);
IF LBMH>0 then begin
SetNewLB:=LBMH-BKFTSP[LBMH];
x:=SETLBOUND(H3KM,SetNewLB); x:=SETLBOUND(L3KM,SetNewLB);
end;
H3KM:=SETVAL(BKLT,H3KM,-BKFTSP,H3KM);
L3KM:=SETVAL(BKLT,L3KM,-BKFTSP,L3KM);
//6K
FirstCK:=barpos=datacount-DESP[datacount]-8;
FirstSP:=barslast(FirstCK);
BKFT:=MOD(FirstSP,6)=0;
BKFTSP:=barslast(BKFT);
BKLT:=MOD(FirstSP,6)=6-1 or islastbar;
BKH:=HHV(H,BKFTSP+1);
BKL:=LLV(L,BKFTSP+1);
BKH:=SETVAL(BKLT,BKH,-BKFTSP,BKH);
BKL:=SETVAL(BKLT,BKL,-BKFTSP,BKL);
BKNSP:=SUMBARS(BKLT,3);
MAH:=SUM(BKH*BKLT,BKNSP)/3;
MAL:=SUM(BKL*BKLT,BKNSP)/3;
MMH:=MAH+(MAH-BKH)/3;
MML:=MAL-(BKL-MAL)/3;
H6KM:IF(BKH<>MMH,MAH,MMH),color00FFFF;
L6KM:IF(BKL<>MML,MAL,MML),color00FFFF;
LBMH:=lbound(H6KM);
IF LBMH>0 then begin
SetNewLB:=LBMH-BKFTSP[LBMH];
x:=SETLBOUND(H6KM,SetNewLB); x:=SETLBOUND(L6KM,SetNewLB);
end;
H6KM:=SETVAL(BKLT,H6KM,-BKFTSP,H6KM);
L6KM:=SETVAL(BKLT,L6KM,-BKFTSP,L6KM);
//9K
FirstCK:=barpos=datacount-DESP[datacount]-11;
FirstSP:=barslast(FirstCK);
BKFT:=MOD(FirstSP,9)=0;
BKFTSP:=barslast(BKFT);
BKLT:=MOD(FirstSP,9)=9-1 or islastbar;
BKH:=HHV(H,BKFTSP+1);
BKL:=LLV(L,BKFTSP+1);
BKH:=SETVAL(BKLT,BKH,-BKFTSP,BKH);
BKL:=SETVAL(BKLT,BKL,-BKFTSP,BKL);
BKNSP:=SUMBARS(BKLT,3);
MAH:=SUM(BKH*BKLT,BKNSP)/3;
MAL:=SUM(BKL*BKLT,BKNSP)/3;
MMH:=MAH+(MAH-BKH)/3;
MML:=MAL-(BKL-MAL)/3;
H9KM:IF(BKH<>MMH,MAH,MMH),colorFF00FF;
L9KM:IF(BKL<>MML,MAL,MML),colorFF00FF;
LBMH:=lbound(H9KM);
IF LBMH>0 then begin
SetNewLB:=LBMH-BKFTSP[LBMH];
x:=SETLBOUND(H9KM,SetNewLB); x:=SETLBOUND(L9KM,SetNewLB);
end;
H9KM:=SETVAL(BKLT,H9KM,-BKFTSP,H9KM);
L9KM:=SETVAL(BKLT,L9KM,-BKFTSP,L9KM);
ok~感謝總板主~
DESP:=BARSLAST(DATE<>REF(DATE,1));
//3K
FirstCK:=BARPOS=DATACOUNT-DESP[DATACOUNT]-27;
FirstSP:=BARSLAST(FirstCK);
BKFT:=MOD(FirstSP,3)=0;
BKFTSP:=BARSLAST(BKFT);
BKLT:=MOD(FirstSP,3)=3-1 or ISLASTBAR;
BKH:=HHV(HIGH,BKFTSP+1);
BKL:=LLV(LOW,BKFTSP+1);
BKH:=SETVAL(BKLT,BKH,-BKFTSP,BKH);
BKL:=SETVAL(BKLT,BKL,-BKFTSP,BKL);
BKNSP:=SUMBARS(BKLT,3);
MAH:=SUM(BKH*BKLT,BKNSP)/3;
MAL:=SUM(BKL*BKLT,BKNSP)/3;
MMH:=MAH+(MAH-BKH)/3;
MML:=MAL-(BKL-MAL)/3;
H3KM:IF(BKH>MMH,MAH,MMH),colorff00ff;
L3KM:IF(BKL<MML,MAL,MML),colorff00ff;
LBMH:=LBOUND(H3KM);
IF LBMH>0 then begin
SetNewLB:=LBMH-BKFTSP[LBMH];
x:=SETLBOUND(H3KM,SetNewLB); x:=SETLBOUND(L3KM,SetNewLB);
end;
H3KM:=SETVAL(BKLT,H3KM,-BKFTSP,H3KM);
L3KM:=SETVAL(BKLT,L3KM,-BKFTSP,L3KM);
lb:=LBOUND(H3KM);
IF lb=0 then exit;
x:=SETLBOUND(H3KM,lb-SP[lb]);
x:=SETLBOUND(L3KM,lb-SP[lb]);
H3KM:=SETVAL(MKR and SP>0,H3KM,-SP,H3KM) linethick;
L3KM:=SETVAL(MKR and SP>0,L3KM,-SP,L3KM) linethick;
AA:=SUM(C<H3KM,12)=12;
BB:=SUM(C>L3KM,12)=12;
SS:=(AA-BB);
SS:=if(SS<>0,SS,ref(-SS,barslast(SS<>0)));
PARTLINE(SS=1,H3KM),color00FF00;
PARTLINE(SS=-1,L3KM),color00FF00;
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~`
請版主協助.謝謝!
引用:
最初由 santienchang 發表
DESP:=BARSLAST(DATE<>REF(DATE,1));
//3K
FirstCK:=BARPOS=DATACOUNT-DESP[DATACOUNT]-27;
FirstSP:=BARSLAST(FirstCK);
BKFT:=MOD(FirstSP,3)=0;
BKFTSP:=BARSLAST(BKFT);
BKLT:=MOD(FirstSP,3)=3-1 or ISLASTBAR;
BKH:=HHV(HIGH,BKFTSP+1);
BKL:=LLV(LOW,BKFTSP+1);
BKH:=SETVAL(BKLT,BKH,-BKFTSP,BKH);
BKL:=SETVAL(BKLT,BKL,-BKFTSP,BKL);
BKNSP:=SUMBARS(BKLT,3);
MAH:=SUM(BKH*BKLT,BKNSP)/3;
MAL:=SUM(BKL*BKLT,BKNSP)/3;
MMH:=MAH+(MAH-BKH)/3;
MML:=MAL-(BKL-MAL)/3;
H3KM:IF(BKH>MMH,MAH,MMH),colorff00ff;
L3KM:IF(BKL<MML,MAL,MML),colorff00ff;
LBMH:=LBOUND(H3KM);
IF LBMH>0 then begin
SetNewLB:=LBMH-BKFTSP[LBMH];
x:=SETLBOUND(H3KM,SetNewLB); x:=SETLBOUND(L3KM,SetNewLB);
end;
H3KM:=SETVAL(BKLT,H3KM,-BKFTSP,H3KM);
L3KM:=SETVAL(BKLT,L3KM,-BKFTSP,L3KM);
lb:=LBOUND(H3KM);
IF lb=0 then exit;
x:=SETLBOUND(H3KM,lb-SP[lb]);
x:=SETLBOUND(L3KM,lb-SP[lb]);
H3KM:=SETVAL(MKR and SP>0,H3KM,-SP,H3KM) linethick;
L3KM:=SETVAL(MKR and SP>0,L3KM,-SP,L3KM) linethick;
AA:=SUM(C<H3KM,12)=12;
BB:=SUM(C>L3KM,12)=12;
SS:=(AA-BB);
SS:=if(SS<>0,SS,ref(-SS,barslast(SS<>0)));
PARTLINE(SS=1,H3KM),color00FF00;
PARTLINE(SS=-1,L3KM),color00FF00;
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~`
請版主協助.謝謝!
引用:
最初由 cgjj 發表
協助什麼?? 並未說明唷
引用:
最初由 santienchang 發表
.在多分K線上漲.觸H3KM價時該線隱藏.一直到下次K線
下跌反觸L3KM價時隱藏.該線.並顯示H3KM線.謝謝您!
引用:
最初由 cgjj 發表
有看沒有懂 @@
麻煩弄個圖解說一下, 哪邊要隱藏, 哪邊要顯示
(圖中至少要有兩個循環, 才容易精確理解)
謝謝
引用:
最初由 santienchang 發表
希望能用觸價轉換.若不行用收盤價也可以.謝謝您!
引用:
最初由 cgjj 發表
看看是否為您要的
將
PARTLINE(SS=1,H3KM),color00FF00;
PARTLINE(SS=-1,L3KM),color00FF00;
改為
PARTLINE(SS=1 and H<H3KM,H3KM),color00FF00;
PARTLINE(SS=-1 and L>L3KM,L3KM),color00FF00;
引用:
最初由 santienchang 發表
抱歉!出現x:=SETLBOUND(H3KM,lb-SP[lb]
(未定義標示符)我還要修改哪裡謝謝!
全部時間均為台灣時間, 現在時間為06:15 | 總頁數 (2): [1] 2 » 在這個頁面顯示本主題全部的 25 個文章 |
Powered by: vBulletin Version 2.3.0 - Copyright©2000-, Jelsoft Enterprises Limited.
簡愛洋行 製作 Copyright 2003-. All Rights Reserved.