到奇狐勝券首頁 奇狐社區論壇 購買奇狐勝券 試用奇狐勝券
 
論壇首頁 你可以在這裡編輯你的資料，查看短訊，訂閱主題和論壇參數等等 免費會員註冊 會員列表 論壇幫助 論壇日曆 論壇搜索 加入我的最愛 登出論壇  
奇狐社區論壇 : Powered by vBulletin version 2.3.0 奇狐社區論壇 > 指標公式 > 問題交流 > 根據條件依序處理呈現週期數
總頁數 (2): « 1 [2]   上一主題   下一主題
作者
主題 發表新主題    回覆主題
tycoon868
資深會員

註冊日期: Oct 2008
來　　自:
文章數量: 313

謝謝總版主，修改之後成功如我所願!

請教 負數週期就是將 這套 [正週期] 複製貼上，然後修改裏面有關於 負週期的相關條件演算法嗎?

改好之後貼在下方就可以嗎? 迴圈結構都原文照抄哦?

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

註冊日期: Oct 2008
來　　自:
文章數量: 313

****************************************************************************原碼開始

U1:=Cross(一C,60) or barpos=0;//以下總版主提供(20250125
U2:=Cross(二C,60) or barpos=0;
U3:=Cross(三C,60) or barpos=0;
U4:=Cross(四C,60) or barpos=0;
U5:=Cross(五C,60) or barpos=0;
U6:=Cross(六C,60) or barpos=0;
U7:=Cross(七C,60) or barpos=0;
U8:=Cross(八C,60) or barpos=0;
Now:=0; OldNow:=0; Nowi:=0;
接棒:=C*0 linethick;
強度:=接棒 linethick;
週期:=接棒 linethick;
for i=1 to datacount do begin
if U8[i] and Now<8 then Now:=8;
if U7[i] and Now<7 then Now:=7;
if U6[i] and Now<6 then Now:=6;
if U5[i] and Now<5 then Now:=5;
if U4[i] and Now<4 then Now:=4;
if U3[i] and Now<3 then Now:=3;
if U2[i] and Now<2 then Now:=2;
if U1[i] and Now=0 then Now:=1;
if OldNow=Now then begin
if Now=1 then begin if 一C[i]<=0 then Now:=0; end;
if Now=2 then begin if 二C[i]<=0 then Now:=0; end;
if Now=3 then begin if 三C[i]<=0 then Now:=0; end;
if Now=4 then begin if 四C[i]<=0 then Now:=0; end;
if Now=5 then begin if 五C[i]<=0 then Now:=0; end;
if Now=6 then begin if 六C[i]<=0 then Now:=0; end;
if Now=7 then begin if 七C[i]<=0 then Now:=0; end;
if Now=8 then begin if 八C[i]<=0 then Now:=0; end;
if Now=0 then Nowi:=0;
end else begin
if Nowi=0 then Nowi:=i;
end;
接棒[i]:=Now;
if Now=1 then 強度[i]:=一D[i];
if Now=2 then 強度[i]:=二D[i];
if Now=3 then 強度[i]:=三D[i];
if Now=4 then 強度[i]:=四D[i];
if Now=5 then 強度[i]:=五D[i];
if Now=6 then 強度[i]:=六D[i];
if Now=7 then 強度[i]:=七D[i];
if Now=8 then 強度[i]:=八D[i];
if Nowi>0 then 週期[i]:=i-Nowi+1;
OldNow:=Now;
end;//以上總版主提供

U1:=Cross(-60,一C) or barpos=0;//以下自行剪貼複製
U2:=Cross(-60,二C) or barpos=0;
U3:=Cross(-60,三C) or barpos=0;
U4:=Cross(-60,四C) or barpos=0;
U5:=Cross(-60,五C) or barpos=0;
U6:=Cross(-60,六C) or barpos=0;
U7:=Cross(-60,七C) or barpos=0;
U8:=Cross(-60,八C) or barpos=0;
Now:=0; OldNow:=0; Nowi:=0;
接棒:C*0 linethick;
強度:接棒 linethick;
週期:接棒 linethick;
for i=1 to datacount do begin
if U8[i] and Now<8 then Now:=8;
if U7[i] and Now<7 then Now:=7;
if U6[i] and Now<6 then Now:=6;
if U5[i] and Now<5 then Now:=5;
if U4[i] and Now<4 then Now:=4;
if U3[i] and Now<3 then Now:=3;
if U2[i] and Now<2 then Now:=2;
if U1[i] and Now=0 then Now:=1;
if OldNow=Now then begin
if Now=1 then begin if 一C[i]<=0 then Now:=0; end;
if Now=2 then begin if 二C[i]<=0 then Now:=0; end;
if Now=3 then begin if 三C[i]<=0 then Now:=0; end;
if Now=4 then begin if 四C[i]<=0 then Now:=0; end;
if Now=5 then begin if 五C[i]<=0 then Now:=0; end;
if Now=6 then begin if 六C[i]<=0 then Now:=0; end;
if Now=7 then begin if 七C[i]<=0 then Now:=0; end;
if Now=8 then begin if 八C[i]<=0 then Now:=0; end;
if Now=0 then Nowi:=0;
end else begin
if Nowi=0 then Nowi:=i;
end;
接棒[i]:=Now;
if Now=1 then 強度[i]:=一D[i];
if Now=2 then 強度[i]:=二D[i];
if Now=3 then 強度[i]:=三D[i];
if Now=4 then 強度[i]:=四D[i];
if Now=5 then 強度[i]:=五D[i];
if Now=6 then 強度[i]:=六D[i];
if Now=7 then 強度[i]:=七D[i];
if Now=8 then 強度[i]:=八D[i];
if Nowi>0 then 週期[i]:=i-Nowi+1;
OldNow:=Now;
end;
***************************************************************原碼結束

總版主我自己 剪貼下方 負週期失敗...............導致原來的正週期都無法正常呈現(都是0)...................

我奇狐用戶十幾年了，始終都沒有學會 迴圈相關的寫法

拜託總版主幫忙修改

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

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

引用:
最初由 tycoon868 發表
.........略.......

總版主我自己 剪貼下方 負週期失敗...............導致原來的正週期都無法正常呈現(都是0)...................

我奇狐用戶十幾年了，始終都沒有學會 迴圈相關的寫法

拜託總版主幫忙修改 


原碼:
U1:=Cross(一C,60) or barpos=0;
U2:=Cross(二C,60) or barpos=0;
U3:=Cross(三C,60) or barpos=0;
U4:=Cross(四C,60) or barpos=0;
U5:=Cross(五C,60) or barpos=0;
U6:=Cross(六C,60) or barpos=0;
U7:=Cross(七C,60) or barpos=0;
U8:=Cross(八C,60) or barpos=0;
Now:=0; OldNow:=0; Nowi:=0;
正接棒:C*0 linethick;
正強度:正接棒 linethick;
正週期:正接棒 linethick;
for i=1 to datacount do begin
  if U8[i] and Now<8 then Now:=8;
  if U7[i] and Now<7 then Now:=7;
  if U6[i] and Now<6 then Now:=6;
  if U5[i] and Now<5 then Now:=5;
  if U4[i] and Now<4 then Now:=4;
  if U3[i] and Now<3 then Now:=3;
  if U2[i] and Now<2 then Now:=2;
  if U1[i] and Now=0 then Now:=1;
  if OldNow=Now then begin
    if Now=1 then begin if 一C[i]<=0 then Now:=0; end;
    if Now=2 then begin if 二C[i]<=0 then Now:=0; end;
    if Now=3 then begin if 三C[i]<=0 then Now:=0; end;
    if Now=4 then begin if 四C[i]<=0 then Now:=0; end;
    if Now=5 then begin if 五C[i]<=0 then Now:=0; end;
    if Now=6 then begin if 六C[i]<=0 then Now:=0; end;
    if Now=7 then begin if 七C[i]<=0 then Now:=0; end;
    if Now=8 then begin if 八C[i]<=0 then Now:=0; end;
    if Now=0 then Nowi:=0;
  end else begin
    if Nowi=0 then Nowi:=i;
  end;  
  正接棒[i]:=Now;
  if Now=1 then 正強度[i]:=一D[i];
  if Now=2 then 正強度[i]:=二D[i];
  if Now=3 then 正強度[i]:=三D[i];
  if Now=4 then 正強度[i]:=四D[i];
  if Now=5 then 正強度[i]:=五D[i];
  if Now=6 then 正強度[i]:=六D[i];
  if Now=7 then 正強度[i]:=七D[i];
  if Now=8 then 正強度[i]:=八D[i]; 
  if Nowi>0 then 正週期[i]:=i-Nowi+1;
  OldNow:=Now;
end;

D1:=Cross(-60,一C) or barpos=0;
D2:=Cross(-60,二C) or barpos=0;
D3:=Cross(-60,三C) or barpos=0;
D4:=Cross(-60,四C) or barpos=0;
D5:=Cross(-60,五C) or barpos=0;
D6:=Cross(-60,六C) or barpos=0;
D7:=Cross(-60,七C) or barpos=0;
D8:=Cross(-60,八C) or barpos=0;
Now:=0; OldNow:=0; Nowi:=0;
負接棒:C*0 linethick;
負強度:負接棒 linethick;
負週期:負接棒 linethick;
for i=1 to datacount do begin
  if D8[i] and Now<8 then Now:=8;
  if D7[i] and Now<7 then Now:=7;
  if D6[i] and Now<6 then Now:=6;
  if D5[i] and Now<5 then Now:=5;
  if D4[i] and Now<4 then Now:=4;
  if D3[i] and Now<3 then Now:=3;
  if D2[i] and Now<2 then Now:=2;
  if D1[i] and Now=0 then Now:=1;
  if OldNow=Now then begin
    if Now=1 then begin if 一C[i]>=0 then Now:=0; end;
    if Now=2 then begin if 二C[i]>=0 then Now:=0; end;
    if Now=3 then begin if 三C[i]>=0 then Now:=0; end;
    if Now=4 then begin if 四C[i]>=0 then Now:=0; end;
    if Now=5 then begin if 五C[i]>=0 then Now:=0; end;
    if Now=6 then begin if 六C[i]>=0 then Now:=0; end;
    if Now=7 then begin if 七C[i]>=0 then Now:=0; end;
    if Now=8 then begin if 八C[i]>=0 then Now:=0; end;
    if Now=0 then Nowi:=0;
  end else begin
    if Nowi=0 then Nowi:=i;
  end;  
  負接棒[i]:=Now;
  if Now=1 then 負強度[i]:=一D[i];
  if Now=2 then 負強度[i]:=二D[i];
  if Now=3 then 負強度[i]:=三D[i];
  if Now=4 then 負強度[i]:=四D[i];
  if Now=5 then 負強度[i]:=五D[i];
  if Now=6 then 負強度[i]:=六D[i];
  if Now=7 then 負強度[i]:=七D[i];
  if Now=8 then 負強度[i]:=八D[i]; 
  if Nowi>0 then 負週期[i]:=i-Nowi+1;
  OldNow:=Now;
end;

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

註冊日期: Oct 2008
來　　自:
文章數量: 313

套入結果 正負週期 正確無誤，但發現更細膩的除錯項目如下圖附件

tycoon868 附帶上了此圖片:

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

註冊日期: Oct 2008
來　　自:
文章數量: 313

小弟實在不敢再打擾總版主 寶貴年假，這個修正請總版主時間非常從容的時候 再幫我無妨哦!

實在揪甘心!

tycoon868 附帶上了此圖片:

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

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

引用:
最初由 tycoon868 發表
套入結果 正負週期 正確無誤，但發現更細膩的除錯項目如下圖附件
小弟實在不敢再打擾總版主 寶貴年假，這個修正請總版主時間非常從容的時候 再幫我無妨哦!
實在揪甘心!


您提供的條件~~
其特性本來就是正負各自獨立運算!

若要改成：正走完才轉負，負走完才轉正。
那麼K棒起算點若不同，將可能會對後續的結果造成改變!!!
(例如:載入的K棒數不同，或是新數據近來將最舊的數據推掉時)
需等到 正週期=0 且 負週期=0 時，後續的結果才不受K棒起算點影響

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

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

轉向還有另一問題
轉向當下，另一向可能已經有累積周期數了
此時要 "先歸零等待Cross再重新起算" 呢?
還是直接接續 "既有該向已累積周期數" 呢?

處置規則煩請一併思考完整

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

註冊日期: Oct 2008
來　　自:
文章數量: 313

感謝總版主哦! 幫我如此細膩的規劃，我先花個幾天時間查看歷史行情，確切找出需要補強的邏輯條件

感謝哦!

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