|
santienchang
資深會員
註冊日期: May 2011
來 自: 台中
文章數量: 164 |
多分大K誇越昨日
//input:N1(20,1,1000);
IF DATACOUNT<N1 then exit;
m1:=MOD(BARPOS,N1);m:=IF(m1=0,N1-1,m1-1);mz:=BACKSET(m=N1-1 or ISLASTBAR,INTPART(m/2)+1);
//VERTLINE(m=0),colorred,POINTDOT;
//VERTLINE(m=N1-1),colorgreen,POINTDOT;
bx:=BARSLAST(m=0);by:=BARSLAST(m=N1-1);
OO:REF(OPEN,bx),linethick0;
Cy:=REF(CLOSE*(by=0),BARSLAST(CLOSE*(by=0)));hhx:=HHV(HIGH,bx+1)*(by=0);llx:=LLV(IF(LOW=0,100000,LOW),bx+1)*(by=0);
cab:=IF(bx=0,CLOSE,0);cba:=IF(by=0,CLOSE,0);CC1:=CLOSE*0;cba1:=IF(by=0,HHX,0);HH1:=CLOSE*0;cba2:=IF(by=0,LLX,0);LL1:=CLOSE*0;
for n=LBOUND(cab) to UBOUND(cab) do begin
IF cab[n]>0 then begin
for z=n+N1-1 to UBOUND(cab) do begin
IF cba[z]>0 then begin
for s=n to z-1 do begin
CC1[s]:=cba[z];
HH1[s]:=cba1[z];
LL1[s]:=cba2[z];
end;
break;
end;
end;
end;
end;
c1:=CLOSE;h3:=HHV(HIGH,m[DATACOUNT]+1);L3:=LLV(IF(LOW=0,1000000,LOW),m[DATACOUNT]+1);
CC:IF(BARPOS>DATACOUNT-m[DATACOUNT]-1,c1[DATACOUNT],IF(m=N1-1,CLOSE,CC1)),linethick0;
HH:IF(BARPOS>DATACOUNT-m[DATACOUNT]-1,h3[DATACOUNT],IF(m=N1-1,REF(HH1,1),HH1)),linethick0;
LL:IF(BARPOS>DATACOUNT-m[DATACOUNT]-1,L3[DATACOUNT],IF(m=N1-1,REF(LL1,1),LL1)),linethick0;
PARTLINE(m>0 and CC>=OO,CC),colorred;
PARTLINE(m>0 and CC<OO,CC),colorcyan;
PARTLINE(m>0 and CC>=OO,OO),colorred;
PARTLINE(m>0 and CC<OO,OO),colorcyan;
STICKLINE((m=N1-1 or ISLASTBAR) and CC>=OO,OO,CC,1,0),colorred;
STICKLINE((m=N1-1 or ISLASTBAR) and CC<OO,OO,CC,1,0),colorcyan;
STICKLINE(m=0 and CC>=OO,OO,CC,1,0),colorred;
STICKLINE(m=0 and CC<OO,OO,CC,1,0),colorcyan;
STICKLINE(mz=1 and REF(mz=1,1)=0 and CC>=OO,HH,CC,1,0),colorred;
STICKLINE(mz=1 and REF(mz=1,1)=0 and CC<OO,HH,OO,1,0),colorcyan;
STICKLINE(mz=1 and REF(mz=1,1)=0 and CC>=OO,OO,LL,1,0),colorred;
STICKLINE(mz=1 and REF(mz=1,1)=0 and CC<OO,CC,LL,1,0),colorcyan;
如何每日以開盤跨越(過去N日)或昨日小K棒數.起始畫大K一直畫到收盤止.最後部整數沒關係...謝謝!
直到收盤.謝謝!
|
|
向版主報告此篇 | |
|
2018-05-14 09:36 |
|
|
| |
|
cgjj
總版主
註冊日期: Oct 2003
來 自:
文章數量: 17615 |
回覆: 多分大K誇越昨日
引用: 最初由 santienchang 發表
//input:N1(20,1,1000);
IF DATACOUNT<N1 then exit;
m1:=MOD(BARPOS,N1);m:=IF(m1=0,N1-1,m1-1);mz:=BACKSET(m=N1-1 or ISLASTBAR,INTPART(m/2)+1);
//VERTLINE(m=0),colorred,POINTDOT;
//VERTLINE(m=N1-1),colorgreen,POINTDOT;
bx:=BARSLAST(m=0);by:=BARSLAST(m=N1-1);
OO:REF(OPEN,bx),linethick0;
Cy:=REF(CLOSE*(by=0),BARSLAST(CLOSE*(by=0)));hhx:=HHV(HIGH,bx+1)*(by=0);llx:=LLV(IF(LOW=0,100000,LOW),bx+1)*(by=0);
cab:=IF(bx=0,CLOSE,0);cba:=IF(by=0,CLOSE,0);CC1:=CLOSE*0;cba1:=IF(by=0,HHX,0);HH1:=CLOSE*0;cba2:=IF(by=0,LLX,0);LL1:=CLOSE*0;
for n=LBOUND(cab) to UBOUND(cab) do begin
IF cab[n]>0 then begin
for z=n+N1-1 to UBOUND(cab) do begin
IF cba[z]>0 then begin
for s=n to z-1 do begin
CC1[s]:=cba[z];
HH1[s]:=cba1[z];
LL1[s]:=cba2[z];
end;
break;
end;
end;
end;
end;
c1:=CLOSE;h3:=HHV(HIGH,m[DATACOUNT]+1);L3:=LLV(IF(LOW=0,1000000,LOW),m[DATACOUNT]+1);
CC:IF(BARPOS>DATACOUNT-m[DATACOUNT]-1,c1[DATACOUNT],IF(m=N1-1,CLOSE,CC1)),linethick0;
HH:IF(BARPOS>DATACOUNT-m[DATACOUNT]-1,h3[DATACOUNT],IF(m=N1-1,REF(HH1,1),HH1)),linethick0;
LL:IF(BARPOS>DATACOUNT-m[DATACOUNT]-1,L3[DATACOUNT],IF(m=N1-1,REF(LL1,1),LL1)),linethick0;
PARTLINE(m>0 and CC>=OO,CC),colorred;
PARTLINE(m>0 and CC<OO,CC),colorcyan;
PARTLINE(m>0 and CC>=OO,OO),colorred;
PARTLINE(m>0 and CC<OO,OO),colorcyan;
STICKLINE((m=N1-1 or ISLASTBAR) and CC>=OO,OO,CC,1,0),colorred;
STICKLINE((m=N1-1 or ISLASTBAR) and CC<OO,OO,CC,1,0),colorcyan;
STICKLINE(m=0 and CC>=OO,OO,CC,1,0),colorred;
STICKLINE(m=0 and CC<OO,OO,CC,1,0),colorcyan;
STICKLINE(mz=1 and REF(mz=1,1)=0 and CC>=OO,HH,CC,1,0),colorred;
STICKLINE(mz=1 and REF(mz=1,1)=0 and CC<OO,HH,OO,1,0),colorcyan;
STICKLINE(mz=1 and REF(mz=1,1)=0 and CC>=OO,OO,LL,1,0),colorred;
STICKLINE(mz=1 and REF(mz=1,1)=0 and CC<OO,CC,LL,1,0),colorcyan;
如何每日以開盤跨越(過去N日)或昨日小K棒數.起始畫大K一直畫到收盤止.最後部整數沒關係...謝謝!
直到收盤.謝謝!
這段公式產生出來的大K,就已經有跨日的現象了
|
|
向版主報告此篇 | |
|
2018-05-14 10:27 |
|
|
| |
|
santienchang
資深會員
註冊日期: May 2011
來 自: 台中
文章數量: 164 |
回覆: 回覆: 多分大K誇越昨日
引用: 最初由 cgjj 發表
這段公式產生出來的大K,就已經有跨日的現象了
可誇日.但大K框小K範圍可以左移或右移調整範圍起始..謝謝
|
|
向版主報告此篇 | |
|
2018-05-14 13:58 |
|
|
| |
|
santienchang
資深會員
註冊日期: May 2011
來 自: 台中
文章數量: 164 |
回覆: 回覆: 回覆: 回覆: 多分大K誇越昨日
引用: 最初由 cgjj 發表
您自己寫的這行:
m1:=MOD(BARPOS,N1);
在這一行中去加減調整即可,它決定分割
m1:=求模運算(數據位置,N1);m:=條件函數(m1=0,N1-1,m1-29);mz:=向前賦值(m=N1-1 or 是否最後週期,取整(m/2)-29);
要往右移29 搞了半天就是移不過?.請幫幫忙
再次謝謝!
|
|
向版主報告此篇 | |
|
2018-05-15 10:40 |
|
|
| |
|
santienchang
資深會員
註冊日期: May 2011
來 自: 台中
文章數量: 164 |
回覆: 回覆: 回覆: 多分大K誇越昨日
引用: 最初由 santienchang 發表
可誇日.但大K框小K範圍可以左移或右移調整範圍起始..謝謝
總版主午安!
增加大K起始位置.:每天開盤逆推昨日(或N日)
第N多分K起始畫大K一直到收盤.?請協助.
拱手謝謝!
|
|
向版主報告此篇 | |
|
2018-06-19 11:07 |
|
|
| |
|
santienchang
資深會員
註冊日期: May 2011
來 自: 台中
文章數量: 164 |
回覆: 回覆: 回覆: 回覆: 回覆: 多分大K誇越昨日
引用: 最初由 cgjj 發表
利用前面的提示,應該可以去實現滿足這需求
m1:=MOD(BARPOS-12,N1);m:=IF
實在愚拙
大K寬距目前是可以左右調整適當位置?但隔天
開盤還是繼續累計?無法依設定每天開盤起始切割?可否協助.謝謝!
|
|
向版主報告此篇 | |
|
2018-06-19 13:43 |
|
|
| |
|
santienchang
資深會員
註冊日期: May 2011
來 自: 台中
文章數量: 164 |
回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 多分大K誇越昨日
引用: 最初由 cgjj 發表
若您的大K有跨日,就不可能按每天開盤起始切割!!!
若您的大K沒跨日,才有可能實現!
在此還是先謝謝您熱心的指導與幫忙!
我試過2KC倒數自由K線.與1KC自由K線都無法
誇越過昨日切割
可否敬請總版主在有空暇時.費心編寫"誇日大
K"受益於廣眾奇狐戶友之福.(拱手)
|
|
向版主報告此篇 | |
|
2018-06-19 22:40 |
|
|
| |
|
cgjj
總版主
註冊日期: Oct 2003
來 自:
文章數量: 17615 |
是 12:51 吧,不是 12:09,範例如下:
DESP:=barslast(Tradedate<>ref(Tradedate,1));
StPos:=datacount-DESP[datacount]-210;
StSp:=barslast(barpos=StPos);
SplitNum:=81;
KSt:=mod(StSp,SplitNum)=0;
KEd:=refx(KSt,1) or barpos=datacount;
KSP:=BARSLAST(KSt);
KO:ref(O,KSP) LINETHICK0 colormagenta;
KH:HHV(H,KSP+1) LINETHICK0 colormagenta;
KH:=SETVAL(KEd,KH,-KSP,KH);
KL:LLV(L,KSP+1) LINETHICK0 colormagenta;
KL:=SETVAL(KEd,KL,-KSP,KL);
KC:SETVAL(KEd,C,-KSP,C) LINETHICK0 colormagenta;
SpD2:=FLOOR(KSp/2);
MV:=SETVAL(KEd,0,-SpD2,barpos-SpD2);
MV:=barpos=MV;
PKM:=KSp>0;
PKMV:=PKM and MV;
PKLV:=KSt and Not(KEd);
PKRV:=PKM and KEd;
PARTLINE(PKM,KO) colorwhite;
PARTLINE(PKM,KC) colorwhite;
STICKLINE(PKMV,KH,MAX(KC,KO),0,0) colorwhite;
STICKLINE(PKMV,KL,MIN(KC,KO),0,0) colorwhite;
STICKLINE(PKLV,KC,KO,0,0) colorwhite;
STICKLINE(PKRV,KC,KO,0,0) colorwhite;
|
|
向版主報告此篇 | |
|
2018-06-21 12:36 |
|
|
| |
本站所有內容未經作者授權禁止轉貼節錄, 發表言論僅供參考勿作為投資決策依據。瀏覽本站請使用 IE 5.5 以上版本, 最佳瀏覽解析度 1024 x 768 全彩。
|
Powered by: vBulletin Version 2.3.0 - Copyright©2000-, Jelsoft Enterprises Limited.
簡愛洋行 製作 Copyright 2003-. All Rights Reserved. 聯絡我們
|