 |
santienchang
資深會員
註冊日期: May 2011
來 自: 台中
文章數量: 164 |
預留畫線空間
DESP:=BARSLAST(DATE<>REF(DATE,1));
//3K
FirstCK:=BARPOS=DATACOUNT-DESP[DATACOUNT]-9;
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;
H3gM:IF(BKH>MMH,MAH,MMH),color00ffff;
L3gM:IF(BKL<MML,MAL,MML),color00ffff;
LBMH:=LBOUND(H3gM);
IF LBMH>0 then begin
SetNewLB:=LBMH-BKFTSP[LBMH];
x:=SETLBOUND(H3gM,SetNewLB); x:=SETLBOUND(L3gM,SetNewLB);
end;
H3gM:=SETVAL(BKLT,H3gM,-BKFTSP,H3gM),color00ffff;
L3gM:=SETVAL(BKLT,L3gM,-BKFTSP,L3gM),color00ffff;
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
請版主幫我改如圖示
開盤後誇昨日3支K線起始計算.爾後每3支K線劃一次至收盤.
該3支K線H超過H3GM直就以H3GM質畫
該3支K線L低過L3GM直就以L3GM質畫
謝謝![IMG]http://[/IMG]
santienchang 附帶上了此圖片:
|
|
向版主報告此篇 |  |
|
2015-05-06 13:00 |
|
|
|  |
 |
cgjj
總版主

註冊日期: Oct 2003
來 自:
文章數量: 18094 |
回覆: 預留畫線空間
引用: 最初由 santienchang 發表
DESP:=BARSLAST(DATE<>REF(DATE,1));
//3K
FirstCK:=BARPOS=DATACOUNT-DESP[DATACOUNT]-9;
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;
H3gM:IF(BKH>MMH,MAH,MMH),color00ffff;
L3gM:IF(BKL<MML,MAL,MML),color00ffff;
LBMH:=LBOUND(H3gM);
IF LBMH>0 then begin
SetNewLB:=LBMH-BKFTSP[LBMH];
x:=SETLBOUND(H3gM,SetNewLB); x:=SETLBOUND(L3gM,SetNewLB);
end;
H3gM:=SETVAL(BKLT,H3gM,-BKFTSP,H3gM),color00ffff;
L3gM:=SETVAL(BKLT,L3gM,-BKFTSP,L3gM),color00ffff;
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
請版主幫我改如圖示
開盤後誇昨日3支K線起始計算.爾後每3支K線劃一次至收盤.
該3支K線H超過H3GM直就以H3GM質畫
該3支K線L低過L3GM直就以L3GM質畫
謝謝![IMG]http://[/IMG]
這是畫延伸線吧,於未端加入
DRAWSL(islastbar,H3gM,0,3,0) pxdn2 linedot color00ffff;
DRAWSL(islastbar,L3gM,0,3,0) pxdn2 linedot color00ffff;
|
|
向版主報告此篇 |  |
|
2015-05-06 13:36 |
|
|
|  |
 |
santienchang
資深會員
註冊日期: May 2011
來 自: 台中
文章數量: 164 |
抱歉我多畫出虛線3根.我的意思是.開盤時
H3GM值˙要畫在開盤第一根 K線上方的位置
.再延長兩根.當開盤3根後.用今日3根HHX2+
昨尾盤3根HH計算出來畫在今第4.5.6根上
方.謝謝版主
|
|
向版主報告此篇 |  |
|
2015-05-06 14:50 |
|
|
|  |
 |
santienchang
資深會員
註冊日期: May 2011
來 自: 台中
文章數量: 164 |
報告版主!
原碼是用昨尾盤.654hh+321hh+今開盤123
hh/3.
想要改計算起始從昨尾盤654hh+(321hh值
x2)/3=今開盤第一支K線H3GM值要畫到第3支位置..隨著盤勢第3支結束.
第4支值計算為昨尾盤321hh+(今123hhx2)/3
=H3GM值從第4支畫到第6支3根位置........
第7支值計算為今第123hh+(456hhx2)/3
=H3GM值從第7支畫到第9支........
由衷謝謝版主幫忙..感恩!
|
|
向版主報告此篇 |  |
|
2015-05-06 23:01 |
|
|
|  |
 |
cgjj
總版主

註冊日期: Oct 2003
來 自:
文章數量: 18094 |
引用: 最初由 santienchang 發表
A區最高價9826+(B區最高價9843X2)/3=
9837.3A區最高價超過H3GM線8:47開盤直接劃H3GM9837.3階梯線.
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
A區最低價9812+(B區最低價9818X2)/3=
9816
B區最低價9818-虛L3GM線距離=2
虛9816X3-2/3=8:47開盤劃實L3GM9815.3
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
報告版主:便於圖示.此K棒是5.1版歷史回顧
謝謝您幫助.
於尾端加入這些
SH1:=(ref(BKH,4)+ref(BKH,1)*2)/3;
SH2:=(SH1*3+(SH1-ref(BKH,1)))/3;
SHH:if(SH1<ref(BKH,1),SH1,SH2) linethick;
SL1:=(ref(BKL,4)+ref(BKL,1)*2)/3;
SL2:=(SL1*3-(ref(BKL,1)-SL1))/3;
SLL:if(SL1>ref(BKL,1),SH1,SH2) linethick;
請先檢驗 8:47 該根K棒算出的 SHH 和 SLL
是否為您要畫的數值
|
|
向版主報告此篇 |  |
|
2015-05-12 12:10 |
|
|
|  |
 |
santienchang
資深會員
註冊日期: May 2011
來 自: 台中
文章數量: 164 |
DESP:=BARSLAST(DATE<>REF(DATE,1));
//3K
FirstCK:=BARPOS=DATACOUNT-DESP[DATACOUNT]-54;
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;
H3gM:IF(BKH>MMH,MAH,MMH);
L3gM:IF(BKL<MML,MAL,MML);
LBMH:=LBOUND(H3gM);
IF LBMH>0 then begin
SetNewLB:=LBMH-BKFTSP[LBMH];
x:=SETLBOUND(H3gM,SetNewLB); x:=SETLBOUND(L3gM,SetNewLB);
end;
H3gM:=SETVAL(BKLT,H3gM,-BKFTSP,H3gM);
L3gM:=SETVAL(BKLT,L3gM,-BKFTSP,L3gM);
SH1:=(REF(BKH,4)+REF(BKH,1)*2)/3;
SH2:=(SH1*3+(SH1-REF(BKH,1)))/3;
SHH:IF(SH1<REF(BKH,1),SH1,SH2) linethick;
SL1:=(REF(BKL,4)+REF(BKL,1)*2)/3;
SL2:=(SL1*3-(REF(BKL,1)-SL1))/3;
SLL:IF(SL1>REF(BKL,1),SL1,SL2) linethick;
請先檢驗 8:47 該根K棒算出的 SHH 和 SLL
是否為您要畫的數值 [/B][/QUOTE]
最後ㄧ行SH1,SH2應改為SL1.SL2
報告版主.計算完全正確.但階梯線提早兩根.
也就是開盤誇昨日尾盤最後兩根K棒~開盤
第一根就結速?請幫我改到開盤起始..
皆梯現只留SSH與SLL謝謝您感恩!
|
|
向版主報告此篇 |  |
|
2015-05-24 22:38 |
|
|
|  |
 |
santienchang
資深會員
註冊日期: May 2011
來 自: 台中
文章數量: 164 |
DESP:=BARSLAST(DATE<>REF(DATE,1));
//3K
FirstCK:=BARPOS=DATACOUNT-DESP[DATACOUNT]-12;
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;
H3gM:IF(BKH>MMH,MAH,MMH) linethick;
L3gM:IF(BKL<MML,MAL,MML) linethick;
LBMH:=LBOUND(H3gM);
IF LBMH>0 then begin
SetNewLB:=LBMH-BKFTSP[LBMH];
x:=SETLBOUND(H3gM,SetNewLB); x:=SETLBOUND(L3gM,SetNewLB);
end;
H3gM:=SETVAL(BKLT,H3gM,-BKFTSP,H3gM);
L3gM:=SETVAL(BKLT,L3gM,-BKFTSP,L3gM);
SH1:=(REF(BKH,4)+REF(BKH,1)*2)/3;
SH2:=(SH1*3+(SH1-REF(BKH,1)))/3;
SHH:IF(SH1<REF(BKH,1),SH1,SH2),color00ff00;
SL1:=(REF(BKL,4)+REF(BKL,1)*2)/3;
SL2:=(SL1*3-(REF(BKL,1)-SL1))/3;
SLL:IF(SL1>REF(BKL,1),SL1,SL2),,color00ff00;
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
愚笨摸索很久??以上2分圖原文請版主幫我如圖往右移2支K線(當日開盤開始)謝謝!
santienchang 附帶上了此圖片:
|
|
向版主報告此篇 |  |
|
2015-06-07 00:27 |
|
|
|  |
 |
cgjj
總版主

註冊日期: Oct 2003
來 自:
文章數量: 18094 |
引用: 最初由 santienchang 發表
DESP:=BARSLAST(DATE<>REF(DATE,1));
//3K
FirstCK:=BARPOS=DATACOUNT-DESP[DATACOUNT]-12;
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;
H3gM:IF(BKH>MMH,MAH,MMH) linethick;
L3gM:IF(BKL<MML,MAL,MML) linethick;
LBMH:=LBOUND(H3gM);
IF LBMH>0 then begin
SetNewLB:=LBMH-BKFTSP[LBMH];
x:=SETLBOUND(H3gM,SetNewLB); x:=SETLBOUND(L3gM,SetNewLB);
end;
H3gM:=SETVAL(BKLT,H3gM,-BKFTSP,H3gM);
L3gM:=SETVAL(BKLT,L3gM,-BKFTSP,L3gM);
SH1:=(REF(BKH,4)+REF(BKH,1)*2)/3;
SH2:=(SH1*3+(SH1-REF(BKH,1)))/3;
SHH:IF(SH1<REF(BKH,1),SH1,SH2),color00ff00;
SL1:=(REF(BKL,4)+REF(BKL,1)*2)/3;
SL2:=(SL1*3-(REF(BKL,1)-SL1))/3;
SLL:IF(SL1>REF(BKL,1),SL1,SL2),,color00ff00;
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
愚笨摸索很久??以上2分圖原文請版主幫我如圖往右移2支K線(當日開盤開始)謝謝!
將
SHH:IF(SH1<REF(BKH,1),SH1,SH2),color00ff00;
SLL:IF(SL1>REF(BKL,1),SL1,SL2),,color00ff00;
改為
SHH:IF(SH1<REF(BKH,1),SH1,SH2),color00ff00 shift2;
SLL:IF(SL1>REF(BKL,1),SL1,SL2),,color00ff00 shift2;
|
|
向版主報告此篇 |  |
|
2015-06-08 11:06 |
|
|
|  |
 |
santienchang
資深會員
註冊日期: May 2011
來 自: 台中
文章數量: 164 |
引用: 最初由 cgjj 發表
將
SHH:IF(SH1<REF(BKH,1),SH1,SH2),color00ff00;
SLL:IF(SL1>REF(BKL,1),SL1,SL2),,color00ff00;
改為
SHH:IF(SH1<REF(BKH,1),SH1,SH2),color00ff00 shift2;
SLL:IF(SL1>REF(BKL,1),SL1,SL2),,color00ff00 shift2;
可以了謝謝版主.辛苦了
上方數值只顯示SHH與SLL其他不顯示要改哪裡?感恩!
|
|
向版主報告此篇 |  |
|
2015-06-09 01:50 |
|
|
|  |
本站所有內容未經作者授權禁止轉貼節錄, 發表言論僅供參考勿作為投資決策依據。瀏覽本站請使用 IE 5.5 以上版本, 最佳瀏覽解析度 1024 x 768 全彩。
|
Powered by: vBulletin Version 2.3.0 - Copyright©2000-, Jelsoft Enterprises Limited.
簡愛洋行 製作 Copyright 2003-. All Rights Reserved. 聯絡我們
|