Introduction

Alvin Tan created interesting Noteboook, which is partly used in this presentation. The Investopedia information source is also used. In addition, a Bookdown of Technical Analysis with R (second edition) from Ko Chiu Yu and ChatGPT were helpful with the coding in R.

Technical analysis is a method to predict price movement in the financial markets. Unlike the usual balance sheet analysis (fundamental investing), technical analysis estimates the value of a given stock using underlying trends of the price movement. The core assumption behind this method is that the fundamentals (information from financial statements) were factored into the price fluctuation, hence, detecting the patterns and signals from the fluctuation should provide sufficient indicator for future performance.

For this project, we are going to explore some of the common technical indicators using the TQQQ Exchange trade fund (ETF) stock. Among leveraged ETFs, ProShares UltraPro QQQ (TQQQ) is one of the largest with assets under management of \(\$18.56\) billion as of July 2022. TQQQ is also one of the more heavily traded leveraged ETFs in the U.S. with an average daily volume of \(\$5.29\) billion (compared with QQQ’s \(\$21\) billion).

TQQQ carries an expense ratio of 0.95%.

#install.packages("quantmod")
#install.packages("data.table")
#install.packages("ggplot2")
#install.packages("tidyquant")
library(quantmod)
library(data.table)
library(ggplot2)
library(tidyquant)  

Data Extraction & Manipulation, Data structure

TQQQ data is extracted using the getSymbols function from Yahoo Finance. Alternatively, the source can be replaced with FRED, MySQL, Google, or others. The data extracted should be in an ‘xts’ object - a format commonly used in time series analysis where observations are recorded in a matrix structure with an index of corresponding time.

Technically, analysis can be done in xts format alone, but for the sake of simplicity, data is converted into a standard dataframe and index column is renamed as “Date’. The end result is shown as below:

getSymbols('MCD',src = 'yahoo')       ## change TQQQ ticker to Your ticker symbol
[1] "MCD"

structure of the stock data

stock <<- as.data.table(MCD)        ###### change TQQQ ticker to Your ticker symbol  #########
names(stock)[1] <- c('Date')

tail(stock)

Interpretation of the HLCO graph

In finance, HLCO graph is a type of financial chart that plots the high, low, close, and open prices for a given period of time. The HLCO chart is similar to a candlestick chart, but it includes the open price in addition to the high, low, and close prices.

The interpretation of an HLCO chart can provide insights into the price action of a security during a given period of time. Here is a brief explanation of how to interpret each component of an HLCO chart:

  1. High: The top of the vertical line represents the highest price reached during the given period. This shows the highest price that buyers were willing to pay for the security during the period.

  2. Low: The bottom of the vertical line represents the lowest price reached during the given period. This shows the lowest price that sellers were willing to accept for the security during the period.

  3. Close: The horizontal line to the right of the vertical line represents the closing price for the period. This shows the final price at which the security traded during the period.

  4. Open: The horizontal line to the left of the vertical line represents the opening price for the period. This shows the initial price at which the security traded during the period.

By looking at the patterns of the high, low, close, and open prices in an HLCO chart, traders and investors can gain insight into the overall trend and sentiment of the market for the given security. For example, a long green candlestick with a high close and low open may indicate bullish sentiment, while a long red candlestick with a low close and high open may indicate bearish sentiment.

# feel free to change "HLCO" to "candlestick" or to some other types ("lines", "auto"). 
chartSeries(stock, subset='2020-01-01::2020-09-23', type = "candlesticks", bar.type = "ohlc",theme=chartTheme('white'))

Volume

One of the most common basic indicators traders examine is the trading volume. Trading volume is an indication for the ‘activeness’ of a financial instrument. Depending on the financial instruments, trading volume can be measured either using the number of stocks traded or number of contracts with changed ownerships. To put this in practice, if an increase in volume is observed with a steady increase in price, the instrument can be viewed as steady and strong. However, if volume and price are changing in different directions, a reversal might be happened.

You can analyze it in the previous picture.

Price - Moving Average

chartSeries(stock,
            subset='2020-01-01::2020-09-23', type = "candlestick",
            theme=chartTheme('white'))

addSMA(n = 12, on = 1, with.col = Cl, overlay = TRUE, col = "brown")

addSMA(n = 24, on = 1, with.col = Cl, overlay = TRUE, col = "blue")

NA
NA

Price-Moving average is a technical analysis indicator.There are two types when calculating PMA: SMA ans EMA. We can see datas from january 2020 to september 2020. Volume in millions was 2,777,700.Sells and buys are visible. It’s a bit difficult to interpret because I’m seeing this for the first time, but the short term average intersects the long term average six times during this period. The biggest fluctuation is in March.

Moving Average Convergence Divergence (MACD)

chartSeries(stock,
            subset='2020-01-01::2020-09-23', type = "bars",
            theme=chartTheme('white'))

addMACD(fast=12,slow=26,signal=9,type="EMA")

The next technical analysis indicator is Moving Average Convergence Divergence. The gray line is the MACD and the red dashed line is the signal. So we know that the buy signal arises when MACD crosses from below to above the signal line, and Sell signal arises when MACD crosses from above to below the signal line. Buy signals are approximately in: March 25th, May 20th and July 1st. Sell signals are approximately in: May 1st, June 10th and July 28th.

Bollinger Band

chartSeries(stock,
            subset='2020-01-01::2020-09-23', type = "bars",
            theme=chartTheme('white'))

addBBands(n = 20, sd = 2, maType = "SMA", draw = 'bands', on = -1)

Relative Strength Index (RSI)

chartSeries(stock,
            subset='2020-01-01::2020-09-23', type = "bars",
            theme=chartTheme('white'))

addRSI(n = 14, maType = "EMA", wilder = TRUE)

We know that the RSI oscillates between 0 and 100, with readings above 70 indicating that the asset is overbought, and readings below 30 indicating that the asset is oversold. The diagram shows that the asset is overbought between January and February, at the beginning of June and after that between August and September. The asset is oversold in this peroid only once- between March and April.

Parabolic stop and reversal

chartSeries(stock,
            subset='2020-01-01::2020-09-23', type = "bars",
            theme=chartTheme('white'))

addSAR(accel = c(0.02, 0.2), col = "blue")

NA
NA

When the price is moving upwards, the SAR dots are placed below the price, and when the price is moving downwards, the SAR dots are placed above the price.The diagram is constantly changing, once the current increases and once it decreases

Summary graphs

Apart from the few that was mentioned above, other indicators include rate of change, money flow index (MFI), MACD and etc.

Chart Series

ChartSeries provides an alternative way to summarise the plot. Instead of one plot for each indicator, all of them can now be compiled into a single figure, where indicators can be added to the bottom of the existing plot.

chartSeries(stock,
            subset='2020-01-01::2020-09-23', type = "bars",
            theme=chartTheme('white'))

addBBands(n=20,sd=2)

addRSI(n=14,maType="EMA")

addMACD(fast=12,slow=26,signal=9,type="EMA")

LS0tCnRpdGxlOiAiVGVjaG5pY2FsIGFuYWx5c2lzIGluIFIiCm91dHB1dDogaHRtbF9ub3RlYm9vawotLS0KCiMjIEludHJvZHVjdGlvbgoKQWx2aW4gVGFuIGNyZWF0ZWQgaW50ZXJlc3RpbmcgW05vdGVib29va10oaHR0cDovL3JwdWJzLmNvbS96aGVzaHVlbi82NjU2MTYpLCB3aGljaCBpcyBwYXJ0bHkgdXNlZCBpbiB0aGlzIHByZXNlbnRhdGlvbi4gVGhlIFtJbnZlc3RvcGVkaWFdKGh0dHBzOi8vd3d3LmludmVzdG9wZWRpYS5jb20vKSBpbmZvcm1hdGlvbiBzb3VyY2UgaXMgYWxzbyB1c2VkLiBJbiBhZGRpdGlvbiwgYSBCb29rZG93biBvZiBbVGVjaG5pY2FsIEFuYWx5c2lzIHdpdGggUiAoc2Vjb25kIGVkaXRpb24pIGZyb20gS28gQ2hpdSBZdV0oaHR0cHM6Ly9ib29rZG93bi5vcmcva29jaGl1eXUvdGVjaG5pY2FsLWFuYWx5c2lzLXdpdGgtci1zZWNvbmQtZWRpdGlvbjIvKSAgYW5kIENoYXRHUFQgd2VyZSBoZWxwZnVsIHdpdGggdGhlIGNvZGluZyBpbiBSLgoKVGVjaG5pY2FsIGFuYWx5c2lzIGlzIGEgbWV0aG9kIHRvIHByZWRpY3QgcHJpY2UgbW92ZW1lbnQgaW4gdGhlIGZpbmFuY2lhbCBtYXJrZXRzLiBVbmxpa2UgdGhlIHVzdWFsIGJhbGFuY2Ugc2hlZXQgYW5hbHlzaXMgKGZ1bmRhbWVudGFsIGludmVzdGluZyksIHRlY2huaWNhbCBhbmFseXNpcyBlc3RpbWF0ZXMgdGhlIHZhbHVlIG9mIGEgZ2l2ZW4gc3RvY2sgdXNpbmcgdW5kZXJseWluZyB0cmVuZHMgb2YgdGhlIHByaWNlIG1vdmVtZW50LiBUaGUgY29yZSBhc3N1bXB0aW9uIGJlaGluZCB0aGlzIG1ldGhvZCBpcyB0aGF0IHRoZSBmdW5kYW1lbnRhbHMgKGluZm9ybWF0aW9uIGZyb20gZmluYW5jaWFsIHN0YXRlbWVudHMpIHdlcmUgZmFjdG9yZWQgaW50byB0aGUgcHJpY2UgZmx1Y3R1YXRpb24sIGhlbmNlLCBkZXRlY3RpbmcgdGhlIHBhdHRlcm5zIGFuZCBzaWduYWxzIGZyb20gdGhlIGZsdWN0dWF0aW9uIHNob3VsZCBwcm92aWRlIHN1ZmZpY2llbnQgaW5kaWNhdG9yIGZvciBmdXR1cmUgcGVyZm9ybWFuY2UuCgpGb3IgdGhpcyBwcm9qZWN0LCB3ZSBhcmUgZ29pbmcgdG8gZXhwbG9yZSBzb21lIG9mIHRoZSBjb21tb24gdGVjaG5pY2FsIGluZGljYXRvcnMgdXNpbmcgdGhlIFRRUVEgRXhjaGFuZ2UgdHJhZGUgZnVuZCAoRVRGKSBzdG9jay4gQW1vbmcgbGV2ZXJhZ2VkIEVURnMsIFByb1NoYXJlcyBVbHRyYVBybyBRUVEgKFRRUVEpIGlzIG9uZSBvZiB0aGUgbGFyZ2VzdCB3aXRoIGFzc2V0cyB1bmRlciBtYW5hZ2VtZW50IG9mICRcJDE4LjU2JCBiaWxsaW9uIGFzIG9mIEp1bHkgMjAyMi4gVFFRUSBpcyBhbHNvIG9uZSBvZiB0aGUgbW9yZSBoZWF2aWx5IHRyYWRlZCBsZXZlcmFnZWQgRVRGcyBpbiB0aGUgVS5TLiB3aXRoIGFuIGF2ZXJhZ2UgZGFpbHkgdm9sdW1lIG9mICRcJDUuMjkkIGJpbGxpb24gKGNvbXBhcmVkIHdpdGggUVFRJ3MgJFwkMjEkIGJpbGxpb24pLgoKVFFRUSBjYXJyaWVzIGFuIFtleHBlbnNlIHJhdGlvXShodHRwczovL3d3dy5pbnZlc3RvcGVkaWEuY29tL3Rlcm1zL2UvZXhwZW5zZXJhdGlvLmFzcCkgb2YgMC45NSUuCgpgYGB7cn0KI2luc3RhbGwucGFja2FnZXMoInF1YW50bW9kIikKI2luc3RhbGwucGFja2FnZXMoImRhdGEudGFibGUiKQojaW5zdGFsbC5wYWNrYWdlcygiZ2dwbG90MiIpCiNpbnN0YWxsLnBhY2thZ2VzKCJ0aWR5cXVhbnQiKQpsaWJyYXJ5KHF1YW50bW9kKQpsaWJyYXJ5KGRhdGEudGFibGUpCmxpYnJhcnkoZ2dwbG90MikKbGlicmFyeSh0aWR5cXVhbnQpICAKYGBgCgojIyBEYXRhIEV4dHJhY3Rpb24gJiBNYW5pcHVsYXRpb24sIERhdGEgc3RydWN0dXJlCgpUUVFRIGRhdGEgaXMgZXh0cmFjdGVkIHVzaW5nIHRoZSBnZXRTeW1ib2xzIGZ1bmN0aW9uIGZyb20gWWFob28gRmluYW5jZS4gQWx0ZXJuYXRpdmVseSwgdGhlIHNvdXJjZSBjYW4gYmUgcmVwbGFjZWQgd2l0aCBGUkVELCBNeVNRTCwgR29vZ2xlLCBvciBvdGhlcnMuIFRoZSBkYXRhIGV4dHJhY3RlZCBzaG91bGQgYmUgaW4gYW4g4oCYeHRz4oCZIG9iamVjdCAtIGEgZm9ybWF0IGNvbW1vbmx5IHVzZWQgaW4gdGltZSBzZXJpZXMgYW5hbHlzaXMgd2hlcmUgb2JzZXJ2YXRpb25zIGFyZSByZWNvcmRlZCBpbiBhIG1hdHJpeCBzdHJ1Y3R1cmUgd2l0aCBhbiBpbmRleCBvZiBjb3JyZXNwb25kaW5nIHRpbWUuCgpUZWNobmljYWxseSwgYW5hbHlzaXMgY2FuIGJlIGRvbmUgaW4geHRzIGZvcm1hdCBhbG9uZSwgYnV0IGZvciB0aGUgc2FrZSBvZiBzaW1wbGljaXR5LCBkYXRhIGlzIGNvbnZlcnRlZCBpbnRvIGEgc3RhbmRhcmQgZGF0YWZyYW1lIGFuZCBpbmRleCBjb2x1bW4gaXMgcmVuYW1lZCBhcyAiRGF0ZeKAmS4gVGhlIGVuZCByZXN1bHQgaXMgc2hvd24gYXMgYmVsb3c6CgpgYGB7ciBkb3dubG9hZF9zdG9ja19oaXN0b3J5fQpnZXRTeW1ib2xzKCdNQ0QnLHNyYyA9ICd5YWhvbycpICAgICAgICMjIGNoYW5nZSBUUVFRIHRpY2tlciB0byBZb3VyIHRpY2tlciBzeW1ib2wKYGBgCgojIyBzdHJ1Y3R1cmUgb2YgdGhlICpzdG9jayogZGF0YQoKYGBge3J9CnN0b2NrIDw8LSBhcy5kYXRhLnRhYmxlKE1DRCkgICAgICAgICMjIyMjIyBjaGFuZ2UgVFFRUSB0aWNrZXIgdG8gWW91ciB0aWNrZXIgc3ltYm9sICAjIyMjIyMjIyMKbmFtZXMoc3RvY2spWzFdIDwtIGMoJ0RhdGUnKQoKdGFpbChzdG9jaykKYGBgCgoKIyMgSW50ZXJwcmV0YXRpb24gb2YgdGhlIEhMQ08gZ3JhcGgKCkluIGZpbmFuY2UsIEhMQ08gZ3JhcGggaXMgYSB0eXBlIG9mIGZpbmFuY2lhbCBjaGFydCB0aGF0IHBsb3RzIHRoZSBoaWdoLCBsb3csIGNsb3NlLCBhbmQgb3BlbiBwcmljZXMgZm9yIGEgZ2l2ZW4gcGVyaW9kIG9mIHRpbWUuIFRoZSBITENPIGNoYXJ0IGlzIHNpbWlsYXIgdG8gYSBjYW5kbGVzdGljayBjaGFydCwgYnV0IGl0IGluY2x1ZGVzIHRoZSBvcGVuIHByaWNlIGluIGFkZGl0aW9uIHRvIHRoZSBoaWdoLCBsb3csIGFuZCBjbG9zZSBwcmljZXMuCgpUaGUgaW50ZXJwcmV0YXRpb24gb2YgYW4gSExDTyBjaGFydCBjYW4gcHJvdmlkZSBpbnNpZ2h0cyBpbnRvIHRoZSBwcmljZSBhY3Rpb24gb2YgYSBzZWN1cml0eSBkdXJpbmcgYSBnaXZlbiBwZXJpb2Qgb2YgdGltZS4gSGVyZSBpcyBhIGJyaWVmIGV4cGxhbmF0aW9uIG9mIGhvdyB0byBpbnRlcnByZXQgZWFjaCBjb21wb25lbnQgb2YgYW4gSExDTyBjaGFydDoKCjEuIEhpZ2g6IFRoZSB0b3Agb2YgdGhlIHZlcnRpY2FsIGxpbmUgcmVwcmVzZW50cyB0aGUgaGlnaGVzdCBwcmljZSByZWFjaGVkIGR1cmluZyB0aGUgZ2l2ZW4gcGVyaW9kLiBUaGlzIHNob3dzIHRoZSBoaWdoZXN0IHByaWNlIHRoYXQgYnV5ZXJzIHdlcmUgd2lsbGluZyB0byBwYXkgZm9yIHRoZSBzZWN1cml0eSBkdXJpbmcgdGhlIHBlcmlvZC4KCjIuIExvdzogVGhlIGJvdHRvbSBvZiB0aGUgdmVydGljYWwgbGluZSByZXByZXNlbnRzIHRoZSBsb3dlc3QgcHJpY2UgcmVhY2hlZCBkdXJpbmcgdGhlIGdpdmVuIHBlcmlvZC4gVGhpcyBzaG93cyB0aGUgbG93ZXN0IHByaWNlIHRoYXQgc2VsbGVycyB3ZXJlIHdpbGxpbmcgdG8gYWNjZXB0IGZvciB0aGUgc2VjdXJpdHkgZHVyaW5nIHRoZSBwZXJpb2QuCgozLiBDbG9zZTogVGhlIGhvcml6b250YWwgbGluZSB0byB0aGUgcmlnaHQgb2YgdGhlIHZlcnRpY2FsIGxpbmUgcmVwcmVzZW50cyB0aGUgY2xvc2luZyBwcmljZSBmb3IgdGhlIHBlcmlvZC4gVGhpcyBzaG93cyB0aGUgZmluYWwgcHJpY2UgYXQgd2hpY2ggdGhlIHNlY3VyaXR5IHRyYWRlZCBkdXJpbmcgdGhlIHBlcmlvZC4KCjQuIE9wZW46IFRoZSBob3Jpem9udGFsIGxpbmUgdG8gdGhlIGxlZnQgb2YgdGhlIHZlcnRpY2FsIGxpbmUgcmVwcmVzZW50cyB0aGUgb3BlbmluZyBwcmljZSBmb3IgdGhlIHBlcmlvZC4gVGhpcyBzaG93cyB0aGUgaW5pdGlhbCBwcmljZSBhdCB3aGljaCB0aGUgc2VjdXJpdHkgdHJhZGVkIGR1cmluZyB0aGUgcGVyaW9kLgoKQnkgbG9va2luZyBhdCB0aGUgcGF0dGVybnMgb2YgdGhlIGhpZ2gsIGxvdywgY2xvc2UsIGFuZCBvcGVuIHByaWNlcyBpbiBhbiBITENPIGNoYXJ0LCB0cmFkZXJzIGFuZCBpbnZlc3RvcnMgY2FuIGdhaW4gaW5zaWdodCBpbnRvIHRoZSBvdmVyYWxsIHRyZW5kIGFuZCBzZW50aW1lbnQgb2YgdGhlIG1hcmtldCBmb3IgdGhlIGdpdmVuIHNlY3VyaXR5LiBGb3IgZXhhbXBsZSwgYSBsb25nIGdyZWVuIGNhbmRsZXN0aWNrIHdpdGggYSBoaWdoIGNsb3NlIGFuZCBsb3cgb3BlbiBtYXkgaW5kaWNhdGUgYnVsbGlzaCBzZW50aW1lbnQsIHdoaWxlIGEgbG9uZyByZWQgY2FuZGxlc3RpY2sgd2l0aCBhIGxvdyBjbG9zZSBhbmQgaGlnaCBvcGVuIG1heSBpbmRpY2F0ZSBiZWFyaXNoIHNlbnRpbWVudC4KCmBgYHtyfQojIGZlZWwgZnJlZSB0byBjaGFuZ2UgIkhMQ08iIHRvICJjYW5kbGVzdGljayIgb3IgdG8gc29tZSBvdGhlciB0eXBlcyAoImxpbmVzIiwgImF1dG8iKS4gCmNoYXJ0U2VyaWVzKHN0b2NrLCBzdWJzZXQ9JzIwMjAtMDEtMDE6OjIwMjAtMDktMjMnLCB0eXBlID0gImNhbmRsZXN0aWNrcyIsIGJhci50eXBlID0gIm9obGMiLHRoZW1lPWNoYXJ0VGhlbWUoJ3doaXRlJykpCmBgYAoKCgoKIyMgVm9sdW1lIAoKT25lIG9mIHRoZSBtb3N0IGNvbW1vbiBiYXNpYyBpbmRpY2F0b3JzIHRyYWRlcnMgZXhhbWluZSBpcyB0aGUgdHJhZGluZyB2b2x1bWUuIFRyYWRpbmcgdm9sdW1lIGlzIGFuIGluZGljYXRpb24gZm9yIHRoZSDigJhhY3RpdmVuZXNz4oCZIG9mIGEgZmluYW5jaWFsIGluc3RydW1lbnQuIERlcGVuZGluZyBvbiB0aGUgZmluYW5jaWFsIGluc3RydW1lbnRzLCB0cmFkaW5nIHZvbHVtZSBjYW4gYmUgbWVhc3VyZWQgZWl0aGVyIHVzaW5nIHRoZSBudW1iZXIgb2Ygc3RvY2tzIHRyYWRlZCBvciBudW1iZXIgb2YgY29udHJhY3RzIHdpdGggY2hhbmdlZCBvd25lcnNoaXBzLiBUbyBwdXQgdGhpcyBpbiBwcmFjdGljZSwgaWYgYW4gaW5jcmVhc2UgaW4gdm9sdW1lIGlzIG9ic2VydmVkIHdpdGggYSBzdGVhZHkgaW5jcmVhc2UgaW4gcHJpY2UsIHRoZSBpbnN0cnVtZW50IGNhbiBiZSB2aWV3ZWQgYXMgc3RlYWR5IGFuZCBzdHJvbmcuIEhvd2V2ZXIsIGlmIHZvbHVtZSBhbmQgcHJpY2UgYXJlIGNoYW5naW5nIGluIGRpZmZlcmVudCBkaXJlY3Rpb25zLCBhIHJldmVyc2FsIG1pZ2h0IGJlIGhhcHBlbmVkLgoKWW91IGNhbiBhbmFseXplIGl0IGluIHRoZSBwcmV2aW91cyBwaWN0dXJlLgoKCiMjIFByaWNlIC0gTW92aW5nIEF2ZXJhZ2UKCgpgYGB7cn0KY2hhcnRTZXJpZXMoc3RvY2ssCiAgICAgICAgICAgIHN1YnNldD0nMjAyMC0wMS0wMTo6MjAyMC0wOS0yMycsIHR5cGUgPSAiY2FuZGxlc3RpY2siLAogICAgICAgICAgICB0aGVtZT1jaGFydFRoZW1lKCd3aGl0ZScpKQphZGRTTUEobiA9IDEyLCBvbiA9IDEsIHdpdGguY29sID0gQ2wsIG92ZXJsYXkgPSBUUlVFLCBjb2wgPSAiYnJvd24iKQphZGRTTUEobiA9IDI0LCBvbiA9IDEsIHdpdGguY29sID0gQ2wsIG92ZXJsYXkgPSBUUlVFLCBjb2wgPSAiYmx1ZSIpCgoKYGBgCgpQcmljZS1Nb3ZpbmcgYXZlcmFnZSBpcyBhIHRlY2huaWNhbCBhbmFseXNpcyBpbmRpY2F0b3IuVGhlcmUgYXJlIHR3byB0eXBlcyB3aGVuIGNhbGN1bGF0aW5nIFBNQTogU01BIGFucyBFTUEuIFdlIGNhbiBzZWUgZGF0YXMgZnJvbSBqYW51YXJ5IDIwMjAgdG8gc2VwdGVtYmVyIDIwMjAuIFZvbHVtZSBpbiBtaWxsaW9ucyB3YXMgMiw3NzcsNzAwLlNlbGxzIGFuZCBidXlzIGFyZSB2aXNpYmxlLiBJdCdzIGEgYml0IGRpZmZpY3VsdCB0byBpbnRlcnByZXQgYmVjYXVzZSBJJ20gc2VlaW5nIHRoaXMgZm9yIHRoZSBmaXJzdCB0aW1lLCBidXQgdGhlIHNob3J0IHRlcm0gYXZlcmFnZSBpbnRlcnNlY3RzIHRoZSBsb25nIHRlcm0gYXZlcmFnZSBzaXggdGltZXMgZHVyaW5nIHRoaXMgcGVyaW9kLiBUaGUgYmlnZ2VzdCBmbHVjdHVhdGlvbiBpcyBpbiBNYXJjaC4KCgojIyBNb3ZpbmcgQXZlcmFnZSBDb252ZXJnZW5jZSBEaXZlcmdlbmNlIChNQUNEKQoKYGBge3J9CmNoYXJ0U2VyaWVzKHN0b2NrLAogICAgICAgICAgICBzdWJzZXQ9JzIwMjAtMDEtMDE6OjIwMjAtMDktMjMnLCB0eXBlID0gImJhcnMiLAogICAgICAgICAgICB0aGVtZT1jaGFydFRoZW1lKCd3aGl0ZScpKQphZGRNQUNEKGZhc3Q9MTIsc2xvdz0yNixzaWduYWw9OSx0eXBlPSJFTUEiKQoKYGBgClRoZSBuZXh0IHRlY2huaWNhbCBhbmFseXNpcyBpbmRpY2F0b3IgaXMgTW92aW5nIEF2ZXJhZ2UgQ29udmVyZ2VuY2UgRGl2ZXJnZW5jZS4gVGhlIGdyYXkgbGluZSBpcyB0aGUgTUFDRCBhbmQgdGhlIHJlZCBkYXNoZWQgbGluZSBpcyB0aGUgc2lnbmFsLiBTbyB3ZSBrbm93IHRoYXQgdGhlIGJ1eSBzaWduYWwgYXJpc2VzIHdoZW4gTUFDRCBjcm9zc2VzIGZyb20gYmVsb3cgdG8gYWJvdmUgdGhlIHNpZ25hbCBsaW5lLCBhbmQgU2VsbCBzaWduYWwgYXJpc2VzIHdoZW4gTUFDRCBjcm9zc2VzIGZyb20gYWJvdmUgdG8gYmVsb3cgdGhlIHNpZ25hbCBsaW5lLgpCdXkgc2lnbmFscyBhcmUgYXBwcm94aW1hdGVseSBpbjogTWFyY2ggMjV0aCwgTWF5IDIwdGggYW5kIEp1bHkgMXN0LgpTZWxsIHNpZ25hbHMgYXJlIGFwcHJveGltYXRlbHkgaW46IE1heSAxc3QsIEp1bmUgMTB0aCBhbmQgSnVseSAyOHRoLgoKIyMgQm9sbGluZ2VyIEJhbmQKCmBgYHtyfQpjaGFydFNlcmllcyhzdG9jaywKICAgICAgICAgICAgc3Vic2V0PScyMDIwLTAxLTAxOjoyMDIwLTA5LTIzJywgdHlwZSA9ICJiYXJzIiwKICAgICAgICAgICAgdGhlbWU9Y2hhcnRUaGVtZSgnd2hpdGUnKSkKYWRkQkJhbmRzKG4gPSAyMCwgc2QgPSAyLCBtYVR5cGUgPSAiU01BIiwgZHJhdyA9ICdiYW5kcycsIG9uID0gLTEpCmBgYAoKCiMjIFJlbGF0aXZlIFN0cmVuZ3RoIEluZGV4IChSU0kpCgpgYGB7cn0KY2hhcnRTZXJpZXMoc3RvY2ssCiAgICAgICAgICAgIHN1YnNldD0nMjAyMC0wMS0wMTo6MjAyMC0wOS0yMycsIHR5cGUgPSAiYmFycyIsCiAgICAgICAgICAgIHRoZW1lPWNoYXJ0VGhlbWUoJ3doaXRlJykpCmFkZFJTSShuID0gMTQsIG1hVHlwZSA9ICJFTUEiLCB3aWxkZXIgPSBUUlVFKQoKYGBgCgpXZSBrbm93IHRoYXQgdGhlIFJTSSBvc2NpbGxhdGVzIGJldHdlZW4gMCBhbmQgMTAwLCB3aXRoIHJlYWRpbmdzIGFib3ZlIDcwIGluZGljYXRpbmcgdGhhdCB0aGUgYXNzZXQgaXMgb3ZlcmJvdWdodCwgYW5kIHJlYWRpbmdzIGJlbG93IDMwIGluZGljYXRpbmcgdGhhdCB0aGUgYXNzZXQgaXMgb3ZlcnNvbGQuClRoZSBkaWFncmFtIHNob3dzIHRoYXQgdGhlIGFzc2V0IGlzIG92ZXJib3VnaHQgYmV0d2VlbiBKYW51YXJ5IGFuZCBGZWJydWFyeSwgYXQgdGhlIGJlZ2lubmluZyBvZiBKdW5lIGFuZCBhZnRlciB0aGF0IGJldHdlZW4gQXVndXN0IGFuZCBTZXB0ZW1iZXIuIFRoZSBhc3NldCBpcyBvdmVyc29sZCBpbiB0aGlzIHBlcm9pZCBvbmx5IG9uY2UtIGJldHdlZW4gTWFyY2ggYW5kIEFwcmlsLiAKCgoKIyMgUGFyYWJvbGljIHN0b3AgYW5kIHJldmVyc2FsCgpgYGB7cn0KY2hhcnRTZXJpZXMoc3RvY2ssCiAgICAgICAgICAgIHN1YnNldD0nMjAyMC0wMS0wMTo6MjAyMC0wOS0yMycsIHR5cGUgPSAiYmFycyIsCiAgICAgICAgICAgIHRoZW1lPWNoYXJ0VGhlbWUoJ3doaXRlJykpCmFkZFNBUihhY2NlbCA9IGMoMC4wMiwgMC4yKSwgY29sID0gImJsdWUiKQoKCmBgYAogV2hlbiB0aGUgcHJpY2UgaXMgbW92aW5nIHVwd2FyZHMsIHRoZSBTQVIgZG90cyBhcmUgcGxhY2VkIGJlbG93IHRoZSBwcmljZSwgYW5kIHdoZW4gdGhlIHByaWNlIGlzIG1vdmluZyBkb3dud2FyZHMsIHRoZSBTQVIgZG90cyBhcmUgcGxhY2VkIGFib3ZlIHRoZSBwcmljZS5UaGUgZGlhZ3JhbSBpcyBjb25zdGFudGx5IGNoYW5naW5nLCBvbmNlIHRoZSBjdXJyZW50IGluY3JlYXNlcyBhbmQgb25jZSBpdCBkZWNyZWFzZXMKCgoKIyMgU3VtbWFyeSBncmFwaHMKCkFwYXJ0IGZyb20gdGhlIGZldyB0aGF0IHdhcyBtZW50aW9uZWQgYWJvdmUsIG90aGVyIGluZGljYXRvcnMgaW5jbHVkZSByYXRlIG9mIGNoYW5nZSwgbW9uZXkgZmxvdyBpbmRleCAoTUZJKSwgTUFDRCBhbmQgZXRjLgoKIyMgQ2hhcnQgU2VyaWVzCgpDaGFydFNlcmllcyBwcm92aWRlcyBhbiBhbHRlcm5hdGl2ZSB3YXkgdG8gc3VtbWFyaXNlIHRoZSBwbG90LiBJbnN0ZWFkIG9mIG9uZSBwbG90IGZvciBlYWNoIGluZGljYXRvciwgYWxsIG9mIHRoZW0gY2FuIG5vdyBiZSBjb21waWxlZCBpbnRvIGEgc2luZ2xlIGZpZ3VyZSwgd2hlcmUgaW5kaWNhdG9ycyBjYW4gYmUgYWRkZWQgdG8gdGhlIGJvdHRvbSBvZiB0aGUgZXhpc3RpbmcgcGxvdC4KCmBgYHtyfQpjaGFydFNlcmllcyhzdG9jaywKICAgICAgICAgICAgc3Vic2V0PScyMDIwLTAxLTAxOjoyMDIwLTA5LTIzJywgdHlwZSA9ICJiYXJzIiwKICAgICAgICAgICAgdGhlbWU9Y2hhcnRUaGVtZSgnd2hpdGUnKSkKYWRkQkJhbmRzKG49MjAsc2Q9MikKYWRkUlNJKG49MTQsbWFUeXBlPSJFTUEiKQphZGRNQUNEKGZhc3Q9MTIsc2xvdz0yNixzaWduYWw9OSx0eXBlPSJFTUEiKQoKYGBgCgoK