 |
santienchang
資深會員
註冊日期: May 2011
來 自: 台中
文章數量: 164 |
[問題]
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;
請總板主協助.謝謝!
|
|
向版主報告此篇 |  |
|
2014-03-18 23:55 |
|
|
|  |
 |
cgjj
總版主

註冊日期: Oct 2003
來 自:
文章數量: 18197 |
回覆: [問題]
引用: 最初由 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;
請總板主協助.謝謝!
這公式應該是源自這裡的, 再去改寫的吧
http://www.chiefox.com.tw/bbs/showt...15&pagenumber=2
您改變了原先許多個很重要的參數
在不知您要改為算什麼的情況下, 恕無法協助
|
|
向版主報告此篇 |  |
|
2014-03-19 09:57 |
|
|
|  |
 |
santienchang
資深會員
註冊日期: May 2011
來 自: 台中
文章數量: 164 |
回覆: 回覆: [問題]
引用: 最初由 cgjj 發表
這公式應該是源自這裡的, 再去改寫的吧
http://www.chiefox.com.tw/bbs/showt...15&pagenumber=2
您改變了原先許多個很重要的參數
在不知您要改為算什麼的情況下, 恕無法協助
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三組階梯線
自己修改很久都未能修好?謝謝您!
|
|
向版主報告此篇 |  |
|
2014-03-19 13:59 |
|
|
|  |
 |
cgjj
總版主

註冊日期: Oct 2003
來 自:
文章數量: 18197 |
回覆: 回覆: 回覆: [問題]
引用: 最初由 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三組階梯線
自己修改很久都未能修好?謝謝您!
不建議您如此做, 畫方框都會重疊嚕
更何況是畫大K, 疊三層會很難觀察
|
|
向版主報告此篇 |  |
|
2014-03-20 09:18 |
|
|
|  |
 |
santienchang
資深會員
註冊日期: May 2011
來 自: 台中
文章數量: 164 |
回覆: 回覆: 回覆: 回覆: [問題]
引用: 最初由 cgjj 發表
不建議您如此做, 畫方框都會重疊嚕
更何況是畫大K, 疊三層會很難觀察
我的意思是畫大K,把它省略掉.只留3.6.9階梯線可以嗎?謝謝
|
|
向版主報告此篇 |  |
|
2014-03-20 11:11 |
|
|
|  |
 |
cgjj
總版主

註冊日期: Oct 2003
來 自:
文章數量: 18197 |
回覆: 回覆: 回覆: 回覆: 回覆: [問題]
引用: 最初由 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);
|
|
向版主報告此篇 |  |
|
2014-03-21 16:00 |
|
|
|  |
 |
santienchang
資深會員
註冊日期: May 2011
來 自: 台中
文章數量: 164 |
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;
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~`
請版主協助.謝謝!
|
|
向版主報告此篇 |  |
|
2014-04-30 00:58 |
|
|
|  |
 |
cgjj
總版主

註冊日期: Oct 2003
來 自:
文章數量: 18197 |
引用: 最初由 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;
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~`
請版主協助.謝謝!
協助什麼?? 並未說明唷
|
|
向版主報告此篇 |  |
|
2014-04-30 08:25 |
|
|
|  |
 |
santienchang
資深會員
註冊日期: May 2011
來 自: 台中
文章數量: 164 |
引用: 最初由 cgjj 發表
協助什麼?? 並未說明唷
.在多分K線上漲.觸H3KM價時該線隱藏.一直到下次K線
下跌反觸L3KM價時隱藏.該線.並顯示H3KM線.謝謝您!
|
|
向版主報告此篇 |  |
|
2014-04-30 09:36 |
|
|
|  |
 |
santienchang
資深會員
註冊日期: May 2011
來 自: 台中
文章數量: 164 |
引用: 最初由 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;
抱歉!出現x:=SETLBOUND(H3KM,lb-SP[lb]
(未定義標示符)我還要修改哪裡謝謝!
|
|
向版主報告此篇 |  |
|
2014-04-30 11:43 |
|
|
|  |
本站所有內容未經作者授權禁止轉貼節錄, 發表言論僅供參考勿作為投資決策依據。瀏覽本站請使用 IE 5.5 以上版本, 最佳瀏覽解析度 1024 x 768 全彩。
|
Powered by: vBulletin Version 2.3.0 - Copyright©2000-, Jelsoft Enterprises Limited.
簡愛洋行 製作 Copyright 2003-. All Rights Reserved. 聯絡我們
|