奇狐社區論壇 - [公式]請問奇狐公式問題？[程式範例]

論壇首頁

你可以在這裡編輯你的資料，查看短訊，訂閱主題和論壇參數等等

免費會員註冊

會員列表

論壇幫助

論壇日曆

論壇搜索

加入我的最愛

登出論壇

奇狐社區論壇 : Powered by vBulletin version 2.3.0

奇狐社區論壇 > 指標公式 > 問題交流 > [公式]請問奇狐公式問題？[程式範例]

總頁數 (2): « 1 [2]

上一主題下一主題

作者

主題

發表新主題

回覆主題

Markchu7
資深會員

註冊日期: Nov 2007
來　　自:
文章數量: 1496

感謝奇狐團隊快速周到的優質服務!

向版主報告此篇 |

查IP位址

Old Post

2017-08-08 11:28

Markchu7 現在離線

點選這裡給 Markchu7 傳送一條短訊

查找更多關於 Markchu7 的文章

增加 Markchu7 至你的好友列表

編輯/刪除訊息

引用回覆

cgjj
總版主

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

不客氣^^

向版主報告此篇 |

查IP位址

Old Post

2017-08-08 16:06

cgjj 現在離線

點選這裡給 cgjj 傳送一條短訊

查找更多關於 cgjj 的文章

增加 cgjj 至你的好友列表

編輯/刪除訊息

引用回覆

mead
資深會員

註冊日期: Nov 2004
來　　自: 台北
文章數量: 409

引用:
最初由 cgjj 發表
不客氣^^

請問版主
如果要統計近60根K的成交累計要如何改?

謝謝感恩

向版主報告此篇 |

查IP位址

Old Post

2017-08-09 21:03

mead 現在離線

點選這裡給 mead 傳送一條短訊

查找更多關於 mead 的文章

增加 mead 至你的好友列表

編輯/刪除訊息

引用回覆

cgjj
總版主

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

引用:
最初由 mead 發表
請問版主
如果要統計近60根K的成交累計要如何改?

謝謝感恩

原碼:N:=10; CC:=C; VV:=V; KK:=60;
KL:=datacount-KK+1; KR:=datacount; if KR<KK then exit;
KN:=barpos-KL; KZ:=KR-KL;
PH:=HHV(H,60); PH:=PH[datacount];
PL:=LLV(L,60); PL:=PL[datacount];
PS:=(PH-PL)/10;
VARIABLE:MH[N]=0,MZ[N]=0,ML[N]=0,MP[N]=0;
PS2:=PS/2; VZ:=0; MaxMZ:=0;
for i=1 to N do begin
  MH[i]:=PH-PS*(i-1);
  for k=KL to KR do begin
    if CC[k]<=MH[i] and CC[k]>MH[i]-PS-PS*(i=N) then MZ[i]:=MZ[i]+VV[k];
  end;
  VZ:=VZ+MZ[i]; if MZ[i]>MaxMZ then MaxMZ:=MZ[i];
end;
for i=1 to N do begin
  ML[i]:=MZ[i]/MaxMZ;  MP[i]:=MZ[i]/VZ*100;
end;
DW:=barpos>KL;
FILLRGN(ML[01]>=KN/KZ and DW,MH[01],MH[01]-PS) color555555;
FILLRGN(ML[02]>=KN/KZ and DW,MH[02],MH[02]-PS) color888888;
FILLRGN(ML[03]>=KN/KZ and DW,MH[03],MH[03]-PS) color555555;
FILLRGN(ML[04]>=KN/KZ and DW,MH[04],MH[04]-PS) color888888;
FILLRGN(ML[05]>=KN/KZ and DW,MH[05],MH[05]-PS) color555555;
FILLRGN(ML[06]>=KN/KZ and DW,MH[06],MH[06]-PS) color888888;
FILLRGN(ML[07]>=KN/KZ and DW,MH[07],MH[07]-PS) color555555;
FILLRGN(ML[08]>=KN/KZ and DW,MH[08],MH[08]-PS) color888888;
FILLRGN(ML[09]>=KN/KZ and DW,MH[09],MH[09]-PS) color555555;
FILLRGN(ML[10]>=KN/KZ and DW,MH[10],MH[10]-PS) color888888;
kline(O,H,L,C,0);
RT:=barpos<KL+KZ*0.25;
DRAWTEXT(barpos=KL+floor(KZ*ML[01]) and RT=0,MH[01]-PS2,numtostr(MP[01],2)+'%  ') ALIGN2 pxup8 coloryellow;
DRAWTEXT(barpos=KL+floor(KZ*ML[02]) and RT=0,MH[02]-PS2,numtostr(MP[02],2)+'%  ') ALIGN2 pxup8 coloryellow;
DRAWTEXT(barpos=KL+floor(KZ*ML[03]) and RT=0,MH[03]-PS2,numtostr(MP[03],2)+'%  ') ALIGN2 pxup8 coloryellow;
DRAWTEXT(barpos=KL+floor(KZ*ML[04]) and RT=0,MH[04]-PS2,numtostr(MP[04],2)+'%  ') ALIGN2 pxup8 coloryellow;
DRAWTEXT(barpos=KL+floor(KZ*ML[05]) and RT=0,MH[05]-PS2,numtostr(MP[05],2)+'%  ') ALIGN2 pxup8 coloryellow;
DRAWTEXT(barpos=KL+floor(KZ*ML[06]) and RT=0,MH[06]-PS2,numtostr(MP[06],2)+'%  ') ALIGN2 pxup8 coloryellow;
DRAWTEXT(barpos=KL+floor(KZ*ML[07]) and RT=0,MH[07]-PS2,numtostr(MP[07],2)+'%  ') ALIGN2 pxup8 coloryellow;
DRAWTEXT(barpos=KL+floor(KZ*ML[08]) and RT=0,MH[08]-PS2,numtostr(MP[08],2)+'%  ') ALIGN2 pxup8 coloryellow;
DRAWTEXT(barpos=KL+floor(KZ*ML[09]) and RT=0,MH[09]-PS2,numtostr(MP[09],2)+'%  ') ALIGN2 pxup8 coloryellow;
DRAWTEXT(barpos=KL+floor(KZ*ML[10]) and RT=0,MH[10]-PS2,numtostr(MP[10],2)+'%  ') ALIGN2 pxup8 coloryellow;
DRAWTEXT(barpos=KL+floor(KZ*ML[01]) and RT=1,MH[01]-PS2,'  '+numtostr(MP[01],2)+'%') ALIGN1 pxup8 coloryellow;
DRAWTEXT(barpos=KL+floor(KZ*ML[02]) and RT=1,MH[02]-PS2,'  '+numtostr(MP[02],2)+'%') ALIGN1 pxup8 coloryellow;
DRAWTEXT(barpos=KL+floor(KZ*ML[03]) and RT=1,MH[03]-PS2,'  '+numtostr(MP[03],2)+'%') ALIGN1 pxup8 coloryellow;
DRAWTEXT(barpos=KL+floor(KZ*ML[04]) and RT=1,MH[04]-PS2,'  '+numtostr(MP[04],2)+'%') ALIGN1 pxup8 coloryellow;
DRAWTEXT(barpos=KL+floor(KZ*ML[05]) and RT=1,MH[05]-PS2,'  '+numtostr(MP[05],2)+'%') ALIGN1 pxup8 coloryellow;
DRAWTEXT(barpos=KL+floor(KZ*ML[06]) and RT=1,MH[06]-PS2,'  '+numtostr(MP[06],2)+'%') ALIGN1 pxup8 coloryellow;
DRAWTEXT(barpos=KL+floor(KZ*ML[07]) and RT=1,MH[07]-PS2,'  '+numtostr(MP[07],2)+'%') ALIGN1 pxup8 coloryellow;
DRAWTEXT(barpos=KL+floor(KZ*ML[08]) and RT=1,MH[08]-PS2,'  '+numtostr(MP[08],2)+'%') ALIGN1 pxup8 coloryellow;
DRAWTEXT(barpos=KL+floor(KZ*ML[09]) and RT=1,MH[09]-PS2,'  '+numtostr(MP[09],2)+'%') ALIGN1 pxup8 coloryellow;
DRAWTEXT(barpos=KL+floor(KZ*ML[10]) and RT=1,MH[10]-PS2,'  '+numtostr(MP[10],2)+'%') ALIGN1 pxup8 coloryellow;

向版主報告此篇 |

查IP位址

Old Post

2017-08-10 09:01

cgjj 現在離線

點選這裡給 cgjj 傳送一條短訊

查找更多關於 cgjj 的文章

增加 cgjj 至你的好友列表

編輯/刪除訊息

引用回覆

mead
資深會員

註冊日期: Nov 2004
來　　自: 台北
文章數量: 409

引用:

最初由 cgjj 發表

原碼:N:=10; CC:=C; VV:=V; KK:=60;
KL:=datacount-KK+1; KR:=datacount; if KR<KK then exit;
KN:=barpos-KL; KZ:=KR-KL;
PH:=HHV(H,60); PH:=PH[datacount];
PL:=LLV(L,60); PL:=PL[datacount];
PS:=(PH-PL)/10;
VARIABLE:MH[N]=0,MZ[N]=0,ML[N]=0,MP[N]=0;
PS2:=PS/2; VZ:=0; MaxMZ:=0;
for i=1 to N do begin
  MH[i]:=PH-PS*(i-1);
  for k=KL to KR do begin
    if CC[k]<=MH[i] and CC[k]>MH[i]-PS-PS*(i=N) then MZ[i]:=MZ[i]+VV[k];
  end;
  VZ:=VZ+MZ[i]; if MZ[i]>MaxMZ then MaxMZ:=MZ[i];
end;
for i=1 to N do begin
  ML[i]:=MZ[i]/MaxMZ;  MP[i]:=MZ[i]/VZ*100;
end;
DW:=barpos>KL;
FILLRGN(ML[01]>=KN/KZ and DW,MH[01],MH[01]-PS) color555555;
FILLRGN(ML[02]>=KN/KZ and DW,MH[02],MH[02]-PS) color888888;
FILLRGN(ML[03]>=KN/KZ and DW,MH[03],MH[03]-PS) color555555;
FILLRGN(ML[04]>=KN/KZ and DW,MH[04],MH[04]-PS) color888888;
FILLRGN(ML[05]>=KN/KZ and DW,MH[05],MH[05]-PS) color555555;
FILLRGN(ML[06]>=KN/KZ and DW,MH[06],MH[06]-PS) color888888;
FILLRGN(ML[07]>=KN/KZ and DW,MH[07],MH[07]-PS) color555555;
FILLRGN(ML[08]>=KN/KZ and DW,MH[08],MH[08]-PS) color888888;
FILLRGN(ML[09]>=KN/KZ and DW,MH[09],MH[09]-PS) color555555;
FILLRGN(ML[10]>=KN/KZ and DW,MH[10],MH[10]-PS) color888888;
kline(O,H,L,C,0);
RT:=barpos<KL+KZ*0.25;
DRAWTEXT(barpos=KL+floor(KZ*ML[01]) and RT=0,MH[01]-PS2,numtostr(MP[01],2)+'%  ') ALIGN2 pxup8 coloryellow;
DRAWTEXT(barpos=KL+floor(KZ*ML[02]) and RT=0,MH[02]-PS2,numtostr(MP[02],2)+'%  ') ALIGN2 pxup8 coloryellow;
DRAWTEXT(barpos=KL+floor(KZ*ML[03]) and RT=0,MH[03]-PS2,numtostr(MP[03],2)+'%  ') ALIGN2 pxup8 coloryellow;
DRAWTEXT(barpos=KL+floor(KZ*ML[04]) and RT=0,MH[04]-PS2,numtostr(MP[04],2)+'%  ') ALIGN2 pxup8 coloryellow;
DRAWTEXT(barpos=KL+floor(KZ*ML[05]) and RT=0,MH[05]-PS2,numtostr(MP[05],2)+'%  ') ALIGN2 pxup8 coloryellow;
DRAWTEXT(barpos=KL+floor(KZ*ML[06]) and RT=0,MH[06]-PS2,numtostr(MP[06],2)+'%  ') ALIGN2 pxup8 coloryellow;
DRAWTEXT(barpos=KL+floor(KZ*ML[07]) and RT=0,MH[07]-PS2,numtostr(MP[07],2)+'%  ') ALIGN2 pxup8 coloryellow;
DRAWTEXT(barpos=KL+floor(KZ*ML[08]) and RT=0,MH[08]-PS2,numtostr(MP[08],2)+'%  ') ALIGN2 pxup8 coloryellow;
DRAWTEXT(barpos=KL+floor(KZ*ML[09]) and RT=0,MH[09]-PS2,numtostr(MP[09],2)+'%  ') ALIGN2 pxup8 coloryellow;
DRAWTEXT(barpos=KL+floor(KZ*ML[10]) and RT=0,MH[10]-PS2,numtostr(MP[10],2)+'%  ') ALIGN2 pxup8 coloryellow;
DRAWTEXT(barpos=KL+floor(KZ*ML[01]) and RT=1,MH[01]-PS2,'  '+numtostr(MP[01],2)+'%') ALIGN1 pxup8 coloryellow;
DRAWTEXT(barpos=KL+floor(KZ*ML[02]) and RT=1,MH[02]-PS2,'  '+numtostr(MP[02],2)+'%') ALIGN1 pxup8 coloryellow;
DRAWTEXT(barpos=KL+floor(KZ*ML[03]) and RT=1,MH[03]-PS2,'  '+numtostr(MP[03],2)+'%') ALIGN1 pxup8 coloryellow;
DRAWTEXT(barpos=KL+floor(KZ*ML[04]) and RT=1,MH[04]-PS2,'  '+numtostr(MP[04],2)+'%') ALIGN1 pxup8 coloryellow;
DRAWTEXT(barpos=KL+floor(KZ*ML[05]) and RT=1,MH[05]-PS2,'  '+numtostr(MP[05],2)+'%') ALIGN1 pxup8 coloryellow;
DRAWTEXT(barpos=KL+floor(KZ*ML[06]) and RT=1,MH[06]-PS2,'  '+numtostr(MP[06],2)+'%') ALIGN1 pxup8 coloryellow;
DRAWTEXT(barpos=KL+floor(KZ*ML[07]) and RT=1,MH[07]-PS2,'  '+numtostr(MP[07],2)+'%') ALIGN1 pxup8 coloryellow;
DRAWTEXT(barpos=KL+floor(KZ*ML[08]) and RT=1,MH[08]-PS2,'  '+numtostr(MP[08],2)+'%') ALIGN1 pxup8 coloryellow;
DRAWTEXT(barpos=KL+floor(KZ*ML[09]) and RT=1,MH[09]-PS2,'  '+numtostr(MP[09],2)+'%') ALIGN1 pxup8 coloryellow;
DRAWTEXT(barpos=KL+floor(KZ*ML[10]) and RT=1,MH[10]-PS2,'  '+numtostr(MP[10],2)+'%') ALIGN1 pxup8 coloryellow;

謝謝版主
感恩

向版主報告此篇 |

查IP位址

Old Post

2017-08-10 10:41

mead 現在離線

點選這裡給 mead 傳送一條短訊

查找更多關於 mead 的文章

增加 mead 至你的好友列表

編輯/刪除訊息

引用回覆

Rosetta
資深會員

註冊日期: Sep 2014
來　　自:
文章數量: 117

引用:

最初由 cgjj 發表

原碼:N:=10; CC:=C; VV:=V; KK:=60;
KL:=datacount-KK+1; KR:=datacount; if KR<KK then exit;
KN:=barpos-KL; KZ:=KR-KL;
PH:=HHV(H,60); PH:=PH[datacount];
PL:=LLV(L,60); PL:=PL[datacount];
PS:=(PH-PL)/10;
VARIABLE:MH[N]=0,MZ[N]=0,ML[N]=0,MP[N]=0;
PS2:=PS/2; VZ:=0; MaxMZ:=0;
for i=1 to N do begin
  MH[i]:=PH-PS*(i-1);
  for k=KL to KR do begin
    if CC[k]<=MH[i] and CC[k]>MH[i]-PS-PS*(i=N) then MZ[i]:=MZ[i]+VV[k];
  end;
  VZ:=VZ+MZ[i]; if MZ[i]>MaxMZ then MaxMZ:=MZ[i];
end;
for i=1 to N do begin
  ML[i]:=MZ[i]/MaxMZ;  MP[i]:=MZ[i]/VZ*100;
end;
DW:=barpos>KL;
FILLRGN(ML[01]>=KN/KZ and DW,MH[01],MH[01]-PS) color555555;
FILLRGN(ML[02]>=KN/KZ and DW,MH[02],MH[02]-PS) color888888;
FILLRGN(ML[03]>=KN/KZ and DW,MH[03],MH[03]-PS) color555555;
FILLRGN(ML[04]>=KN/KZ and DW,MH[04],MH[04]-PS) color888888;
FILLRGN(ML[05]>=KN/KZ and DW,MH[05],MH[05]-PS) color555555;
FILLRGN(ML[06]>=KN/KZ and DW,MH[06],MH[06]-PS) color888888;
FILLRGN(ML[07]>=KN/KZ and DW,MH[07],MH[07]-PS) color555555;
FILLRGN(ML[08]>=KN/KZ and DW,MH[08],MH[08]-PS) color888888;
FILLRGN(ML[09]>=KN/KZ and DW,MH[09],MH[09]-PS) color555555;
FILLRGN(ML[10]>=KN/KZ and DW,MH[10],MH[10]-PS) color888888;
kline(O,H,L,C,0);
RT:=barpos<KL+KZ*0.25;
DRAWTEXT(barpos=KL+floor(KZ*ML[01]) and RT=0,MH[01]-PS2,numtostr(MP[01],2)+'%  ') ALIGN2 pxup8 coloryellow;
DRAWTEXT(barpos=KL+floor(KZ*ML[02]) and RT=0,MH[02]-PS2,numtostr(MP[02],2)+'%  ') ALIGN2 pxup8 coloryellow;
DRAWTEXT(barpos=KL+floor(KZ*ML[03]) and RT=0,MH[03]-PS2,numtostr(MP[03],2)+'%  ') ALIGN2 pxup8 coloryellow;
DRAWTEXT(barpos=KL+floor(KZ*ML[04]) and RT=0,MH[04]-PS2,numtostr(MP[04],2)+'%  ') ALIGN2 pxup8 coloryellow;
DRAWTEXT(barpos=KL+floor(KZ*ML[05]) and RT=0,MH[05]-PS2,numtostr(MP[05],2)+'%  ') ALIGN2 pxup8 coloryellow;
DRAWTEXT(barpos=KL+floor(KZ*ML[06]) and RT=0,MH[06]-PS2,numtostr(MP[06],2)+'%  ') ALIGN2 pxup8 coloryellow;
DRAWTEXT(barpos=KL+floor(KZ*ML[07]) and RT=0,MH[07]-PS2,numtostr(MP[07],2)+'%  ') ALIGN2 pxup8 coloryellow;
DRAWTEXT(barpos=KL+floor(KZ*ML[08]) and RT=0,MH[08]-PS2,numtostr(MP[08],2)+'%  ') ALIGN2 pxup8 coloryellow;
DRAWTEXT(barpos=KL+floor(KZ*ML[09]) and RT=0,MH[09]-PS2,numtostr(MP[09],2)+'%  ') ALIGN2 pxup8 coloryellow;
DRAWTEXT(barpos=KL+floor(KZ*ML[10]) and RT=0,MH[10]-PS2,numtostr(MP[10],2)+'%  ') ALIGN2 pxup8 coloryellow;
DRAWTEXT(barpos=KL+floor(KZ*ML[01]) and RT=1,MH[01]-PS2,'  '+numtostr(MP[01],2)+'%') ALIGN1 pxup8 coloryellow;
DRAWTEXT(barpos=KL+floor(KZ*ML[02]) and RT=1,MH[02]-PS2,'  '+numtostr(MP[02],2)+'%') ALIGN1 pxup8 coloryellow;
DRAWTEXT(barpos=KL+floor(KZ*ML[03]) and RT=1,MH[03]-PS2,'  '+numtostr(MP[03],2)+'%') ALIGN1 pxup8 coloryellow;
DRAWTEXT(barpos=KL+floor(KZ*ML[04]) and RT=1,MH[04]-PS2,'  '+numtostr(MP[04],2)+'%') ALIGN1 pxup8 coloryellow;
DRAWTEXT(barpos=KL+floor(KZ*ML[05]) and RT=1,MH[05]-PS2,'  '+numtostr(MP[05],2)+'%') ALIGN1 pxup8 coloryellow;
DRAWTEXT(barpos=KL+floor(KZ*ML[06]) and RT=1,MH[06]-PS2,'  '+numtostr(MP[06],2)+'%') ALIGN1 pxup8 coloryellow;
DRAWTEXT(barpos=KL+floor(KZ*ML[07]) and RT=1,MH[07]-PS2,'  '+numtostr(MP[07],2)+'%') ALIGN1 pxup8 coloryellow;
DRAWTEXT(barpos=KL+floor(KZ*ML[08]) and RT=1,MH[08]-PS2,'  '+numtostr(MP[08],2)+'%') ALIGN1 pxup8 coloryellow;
DRAWTEXT(barpos=KL+floor(KZ*ML[09]) and RT=1,MH[09]-PS2,'  '+numtostr(MP[09],2)+'%') ALIGN1 pxup8 coloryellow;
DRAWTEXT(barpos=KL+floor(KZ*ML[10]) and RT=1,MH[10]-PS2,'  '+numtostr(MP[10],2)+'%') ALIGN1 pxup8 coloryellow;

請問版主，若是以此做條件選股，條件是：今天收盤在百分比最大的那一根之區間內，該如何寫？

向版主報告此篇 |

查IP位址

Old Post

2018-06-06 09:00

Rosetta 現在離線

點選這裡給 Rosetta 傳送一條短訊

查找更多關於 Rosetta 的文章

增加 Rosetta 至你的好友列表

編輯/刪除訊息

引用回覆

cgjj
總版主

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

引用:
最初由 Rosetta 發表
請問版主，若是以此做條件選股，條件是：今天收盤在百分比最大的那一根之區間內，該如何寫？

原碼:N:=10; CC:=C; VV:=V; KK:=60;
KL:=datacount-KK+1; KR:=datacount; if KR<KK then exit;
PH:=HHV(H,60); PH:=PH[datacount];
PL:=LLV(L,60); PL:=PL[datacount];
PS:=(PH-PL)/10;
VARIABLE:MH[N]=0,MZ[N]=0;
PS2:=PS/2; VZ:=0; MaxMZ:=0; MaxNo:=0;
for i=1 to N do begin
  MH[i]:=PH-PS*(i-1);
  for k=KL to KR do begin
    if CC[k]<=MH[i] and CC[k]>MH[i]-PS-PS*(i=N) then MZ[i]:=MZ[i]+VV[k];
  end;
  VZ:=VZ+MZ[i]; 
  if MZ[i]>MaxMZ then begin
    MaxMZ:=MZ[i]; MaxNo:=i;
  end;
end;
C<=MH[MaxNo] and C>=MH[MaxNo]-PS;

向版主報告此篇 |

查IP位址

Old Post

2018-06-06 09:34

cgjj 現在離線

點選這裡給 cgjj 傳送一條短訊

查找更多關於 cgjj 的文章

增加 cgjj 至你的好友列表

編輯/刪除訊息

引用回覆

Rosetta
資深會員

註冊日期: Sep 2014
來　　自:
文章數量: 117

引用:

最初由 cgjj 發表

原碼:N:=10; CC:=C; VV:=V; KK:=60;
KL:=datacount-KK+1; KR:=datacount; if KR<KK then exit;
PH:=HHV(H,60); PH:=PH[datacount];
PL:=LLV(L,60); PL:=PL[datacount];
PS:=(PH-PL)/10;
VARIABLE:MH[N]=0,MZ[N]=0;
PS2:=PS/2; VZ:=0; MaxMZ:=0; MaxNo:=0;
for i=1 to N do begin
  MH[i]:=PH-PS*(i-1);
  for k=KL to KR do begin
    if CC[k]<=MH[i] and CC[k]>MH[i]-PS-PS*(i=N) then MZ[i]:=MZ[i]+VV[k];
  end;
  VZ:=VZ+MZ[i]; 
  if MZ[i]>MaxMZ then begin
    MaxMZ:=MZ[i]; MaxNo:=i;
  end;
end;
C<=MH[MaxNo] and C>=MH[MaxNo]-PS;

感謝版主指導

向版主報告此篇 |

查IP位址

Old Post

2018-06-06 21:56

Rosetta 現在離線

點選這裡給 Rosetta 傳送一條短訊

查找更多關於 Rosetta 的文章

增加 Rosetta 至你的好友列表

編輯/刪除訊息

引用回覆

Rosetta
資深會員

註冊日期: Sep 2014
來　　自:
文章數量: 117

引用:

最初由 cgjj 發表

原碼:N:=10; CC:=C; VV:=V; KK:=60;
KL:=datacount-KK+1; KR:=datacount; if KR<KK then exit;
KN:=barpos-KL; KZ:=KR-KL;
PH:=HHV(H,60); PH:=PH[datacount];
PL:=LLV(L,60); PL:=PL[datacount];
PS:=(PH-PL)/10;
VARIABLE:MH[N]=0,MZ[N]=0,ML[N]=0,MP[N]=0;
PS2:=PS/2; VZ:=0; MaxMZ:=0;
for i=1 to N do begin
  MH[i]:=PH-PS*(i-1);
  for k=KL to KR do begin
    if CC[k]<=MH[i] and CC[k]>MH[i]-PS-PS*(i=N) then MZ[i]:=MZ[i]+VV[k];
  end;
  VZ:=VZ+MZ[i]; if MZ[i]>MaxMZ then MaxMZ:=MZ[i];
end;
for i=1 to N do begin
  ML[i]:=MZ[i]/MaxMZ;  MP[i]:=MZ[i]/VZ*100;
end;
DW:=barpos>KL;
FILLRGN(ML[01]>=KN/KZ and DW,MH[01],MH[01]-PS) color555555;
FILLRGN(ML[02]>=KN/KZ and DW,MH[02],MH[02]-PS) color888888;
FILLRGN(ML[03]>=KN/KZ and DW,MH[03],MH[03]-PS) color555555;
FILLRGN(ML[04]>=KN/KZ and DW,MH[04],MH[04]-PS) color888888;
FILLRGN(ML[05]>=KN/KZ and DW,MH[05],MH[05]-PS) color555555;
FILLRGN(ML[06]>=KN/KZ and DW,MH[06],MH[06]-PS) color888888;
FILLRGN(ML[07]>=KN/KZ and DW,MH[07],MH[07]-PS) color555555;
FILLRGN(ML[08]>=KN/KZ and DW,MH[08],MH[08]-PS) color888888;
FILLRGN(ML[09]>=KN/KZ and DW,MH[09],MH[09]-PS) color555555;
FILLRGN(ML[10]>=KN/KZ and DW,MH[10],MH[10]-PS) color888888;
kline(O,H,L,C,0);
RT:=barpos<KL+KZ*0.25;
DRAWTEXT(barpos=KL+floor(KZ*ML[01]) and RT=0,MH[01]-PS2,numtostr(MP[01],2)+'%  ') ALIGN2 pxup8 coloryellow;
DRAWTEXT(barpos=KL+floor(KZ*ML[02]) and RT=0,MH[02]-PS2,numtostr(MP[02],2)+'%  ') ALIGN2 pxup8 coloryellow;
DRAWTEXT(barpos=KL+floor(KZ*ML[03]) and RT=0,MH[03]-PS2,numtostr(MP[03],2)+'%  ') ALIGN2 pxup8 coloryellow;
DRAWTEXT(barpos=KL+floor(KZ*ML[04]) and RT=0,MH[04]-PS2,numtostr(MP[04],2)+'%  ') ALIGN2 pxup8 coloryellow;
DRAWTEXT(barpos=KL+floor(KZ*ML[05]) and RT=0,MH[05]-PS2,numtostr(MP[05],2)+'%  ') ALIGN2 pxup8 coloryellow;
DRAWTEXT(barpos=KL+floor(KZ*ML[06]) and RT=0,MH[06]-PS2,numtostr(MP[06],2)+'%  ') ALIGN2 pxup8 coloryellow;
DRAWTEXT(barpos=KL+floor(KZ*ML[07]) and RT=0,MH[07]-PS2,numtostr(MP[07],2)+'%  ') ALIGN2 pxup8 coloryellow;
DRAWTEXT(barpos=KL+floor(KZ*ML[08]) and RT=0,MH[08]-PS2,numtostr(MP[08],2)+'%  ') ALIGN2 pxup8 coloryellow;
DRAWTEXT(barpos=KL+floor(KZ*ML[09]) and RT=0,MH[09]-PS2,numtostr(MP[09],2)+'%  ') ALIGN2 pxup8 coloryellow;
DRAWTEXT(barpos=KL+floor(KZ*ML[10]) and RT=0,MH[10]-PS2,numtostr(MP[10],2)+'%  ') ALIGN2 pxup8 coloryellow;
DRAWTEXT(barpos=KL+floor(KZ*ML[01]) and RT=1,MH[01]-PS2,'  '+numtostr(MP[01],2)+'%') ALIGN1 pxup8 coloryellow;
DRAWTEXT(barpos=KL+floor(KZ*ML[02]) and RT=1,MH[02]-PS2,'  '+numtostr(MP[02],2)+'%') ALIGN1 pxup8 coloryellow;
DRAWTEXT(barpos=KL+floor(KZ*ML[03]) and RT=1,MH[03]-PS2,'  '+numtostr(MP[03],2)+'%') ALIGN1 pxup8 coloryellow;
DRAWTEXT(barpos=KL+floor(KZ*ML[04]) and RT=1,MH[04]-PS2,'  '+numtostr(MP[04],2)+'%') ALIGN1 pxup8 coloryellow;
DRAWTEXT(barpos=KL+floor(KZ*ML[05]) and RT=1,MH[05]-PS2,'  '+numtostr(MP[05],2)+'%') ALIGN1 pxup8 coloryellow;
DRAWTEXT(barpos=KL+floor(KZ*ML[06]) and RT=1,MH[06]-PS2,'  '+numtostr(MP[06],2)+'%') ALIGN1 pxup8 coloryellow;
DRAWTEXT(barpos=KL+floor(KZ*ML[07]) and RT=1,MH[07]-PS2,'  '+numtostr(MP[07],2)+'%') ALIGN1 pxup8 coloryellow;
DRAWTEXT(barpos=KL+floor(KZ*ML[08]) and RT=1,MH[08]-PS2,'  '+numtostr(MP[08],2)+'%') ALIGN1 pxup8 coloryellow;
DRAWTEXT(barpos=KL+floor(KZ*ML[09]) and RT=1,MH[09]-PS2,'  '+numtostr(MP[09],2)+'%') ALIGN1 pxup8 coloryellow;
DRAWTEXT(barpos=KL+floor(KZ*ML[10]) and RT=1,MH[10]-PS2,'  '+numtostr(MP[10],2)+'%') ALIGN1 pxup8 coloryellow;

請問版主，有沒有辦法將程式改成自訂某一個時間區段，例如2021/05/13到2021/06/17，謝謝

向版主報告此篇 |

查IP位址

Old Post

2021-07-26 11:41

Rosetta 現在離線

點選這裡給 Rosetta 傳送一條短訊

查找更多關於 Rosetta 的文章

增加 Rosetta 至你的好友列表

編輯/刪除訊息

引用回覆

cgjj
總版主

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

引用:
最初由 Rosetta 發表
請問版主，有沒有辦法將程式改成自訂某一個時間區段，例如2021/05/13到2021/06/17，謝謝

用訓練模式把時間倒退到2021/06/17
再將60調整為相對應的K棒數就可以了

向版主報告此篇 |

查IP位址

Old Post

2021-07-26 11:58

cgjj 現在離線

點選這裡給 cgjj 傳送一條短訊

查找更多關於 cgjj 的文章

增加 cgjj 至你的好友列表

編輯/刪除訊息

引用回覆

全部時間均為台灣時間, 現在時間為16:47

發表新主題

回覆主題

總頁數 (2): « 1 [2]

上一主題下一主題

顯示可列印版本 |

訂閱此主題

論壇跳轉:

主題評分:

論壇規定:

你不可以發表新主題
你不可以回覆文章
你不可以上傳附件
你不可以編輯自己的文章

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. 聯絡我們