奇狐社區論壇 - 根據條件依序處理呈現週期數

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

由 tycoon868 在 2025-01-23 12:43 發表:

根據條件依序處理呈現週期數

原碼使用環境: 主圖兩分K 台當月+

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

M1:=MA(C,30),linethick4,precision2;
M2:=MA(C,60),linethick4,precision2;
M3:=MA(C,120),linethick4,precision2;
M4:=MA(C,240),linethick10,precision2;
M5:=MA(C,360),linethick4,precision2;
M6:=MA(C,480),linethick6,precision2;
M7:=MA(C,720),linethick10,precision2;
M8:=MA(C,960),linethick4,precision2;

一:C-M1,linethick0,precision0,colorff00ff;
二:C-M2,linethick0,precision0,color9900ff;
三:C-M3,linethick0,precision0,colorff3300;
四:C-M4,linethick0,precision0,colorcc0000;
五:C-M5,linethick0,precision0,colorff3366;
六:C-M6,linethick0,precision0,colorred;
七:C-M7,linethick0,precision0,color0099ff;
八:C-M8,linethick0,precision0,color0066ff;

StickLine( O<C , HIGH , LOW , 0.2 , 0 ) , Color6600ff ;
StickLine( O<C , CLOSE , OPEN , 8 , 0 ) , Color6600ff;
StickLine( O=C , HIGH , LOW , 0.2 , 0 ) , Coloryellow ;
StickLine( O=C , CLOSE , OPEN , 8 , 0 ) , Coloryellow ;
StickLine( O>C , HIGH , LOW , 0.2 , 0 ) , Colorffcc33 ;
StickLine( O>C , CLOSE , OPEN , 8 , 0 ) , Colorffcc33;

Bullkeep:=一>=0;
Bearkeep:=一<=0;
Bullstart:=Cross(一,0);
Bearstart:=Cross(0,一);
BullB:=Bullstart=1; BullBSP:=barslast(BullB);
BullB:=Sum(Bullkeep=1 ,BullBSP+1)=BullBSP+1;
Bullhold:=barslast(BullB=0);
BearB:=Bearstart=1; BearBSP:=barslast(BearB);
BearB:=Sum(Bearkeep=1 ,BearBSP+1)=BearBSP+1;
Bearhold:=barslast(BearB=0);
一A:=Bullhold-Bearhold,precision0,linethick0;

BullS:=一>30;
BearS:=一<-30;
SS:=if(一A>0,sum(BullS=1,一A),0);
ST:=if(一A<0,sum(BearS=1,-一A),0);
一B:=SS+(-ST);
一CC:=(一B/一A)*100;
一C:=IF(一A>0,一CC,-一CC);

多分:=(一>0)*1+(一>30)*1+(一>60)*1;
空分:=(一<0)*-1+(一<-30)*-1+(一<-60)*-1;
一多:=If(一A>0,多分,0);
一空:=If(一A<0,空分,0);
一D:=一多+一空;

Bullkeep:=二>=30;
Bearkeep:=二<=-30;
Bullstart:=Cross(二,30);
Bearstart:=Cross(-30,二);
BullB:=Bullstart=1; BullBSP:=barslast(BullB);
BullB:=Sum(Bullkeep=1 ,BullBSP+1)=BullBSP+1;
Bullhold:=barslast(BullB=0);
BearB:=Bearstart=1; BearBSP:=barslast(BearB);
BearB:=Sum(Bearkeep=1 ,BearBSP+1)=BearBSP+1;
Bearhold:=barslast(BearB=0);
二A:=Bullhold-Bearhold,precision0,linethick0;

BullS:=二>60;
BearS:=二<-60;
SS:=if(二A>0,sum(BullS=1,二A),0);
ST:=if(二A<0,sum(BearS=1,-二A),0);
二B:=SS+(-ST);
二CC:=(二B/二A)*100;
二C:=IF(一A>0,二CC,-二CC);

多分:=(二>0)*1+(二>30)*1+(二>60)*1+(二>90)*1;
空分:=(二<0)*-1+(二<-30)*-1+(二<-60)*-1+(二<-90)*-1;
二多:=If(二A>0,多分,0);
二空:=If(二A<0,空分,0);
二D:=二多+二空;

Bullkeep:=三>=50;
Bearkeep:=三<=-50;
Bullstart:=Cross(三,50);
Bearstart:=Cross(-50,三);
BullB:=Bullstart=1; BullBSP:=barslast(BullB);
BullB:=Sum(Bullkeep=1 ,BullBSP+1)=BullBSP+1;
Bullhold:=barslast(BullB=0);
BearB:=Bearstart=1; BearBSP:=barslast(BearB);
BearB:=Sum(Bearkeep=1 ,BearBSP+1)=BearBSP+1;
Bearhold:=barslast(BearB=0);
三A:=Bullhold-Bearhold,precision0,linethick0;

BullS:=三>100;
BearS:=三<-100;
SS:=if(三A>0,sum(BullS=1,三A),0);
ST:=if(三A<0,sum(BearS=1,-三A),0);
三B:=SS+(-ST);
三CC:=(三B/三A)*100;
三C:=IF(三A>0,三CC,-三CC);

多分:=(三>30)*1+(三>60)*1+(三>90)*1+(三>120)*1+(三>150)*1;
空分:=(三<-30)*-1+(三<-60)*-1+(三<-90)*-1+(三<-120)*-1+(三<-150)*-1;
三多:=If(三A>0,多分,0);
三空:=If(三A<0,空分,0);
三D:=三多+三空;

Bullkeep:=四>=50;
Bearkeep:=四<=-50;
Bullstart:=Cross(四,50);
Bearstart:=Cross(-50,四);
BullB:=Bullstart=1; BullBSP:=barslast(BullB);
BullB:=Sum(Bullkeep=1 ,BullBSP+1)=BullBSP+1;
Bullhold:=barslast(BullB=0);
BearB:=Bearstart=1; BearBSP:=barslast(BearB);
BearB:=Sum(Bearkeep=1 ,BearBSP+1)=BearBSP+1;
Bearhold:=barslast(BearB=0);
四A:=Bullhold-Bearhold,precision0,linethick0;

BullS:=四>100;
BearS:=四<-100;
SS:=if(四A>0,sum(BullS=1,四A),0);
ST:=if(四A<0,sum(BearS=1,-四A),0);
四B:=SS+(-ST);
四CC:=(四B/四A)*100;
四C:=IF(四A>0,四CC,-四CC);

多分:=(四>30)*1+(四>60)*1+(四>90)*1+(四>120)*1+(四>150)*1;
空分:=(四<-30)*-1+(四<-60)*-1+(四<-90)*-1+(四<-120)*-1+(四<-150)*-1;
四多:=If(四A>0,多分,0);
四空:=If(四A<0,空分,0);
四D:=四多+四空;

Bullkeep:=五>=80;
Bearkeep:=五<=-80;
Bullstart:=Cross(五,80);
Bearstart:=Cross(-80,五);
BullB:=Bullstart=1; BullBSP:=barslast(BullB);
BullB:=Sum(Bullkeep=1 ,BullBSP+1)=BullBSP+1;
Bullhold:=barslast(BullB=0);
BearB:=Bearstart=1; BearBSP:=barslast(BearB);
BearB:=Sum(Bearkeep=1 ,BearBSP+1)=BearBSP+1;
Bearhold:=barslast(BearB=0);
五A:=Bullhold-Bearhold,precision0,linethick0;

BullS:=五>160;
BearS:=五<-160;
SS:=if(五A>0,sum(BullS=1,五A),0);
ST:=if(五A<0,sum(BearS=1,-五A),0);
五B:=SS+(-ST);
五CC:=(五B/五A)*100;
五C:=IF(五A>0,五CC,-五CC);

多分:=(五>80)*1+(五>120)*1+(五>160)*1+(五>200)*1+(五>240)*1;
空分:=(五<-80)*-1+(五<-120)*-1+(五<-160)*-1+(五<-200)*-1+(五<-240)*-1;
五多:=If(五A>0,多分,0);
五空:=If(五A<0,空分,0);
五D:=五多+五空;

Bullkeep:=六>=80;
Bearkeep:=六<=-80;
Bullstart:=Cross(六,80);
Bearstart:=Cross(-80,六);
BullB:=Bullstart=1; BullBSP:=barslast(BullB);
BullB:=Sum(Bullkeep=1 ,BullBSP+1)=BullBSP+1;
Bullhold:=barslast(BullB=0);
BearB:=Bearstart=1; BearBSP:=barslast(BearB);
BearB:=Sum(Bearkeep=1 ,BearBSP+1)=BearBSP+1;
Bearhold:=barslast(BearB=0);
六A:=Bullhold-Bearhold,precision0,linethick0;

BullS:=六>200;
BearS:=六<-200;
SS:=if(六A>0,sum(BullS=1,六A),0);
ST:=if(六A<0,sum(BearS=1,-六A),0);
六B:=SS+(-ST);
六CC:=(六B/六A)*100;
六C:=IF(六A>0,六CC,-六CC);

多分:=(六>80)*1+(六>120)*1+(六>160)*1+(六>220)*1+(六>280)*1;
空分:=(六<-80)*-1+(六<-120)*-1+(六<-160)*-1+(六<-220)*-1+(六<-280)*-1;
六多:=If(六A>0,多分,0);
六空:=If(六A<0,空分,0);
六D:=六多+六空;

Bullkeep:=七>=150;
Bearkeep:=七<=-150;
Bullstart:=Cross(七,150);
Bearstart:=Cross(-150,七);
BullB:=Bullstart=1; BullBSP:=barslast(BullB);
BullB:=Sum(Bullkeep=1 ,BullBSP+1)=BullBSP+1;
Bullhold:=barslast(BullB=0);
BearB:=Bearstart=1; BearBSP:=barslast(BearB);
BearB:=Sum(Bearkeep=1 ,BearBSP+1)=BearBSP+1;
Bearhold:=barslast(BearB=0);
七A:=Bullhold-Bearhold,precision0,linethick0;

BullS:=七>300;
BearS:=七<-300;
SS:=if(七A>0,sum(BullS=1,七A),0);
ST:=if(七A<0,sum(BearS=1,-七A),0);
七B:=SS+(-ST);
七CC:=(七B/七A)*100;
七C:=IF(七A>0,七CC,-七CC);

多分:=(七>150)*1+(七>200)*1+(七>300)*1+(七>400)*1+(七>500)*1;
空分:=(七<-150)*-1+(七<-200)*-1+(七<-300)*-1+(七<-400)*-1+(七<-500)*-1;
七多:=If(七A>0,多分,0);
七空:=If(七A<0,空分,0);
七D:=七多+七空;

Bullkeep:=八>=200;
Bearkeep:=八<=-200;
Bullstart:=Cross(八,200);
Bearstart:=Cross(-200,八);
BullB:=Bullstart=1; BullBSP:=barslast(BullB);
BullB:=Sum(Bullkeep=1 ,BullBSP+1)=BullBSP+1;
Bullhold:=barslast(BullB=0);
BearB:=Bearstart=1; BearBSP:=barslast(BearB);
BearB:=Sum(Bearkeep=1 ,BearBSP+1)=BearBSP+1;
Bearhold:=barslast(BearB=0);
八A:=Bullhold-Bearhold,precision0,linethick0;

BullS:=八>400;
BearS:=八<-400;
SS:=if(八A>0,sum(BullS=1,八A),0);
ST:=if(八A<0,sum(BearS=1,-八A),0);
八B:=SS+(-ST);
八CC:=(八B/八A)*100;
八C:=IF(八A>0,八CC,-八CC);

多分:=(八>400)*1+(八>500)*1+(八>600)*1+(八>700)*1+(八>800)*1;
空分:=(八<-400)*-1+(八<-500)*-1+(八<-600)*-1+(八<-700)*-1+(八<-800)*-1;
八多:=If(八A>0,多分,0);
八空:=If(八A<0,空分,0);
八D:=八多+八空;

***********************************************************************************************原碼結束

總版主新年快樂，盼望可以這兩天得到您的支援，詳列需求如下:

1. 新增一個函數命名為[週期]:= 從一C到八C 依序處理，絕對值數據突破60開始起算週期數，如果一C達到60則開始起算週期數=1，然後二C也接續Cross60 則開始忽略一C，從這個點位開始持續累加週期數，隨著時間進行如果三C也在隨後突破60，則此時完全忽略一C、二C..............依此類推持續跑流程處理四C~八Ｃ

2. 允許一C、二C沒有達標直接跳到三C首次突破60，則從此點位開始起算週期=1(即使三C後來跌落60以下依然持續累計週期數直到出現四C以後的C值出現Cross60，如果四C、五C、六C、七C、八C始終沒有任何一個出現Cross60，則週期數累計直到三C<=0

新增一個函數 [接棒]=: 輸出當下擔綱週期數累計的C數值是哪一個(本例為三C，請輸出 3 )

3. 新增一個函數 [強度]:= 輸出當下 [接棒] 者所對應到的 D值 (本例為三D)

4. 接續第2點: 如果該段行情從一C~六C都[曾經]出現Cross60，則[週期]數應依序持續累計到六C<=0為止，C值正數則週期數為正值，C值負數則週期數為負值

舉例強化說明: 當一段行情持續進行到出現五C達標接續該波[週期]數，同一時間忽略排除一~四C的任何數據，五C來到80之後又跌落60以下(應持續累計週期數)，此時會有三種情況處理方式如下:

a. 六C、七C、八C始終都沒有出現 Cross60，則該週期數累計終點就是五C<=0的那一筆

b. 六C也在五C<=0之前 Cross60，則 [週期]數改由六C接棒持續累計直到六C<=0

c. 五C歸零之後又出現六C或七C或八C Cross60(此時必須忽略)，本波 [週期]數停在五C結束，不再處理六~八C

由 cgjj 在 2025-01-23 23:44 發表:

回覆: 根據條件依序處理呈現週期數

引用:
最初由 tycoon868 發表
原碼使用環境: 主圖兩分K 台當月+

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

M1:=MA(C,30),linethick4,precision2;
M2:=MA(C,60),linethick4,precision2;
M3:=MA(C,120),linethick4,precision2;
M4:=MA(C,240),linethick10,precision2;
M5:=MA(C,360),linethick4,precision2;
M6:=MA(C,480),linethick6,precision2;
M7:=MA(C,720),linethick10,precision2;
M8:=MA(C,960),linethick4,precision2;

一:C-M1,linethick0,precision0,colorff00ff;
二:C-M2,linethick0,precision0,color9900ff;
三:C-M3,linethick0,precision0,colorff3300;
.........略.........

初略看有個地方矛盾!!!
既然 1. 是用 "絕對值" 數據突破60，開始起算週期數
怎麼會有 "2...(略)...週期數累計直到三C<=0" 的這種情況呢?
兩者相互違背

由 tycoon868 在 2025-01-24 06:29 發表:

更正需求如下，請總版主忽略第一次的絕對值謬誤

1. 新增一個函數命名為[週期]:= 從一C到八C 依序處理，數據突破+-60開始起算週期數，如果一C突破60則開始起算週期數=1，然後二C也接續Cross60 則開始忽略一C，從這個點位開始持續累加週期數，隨著時間進行如果三C也在隨後突破60，則此時完全忽略一C、二C..............依此類推持續跑流程處理四C~八Ｃ

2. 允許一C、二C沒有達標直接跳到三C首次突破60，則從此點位開始起算週期=1(即使三C後來跌落0~60以下依然持續累計週期數直到出現四C以後的C值出現Cross60，如果四C、五C、六C、七C、八C始終沒有任何一個出現Cross60，則週期數累計直到三C<=0

以上舉例說明 C值為正數值的處理方式(週期數為正數值)，空方處理方式則相對應反向處理，以上述1、2點舉例而言，如果一C 從 Cross(-60,一C)開始起算週期數=-1..............(中間說明省略) .....................則週期數累計直到三C>=0

新增一個函數 [接棒]=: 輸出當下擔綱週期數累計的C數值是哪一個(本例為三C，請輸出 3 )

3. 新增一個函數 [強度]:= 輸出當下 [接棒] 者所對應到的 D值 (本例為三D)

4. 接續第2點: 如果該段行情從一C~六C都[曾經]出現Cross60，則[週期]數應依序持續累計到六C<=0為止，C值正數則週期數為正值，C值負數則週期數為負值

舉例強化說明: 當一段行情持續進行到出現五C達標接續該波[週期]數，同一時間忽略排除一~四C的任何數據，五C來到80之後又跌落60以下(應持續累計週期數)，此時會有三種情況處理方式如下:

a. 六C、七C、八C始終都沒有出現 Cross60，則該週期數累計終點就是五C<=0的那一筆

b. 六C也在五C<=0之前 Cross60，則 [週期]數改由六C接棒持續累計直到六C<=0

c. 五C歸零之後又出現六C或七C或八C Cross60(此時必須忽略)，本波 [週期]數停在五C結束，不再處理六~八C

由 tycoon868 在 2025-01-25 06:02 發表:

我需要在年假期間完成這部分，懇請總版主協助我，感謝您

由 cgjj 在 2025-01-25 16:13 發表:

引用:
最初由 tycoon868 發表
我需要在年假期間完成這部分，懇請總版主協助我，感謝您

很抱歉!
不一定能配合你的時間~~
(休年假中，上線時間不一定)

c. 五C歸零之後又出現六C或七C或八C Cross60(此時必須忽略)，本波 [週期]數停在五C結束，不再處理六~八C

這部分沒有交代清楚!
1. 歸零是原先週期為正數，續遇到五C值<=0 嗎?
2. 僅有五C這樣處理?
　其他呢？例如:持續進行到出現三C達標，續遇到三C歸零呢!

由 tycoon868 在 2025-01-25 18:35 發表:

總版主辛苦了............我其實是年假前兩天就PO問題了，看到總版主半夜還上線找到我的問題很感謝!

***************************************************c. 五C歸零之後又出現六C或七C或八C Cross60(此時必須忽略)，本波 [週期]數停在五C結束，不再處理六~八C****************

1. 歸零是原先週期為正數，持續到五C值<=0 嗎?

回答: 完全正確

2. 僅有五C這樣處理?
　其他呢？例如:持續進行到出現三C達標，續遇到三C歸零呢!

回答: 三C歸零=本段週期數歸零

這是一種接棒+主導+達標的概念，每一個 C值都是這樣處理的，例如:

一段行情從一C達標Cross60，二C達標到三C達標就此打住不再出現四C以後的C值達標，此段行情的正數週期數就是累計到三C<=0為止，此段行情結束(週期數在此先行歸零)

由 cgjj 在 2025-01-25 20:41 發表:

引用:
最初由 tycoon868 發表
總版主辛苦了............我其實是年假前兩天就PO問題了，看到總版主半夜還上線找到我的問題很感謝!

***************************************************c. 五C歸零之後又出現六C或七C或八C Cross60(此時必須忽略)，本波 [週期]數停在五C結束，不再處理六~八C****************

1. 歸零是原先週期為正數，持續到五C值<=0 嗎?

回答: 完全正確

2. 僅有五C這樣處理?
　其他呢？例如:持續進行到出現三C達標，續遇到三C歸零呢!

回答: 三C歸零=本段週期數歸零

這是一種接棒+主導+達標的概念，每一個 C值都是這樣處理的，例如:

一段行情從一C達標Cross60，二C達標到三C達標就此打住不再出現四C以後的C值達標，此段行情的正數週期數就是累計到三C<=0為止，此段行情結束(週期數在此先行歸零)

不客氣~
對你來說是年假前兩天，但對我們來說是年假前一日(23是最後上班)。

歸零後!!!
什樣的狀態，才又重新開始計數呢?
麻煩請說明清楚

由 tycoon868 在 2025-01-25 20:56 發表:

歸零後!!!
什樣的狀態，才又重新開始計數呢?
麻煩請說明清楚

舉例說明如下:

情況一: 假設本波行情從一C正數週期開始啟動，二C~六C依序達標接棒(七C沒有達標)，則本波週期數歸零為六C<=0 這個點位

此時處理程序再次調回一C，Cross(一C,60) 則開始新的正週期數=1..........再次依序處理二C之後的C值是否接棒延續正數週期

情況二: 假設六C歸零之後，緊接著發生 Cross(-60,一C) 則這是一個週期數=-1 的開始..............

以上兩種情況的[新一波週期數] 都允許一C或二C沒有達標，直接由三C達標啟動新週期數(依此類推)

但唯一的要求是必須從一Ｃ開始依序處理

由 cgjj 在 2025-01-25 21:03 發表:

引用:
最初由 tycoon868 發表
歸零後!!!
什樣的狀態，才又重新開始計數呢?
麻煩請說明清楚

舉例說明如下:

情況一: 假設本波行情從一C正數週期開始啟動，二C~六C依序達標接棒(七C沒有達標)，則本波週期數歸零=六C<=0

此時處理程序再次回歸一C，Cross(一C,60) 則開始新的正週期數=1..........再次重新處理二C之後的C值是否接棒延續正數週期

情況二: 假設六C歸零之後，緊接著發生 Cross(-60,一C) 則這是一個週期數=-1 的開始..............

以上兩種情況的[新一波週期數] 都允許一C或二C沒有達標，直接由三C達標啟動新週期數

但唯一的要求是必須從一Ｃ開始依序處理

按您這規則，如此一來，與前面說的 c. 是相衝突的!

c. 五C歸零之後又出現六C或七C或八C Cross60(此時必須忽略)

後面的一Ｃ到五C 沒Cross60，但六C達Cross60

這仍然也算是依序處理呀~~~
因為您允許低C沒有達標時，直接跳高位的C (亦即前面說的2.)

故邏輯衝突了!!!

由 tycoon868 在 2025-01-25 21:19 發表:

修正第 c.小點的處理方式如下(請忽略原來的邏輯衝突點)

c. 五C接棒週期數(假設為正數) 歸零之前，允許六C~八C Cross60(達標接棒)

但五C所接續的週期數歸零之後，則是重新回到一Ｃ處理流程（詳見 20:56 那一則說明)

我查過行情有發生過一C、二C因為震盪盤沒有達標(行情剛醞釀沒有Cross60)，拉出一根長紅之後直接由三C主導週期=+1，這種情況是低C值沒有達標而由高C值啟動週期數(與上面的五C歸零不一樣哦)

感謝~

由 cgjj 在 2025-01-25 22:43 發表:

引用:
最初由 tycoon868 發表
修正第 c.小點的處理方式如下(請忽略原來的邏輯衝突點)

c. 五C接棒週期數(假設為正數) 歸零之前，允許六C~八C Cross60(達標接棒)

但五C所接續的週期數歸零之後，則是重新回到一Ｃ處理流程（詳見 20:56 那一則說明)

我查過行情有發生過一C、二C因為震盪盤沒有達標(行情剛醞釀沒有Cross60)，拉出一根長紅之後直接由三C主導週期=+1，這種情況是低C值沒有達標而由高C值啟動週期數(與上面的五C歸零不一樣哦)

感謝~

以正週期為例，寫法如下：

原碼: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
    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;

由 tycoon868 在 2025-01-26 09:22 發表:

總版主早安，套入您給的原碼查錯結果如附圖

由 tycoon868 在 2025-01-26 09:25 發表:

圖檔附件

由 tycoon868 在 2025-01-26 09:26 發表:

查錯附圖: 主要關鍵接棒週期需要延續前一棒的週期數

由 cgjj 在 2025-01-26 10:29 發表:

引用:
最初由 tycoon868 發表
查錯附圖: 主要關鍵接棒週期需要延續前一棒的週期數

誤會您意思了

請將這行
Nowi:=i;

改為
if Nowi=0 then Nowi:=i;

由 tycoon868 在 2025-01-26 11:38 發表:

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

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

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

由 tycoon868 在 2025-01-26 11:51 發表:

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

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)...................

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

拜託總版主幫忙修改

由 cgjj 在 2025-01-27 00:39 發表:

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

由 tycoon868 在 2025-01-27 13:22 發表:

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

由 tycoon868 在 2025-01-27 13:25 發表:

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

實在揪甘心!

由 cgjj 在 2025-02-02 14:28 發表:

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

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

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

由 cgjj 在 2025-02-03 11:59 發表:

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

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

由 tycoon868 在 2025-02-03 19:42 發表:

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

感謝哦!

全部時間均為台灣時間, 現在時間為11:39

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