DALE! SMOOTHING THE BOLLINGER %b ! Author: Sylvain Vervoort, TASC May 2010 ! Coded by: Richard Denning 3/11/2010 ! www.TradersEdgeSystems.com !INPUTS: smoLen is 8. stdMultH is 1.6. stdMultL is 1.6. sDevLen is 63. ! ABBREVIATIONS: C is [close]. O is [open]. H is [high]. L is [low]. typPrice is (O+H+L+C)/4. stop if reportdate() - ruledate() >= 200. haOpen is iff(stop,C,valresult(haO,1)). haO is (valresult(typPrice,1) + haOpen) / 2. haCL is (typPrice + haO + Max(H,haO) + Min(L,haO)) / 4. EMA1 is expavg(haCL, smoLen). TMA1 is (3 * EMA1 - 3 * expavg(EMA1,smoLen)) + expavg(expavg(EMA1,smoLen),smoLen). EMA2 is expavg(TMA1, smoLen). TMA2 is (3 * EMA2 - 3 * expavg(EMA2,smoLen)) + expavg(expavg(EMA2,smoLen),smoLen). ZLHA is 2*TMA1 - TMA2. wmaZLHA18 is (18*ZLHA + 17*valresult(ZLHA,1) + 16*valresult(ZLHA,2) + 15*valresult(ZLHA,3) + 14*valresult(ZLHA,4) + 13*valresult(ZLHA,5) + 12*valresult(ZLHA,6) + 11*valresult(ZLHA,7) + 10*valresult(ZLHA,8) + 9*valresult(ZLHA,9) + 8*valresult(ZLHA,10) + 7*valresult(ZLHA,11) + 6*valresult(ZLHA,12) + 5*valresult(ZLHA,13) + 4*valresult(ZLHA,14) + 3*valresult(ZLHA,15) + 2*valresult(ZLHA,16) + 1*valresult(ZLHA,17) ) / 171. stdevZLHA18 is sqrt(variance(ZLHA,18)). upperBand is wmaZLHA18 + 2*stdevZLHA18. lowerBand is wmaZLHA18 - 2*stdevZLHA18. stdevZLHA_lines is sqrt(variance(SVEpctB,sDevLen)). SVEpctB is (ZLHA - lowerBand) / (upperBand - lowerBand) * 100. ! PlotA & PlotB upperLine is 50 + stdMultH * stdevZLHA_lines. ! PlotA lowerLine is 50 - stdMultL * stdevZLHA_lines. ! PlotB middleLine is 50. ! Plot A & PlotB List if 1.  Rule Library CCodeViewList CReportView Symbol<haOOhaCLOZLHAO wmaZLHA18T stdevZLHA18YstdevZLHA_lineshSVEpctBO upperLineO lowerLineO AB>mBBBy%?AtBBn@AAZAooYA_ZAWAGZX>A5BBB@AACC@NǷ@c@ @9=ZAьBCBAAAIG@Vϩ@{@v@ >`ABYB2AAAII}^Q?q{?p?S_?&8 ?Ac(BBD@AAANV]AA%A@A:@ ?ABPfB|TAAAON¬AAAPApL>1AkBBDXAAAPT(B(B(B%B&j?uAB|B$TAAAPLy]C@_C_COSC)AjAHBB!@AAR~AmAjJAKAS>>.AgBB8RAAATI Y@Z@QbZ@ Y@P>=A]B Bh@AAUKYLAAmAGA D?;ABBI@00:00