到奇狐勝券首頁 奇狐社區論壇 購買奇狐勝券 試用奇狐勝券
 
論壇首頁 你可以在這裡編輯你的資料，查看短訊，訂閱主題和論壇參數等等 免費會員註冊 會員列表 論壇幫助 論壇日曆 論壇搜索 加入我的最愛 登出論壇  
奇狐社區論壇 : Powered by vBulletin version 2.3.0 奇狐社區論壇 > 指標公式 > 問題交流 > 請可否簡化? [程式範例:價位列表]
總頁數 (2): [1] 2 »   上一主題   下一主題
作者
主題 發表新主題    回覆主題
justdoit829
資深會員

註冊日期: Sep 2005
來　　自:
文章數量: 196
請可否簡化?

文內程式碼用於排序後在主圖顯示成立時間&條件敘述，因還要再追加6個判斷合計10個加入排序，以下述為例，煩請指點，不知可以如何優化簡化呢?

OMINS:=BARSLAST(DATE<>REF(DATE,1))+1;

MA010:=ma(c,10);
MA020:=ma(c,20);
MA060:=ma(c,20);
MA100:=ma(c,100);

T_破MA010:=REF(TIME/100,BARSLAST(COUNT(CROSS(C,MA010),OMINS)=1));
T_破MA020:=REF(TIME/100,BARSLAST(COUNT(CROSS(C,MA020),OMINS)=1));
T_破MA060:=REF(TIME/100,BARSLAST(COUNT(CROSS(C,MA060),OMINS)=1));
T_破MA100:=REF(TIME/100,BARSLAST(COUNT(CROSS(C,MA100),OMINS)=1));

S_破MA010:=IF(BARPOS>=LBOUND(T_破MA010) and LBOUND(T_破MA010),T_破MA010,0);
S_破MA020:=IF(BARPOS>=LBOUND(T_破MA020) and LBOUND(T_破MA020),T_破MA020,0);
S_破MA060:=IF(BARPOS>=LBOUND(T_破MA060) and LBOUND(T_破MA060),T_破MA060,0);
S_破MA100:=IF(BARPOS>=LBOUND(T_破MA100) and LBOUND(T_破MA100),T_破MA100,0);


//開始排序
PNS:=4; //共有4組
NullAry:=C*0;
MT1:=NullAry; MT2:=NullAry; MT3:=NullAry; MT4:=NullAry;//存結果
VARIABLE:TT_T[PNS]=0;
for i=1 to datacount do begin
TT_T[1]:=S_破MA020[i]; TT_T[2]:=S_破MA060[i]; TT_T[3]:=S_破MA010[i]; TT_T[4]:=S_破MA100[i];
x:=SORT(TT_T,1,1,PNS);
MT1[i]:=TT_T[1]; MT2[i]:=TT_T[2]; MT3[i]:=TT_T[3]; MT4[i]:=TT_T[4];
end;

N1_A:=IF(MT4<>0 AND MT4=T_破MA010,'破MA010：'+NUMTOSTR(T_破MA010,0)+'\n','');
N1_B:=IF(MT4<>0 AND MT4=T_破MA020,'破MA020：'+NUMTOSTR(T_破MA020,0)+'\n','');
N1_C:=IF(MT4<>0 AND MT4=T_破MA060,'破MA060：'+NUMTOSTR(T_破MA060,0)+'\n','');
N1_D:=IF(MT4<>0 AND MT4=T_破MA100,'破MA100：'+NUMTOSTR(T_破MA100,0)+'\n','');

N2_A:=IF(MT3<>0 AND N1_A='' AND MT3=T_破MA010,'破MA010：'+NUMTOSTR(T_破MA010,0)+'\n','');
N2_B:=IF(MT3<>0 AND N1_B='' AND MT3=T_破MA020,'破MA020：'+NUMTOSTR(T_破MA020,0)+'\n','');
N2_C:=IF(MT3<>0 AND N1_C='' AND MT3=T_破MA060,'破MA060：'+NUMTOSTR(T_破MA060,0)+'\n','');
N2_D:=IF(MT3<>0 AND N1_D='' AND MT3=T_破MA100,'破MA100：'+NUMTOSTR(T_破MA100,0)+'\n','');

N3_A:=IF(MT2<>0 AND N1_A='' AND N2_A='' AND MT2=T_破MA010,'破MA010：'+NUMTOSTR(T_破MA010,0)+'\n','');
N3_B:=IF(MT2<>0 AND N1_B='' AND N2_B='' AND MT2=T_破MA020,'破MA020：'+NUMTOSTR(T_破MA020,0)+'\n','');
N3_C:=IF(MT2<>0 AND N1_C='' AND N2_C='' AND MT2=T_破MA060,'破MA060：'+NUMTOSTR(T_破MA060,0)+'\n','');
N3_D:=IF(MT2<>0 AND N1_D='' AND N2_D='' AND MT2=T_破MA100,'破MA100：'+NUMTOSTR(T_破MA100,0)+'\n','');

N4_A:=IF(MT1<>0 AND N1_A='' AND N2_A='' AND N3_A='' AND MT1=T_破MA010,'破MA010：'+NUMTOSTR(T_破MA010,0)+'\n','');
N4_B:=IF(MT1<>0 AND N1_B='' AND N2_B='' AND N3_B='' AND MT1=T_破MA020,'破MA020：'+NUMTOSTR(T_破MA020,0)+'\n','');
N4_C:=IF(MT1<>0 AND N1_C='' AND N2_C='' AND N3_C='' AND MT1=T_破MA060,'破MA060：'+NUMTOSTR(T_破MA060,0)+'\n','');
N4_D:=IF(MT1<>0 AND N1_D='' AND N2_D='' AND N3_D='' AND MT1=T_破MA100,'破MA100：'+NUMTOSTR(T_破MA100,0)+'\n','');

NOTE:=STKNAME+'\n'+N1_A+N1_B+N1_C+N1_D+N2_A+N2_B+N2_C+N2_D+N3_A+N3_B+N3_C+N3_D+N4_A+N4_B+N4_C+N4_D;

DRAWTEXT(ISLASTBAR ,0,NOTE),ALIGN4,PXDN40,COLORYELLOW,SHIFT3;

__________________
--
忘我無為無不為..

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

註冊日期: Oct 2003
來　　自:
文章數量: 18117
回覆: 請可否簡化?

引用:
最初由 justdoit829 發表
文內程式碼用於排序後在主圖顯示成立時間&條件敘述，因還要再追加6個判斷合計10個加入排序，以下述為例，煩請指點，不知可以如何優化簡化呢?

OMINS:=BARSLAST(DATE<>REF(DATE,1))+1;

MA010:=ma(c,10);
MA020:=ma(c,20);
MA060:=ma(c,20);
MA100:=ma(c,100);

T_破MA010:=REF(TIME/100,BARSLAST(COUNT(CROSS(C,MA010),OMINS)=1));
T_破MA020:=REF(TIME/100,BARSLAST(COUNT(CROSS(C,MA020),OMINS)=1));
T_破MA060:=REF(TIME/100,BARSLAST(COUNT(CROSS(C,MA060),OMINS)=1));
T_破MA100:=REF(TIME/100,BARSLAST(COUNT(CROSS(C,MA100),OMINS)=1));

S_破MA010:=IF(BARPOS>=LBOUND(T_破MA010) and LBOUND(T_破MA010),T_破MA010,0);
S_破MA020:=IF(BARPOS>=LBOUND(T_破MA020) and LBOUND(T_破MA020),T_破MA020,0);
S_破MA060:=IF(BARPOS>=LBOUND(T_破MA060) and LBOUND(T_破MA060),T_破MA060,0);
S_破MA100:=IF(BARPOS>=LBOUND(T_破MA100) and LBOUND(T_破MA100),T_破MA100,0);


//開始排序
PNS:=4; //共有4組
NullAry:=C*0;
MT1:=NullAry; MT2:=NullAry; MT3:=NullAry; MT4:=NullAry;//存結果
VARIABLE:TT_T[PNS]=0;
for i=1 to datacount do begin
TT_T[1]:=S_破MA020[i]; TT_T[2]:=S_破MA060[i]; TT_T[3]:=S_破MA010[i]; TT_T[4]:=S_破MA100[i];
x:=SORT(TT_T,1,1,PNS);
MT1[i]:=TT_T[1]; MT2[i]:=TT_T[2]; MT3[i]:=TT_T[3]; MT4[i]:=TT_T[4];
end;

N1_A:=IF(MT4<>0 AND MT4=T_破MA010,'破MA010：'+NUMTOSTR(T_破MA010,0)+'\n','');
N1_B:=IF(MT4<>0 AND MT4=T_破MA020,'破MA020：'+NUMTOSTR(T_破MA020,0)+'\n','');
N1_C:=IF(MT4<>0 AND MT4=T_破MA060,'破MA060：'+NUMTOSTR(T_破MA060,0)+'\n','');
N1_D:=IF(MT4<>0 AND MT4=T_破MA100,'破MA100：'+NUMTOSTR(T_破MA100,0)+'\n','');

N2_A:=IF(MT3<>0 AND N1_A='' AND MT3=T_破MA010,'破MA010：'+NUMTOSTR(T_破MA010,0)+'\n','');
N2_B:=IF(MT3<>0 AND N1_B='' AND MT3=T_破MA020,'破MA020：'+NUMTOSTR(T_破MA020,0)+'\n','');
N2_C:=IF(MT3<>0 AND N1_C='' AND MT3=T_破MA060,'破MA060：'+NUMTOSTR(T_破MA060,0)+'\n','');
N2_D:=IF(MT3<>0 AND N1_D='' AND MT3=T_破MA100,'破MA100：'+NUMTOSTR(T_破MA100,0)+'\n','');

N3_A:=IF(MT2<>0 AND N1_A='' AND N2_A='' AND MT2=T_破MA010,'破MA010：'+NUMTOSTR(T_破MA010,0)+'\n','');
N3_B:=IF(MT2<>0 AND N1_B='' AND N2_B='' AND MT2=T_破MA020,'破MA020：'+NUMTOSTR(T_破MA020,0)+'\n','');
N3_C:=IF(MT2<>0 AND N1_C='' AND N2_C='' AND MT2=T_破MA060,'破MA060：'+NUMTOSTR(T_破MA060,0)+'\n','');
N3_D:=IF(MT2<>0 AND N1_D='' AND N2_D='' AND MT2=T_破MA100,'破MA100：'+NUMTOSTR(T_破MA100,0)+'\n','');

N4_A:=IF(MT1<>0 AND N1_A='' AND N2_A='' AND N3_A='' AND MT1=T_破MA010,'破MA010：'+NUMTOSTR(T_破MA010,0)+'\n','');
N4_B:=IF(MT1<>0 AND N1_B='' AND N2_B='' AND N3_B='' AND MT1=T_破MA020,'破MA020：'+NUMTOSTR(T_破MA020,0)+'\n','');
N4_C:=IF(MT1<>0 AND N1_C='' AND N2_C='' AND N3_C='' AND MT1=T_破MA060,'破MA060：'+NUMTOSTR(T_破MA060,0)+'\n','');
N4_D:=IF(MT1<>0 AND N1_D='' AND N2_D='' AND N3_D='' AND MT1=T_破MA100,'破MA100：'+NUMTOSTR(T_破MA100,0)+'\n','');

NOTE:=STKNAME+'\n'+N1_A+N1_B+N1_C+N1_D+N2_A+N2_B+N2_C+N2_D+N3_A+N3_B+N3_C+N3_D+N4_A+N4_B+N4_C+N4_D;

DRAWTEXT(ISLASTBAR ,0,NOTE),ALIGN4,PXDN40,COLORYELLOW,SHIFT3;


以此例來說，如果想得到較優化的寫法
請給原始邏輯規則，改善空間最大
也最清楚您想要的是什麼

程式碼我還未看完，不看完是因為開頭的程式碼就有疑慮!!!
T_破MA010:=REF(TIME/100,BARSLAST(COUNT(CROSS(C,MA010),OMINS)=1));
T_破MA020:=REF(TIME/100,BARSLAST(COUNT(CROSS(C,MA020),OMINS)=1));
T_破MA060:=REF(TIME/100,BARSLAST(COUNT(CROSS(C,MA060),OMINS)=1));
T_破MA100:=REF(TIME/100,BARSLAST(COUNT(CROSS(C,MA100),OMINS)=1));

這四行原意可能是要取得該日上穿或下破均線發生時刻的"時分"
但若該日該條均線沒有發生上穿或下破均線時，它會取到今日以前的"時分"
這部份如果我沒有猜錯的話，程式應該是有誤處理了。
如果開頭如我所言有錯，那個後面的結果就不用看了，肯定也有問題
就更不用談及要簡化它了....
再麻煩您說明白邏輯規則了，沒確定規則前我不簡化

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

註冊日期: Sep 2005
來　　自:
文章數量: 196

若調入數據>1日以上 取到的值可能會非當日.

因個人使用奇狐習慣是連線僅調入1分線數據設301組=取一日數，
也會限制在當日1345後執行該段程式碼
=當日盤中條件有成立才會顯示文字/時間

謝謝總版主提醒，煩請給予協助 勞煩了 謝謝!

__________________
--
忘我無為無不為..

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

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

引用:
最初由 justdoit829 發表
若調入數據>1日以上 取到的值可能會非當日.

因個人使用奇狐習慣是連線僅調入1分線數據設301組=取一日數，
也會限制在當日1345後執行該段程式碼
=當日盤中條件有成立才會顯示文字/時間

謝謝總版主提醒，煩請給予協助 勞煩了 謝謝!


請給原始邏輯規則，優化改善空間較大

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

註冊日期: Sep 2005
來　　自:
文章數量: 196

邏輯/目的是:收盤後，在分線主圖上依發生時間順序
呈現當日盤中首次破分均線的分均名稱與破分均線時的時間。

__________________
--
忘我無為無不為..

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

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

引用:
最初由 justdoit829 發表
邏輯/目的是:收盤後，在分線主圖上依發生時間順序
呈現當日盤中首次破分均線的分均名稱與破分均線時的時間。:)


試試 (不需要調整調入k棒數)
原碼:
DE:=date; CC:=C; hhmm:=FLOOR(time/100);
StNo:=lbound(BARSSINCE(DE=DE[datacount]));
x:=SETLBOUND(CC,StNo);
MA010:=ma(CC,10); P010:=BARSSINCE(cross(CC,MA010));
MA020:=ma(CC,20); P020:=BARSSINCE(cross(CC,MA020));
MA060:=ma(CC,60); P060:=BARSSINCE(cross(CC,MA060));
MA100:=ma(CC,100); P100:=BARSSINCE(cross(CC,MA100));
Note:='';
for i=StNo to datacount do begin
  Adds:=strright('0'+numtostr(hhmm[i],0),4)+'\n';
  if i>=lbound(P010) then begin
    if P010[i]=0 then Note:=Note+'破MA010:'+Adds;
  end;
  if i>=lbound(P020) then begin
    if P020[i]=0 then Note:=Note+'破MA020:'+Adds;
  end;
  if i>=lbound(P060) then begin
    if P060[i]=0 then Note:=Note+'破MA060:'+Adds;
  end;
  if i>=lbound(P100) then begin
    if P100[i]=0 then Note:=Note+'破MA100:'+Adds;
  end;
end;
DRAWTEXTEX(1,0,3,0,Note) coloryellow;

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

註冊日期: Sep 2005
來　　自:
文章數量: 196

真是太讚了!
謝謝總版主

__________________
--
忘我無為無不為..

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

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

引用:
最初由 justdoit829 發表
真是太讚了!
謝謝總版主


不客氣 ^^

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

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

前面程序再簡化

原碼:
DE:=date; CC:=C; hhmm:=FLOOR(time/100);
StNo:=lbound(BARSSINCE(DE=DE[datacount]));
x:=SETLBOUND(CC,StNo);
MA010:=ma(CC,10); P010:=BARSSINCE(cross(CC,MA010))=0 or barpos=0;
MA020:=ma(CC,20); P020:=BARSSINCE(cross(CC,MA020))=0 or barpos=0;
MA060:=ma(CC,60); P060:=BARSSINCE(cross(CC,MA060))=0 or barpos=0;
MA100:=ma(CC,100); P100:=BARSSINCE(cross(CC,MA100))=0 or barpos=0;
Note:='';
for i=StNo to datacount do begin
  Adds:=strright('00'+numtostr(hhmm[i],0),4)+'\n';
  if P010[i]=1 then Note:=Note+'破MA010:'+Adds;
  if P020[i]=1 then Note:=Note+'破MA020:'+Adds;
  if P060[i]=1 then Note:=Note+'破MA060:'+Adds;
  if P100[i]=1 then Note:=Note+'破MA100:'+Adds;
end;
DRAWTEXTEX(1,0,3,0,Note) coloryellow;

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

註冊日期: Sep 2005
來　　自:
文章數量: 196

再次感謝^^

__________________
--
忘我無為無不為..

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

註冊日期: Dec 2004
來　　自: Taipei
文章數量: 1893

假設 DRAWTEXTEX 列出的數據超過100行
請教 如何呈現 在超過50行的時候 換另一個位置依序列出

__________________
至誠能勝天下至偽
至拙能勝天下至巧

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

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

引用:
最初由 peter109 發表
假設 DRAWTEXTEX 列出的數據超過100行
請教 如何呈現 在超過50行的時候 換另一個位置依序列出 


原碼:
Note:='AAAA\nBBBB\nCCCC\nDDDD\nEEEE\nGGGG\nHHHH\nIIII\nJJJJ\nKKKK\nLLLL\nMMMM';
MaxRowNum:=5; //設定最大Row數，超過此值切割顯示
ColMaxNo:=999; //設定Col數處理極限值
VARIABLE: NextColP[ColMaxNo]=0; 
ColNo:=1; NowFindP:=1; OldFindP:=1; FindLineNum:=0;
WHILE 1 do begin
  FindP:=strfind(Note,'\n',NowFindP);
  if FindP=0 then break;
  NowFindP:=FindP+strlen('\n'); FindLineNum:=FindLineNum+1;
  if FindLineNum=MaxRowNum then begin
    FindLineNum:=0; NextColP[ColNo]:=NowFindP; 
    if ColNo=ColMaxNo then break;
    ColNo:=ColNo+1;
  end;
end;
if strmid(Note,NowFindP,0)>'' then begin
  NextColP[ColNo]:=strlen(Note)+1;
end else begin
  ColNo:=ColNo-1;
end;
MSP:=40; //設定每個Col的寬度
if NextColP[1]>0 then DRAWTEXTEX(1,0,3+MSP*0,0,Strmid(Note,1,NextColP[1]-1)) coloryellow;
if NextColP[2]>0 then DRAWTEXTEX(1,0,3+MSP*1,0,Strmid(Note,NextColP[1],NextColP[2]-NextColP[1])) coloryellow;
if NextColP[3]>0 then DRAWTEXTEX(1,0,3+MSP*2,0,Strmid(Note,NextColP[2],NextColP[3]-NextColP[2])) coloryellow;
//依此類推....

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

註冊日期: Dec 2004
來　　自: Taipei
文章數量: 1893

引用:
最初由 cgjj 發表
原碼:
Note:='AAAA\nBBBB\nCCCC\nDDDD\nEEEE\nGGGG\nHHHH\nIIII\nJJJJ\nKKKK\nLLLL\nMMMM';
MaxRowNum:=5; //設定最大Row數，超過此值切割顯示
ColMaxNo:=999; //設定Col數處理極限值
VARIABLE: NextColP[ColMaxNo]=0; 
ColNo:=1; NowFindP:=1; OldFindP:=1; FindLineNum:=0;
WHILE 1 do begin
  FindP:=strfind(Note,'\n',NowFindP);
  if FindP=0 then break;
  NowFindP:=FindP+strlen('\n'); FindLineNum:=FindLineNum+1;
  if FindLineNum=MaxRowNum then begin
    FindLineNum:=0; NextColP[ColNo]:=NowFindP; 
    if ColNo=ColMaxNo then break;
    ColNo:=ColNo+1;
  end;
end;
if strmid(Note,NowFindP,0)>'' then begin
  NextColP[ColNo]:=strlen(Note)+1;
end else begin
  ColNo:=ColNo-1;
end;
MSP:=40; //設定每個Col的寬度
if NextColP[1]>0 then DRAWTEXTEX(1,0,3+MSP*0,0,Strmid(Note,1,NextColP[1]-1)) coloryellow;
if NextColP[2]>0 then DRAWTEXTEX(1,0,3+MSP*1,0,Strmid(Note,NextColP[1],NextColP[2]-NextColP[1])) coloryellow;
if NextColP[3]>0 then DRAWTEXTEX(1,0,3+MSP*2,0,Strmid(Note,NextColP[2],NextColP[3]-NextColP[2])) coloryellow;
//依此類推....

您太強了 感恩 還需花點時間消化

__________________
至誠能勝天下至偽
至拙能勝天下至巧

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

註冊日期: Dec 2004
來　　自: Taipei
文章數量: 1893
SORTPOS

條件A發生後 取對應K棒最低價 經過上述方式處理
請問
如何將上述列出的最低價和CC[DATACOUNT]
做SORTPOS排序處理

__________________
至誠能勝天下至偽
至拙能勝天下至巧

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

註冊日期: Oct 2003
來　　自:
文章數量: 18117
回覆: SORTPOS

引用:
最初由 peter109 發表
條件A發生後 取對應K棒最低價 經過上述方式處理
請問
如何將上述列出的最低價和CC[DATACOUNT]
做SORTPOS排序處理


不是非常清楚了解，建議舉個實例說明，這樣比較精確知道您要算什麼

向版主報告此篇 | 查IP位址
Old Post 2019-01-08 08:43
cgjj 現在離線 點選這裡查看 cgjj 的個人資料 點選這裡給 cgjj 傳送一條短訊 查找更多關於 cgjj 的文章 增加 cgjj 至你的好友列表 編輯/刪除訊息 引用回覆
全部時間均為台灣時間, 現在時間為01:09 發表新主題    回覆主題
總頁數 (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.  聯絡我們