COCO研究院

 找回密碼
 註冊
搜索
查看: 8640|回復: 14

[範例程式碼] 改寫 ilPir大大分享的(指標)LLS 突破與振盪 for AmiBroker

[複製鏈接]
發表於 10-9-9 23:23 | 顯示全部樓層 |閱讀模式
小弟剛入AmiBroker 找個題目練習 並分享...

原文在TradeStation討論區 由ilPir大大發表,

用法ilPir大大已分享很完整 請參考原討論串

http://coco-in.net/viewthread.php?tid=3993&extra=page%3D1

LSS.JPG


圖型解說:
   上圖有2條細線 用來判斷往上往下突破之用..
   圖最底下有2條顏色bar 這是LSS 振盪(LSS Oscillato) 我已將高於70用紅色表示看漲
   低於30用綠色表示看跌 介於70~30用灰色表示盤整

最下面的改變 是忠於原著 用日線為數據計算(計算方式跟ilPir大大一樣)未用平滑處理
上面一點的顏色bar是採當下使用的週期的資料做計算產生的結果

下面為公式

  1. _SECTION_BEGIN("Price");_N(Title = StrFormat("{{NAME}} - {{INTERVAL}} {{DATE}} Open %g, Hi %g, Lo %g, Close %g (%.1f%%) {{VALUES}}", O, H, L, C, SelectedValue( ROC( C, 1 ) ) ));Plot( C, "Close", ParamColor("Color", colorBlack ), styleNoTitle | ParamStyle("Style") | GetPriceStyle() ); _SECTION_END();
  2. nPrevC1=TimeFrameGetPrice( "C", inDaily, -1);nPrevC5=TimeFrameGetPrice( "C", inDaily, -5);nPrevH1=TimeFrameGetPrice( "H", inDaily, -1);nPrevH2=TimeFrameGetPrice( "H", inDaily, -2);nPrevH3=TimeFrameGetPrice( "H", inDaily, -3);nPrevH4=TimeFrameGetPrice( "H", inDaily, -4);nPrevH5=TimeFrameGetPrice( "H", inDaily, -5);nPrevL1=TimeFrameGetPrice( "l", inDaily, -1);nPrevL2=TimeFrameGetPrice( "l", inDaily, -2);nPrevL3=TimeFrameGetPrice( "l", inDaily, -3);nPrevL4=TimeFrameGetPrice( "l", inDaily, -4);nPrevL5=TimeFrameGetPrice( "l", inDaily, -5);nPrevO1=TimeFrameGetPrice( "O", inDaily, -1);
  3. //Hypothetical 5-Day PeriodFiv-DaynX= (nPrevH1 + nPrevL1 + nPrevC1)/3;
  4. nUp = nPrevL1 + (( nPrevH1-nPrevL2)+( nPrevH2-nPrevL3)+( nPrevH3-nPrevL4))/3 ;nBuyH = nPrevH1 + (( nPrevH1-nPrevH2)+( nPrevH2-nPrevH3)+( nPrevH3-nPrevH4))/3 ;nLLSUp = 2 * nX - nPrevL1 ;nRR = (nUp + nBuyH + nPrevH1  + nLLSUp) / 4 ;
  5. nDn = nPrevH1 + (( nPrevH2-nPrevL1)+( nPrevH3-nPrevL2)+( nPrevH4-nPrevL3))/3 ;nBuyL = nPrevL1 - (( nPrevL2-nPrevL1)+( nPrevL3-nPrevL2)+( nPrevL4-nPrevL3))/3 ;nLLSDn = 2 * nX - nPrevH1 ;nSS = (nDn + nBuyL + nPrevL1  + nLLSDn) / 4 ;Plot( nRR, "RR", colorDarkRed, styleNoTitle );Plot( nSS, "SS", colorDarkGreen, styleNoTitle );
  6. // LSS Oscillator
  7. nMax1D=Max(nPrevH1,nPrevH2);nMax2D=Max(nPrevH3,nPrevH4);nMax3D=Max(nMax1D,nMax2D);nMaxD=Max(nMax3D,nPrevH5);
  8. nMin1D=Max(nPrevL1,nPrevL2);nMin2D=Max(nPrevL3,nPrevL4);nMin3D=Max(nMin1D,nMin2D);nMinD=Max(nMin3D,nPrevL5);
  9. nXXD = nMaxD - nPrevC5;nYYD = C - nMinD;nOscD =(nXXD+nYYD)/((nMaxD-nMinD)*2)*100;

  10. nMax1=Max(H,Ref(H,-1));nMax2=Max(Ref(H,-2),Ref(H,-3));nMax3=Max(nMax1,nMax2);nMax=Max(nMax3,Ref(H,-4));
  11. nMin1=Max(L,Ref(L,-1));nMin2=Max(Ref(L,-2),Ref(L,-3));nMin3=Max(nMin1,nMin2);nMin=Max(nMin3,Ref(L,-4));
  12. nXX = nMax - Ref(C,-4);nYY = C - nMin;nOsc =(nXX+nYY)/((nMax-nMin)*2)*100;
  13. Plot( 1, "", IIf(nOscD>70,colorDarkRed, IIf(nOscD<30, colorDarkGreen, colorLightGrey)), styleOwnScale|styleArea|styleNoLabel, -0.1, 100 );Plot( 1, "", IIf(nOsc>70,colorDarkRed, IIf(nOsc<30, colorDarkGreen, colorLightGrey)), styleOwnScale|styleArea|styleNoLabel, -0.1, 50 );
複製代碼
 樓主| 發表於 10-9-9 23:27 | 顯示全部樓層
@@| CODE排列好怪 傳的時候都有分行 進去裡面變沒有
 樓主| 發表於 10-9-9 23:29 | 顯示全部樓層
不用CODE方式也發一下

_SECTION_BEGIN("Price");
_N(Title = StrFormat("{{NAME}} - {{INTERVAL}} {{DATE}} Open %g, Hi %g, Lo %g, Close %g (%.1f%%) {{VALUES}}", O, H, L, C, SelectedValue( ROC( C, 1 ) ) ));
Plot( C, "Close", ParamColor("Color", colorBlack ), styleNoTitle | ParamStyle("Style") | GetPriceStyle() );
_SECTION_END();

nPrevC1=TimeFrameGetPrice( "C", inDaily, -1);
nPrevC5=TimeFrameGetPrice( "C", inDaily, -5);
nPrevH1=TimeFrameGetPrice( "H", inDaily, -1);
nPrevH2=TimeFrameGetPrice( "H", inDaily, -2);
nPrevH3=TimeFrameGetPrice( "H", inDaily, -3);
nPrevH4=TimeFrameGetPrice( "H", inDaily, -4);
nPrevH5=TimeFrameGetPrice( "H", inDaily, -5);
nPrevL1=TimeFrameGetPrice( "l", inDaily, -1);
nPrevL2=TimeFrameGetPrice( "l", inDaily, -2);
nPrevL3=TimeFrameGetPrice( "l", inDaily, -3);
nPrevL4=TimeFrameGetPrice( "l", inDaily, -4);
nPrevL5=TimeFrameGetPrice( "l", inDaily, -5);
nPrevO1=TimeFrameGetPrice( "O", inDaily, -1);

//Hypothetical 5-Day PeriodFiv-Day
nX= (nPrevH1 + nPrevL1 + nPrevC1)/3;

nUp = nPrevL1 + (( nPrevH1-nPrevL2)+( nPrevH2-nPrevL3)+( nPrevH3-nPrevL4))/3 ;
nBuyH = nPrevH1 + (( nPrevH1-nPrevH2)+( nPrevH2-nPrevH3)+( nPrevH3-nPrevH4))/3 ;
nLLSUp = 2 * nX - nPrevL1 ;
nRR = (nUp + nBuyH + nPrevH1  + nLLSUp) / 4 ;

nDn = nPrevH1 + (( nPrevH2-nPrevL1)+( nPrevH3-nPrevL2)+( nPrevH4-nPrevL3))/3 ;
nBuyL = nPrevL1 - (( nPrevL2-nPrevL1)+( nPrevL3-nPrevL2)+( nPrevL4-nPrevL3))/3 ;
nLLSDn = 2 * nX - nPrevH1 ;
nSS = (nDn + nBuyL + nPrevL1  + nLLSDn) / 4 ;
Plot( nRR, "RR", colorDarkRed, styleNoTitle );
Plot( nSS, "SS", colorDarkGreen, styleNoTitle );

// LSS Oscillator

nMax1D=Max(nPrevH1,nPrevH2);
nMax2D=Max(nPrevH3,nPrevH4);
nMax3D=Max(nMax1D,nMax2D);
nMaxD=Max(nMax3D,nPrevH5);

nMin1D=Max(nPrevL1,nPrevL2);
nMin2D=Max(nPrevL3,nPrevL4);
nMin3D=Max(nMin1D,nMin2D);
nMinD=Max(nMin3D,nPrevL5);

nXXD = nMaxD - nPrevC5;
nYYD = C - nMinD;
nOscD =(nXXD+nYYD)/((nMaxD-nMinD)*2)*100;


nMax1=Max(H,Ref(H,-1));
nMax2=Max(Ref(H,-2),Ref(H,-3));
nMax3=Max(nMax1,nMax2);
nMax=Max(nMax3,Ref(H,-4));

nMin1=Max(L,Ref(L,-1));
nMin2=Max(Ref(L,-2),Ref(L,-3));
nMin3=Max(nMin1,nMin2);
nMin=Max(nMin3,Ref(L,-4));

nXX = nMax - Ref(C,-4);
nYY = C - nMin;
nOsc =(nXX+nYY)/((nMax-nMin)*2)*100;

Plot( 1, "", IIf(nOscD>70,colorDarkRed, IIf(nOscD<30, colorDarkGreen, colorLightGrey)), styleOwnScale|styleArea|styleNoLabel, -0.1, 100 );
Plot( 1, "", IIf(nOsc>70,colorDarkRed, IIf(nOsc<30, colorDarkGreen, colorLightGrey)), styleOwnScale|styleArea|styleNoLabel, -0.1, 50 );
我愛紅茶 該用戶已被刪除
發表於 10-9-9 23:46 | 顯示全部樓層

好東西
那我在新增到我的AB內
謝謝你的分享
發表於 10-9-10 15:15 | 顯示全部樓層
謝謝大大分享
發表於 10-9-12 00:26 | 顯示全部樓層
感謝分享
真是個好物
發表於 10-9-16 08:26 | 顯示全部樓層
感謝分享啦
看看能不能盡快脫離工作
發表於 10-12-28 13:30 | 顯示全部樓層
這個超讚的! 感謝版大分享!
發表於 11-3-15 11:12 | 顯示全部樓層
謝謝你的分享,研究學習看看
發表於 11-3-25 21:54 | 顯示全部樓層
收下先,有時間再來研究
發表於 11-3-26 00:37 | 顯示全部樓層
一般人都有個錯誤觀念,總覺得一定要一筆賺個3.4倍才是王道,卻不知賭博與投資
的差異!用allen0925大工具先
發表於 12-4-24 19:09 | 顯示全部樓層
不知這程式碼有何用途
發表於 12-5-18 12:59 | 顯示全部樓層
感謝你的分享
發表於 12-8-17 03:11 | 顯示全部樓層
新手學習,感謝分享~~
發表於 12-10-9 22:23 | 顯示全部樓層
謝謝大大分享
您需要登錄後才可以回帖 登錄 | 註冊

本版積分規則

手機版|Archiver|站長信箱|廣告洽詢|COCO研究院

GMT+8, 24-12-22 20:07

Powered by Discuz! X3.4

Copyright © 2001-2023, Tencent Cloud.

快速回復 返回頂部 返回列表
理財討論網站 |