奇狐社區論壇 - Barslast 的使用技巧

奇狐社區論壇 (http://www.chiefox.com.tw/bbs/index.php)
- 問題交流 (http://www.chiefox.com.tw/bbs/forumdisplay.php?forumid=28)
-- Barslast 的使用技巧 (http://www.chiefox.com.tw/bbs/showthread.php?threadid=22485)

由 tycoon868 在 2020-05-16 20:57 發表:

Barslast 的使用技巧

懇請總版主協助以下:
副圖原始碼: 請套入個股範例 5522 遠雄
***********************************
M1:=EMA(C,15),linethick2,colorgreen,precision2;

Bias:=((C-M1)/C)*3000,precision1;

EBias:=EMA(Bias,10),linethick0;

作多↗:StickLine(Bias>=0,0,Bias,7,0),Colorff00ff;
乖離率:Bias,linethick0,coloryellow,precision1;
作空↘:StickLine(Bias<=0,0,Bias,7,0),Colorffff00;

Diff:Bias-EBias,linethick0,colorgreen;

Partline(Diff>0,EBias),color0099ff,LINETHICK4;
PARTLINE(Diff<0,EBias),colorccff33,LINETHICK4;

**************************************
希望達到以下結果:
1. 20200327 乖離率突破60 開始起算作多= 1

2. 隔天20200330 雖然乖離率跌破60，但只要Diff >0，則繼續累加為作多=2

3. 自3/27起只要Diff始終>0則持續性累計作多

4. 本例應為 4/16 作多=13，4/17 作多=0

$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$

請求總版主協助上列原始碼之修改

感謝

由 cgjj 在 2020-05-18 08:50 發表:

回覆: Barslast 的使用技巧

引用:
最初由 tycoon868 發表
懇請總版主協助以下:
副圖原始碼: 請套入個股範例 5522 遠雄
***********************************
M1:=EMA(C,15),linethick2,colorgreen,precision2;

Bias:=((C-M1)/C)*3000,precision1;

EBias:=EMA(Bias,10),linethick0;

作多↗:StickLine(Bias>=0,0,Bias,7,0),Colorff00ff;
乖離率:Bias,linethick0,coloryellow,precision1;
作空↘:StickLine(Bias<=0,0,Bias,7,0),Colorffff00;

Diff:Bias-EBias,linethick0,colorgreen;

Partline(Diff>0,EBias),color0099ff,LINETHICK4;
PARTLINE(Diff<0,EBias),colorccff33,LINETHICK4;

**************************************
希望達到以下結果:
1. 20200327 乖離率突破60 開始起算作多= 1

2. 隔天20200330 雖然乖離率跌破60，但只要Diff >0，則繼續累加為作多=2

3. 自3/27起只要Diff始終>0則持續性累計作多

4. 本例應為 4/16 作多=13，4/17 作多=0

$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$

請求總版主協助上列原始碼之修改

感謝

StickLine 是畫線函數，它不會輸出數值，不應被帶入變數之中

您原先定義 Bias>=0 作多，Bias<=0 作空
希望的結果，與原先定義相衝突!!!

請完整定義明確 "作多" 與 "作空" 之判定規則。
不能以 "希望的結果" 來去期待程式去符合。
規則才是重點!!!
有明確的規則才能用程式去實現~~

由 tycoon868 在 2020-05-19 08:03 發表:

重新更正原始碼如下:

****************************************
M1:=EMA(C,15),linethick2,colorgreen,precision2;
Bias:=((C-M1)/C)*3000,precision1;
EBias:=EMA(Bias,10),linethick0;
Diff:Bias-EBias,linethick0,colorgreen;

Bullish:=Bias>0;
Bearish:=Bias<0;

BullMC:=ref(Bullish,1)=0 and Bullish=1;
BearMC:=ref(Bearish,1)=0 and Bearish=1;

BullAB:=IF(Bullish=1,Barslast(BullMC)+1,0);
BearAB:=IF(Bearish=1,Barslast(BearMC)+1,0);

轉折:IF(Bullish=1 ,BullAB,-BearAB),coloryellow,precision0,linethick0;

Bullhold:=Bias>60 and Diff>0;
Bearhold:=Bias<-60 and Diff<0;

BullMC:=ref(Bullhold,1)=0 and Bullhold=1;
BearMC:=ref(Bearhold,1)=0 and Bearhold=1;

BullAB:=IF(Bullhold=1,Barslast(BullMC)+1,0);
BearAB:=IF(Bearhold=1,Barslast(BearMC)+1,0);

持有:BullAB+(-BearAB),color6600ff,precision0,linethick0;

作多↗:StickLine(Bias>=0,0,Bias,7,0),Colorff00ff;
乖離率:Bias,linethick0,coloryellow,precision1;
作空↘:StickLine(Bias<=0,0,Bias,7,0),Colorffff00;

Partline(Diff>0,EBias),color0099ff,LINETHICK4;
PARTLINE(Diff<0,EBias),colorccff33,LINETHICK4;

****************************************
希望修改之需求詳見附圖上的文字說明

重點在我的 <持有>需要優化，目前能力不足

感謝

由 cgjj 在 2020-05-19 09:39 發表:

引用:
最初由 tycoon868 發表
重新更正原始碼如下:

****************************************
M1:=EMA(C,15),linethick2,colorgreen,precision2;
Bias:=((C-M1)/C)*3000,precision1;
EBias:=EMA(Bias,10),linethick0;
Diff:Bias-EBias,linethick0,colorgreen;

Bullish:=Bias>0;
Bearish:=Bias<0;

BullMC:=ref(Bullish,1)=0 and Bullish=1;
BearMC:=ref(Bearish,1)=0 and Bearish=1;

BullAB:=IF(Bullish=1,Barslast(BullMC)+1,0);
BearAB:=IF(Bearish=1,Barslast(BearMC)+1,0);

轉折:IF(Bullish=1 ,BullAB,-BearAB),coloryellow,precision0,linethick0;

Bullhold:=Bias>60 and Diff>0;
Bearhold:=Bias<-60 and Diff<0;

BullMC:=ref(Bullhold,1)=0 and Bullhold=1;
BearMC:=ref(Bearhold,1)=0 and Bearhold=1;

BullAB:=IF(Bullhold=1,Barslast(BullMC)+1,0);
BearAB:=IF(Bearhold=1,Barslast(BearMC)+1,0);

持有:BullAB+(-BearAB),color6600ff,precision0,linethick0;

作多↗:StickLine(Bias>=0,0,Bias,7,0),Colorff00ff;
乖離率:Bias,linethick0,coloryellow,precision1;
作空↘:StickLine(Bias<=0,0,Bias,7,0),Colorffff00;

Partline(Diff>0,EBias),color0099ff,LINETHICK4;
PARTLINE(Diff<0,EBias),colorccff33,LINETHICK4;

****************************************
希望修改之需求詳見附圖上的文字說明

重點在我的 <持有>需要優化，目前能力不足

感謝

原碼:M1:=EMA(C,15),linethick2,colorgreen,precision2;
Bias:=((C-M1)/C)*3000,precision1;
EBias:=EMA(Bias,10),linethick0;
Diff:Bias-EBias,linethick0,colorgreen;

Bullish:=Bias>0;
Bearish:=Bias<0;

BullMC:=ref(Bullish,1)=0 and Bullish=1;
BearMC:=ref(Bearish,1)=0 and Bearish=1;

BullAB:=IF(Bullish=1,Barslast(BullMC)+1,0);
BearAB:=IF(Bearish=1,Barslast(BearMC)+1,0);

轉折:IF(Bullish=1 ,BullAB,-BearAB),coloryellow,precision0,linethick0;

BullB:=Bias>60 and Diff>0; BullBSP:=barslast(BullB);
BullB:=Sum(Diff>0,BullBSP+1)=BullBSP+1;
Bullhold:=barslast(BullB=0);
BearS:=Bias<-60 and Diff<0; BearSSP:=barslast(BearS);
BearS:=Sum(Diff<0,BearSSP+1)=BearSSP+1;
Bearhold:=barslast(BearS=0);
持有:Bullhold-Bearhold,color6600ff,precision0,linethick0;

StickLine(Bias>=0,0,Bias,7,0),Colorff00ff;
乖離率:Bias,linethick0,coloryellow,precision1;
StickLine(Bias<=0,0,Bias,7,0),Colorffff00;

Partline(Diff>0,EBias),color0099ff,LINETHICK4;
PARTLINE(Diff<0,EBias),colorccff33,LINETHICK4;

由 tycoon868 在 2020-05-20 07:45 發表:

感謝總版主哦

套入成功

由 tycoon868 在 2020-05-20 07:47 發表:

另外請教您

BullB:=Sum(Diff>0,BullBSP+1)=BullBSP+1;

後面的 = 號這樣的寫法，我無法完全理解

可以用中文解釋這一段的意義嗎?

我很想要學習，感謝

由 cgjj 在 2020-05-20 08:38 發表:

引用:
最初由 tycoon868 發表
另外請教您

BullB:=Sum(Diff>0,BullBSP+1)=BullBSP+1;

後面的 = 號這樣的寫法，我無法完全理解

可以用中文解釋這一段的意義嗎?

我很想要學習，感謝

假設：
A 為 Diff>0 這式子之運算結果，成立為1，不成立為0
N 為 BullBSP+1

Sum(A, N) 就是將近期N根的A值加總起來

Sum(A, N)=N 代表加總的值等於N
也就是 Diff>0 這條件，連續N根成立

全部時間均為台灣時間, 現在時間為00:46

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