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

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

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

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

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

感謝

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

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

回覆: 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 作空
希望的結果,與原先定義相衝突!!!

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

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

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

重新更正原始碼如下:

****************************************
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;

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

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

感謝

tycoon868 附帶上了此圖片:

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

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

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

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

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

感謝總版主哦

套入成功

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

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

另外請教您

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

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

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

我很想要學習,感謝

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

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

引用:
最初由 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根成立

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

論壇跳轉:
主題評分:

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