到奇狐勝券首頁 奇狐社區論壇 購買奇狐勝券 試用奇狐勝券
 
論壇首頁 你可以在這裡編輯你的資料,查看短訊,訂閱主題和論壇參數等等 免費會員註冊 會員列表 論壇幫助 論壇日曆 論壇搜索 加入我的最愛 登出論壇  
奇狐社區論壇 : Powered by vBulletin version 2.3.0 奇狐社區論壇 > 指標公式 > 問題交流 > 求肋
  上一主題   下一主題
作者
主題 發表新主題    回覆主題
a666666
中級會員

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

求肋

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;

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

向版主報告此篇 | 查IP位址
Old Post 2011-08-31 12:23
a666666 現在離線 點選這裡查看 a666666 的個人資料 點選這裡給 a666666 傳送一條短訊 查找更多關於 a666666 的文章 增加 a666666 至你的好友列表 編輯/刪除訊息 引用回覆
cgjj
總版主

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

回覆: 求肋

引用:
最初由 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;

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



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

向版主報告此篇 | 查IP位址
Old Post 2011-08-31 13:27
cgjj 現在離線 點選這裡查看 cgjj 的個人資料 點選這裡給 cgjj 傳送一條短訊 查找更多關於 cgjj 的文章 增加 cgjj 至你的好友列表 編輯/刪除訊息 引用回覆
a666666
中級會員

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

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;


就是这公式

向版主報告此篇 | 查IP位址
Old Post 2011-08-31 16:47
a666666 現在離線 點選這裡查看 a666666 的個人資料 點選這裡給 a666666 傳送一條短訊 查找更多關於 a666666 的文章 增加 a666666 至你的好友列表 編輯/刪除訊息 引用回覆
cgjj
總版主

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

引用:
最初由 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)
那您還要算什麼 "最高价,收盘价,最低价,开盘价" ??

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

向版主報告此篇 | 查IP位址
Old Post 2011-08-31 18:14
cgjj 現在離線 點選這裡查看 cgjj 的個人資料 點選這裡給 cgjj 傳送一條短訊 查找更多關於 cgjj 的文章 增加 cgjj 至你的好友列表 編輯/刪除訊息 引用回覆
全部時間均為台灣時間, 現在時間為21:11 發表新主題    回覆主題
  上一主題   下一主題
顯示可列印版本 | 訂閱此主題

論壇跳轉:
主題評分:

論壇規定:
你不可以發表新主題
你不可以回覆文章
你不可以上傳附件
你不可以編輯自己的文章
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.  聯絡我們