奇狐社區論壇 - [求救]TS碼轉奇狐

奇狐社區論壇 : Powered by vBulletin version 2.3.0

奇狐社區論壇 > 指標公式 > 問題交流 > [求救]TS碼轉奇狐

上一主題下一主題

作者

主題

scshen1981
初級會員

註冊日期: May 2005
來　　自:
文章數量: 4

[求救]TS碼轉奇狐

小弟最近在摸奇狐
之前是用ts
有個指標想轉換成奇狐，
但礙於奇狐似乎無法給定變數初值
一直不知如何下手，希望有人能指點一二
以下附上TS的程式碼

Inputs:
PercentScale(1);
Vars:
RenkoUp(0),
RenkoDn(0);
If CurrentBar = 1 then
Begin
RenkoUp = Close*(1+PercentScale/100);
RenkoDn = Close*(1-PercentScale/100);
End;

If Close > RenkoUp then
Begin
RenkoDn = RenkoDn*(1+PercentScale/100);
RenkoUp = RenkoUp*(1+PercentScale/100);
End
Else If Close < RenkoDn then
Begin
RenkoDn = RenkoDn*(1-PercentScale/100);
RenkoUp = RenkoUp*(1-PercentScale/100);
End;

Plot1(RenkoUp,"Up",Red);
Plot2(RenkoDn,"Dn",Green);

最後由 scshen1981 在 2013-03-06 17:56 編輯

向版主報告此篇 |

2013-03-06 16:26

cgjj
總版主

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

回覆: [求救]TS碼轉奇狐

引用:
最初由 scshen1981 發表
小弟最近在摸奇狐
之前是用ts
有個指標想轉換成奇狐，
但礙於奇狐似乎無法給定變數初值
一直不知如何下手，希望有人能指點一二
以下附上TS的程式碼

Inputs:
PercentScale(1);
Vars:
RenkoUp(0),
RenkoDn(0);
If CurrentBar = 1 then
Begin
RenkoUp = Close*(1+PercentScale/100);
RenkoDn = Close*(1-PercentScale/100);
End;

If Close > RenkoUp then
Begin
RenkoDn = RenkoDn*(1+PercentScale/100);
RenkoUp = RenkoUp*(1+PercentScale/100);
End
Else If Close < RenkoDn then
Begin
RenkoDn = RenkoDn*(1-PercentScale/100);
RenkoUp = RenkoUp*(1-PercentScale/100);
End;

Plot1(RenkoUp,"Up",Red);
Plot2(RenkoDn,"Dn",Green);

奇狐是可以指定變數初值的

各家軟體計算基礎架構和特性不盡相同
為避免誤用請給計算原理, 這樣比較能精確協助
若僅給其他軟體原碼, 恕不協助

向版主報告此篇 |

2013-03-07 08:50

scshen1981
初級會員

註冊日期: May 2005
來　　自:
文章數量: 4

不好意思
請問奇狐設定初值的公式寫法為何呢?
我當初是寫成以下格式
AA := 0
BB := If( Cond1 , Close, Ref(AA,1));

結果當cond1 沒發生時，
AA都變為0了，並非小弟所要的case

小弟希望的運算原理如下所示

1.令該檔股票第一根k棒的收盤價為 RefPrice
上通道 = RefPrice + (1% * RefPrice)
下通道 = RefPrice - (1% * RefPrice)
2. 若 k棒的收盤價向上突破上通道
則上通道變更為原本的上通道 + (1% * 原本的上通道)
下通道變更為原本的下通道 + (1% * 原本的下通道)

3. 若k 棒的收盤價向下突破下通道
則上通道變更為原本的上通道 - (1% * 原本的上通道)
下通道變更為原本的下通道 - (1% * 原本的下通道)

4. 若2 3 都不滿足，上下通道維持前值

最後由 scshen1981 在 2013-03-07 11:35 編輯

向版主報告此篇 |

2013-03-07 11:01

cgjj
總版主

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

引用:
最初由 scshen1981 發表
不好意思
請問奇狐設定初值的公式寫法為何呢?
我當初是寫成以下格式
AA := 0
BB := If( Cond1 , Close, Ref(AA,1));

結果當cond1 沒發生時，
AA都變為0了，並非小弟所要的case

小弟希望的運算原理如下所示

1.令該檔股票第一根k棒的收盤價為 RefPrice
上通道 = RefPrice + (1% * RefPrice)
下通道 = RefPrice - (1% * RefPrice)
2. 若 k棒的收盤價向上突破上通道
則上通道變更為原本的上通道 + (1% * 原本的上通道)
下通道變更為原本的下通道 + (1% * 原本的下通道)

3. 若k 棒的收盤價向下突破下通道
則上通道變更為原本的上通道 - (1% * 原本的上通道)
下通道變更為原本的下通道 - (1% * 原本的下通道)

4. 若2 3 都不滿足，上下通道維持前值

看看是否為您要的

原碼:


CC:=Close;

上通道:CC*0 colorred;

下通道:下通道 colorgreen;

上通道[1]:=CC[1]*1.01;

下通道[1]:=CC[1]*0.99;

for i=2 to datacount do begin

  if CC[i]>上通道[i-1] then begin

    上通道[i]:=上通道[i-1]*1.01;

    下通道[i]:=下通道[i-1]*1.01;

  end else if CC[i]<下通道[i-1] then begin

    上通道[i]:=上通道[i-1]*0.99;

    下通道[i]:=下通道[i-1]*0.99;

  end else begin

    上通道[i]:=上通道[i-1];

    下通道[i]:=下通道[i-1];

  end;

end;

向版主報告此篇 |

2013-03-07 17:28

cgjj
總版主

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

前面程式可簡化為

原碼:


CC:=Close;

上通道:CC*0 colorred;

下通道:下通道 colorgreen;

上通道[1]:=CC[1]*1.01;

下通道[1]:=CC[1]*0.99;

for i=2 to datacount do begin

  SS:=1+((CC[i]>上通道[i-1])-(CC[i]<下通道[i-1]))*0.01;

  上通道[i]:=上通道[i-1]*SS;

  下通道[i]:=下通道[i-1]*SS;

end;

向版主報告此篇 |

2013-03-07 17:29

全部時間均為台灣時間, 現在時間為18:35

上一主題下一主題

顯示可列印版本 |

訂閱此主題

論壇跳轉:

主題評分:

論壇規定:

你不可以發表新主題
你不可以回覆文章
你不可以上傳附件
你不可以編輯自己的文章

HTML語法禁止
vB 語法核准
表情符號核准
貼圖語法[IMG]核准

本站所有內容未經作者授權禁止轉貼節錄, 發表言論僅供參考勿作為投資決策依據。瀏覽本站請使用 IE 5.5 以上版本, 最佳瀏覽解析度 1024 x 768 全彩。