奇狐社區論壇

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

由 a666666 在 2011-08-31 12:23 發表:

求肋

由 cgjj 在 2011-08-31 13:27 發表:

回覆: 求肋

引用:
最初由 a666666 發表
yy:=if(DATATYPE=6,weekday,if(DATATYPE=7,DAY,MONTH));
tj:=(yy-ref(yy,1)<>datediff(ref(date,1),date)) or barpos=1;;
if datacount>1 then for i=1 to datacount-1 do tj1[i]:=tj[i+1];
tj1[datacount]:=1;

老师:
请求帮肋用以上方法写出最高价,收盘价,最低价,开盘价,

該段程式是錯誤的, 是無法求出正確結果的
看不出其計算方法與求那四價有那些關連
亂拼湊程式, 會讓你錯的渾然不知

由 a666666 在 2011-08-31 16:47 發表:

yy:=if(DATATYPE=6,weekday,if(DATATYPE=7,DAY,MONTH));
tj:=(yy-ref(yy,1)<>datediff(ref(date,1),date)) or barpos=1;;
if datacount>1 then for i=1 to datacount-1 do tj1[i]:=tj[i+1];
tj1[datacount]:=1;
fc:=c;fh:=h;fl:=l;fo:=o;pos:=0*close;
for i=1 to datacount do begin
if tj[i] then begin
hh:=fh[i]; ll:=fl[i]; oo:=fo[i]; p:=i;
end
else begin
fo[i]:=oo;
hh:=max(hh,fh[i]);
ll:=min(ll,fl[i]);
end;
if tj1[i] then begin
pos[(i+p)/2]:=1;
if i>1 then begin
for j=i downto 1 do begin
fc[j]:=fc[i]; fh[j]:=hh; fl[j]:=ll;
if tj[j] then break;
end;
end;
end;
end;

就是这公式

由 cgjj 在 2011-08-31 18:14 發表:

引用:
最初由 a666666 發表
yy:=if(DATATYPE=6,weekday,if(DATATYPE=7,DAY,MONTH));
tj:=(yy-ref(yy,1)<>datediff(ref(date,1),date)) or barpos=1;;
if datacount>1 then for i=1 to datacount-1 do tj1[i]:=tj[i+1];
tj1[datacount]:=1;
fc:=c;fh:=h;fl:=l;fo:=o;pos:=0*close;
for i=1 to datacount do begin
if tj[i] then begin
hh:=fh[i]; ll:=fl[i]; oo:=fo[i]; p:=i;
end
else begin
fo[i]:=oo;
hh:=max(hh,fh[i]);
ll:=min(ll,fl[i]);
end;
if tj1[i] then begin
pos[(i+p)/2]:=1;
if i>1 then begin
for j=i downto 1 do begin
fc[j]:=fc[i]; fh[j]:=hh; fl[j]:=ll;
if tj[j] then break;
end;
end;
end;
end;

就是这公式

會說 "該段程式是錯誤的"
是其應用在分線, 結果會是錯的 ( 您輸出 tj 值去比對看就知道問題了 )

另外
這公式不是已經有自己另定義的開高低收了嗎? (fo,fc,fh,fl)
那您還要算什麼 "最高价,收盘价,最低价,开盘价" ??

建議您去問此公式的原創者比較洽當

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

在這個頁面顯示本主題全部的 4 個文章