Спекулятивные стратегии на валютном рынке
Исследование распространенных спекулятивных стратегий на валютах – 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
