Спекулятивные стратегии на валютном рынке

Исследование распространенных спекулятивных стратегий на валютах – carry, momentum, и value с точки зрения российского инвестора, который получает доходность в рублях. Кэрри-трейд и портфель из валют. Принципы построения портфеля и валютных стратегий.

Рубрика Финансы, деньги и налоги
Вид дипломная работа
Язык русский
Дата добавления 30.11.2016
Размер файла 397,0 K

Отправить свою хорошую работу в базу знаний просто. Используйте форму, расположенную ниже

Студенты, аспиранты, молодые ученые, использующие базу знаний в своей учебе и работе, будут вам очень благодарны.

# for developing

new.carry.dependent <- make.dependent.portfolios(new.carry.master)

new.momentum.dependent <- make.dependent.portfolios(new.momentum.master)

new.PPP.dependent <- make.dependent.portfolios(new.PPP.master)

new.buyFX.dependent <- timeSeries(matrix(ncol=new.ncur,nrow=new.obs,rep(1,new.ncur*new.obs)),

time(new.carry.master),colnames(new.carry.master))

#############################################################

# Performance evaluation -------------------------------------------------------

carry.returns <- na.omit(eval.returns(carry.dependent,series.excess.returns))

ew.carry.returns <- na.omit(rowSums(lag(ew.carry)*series.excess.returns))/ncur

momentum.returns <- na.omit(eval.returns(momentum.dependent,series.excess.returns))

ew.momentum.returns <- na.omit(rowSums(lag(ew.momentum)*series.excess.returns))/ncur

PPP.returns <- na.omit(eval.returns(PPP.dependent,series.excess.returns))

buyFX.returns <- na.omit(rowSums(lag(buyFX.dependent)*series.excess.returns))/ncur

HiLo.carry.returns <- na.omit(rowSums(lag(HiLo.carry.dependent)*series.excess.returns))/2

HiLo.momentum.returns <- na.omit(rowSums(lag(HiLo.momentum.dependent)*series.excess.returns))/2

# for developing

new.carry.returns <- na.omit(eval.returns(new.carry.dependent,new.series.excess.returns))

new.momentum.returns <- na.omit(eval.returns(new.momentum.dependent,new.series.excess.returns))

new.PPP.returns <- na.omit(eval.returns(new.PPP.dependent,new.series.excess.returns))

new.buyFX.returns <- na.omit(rowSums(lag(new.buyFX.dependent)*new.series.excess.returns))/new.ncur

#############################################################

#Tables -------------------------------------------------------

carry.table <- make.table(carry.returns,ann=TRUE)

momentum.table <- make.table(momentum.returns,ann=TRUE)

PPP.table <- make.table(PPP.returns, ann=TRUE)

benchmark.table <- make.table(cbind(series.micex.returns,buyFX.returns));

carry.singles <- make.table(na.omit(lag(ew.carry)*series.excess.returns))

momentum.singles <- make.table(na.omit(lag(ew.momentum)*series.excess.returns))

colnames(benchmark.table) <- c("MICEX","Buy FX")

HiLo.carry.table <- make.table(HiLo.carry.returns)

HiLo.momentum.table <- make.table(HiLo.momentum.returns)

ew.carry.table <- make.table(ew.carry.returns)

ew.momentum.table <- make.table(ew.momentum.returns)

carry.total <- cbind(cumul(HiLo.carry.returns), cumul(ew.carry.returns),

cumul(carry.returns[,5]-carry.returns[,1]),cumul(buyFX.returns))

momentum.total <- cbind(cumul(HiLo.momentum.returns), cumul(ew.momentum.returns),

cumul(momentum.returns[,5]-momentum.returns[,1]),cumul(buyFX.returns))

value.total <- cbind(cumul(PPP.returns[,5]-PPP.returns[,1]), cumul(buyFX.returns))

cum.total <- cbind(cumul(carry.returns[,5]-carry.returns[,1]),

cumul(momentum.returns[,5]-momentum.returns[,1]),

cumul(PPP.returns[,5]-PPP.returns[,1]), cumul(buyFX.returns))

returns.total <- cbind(carry.returns[,5]-carry.returns[,1],

momentum.returns[,5]-momentum.returns[,1],

PPP.returns[,5]-PPP.returns[,1], buyFX.returns,

series.micex.returns)

cor.table <- round(cor(returns.total),1)

# for developing

new.carry.table <- make.table(new.carry.returns,ann=TRUE)

new.momentum.table <- make.table(new.momentum.returns,ann=TRUE)

new.PPP.table <- make.table(new.PPP.returns,ann=TRUE)

#############################################################

#Plots -------------------------------------------------------

plot(timeSeries(carry.total), main="Cumulative return on carry strategies",

ylab="Accumulated return",

col=c("blue","red","green","grey"),lty=c(1,1,1,2),plot.type="single")

legend(x="bottomleft",legend=c("Carry HML", "EW Carry",

"Carry V5-V1","BuyFX"),col=c("blue","red","green","grey"),

lty=c(1,1,1,2),cex=0.6)

plot(timeSeries(momentum.total), main="Cumulative return on momentum strategies",

ylab="Accumulated return",

col=c("blue","red","green","grey"),lty=c(1,1,1,2),plot.type="single")

legend(x="topleft",legend=c("Momentum HML", "EW Momentum",

"Momentum V5-V1","BuyFX"),col=c("blue","red","green","grey"),

lty=c(1,1,1,2),cex=0.6)

plot(timeSeries(value.total), main="Cumulative return on value strategy",

ylab="Accumulated return",

col=c("blue","grey"),lty=c(1,2),plot.type="single")

legend(x="topleft",legend=c("Value V5-V1","BuyFX"),col=c("blue","grey"),

lty=c(1,1,1,2),cex=0.6)

plot(timeSeries(cum.total), main="Cumulative returns",

ylab="Accumulated return",

col=c("blue","green","red","grey"),lty=c(1,1,1,2),plot.type="single")

legend(x="topleft",legend=c("Carry V5-V1","Momentum V5-V1",

"Value V5-V1","BuyFX"),col=c("blue","green","red","grey"),

lty=c(1,1,1,2),cex=0.6)

#############################################################

#Table: breakdown by periods ---------------------------------------------------

per1 <- 1:49;per2 <- 50:72; per3 <- 73:134;per4 <- 135:152;wh_per <- 1:152;

per <- wh_per;

per.bkd <- make.table(cbind((carry.returns[per,5]-carry.returns[per,1]),

(momentum.returns[per,5]-momentum.returns[per,1]),

(PPP.returns[per,5]-PPP.returns[per,1]),

(buyFX.returns[per]),series.micex.returns))[,1:5]

colnames(per.bkd) <- ("Carry","Momentum","Value","Buy FX", "Micex")

per.bkd

#############################################################

#Adjustment for transaction costs ----------------------------------------------

adj.returns <- function(dependent) {

a <- na.omit(eval.returns(dependent,series.trlong.excess.returns))

b <- na.omit(eval.returns(dependent,series.trshort.excess.returns))

c <- cbind(b[,1],a[,2:5])

d <- make.table(c)[,c(1,5,6)]

d

}

adj.returns(carry.dependent)

adj.returns(momentum.dependent)

adj.returns(PPP.dependent)

Размещено на Allbest.ru


Подобные документы

  • Рынок деривативов: понятие, инструменты, участники. Сущность арбитражных стратегий в этой сфере, хеджирование. Применение арбитражных и хеджевых стратегий с использованием риска изменения цены товара. Перспективы развития стратегий на российском рынке.

    курсовая работа [251,0 K], добавлен 30.05.2016

  • Среднерыночная норма доходности и банковского процента. Удельный вес каждой акции в составе инвестиционного портфеля. Дюрация процентной облигации с целью включения в портфель инвестора. Периодичность выплат процентного дохода и рост дивидендов.

    контрольная работа [26,8 K], добавлен 09.12.2010

  • Понятие валютной биржи, принципы торгов. Экономическое содержание фьючерсных валютных контрактов и валютных опционов. Опционные спекулятивные стратегии. Анализ особенностей котировки валютных фьючерсов. Основные методы хеджирования валютных рисков.

    курсовая работа [524,2 K], добавлен 16.02.2015

  • Изучение разных методов инвестирования: вложения денег в банк под депозиты, покупки недвижимости, торговли на фондовых и валютных рынках. Значение портфеля и его виды. Джеймс Тобин: теория и вклад в экономику. Описание построения оптимального портфеля.

    курсовая работа [628,1 K], добавлен 01.12.2013

  • Стадии конъюнктурного цикла. Факторы, определяющие необходимость формирования портфеля ценных бумаг предприятиями. Анализ кривых безразличия инвестора. Расчёт внутренней ставки доходности и чистой текущей стоимости дохода проекта, доходности портфеля.

    контрольная работа [105,6 K], добавлен 05.03.2016

  • Понятие, цели формирования и классификация инвестиционных портфелей. Формирование портфеля финансовых инвестиций. Пассивный и пассивно-активный стили управления. Процесс формирования инвестиционного портфеля на примере институционального инвестора.

    курсовая работа [193,3 K], добавлен 19.08.2010

  • Принципы формирования инвестиционного портфеля. Современная теория портфеля (модель Марковица). Модель оценки капитальных вложений (модель Шарпа). Характеристика позиции фирмы на рынке. Разработка инвестиционной стратегии на примере ООО "Восток–Запад".

    курсовая работа [128,9 K], добавлен 24.08.2016

  • Инвестиционный портфель: понятие, типы, цели формирования. Инвестиционные риски: сущность и понятие. Оценка и оптимизация формирования портфеля инвестиций. Анализ портфеля акций консервативного инвестора. Кривые безразличия оптимального портфеля.

    курсовая работа [1,1 M], добавлен 04.08.2010

  • Особенности развития российского фондового рынка, его конъюнктура, текущее состояние и наметившиеся тенденции. Принципы пассивного управления портфелем. Построение ковариационной матрицы для финансовых активов. Оценка эффективности портфеля инвестиций.

    курсовая работа [355,8 K], добавлен 02.06.2016

  • Инвестиционный портфель: понятие, типы, цели формирования. Стратегии управления инвестиционным портфелем. Проблемы выбора инвестиционного портфеля, определение уровня его доходности и эффективности. Вычисление доходности и стандартных отклонений портфеля.

    курсовая работа [499,8 K], добавлен 10.05.2011

Работы в архивах красиво оформлены согласно требованиям ВУЗов и содержат рисунки, диаграммы, формулы и т.д.
PPT, PPTX и PDF-файлы представлены только в архивах.
Рекомендуем скачать работу.