开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 行业应用 > 金融证券系统 > 查看源码
Reaction Trend System.afl
资源名称：AFL_collection.rar　[点击查看]
上传用户：shiqiang
上传日期：2009-06-12
资源大小：1289k
文件大小：35k
源码类别：

金融证券系统

开发平台：

Others

Reaction Trend System.afl：源码内容
  1. //------------------------------------------------------------------------------
  2. //
  3. //  Formula Name:    Reaction Trend System
  4. //  Author/Uploader: Ed 
  5. //  E-mail:          ed2000nl@home.nl
  6. //  Date/Time Added: 2004-05-20 13:32:18
  7. //  Origin:          translated from J. Welles Wilder Jr. using New Concepts in Technical Trading 1978
  8. //  Keywords:        trading system trend
  9. //  Level:           advanced
  10. //  Flags:           system
  11. //  Formula URL:     http://www.amibroker.com/library/formula.php?id=357
  12. //  Details URL:     http://www.amibroker.com/library/detail.php?id=357
  13. //
  14. //------------------------------------------------------------------------------
  15. //
  16. //  see code for details.
  17. //
  18. //  Think most of the bugs are out but if you find any please let me know. Also
  19. //  suggestions to write it more efficiently are welcome.
  20. //
  21. //  Best to use hourly intraday data. Should work in any timeframe but it
  22. //  should be used with intraday data.
  23. //
  24. //  If you want to do a backtest do not forget to select the timeframe in the
  25. //  settings!!!
  26. //
  27. //------------------------------------------------------------------------------
  29. /*
  31. Reaction Trend System ---- to be used with Intraday Data
  33. Originally develloped by: J. Welles Wilder Jr. 
  34. Translated from: New Concepts in Technical Trading systems (1978)
  36. Translation in Amibroker-AFL by Edward Pottasch (May 2004), Email: ed2000nl@home.nl
  38. Shapes in Chart: 
  39. 1) hollow yellow down arrow: Reaction mode short position
  40. 2) hollow white up arrow: COVER of short positions of BOTH modes (either trend and reaction mode)
  41. 3) solid yellow down arrow: sell of long positions of BOTH modes (either trend and reaction mode)
  42. 4) solid white up arrow: Reaction mode long position
  43. 5) solid yellow down triangle: Trend mode short position
  44. 6) solid white up triangle: Trend mode long position
  46. Digits in Chart:
  47. 1) "1": a "B" day (see rules in code below or in WW's book).
  48. 2) "2": a "O" day
  49. 3) "3": a "S" day
  51. Colors of Digits:
  52. 1) white: normal color
  53. 2) yellow: highest or lows day during trend mode. Represents a discontinuity in phase
  54. 3) lightblue: always drawn below a yellow digit. It means that even though the phase
  55. is as the yellow digit shows the phase of the lightblue digit is used (which was the phase
  56. before the discontinuity). This is an exceptional situation where the outbreak to the 
  57. trend mode coincides with the highest or lowest day.
  59. Short description of the system.
  61. phase == 1: B day (1 digit in chart)
  62. - LONG positions are initiated only on a "B" day
  63. - SHORT positions are reversed on a "B" day
  64. - breakout of HBOP or LBOP initiate a long or short position on a "B" day
  65. - we must exit a short position entered in the reaction mode. If target not hit exit at close
  67. phase == 2: O day (2 digit in chart)
  68. - No positions are initiated on an "O" day except those initiated by the breakout points
  69. - LONG positions may be close on an "O" day.
  70. - breakout of HBOP or LBOP initiate a long or short position on an "O" day
  72. phase == 3: S day (3 digit in chart)
  73. - SHORT positions are initiated only on an "S" day
  74. - LONG positions are reversed on a "S" day
  75. - breakout of HBOP or LBOP initiate a long or short position on a "S" day
  76. - we must exit a long position entered in the reaction mode. If target not hit exit at close
  79. remarks:
  81. A)
  82. Any timeframe may be used but I suggest hourly data because it is still fast and provides 
  83. basicly the same information as any other timeframe.
  85. B)
  86. I am not sure if Wilder's original idea was to open a reaction mode position in the same 
  87. day where the trend mode position was closed but the code is set up to do such a thing.
  89. C) Backtesting using minute, hourly etc. timeframes may give a slightly different result. 
  90. Sorry but it is inherent to the system.
  92. D) Assumed is that the close is at 16:00. Certain exits will take place between 15:55 and 16:00
  93. if there is a trade. Otherwise no exit occurs. So for now this program should only be used with
  94. densely traded stocks where there are a couple of trades in the last minutes.
  95. */
  97. // set to use all bars required for looping
  98. setbarsrequired(100000,100000);
  100. // set timeframe
  101. TimeFrameSet( inDaily );
  103. //calculate the average + the four price action points.
  104. // average
  105. xx = (H + L + C) / 3;
  106. // four price action points
  107. // 1) Buy point
  108. B1 = 2 * Ref(xx,-1) - Ref(H,-1);
  109. // 2) Sell point
  110. S1 = 2 * Ref(xx,-1) - Ref(L,-1);
  111. // 3) High break out point
  112. HBOP = 2 * Ref(xx,-1) - 2 * Ref(L,-1) + Ref(H,-1);
  113. // 4) Low break out point 
  114. LBOP = 2 * Ref(xx,-1) - 2 * Ref(H,-1) + Ref(L,-1);
  116. // short trail stop: highest high made in previous 2 days (used in trend mode only)
  117. trailstop_short = Ref(HHV(H,2),-1);
  118. // long trail stop: lowest low made in previous 2 days (used in trend mode only)
  119. trailstop_long = Ref(LLV(L,2),-1);
  121. // declare some arrays
  122. phase_arr = C; 
  123. phase_arr = 0;
  124. phase_arr_l1 = phase_arr; // additional layer of phase changes
  125. stop_short = phase_arr; stop_long = stop_short;
  126. short_index_position = phase_arr; long_index_position = short_index_position;
  127. b_day = phase_arr; s_day = phase_arr;
  129. // first determine "B" and "S" days
  130. idx = 0;
  131. for (i = 0; i < BarCount; i++) {
  133. // short trend mode
  134. if (L[ i ] <= LBOP[ i ] AND i >= idx) {
  136. // indicate the short trend mode outbreak
  137. short_index_position[ i ] = 1;
  139. // variables tracking lowest day in short trend mode
  140. idx_b = i;
  141. loi = L[ i ];
  143. // exit at trailing stop
  144. for (j = i + 1; j < BarCount; j++) {
  146. if (L[ j ] < loi) {
  148. loi = L[ j ];
  150. // track index of lowest point in trend mode 
  151. idx_b = j;
  153. } else
  155. if (H[ j ] >= trailstop_short[ j ]) {
  157. stop_short[ j ] = 1;
  159. // idx is used to make sure we finish a position before starting a new one
  160. idx = j;
  162. // used to exit the j-for loop
  163. j = BarCount - 1;
  165. }
  167. }
  169. // save index position of lowest point in short trend mode
  170. b_day[ idx_b ] = 1;
  173. } else if (H[ i ] >= HBOP[ i ] AND i >= idx) {
  175. // indicate the long trend mode outbreak
  176. long_index_position[ i ] = 1;
  178. // variables tracking highest day in long trend mode
  179. idx_s = i;
  180. hii = H[ i ];
  182. // exit at trailing stop
  183. for (j = i + 1; j < BarCount; j++) {
  185. if (H[ j ] > hii) {
  187. hii = H[ j ];
  189. // track index of highest point in trend mode 
  190. idx_s = j;
  192. } else
  194. if (L[ j ] <= trailstop_long[ j ]) {
  196. stop_long[ j ] = 1;
  198. // idx is used to make sure we finish a position before starting a new one
  199. idx = j; 
  201. // used to exit the j-for loop
  202. j = BarCount - 1;
  204. }
  206. }
  208. // save index position of highest point in long trend mode
  209. s_day[ idx_s ] = 1;
  211. }
  213. }
  215. // fill in the rest of the phase array. Sequence: 1 - 2 - 3 - 1 - 2 - etc
  216. for (i = 1; i < BarCount; i++) {
  218. if (b_day[ i ] == 1) {
  220. phase_arr[ i ] = 1;
  222. // if b_day equal to the day of outbreak store the original phase
  223. if (b_day[ i ] == 1 AND short_index_position[ i ] == 1) {
  225. if (phase_arr[ i - 1 ] == 1) {
  227. phase_arr_l1[ i ] = 2;
  229. } else
  231. if (phase_arr[ i - 1 ] == 2) {
  233. phase_arr_l1[ i ] = 3;
  235. } else
  237. if (phase_arr[ i - 1 ] == 3) {
  239. phase_arr_l1[ i ] = 1;
  241. } else
  243. if (phase_arr[ i - 1 ] == 0) {
  245. phase_arr_l1[ i ] = 1;
  247. }
  249. }
  251. } else if (s_day[ i ] == 1) {
  253. phase_arr[ i ]  = 3;
  255. // if s_day equal to the day of outbreak store the original phase
  256. if (s_day[ i ] == 1 AND long_index_position[ i ] == 1) {
  258. if (phase_arr[ i - 1 ] == 1) {
  260. phase_arr_l1[ i ] = 2;
  262. } else
  264. if (phase_arr[ i - 1 ] == 2) {
  266. phase_arr_l1[ i ] = 3;
  268. } else
  270. if (phase_arr[ i - 1 ] == 3) {
  272. phase_arr_l1[ i ] = 1;
  274. } else
  276. if (phase_arr[ i - 1 ] == 0) {
  278. phase_arr_l1[ i ] = 1;
  280. }
  282. }
  285. } else if (b_day[ i ] == 0 AND s_day[ i ] == 0 AND phase_arr[ i - 1 ] == 3) {
  287. phase_arr[ i ] = 1;
  289. } else if (b_day[ i ] == 0 AND s_day[ i ] == 0 AND phase_arr[ i - 1 ] == 2) {
  291. phase_arr[ i ] = 3;
  293. } else if (b_day[ i ] == 0 AND s_day[ i ] == 0 AND phase_arr[ i - 1 ] == 1) {
  295. phase_arr[ i ] = 2;
  297. }
  299. }
  301. // restore to current time frame
  302. TimeFrameRestore();
  304. // expand arrays 
  305. xx = TimeFrameExpand( xx, inDaily,mode = expandFirst  );
  306. B1 = TimeFrameExpand( B1, inDaily,mode = expandFirst  );
  307. S1 = TimeFrameExpand( S1, inDaily,mode = expandFirst  );
  308. HBOP = TimeFrameExpand( HBOP, inDaily,mode = expandFirst  );
  309. LBOP = TimeFrameExpand( LBOP, inDaily,mode = expandFirst  );
  310. trailstop_short = TimeFrameExpand( trailstop_short, inDaily,mode = expandFirst  );
  311. trailstop_long = TimeFrameExpand( trailstop_long, inDaily,mode = expandFirst  );
  312. phase_arr = TimeFrameExpand( phase_arr, inDaily,mode = expandFirst  );
  313. phase_arr_l1 = TimeFrameExpand( phase_arr_l1, inDaily,mode = expandFirst  );
  314. b_day = TimeFrameExpand( b_day, inDaily,mode = expandFirst  );
  315. s_day = TimeFrameExpand( s_day, inDaily,mode = expandFirst  );
  317. // time bar is used on B and S days + position to close out on last bar if target not hit
  318. timebar = Cross(TimeNum(),155500);
  320. // adjust phase array for charting purposes
  321. hlp_phase = phase_arr; hlp_phase = 0; hlp_b = hlp_phase; hlp_s = hlp_phase; hlp_phase_l1 = hlp_phase;
  322. for (i = 1; i < BarCount; i++) {
  324. if (HBOP[ i ] != HBOP[ i - 1]) {
  326. hlp_phase[ i ] = phase_arr[ i ];
  327. hlp_phase_l1[ i ] = phase_arr_l1[ i ];
  328. hlp_b[ i ] = b_day[ i ];
  329. hlp_s[ i ] = s_day[ i ];
  331. }
  333. }
  335. // change the phase_arr back to original phase at places where phase change equals outbreak because
  336. // you need the original phase to determine reaction mode behaviour
  337. phase_arr = IIF(phase_arr_l1 != 0,phase_arr_l1,phase_arr);
  340. // calculate the positions
  342. // flag settings
  343. reaction_position_buy = 0;
  344. reaction_position_short = 0;
  345. trend_position_buy = 0;
  346. trend_position_short = 0;
  348. // help arrays
  349. tpsl = C; tpsl = 0; // trend position long index storage array
  350. tpss = C; tpss = 0; // trend position short index storage array
  352. // reset arrays
  353. Buy = C; Buy = 0; Sell = Buy; Short = Buy; Cover = Buy;
  355. for (i = 0; i < BarCount; i++) {
  357. /* "B" day + no position. 4 areas are of importance for the open price as an entry point
  358. 1) Open between HBOP and B1 (Area 1)
  359. 2) Open between B1 and LBOP (Area 2)
  360. 3) Open higher than HBOP (Area 3)
  361. 4) Open lower than LBOP (Area 4)
  362. */
  363. if (phase_arr[ i ] == 1 AND reaction_position_buy == 0 AND trend_position_buy == 0 AND 
  364. reaction_position_short == 0 AND trend_position_short == 0) {
  366. // open in Area 1
  367. if (O[ i ] > B1[ i ] AND O[ i ] < HBOP[ i ]) {
  369. // check for entry of Area 2
  370. if (L[ i ] <= B1[ i ]) {
  372. Buy[ i ] = 1;
  373. BuyPrice[ i ] = B1[ i ];
  374. reaction_position_buy = 1;
  376. // check for entry of Area 3 (breakout)
  377. if (L[ i ] <= LBOP[ i ]) {
  379. // sell the reaction mode long position you just entered
  380. Sell[ i ] = 1;
  381. SellPrice[ i ] = LBOP[ i ];
  382. reaction_position_buy = 0;
  384. // take a short position in the trend mode
  385. Short[ i ] = 1;
  386. ShortPrice[ i ] = LBOP[ i ];
  387. trend_position_short = 1;
  388. tpss[ i ] = 1;
  390. } else 
  392. // check for enrty of Area 4 (breakout)
  393. if (H[ i ] >= HBOP[ i ]) {
  395. // only change the mode since we are already long
  396. reaction_position_buy = 0;
  397. trend_position_buy = 1;
  398. tpsl[ i ] = 1;
  400. }
  402. } else 
  404. // check for entry of Area 4
  405. if (H[ i ] >= HBOP[ i ]) {
  407. Buy[ i ] = 1;
  408. BuyPrice[ i ] = HBOP[ i ];
  409. trend_position_buy = 1;
  410. tpsl[ i ] = 1;
  412. }
  414. } else
  416. // open in Area 2
  417. if (O[ i ] <= B1[ i ] AND O[ i ] > LBOP[ i ]) {
  419. Buy[ i ] = 1;
  420. BuyPrice[ i ] = O[ i ];
  421. reaction_position_buy = 1;
  423. // check for entry of Area 3 (breakout)
  424. if (L[ i ] <= LBOP[ i ]) {
  426. // sell the reaction mode long position you just entered
  427. Sell[ i ] = 1;
  428. SellPrice[ i ] = LBOP[ i ];
  429. reaction_position_buy = 0;
  431. // take a short position in the trend mode
  432. Short[ i ] = 1;
  433. ShortPrice[ i ] = LBOP[ i ];
  434. trend_position_short = 1;
  435. tpss[ i ] = 1;
  437. } else 
  439. // check for enrty of Area 4 (breakout)
  440. if (H[ i ] >= HBOP[ i ]) {
  442. // only change the mode since we are already long
  443. reaction_position_buy = 0;
  444. trend_position_buy = 1;
  445. tpsl[ i ] = 1;
  447. }
  449. } else
  452. // open in Area 3
  453. if (O[ i ] <= LBOP[ i ]) {
  455. // take a short position in the trend mode
  456. Short[ i ] = 1;
  457. ShortPrice[ i ] = O[ i ];
  458. trend_position_short = 1;
  459. tpss[ i ] = 1;
  461. } else
  463. // open in Area 4
  464. if (O[ i ] >= HBOP[ i ]) {
  466. // take a long position in the trend mode
  467. Buy[ i ] = 1;
  468. BuyPrice[ i ] = O[ i ];
  469. trend_position_buy = 1;
  470. tpsl[ i ] = 1;
  472. }
  474. } else
  476. /* "O" day + no position. 3 entry areas of importance
  477. 1) open between LBOP and HBOP (Area 1)
  478. 2) open higher than HBOP (Area 2)
  479. 3) open lower than LBOP (Area 3)
  480. */
  481. if (phase_arr[ i ] == 2 AND reaction_position_buy == 0 AND trend_position_buy == 0 AND 
  482. reaction_position_short == 0 AND trend_position_short == 0) {
  485. // open in Area 1
  486. if (O[ i ] > LBOP[ i ] AND O[ i ] < HBOP[ i ]) {
  488. // entry of Area 3
  489. if (L[ i ] <= LBOP[ i ]) {
  491. // take a short position in trend mode
  492. Short[ i ] = 1;
  493. ShortPrice[ i ] = LBOP[ i ];
  494. trend_position_short = 1;
  495. tpss[ i ] = 1;
  497. } else
  499. // entry of Area 4
  500. if (H[ i ] >= HBOP[ i ]) {
  502. // take a long position in the trend mode
  503. Buy[ i ] = 1;
  504. BuyPrice[ i ] = HBOP[ i ];
  505. trend_position_buy = 1;
  506. tpsl[ i ] = 1;
  508. }
  510. } else
  512. // open in Area 3
  513. if (O[ i ] <= LBOP[ i ]) {
  515. // take a short position in the trend mode
  516. Short[ i ] = 1;
  517. ShortPrice[ i ] = O[ i ];
  518. trend_position_short = 1;
  519. tpss[ i ] = 1;
  521. } else
  523. // open in Area 2
  524. if (O[ i ] >= HBOP[ i ]) {
  526. // take a long position in the trend mode
  527. Buy[ i ] = 1;
  528. BuyPrice[ i ] = O[ i ];
  529. trend_position_buy = 1;
  530. tpsl[ i ] = 1;
  532. }
  534. } else
  536. /* "S" day + no position. 4 areas of entry may be defined
  537. 1) open between LBOP and S1 (area 1)
  538. 2) open between S1 and HBOP (area 2)
  539. 3) open higher than HBOP (area 3)
  540. 4) open lower than LBOP (area 4)
  541. */
  542. if (phase_arr[ i ] == 3 AND reaction_position_buy == 0 AND trend_position_buy == 0 AND 
  543. reaction_position_short == 0 AND trend_position_short == 0) {
  545. // open in area 1
  546. if (O[ i ] > LBOP[ i ] AND O[ i ] < S1[ i ]) {
  548. // check for entry of Area 2
  549. if (H[ i ] >= S1[ i ]) {
  551. Short[ i ] = 1;
  552. ShortPrice[ i ] = S1[ i ];
  553. reaction_position_short = 1;
  555. // check for entry of Area 3 (breakout)
  556. if (H[ i ] >= HBOP[ i ]) {
  558. // cover position first
  559. Cover[ i ] = 1;
  560. CoverPrice[ i ] = HBOP[ i ];
  561. reaction_position_short = 0;
  563. // take a long position in the trend mode
  564. Buy[ i ] = 1;
  565. BuyPrice[ i ] = HBOP[ i ];
  566. trend_position_buy = 1;
  567. tpsl[ i ] = 1;
  569. } else 
  571. // check for enrty of Area 4 (breakout)
  572. if (L[ i ] <= LBOP[ i ]) {
  574. // only change the mode since we are already short
  575. reaction_position_short = 0;
  576. trend_position_short = 1;
  577. tpss[ i ] = 1;
  579. }
  581. } else 
  583. // check for entry of Area 4
  584. if (L[ i ] <= LBOP[ i ]) {
  586. Short[ i ] = 1;
  587. ShortPrice[ i ] = LBOP[ i ];
  588. trend_position_short = 1;
  589. tpss[ i ] = 1;
  591. }
  593. } else
  595. // open in area 2
  596. if (O[ i ] >= S1[ i ] AND O[ i ] < HBOP[ i ]) {
  598. Short[ i ] = 1;
  599. ShortPrice[ i ] = O[ i ];
  600. reaction_position_short = 1;
  602. // check for entry of Area 3 (breakout)
  603. if (H[ i ] >= HBOP[ i ]) {
  605. // cover the reaction mode short position you just entered
  606. Cover[ i ] = 1;
  607. CoverPrice[ i ] = HBOP[ i ];
  608. reaction_position_short = 0;
  610. // take a long position in the trend mode
  611. Buy[ i ] = 1;
  612. BuyPrice[ i ] = HBOP[ i ];
  613. trend_position_buy = 1;
  614. tpsl[ i ] = 1;
  616. } else 
  618. // check for enrty of Area 4 (breakout)
  619. if (L[ i ] <= LBOP[ i ]) {
  621. // only change the mode since we are already short
  622. reaction_position_short = 0;
  623. trend_position_short = 1;
  624. tpss[ i ] = 1;
  626. }
  628. } else
  630. // open in Area 4
  631. if (O[ i ] <= LBOP[ i ]) {
  633. // take a short position in the trend mode
  634. Short[ i ] = 1;
  635. ShortPrice[ i ] = O[ i ];
  636. trend_position_short = 1;
  637. tpss[ i ] = 1;
  639. } else
  641. // open in Area 3
  642. if (O[ i ] >= HBOP[ i ]) {
  644. // take a long position in the trend mode
  645. Buy[ i ] = 1;
  646. BuyPrice[ i ] = O[ i ];
  647. trend_position_buy = 1;
  648. tpsl[ i ] = 1;
  650. }
  654. } else
  656. /* "B" day PLUS short reaction mode position. 4 Entry areas of interest
  657. 1) open between B1 and HBOP (area 1)
  658. 2) open between LBOP and B1 (area 2)
  659. 3) open below LBOP (area 3)
  660. 4) open above HBOP (area 4)
  662. */
  663. if (phase_arr[ i ] == 1 AND reaction_position_buy == 0 AND trend_position_buy == 0 AND 
  664. reaction_position_short == 1 AND trend_position_short == 0) {
  666. // open in area 1
  667. if (O[ i ] > B1[ i ] AND O[ i ] < HBOP[ i ]) {
  669. // enter area 2
  670. if (L[ i ] <= B1[ i ]) {
  672. // cover short position
  673. Cover[ i ] = 1;
  674. CoverPrice[ i ] = B1[ i ];
  675. reaction_position_short = 0;
  677. // reverse short into a long
  678. Buy[ i ] = 1;
  679. BuyPrice[ i ] = B1[ i ];
  680. reaction_position_buy = 1;
  682. // price enters area 3
  683. if (L[ i ] <= LBOP[ i ]) {
  685. // close long position
  686. Sell[ i ] = 1;
  687. SellPrice[ i ] = LBOP[ i ];
  688. reaction_position_buy = 0;
  690. // open short trend mode position
  691. Short[ i ] = 1;
  692. ShortPrice[ i ] = LBOP[ i ];
  693. trend_position_short = 1;
  694. tpss[ i ] = 1;
  696. } else
  698. // price enters area 4
  699. if (H[ i ] >= HBOP[ i ]) {
  701. // just change the mode
  702. reaction_position_buy = 0;
  703. trend_position_buy = 1;
  704. tpsl[ i ] = 1;
  706. }
  708. } else
  710. // stay in area 1 and cover position at the close
  711. if (L[ i ] > B1[ i ] AND H[ i ] < HBOP[ i ] AND timebar[ i ] == 1) {
  714. // cover at close
  715. Cover[ i ] = 1;
  716. CoverPrice[ i ] = C[ i ];
  717. reaction_position_short = 0;
  719. } else
  721. // price enters area 4
  722. if (H[ i ] >= HBOP[ i ]) {
  724. // cover short position
  725. Cover[ i ] = 1;
  726. CoverPrice[ i ] = HBOP[ i ];
  727. reaction_position_short = 0;
  729. // go long in trend mode
  730. Buy[ i ] = 1;
  731. BuyPrice[ i ] = HBOP[ i ];
  732. trend_position_buy = 1;
  733. tpsl[ i ] = 1;
  735. }
  738. } else
  740. // open in area 2
  741. if (O[ i ] > LBOP[ i ] AND O[ i ] <= B1[ i ]) {
  743. // cover the short position
  744. Cover[ i ] = 1;
  745. CoverPrice[ i ] = O[ i ];
  746. reaction_position_short = 0;
  748. // reverse position
  749. Buy[ i ] = 1;
  750. BuyPrice[ i ] = O[ i ];
  751. reaction_position_buy = 1;
  753. // price enters area 3
  754. if (L[ i ] <= LBOP[ i ]) {
  756. // close long position
  757. Sell[ i ] = 1;
  758. SellPrice[ i ] = LBOP[ i ];
  759. reaction_position_buy = 0;
  761. // open short trend mode position
  762. Short[ i ] = 1;
  763. ShortPrice[ i ] = LBOP[ i ];
  764. trend_position_short = 1;
  765. tpss[ i ] = 1;
  767. } else
  769. // price enters area 4
  770. if (H[ i ] > HBOP[ i ]) {
  772. // just change the mode
  773. reaction_position_buy = 0;
  774. trend_position_buy = 1;
  775. tpsl[ i ] = 1;
  777. }
  779. } else
  781. // open in area 3
  782. if (O[ i ] <= LBOP[ i ]) {
  784. // position is already short, just change the mode
  785. reaction_position_short = 0;
  786. trend_position_short = 1;
  787. tpss[ i ] = 1;
  789. } else
  791. // open in area 4
  792. if (O[ i ] >= HBOP[ i ]) {
  794. // close the short position
  795. Cover[ i ] = 1;
  796. CoverPrice[ i ] = O[ i ];
  797. reaction_position_short = 0;
  799. // and go long in trend mode
  800. Buy[ i ] = 1;
  801. BuyPrice[ i ] = O[ i ];
  802. trend_position_buy = 1;
  803. tpsl[ i ] = 1;
  805. }
  807. } else
  809. /* "O" day PLUS long reaction mode position,  4 areas of interest
  810. 1) open between LBOP and S1 (area 1)
  811. 2) open between S1 and HBOP (area 2)
  812. 3) open above HBOP (area 3)
  813. 4) open below LBOP ( area 4)
  814. */
  816. if (phase_arr[ i ] == 2 AND reaction_position_buy == 1 AND trend_position_buy == 0 AND 
  817. reaction_position_short == 0 AND trend_position_short == 0) {
  820. // open in area 1
  821. if (O[ i ] > LBOP[ i ] AND O[ i ] < S1[ i ]) {
  823. // entry of area 2
  824. if (H[ i ] >= S1[ i ]) {
  826. Sell[ i ] = 1;
  827. SellPrice[ i ] = S1[ i ];
  828. reaction_position_buy = 0;
  830. // enter area 3
  831. if (H[ i ] >= HBOP[ i ]) {
  833. // go long in trend mode
  834. Buy[ i ] = 1;
  835. BuyPrice[ i ] = HBOP[ i ];
  836. trend_position_buy = 1;
  837. tpsl[ i ] = 1;
  839. } else
  841. // enter area 4
  842. if (L[i ] <= LBOP[ i ]) {
  844. // go short in trend mode
  845. Short[ i ] = 1;
  846. ShortPrice[ i ] = LBOP[ i ];
  847. trend_position_short = 1;
  848. tpss[ i ] = 1;
  850. }
  852. } else
  854. // entry of area 4
  855. if (L[ i ] <= LBOP[ i ]) {
  857. // sell currect position
  858. Sell[ i ] = 1;
  859. SellPrice[ i ] = LBOP[ i ];
  860. reaction_position_buy = 0;
  862. // enter the short trend mode
  863. Short[ i ] = 1;
  864. ShortPrice[ i ] = LBOP[ i ];
  865. trend_position_short = 1;
  866. tpss[ i ] = 1;
  868. }
  870. } else
  872. // open in area 2
  873. if (O[ i ] >= S1[ i ] AND O[ i ] < HBOP[ i ]) {
  875. // sell position straight away
  876. Sell[ i ] = 1;
  877. SellPrice[ i ] = O[ i ];
  878. reaction_position_buy = 0;
  880. // enter area 3
  881. if (H[ i ] >= HBOP[ i ]) {
  883. // go long in trend mode
  884. Buy[ i ] = 1;
  885. BuyPrice[ i ] = HBOP[ i ];
  886. trend_position_buy = 1;
  887. tpsl[ i ] = 1;
  889. } else
  891. // enter area 4
  892. if (L[i ] <= LBOP[ i ]) {
  894. // go short in trend mode
  895. Short[ i ] = 1;
  896. ShortPrice[ i ] = LBOP[ i ];
  897. trend_position_short = 1;
  898. tpss[ i ] = 1;
  900. }
  902. } else
  904. // open in area 3
  905. if (O[ i ] >= HBOP[ i ]) {
  907. // position is already long, just change the mode
  908. reaction_position_buy = 0;
  909. trend_position_buy = 1;
  910. tpsl[ i ] = 1;
  912. } else
  914. // open in area 4
  915. if (O[ i ] <= LBOP[ i ]) {
  917. // close the long position
  918. Sell[ i ] = 1;
  919. SellPrice[ i ] = O[ i ];
  920. reaction_position_buy = 0;
  922. // and go short in trend mode
  923. Short[ i ] = 1;
  924. ShortPrice[ i ] = O[ i ];
  925. trend_position_short = 1;
  926. tpss[ i ] = 1;
  928. }
  930. } else
  932. /* "S" day + long reaction mode position, 4 areas of interest
  933. 1) open between LBOP and S1 (area 1)
  934. 2) open between S1 and HBOP
  935. 3) open above HBOP (area 3)
  936. 4) open below LBOP (area 4)
  937. */
  938. if (phase_arr[ i ] == 3 AND reaction_position_buy == 1 AND trend_position_buy == 0 AND 
  939. reaction_position_short == 0 AND trend_position_short == 0) {
  942. // open in area 1
  943. if (O[ i ] > LBOP[ i ] AND O[ i ] < S1[ i ]) {
  945. // entry of area 2
  946. if (H[ i ] >= S1[ i ]) {
  948. // sell position
  949. Sell[ i ] = 1;
  950. SellPrice[ i ] = S1[ i ];
  951. reaction_position_buy = 0;
  953. // reverse position
  954. Short[ i ] = 1;
  955. ShortPrice[ i ] = S1[ i ];
  956. reaction_position_short = 1;
  958. // enter area 3
  959. if (H[ i ] >= HBOP[ i ]) {
  961. // close out short position
  962. Cover[ i ] = 1;
  963. CoverPrice[ i ] = HBOP[ i ];
  964. reaction_position_short = 0;
  966. // go long in trend mode
  967. Buy[ i ] = 1;
  968. BuyPrice[ i ] = HBOP[ i ];
  969. trend_position_buy = 1;
  970. tpsl[ i ] = 1;
  972. } else
  974. // enter area 4
  975. if (L[i ] <= LBOP[ i ]) {
  977. // just change mode, we are short already
  978. reaction_position_short = 0;
  979. trend_position_short = 1;
  980. tpss[ i ] = 1;
  982. }
  984. }
  986. // price never enters the sell area
  987. if (H[ i ] < S1[ i ] AND L[ i ] > LBOP[ i ] AND timebar[ i ] == 1) {
  988. // cover at close
  989. Sell[ i ] = 1;
  990. SellPrice[ i ] = C[ i ];
  991. reaction_position_buy = 0;
  993. } else
  995. // price enters area 4
  996. if (L[ i ] <= LBOP[ i ]) {
  998. // sell long position
  999. Sell[ i ] = 1;
  1000. SellPrice[ i ] = LBOP[ i ];
  1001. reaction_position_buy = 0;
  1003. // go short in trend mode
  1004. Short[ i ] = 1;
  1005. ShortPrice[ i ] = LBOP[ i ];
  1006. trend_position_short = 1;
  1007. tpss[ i ] = 1;
  1009. }
  1012. } else
  1015. // open in area 2
  1016. if (O[ i ] >= S1[ i ] AND O[ i ] < HBOP[ i ]) {
  1018. // sell position straight away
  1019. Sell[ i ] = 1;
  1020. SellPrice[ i ] = O[ i ];
  1021. reaction_position_buy = 0;
  1023. // and reverse
  1024. Short[ i ] = 1;
  1025. ShortPrice[ i ] = O[ i ];
  1026. reaction_position_short = 1;
  1028. // enter area 3
  1029. if (H[ i ] >= HBOP[ i ]) {
  1031. // close out short position
  1032. Cover[ i ] = 1;
  1033. CoverPrice[ i ] = HBOP[ i ];
  1034. reaction_position_short = 0;
  1036. // go long in trend mode
  1037. Buy[ i ] = 1;
  1038. BuyPrice[ i ] = HBOP[ i ];
  1039. trend_position_buy = 1;
  1040. tpsl[ i ] = 1;
  1042. } else
  1044. // enter area 4
  1045. if (L[i ] <= LBOP[ i ]) {
  1047. // just change mode, we are short already
  1048. reaction_position_short = 0;
  1049. trend_position_short = 1;
  1050. tpss[ i ] = 1;
  1052. }
  1054. } else
  1056. // open in area 3
  1057. if (O[ i ] >= HBOP[ i ]) {
  1059. // position is already long, just change the mode
  1060. reaction_position_buy = 0;
  1061. trend_position_buy = 1;
  1062. tpsl[ i ] = 1;
  1064. } else
  1066. // open in area 4
  1067. if (O[ i ] <= LBOP[ i ]) {
  1069. // close the long position
  1070. Sell[ i ] = 1;
  1071. SellPrice[ i ] = O[ i ];
  1072. reaction_position_buy = 0;
  1074. // and go short in trend mode
  1075. Short[ i ] = 1;
  1076. ShortPrice[ i ] = O[ i ];
  1077. trend_position_short = 1;
  1078. tpss[ i ] = 1;
  1080. }
  1082. } else
  1084. /* long trend mode position, exit at the trailing stop, 4 entry areas of interest
  1085. 1) open between trailstop_long and HBOP (area 1)
  1086. 2) open between trailstop_long and LBOP (area 2)
  1087. 3) open above HBOP (area 3)
  1088. 4) open below LBOP (area 4)
  1089. */
  1090. if ( (phase_arr[ i ] == 1 OR phase_arr[ i ] == 2 OR phase_arr[ i ] == 3) AND 
  1091. reaction_position_buy == 0 AND trend_position_buy == 1 AND 
  1092. reaction_position_short == 0 AND trend_position_short == 0) {
  1096. // open in area 1
  1097. if (O[ i ] > trailstop_long[ i ] AND O[ i ] < HBOP[ i ]) {
  1099. // enter area 2
  1100. if (L[ i ] <= trailstop_long[ i ]) {
  1102. // long position in trend mode is stopped out
  1103. Sell[ i ] = 1;
  1104. SellPrice[ i ] = trailstop_long[ i ];
  1105. trend_position_buy = 0;
  1107. // enter area 4
  1108. if (L[ i ] <= LBOP[ i ]) {
  1110. Short[ i ] = 1;
  1111. ShortPrice[ i ] = LBOP[ i ];
  1112. trend_position_short = 1;
  1113. tpss[ i ] = 1;
  1115. } 
  1117. } 
  1119. // enter area 3 **** nothing done here
  1121. } else
  1123. // open in area 2
  1124. if (O[ i ] <= trailstop_long[ i ] AND O[ i ] > LBOP[ i ]) {
  1126. // long position in trend mode is stopped out at the open
  1127. Sell[ i ] = 1;
  1128. SellPrice[ i ] = O[ i ];
  1129. trend_position_buy = 0;
  1131. // enter area 4
  1132. if (L[ i ] <= LBOP[ i ]) {
  1134. // take a short position
  1135. Short[ i ] = 1;
  1136. ShortPrice[ i ] = LBOP[ i ];
  1137. trend_position_short = 1;
  1138. tpss[ i ] = 1;
  1140. } else
  1142. // enter area 3
  1143. if (H[ i ] >= HBOP[ i ]) {
  1145. Buy[ i ] = 1;
  1146. BuyPrice[ i ] = HBOP[ i ];
  1147. trend_position_buy = 1;
  1148. tpsl[ i ] = 1;
  1150. }
  1152. } else
  1155. // open in area 3 *** nothing done here
  1158. // open in area 4
  1159. if (O[ i ] <= LBOP[ i ]) {
  1161. // sell the long position
  1162. Sell[ i ] = 1;
  1163. SellPrice[ i ] = O[ i ];
  1164. trend_position_buy = 0;
  1166. // now go short in trend mode
  1167. Short[ i ] = 1;
  1168. ShortPrice[ i ] = LBOP[ i ];
  1169. trend_position_short = 1;
  1170. tpss[ i ] = 1;
  1172. }
  1174. } else
  1176. /* short trend mode position, exit at the trailing stop, 4 entry areas of interest
  1177. 1) open between LBOP and trailstop_short (area 1)
  1178. 2) open between trailstop_short and HBOP (area 2)
  1179. 3) open below LBOP (area 3)
  1180. 4) open above HBOP (area 4)
  1181. */
  1182. if ( (phase_arr[ i ] == 1 OR phase_arr[ i ] == 2 OR phase_arr[ i ] == 3) AND 
  1183. reaction_position_buy == 0 AND trend_position_buy == 0 AND 
  1184. reaction_position_short == 0 AND trend_position_short == 1) {
  1187. // open in area 1
  1188. if (O[ i ] < trailstop_short[ i ] AND O[ i ] > LBOP[ i ]) {
  1190. // entry of area 2
  1191. if (H[ i ] >= trailstop_short[ i ]) {
  1193. // cover short position, short trend mode is stopped out
  1194. Cover[ i ] = 1;
  1195. CoverPrice[ i ] = trailstop_short[ i ];
  1196. trend_position_short = 0;
  1198. // enter are 4
  1199. if (H[ i ] >= HBOP[ i ]) {
  1201. // enter long position
  1202. Buy[ i ] = 1;
  1203. BuyPrice[ i ] = HBOP[ i ];
  1204. trend_position_buy = 1;
  1205. tpsl[ i ] = 1;
  1207. }
  1209. } 
  1212. // entry of area 3 *** nothing done here
  1215. } else
  1217. // open in area 2
  1218. if (O[ i ] >= trailstop_short[ i ] AND O[ i ] < HBOP[ i ]) {
  1220. // cover short position, stopped
  1221. Cover[ i ] = 1;
  1222. CoverPrice[ i ] = O[ i ];
  1223. trend_position_short = 0;
  1225. // enter area 4
  1226. if (H[ i ] >= HBOP[ i ]) {
  1228. // go long
  1229. Buy[ i ] = 1;
  1230. BuyPrice[ i ] = HBOP[ i ];
  1231. trend_position_buy = 1;
  1232. tpsl[ i ] = 1;
  1234. } else
  1236. // enter area 3
  1237. if (L[ i ] <= LBOP[ i ]) {
  1239. // go short
  1240. Short[ i ] = 1;
  1241. ShortPrice[ i ] = LBOP[ i ];
  1242. trend_position_short = 1;
  1243. tpss[ i ] = 1;
  1245. }
  1247. } else
  1250. // open in area 3 *** nothing done here
  1253. // open in area 4
  1254. if (O[ i ] >= HBOP[ i ]) {
  1256. // cover short position
  1257. Cover[ i ] = 1;
  1258. CoverPrice[ i ] = O[ i ];
  1259. trend_position_short = 0;
  1261. // go long
  1262. Buy[ i ] = 1;
  1263. BuyPrice[ i ] = O[ i ];
  1264. trend_position_buy = 1;
  1265. tpsl[ i ] = 1;
  1267. }
  1269. }
  1271. // *** extra code that is needed for intraday data ***
  1272. // "B" day PLUS LONG reaction mode position. 3 Entry areas of interest
  1273. //1) open between LBOP and HBOP (area 1)
  1274. //2) open below LBOP (area 2)
  1275. //3) open above HBOP (area 3)
  1277. //check for outbreak on "B" day having a long position
  1279. if (phase_arr[ i ] == 1 AND reaction_position_buy == 1 AND trend_position_buy == 0 AND 
  1280. reaction_position_short == 0 AND trend_position_short == 0) {
  1282. // open in area 1
  1283. if (O[ i ] > LBOP[ i ] AND O[ i ] < HBOP[ i ]) {
  1285. // enter area 2
  1286. if (L[ i ] <= LBOP[ i ]) {
  1288. // sell long position
  1289. Sell[ i ] = 1;
  1290. SellPrice[ i ] = LBOP[ i ];
  1291. reaction_position_buy = 0;
  1293. // go short in trend mode
  1294. Short[ i ] = 1;
  1295. ShortPrice[ i ] = LBOP[ i ];
  1296. trend_position_short = 1;
  1297. tpss[ i ] =1;
  1299. } else
  1301. // enter area 3
  1302. if (H[ i ] >= HBOP[ i ]) {
  1304. reaction_position_buy = 0;
  1305. trend_position_buy = 1;
  1306. tpsl[ i ] = 1;
  1308. }
  1310. } else
  1312. // open in area 2
  1313. if (O[ i ] <= LBOP[ i ]) {
  1315. // sell long position
  1316. Sell[ i ] = 1;
  1317. SellPrice[ i ] = O[ i ];
  1318. reaction_position_buy = 0;
  1320. // go short in trend mode
  1321. Short[ i ] = 1;
  1322. ShortPrice[ i ] = O[ i ];
  1323. trend_position_short = 1;
  1324. tpss[ i ] = 1;
  1326. } else
  1328. // open in area 3
  1329. if (O[ i ] >= HBOP[ i ]) {
  1331. // only change the mode
  1332. reaction_position_buy = 0;
  1333. trend_position_buy = 1;
  1334. tpsl[ i ] = 1;
  1336. }
  1339. } else
  1341. // *** extra code that is needed for intraday data ***
  1342. // "S" day PLUS SHORT reaction mode position. 3 Entry areas of interest
  1343. //1) open between LBOP and HBOP (area 1)
  1344. //2) open below LBOP (area 2)
  1345. //3) open above HBOP (area 3)
  1347. //check for outbreak on "S" day having a short position
  1349. if (phase_arr[ i ] == 3 AND reaction_position_buy == 0 AND trend_position_buy == 0 AND 
  1350. reaction_position_short == 1 AND trend_position_short == 0) {
  1352. // open in area 1
  1353. if (O[ i ] > LBOP[ i ] AND O[ i ] < HBOP[ i ]) {
  1355. // enter area 2
  1356. if (L[ i ] <= LBOP[ i ]) {
  1358. // change mode only
  1359. reaction_position_short = 0;
  1360. trend_position_short = 1;
  1361. tpss[ i ] = 1;
  1364. } else
  1366. // enter area 3
  1367. if (H[ i ] >= HBOP[ i ]) {
  1369. // cover short position
  1370. Cover[ i ] = 1;
  1371. CoverPrice[ i ] = HBOP[ i ];
  1372. reaction_position_short = 0;
  1374. // go long in trend mode
  1375. Buy[ i ] = 1;
  1376. BuyPrice[ i ] = HBOP[ i ];
  1377. trend_position_buy = 1;
  1378. tpsl[ i ] = 1;
  1380. }
  1382. } else
  1384. // open in area 2
  1385. if (O[ i ] <= LBOP[ i ]) {
  1387. // only change the mode
  1388. reaction_position_short = 0;
  1389. trend_position_short = 1;
  1390. tpss[ i ] = 1;
  1392. } else
  1394. // open in area 3
  1395. if (O[ i ] >= HBOP[ i ]) {
  1397. // cover short position
  1398. Cover[ i ] = 1;
  1399. CoverPrice[ i ] = O[ i ];
  1400. reaction_position_short = 0;
  1402. // go long in trend mode
  1403. Buy[ i ] = 1;
  1404. BuyPrice[ i ] = O[ i ];
  1405. trend_position_buy = 1;
  1406. tpsl[ i ] = 1;
  1408. }
  1410. }
  1413. }
  1417. // --------------------------------------
  1419. // For Chart 
  1420. Plot(C,"",1,64);
  1422. // define title
  1423. Title=Name()+ ",  O: "+WriteVal(O)+ ",  H: "+WriteVal(H)+ ",  L: "+WriteVal(L)+ ",  C: "+WriteVal(C) +
  1424. EncodeColor( colorOrange ) + ",  HBOP: " + EncodeColor( colorWhite ) + WriteVal(HBOP) +
  1425. EncodeColor( colorRed ) + ",  S1: " + EncodeColor( colorWhite ) + WriteVal(HBOP) +
  1426. EncodeColor( colorBrightGreen ) + ",  B1: " + EncodeColor( colorWhite ) + WriteVal(HBOP) +
  1427. EncodeColor( colorGreen ) + ",  LBOP: " + EncodeColor( colorWhite ) + WriteVal(HBOP);
  1429. // buy, sell, short and cover symbols
  1430. PlotShapes(shapeUpArrow*Buy,colorWhite,0,BuyPrice,0);
  1431. PlotShapes(shapeDownArrow*Sell,colorYellow,0,SellPrice,0);
  1432. PlotShapes(shapeHollowDownArrow*Short,colorYellow,0,ShortPrice,-15);
  1433. PlotShapes(shapeHollowUpArrow*Cover,colorWhite,0,CoverPrice,-15);
  1435. // triagle show breakouts 
  1436. PlotShapes(shapeUpTriangle*tpsl,colorWhite,0,BuyPrice,0);
  1437. PlotShapes(shapeDownTriangle*tpss,colorYellow,0,ShortPrice,-15);
  1439. // 1 = "B" day, 2 = "O" day, 3 = "S" day
  1440. PlotShapes(shapeDigit1 * (hlp_phase == 1),IIF(hlp_b == 1,colorYellow,colorWhite),0, HBOP,0);
  1441. PlotShapes(shapeDigit2 * (hlp_phase == 2),colorWhite,0, HBOP,0);
  1442. PlotShapes(shapeDigit3 * (hlp_phase == 3),IIF(hlp_s == 1,colorYellow,colorWhite),0, HBOP,0);
  1444. // lightblue digits at days where original phase is used for the calculation.
  1445. PlotShapes(shapeDigit1 * (hlp_phase_l1 == 1),colorLightBlue,0, HBOP,-15);
  1446. PlotShapes(shapeDigit3 * (hlp_phase_l1 == 3),colorLightBlue,0, HBOP,-15);
  1448. // draw levels
  1449. Plot(B1,"",colorBrightGreen,1);
  1450. Plot(S1,"",colorRed,1);
  1451. Plot(HBOP,"",colorOrange,1);
  1452. Plot(LBOP,"",colorGreen,1);
  1454. // for analysis purposes
  1455. Filter = 1;
  1456. AddColumn(phase_arr,"Phase");
  1457. Addcolumn(LBOP,"LBOP");
  1458. AddColumn(O,"O");
  1459. AddColumn(buy,"buy");
  1460. AddColumn(sell,"sell");
  1461. AddColumn(short,"short");
  1462. AddColumn(cover,"cover");
  1463. AddColumn(tpsl,"tpsl");
  1464. AddColumn(tpss,"tpss");