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

註冊日期: May 2004
來  自:
文章數量: 69

[求救] 請教這個指標公式?

請教板主這個排名指標公式錯誤在什麼地方
漲幅顯示不出
錯誤在什麼地方
謝謝

PARTLINE(1,0),COLORBLACK;
N:=datacount-SYSPARAM(1);
BK:=''00水泥工業' ;//'A股板塊';
BKS:=STKCOUNT(BK);//板塊中的證券數量
HSL:STKINDI('','漲幅.zf',0,6),LINETHICK0;//'漲幅.hs';//指標
TT:='漲幅.rq';//日期定位
DD:=date;//
SS:=DATACOUNT;//
variable: DM1[BKS]='',VarX1[BKS]=0,VarH1[BKS]=0
,DM2[BKS]='',VarX2[BKS]=0,VarH2[BKS]=0
,DM3[BKS]='',VarX3[BKS]=0,VarH3[BKS]=0;//
for i=1 to BKS do begin
D:=STRRIGHT(STKFROMBLK(BK,i),6);//板塊中第i個成員的代碼
E:=if(STRFIND(bk,'00水泥工業' ,0),4,6);

DM1[i]:=strright(D,E);
TMP1:=ref(STKINDI(D,'漲幅.zf',0,6),N);//板塊中第i個成員在最後週期前N天的指標值
TMPP1:=ref(STKINDI(D,'漲幅.rq',0,6),N);//板塊中第i個成員在最後週期前N天的日期
tmpPP1:=ref(stkindi('100','漲幅.rq',0,6),N);//在最後週期前N天大盤的日期
VarX1[i]:=IF(tmpPP1[ss]=TMPP1[SS],TMP1[SS],0);
VarH1[i]:=IF(tmpPP1[ss]=TMPP1[SS],TMP1[SS],0);

end;
Va:IF(tmpPP1[ss]=TMPP1[SS],TMP1[SS],0) ,LINETHICK0;
Nu1:=SORTPOS(VarX1,1,1,BKS);
Nu2:=SORTPOS(VarX2,1,1,BKS);
Nu3:=SORTPOS(VarX3,1,1,BKS);
xss:='';
xs:='';
xsss1:='';
xss1:='';
xsss2:='';
xss2:='';
xsss3:='';
xss3:='';
for j=1 to bks do BEGIN
ff:=if(j=2,' 漲幅',' ');
ff1:=' ';
//ff2:=if(j=2,' 昨天',' ');
//ff3:=if(j=2,'前天',' ');
sf:=if(j<10,' ',if(j<100,' ',''))+NUMTOSTR(j,0)+'.';
ssf:=if(j<10,' ',if(j<100,' ',''))+NUMTOSTR(bks-j+1,0)+'.';
xsss1:=xsss1+DM1[VarX1[j]];
aa:=STRLEFT(STKNAMEEX(DM1[VarX1[j]]),8)+'('+DM1[VarX1[j]]+')'+'='
+NUMTOSTR(VarH1[VarX1[j]],3)+'% '+'\n';
XSS1:=XSS1+ff1+ff+sf+aa;
if bks-j<3 then XSS:=ssf+aa+xss;//17
if j<4 then xs:=xs+sf+aa;//19
xsss2:=xsss2+DM2[VarX2[j]];
XSS2:=XSS2+STRLEFT(STKNAMEEX(DM2[VarX2[j]]),8)+'('+DM2[VarX2[j]]+')'+'='
+NUMTOSTR(VarH2[VarX2[j]],3)+'% '+'\n';

xsss3:=xsss3+DM3[VarX3[j]];
XSS3:=XSS3+STRLEFT(STKNAMEEX(DM3[VarX3[j]]),8)+'('+DM3[VarX3[j]]+')'+'='
+NUMTOSTR(VarH3[VarX3[j]],3)+'% '+'\n';
end;
ee:=if(e=4,3,5);

a1:=STRFIND(xsss1,STKLABEL,0);
今天:=tmppp1[datacount],LINETHICK,COLORRED;
今排名:=if(a1>0,(a1+ee)/e,0),COLORRED,LINETHICK;
漲幅a:=VarH1[VarX1[今排名]],COLORRED,LINETHICK;

DRAWTEXT(barpos=SYSPARAM(2),10,xss1);
//DRAWTEXT(barpos=SYSPARAM(2),10,xss2);
//DRAWTEXT(barpos=SYSPARAM(2),10,xss3);
EXPLAIN(1,'今天'+NUMTOSTR(今天,0)+'\n 漲幅排序前3名\n'+xs),COLORRED;
EXPLAIN(1,'\n跌幅排序前3名\n'+xss),COLORBLUE;

最後由 goog119 在 2007-04-14 12:58 編輯 向版主報告此篇 | 查IP位址
Old Post 2007-04-06 17:35
goog119 現在離線 點選這裡查看 goog119 的個人資料 點選這裡給 goog119 傳送一條短訊 查找更多關於 goog119 的文章 增加 goog119 至你的好友列表 編輯/刪除訊息 引用回覆
alpha
資深會員

註冊日期: Oct 2006
來  自:
文章數量: 225

你少寫了子公式 耶 ~~~

'漲幅.zf'
'漲幅.rq'

@@ 有寫??

那 [子公式] 在哪???

最後由 alpha 在 2007-04-06 21:01 編輯 向版主報告此篇 | 查IP位址
Old Post 2007-04-06 18:34
alpha 現在離線 點選這裡查看 alpha 的個人資料 點選這裡給 alpha 傳送一條短訊 查找更多關於 alpha 的文章 增加 alpha 至你的好友列表 編輯/刪除訊息 引用回覆
goog119
中級會員

註冊日期: May 2004
來  自:
文章數量: 69

有寫
圖中HSL:2.88是台泥04/04的漲幅
這數據是有出來
但無法顯示出以排名
謝謝大大的回覆

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

註冊日期: Feb 2004
來  自:
文章數量: 82

水泥類股內並無股票 ! 所以會執行錯誤 .

改成 '00水泥工業' 即可 !

另外

tmpPP1:=ref(stkindi('0000','漲幅.rq',0,6),N);//在最後週期前N天大盤的日期

是否應改成

tmpPP1:=ref(stkindi('100','漲幅.rq',0,6),N);//在最後週期前N天大盤的日期

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

註冊日期: May 2004
來  自:
文章數量: 69

有改
圖中HSL:2.88是台泥04/04的漲幅
這數據是有出來
但漲幅無法顯示出以排名
謝謝大大的回覆

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

論壇跳轉:
主題評分:

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