奇狐社區論壇 總頁數 (2): « 1 [2]
在這個頁面顯示本主題全部的 21 個文章

奇狐社區論壇 (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=4946)


由 kkkkkk 在 2006-04-10 16:24 發表:

真是條條大路通羅馬,謝謝cgjj總版主,且收入教材,捧燈夜讀


由 lin123 在 2006-04-10 18:11 發表:

原碼:--------------------------------------------------------------------------------
h1:=hhv(h,0);
hh:=h1[datacount],linethick0;
bh:barslast(h=hh),linethick0;
ct:0;
m:=c*0;
for i=datacount-bh[datacount] to datacount do begin
ct:=mod(ct+1,200);
if ct=30 then m[i]:=30;
if ct=55 then m[i]:=55;
if ct=120 then m[i]:=120;
if ct=0 then m[i]:=200;
end;
vertline(bh=0),colorred;
vertline(m=200), colorwhite;
drawnumber(m=200,c,200,0),colorwhite,align5;
vertline(m=30),coloryellow;
drawnumber(m=30,c,30,0),coloryellow,align5;
vertline(m=55),colormagenta;
drawnumber(m=55,c,55,0),colormagenta,align5;
vertline(m=120),colormagenta;
drawnumber(m=120,c,120,0),colormagenta,align5;

cgjj 版大,

如何 shift 才能辦到往後再劃一組
試了多次shift , 對不到位子??

謝謝!!


由 kkkkkk 在 2006-04-10 18:54 發表:

i=datacount-bh[datacount]-200
每個畫線再shift200


由 lin123 在 2006-04-10 19:22 發表:

KKKKKK,
THANK YOU!!


由 jiat 在 2006-04-11 20:13 發表:

请问?如果是股票上市以来,并按3 . 5. 8. 13. 21. 34. 55. 89. 144. 233. 377划线,该怎样写.


由 cgjj 在 2006-04-12 08:46 發表:

引用:
最初由 jiat 發表
请问?如果是股票上市以来,并按3 . 5. 8. 13. 21. 34. 55. 89. 144. 233. 377划线,该怎样写.


方法相同
用 m:mod(bh,377),linethick0;
再去判斷 m 值即可


全部時間均為台灣時間, 現在時間為22:24 總頁數 (2): « 1 [2]
在這個頁面顯示本主題全部的 21 個文章


Powered by: vBulletin Version 2.3.0 - Copyright©2000-, Jelsoft Enterprises Limited.

簡愛洋行 製作 Copyright 2003-. All Rights Reserved.